diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.5` +`1.5.0` ## Description diff --git a/amazonka-elb.cabal b/amazonka-elb.cabal --- a/amazonka-elb.cabal +++ b/amazonka-elb.cabal @@ -1,13 +1,13 @@ name: amazonka-elb -version: 1.4.5 +version: 1.5.0 synopsis: Amazon Elastic Load Balancing SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues -license: OtherLicense +license: MPL-2.0 license-file: LICENSE author: Brendan Hay -maintainer: Brendan Hay -copyright: Copyright (c) 2013-2016 Brendan Hay +maintainer: Brendan Hay +copyright: Copyright (c) 2013-2017 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 @@ -29,14 +29,19 @@ to get started. source-repository head - type: git - location: git://github.com/brendanhay/amazonka.git + type: git + location: git://github.com/brendanhay/amazonka.git + subdir: amazonka-elb library default-language: Haskell2010 hs-source-dirs: src gen - ghc-options: -Wall + ghc-options: + -Wall + -fwarn-incomplete-uni-patterns + -fwarn-incomplete-record-updates + -funbox-strict-fields exposed-modules: Network.AWS.ELB @@ -53,6 +58,7 @@ , Network.AWS.ELB.DeleteLoadBalancerListeners , Network.AWS.ELB.DeleteLoadBalancerPolicy , Network.AWS.ELB.DeregisterInstancesFromLoadBalancer + , Network.AWS.ELB.DescribeAccountLimits , Network.AWS.ELB.DescribeInstanceHealth , Network.AWS.ELB.DescribeLoadBalancerAttributes , Network.AWS.ELB.DescribeLoadBalancerPolicies @@ -77,7 +83,7 @@ , Network.AWS.ELB.Types.Sum build-depends: - amazonka-core == 1.4.5.* + amazonka-core == 1.5.0.* , base >= 4.7 && < 5 test-suite amazonka-elb-test @@ -97,9 +103,9 @@ , Test.AWS.ELB.Internal build-depends: - amazonka-core == 1.4.5.* - , amazonka-test == 1.4.5.* - , amazonka-elb == 1.4.5.* + amazonka-core == 1.5.0.* + , amazonka-test == 1.5.0.* + , amazonka-elb , base , bytestring , tasty diff --git a/fixture/DescribeAccountLimits.yaml b/fixture/DescribeAccountLimits.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeAccountLimits.yaml @@ -0,0 +1,10 @@ +--- +method: POST +headers: + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/elasticloadbalancing/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=? + Host: elasticloadbalancing.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeAccountLimitsResponse.proto b/fixture/DescribeAccountLimitsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeAccountLimitsResponse.proto diff --git a/gen/Network/AWS/ELB.hs b/gen/Network/AWS/ELB.hs --- a/gen/Network/AWS/ELB.hs +++ b/gen/Network/AWS/ELB.hs @@ -5,9 +5,9 @@ -- | -- Module : Network.AWS.ELB --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -15,9 +15,9 @@ -- -- A load balancer distributes incoming traffic across your EC2 instances. This enables you to increase the availability of your application. The load balancer also monitors the health of its registered instances and ensures that it routes traffic only to healthy instances. You configure your load balancer to accept incoming traffic by specifying one or more listeners, which are configured with a protocol and port number for connections from clients to the load balancer and a protocol and port number for connections from the load balancer to the instances. -- --- Elastic Load Balancing supports two types of load balancers: Classic load balancers and Application load balancers (new). A Classic load balancer makes routing and load balancing decisions either at the transport layer (TCP/SSL) or the application layer (HTTP/HTTPS), and supports either EC2-Classic or a VPC. An Application load balancer makes routing and load balancing decisions at the application layer (HTTP/HTTPS), supports path-based routing, and can route requests to one or more ports on each EC2 instance or container instance in your virtual private cloud (VPC). For more information, see the . +-- Elastic Load Balancing supports two types of load balancers: Classic Load Balancers and Application Load Balancers (new). A Classic Load Balancer makes routing and load balancing decisions either at the transport layer (TCP/SSL) or the application layer (HTTP/HTTPS), and supports either EC2-Classic or a VPC. An Application Load Balancer makes routing and load balancing decisions at the application layer (HTTP/HTTPS), supports path-based routing, and can route requests to one or more ports on each EC2 instance or container instance in your virtual private cloud (VPC). For more information, see the . -- --- This reference covers the 2012-06-01 API, which supports Classic load balancers. The 2015-12-01 API supports Application load balancers. +-- This reference covers the 2012-06-01 API, which supports Classic Load Balancers. The 2015-12-01 API supports Application Load Balancers. -- -- To get started, create a load balancer with one or more listeners using 'CreateLoadBalancer' . Register your instances with the load balancer using 'RegisterInstancesWithLoadBalancer' . -- @@ -97,6 +97,12 @@ -- * Waiters -- $waiters + -- ** AnyInstanceInService + , anyInstanceInService + + -- ** InstanceInService + , instanceInService + -- * Operations -- $operations @@ -142,6 +148,9 @@ -- ** SetLoadBalancerListenerSSLCertificate , module Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate + -- ** DescribeAccountLimits + , module Network.AWS.ELB.DescribeAccountLimits + -- ** AttachLoadBalancerToSubnets , module Network.AWS.ELB.AttachLoadBalancerToSubnets @@ -259,6 +268,12 @@ , lbcspPolicyName , lbcspCookieExpirationPeriod + -- ** Limit + , Limit + , limit + , lMax + , lName + -- ** Listener , Listener , listener @@ -369,37 +384,38 @@ , 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.Internal -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 +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.DescribeAccountLimits +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.Internal +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 diff --git a/gen/Network/AWS/ELB/AddTags.hs b/gen/Network/AWS/ELB/AddTags.hs --- a/gen/Network/AWS/ELB/AddTags.hs +++ b/gen/Network/AWS/ELB/AddTags.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.AddTags --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -23,7 +23,7 @@ -- -- 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 in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.AddTags ( @@ -41,12 +41,12 @@ , atrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for AddTags. -- @@ -54,10 +54,11 @@ -- -- /See:/ 'addTags' smart constructor. data AddTags = AddTags' - { _atLoadBalancerNames :: ![Text] - , _atTags :: !(List1 Tag) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _atLoadBalancerNames :: ![Text] + , _atTags :: !(List1 Tag) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,11 +70,9 @@ :: NonEmpty Tag -- ^ 'atTags' -> AddTags addTags pTags_ = - AddTags' - { _atLoadBalancerNames = mempty - , _atTags = _List1 # 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}) . _Coerce; @@ -89,9 +88,9 @@ = receiveXMLWrapper "AddTagsResult" (\ s h x -> AddTagsResponse' <$> (pure (fromEnum s))) -instance Hashable AddTags +instance Hashable AddTags where -instance NFData AddTags +instance NFData AddTags where instance ToHeaders AddTags where toHeaders = const mempty @@ -114,9 +113,10 @@ -- -- /See:/ 'addTagsResponse' smart constructor. newtype AddTagsResponse = AddTagsResponse' - { _atrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _atrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -126,12 +126,11 @@ :: Int -- ^ 'atrsResponseStatus' -> AddTagsResponse addTagsResponse pResponseStatus_ = - AddTagsResponse' - { _atrsResponseStatus = pResponseStatus_ - } + AddTagsResponse' {_atrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. atrsResponseStatus :: Lens' AddTagsResponse Int atrsResponseStatus = lens _atrsResponseStatus (\ s a -> s{_atrsResponseStatus = a}); -instance NFData AddTagsResponse +instance NFData AddTagsResponse where diff --git a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs --- a/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +++ b/gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Associates one or more security groups with your load balancer in a virtual private cloud (VPC). The specified security groups override the previously associated security groups. -- -- --- For more information, see in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.ApplySecurityGroupsToLoadBalancer ( @@ -40,12 +40,12 @@ , asgtlbrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for ApplySecurityGroupsToLoadBalancer. -- @@ -53,10 +53,11 @@ -- -- /See:/ 'applySecurityGroupsToLoadBalancer' smart constructor. data ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancer' - { _asgtlbLoadBalancerName :: !Text - , _asgtlbSecurityGroups :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _asgtlbLoadBalancerName :: !Text + , _asgtlbSecurityGroups :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplySecurityGroupsToLoadBalancer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,11 +69,10 @@ :: Text -- ^ 'asgtlbLoadBalancerName' -> ApplySecurityGroupsToLoadBalancer applySecurityGroupsToLoadBalancer pLoadBalancerName_ = - ApplySecurityGroupsToLoadBalancer' - { _asgtlbLoadBalancerName = pLoadBalancerName_ - , _asgtlbSecurityGroups = mempty - } + ApplySecurityGroupsToLoadBalancer' + {_asgtlbLoadBalancerName = pLoadBalancerName_, _asgtlbSecurityGroups = mempty} + -- | The name of the load balancer. asgtlbLoadBalancerName :: Lens' ApplySecurityGroupsToLoadBalancer Text asgtlbLoadBalancerName = lens _asgtlbLoadBalancerName (\ s a -> s{_asgtlbLoadBalancerName = a}); @@ -96,8 +96,10 @@ <*> (pure (fromEnum s))) instance Hashable ApplySecurityGroupsToLoadBalancer + where instance NFData ApplySecurityGroupsToLoadBalancer + where instance ToHeaders ApplySecurityGroupsToLoadBalancer where @@ -124,10 +126,11 @@ -- -- /See:/ 'applySecurityGroupsToLoadBalancerResponse' smart constructor. data ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse' - { _asgtlbrsSecurityGroups :: !(Maybe [Text]) - , _asgtlbrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _asgtlbrsSecurityGroups :: !(Maybe [Text]) + , _asgtlbrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ApplySecurityGroupsToLoadBalancerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -139,11 +142,12 @@ :: Int -- ^ 'asgtlbrsResponseStatus' -> ApplySecurityGroupsToLoadBalancerResponse applySecurityGroupsToLoadBalancerResponse pResponseStatus_ = - ApplySecurityGroupsToLoadBalancerResponse' - { _asgtlbrsSecurityGroups = Nothing - , _asgtlbrsResponseStatus = pResponseStatus_ - } + ApplySecurityGroupsToLoadBalancerResponse' + { _asgtlbrsSecurityGroups = Nothing + , _asgtlbrsResponseStatus = pResponseStatus_ + } + -- | The IDs of the security groups associated with the load balancer. asgtlbrsSecurityGroups :: Lens' ApplySecurityGroupsToLoadBalancerResponse [Text] asgtlbrsSecurityGroups = lens _asgtlbrsSecurityGroups (\ s a -> s{_asgtlbrsSecurityGroups = a}) . _Default . _Coerce; @@ -153,4 +157,5 @@ asgtlbrsResponseStatus = lens _asgtlbrsResponseStatus (\ s a -> s{_asgtlbrsResponseStatus = a}); instance NFData - ApplySecurityGroupsToLoadBalancerResponse + 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 @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.ELB.AttachLoadBalancerToSubnets --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Adds one or more subnets to the set of configured subnets for the specified load balancer. -- -- --- The load balancer evenly distributes requests across all registered subnets. For more information, see in the /Classic Load Balancers Guide/ . +-- The load balancer evenly distributes requests across all registered subnets. For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.AttachLoadBalancerToSubnets ( @@ -40,12 +40,12 @@ , albtsrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for AttachLoaBalancerToSubnets. -- @@ -53,10 +53,11 @@ -- -- /See:/ 'attachLoadBalancerToSubnets' smart constructor. data AttachLoadBalancerToSubnets = AttachLoadBalancerToSubnets' - { _albtsLoadBalancerName :: !Text - , _albtsSubnets :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _albtsLoadBalancerName :: !Text + , _albtsSubnets :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttachLoadBalancerToSubnets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,11 +69,10 @@ :: Text -- ^ 'albtsLoadBalancerName' -> AttachLoadBalancerToSubnets attachLoadBalancerToSubnets pLoadBalancerName_ = - AttachLoadBalancerToSubnets' - { _albtsLoadBalancerName = pLoadBalancerName_ - , _albtsSubnets = mempty - } + AttachLoadBalancerToSubnets' + {_albtsLoadBalancerName = pLoadBalancerName_, _albtsSubnets = mempty} + -- | The name of the load balancer. albtsLoadBalancerName :: Lens' AttachLoadBalancerToSubnets Text albtsLoadBalancerName = lens _albtsLoadBalancerName (\ s a -> s{_albtsLoadBalancerName = a}); @@ -94,9 +94,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable AttachLoadBalancerToSubnets +instance Hashable AttachLoadBalancerToSubnets where -instance NFData AttachLoadBalancerToSubnets +instance NFData AttachLoadBalancerToSubnets where instance ToHeaders AttachLoadBalancerToSubnets where toHeaders = const mempty @@ -119,10 +119,11 @@ -- -- /See:/ 'attachLoadBalancerToSubnetsResponse' smart constructor. data AttachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse' - { _albtsrsSubnets :: !(Maybe [Text]) - , _albtsrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _albtsrsSubnets :: !(Maybe [Text]) + , _albtsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AttachLoadBalancerToSubnetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -134,11 +135,10 @@ :: Int -- ^ 'albtsrsResponseStatus' -> AttachLoadBalancerToSubnetsResponse attachLoadBalancerToSubnetsResponse pResponseStatus_ = - AttachLoadBalancerToSubnetsResponse' - { _albtsrsSubnets = Nothing - , _albtsrsResponseStatus = pResponseStatus_ - } + AttachLoadBalancerToSubnetsResponse' + {_albtsrsSubnets = Nothing, _albtsrsResponseStatus = pResponseStatus_} + -- | The IDs of the subnets attached to the load balancer. albtsrsSubnets :: Lens' AttachLoadBalancerToSubnetsResponse [Text] albtsrsSubnets = lens _albtsrsSubnets (\ s a -> s{_albtsrsSubnets = a}) . _Default . _Coerce; @@ -148,3 +148,4 @@ albtsrsResponseStatus = lens _albtsrsResponseStatus (\ s a -> s{_albtsrsResponseStatus = a}); instance NFData AttachLoadBalancerToSubnetsResponse + where diff --git a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs --- a/gen/Network/AWS/ELB/ConfigureHealthCheck.hs +++ b/gen/Network/AWS/ELB/ConfigureHealthCheck.hs @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.ELB.ConfigureHealthCheck --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Specifies the health check settings to use when evaluating the health state of your EC2 instances. -- -- --- For more information, see in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.ConfigureHealthCheck ( @@ -40,12 +40,12 @@ , chcrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for ConfigureHealthCheck. -- @@ -53,10 +53,11 @@ -- -- /See:/ 'configureHealthCheck' smart constructor. data ConfigureHealthCheck = ConfigureHealthCheck' - { _chcLoadBalancerName :: !Text - , _chcHealthCheck :: !HealthCheck - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _chcLoadBalancerName :: !Text + , _chcHealthCheck :: !HealthCheck + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConfigureHealthCheck' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -69,11 +70,10 @@ -> HealthCheck -- ^ 'chcHealthCheck' -> ConfigureHealthCheck configureHealthCheck pLoadBalancerName_ pHealthCheck_ = - ConfigureHealthCheck' - { _chcLoadBalancerName = pLoadBalancerName_ - , _chcHealthCheck = pHealthCheck_ - } + ConfigureHealthCheck' + {_chcLoadBalancerName = pLoadBalancerName_, _chcHealthCheck = pHealthCheck_} + -- | The name of the load balancer. chcLoadBalancerName :: Lens' ConfigureHealthCheck Text chcLoadBalancerName = lens _chcLoadBalancerName (\ s a -> s{_chcLoadBalancerName = a}); @@ -92,9 +92,9 @@ ConfigureHealthCheckResponse' <$> (x .@? "HealthCheck") <*> (pure (fromEnum s))) -instance Hashable ConfigureHealthCheck +instance Hashable ConfigureHealthCheck where -instance NFData ConfigureHealthCheck +instance NFData ConfigureHealthCheck where instance ToHeaders ConfigureHealthCheck where toHeaders = const mempty @@ -116,10 +116,11 @@ -- -- /See:/ 'configureHealthCheckResponse' smart constructor. data ConfigureHealthCheckResponse = ConfigureHealthCheckResponse' - { _chcrsHealthCheck :: !(Maybe HealthCheck) - , _chcrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _chcrsHealthCheck :: !(Maybe HealthCheck) + , _chcrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -131,11 +132,10 @@ :: Int -- ^ 'chcrsResponseStatus' -> ConfigureHealthCheckResponse configureHealthCheckResponse pResponseStatus_ = - ConfigureHealthCheckResponse' - { _chcrsHealthCheck = Nothing - , _chcrsResponseStatus = pResponseStatus_ - } + ConfigureHealthCheckResponse' + {_chcrsHealthCheck = Nothing, _chcrsResponseStatus = pResponseStatus_} + -- | The updated health check. chcrsHealthCheck :: Lens' ConfigureHealthCheckResponse (Maybe HealthCheck) chcrsHealthCheck = lens _chcrsHealthCheck (\ s a -> s{_chcrsHealthCheck = a}); @@ -144,4 +144,4 @@ chcrsResponseStatus :: Lens' ConfigureHealthCheckResponse Int chcrsResponseStatus = lens _chcrsResponseStatus (\ s a -> s{_chcrsResponseStatus = a}); -instance NFData ConfigureHealthCheckResponse +instance NFData ConfigureHealthCheckResponse where diff --git a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs --- a/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +++ b/gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.CreateAppCookieStickinessPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -25,7 +25,7 @@ -- -- 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 in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.CreateAppCookieStickinessPolicy ( @@ -44,12 +44,12 @@ , cacsprsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for CreateAppCookieStickinessPolicy. -- @@ -57,11 +57,12 @@ -- -- /See:/ 'createAppCookieStickinessPolicy' smart constructor. data CreateAppCookieStickinessPolicy = CreateAppCookieStickinessPolicy' - { _cacspLoadBalancerName :: !Text - , _cacspPolicyName :: !Text - , _cacspCookieName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cacspLoadBalancerName :: !Text + , _cacspPolicyName :: !Text + , _cacspCookieName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateAppCookieStickinessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -77,12 +78,13 @@ -> Text -- ^ 'cacspCookieName' -> CreateAppCookieStickinessPolicy createAppCookieStickinessPolicy pLoadBalancerName_ pPolicyName_ pCookieName_ = - CreateAppCookieStickinessPolicy' - { _cacspLoadBalancerName = pLoadBalancerName_ - , _cacspPolicyName = pPolicyName_ - , _cacspCookieName = pCookieName_ - } + CreateAppCookieStickinessPolicy' + { _cacspLoadBalancerName = pLoadBalancerName_ + , _cacspPolicyName = pPolicyName_ + , _cacspCookieName = pCookieName_ + } + -- | The name of the load balancer. cacspLoadBalancerName :: Lens' CreateAppCookieStickinessPolicy Text cacspLoadBalancerName = lens _cacspLoadBalancerName (\ s a -> s{_cacspLoadBalancerName = a}); @@ -108,8 +110,9 @@ (pure (fromEnum s))) instance Hashable CreateAppCookieStickinessPolicy + where -instance NFData CreateAppCookieStickinessPolicy +instance NFData CreateAppCookieStickinessPolicy where instance ToHeaders CreateAppCookieStickinessPolicy where @@ -135,9 +138,10 @@ -- -- /See:/ 'createAppCookieStickinessPolicyResponse' smart constructor. newtype CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse' - { _cacsprsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cacsprsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -147,13 +151,14 @@ :: Int -- ^ 'cacsprsResponseStatus' -> CreateAppCookieStickinessPolicyResponse createAppCookieStickinessPolicyResponse pResponseStatus_ = - CreateAppCookieStickinessPolicyResponse' - { _cacsprsResponseStatus = pResponseStatus_ - } + CreateAppCookieStickinessPolicyResponse' + {_cacsprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. cacsprsResponseStatus :: Lens' CreateAppCookieStickinessPolicyResponse Int cacsprsResponseStatus = lens _cacsprsResponseStatus (\ s a -> s{_cacsprsResponseStatus = a}); instance NFData - CreateAppCookieStickinessPolicyResponse + CreateAppCookieStickinessPolicyResponse + where diff --git a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs --- a/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +++ b/gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.CreateLBCookieStickinessPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -25,7 +25,7 @@ -- -- 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 in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.CreateLBCookieStickinessPolicy ( @@ -44,12 +44,12 @@ , clbcsprsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for CreateLBCookieStickinessPolicy. -- @@ -57,11 +57,12 @@ -- -- /See:/ 'createLBCookieStickinessPolicy' smart constructor. data CreateLBCookieStickinessPolicy = CreateLBCookieStickinessPolicy' - { _clbcspCookieExpirationPeriod :: !(Maybe Integer) - , _clbcspLoadBalancerName :: !Text - , _clbcspPolicyName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _clbcspCookieExpirationPeriod :: !(Maybe Integer) + , _clbcspLoadBalancerName :: !Text + , _clbcspPolicyName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLBCookieStickinessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,12 +77,13 @@ -> Text -- ^ 'clbcspPolicyName' -> CreateLBCookieStickinessPolicy createLBCookieStickinessPolicy pLoadBalancerName_ pPolicyName_ = - CreateLBCookieStickinessPolicy' - { _clbcspCookieExpirationPeriod = Nothing - , _clbcspLoadBalancerName = pLoadBalancerName_ - , _clbcspPolicyName = 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 default value is 0, which indicates that the sticky session should last for the duration of the browser session. clbcspCookieExpirationPeriod :: Lens' CreateLBCookieStickinessPolicy (Maybe Integer) clbcspCookieExpirationPeriod = lens _clbcspCookieExpirationPeriod (\ s a -> s{_clbcspCookieExpirationPeriod = a}); @@ -107,8 +109,9 @@ (pure (fromEnum s))) instance Hashable CreateLBCookieStickinessPolicy + where -instance NFData CreateLBCookieStickinessPolicy +instance NFData CreateLBCookieStickinessPolicy where instance ToHeaders CreateLBCookieStickinessPolicy where @@ -134,9 +137,10 @@ -- -- /See:/ 'createLBCookieStickinessPolicyResponse' smart constructor. newtype CreateLBCookieStickinessPolicyResponse = CreateLBCookieStickinessPolicyResponse' - { _clbcsprsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _clbcsprsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -146,13 +150,14 @@ :: Int -- ^ 'clbcsprsResponseStatus' -> CreateLBCookieStickinessPolicyResponse createLBCookieStickinessPolicyResponse pResponseStatus_ = - CreateLBCookieStickinessPolicyResponse' - { _clbcsprsResponseStatus = pResponseStatus_ - } + CreateLBCookieStickinessPolicyResponse' + {_clbcsprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. clbcsprsResponseStatus :: Lens' CreateLBCookieStickinessPolicyResponse Int clbcsprsResponseStatus = lens _clbcsprsResponseStatus (\ s a -> s{_clbcsprsResponseStatus = a}); instance NFData - CreateLBCookieStickinessPolicyResponse + CreateLBCookieStickinessPolicyResponse + where diff --git a/gen/Network/AWS/ELB/CreateLoadBalancer.hs b/gen/Network/AWS/ELB/CreateLoadBalancer.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancer.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancer.hs @@ -12,20 +12,20 @@ -- | -- Module : Network.AWS.ELB.CreateLoadBalancer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a Classic load balancer. +-- Creates a Classic Load Balancer. -- -- -- You can add listeners, security groups, subnets, and tags when you create your load balancer, or you can add them later using 'CreateLoadBalancerListeners' , 'ApplySecurityGroupsToLoadBalancer' , 'AttachLoadBalancerToSubnets' , and 'AddTags' . -- -- To describe your current load balancers, see 'DescribeLoadBalancers' . When you are finished with a load balancer, you can delete it using 'DeleteLoadBalancer' . -- --- You can create up to 20 load balancers per region per account. You can request an increase for the number of load balancers for your account. For more information, see in the /Classic Load Balancers 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 in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.CreateLoadBalancer ( @@ -49,12 +49,12 @@ , clbrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for CreateLoadBalancer. -- @@ -62,15 +62,16 @@ -- -- /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) + { _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) + -- | Creates a value of 'CreateLoadBalancer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -83,25 +84,26 @@ -- -- * 'clbScheme' - The type of a load balancer. Valid only for load balancers in a VPC. By default, Elastic Load Balancing creates an Internet-facing load balancer with a DNS name that resolves to public IP addresses. For more information about Internet-facing and Internal load balancers, see in the /Elastic Load Balancing User Guide/ . Specify @internal@ to create a load balancer with a DNS name that resolves to private IP addresses. -- --- * 'clbTags' - A list of tags to assign to the load balancer. For more information about tagging your load balancer, see in the /Classic Load Balancers Guide/ . +-- * 'clbTags' - A list of tags to assign to the load balancer. For more information about tagging your load balancer, see in the /Classic Load Balancer Guide/ . -- -- * 'clbLoadBalancerName' - The name of the load balancer. This name must be unique within your set of load balancers for the region, must have a maximum of 32 characters, must contain only alphanumeric characters or hyphens, and cannot begin or end with a hyphen. -- --- * 'clbListeners' - The listeners. For more information, see in the /Classic Load Balancers Guide/ . +-- * 'clbListeners' - The listeners. For more information, see in the /Classic Load Balancer Guide/ . createLoadBalancer :: Text -- ^ 'clbLoadBalancerName' -> CreateLoadBalancer createLoadBalancer pLoadBalancerName_ = - CreateLoadBalancer' - { _clbSecurityGroups = Nothing - , _clbSubnets = Nothing - , _clbAvailabilityZones = Nothing - , _clbScheme = Nothing - , _clbTags = Nothing - , _clbLoadBalancerName = pLoadBalancerName_ - , _clbListeners = mempty - } + CreateLoadBalancer' + { _clbSecurityGroups = Nothing + , _clbSubnets = Nothing + , _clbAvailabilityZones = Nothing + , _clbScheme = Nothing + , _clbTags = Nothing + , _clbLoadBalancerName = pLoadBalancerName_ + , _clbListeners = mempty + } + -- | The IDs of the security groups to assign to the load balancer. clbSecurityGroups :: Lens' CreateLoadBalancer [Text] clbSecurityGroups = lens _clbSecurityGroups (\ s a -> s{_clbSecurityGroups = a}) . _Default . _Coerce; @@ -118,7 +120,7 @@ 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 in the /Classic Load Balancers Guide/ . +-- | A list of tags to assign to the load balancer. For more information about tagging your load balancer, see in the /Classic Load Balancer Guide/ . clbTags :: Lens' CreateLoadBalancer (Maybe (NonEmpty Tag)) clbTags = lens _clbTags (\ s a -> s{_clbTags = a}) . mapping _List1; @@ -126,7 +128,7 @@ clbLoadBalancerName :: Lens' CreateLoadBalancer Text clbLoadBalancerName = lens _clbLoadBalancerName (\ s a -> s{_clbLoadBalancerName = a}); --- | The listeners. For more information, see in the /Classic Load Balancers Guide/ . +-- | The listeners. For more information, see in the /Classic Load Balancer Guide/ . clbListeners :: Lens' CreateLoadBalancer [Listener] clbListeners = lens _clbListeners (\ s a -> s{_clbListeners = a}) . _Coerce; @@ -140,9 +142,9 @@ CreateLoadBalancerResponse' <$> (x .@? "DNSName") <*> (pure (fromEnum s))) -instance Hashable CreateLoadBalancer +instance Hashable CreateLoadBalancer where -instance NFData CreateLoadBalancer +instance NFData CreateLoadBalancer where instance ToHeaders CreateLoadBalancer where toHeaders = const mempty @@ -175,10 +177,11 @@ -- -- /See:/ 'createLoadBalancerResponse' smart constructor. data CreateLoadBalancerResponse = CreateLoadBalancerResponse' - { _clbrsDNSName :: !(Maybe Text) - , _clbrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _clbrsDNSName :: !(Maybe Text) + , _clbrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLoadBalancerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -190,11 +193,10 @@ :: Int -- ^ 'clbrsResponseStatus' -> CreateLoadBalancerResponse createLoadBalancerResponse pResponseStatus_ = - CreateLoadBalancerResponse' - { _clbrsDNSName = Nothing - , _clbrsResponseStatus = pResponseStatus_ - } + CreateLoadBalancerResponse' + {_clbrsDNSName = Nothing, _clbrsResponseStatus = pResponseStatus_} + -- | The DNS name of the load balancer. clbrsDNSName :: Lens' CreateLoadBalancerResponse (Maybe Text) clbrsDNSName = lens _clbrsDNSName (\ s a -> s{_clbrsDNSName = a}); @@ -203,4 +205,4 @@ clbrsResponseStatus :: Lens' CreateLoadBalancerResponse Int clbrsResponseStatus = lens _clbrsResponseStatus (\ s a -> s{_clbrsResponseStatus = a}); -instance NFData CreateLoadBalancerResponse +instance NFData CreateLoadBalancerResponse where diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.ELB.CreateLoadBalancerListeners --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- Creates one or more listeners for the specified load balancer. If a listener with the specified port does not already exist, it is created; otherwise, the properties of the new listener must match the properties of the existing listener. -- -- --- For more information, see in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.CreateLoadBalancerListeners ( @@ -39,12 +39,12 @@ , clblrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for CreateLoadBalancerListeners. -- @@ -52,10 +52,11 @@ -- -- /See:/ 'createLoadBalancerListeners' smart constructor. data CreateLoadBalancerListeners = CreateLoadBalancerListeners' - { _clblLoadBalancerName :: !Text - , _clblListeners :: ![Listener] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _clblLoadBalancerName :: !Text + , _clblListeners :: ![Listener] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLoadBalancerListeners' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ :: Text -- ^ 'clblLoadBalancerName' -> CreateLoadBalancerListeners createLoadBalancerListeners pLoadBalancerName_ = - CreateLoadBalancerListeners' - { _clblLoadBalancerName = pLoadBalancerName_ - , _clblListeners = mempty - } + CreateLoadBalancerListeners' + {_clblLoadBalancerName = pLoadBalancerName_, _clblListeners = mempty} + -- | The name of the load balancer. clblLoadBalancerName :: Lens' CreateLoadBalancerListeners Text clblLoadBalancerName = lens _clblLoadBalancerName (\ s a -> s{_clblLoadBalancerName = a}); @@ -91,9 +91,9 @@ CreateLoadBalancerListenersResponse' <$> (pure (fromEnum s))) -instance Hashable CreateLoadBalancerListeners +instance Hashable CreateLoadBalancerListeners where -instance NFData CreateLoadBalancerListeners +instance NFData CreateLoadBalancerListeners where instance ToHeaders CreateLoadBalancerListeners where toHeaders = const mempty @@ -116,9 +116,10 @@ -- -- /See:/ 'createLoadBalancerListenersResponse' smart constructor. newtype CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse' - { _clblrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _clblrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -128,12 +129,13 @@ :: Int -- ^ 'clblrsResponseStatus' -> CreateLoadBalancerListenersResponse createLoadBalancerListenersResponse pResponseStatus_ = - CreateLoadBalancerListenersResponse' - { _clblrsResponseStatus = pResponseStatus_ - } + CreateLoadBalancerListenersResponse' + {_clblrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. clblrsResponseStatus :: Lens' CreateLoadBalancerListenersResponse Int clblrsResponseStatus = lens _clblrsResponseStatus (\ s a -> s{_clblrsResponseStatus = a}); instance NFData CreateLoadBalancerListenersResponse + where diff --git a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs --- a/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +++ b/gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.CreateLoadBalancerPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,12 +41,12 @@ , clbprsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for CreateLoadBalancerPolicy. -- @@ -54,12 +54,13 @@ -- -- /See:/ 'createLoadBalancerPolicy' smart constructor. data CreateLoadBalancerPolicy = CreateLoadBalancerPolicy' - { _clbpPolicyAttributes :: !(Maybe [PolicyAttribute]) - , _clbpLoadBalancerName :: !Text - , _clbpPolicyName :: !Text - , _clbpPolicyTypeName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _clbpPolicyAttributes :: !(Maybe [PolicyAttribute]) + , _clbpLoadBalancerName :: !Text + , _clbpPolicyName :: !Text + , _clbpPolicyTypeName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateLoadBalancerPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -77,13 +78,14 @@ -> Text -- ^ 'clbpPolicyTypeName' -> CreateLoadBalancerPolicy createLoadBalancerPolicy pLoadBalancerName_ pPolicyName_ pPolicyTypeName_ = - CreateLoadBalancerPolicy' - { _clbpPolicyAttributes = Nothing - , _clbpLoadBalancerName = pLoadBalancerName_ - , _clbpPolicyName = pPolicyName_ - , _clbpPolicyTypeName = pPolicyTypeName_ - } + CreateLoadBalancerPolicy' + { _clbpPolicyAttributes = Nothing + , _clbpLoadBalancerName = pLoadBalancerName_ + , _clbpPolicyName = pPolicyName_ + , _clbpPolicyTypeName = pPolicyTypeName_ + } + -- | The policy attributes. clbpPolicyAttributes :: Lens' CreateLoadBalancerPolicy [PolicyAttribute] clbpPolicyAttributes = lens _clbpPolicyAttributes (\ s a -> s{_clbpPolicyAttributes = a}) . _Default . _Coerce; @@ -110,9 +112,9 @@ CreateLoadBalancerPolicyResponse' <$> (pure (fromEnum s))) -instance Hashable CreateLoadBalancerPolicy +instance Hashable CreateLoadBalancerPolicy where -instance NFData CreateLoadBalancerPolicy +instance NFData CreateLoadBalancerPolicy where instance ToHeaders CreateLoadBalancerPolicy where toHeaders = const mempty @@ -139,9 +141,10 @@ -- -- /See:/ 'createLoadBalancerPolicyResponse' smart constructor. newtype CreateLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse' - { _clbprsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _clbprsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -151,12 +154,12 @@ :: Int -- ^ 'clbprsResponseStatus' -> CreateLoadBalancerPolicyResponse createLoadBalancerPolicyResponse pResponseStatus_ = - CreateLoadBalancerPolicyResponse' - { _clbprsResponseStatus = pResponseStatus_ - } + CreateLoadBalancerPolicyResponse' {_clbprsResponseStatus = pResponseStatus_} + -- | -- | The response status code. clbprsResponseStatus :: Lens' CreateLoadBalancerPolicyResponse Int clbprsResponseStatus = lens _clbprsResponseStatus (\ s a -> s{_clbprsResponseStatus = a}); instance NFData CreateLoadBalancerPolicyResponse + where diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancer.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DeleteLoadBalancer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,12 +40,12 @@ , drsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DeleteLoadBalancer. -- @@ -53,9 +53,10 @@ -- -- /See:/ 'deleteLoadBalancer' smart constructor. newtype DeleteLoadBalancer = DeleteLoadBalancer' - { _dlbLoadBalancerName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbLoadBalancerName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteLoadBalancer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,10 +66,9 @@ :: Text -- ^ 'dlbLoadBalancerName' -> DeleteLoadBalancer deleteLoadBalancer pLoadBalancerName_ = - DeleteLoadBalancer' - { _dlbLoadBalancerName = pLoadBalancerName_ - } + DeleteLoadBalancer' {_dlbLoadBalancerName = pLoadBalancerName_} + -- | The name of the load balancer. dlbLoadBalancerName :: Lens' DeleteLoadBalancer Text dlbLoadBalancerName = lens _dlbLoadBalancerName (\ s a -> s{_dlbLoadBalancerName = a}); @@ -82,9 +82,9 @@ (\ s h x -> DeleteLoadBalancerResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteLoadBalancer +instance Hashable DeleteLoadBalancer where -instance NFData DeleteLoadBalancer +instance NFData DeleteLoadBalancer where instance ToHeaders DeleteLoadBalancer where toHeaders = const mempty @@ -105,9 +105,10 @@ -- -- /See:/ 'deleteLoadBalancerResponse' smart constructor. newtype DeleteLoadBalancerResponse = DeleteLoadBalancerResponse' - { _drsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _drsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -117,12 +118,11 @@ :: Int -- ^ 'drsResponseStatus' -> DeleteLoadBalancerResponse deleteLoadBalancerResponse pResponseStatus_ = - DeleteLoadBalancerResponse' - { _drsResponseStatus = pResponseStatus_ - } + DeleteLoadBalancerResponse' {_drsResponseStatus = pResponseStatus_} + -- | -- | The response status code. drsResponseStatus :: Lens' DeleteLoadBalancerResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteLoadBalancerResponse +instance NFData DeleteLoadBalancerResponse where diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DeleteLoadBalancerListeners --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , dlblrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DeleteLoadBalancerListeners. -- @@ -50,10 +50,11 @@ -- -- /See:/ 'deleteLoadBalancerListeners' smart constructor. data DeleteLoadBalancerListeners = DeleteLoadBalancerListeners' - { _dlblLoadBalancerName :: !Text - , _dlblLoadBalancerPorts :: ![Int] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlblLoadBalancerName :: !Text + , _dlblLoadBalancerPorts :: ![Int] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteLoadBalancerListeners' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,11 +66,10 @@ :: Text -- ^ 'dlblLoadBalancerName' -> DeleteLoadBalancerListeners deleteLoadBalancerListeners pLoadBalancerName_ = - DeleteLoadBalancerListeners' - { _dlblLoadBalancerName = pLoadBalancerName_ - , _dlblLoadBalancerPorts = mempty - } + DeleteLoadBalancerListeners' + {_dlblLoadBalancerName = pLoadBalancerName_, _dlblLoadBalancerPorts = mempty} + -- | The name of the load balancer. dlblLoadBalancerName :: Lens' DeleteLoadBalancerListeners Text dlblLoadBalancerName = lens _dlblLoadBalancerName (\ s a -> s{_dlblLoadBalancerName = a}); @@ -89,9 +89,9 @@ DeleteLoadBalancerListenersResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteLoadBalancerListeners +instance Hashable DeleteLoadBalancerListeners where -instance NFData DeleteLoadBalancerListeners +instance NFData DeleteLoadBalancerListeners where instance ToHeaders DeleteLoadBalancerListeners where toHeaders = const mempty @@ -115,9 +115,10 @@ -- -- /See:/ 'deleteLoadBalancerListenersResponse' smart constructor. newtype DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse' - { _dlblrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlblrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -127,12 +128,13 @@ :: Int -- ^ 'dlblrsResponseStatus' -> DeleteLoadBalancerListenersResponse deleteLoadBalancerListenersResponse pResponseStatus_ = - DeleteLoadBalancerListenersResponse' - { _dlblrsResponseStatus = pResponseStatus_ - } + DeleteLoadBalancerListenersResponse' + {_dlblrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. dlblrsResponseStatus :: Lens' DeleteLoadBalancerListenersResponse Int dlblrsResponseStatus = lens _dlblrsResponseStatus (\ s a -> s{_dlblrsResponseStatus = a}); instance NFData DeleteLoadBalancerListenersResponse + where diff --git a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs --- a/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +++ b/gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DeleteLoadBalancerPolicy --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , delrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DeleteLoadBalancerPolicy. -- @@ -50,10 +50,11 @@ -- -- /See:/ 'deleteLoadBalancerPolicy' smart constructor. data DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicy' - { _dLoadBalancerName :: !Text - , _dPolicyName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _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. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,11 +67,10 @@ -> Text -- ^ 'dPolicyName' -> DeleteLoadBalancerPolicy deleteLoadBalancerPolicy pLoadBalancerName_ pPolicyName_ = - DeleteLoadBalancerPolicy' - { _dLoadBalancerName = pLoadBalancerName_ - , _dPolicyName = pPolicyName_ - } + DeleteLoadBalancerPolicy' + {_dLoadBalancerName = pLoadBalancerName_, _dPolicyName = pPolicyName_} + -- | The name of the load balancer. dLoadBalancerName :: Lens' DeleteLoadBalancerPolicy Text dLoadBalancerName = lens _dLoadBalancerName (\ s a -> s{_dLoadBalancerName = a}); @@ -89,9 +89,9 @@ DeleteLoadBalancerPolicyResponse' <$> (pure (fromEnum s))) -instance Hashable DeleteLoadBalancerPolicy +instance Hashable DeleteLoadBalancerPolicy where -instance NFData DeleteLoadBalancerPolicy +instance NFData DeleteLoadBalancerPolicy where instance ToHeaders DeleteLoadBalancerPolicy where toHeaders = const mempty @@ -114,9 +114,10 @@ -- -- /See:/ 'deleteLoadBalancerPolicyResponse' smart constructor. newtype DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse' - { _delrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _delrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -126,12 +127,12 @@ :: Int -- ^ 'delrsResponseStatus' -> DeleteLoadBalancerPolicyResponse deleteLoadBalancerPolicyResponse pResponseStatus_ = - DeleteLoadBalancerPolicyResponse' - { _delrsResponseStatus = pResponseStatus_ - } + DeleteLoadBalancerPolicyResponse' {_delrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteLoadBalancerPolicyResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); instance NFData DeleteLoadBalancerPolicyResponse + where diff --git a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs --- a/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DeregisterInstancesFromLoadBalancer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -23,7 +23,7 @@ -- -- You can use 'DescribeLoadBalancers' to verify that the instance is deregistered from the load balancer. -- --- For more information, see in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.DeregisterInstancesFromLoadBalancer ( @@ -42,12 +42,12 @@ , diflbrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DeregisterInstancesFromLoadBalancer. -- @@ -55,10 +55,11 @@ -- -- /See:/ 'deregisterInstancesFromLoadBalancer' smart constructor. data DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancer' - { _diflbLoadBalancerName :: !Text - , _diflbInstances :: ![Instance] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _diflbLoadBalancerName :: !Text + , _diflbInstances :: ![Instance] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeregisterInstancesFromLoadBalancer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,11 +71,10 @@ :: Text -- ^ 'diflbLoadBalancerName' -> DeregisterInstancesFromLoadBalancer deregisterInstancesFromLoadBalancer pLoadBalancerName_ = - DeregisterInstancesFromLoadBalancer' - { _diflbLoadBalancerName = pLoadBalancerName_ - , _diflbInstances = mempty - } + DeregisterInstancesFromLoadBalancer' + {_diflbLoadBalancerName = pLoadBalancerName_, _diflbInstances = mempty} + -- | The name of the load balancer. diflbLoadBalancerName :: Lens' DeregisterInstancesFromLoadBalancer Text diflbLoadBalancerName = lens _diflbLoadBalancerName (\ s a -> s{_diflbLoadBalancerName = a}); @@ -84,7 +84,8 @@ diflbInstances = lens _diflbInstances (\ s a -> s{_diflbInstances = a}) . _Coerce; instance AWSRequest - DeregisterInstancesFromLoadBalancer where + DeregisterInstancesFromLoadBalancer + where type Rs DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancerResponse request = postQuery elb @@ -98,11 +99,14 @@ <*> (pure (fromEnum s))) instance Hashable DeregisterInstancesFromLoadBalancer + where instance NFData DeregisterInstancesFromLoadBalancer + where instance ToHeaders - DeregisterInstancesFromLoadBalancer where + DeregisterInstancesFromLoadBalancer + where toHeaders = const mempty instance ToPath DeregisterInstancesFromLoadBalancer @@ -126,10 +130,11 @@ -- -- /See:/ 'deregisterInstancesFromLoadBalancerResponse' smart constructor. data DeregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse' - { _diflbrsInstances :: !(Maybe [Instance]) - , _diflbrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _diflbrsInstances :: !(Maybe [Instance]) + , _diflbrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeregisterInstancesFromLoadBalancerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -141,11 +146,10 @@ :: Int -- ^ 'diflbrsResponseStatus' -> DeregisterInstancesFromLoadBalancerResponse deregisterInstancesFromLoadBalancerResponse pResponseStatus_ = - DeregisterInstancesFromLoadBalancerResponse' - { _diflbrsInstances = Nothing - , _diflbrsResponseStatus = pResponseStatus_ - } + DeregisterInstancesFromLoadBalancerResponse' + {_diflbrsInstances = Nothing, _diflbrsResponseStatus = pResponseStatus_} + -- | The remaining instances registered with the load balancer. diflbrsInstances :: Lens' DeregisterInstancesFromLoadBalancerResponse [Instance] diflbrsInstances = lens _diflbrsInstances (\ s a -> s{_diflbrsInstances = a}) . _Default . _Coerce; @@ -155,4 +159,5 @@ diflbrsResponseStatus = lens _diflbrsResponseStatus (\ s a -> s{_diflbrsResponseStatus = a}); instance NFData - DeregisterInstancesFromLoadBalancerResponse + DeregisterInstancesFromLoadBalancerResponse + where diff --git a/gen/Network/AWS/ELB/DescribeAccountLimits.hs b/gen/Network/AWS/ELB/DescribeAccountLimits.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/ELB/DescribeAccountLimits.hs @@ -0,0 +1,149 @@ +{-# 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.DescribeAccountLimits +-- Copyright : (c) 2013-2017 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the current Elastic Load Balancing resource limits for your AWS account. +-- +-- +-- For more information, see in the /Classic Load Balancer Guide/ . +-- +module Network.AWS.ELB.DescribeAccountLimits + ( + -- * Creating a Request + describeAccountLimits + , DescribeAccountLimits + -- * Request Lenses + , dalMarker + , dalPageSize + + -- * Destructuring the Response + , describeAccountLimitsResponse + , DescribeAccountLimitsResponse + -- * Response Lenses + , dalrsLimits + , dalrsNextMarker + , dalrsResponseStatus + ) where + +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeAccountLimits' smart constructor. +data DescribeAccountLimits = DescribeAccountLimits' + { _dalMarker :: !(Maybe Text) + , _dalPageSize :: !(Maybe Nat) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeAccountLimits' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dalMarker' - The marker for the next set of results. (You received this marker from a previous call.) +-- +-- * 'dalPageSize' - The maximum number of results to return with this call. +describeAccountLimits + :: DescribeAccountLimits +describeAccountLimits = + DescribeAccountLimits' {_dalMarker = Nothing, _dalPageSize = Nothing} + + +-- | The marker for the next set of results. (You received this marker from a previous call.) +dalMarker :: Lens' DescribeAccountLimits (Maybe Text) +dalMarker = lens _dalMarker (\ s a -> s{_dalMarker = a}); + +-- | The maximum number of results to return with this call. +dalPageSize :: Lens' DescribeAccountLimits (Maybe Natural) +dalPageSize = lens _dalPageSize (\ s a -> s{_dalPageSize = a}) . mapping _Nat; + +instance AWSRequest DescribeAccountLimits where + type Rs DescribeAccountLimits = + DescribeAccountLimitsResponse + request = postQuery elb + response + = receiveXMLWrapper "DescribeAccountLimitsResult" + (\ s h x -> + DescribeAccountLimitsResponse' <$> + (x .@? "Limits" .!@ mempty >>= + may (parseXMLList "member")) + <*> (x .@? "NextMarker") + <*> (pure (fromEnum s))) + +instance Hashable DescribeAccountLimits where + +instance NFData DescribeAccountLimits where + +instance ToHeaders DescribeAccountLimits where + toHeaders = const mempty + +instance ToPath DescribeAccountLimits where + toPath = const "/" + +instance ToQuery DescribeAccountLimits where + toQuery DescribeAccountLimits'{..} + = mconcat + ["Action" =: ("DescribeAccountLimits" :: ByteString), + "Version" =: ("2012-06-01" :: ByteString), + "Marker" =: _dalMarker, "PageSize" =: _dalPageSize] + +-- | /See:/ 'describeAccountLimitsResponse' smart constructor. +data DescribeAccountLimitsResponse = DescribeAccountLimitsResponse' + { _dalrsLimits :: !(Maybe [Limit]) + , _dalrsNextMarker :: !(Maybe Text) + , _dalrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeAccountLimitsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dalrsLimits' - Information about the limits. +-- +-- * 'dalrsNextMarker' - The marker to use when requesting the next set of results. If there are no additional results, the string is empty. +-- +-- * 'dalrsResponseStatus' - -- | The response status code. +describeAccountLimitsResponse + :: Int -- ^ 'dalrsResponseStatus' + -> DescribeAccountLimitsResponse +describeAccountLimitsResponse pResponseStatus_ = + DescribeAccountLimitsResponse' + { _dalrsLimits = Nothing + , _dalrsNextMarker = Nothing + , _dalrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the limits. +dalrsLimits :: Lens' DescribeAccountLimitsResponse [Limit] +dalrsLimits = lens _dalrsLimits (\ s a -> s{_dalrsLimits = a}) . _Default . _Coerce; + +-- | The marker to use when requesting the next set of results. If there are no additional results, the string is empty. +dalrsNextMarker :: Lens' DescribeAccountLimitsResponse (Maybe Text) +dalrsNextMarker = lens _dalrsNextMarker (\ s a -> s{_dalrsNextMarker = a}); + +-- | -- | The response status code. +dalrsResponseStatus :: Lens' DescribeAccountLimitsResponse Int +dalrsResponseStatus = lens _dalrsResponseStatus (\ s a -> s{_dalrsResponseStatus = a}); + +instance NFData DescribeAccountLimitsResponse where diff --git a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs --- a/gen/Network/AWS/ELB/DescribeInstanceHealth.hs +++ b/gen/Network/AWS/ELB/DescribeInstanceHealth.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DescribeInstanceHealth --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -38,12 +38,12 @@ , dihrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DescribeInstanceHealth. -- @@ -51,10 +51,11 @@ -- -- /See:/ 'describeInstanceHealth' smart constructor. data DescribeInstanceHealth = DescribeInstanceHealth' - { _dihInstances :: !(Maybe [Instance]) - , _dihLoadBalancerName :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dihInstances :: !(Maybe [Instance]) + , _dihLoadBalancerName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeInstanceHealth' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -66,11 +67,10 @@ :: Text -- ^ 'dihLoadBalancerName' -> DescribeInstanceHealth describeInstanceHealth pLoadBalancerName_ = - DescribeInstanceHealth' - { _dihInstances = Nothing - , _dihLoadBalancerName = pLoadBalancerName_ - } + DescribeInstanceHealth' + {_dihInstances = Nothing, _dihLoadBalancerName = pLoadBalancerName_} + -- | The IDs of the instances. dihInstances :: Lens' DescribeInstanceHealth [Instance] dihInstances = lens _dihInstances (\ s a -> s{_dihInstances = a}) . _Default . _Coerce; @@ -91,9 +91,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable DescribeInstanceHealth +instance Hashable DescribeInstanceHealth where -instance NFData DescribeInstanceHealth +instance NFData DescribeInstanceHealth where instance ToHeaders DescribeInstanceHealth where toHeaders = const mempty @@ -117,10 +117,11 @@ -- -- /See:/ 'describeInstanceHealthResponse' smart constructor. data DescribeInstanceHealthResponse = DescribeInstanceHealthResponse' - { _dihrsInstanceStates :: !(Maybe [InstanceState]) - , _dihrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dihrsInstanceStates :: !(Maybe [InstanceState]) + , _dihrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeInstanceHealthResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -132,11 +133,10 @@ :: Int -- ^ 'dihrsResponseStatus' -> DescribeInstanceHealthResponse describeInstanceHealthResponse pResponseStatus_ = - DescribeInstanceHealthResponse' - { _dihrsInstanceStates = Nothing - , _dihrsResponseStatus = pResponseStatus_ - } + DescribeInstanceHealthResponse' + {_dihrsInstanceStates = Nothing, _dihrsResponseStatus = pResponseStatus_} + -- | Information about the health of the instances. dihrsInstanceStates :: Lens' DescribeInstanceHealthResponse [InstanceState] dihrsInstanceStates = lens _dihrsInstanceStates (\ s a -> s{_dihrsInstanceStates = a}) . _Default . _Coerce; @@ -145,4 +145,4 @@ dihrsResponseStatus :: Lens' DescribeInstanceHealthResponse Int dihrsResponseStatus = lens _dihrsResponseStatus (\ s a -> s{_dihrsResponseStatus = a}); -instance NFData DescribeInstanceHealthResponse +instance NFData DescribeInstanceHealthResponse where diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DescribeLoadBalancerAttributes --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , dlbarsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DescribeLoadBalancerAttributes. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'describeLoadBalancerAttributes' smart constructor. newtype DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes' - { _dlbaLoadBalancerName :: Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbaLoadBalancerName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLoadBalancerAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,10 +63,9 @@ :: Text -- ^ 'dlbaLoadBalancerName' -> DescribeLoadBalancerAttributes describeLoadBalancerAttributes pLoadBalancerName_ = - DescribeLoadBalancerAttributes' - { _dlbaLoadBalancerName = pLoadBalancerName_ - } + DescribeLoadBalancerAttributes' {_dlbaLoadBalancerName = pLoadBalancerName_} + -- | The name of the load balancer. dlbaLoadBalancerName :: Lens' DescribeLoadBalancerAttributes Text dlbaLoadBalancerName = lens _dlbaLoadBalancerName (\ s a -> s{_dlbaLoadBalancerName = a}); @@ -84,8 +84,9 @@ (pure (fromEnum s))) instance Hashable DescribeLoadBalancerAttributes + where -instance NFData DescribeLoadBalancerAttributes +instance NFData DescribeLoadBalancerAttributes where instance ToHeaders DescribeLoadBalancerAttributes where @@ -108,10 +109,11 @@ -- -- /See:/ 'describeLoadBalancerAttributesResponse' smart constructor. data DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse' - { _dlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes) - , _dlbarsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes) + , _dlbarsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -123,11 +125,12 @@ :: Int -- ^ 'dlbarsResponseStatus' -> DescribeLoadBalancerAttributesResponse describeLoadBalancerAttributesResponse pResponseStatus_ = - DescribeLoadBalancerAttributesResponse' - { _dlbarsLoadBalancerAttributes = Nothing - , _dlbarsResponseStatus = pResponseStatus_ - } + DescribeLoadBalancerAttributesResponse' + { _dlbarsLoadBalancerAttributes = Nothing + , _dlbarsResponseStatus = pResponseStatus_ + } + -- | Information about the load balancer attributes. dlbarsLoadBalancerAttributes :: Lens' DescribeLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes) dlbarsLoadBalancerAttributes = lens _dlbarsLoadBalancerAttributes (\ s a -> s{_dlbarsLoadBalancerAttributes = a}); @@ -137,4 +140,5 @@ dlbarsResponseStatus = lens _dlbarsResponseStatus (\ s a -> s{_dlbarsResponseStatus = a}); instance NFData - DescribeLoadBalancerAttributesResponse + DescribeLoadBalancerAttributesResponse + where diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DescribeLoadBalancerPolicies --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,12 +40,12 @@ , dlbprsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DescribeLoadBalancerPolicies. -- @@ -53,10 +53,11 @@ -- -- /See:/ 'describeLoadBalancerPolicies' smart constructor. data DescribeLoadBalancerPolicies = DescribeLoadBalancerPolicies' - { _dlbpPolicyNames :: !(Maybe [Text]) - , _dlbpLoadBalancerName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbpPolicyNames :: !(Maybe [Text]) + , _dlbpLoadBalancerName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLoadBalancerPolicies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -67,11 +68,10 @@ describeLoadBalancerPolicies :: DescribeLoadBalancerPolicies describeLoadBalancerPolicies = - DescribeLoadBalancerPolicies' - { _dlbpPolicyNames = Nothing - , _dlbpLoadBalancerName = Nothing - } + DescribeLoadBalancerPolicies' + {_dlbpPolicyNames = Nothing, _dlbpLoadBalancerName = Nothing} + -- | The names of the policies. dlbpPolicyNames :: Lens' DescribeLoadBalancerPolicies [Text] dlbpPolicyNames = lens _dlbpPolicyNames (\ s a -> s{_dlbpPolicyNames = a}) . _Default . _Coerce; @@ -94,9 +94,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable DescribeLoadBalancerPolicies +instance Hashable DescribeLoadBalancerPolicies where -instance NFData DescribeLoadBalancerPolicies +instance NFData DescribeLoadBalancerPolicies where instance ToHeaders DescribeLoadBalancerPolicies where toHeaders = const mempty @@ -120,10 +120,11 @@ -- -- /See:/ 'describeLoadBalancerPoliciesResponse' smart constructor. data DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse' - { _dlbprsPolicyDescriptions :: !(Maybe [PolicyDescription]) - , _dlbprsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbprsPolicyDescriptions :: !(Maybe [PolicyDescription]) + , _dlbprsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLoadBalancerPoliciesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -135,11 +136,12 @@ :: Int -- ^ 'dlbprsResponseStatus' -> DescribeLoadBalancerPoliciesResponse describeLoadBalancerPoliciesResponse pResponseStatus_ = - DescribeLoadBalancerPoliciesResponse' - { _dlbprsPolicyDescriptions = Nothing - , _dlbprsResponseStatus = pResponseStatus_ - } + DescribeLoadBalancerPoliciesResponse' + { _dlbprsPolicyDescriptions = Nothing + , _dlbprsResponseStatus = pResponseStatus_ + } + -- | Information about the policies. dlbprsPolicyDescriptions :: Lens' DescribeLoadBalancerPoliciesResponse [PolicyDescription] dlbprsPolicyDescriptions = lens _dlbprsPolicyDescriptions (\ s a -> s{_dlbprsPolicyDescriptions = a}) . _Default . _Coerce; @@ -149,3 +151,4 @@ dlbprsResponseStatus = lens _dlbprsResponseStatus (\ s a -> s{_dlbprsResponseStatus = a}); instance NFData DescribeLoadBalancerPoliciesResponse + where diff --git a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs --- a/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +++ b/gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DescribeLoadBalancerPolicyTypes --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -41,12 +41,12 @@ , dlbptrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DescribeLoadBalancerPolicyTypes. -- @@ -54,9 +54,10 @@ -- -- /See:/ 'describeLoadBalancerPolicyTypes' smart constructor. newtype DescribeLoadBalancerPolicyTypes = DescribeLoadBalancerPolicyTypes' - { _dlbptPolicyTypeNames :: Maybe [Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbptPolicyTypeNames :: Maybe [Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLoadBalancerPolicyTypes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,10 +66,9 @@ describeLoadBalancerPolicyTypes :: DescribeLoadBalancerPolicyTypes describeLoadBalancerPolicyTypes = - DescribeLoadBalancerPolicyTypes' - { _dlbptPolicyTypeNames = Nothing - } + 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}) . _Default . _Coerce; @@ -88,8 +88,9 @@ <*> (pure (fromEnum s))) instance Hashable DescribeLoadBalancerPolicyTypes + where -instance NFData DescribeLoadBalancerPolicyTypes +instance NFData DescribeLoadBalancerPolicyTypes where instance ToHeaders DescribeLoadBalancerPolicyTypes where @@ -115,10 +116,11 @@ -- -- /See:/ 'describeLoadBalancerPolicyTypesResponse' smart constructor. data DescribeLoadBalancerPolicyTypesResponse = DescribeLoadBalancerPolicyTypesResponse' - { _dlbptrsPolicyTypeDescriptions :: !(Maybe [PolicyTypeDescription]) - , _dlbptrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbptrsPolicyTypeDescriptions :: !(Maybe [PolicyTypeDescription]) + , _dlbptrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLoadBalancerPolicyTypesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -130,11 +132,12 @@ :: Int -- ^ 'dlbptrsResponseStatus' -> DescribeLoadBalancerPolicyTypesResponse describeLoadBalancerPolicyTypesResponse pResponseStatus_ = - DescribeLoadBalancerPolicyTypesResponse' - { _dlbptrsPolicyTypeDescriptions = Nothing - , _dlbptrsResponseStatus = pResponseStatus_ - } + DescribeLoadBalancerPolicyTypesResponse' + { _dlbptrsPolicyTypeDescriptions = Nothing + , _dlbptrsResponseStatus = pResponseStatus_ + } + -- | Information about the policy types. dlbptrsPolicyTypeDescriptions :: Lens' DescribeLoadBalancerPolicyTypesResponse [PolicyTypeDescription] dlbptrsPolicyTypeDescriptions = lens _dlbptrsPolicyTypeDescriptions (\ s a -> s{_dlbptrsPolicyTypeDescriptions = a}) . _Default . _Coerce; @@ -144,4 +147,5 @@ dlbptrsResponseStatus = lens _dlbptrsResponseStatus (\ s a -> s{_dlbptrsResponseStatus = a}); instance NFData - DescribeLoadBalancerPolicyTypesResponse + 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 @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DescribeLoadBalancers --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -42,13 +42,13 @@ , dlbrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Pager -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Pager +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DescribeLoadBalancers. -- @@ -56,11 +56,12 @@ -- -- /See:/ 'describeLoadBalancers' smart constructor. data DescribeLoadBalancers = DescribeLoadBalancers' - { _dlbMarker :: !(Maybe Text) - , _dlbPageSize :: !(Maybe Nat) - , _dlbLoadBalancerNames :: !(Maybe [Text]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbMarker :: !(Maybe Text) + , _dlbPageSize :: !(Maybe Nat) + , _dlbLoadBalancerNames :: !(Maybe [Text]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeLoadBalancers' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,12 +74,13 @@ describeLoadBalancers :: DescribeLoadBalancers describeLoadBalancers = - DescribeLoadBalancers' - { _dlbMarker = Nothing - , _dlbPageSize = Nothing - , _dlbLoadBalancerNames = Nothing - } + DescribeLoadBalancers' + { _dlbMarker = Nothing + , _dlbPageSize = Nothing + , _dlbLoadBalancerNames = Nothing + } + -- | The marker for the next set of results. (You received this marker from a previous call.) dlbMarker :: Lens' DescribeLoadBalancers (Maybe Text) dlbMarker = lens _dlbMarker (\ s a -> s{_dlbMarker = a}); @@ -112,9 +114,9 @@ <*> (x .@? "NextMarker") <*> (pure (fromEnum s))) -instance Hashable DescribeLoadBalancers +instance Hashable DescribeLoadBalancers where -instance NFData DescribeLoadBalancers +instance NFData DescribeLoadBalancers where instance ToHeaders DescribeLoadBalancers where toHeaders = const mempty @@ -138,11 +140,12 @@ -- -- /See:/ 'describeLoadBalancersResponse' smart constructor. data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse' - { _dlbrsLoadBalancerDescriptions :: !(Maybe [LoadBalancerDescription]) - , _dlbrsNextMarker :: !(Maybe Text) - , _dlbrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbrsLoadBalancerDescriptions :: !(Maybe [LoadBalancerDescription]) + , _dlbrsNextMarker :: !(Maybe Text) + , _dlbrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -156,12 +159,13 @@ :: Int -- ^ 'dlbrsResponseStatus' -> DescribeLoadBalancersResponse describeLoadBalancersResponse pResponseStatus_ = - DescribeLoadBalancersResponse' - { _dlbrsLoadBalancerDescriptions = Nothing - , _dlbrsNextMarker = Nothing - , _dlbrsResponseStatus = pResponseStatus_ - } + DescribeLoadBalancersResponse' + { _dlbrsLoadBalancerDescriptions = Nothing + , _dlbrsNextMarker = Nothing + , _dlbrsResponseStatus = pResponseStatus_ + } + -- | Information about the load balancers. dlbrsLoadBalancerDescriptions :: Lens' DescribeLoadBalancersResponse [LoadBalancerDescription] dlbrsLoadBalancerDescriptions = lens _dlbrsLoadBalancerDescriptions (\ s a -> s{_dlbrsLoadBalancerDescriptions = a}) . _Default . _Coerce; @@ -174,4 +178,4 @@ dlbrsResponseStatus :: Lens' DescribeLoadBalancersResponse Int dlbrsResponseStatus = lens _dlbrsResponseStatus (\ s a -> s{_dlbrsResponseStatus = a}); -instance NFData DescribeLoadBalancersResponse +instance NFData DescribeLoadBalancersResponse where diff --git a/gen/Network/AWS/ELB/DescribeTags.hs b/gen/Network/AWS/ELB/DescribeTags.hs --- a/gen/Network/AWS/ELB/DescribeTags.hs +++ b/gen/Network/AWS/ELB/DescribeTags.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DescribeTags --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , dtrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DescribeTags. -- @@ -50,9 +50,10 @@ -- -- /See:/ 'describeTags' smart constructor. newtype DescribeTags = DescribeTags' - { _dtLoadBalancerNames :: List1 Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtLoadBalancerNames :: List1 Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -62,10 +63,9 @@ :: NonEmpty Text -- ^ 'dtLoadBalancerNames' -> DescribeTags describeTags pLoadBalancerNames_ = - DescribeTags' - { _dtLoadBalancerNames = _List1 # 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; @@ -81,9 +81,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable DescribeTags +instance Hashable DescribeTags where -instance NFData DescribeTags +instance NFData DescribeTags where instance ToHeaders DescribeTags where toHeaders = const mempty @@ -105,10 +105,11 @@ -- -- /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse' - { _dtrsTagDescriptions :: !(Maybe [TagDescription]) - , _dtrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dtrsTagDescriptions :: !(Maybe [TagDescription]) + , _dtrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -120,11 +121,10 @@ :: Int -- ^ 'dtrsResponseStatus' -> DescribeTagsResponse describeTagsResponse pResponseStatus_ = - DescribeTagsResponse' - { _dtrsTagDescriptions = Nothing - , _dtrsResponseStatus = pResponseStatus_ - } + DescribeTagsResponse' + {_dtrsTagDescriptions = Nothing, _dtrsResponseStatus = pResponseStatus_} + -- | Information about the tags. dtrsTagDescriptions :: Lens' DescribeTagsResponse [TagDescription] dtrsTagDescriptions = lens _dtrsTagDescriptions (\ s a -> s{_dtrsTagDescriptions = a}) . _Default . _Coerce; @@ -133,4 +133,4 @@ dtrsResponseStatus :: Lens' DescribeTagsResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); -instance NFData DescribeTagsResponse +instance NFData DescribeTagsResponse where diff --git a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs --- a/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +++ b/gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DetachLoadBalancerFromSubnets --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -40,12 +40,12 @@ , dlbfsrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DetachLoadBalancerFromSubnets. -- @@ -53,10 +53,11 @@ -- -- /See:/ 'detachLoadBalancerFromSubnets' smart constructor. data DetachLoadBalancerFromSubnets = DetachLoadBalancerFromSubnets' - { _dlbfsLoadBalancerName :: !Text - , _dlbfsSubnets :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbfsLoadBalancerName :: !Text + , _dlbfsSubnets :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DetachLoadBalancerFromSubnets' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -68,11 +69,10 @@ :: Text -- ^ 'dlbfsLoadBalancerName' -> DetachLoadBalancerFromSubnets detachLoadBalancerFromSubnets pLoadBalancerName_ = - DetachLoadBalancerFromSubnets' - { _dlbfsLoadBalancerName = pLoadBalancerName_ - , _dlbfsSubnets = mempty - } + DetachLoadBalancerFromSubnets' + {_dlbfsLoadBalancerName = pLoadBalancerName_, _dlbfsSubnets = mempty} + -- | The name of the load balancer. dlbfsLoadBalancerName :: Lens' DetachLoadBalancerFromSubnets Text dlbfsLoadBalancerName = lens _dlbfsLoadBalancerName (\ s a -> s{_dlbfsLoadBalancerName = a}); @@ -95,9 +95,9 @@ may (parseXMLList "member")) <*> (pure (fromEnum s))) -instance Hashable DetachLoadBalancerFromSubnets +instance Hashable DetachLoadBalancerFromSubnets where -instance NFData DetachLoadBalancerFromSubnets +instance NFData DetachLoadBalancerFromSubnets where instance ToHeaders DetachLoadBalancerFromSubnets where @@ -121,10 +121,11 @@ -- -- /See:/ 'detachLoadBalancerFromSubnetsResponse' smart constructor. data DetachLoadBalancerFromSubnetsResponse = DetachLoadBalancerFromSubnetsResponse' - { _dlbfsrsSubnets :: !(Maybe [Text]) - , _dlbfsrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dlbfsrsSubnets :: !(Maybe [Text]) + , _dlbfsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DetachLoadBalancerFromSubnetsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -136,11 +137,10 @@ :: Int -- ^ 'dlbfsrsResponseStatus' -> DetachLoadBalancerFromSubnetsResponse detachLoadBalancerFromSubnetsResponse pResponseStatus_ = - DetachLoadBalancerFromSubnetsResponse' - { _dlbfsrsSubnets = Nothing - , _dlbfsrsResponseStatus = pResponseStatus_ - } + DetachLoadBalancerFromSubnetsResponse' + {_dlbfsrsSubnets = Nothing, _dlbfsrsResponseStatus = pResponseStatus_} + -- | The IDs of the remaining subnets for the load balancer. dlbfsrsSubnets :: Lens' DetachLoadBalancerFromSubnetsResponse [Text] dlbfsrsSubnets = lens _dlbfsrsSubnets (\ s a -> s{_dlbfsrsSubnets = a}) . _Default . _Coerce; @@ -150,3 +150,4 @@ dlbfsrsResponseStatus = lens _dlbfsrsResponseStatus (\ s a -> s{_dlbfsrsResponseStatus = a}); instance NFData DetachLoadBalancerFromSubnetsResponse + where diff --git a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs --- a/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +++ b/gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -23,7 +23,7 @@ -- -- 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 in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.DisableAvailabilityZonesForLoadBalancer ( @@ -42,12 +42,12 @@ , dazflbrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for DisableAvailabilityZonesForLoadBalancer. -- @@ -55,10 +55,11 @@ -- -- /See:/ 'disableAvailabilityZonesForLoadBalancer' smart constructor. data DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancer' - { _dazflbLoadBalancerName :: !Text - , _dazflbAvailabilityZones :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dazflbLoadBalancerName :: !Text + , _dazflbAvailabilityZones :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableAvailabilityZonesForLoadBalancer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,11 +71,12 @@ :: Text -- ^ 'dazflbLoadBalancerName' -> DisableAvailabilityZonesForLoadBalancer disableAvailabilityZonesForLoadBalancer pLoadBalancerName_ = - DisableAvailabilityZonesForLoadBalancer' - { _dazflbLoadBalancerName = pLoadBalancerName_ - , _dazflbAvailabilityZones = mempty - } + DisableAvailabilityZonesForLoadBalancer' + { _dazflbLoadBalancerName = pLoadBalancerName_ + , _dazflbAvailabilityZones = mempty + } + -- | The name of the load balancer. dazflbLoadBalancerName :: Lens' DisableAvailabilityZonesForLoadBalancer Text dazflbLoadBalancerName = lens _dazflbLoadBalancerName (\ s a -> s{_dazflbLoadBalancerName = a}); @@ -84,7 +86,8 @@ dazflbAvailabilityZones = lens _dazflbAvailabilityZones (\ s a -> s{_dazflbAvailabilityZones = a}) . _Coerce; instance AWSRequest - DisableAvailabilityZonesForLoadBalancer where + DisableAvailabilityZonesForLoadBalancer + where type Rs DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancerResponse request = postQuery elb @@ -98,21 +101,26 @@ <*> (pure (fromEnum s))) instance Hashable - DisableAvailabilityZonesForLoadBalancer + DisableAvailabilityZonesForLoadBalancer + where instance NFData - DisableAvailabilityZonesForLoadBalancer + DisableAvailabilityZonesForLoadBalancer + where instance ToHeaders - DisableAvailabilityZonesForLoadBalancer where + DisableAvailabilityZonesForLoadBalancer + where toHeaders = const mempty instance ToPath - DisableAvailabilityZonesForLoadBalancer where + DisableAvailabilityZonesForLoadBalancer + where toPath = const "/" instance ToQuery - DisableAvailabilityZonesForLoadBalancer where + DisableAvailabilityZonesForLoadBalancer + where toQuery DisableAvailabilityZonesForLoadBalancer'{..} = mconcat ["Action" =: @@ -129,10 +137,11 @@ -- -- /See:/ 'disableAvailabilityZonesForLoadBalancerResponse' smart constructor. data DisableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse' - { _dazflbrsAvailabilityZones :: !(Maybe [Text]) - , _dazflbrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _dazflbrsAvailabilityZones :: !(Maybe [Text]) + , _dazflbrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableAvailabilityZonesForLoadBalancerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -144,11 +153,12 @@ :: Int -- ^ 'dazflbrsResponseStatus' -> DisableAvailabilityZonesForLoadBalancerResponse disableAvailabilityZonesForLoadBalancerResponse pResponseStatus_ = - DisableAvailabilityZonesForLoadBalancerResponse' - { _dazflbrsAvailabilityZones = Nothing - , _dazflbrsResponseStatus = pResponseStatus_ - } + DisableAvailabilityZonesForLoadBalancerResponse' + { _dazflbrsAvailabilityZones = Nothing + , _dazflbrsResponseStatus = pResponseStatus_ + } + -- | The remaining Availability Zones for the load balancer. dazflbrsAvailabilityZones :: Lens' DisableAvailabilityZonesForLoadBalancerResponse [Text] dazflbrsAvailabilityZones = lens _dazflbrsAvailabilityZones (\ s a -> s{_dazflbrsAvailabilityZones = a}) . _Default . _Coerce; @@ -158,4 +168,5 @@ dazflbrsResponseStatus = lens _dazflbrsResponseStatus (\ s a -> s{_dazflbrsResponseStatus = a}); instance NFData - DisableAvailabilityZonesForLoadBalancerResponse + 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 @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -23,7 +23,7 @@ -- -- The load balancer evenly distributes requests across all its registered Availability Zones that contain instances. -- --- For more information, see in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.EnableAvailabilityZonesForLoadBalancer ( @@ -42,12 +42,12 @@ , eazflbrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for EnableAvailabilityZonesForLoadBalancer. -- @@ -55,10 +55,11 @@ -- -- /See:/ 'enableAvailabilityZonesForLoadBalancer' smart constructor. data EnableAvailabilityZonesForLoadBalancer = EnableAvailabilityZonesForLoadBalancer' - { _eazflbLoadBalancerName :: !Text - , _eazflbAvailabilityZones :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _eazflbLoadBalancerName :: !Text + , _eazflbAvailabilityZones :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnableAvailabilityZonesForLoadBalancer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -70,11 +71,12 @@ :: Text -- ^ 'eazflbLoadBalancerName' -> EnableAvailabilityZonesForLoadBalancer enableAvailabilityZonesForLoadBalancer pLoadBalancerName_ = - EnableAvailabilityZonesForLoadBalancer' - { _eazflbLoadBalancerName = pLoadBalancerName_ - , _eazflbAvailabilityZones = mempty - } + EnableAvailabilityZonesForLoadBalancer' + { _eazflbLoadBalancerName = pLoadBalancerName_ + , _eazflbAvailabilityZones = mempty + } + -- | The name of the load balancer. eazflbLoadBalancerName :: Lens' EnableAvailabilityZonesForLoadBalancer Text eazflbLoadBalancerName = lens _eazflbLoadBalancerName (\ s a -> s{_eazflbLoadBalancerName = a}); @@ -84,7 +86,8 @@ eazflbAvailabilityZones = lens _eazflbAvailabilityZones (\ s a -> s{_eazflbAvailabilityZones = a}) . _Coerce; instance AWSRequest - EnableAvailabilityZonesForLoadBalancer where + EnableAvailabilityZonesForLoadBalancer + where type Rs EnableAvailabilityZonesForLoadBalancer = EnableAvailabilityZonesForLoadBalancerResponse request = postQuery elb @@ -98,21 +101,26 @@ <*> (pure (fromEnum s))) instance Hashable - EnableAvailabilityZonesForLoadBalancer + EnableAvailabilityZonesForLoadBalancer + where instance NFData - EnableAvailabilityZonesForLoadBalancer + EnableAvailabilityZonesForLoadBalancer + where instance ToHeaders - EnableAvailabilityZonesForLoadBalancer where + EnableAvailabilityZonesForLoadBalancer + where toHeaders = const mempty instance ToPath - EnableAvailabilityZonesForLoadBalancer where + EnableAvailabilityZonesForLoadBalancer + where toPath = const "/" instance ToQuery - EnableAvailabilityZonesForLoadBalancer where + EnableAvailabilityZonesForLoadBalancer + where toQuery EnableAvailabilityZonesForLoadBalancer'{..} = mconcat ["Action" =: @@ -129,10 +137,11 @@ -- -- /See:/ 'enableAvailabilityZonesForLoadBalancerResponse' smart constructor. data EnableAvailabilityZonesForLoadBalancerResponse = EnableAvailabilityZonesForLoadBalancerResponse' - { _eazflbrsAvailabilityZones :: !(Maybe [Text]) - , _eazflbrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _eazflbrsAvailabilityZones :: !(Maybe [Text]) + , _eazflbrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'EnableAvailabilityZonesForLoadBalancerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -144,11 +153,12 @@ :: Int -- ^ 'eazflbrsResponseStatus' -> EnableAvailabilityZonesForLoadBalancerResponse enableAvailabilityZonesForLoadBalancerResponse pResponseStatus_ = - EnableAvailabilityZonesForLoadBalancerResponse' - { _eazflbrsAvailabilityZones = Nothing - , _eazflbrsResponseStatus = pResponseStatus_ - } + EnableAvailabilityZonesForLoadBalancerResponse' + { _eazflbrsAvailabilityZones = Nothing + , _eazflbrsResponseStatus = pResponseStatus_ + } + -- | The updated list of Availability Zones for the load balancer. eazflbrsAvailabilityZones :: Lens' EnableAvailabilityZonesForLoadBalancerResponse [Text] eazflbrsAvailabilityZones = lens _eazflbrsAvailabilityZones (\ s a -> s{_eazflbrsAvailabilityZones = a}) . _Default . _Coerce; @@ -158,4 +168,5 @@ eazflbrsResponseStatus = lens _eazflbrsResponseStatus (\ s a -> s{_eazflbrsResponseStatus = a}); instance NFData - EnableAvailabilityZonesForLoadBalancerResponse + 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 @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.ModifyLoadBalancerAttributes --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -23,7 +23,7 @@ -- -- 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 /Classic Load Balancers Guide/ : +-- For more information, see the following in the /Classic Load Balancer Guide/ : -- -- * -- @@ -53,12 +53,12 @@ , mlbarsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for ModifyLoadBalancerAttributes. -- @@ -66,32 +66,34 @@ -- -- /See:/ 'modifyLoadBalancerAttributes' smart constructor. data ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributes' - { _mlbaLoadBalancerName :: !Text - , _mlbaLoadBalancerAttributes :: !LoadBalancerAttributes - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _mlbaLoadBalancerName :: !Text + , _mlbaLoadBalancerAttributes :: !LoadBalancerAttributes + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyLoadBalancerAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'mlbaLoadBalancerName' - The name of the load balancer. -- --- * 'mlbaLoadBalancerAttributes' - The attributes of the load balancer. +-- * 'mlbaLoadBalancerAttributes' - The attributes for the load balancer. modifyLoadBalancerAttributes :: Text -- ^ 'mlbaLoadBalancerName' -> LoadBalancerAttributes -- ^ 'mlbaLoadBalancerAttributes' -> ModifyLoadBalancerAttributes modifyLoadBalancerAttributes pLoadBalancerName_ pLoadBalancerAttributes_ = - ModifyLoadBalancerAttributes' - { _mlbaLoadBalancerName = pLoadBalancerName_ - , _mlbaLoadBalancerAttributes = 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. +-- | The attributes for the load balancer. mlbaLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributes LoadBalancerAttributes mlbaLoadBalancerAttributes = lens _mlbaLoadBalancerAttributes (\ s a -> s{_mlbaLoadBalancerAttributes = a}); @@ -109,9 +111,9 @@ (x .@? "LoadBalancerAttributes") <*> (pure (fromEnum s))) -instance Hashable ModifyLoadBalancerAttributes +instance Hashable ModifyLoadBalancerAttributes where -instance NFData ModifyLoadBalancerAttributes +instance NFData ModifyLoadBalancerAttributes where instance ToHeaders ModifyLoadBalancerAttributes where toHeaders = const mempty @@ -135,35 +137,37 @@ -- -- /See:/ 'modifyLoadBalancerAttributesResponse' smart constructor. data ModifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse' - { _mlbarsLoadBalancerName :: !(Maybe Text) - , _mlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes) - , _mlbarsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _mlbarsLoadBalancerName :: !(Maybe Text) + , _mlbarsLoadBalancerAttributes :: !(Maybe LoadBalancerAttributes) + , _mlbarsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ModifyLoadBalancerAttributesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'mlbarsLoadBalancerName' - The name of the load balancer. -- --- * 'mlbarsLoadBalancerAttributes' - Undocumented member. +-- * 'mlbarsLoadBalancerAttributes' - Information about the load balancer attributes. -- -- * 'mlbarsResponseStatus' - -- | The response status code. modifyLoadBalancerAttributesResponse :: Int -- ^ 'mlbarsResponseStatus' -> ModifyLoadBalancerAttributesResponse modifyLoadBalancerAttributesResponse pResponseStatus_ = - ModifyLoadBalancerAttributesResponse' - { _mlbarsLoadBalancerName = Nothing - , _mlbarsLoadBalancerAttributes = Nothing - , _mlbarsResponseStatus = pResponseStatus_ - } + ModifyLoadBalancerAttributesResponse' + { _mlbarsLoadBalancerName = Nothing + , _mlbarsLoadBalancerAttributes = Nothing + , _mlbarsResponseStatus = pResponseStatus_ + } + -- | The name of the load balancer. mlbarsLoadBalancerName :: Lens' ModifyLoadBalancerAttributesResponse (Maybe Text) mlbarsLoadBalancerName = lens _mlbarsLoadBalancerName (\ s a -> s{_mlbarsLoadBalancerName = a}); --- | Undocumented member. +-- | Information about the load balancer attributes. mlbarsLoadBalancerAttributes :: Lens' ModifyLoadBalancerAttributesResponse (Maybe LoadBalancerAttributes) mlbarsLoadBalancerAttributes = lens _mlbarsLoadBalancerAttributes (\ s a -> s{_mlbarsLoadBalancerAttributes = a}); @@ -172,3 +176,4 @@ mlbarsResponseStatus = lens _mlbarsResponseStatus (\ s a -> s{_mlbarsResponseStatus = a}); instance NFData ModifyLoadBalancerAttributesResponse + where diff --git a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs --- a/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +++ b/gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.RegisterInstancesWithLoadBalancer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -29,7 +29,7 @@ -- -- To deregister instances from a load balancer, use 'DeregisterInstancesFromLoadBalancer' . -- --- For more information, see in the /Classic Load Balancers Guide/ . +-- For more information, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.RegisterInstancesWithLoadBalancer ( @@ -48,12 +48,12 @@ , riwlbrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for RegisterInstancesWithLoadBalancer. -- @@ -61,10 +61,11 @@ -- -- /See:/ 'registerInstancesWithLoadBalancer' smart constructor. data RegisterInstancesWithLoadBalancer = RegisterInstancesWithLoadBalancer' - { _riwlbLoadBalancerName :: !Text - , _riwlbInstances :: ![Instance] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _riwlbLoadBalancerName :: !Text + , _riwlbInstances :: ![Instance] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterInstancesWithLoadBalancer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,11 +77,10 @@ :: Text -- ^ 'riwlbLoadBalancerName' -> RegisterInstancesWithLoadBalancer registerInstancesWithLoadBalancer pLoadBalancerName_ = - RegisterInstancesWithLoadBalancer' - { _riwlbLoadBalancerName = pLoadBalancerName_ - , _riwlbInstances = mempty - } + RegisterInstancesWithLoadBalancer' + {_riwlbLoadBalancerName = pLoadBalancerName_, _riwlbInstances = mempty} + -- | The name of the load balancer. riwlbLoadBalancerName :: Lens' RegisterInstancesWithLoadBalancer Text riwlbLoadBalancerName = lens _riwlbLoadBalancerName (\ s a -> s{_riwlbLoadBalancerName = a}); @@ -104,8 +104,10 @@ <*> (pure (fromEnum s))) instance Hashable RegisterInstancesWithLoadBalancer + where instance NFData RegisterInstancesWithLoadBalancer + where instance ToHeaders RegisterInstancesWithLoadBalancer where @@ -131,10 +133,11 @@ -- -- /See:/ 'registerInstancesWithLoadBalancerResponse' smart constructor. data RegisterInstancesWithLoadBalancerResponse = RegisterInstancesWithLoadBalancerResponse' - { _riwlbrsInstances :: !(Maybe [Instance]) - , _riwlbrsResponseStatus :: !Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _riwlbrsInstances :: !(Maybe [Instance]) + , _riwlbrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RegisterInstancesWithLoadBalancerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -146,11 +149,10 @@ :: Int -- ^ 'riwlbrsResponseStatus' -> RegisterInstancesWithLoadBalancerResponse registerInstancesWithLoadBalancerResponse pResponseStatus_ = - RegisterInstancesWithLoadBalancerResponse' - { _riwlbrsInstances = Nothing - , _riwlbrsResponseStatus = pResponseStatus_ - } + RegisterInstancesWithLoadBalancerResponse' + {_riwlbrsInstances = Nothing, _riwlbrsResponseStatus = pResponseStatus_} + -- | The updated list of instances for the load balancer. riwlbrsInstances :: Lens' RegisterInstancesWithLoadBalancerResponse [Instance] riwlbrsInstances = lens _riwlbrsInstances (\ s a -> s{_riwlbrsInstances = a}) . _Default . _Coerce; @@ -160,4 +162,5 @@ riwlbrsResponseStatus = lens _riwlbrsResponseStatus (\ s a -> s{_riwlbrsResponseStatus = a}); instance NFData - RegisterInstancesWithLoadBalancerResponse + 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 @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.RemoveTags --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -37,12 +37,12 @@ , rtrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for RemoveTags. -- @@ -50,10 +50,11 @@ -- -- /See:/ 'removeTags' smart constructor. data RemoveTags = RemoveTags' - { _rtLoadBalancerNames :: ![Text] - , _rtTags :: !(List1 TagKeyOnly) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rtLoadBalancerNames :: ![Text] + , _rtTags :: !(List1 TagKeyOnly) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTags' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -65,11 +66,9 @@ :: NonEmpty TagKeyOnly -- ^ 'rtTags' -> RemoveTags removeTags pTags_ = - RemoveTags' - { _rtLoadBalancerNames = mempty - , _rtTags = _List1 # pTags_ - } + RemoveTags' {_rtLoadBalancerNames = mempty, _rtTags = _List1 # pTags_} + -- | The name of the load balancer. You can specify a maximum of one load balancer name. rtLoadBalancerNames :: Lens' RemoveTags [Text] rtLoadBalancerNames = lens _rtLoadBalancerNames (\ s a -> s{_rtLoadBalancerNames = a}) . _Coerce; @@ -86,9 +85,9 @@ (\ s h x -> RemoveTagsResponse' <$> (pure (fromEnum s))) -instance Hashable RemoveTags +instance Hashable RemoveTags where -instance NFData RemoveTags +instance NFData RemoveTags where instance ToHeaders RemoveTags where toHeaders = const mempty @@ -111,9 +110,10 @@ -- -- /See:/ 'removeTagsResponse' smart constructor. newtype RemoveTagsResponse = RemoveTagsResponse' - { _rtrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _rtrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -123,12 +123,11 @@ :: Int -- ^ 'rtrsResponseStatus' -> RemoveTagsResponse removeTagsResponse pResponseStatus_ = - RemoveTagsResponse' - { _rtrsResponseStatus = pResponseStatus_ - } + RemoveTagsResponse' {_rtrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. rtrsResponseStatus :: Lens' RemoveTagsResponse Int rtrsResponseStatus = lens _rtrsResponseStatus (\ s a -> s{_rtrsResponseStatus = a}); -instance NFData RemoveTagsResponse +instance NFData RemoveTagsResponse where diff --git a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- -- 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 in the /Classic Load Balancers Guide/ . +-- For more information about updating your SSL certificate, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.SetLoadBalancerListenerSSLCertificate ( @@ -40,12 +40,12 @@ , slblscrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for SetLoadBalancerListenerSSLCertificate. -- @@ -53,11 +53,12 @@ -- -- /See:/ 'setLoadBalancerListenerSSLCertificate' smart constructor. data SetLoadBalancerListenerSSLCertificate = SetLoadBalancerListenerSSLCertificate' - { _slblscLoadBalancerName :: !Text - , _slblscLoadBalancerPort :: !Int - , _slblscSSLCertificateId :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _slblscLoadBalancerName :: !Text + , _slblscLoadBalancerPort :: !Int + , _slblscSSLCertificateId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLoadBalancerListenerSSLCertificate' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -73,12 +74,13 @@ -> Text -- ^ 'slblscSSLCertificateId' -> SetLoadBalancerListenerSSLCertificate setLoadBalancerListenerSSLCertificate pLoadBalancerName_ pLoadBalancerPort_ pSSLCertificateId_ = - SetLoadBalancerListenerSSLCertificate' - { _slblscLoadBalancerName = pLoadBalancerName_ - , _slblscLoadBalancerPort = pLoadBalancerPort_ - , _slblscSSLCertificateId = pSSLCertificateId_ - } + SetLoadBalancerListenerSSLCertificate' + { _slblscLoadBalancerName = pLoadBalancerName_ + , _slblscLoadBalancerPort = pLoadBalancerPort_ + , _slblscSSLCertificateId = pSSLCertificateId_ + } + -- | The name of the load balancer. slblscLoadBalancerName :: Lens' SetLoadBalancerListenerSSLCertificate Text slblscLoadBalancerName = lens _slblscLoadBalancerName (\ s a -> s{_slblscLoadBalancerName = a}); @@ -92,7 +94,8 @@ slblscSSLCertificateId = lens _slblscSSLCertificateId (\ s a -> s{_slblscSSLCertificateId = a}); instance AWSRequest - SetLoadBalancerListenerSSLCertificate where + SetLoadBalancerListenerSSLCertificate + where type Rs SetLoadBalancerListenerSSLCertificate = SetLoadBalancerListenerSSLCertificateResponse request = postQuery elb @@ -104,12 +107,15 @@ (pure (fromEnum s))) instance Hashable - SetLoadBalancerListenerSSLCertificate + SetLoadBalancerListenerSSLCertificate + where instance NFData SetLoadBalancerListenerSSLCertificate + where instance ToHeaders - SetLoadBalancerListenerSSLCertificate where + SetLoadBalancerListenerSSLCertificate + where toHeaders = const mempty instance ToPath SetLoadBalancerListenerSSLCertificate @@ -117,7 +123,8 @@ toPath = const "/" instance ToQuery - SetLoadBalancerListenerSSLCertificate where + SetLoadBalancerListenerSSLCertificate + where toQuery SetLoadBalancerListenerSSLCertificate'{..} = mconcat ["Action" =: @@ -134,9 +141,10 @@ -- -- /See:/ 'setLoadBalancerListenerSSLCertificateResponse' smart constructor. newtype SetLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse' - { _slblscrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _slblscrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -146,13 +154,14 @@ :: Int -- ^ 'slblscrsResponseStatus' -> SetLoadBalancerListenerSSLCertificateResponse setLoadBalancerListenerSSLCertificateResponse pResponseStatus_ = - SetLoadBalancerListenerSSLCertificateResponse' - { _slblscrsResponseStatus = pResponseStatus_ - } + SetLoadBalancerListenerSSLCertificateResponse' + {_slblscrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. slblscrsResponseStatus :: Lens' SetLoadBalancerListenerSSLCertificateResponse Int slblscrsResponseStatus = lens _slblscrsResponseStatus (\ s a -> s{_slblscrsResponseStatus = a}); instance NFData - SetLoadBalancerListenerSSLCertificateResponse + SetLoadBalancerListenerSSLCertificateResponse + where diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -25,7 +25,7 @@ -- -- You can use 'DescribeLoadBalancers' or 'DescribeLoadBalancerPolicies' to verify that the policy is associated with the EC2 instance. -- --- For more information about enabling back-end instance authentication, see in the /Classic Load Balancers Guide/ . For more information about Proxy Protocol, see in the /Classic Load Balancers Guide/ . +-- For more information about enabling back-end instance authentication, see in the /Classic Load Balancer Guide/ . For more information about Proxy Protocol, see in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.SetLoadBalancerPoliciesForBackendServer ( @@ -44,12 +44,12 @@ , slbpfbsrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for SetLoadBalancerPoliciesForBackendServer. -- @@ -57,11 +57,12 @@ -- -- /See:/ 'setLoadBalancerPoliciesForBackendServer' smart constructor. data SetLoadBalancerPoliciesForBackendServer = SetLoadBalancerPoliciesForBackendServer' - { _slbpfbsLoadBalancerName :: !Text - , _slbpfbsInstancePort :: !Int - , _slbpfbsPolicyNames :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _slbpfbsLoadBalancerName :: !Text + , _slbpfbsInstancePort :: !Int + , _slbpfbsPolicyNames :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLoadBalancerPoliciesForBackendServer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -76,12 +77,13 @@ -> Int -- ^ 'slbpfbsInstancePort' -> SetLoadBalancerPoliciesForBackendServer setLoadBalancerPoliciesForBackendServer pLoadBalancerName_ pInstancePort_ = - SetLoadBalancerPoliciesForBackendServer' - { _slbpfbsLoadBalancerName = pLoadBalancerName_ - , _slbpfbsInstancePort = pInstancePort_ - , _slbpfbsPolicyNames = mempty - } + SetLoadBalancerPoliciesForBackendServer' + { _slbpfbsLoadBalancerName = pLoadBalancerName_ + , _slbpfbsInstancePort = pInstancePort_ + , _slbpfbsPolicyNames = mempty + } + -- | The name of the load balancer. slbpfbsLoadBalancerName :: Lens' SetLoadBalancerPoliciesForBackendServer Text slbpfbsLoadBalancerName = lens _slbpfbsLoadBalancerName (\ s a -> s{_slbpfbsLoadBalancerName = a}); @@ -95,7 +97,8 @@ slbpfbsPolicyNames = lens _slbpfbsPolicyNames (\ s a -> s{_slbpfbsPolicyNames = a}) . _Coerce; instance AWSRequest - SetLoadBalancerPoliciesForBackendServer where + SetLoadBalancerPoliciesForBackendServer + where type Rs SetLoadBalancerPoliciesForBackendServer = SetLoadBalancerPoliciesForBackendServerResponse request = postQuery elb @@ -107,21 +110,26 @@ (pure (fromEnum s))) instance Hashable - SetLoadBalancerPoliciesForBackendServer + SetLoadBalancerPoliciesForBackendServer + where instance NFData - SetLoadBalancerPoliciesForBackendServer + SetLoadBalancerPoliciesForBackendServer + where instance ToHeaders - SetLoadBalancerPoliciesForBackendServer where + SetLoadBalancerPoliciesForBackendServer + where toHeaders = const mempty instance ToPath - SetLoadBalancerPoliciesForBackendServer where + SetLoadBalancerPoliciesForBackendServer + where toPath = const "/" instance ToQuery - SetLoadBalancerPoliciesForBackendServer where + SetLoadBalancerPoliciesForBackendServer + where toQuery SetLoadBalancerPoliciesForBackendServer'{..} = mconcat ["Action" =: @@ -139,9 +147,10 @@ -- -- /See:/ 'setLoadBalancerPoliciesForBackendServerResponse' smart constructor. newtype SetLoadBalancerPoliciesForBackendServerResponse = SetLoadBalancerPoliciesForBackendServerResponse' - { _slbpfbsrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _slbpfbsrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | 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: @@ -151,13 +160,14 @@ :: Int -- ^ 'slbpfbsrsResponseStatus' -> SetLoadBalancerPoliciesForBackendServerResponse setLoadBalancerPoliciesForBackendServerResponse pResponseStatus_ = - SetLoadBalancerPoliciesForBackendServerResponse' - { _slbpfbsrsResponseStatus = pResponseStatus_ - } + SetLoadBalancerPoliciesForBackendServerResponse' + {_slbpfbsrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. slbpfbsrsResponseStatus :: Lens' SetLoadBalancerPoliciesForBackendServerResponse Int slbpfbsrsResponseStatus = lens _slbpfbsrsResponseStatus (\ s a -> s{_slbpfbsrsResponseStatus = a}); instance NFData - SetLoadBalancerPoliciesForBackendServerResponse + SetLoadBalancerPoliciesForBackendServerResponse + where diff --git a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs --- a/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +++ b/gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs @@ -12,9 +12,9 @@ -- | -- Module : Network.AWS.ELB.SetLoadBalancerPoliciesOfListener --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -23,7 +23,7 @@ -- -- To enable back-end server authentication, use 'SetLoadBalancerPoliciesForBackendServer' . -- --- For more information about setting policies, see , , and in the /Classic Load Balancers Guide/ . +-- For more information about setting policies, see , , and in the /Classic Load Balancer Guide/ . -- module Network.AWS.ELB.SetLoadBalancerPoliciesOfListener ( @@ -42,12 +42,12 @@ , slbpolrsResponseStatus ) where -import Network.AWS.ELB.Types -import Network.AWS.ELB.Types.Product -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Request -import Network.AWS.Response +import Network.AWS.ELB.Types +import Network.AWS.ELB.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response -- | Contains the parameters for SetLoadBalancePoliciesOfListener. -- @@ -55,11 +55,12 @@ -- -- /See:/ 'setLoadBalancerPoliciesOfListener' smart constructor. data SetLoadBalancerPoliciesOfListener = SetLoadBalancerPoliciesOfListener' - { _slbpolLoadBalancerName :: !Text - , _slbpolLoadBalancerPort :: !Int - , _slbpolPolicyNames :: ![Text] - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _slbpolLoadBalancerName :: !Text + , _slbpolLoadBalancerPort :: !Int + , _slbpolPolicyNames :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLoadBalancerPoliciesOfListener' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -74,12 +75,13 @@ -> Int -- ^ 'slbpolLoadBalancerPort' -> SetLoadBalancerPoliciesOfListener setLoadBalancerPoliciesOfListener pLoadBalancerName_ pLoadBalancerPort_ = - SetLoadBalancerPoliciesOfListener' - { _slbpolLoadBalancerName = pLoadBalancerName_ - , _slbpolLoadBalancerPort = pLoadBalancerPort_ - , _slbpolPolicyNames = mempty - } + SetLoadBalancerPoliciesOfListener' + { _slbpolLoadBalancerName = pLoadBalancerName_ + , _slbpolLoadBalancerPort = pLoadBalancerPort_ + , _slbpolPolicyNames = mempty + } + -- | The name of the load balancer. slbpolLoadBalancerName :: Lens' SetLoadBalancerPoliciesOfListener Text slbpolLoadBalancerName = lens _slbpolLoadBalancerName (\ s a -> s{_slbpolLoadBalancerName = a}); @@ -105,8 +107,10 @@ (pure (fromEnum s))) instance Hashable SetLoadBalancerPoliciesOfListener + where instance NFData SetLoadBalancerPoliciesOfListener + where instance ToHeaders SetLoadBalancerPoliciesOfListener where @@ -134,9 +138,10 @@ -- -- /See:/ 'setLoadBalancerPoliciesOfListenerResponse' smart constructor. newtype SetLoadBalancerPoliciesOfListenerResponse = SetLoadBalancerPoliciesOfListenerResponse' - { _slbpolrsResponseStatus :: Int - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _slbpolrsResponseStatus :: Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLoadBalancerPoliciesOfListenerResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -146,13 +151,14 @@ :: Int -- ^ 'slbpolrsResponseStatus' -> SetLoadBalancerPoliciesOfListenerResponse setLoadBalancerPoliciesOfListenerResponse pResponseStatus_ = - SetLoadBalancerPoliciesOfListenerResponse' - { _slbpolrsResponseStatus = pResponseStatus_ - } + SetLoadBalancerPoliciesOfListenerResponse' + {_slbpolrsResponseStatus = pResponseStatus_} + -- | -- | The response status code. slbpolrsResponseStatus :: Lens' SetLoadBalancerPoliciesOfListenerResponse Int slbpolrsResponseStatus = lens _slbpolrsResponseStatus (\ s a -> s{_slbpolrsResponseStatus = a}); instance NFData - SetLoadBalancerPoliciesOfListenerResponse + SetLoadBalancerPoliciesOfListenerResponse + where diff --git a/gen/Network/AWS/ELB/Types.hs b/gen/Network/AWS/ELB/Types.hs --- a/gen/Network/AWS/ELB/Types.hs +++ b/gen/Network/AWS/ELB/Types.hs @@ -4,9 +4,9 @@ -- | -- Module : Network.AWS.ELB.Types --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- @@ -111,6 +111,12 @@ , lbcspPolicyName , lbcspCookieExpirationPeriod + -- * Limit + , Limit + , limit + , lMax + , lName + -- * Listener , Listener , listener @@ -221,39 +227,41 @@ , tkoKey ) where -import Network.AWS.ELB.Internal -import Network.AWS.ELB.Types.Product -import Network.AWS.ELB.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Sign.V4 +import Network.AWS.ELB.Internal +import Network.AWS.ELB.Types.Product +import Network.AWS.ELB.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Sign.V4 -- | API version @2012-06-01@ of the Amazon Elastic Load Balancing SDK configuration. elb :: Service elb = - Service - { _svcAbbrev = "ELB" - , _svcSigner = v4 - , _svcPrefix = "elasticloadbalancing" - , _svcVersion = "2012-06-01" - , _svcEndpoint = defaultEndpoint elb - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseXMLError "ELB" - , _svcRetry = retry - } + Service + { _svcAbbrev = "ELB" + , _svcSigner = v4 + , _svcPrefix = "elasticloadbalancing" + , _svcVersion = "2012-06-01" + , _svcEndpoint = defaultEndpoint elb + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseXMLError "ELB" + , _svcRetry = retry + } where retry = - Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } + Exponential + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } check e + | has (hasCode "ThrottledException" . hasStatus 400) e = + Just "throttled_exception" | has (hasStatus 429) e = Just "too_many_requests" | has (hasCode "ThrottlingException" . hasStatus 400) e = - Just "throttling_exception" + Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" | has (hasStatus 502) e = Just "bad_gateway" @@ -262,144 +270,166 @@ | has (hasStatus 509) e = Just "limit_exceeded" | otherwise = Nothing + -- | One or more of the specified policies do not exist. -- -- _PolicyNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _PolicyNotFoundException = - _ServiceError . hasStatus 400 . hasCode "PolicyNotFound" + _MatchServiceError elb "PolicyNotFound" . hasStatus 400 + -- | The specified load balancer does not exist. -- -- _AccessPointNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _AccessPointNotFoundException = - _ServiceError . hasStatus 400 . hasCode "LoadBalancerNotFound" + _MatchServiceError elb "LoadBalancerNotFound" . hasStatus 400 + -- | A policy with the specified name already exists for this load balancer. -- -- _DuplicatePolicyNameException :: AsError a => Getting (First ServiceError) a ServiceError _DuplicatePolicyNameException = - _ServiceError . hasStatus 400 . hasCode "DuplicatePolicyName" + _MatchServiceError elb "DuplicatePolicyName" . hasStatus 400 + -- | The requested configuration change is not valid. -- -- _InvalidConfigurationRequestException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidConfigurationRequestException = - _ServiceError . hasStatus 409 . hasCode "InvalidConfigurationRequest" + _MatchServiceError elb "InvalidConfigurationRequest" . hasStatus 409 + -- | One or more of the specified subnets do not exist. -- -- _SubnetNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _SubnetNotFoundException = - _ServiceError . hasStatus 400 . hasCode "SubnetNotFound" + _MatchServiceError elb "SubnetNotFound" . hasStatus 400 + -- | The specified load balancer attribute does not exist. -- -- _LoadBalancerAttributeNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _LoadBalancerAttributeNotFoundException = - _ServiceError . hasStatus 400 . hasCode "LoadBalancerAttributeNotFound" + _MatchServiceError elb "LoadBalancerAttributeNotFound" . hasStatus 400 + -- | The specified VPC has no associated Internet gateway. -- -- _InvalidSubnetException :: AsError a => Getting (First ServiceError) a ServiceError -_InvalidSubnetException = - _ServiceError . hasStatus 400 . hasCode "InvalidSubnet" +_InvalidSubnetException = _MatchServiceError elb "InvalidSubnet" . hasStatus 400 + -- | A tag key was specified more than once. -- -- _DuplicateTagKeysException :: AsError a => Getting (First ServiceError) a ServiceError _DuplicateTagKeysException = - _ServiceError . hasStatus 400 . hasCode "DuplicateTagKeys" + _MatchServiceError elb "DuplicateTagKeys" . hasStatus 400 + -- | A listener already exists for the specified load balancer name and port, but with a different instance port, protocol, or SSL certificate. -- -- _DuplicateListenerException :: AsError a => Getting (First ServiceError) a ServiceError _DuplicateListenerException = - _ServiceError . hasStatus 400 . hasCode "DuplicateListener" + _MatchServiceError elb "DuplicateListener" . hasStatus 400 + -- | The quota for the number of tags that can be assigned to a load balancer has been reached. -- -- _TooManyTagsException :: AsError a => Getting (First ServiceError) a ServiceError -_TooManyTagsException = _ServiceError . hasStatus 400 . hasCode "TooManyTags" +_TooManyTagsException = _MatchServiceError elb "TooManyTags" . hasStatus 400 + -- | One or more of the specified policy types do not exist. -- -- _PolicyTypeNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _PolicyTypeNotFoundException = - _ServiceError . hasStatus 400 . hasCode "PolicyTypeNotFound" + _MatchServiceError elb "PolicyTypeNotFound" . hasStatus 400 --- | Prism for UnsupportedProtocolException' errors. + +-- | The specified protocol or signature version is not supported. +-- +-- _UnsupportedProtocolException :: AsError a => Getting (First ServiceError) a ServiceError _UnsupportedProtocolException = - _ServiceError . hasStatus 400 . hasCode "UnsupportedProtocol" + _MatchServiceError elb "UnsupportedProtocol" . hasStatus 400 + -- | The specified load balancer name already exists for this account. -- -- _DuplicateAccessPointNameException :: AsError a => Getting (First ServiceError) a ServiceError _DuplicateAccessPointNameException = - _ServiceError . hasStatus 400 . hasCode "DuplicateLoadBalancerName" + _MatchServiceError elb "DuplicateLoadBalancerName" . hasStatus 400 + -- | One or more of the specified security groups do not exist. -- -- _InvalidSecurityGroupException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidSecurityGroupException = - _ServiceError . hasStatus 400 . hasCode "InvalidSecurityGroup" + _MatchServiceError elb "InvalidSecurityGroup" . hasStatus 400 + -- | The load balancer does not have a listener configured at the specified port. -- -- _ListenerNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _ListenerNotFoundException = - _ServiceError . hasStatus 400 . hasCode "ListenerNotFound" + _MatchServiceError elb "ListenerNotFound" . hasStatus 400 + -- | The specified endpoint is not valid. -- -- _InvalidEndPointException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidEndPointException = - _ServiceError . hasStatus 400 . hasCode "InvalidInstance" + _MatchServiceError elb "InvalidInstance" . hasStatus 400 + -- | Prism for DependencyThrottleException' errors. _DependencyThrottleException :: AsError a => Getting (First ServiceError) a ServiceError _DependencyThrottleException = - _ServiceError . hasStatus 400 . hasCode "DependencyThrottle" + _MatchServiceError elb "DependencyThrottle" . hasStatus 400 + -- | The specified value for the schema is not valid. You can only specify a scheme for load balancers in a VPC. -- -- _InvalidSchemeException :: AsError a => Getting (First ServiceError) a ServiceError -_InvalidSchemeException = - _ServiceError . hasStatus 400 . hasCode "InvalidScheme" +_InvalidSchemeException = _MatchServiceError elb "InvalidScheme" . hasStatus 400 + -- | The quota for the number of load balancers has been reached. -- -- _TooManyAccessPointsException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyAccessPointsException = - _ServiceError . hasStatus 400 . hasCode "TooManyLoadBalancers" + _MatchServiceError elb "TooManyLoadBalancers" . hasStatus 400 + -- | The quota for the number of policies for this load balancer has been reached. -- -- _TooManyPoliciesException :: AsError a => Getting (First ServiceError) a ServiceError _TooManyPoliciesException = - _ServiceError . hasStatus 400 . hasCode "TooManyPolicies" + _MatchServiceError elb "TooManyPolicies" . hasStatus 400 + -- | The specified ARN does not refer to a valid SSL certificate in AWS Identity and Access Management (IAM) or AWS Certificate Manager (ACM). Note that if you recently uploaded the certificate to IAM, this error might indicate that the certificate is not fully available yet. -- -- _CertificateNotFoundException :: AsError a => Getting (First ServiceError) a ServiceError _CertificateNotFoundException = - _ServiceError . hasStatus 400 . hasCode "CertificateNotFound" + _MatchServiceError elb "CertificateNotFound" . hasStatus 400 + diff --git a/gen/Network/AWS/ELB/Types/Product.hs b/gen/Network/AWS/ELB/Types/Product.hs --- a/gen/Network/AWS/ELB/Types/Product.hs +++ b/gen/Network/AWS/ELB/Types/Product.hs @@ -9,18 +9,18 @@ -- | -- Module : Network.AWS.ELB.Types.Product --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.ELB.Types.Product where -import Network.AWS.ELB.Internal -import Network.AWS.ELB.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude +import Network.AWS.ELB.Internal +import Network.AWS.ELB.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude -- | Information about the @AccessLog@ attribute. -- @@ -28,12 +28,13 @@ -- -- /See:/ 'accessLog' smart constructor. data AccessLog = AccessLog' - { _alEmitInterval :: !(Maybe Int) - , _alS3BucketPrefix :: !(Maybe Text) - , _alS3BucketName :: !(Maybe Text) - , _alEnabled :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _alEmitInterval :: !(Maybe Int) + , _alS3BucketPrefix :: !(Maybe Text) + , _alS3BucketName :: !(Maybe Text) + , _alEnabled :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AccessLog' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -49,13 +50,14 @@ :: Bool -- ^ 'alEnabled' -> AccessLog accessLog pEnabled_ = - AccessLog' - { _alEmitInterval = Nothing - , _alS3BucketPrefix = Nothing - , _alS3BucketName = Nothing - , _alEnabled = pEnabled_ - } + AccessLog' + { _alEmitInterval = Nothing + , _alS3BucketPrefix = Nothing + , _alS3BucketName = Nothing + , _alEnabled = pEnabled_ + } + -- | The interval for publishing the access logs. You can specify an interval of either 5 minutes or 60 minutes. Default: 60 minutes alEmitInterval :: Lens' AccessLog (Maybe Int) alEmitInterval = lens _alEmitInterval (\ s a -> s{_alEmitInterval = a}); @@ -79,9 +81,9 @@ <*> (x .@? "S3BucketName") <*> (x .@ "Enabled") -instance Hashable AccessLog +instance Hashable AccessLog where -instance NFData AccessLog +instance NFData AccessLog where instance ToQuery AccessLog where toQuery AccessLog'{..} @@ -97,10 +99,11 @@ -- -- /See:/ 'additionalAttribute' smart constructor. data AdditionalAttribute = AdditionalAttribute' - { _aaValue :: !(Maybe Text) - , _aaKey :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _aaValue :: !(Maybe Text) + , _aaKey :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AdditionalAttribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -111,11 +114,9 @@ additionalAttribute :: AdditionalAttribute additionalAttribute = - AdditionalAttribute' - { _aaValue = Nothing - , _aaKey = Nothing - } + AdditionalAttribute' {_aaValue = Nothing, _aaKey = Nothing} + -- | This parameter is reserved. aaValue :: Lens' AdditionalAttribute (Maybe Text) aaValue = lens _aaValue (\ s a -> s{_aaValue = a}); @@ -129,9 +130,9 @@ = AdditionalAttribute' <$> (x .@? "Value") <*> (x .@? "Key") -instance Hashable AdditionalAttribute +instance Hashable AdditionalAttribute where -instance NFData AdditionalAttribute +instance NFData AdditionalAttribute where instance ToQuery AdditionalAttribute where toQuery AdditionalAttribute'{..} @@ -143,10 +144,11 @@ -- -- /See:/ 'appCookieStickinessPolicy' smart constructor. data AppCookieStickinessPolicy = AppCookieStickinessPolicy' - { _acspPolicyName :: !(Maybe Text) - , _acspCookieName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _acspPolicyName :: !(Maybe Text) + , _acspCookieName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AppCookieStickinessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -157,11 +159,10 @@ appCookieStickinessPolicy :: AppCookieStickinessPolicy appCookieStickinessPolicy = - AppCookieStickinessPolicy' - { _acspPolicyName = Nothing - , _acspCookieName = Nothing - } + AppCookieStickinessPolicy' + {_acspPolicyName = Nothing, _acspCookieName = Nothing} + -- | The mnemonic name for the policy being created. The name must be unique within a set of policies for this load balancer. acspPolicyName :: Lens' AppCookieStickinessPolicy (Maybe Text) acspPolicyName = lens _acspPolicyName (\ s a -> s{_acspPolicyName = a}); @@ -175,9 +176,9 @@ = AppCookieStickinessPolicy' <$> (x .@? "PolicyName") <*> (x .@? "CookieName") -instance Hashable AppCookieStickinessPolicy +instance Hashable AppCookieStickinessPolicy where -instance NFData AppCookieStickinessPolicy +instance NFData AppCookieStickinessPolicy where -- | Information about the configuration of an EC2 instance. -- @@ -185,10 +186,11 @@ -- -- /See:/ 'backendServerDescription' smart constructor. data BackendServerDescription = BackendServerDescription' - { _bsdPolicyNames :: !(Maybe [Text]) - , _bsdInstancePort :: !(Maybe Nat) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _bsdPolicyNames :: !(Maybe [Text]) + , _bsdInstancePort :: !(Maybe Nat) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'BackendServerDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -199,11 +201,10 @@ backendServerDescription :: BackendServerDescription backendServerDescription = - BackendServerDescription' - { _bsdPolicyNames = Nothing - , _bsdInstancePort = Nothing - } + BackendServerDescription' + {_bsdPolicyNames = Nothing, _bsdInstancePort = Nothing} + -- | The names of the policies enabled for the EC2 instance. bsdPolicyNames :: Lens' BackendServerDescription [Text] bsdPolicyNames = lens _bsdPolicyNames (\ s a -> s{_bsdPolicyNames = a}) . _Default . _Coerce; @@ -219,9 +220,9 @@ may (parseXMLList "member")) <*> (x .@? "InstancePort") -instance Hashable BackendServerDescription +instance Hashable BackendServerDescription where -instance NFData BackendServerDescription +instance NFData BackendServerDescription where -- | Information about the @ConnectionDraining@ attribute. -- @@ -229,10 +230,11 @@ -- -- /See:/ 'connectionDraining' smart constructor. data ConnectionDraining = ConnectionDraining' - { _cdTimeout :: !(Maybe Int) - , _cdEnabled :: !Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _cdTimeout :: !(Maybe Int) + , _cdEnabled :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConnectionDraining' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -244,11 +246,9 @@ :: Bool -- ^ 'cdEnabled' -> ConnectionDraining connectionDraining pEnabled_ = - ConnectionDraining' - { _cdTimeout = Nothing - , _cdEnabled = pEnabled_ - } + ConnectionDraining' {_cdTimeout = Nothing, _cdEnabled = pEnabled_} + -- | The maximum time, in seconds, to keep the existing connections open before deregistering the instances. cdTimeout :: Lens' ConnectionDraining (Maybe Int) cdTimeout = lens _cdTimeout (\ s a -> s{_cdTimeout = a}); @@ -262,9 +262,9 @@ = ConnectionDraining' <$> (x .@? "Timeout") <*> (x .@ "Enabled") -instance Hashable ConnectionDraining +instance Hashable ConnectionDraining where -instance NFData ConnectionDraining +instance NFData ConnectionDraining where instance ToQuery ConnectionDraining where toQuery ConnectionDraining'{..} @@ -277,9 +277,10 @@ -- -- /See:/ 'connectionSettings' smart constructor. newtype ConnectionSettings = ConnectionSettings' - { _csIdleTimeout :: Nat - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _csIdleTimeout :: Nat + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ConnectionSettings' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -289,10 +290,9 @@ :: Natural -- ^ 'csIdleTimeout' -> ConnectionSettings connectionSettings pIdleTimeout_ = - ConnectionSettings' - { _csIdleTimeout = _Nat # pIdleTimeout_ - } + ConnectionSettings' {_csIdleTimeout = _Nat # pIdleTimeout_} + -- | The time, in seconds, that the connection is allowed to be idle (no data has been sent over the connection) before it is closed by the load balancer. csIdleTimeout :: Lens' ConnectionSettings Natural csIdleTimeout = lens _csIdleTimeout (\ s a -> s{_csIdleTimeout = a}) . _Nat; @@ -301,9 +301,9 @@ parseXML x = ConnectionSettings' <$> (x .@ "IdleTimeout") -instance Hashable ConnectionSettings +instance Hashable ConnectionSettings where -instance NFData ConnectionSettings +instance NFData ConnectionSettings where instance ToQuery ConnectionSettings where toQuery ConnectionSettings'{..} @@ -315,9 +315,10 @@ -- -- /See:/ 'crossZoneLoadBalancing' smart constructor. newtype CrossZoneLoadBalancing = CrossZoneLoadBalancing' - { _czlbEnabled :: Bool - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _czlbEnabled :: Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CrossZoneLoadBalancing' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -327,10 +328,9 @@ :: Bool -- ^ 'czlbEnabled' -> CrossZoneLoadBalancing crossZoneLoadBalancing pEnabled_ = - CrossZoneLoadBalancing' - { _czlbEnabled = pEnabled_ - } + CrossZoneLoadBalancing' {_czlbEnabled = pEnabled_} + -- | Specifies whether cross-zone load balancing is enabled for the load balancer. czlbEnabled :: Lens' CrossZoneLoadBalancing Bool czlbEnabled = lens _czlbEnabled (\ s a -> s{_czlbEnabled = a}); @@ -339,9 +339,9 @@ parseXML x = CrossZoneLoadBalancing' <$> (x .@ "Enabled") -instance Hashable CrossZoneLoadBalancing +instance Hashable CrossZoneLoadBalancing where -instance NFData CrossZoneLoadBalancing +instance NFData CrossZoneLoadBalancing where instance ToQuery CrossZoneLoadBalancing where toQuery CrossZoneLoadBalancing'{..} @@ -353,13 +353,14 @@ -- -- /See:/ 'healthCheck' smart constructor. data HealthCheck = HealthCheck' - { _hcTarget :: !Text - , _hcInterval :: !Nat - , _hcTimeout :: !Nat - , _hcUnhealthyThreshold :: !Nat - , _hcHealthyThreshold :: !Nat - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _hcTarget :: !Text + , _hcInterval :: !Nat + , _hcTimeout :: !Nat + , _hcUnhealthyThreshold :: !Nat + , _hcHealthyThreshold :: !Nat + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'HealthCheck' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -381,14 +382,15 @@ -> Natural -- ^ 'hcHealthyThreshold' -> HealthCheck healthCheck pTarget_ pInterval_ pTimeout_ pUnhealthyThreshold_ pHealthyThreshold_ = - HealthCheck' - { _hcTarget = pTarget_ - , _hcInterval = _Nat # pInterval_ - , _hcTimeout = _Nat # pTimeout_ - , _hcUnhealthyThreshold = _Nat # pUnhealthyThreshold_ - , _hcHealthyThreshold = _Nat # pHealthyThreshold_ - } + HealthCheck' + { _hcTarget = pTarget_ + , _hcInterval = _Nat # pInterval_ + , _hcTimeout = _Nat # pTimeout_ + , _hcUnhealthyThreshold = _Nat # pUnhealthyThreshold_ + , _hcHealthyThreshold = _Nat # pHealthyThreshold_ + } + -- | The instance being checked. The protocol is either TCP, HTTP, HTTPS, or SSL. The range of valid ports is one (1) through 65535. TCP is the default, specified as a TCP: port pair, for example "TCP:5000". In this case, a health check simply attempts to open a TCP connection to the instance on the specified port. Failure to connect within the configured timeout is considered unhealthy. SSL is also specified as SSL: port pair, for example, SSL:5000. For HTTP/HTTPS, you must include a ping path in the string. HTTP is specified as a HTTP:port;/;PathToPing; grouping, for example "HTTP:80/weather/us/wa/seattle". In this case, a HTTP GET request is issued to the instance on the given port and path. Any answer other than "200 OK" within the timeout period is considered unhealthy. The total length of the HTTP ping target must be 1024 16-bit Unicode characters or less. hcTarget :: Lens' HealthCheck Text hcTarget = lens _hcTarget (\ s a -> s{_hcTarget = a}); @@ -417,9 +419,9 @@ <*> (x .@ "UnhealthyThreshold") <*> (x .@ "HealthyThreshold") -instance Hashable HealthCheck +instance Hashable HealthCheck where -instance NFData HealthCheck +instance NFData HealthCheck where instance ToQuery HealthCheck where toQuery HealthCheck'{..} @@ -435,9 +437,10 @@ -- -- /See:/ 'instance'' smart constructor. newtype Instance = Instance' - { _iInstanceId :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _iInstanceId :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Instance' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -445,11 +448,9 @@ -- * 'iInstanceId' - The instance ID. instance' :: Instance -instance' = - Instance' - { _iInstanceId = Nothing - } +instance' = Instance' {_iInstanceId = Nothing} + -- | The instance ID. iInstanceId :: Lens' Instance (Maybe Text) iInstanceId = lens _iInstanceId (\ s a -> s{_iInstanceId = a}); @@ -457,9 +458,9 @@ instance FromXML Instance where parseXML x = Instance' <$> (x .@? "InstanceId") -instance Hashable Instance +instance Hashable Instance where -instance NFData Instance +instance NFData Instance where instance ToQuery Instance where toQuery Instance'{..} @@ -471,12 +472,13 @@ -- -- /See:/ 'instanceState' smart constructor. data InstanceState = InstanceState' - { _isInstanceId :: !(Maybe Text) - , _isState :: !(Maybe Text) - , _isReasonCode :: !(Maybe Text) - , _isDescription :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _isInstanceId :: !(Maybe Text) + , _isState :: !(Maybe Text) + , _isReasonCode :: !(Maybe Text) + , _isDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'InstanceState' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -491,13 +493,14 @@ instanceState :: InstanceState instanceState = - InstanceState' - { _isInstanceId = Nothing - , _isState = Nothing - , _isReasonCode = Nothing - , _isDescription = Nothing - } + InstanceState' + { _isInstanceId = Nothing + , _isState = Nothing + , _isReasonCode = Nothing + , _isDescription = Nothing + } + -- | The ID of the instance. isInstanceId :: Lens' InstanceState (Maybe Text) isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a}); @@ -521,9 +524,9 @@ (x .@? "ReasonCode") <*> (x .@? "Description") -instance Hashable InstanceState +instance Hashable InstanceState where -instance NFData InstanceState +instance NFData InstanceState where -- | Information about a policy for duration-based session stickiness. -- @@ -531,10 +534,11 @@ -- -- /See:/ 'lBCookieStickinessPolicy' smart constructor. data LBCookieStickinessPolicy = LBCookieStickinessPolicy' - { _lbcspPolicyName :: !(Maybe Text) - , _lbcspCookieExpirationPeriod :: !(Maybe Integer) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lbcspPolicyName :: !(Maybe Text) + , _lbcspCookieExpirationPeriod :: !(Maybe Integer) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LBCookieStickinessPolicy' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -545,11 +549,10 @@ lBCookieStickinessPolicy :: LBCookieStickinessPolicy lBCookieStickinessPolicy = - LBCookieStickinessPolicy' - { _lbcspPolicyName = Nothing - , _lbcspCookieExpirationPeriod = Nothing - } + LBCookieStickinessPolicy' + {_lbcspPolicyName = Nothing, _lbcspCookieExpirationPeriod = Nothing} + -- | The name of the policy. This name must be unique within the set of policies for this load balancer. lbcspPolicyName :: Lens' LBCookieStickinessPolicy (Maybe Text) lbcspPolicyName = lens _lbcspPolicyName (\ s a -> s{_lbcspPolicyName = a}); @@ -564,25 +567,65 @@ (x .@? "PolicyName") <*> (x .@? "CookieExpirationPeriod") -instance Hashable LBCookieStickinessPolicy +instance Hashable LBCookieStickinessPolicy where -instance NFData LBCookieStickinessPolicy +instance NFData LBCookieStickinessPolicy where +-- | Information about an Elastic Load Balancing resource limit for your AWS account. +-- +-- +-- +-- /See:/ 'limit' smart constructor. +data Limit = Limit' + { _lMax :: !(Maybe Text) + , _lName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Limit' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lMax' - The maximum value of the limit. +-- +-- * 'lName' - The name of the limit. The possible values are: * classic-listeners * classic-load-balancers +limit + :: Limit +limit = Limit' {_lMax = Nothing, _lName = Nothing} + + +-- | The maximum value of the limit. +lMax :: Lens' Limit (Maybe Text) +lMax = lens _lMax (\ s a -> s{_lMax = a}); + +-- | The name of the limit. The possible values are: * classic-listeners * classic-load-balancers +lName :: Lens' Limit (Maybe Text) +lName = lens _lName (\ s a -> s{_lName = a}); + +instance FromXML Limit where + parseXML x + = Limit' <$> (x .@? "Max") <*> (x .@? "Name") + +instance Hashable Limit where + +instance NFData Limit where + -- | Information about a listener. -- -- --- For information about the protocols and the ports supported by Elastic Load Balancing, see in the /Classic Load Balancers Guide/ . +-- For information about the protocols and the ports supported by Elastic Load Balancing, see in the /Classic Load Balancer Guide/ . -- -- -- /See:/ 'listener' smart constructor. data Listener = Listener' - { _lInstanceProtocol :: !(Maybe Text) - , _lSSLCertificateId :: !(Maybe Text) - , _lProtocol :: !Text - , _lLoadBalancerPort :: !Int - , _lInstancePort :: !Nat - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lInstanceProtocol :: !(Maybe Text) + , _lSSLCertificateId :: !(Maybe Text) + , _lProtocol :: !Text + , _lLoadBalancerPort :: !Int + , _lInstancePort :: !Nat + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Listener' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -602,14 +645,15 @@ -> Natural -- ^ 'lInstancePort' -> Listener listener pProtocol_ pLoadBalancerPort_ pInstancePort_ = - Listener' - { _lInstanceProtocol = Nothing - , _lSSLCertificateId = Nothing - , _lProtocol = pProtocol_ - , _lLoadBalancerPort = pLoadBalancerPort_ - , _lInstancePort = _Nat # pInstancePort_ - } + Listener' + { _lInstanceProtocol = Nothing + , _lSSLCertificateId = Nothing + , _lProtocol = pProtocol_ + , _lLoadBalancerPort = pLoadBalancerPort_ + , _lInstancePort = _Nat # pInstancePort_ + } + -- | The protocol to use for routing traffic to instances: HTTP, HTTPS, TCP, or SSL. If the front-end protocol is HTTP, HTTPS, TCP, or SSL, @InstanceProtocol@ must be at the same protocol. If there is another listener with the same @InstancePort@ whose @InstanceProtocol@ is secure, (HTTPS or SSL), the listener's @InstanceProtocol@ must also be secure. If there is another listener with the same @InstancePort@ whose @InstanceProtocol@ is HTTP or TCP, the listener's @InstanceProtocol@ must be HTTP or TCP. lInstanceProtocol :: Lens' Listener (Maybe Text) lInstanceProtocol = lens _lInstanceProtocol (\ s a -> s{_lInstanceProtocol = a}); @@ -639,9 +683,9 @@ <*> (x .@ "LoadBalancerPort") <*> (x .@ "InstancePort") -instance Hashable Listener +instance Hashable Listener where -instance NFData Listener +instance NFData Listener where instance ToQuery Listener where toQuery Listener'{..} @@ -658,30 +702,29 @@ -- -- /See:/ 'listenerDescription' smart constructor. data ListenerDescription = ListenerDescription' - { _ldPolicyNames :: !(Maybe [Text]) - , _ldListener :: !(Maybe Listener) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ldPolicyNames :: !(Maybe [Text]) + , _ldListener :: !(Maybe Listener) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListenerDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'ldPolicyNames' - The policies. If there are no policies enabled, the list is empty. -- --- * 'ldListener' - Undocumented member. +-- * 'ldListener' - The listener. listenerDescription :: ListenerDescription listenerDescription = - ListenerDescription' - { _ldPolicyNames = Nothing - , _ldListener = Nothing - } + ListenerDescription' {_ldPolicyNames = Nothing, _ldListener = Nothing} + -- | The policies. If there are no policies enabled, the list is empty. ldPolicyNames :: Lens' ListenerDescription [Text] ldPolicyNames = lens _ldPolicyNames (\ s a -> s{_ldPolicyNames = a}) . _Default . _Coerce; --- | Undocumented member. +-- | The listener. ldListener :: Lens' ListenerDescription (Maybe Listener) ldListener = lens _ldListener (\ s a -> s{_ldListener = a}); @@ -692,9 +735,9 @@ may (parseXMLList "member")) <*> (x .@? "Listener") -instance Hashable ListenerDescription +instance Hashable ListenerDescription where -instance NFData ListenerDescription +instance NFData ListenerDescription where -- | The attributes for a load balancer. -- @@ -702,42 +745,44 @@ -- -- /See:/ 'loadBalancerAttributes' smart constructor. data LoadBalancerAttributes = LoadBalancerAttributes' - { _lbaCrossZoneLoadBalancing :: !(Maybe CrossZoneLoadBalancing) - , _lbaAccessLog :: !(Maybe AccessLog) - , _lbaAdditionalAttributes :: !(Maybe [AdditionalAttribute]) - , _lbaConnectionSettings :: !(Maybe ConnectionSettings) - , _lbaConnectionDraining :: !(Maybe ConnectionDraining) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lbaCrossZoneLoadBalancing :: !(Maybe CrossZoneLoadBalancing) + , _lbaAccessLog :: !(Maybe AccessLog) + , _lbaAdditionalAttributes :: !(Maybe [AdditionalAttribute]) + , _lbaConnectionSettings :: !(Maybe ConnectionSettings) + , _lbaConnectionDraining :: !(Maybe ConnectionDraining) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LoadBalancerAttributes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'lbaCrossZoneLoadBalancing' - If enabled, the load balancer routes the request traffic evenly across all instances regardless of the Availability Zones. For more information, see in the /Classic Load Balancers Guide/ . +-- * 'lbaCrossZoneLoadBalancing' - If enabled, the load balancer routes the request traffic evenly across all instances regardless of the Availability Zones. For more information, see in the /Classic Load Balancer Guide/ . -- --- * 'lbaAccessLog' - If enabled, the load balancer captures detailed information of all requests and delivers the information to the Amazon S3 bucket that you specify. For more information, see in the /Classic Load Balancers Guide/ . +-- * 'lbaAccessLog' - If enabled, the load balancer captures detailed information of all requests and delivers the information to the Amazon S3 bucket that you specify. For more information, see in the /Classic Load Balancer Guide/ . -- -- * 'lbaAdditionalAttributes' - This parameter is reserved. -- --- * 'lbaConnectionSettings' - If enabled, the load balancer allows the connections to remain idle (no data is sent over the connection) for the specified duration. By default, Elastic Load Balancing maintains a 60-second idle connection timeout for both front-end and back-end connections of your load balancer. For more information, see in the /Classic Load Balancers Guide/ . +-- * 'lbaConnectionSettings' - If enabled, the load balancer allows the connections to remain idle (no data is sent over the connection) for the specified duration. By default, Elastic Load Balancing maintains a 60-second idle connection timeout for both front-end and back-end connections of your load balancer. For more information, see in the /Classic Load Balancer Guide/ . -- --- * 'lbaConnectionDraining' - If enabled, the load balancer allows existing requests to complete before the load balancer shifts traffic away from a deregistered or unhealthy instance. For more information, see in the /Classic Load Balancers Guide/ . +-- * 'lbaConnectionDraining' - If enabled, the load balancer allows existing requests to complete before the load balancer shifts traffic away from a deregistered or unhealthy instance. For more information, see in the /Classic Load Balancer Guide/ . loadBalancerAttributes :: LoadBalancerAttributes loadBalancerAttributes = - LoadBalancerAttributes' - { _lbaCrossZoneLoadBalancing = Nothing - , _lbaAccessLog = Nothing - , _lbaAdditionalAttributes = Nothing - , _lbaConnectionSettings = Nothing - , _lbaConnectionDraining = Nothing - } + LoadBalancerAttributes' + { _lbaCrossZoneLoadBalancing = Nothing + , _lbaAccessLog = Nothing + , _lbaAdditionalAttributes = Nothing + , _lbaConnectionSettings = Nothing + , _lbaConnectionDraining = Nothing + } --- | If enabled, the load balancer routes the request traffic evenly across all instances regardless of the Availability Zones. For more information, see in the /Classic Load Balancers Guide/ . + +-- | If enabled, the load balancer routes the request traffic evenly across all instances regardless of the Availability Zones. For more information, see in the /Classic Load Balancer Guide/ . lbaCrossZoneLoadBalancing :: Lens' LoadBalancerAttributes (Maybe CrossZoneLoadBalancing) lbaCrossZoneLoadBalancing = lens _lbaCrossZoneLoadBalancing (\ s a -> s{_lbaCrossZoneLoadBalancing = a}); --- | If enabled, the load balancer captures detailed information of all requests and delivers the information to the Amazon S3 bucket that you specify. For more information, see in the /Classic Load Balancers Guide/ . +-- | If enabled, the load balancer captures detailed information of all requests and delivers the information to the Amazon S3 bucket that you specify. For more information, see in the /Classic Load Balancer Guide/ . lbaAccessLog :: Lens' LoadBalancerAttributes (Maybe AccessLog) lbaAccessLog = lens _lbaAccessLog (\ s a -> s{_lbaAccessLog = a}); @@ -745,11 +790,11 @@ lbaAdditionalAttributes :: Lens' LoadBalancerAttributes [AdditionalAttribute] lbaAdditionalAttributes = lens _lbaAdditionalAttributes (\ s a -> s{_lbaAdditionalAttributes = a}) . _Default . _Coerce; --- | If enabled, the load balancer allows the connections to remain idle (no data is sent over the connection) for the specified duration. By default, Elastic Load Balancing maintains a 60-second idle connection timeout for both front-end and back-end connections of your load balancer. For more information, see in the /Classic Load Balancers Guide/ . +-- | If enabled, the load balancer allows the connections to remain idle (no data is sent over the connection) for the specified duration. By default, Elastic Load Balancing maintains a 60-second idle connection timeout for both front-end and back-end connections of your load balancer. For more information, see in the /Classic Load Balancer Guide/ . lbaConnectionSettings :: Lens' LoadBalancerAttributes (Maybe ConnectionSettings) lbaConnectionSettings = lens _lbaConnectionSettings (\ s a -> s{_lbaConnectionSettings = a}); --- | If enabled, the load balancer allows existing requests to complete before the load balancer shifts traffic away from a deregistered or unhealthy instance. For more information, see in the /Classic Load Balancers Guide/ . +-- | If enabled, the load balancer allows existing requests to complete before the load balancer shifts traffic away from a deregistered or unhealthy instance. For more information, see in the /Classic Load Balancer Guide/ . lbaConnectionDraining :: Lens' LoadBalancerAttributes (Maybe ConnectionDraining) lbaConnectionDraining = lens _lbaConnectionDraining (\ s a -> s{_lbaConnectionDraining = a}); @@ -764,9 +809,9 @@ <*> (x .@? "ConnectionSettings") <*> (x .@? "ConnectionDraining") -instance Hashable LoadBalancerAttributes +instance Hashable LoadBalancerAttributes where -instance NFData LoadBalancerAttributes +instance NFData LoadBalancerAttributes where instance ToQuery LoadBalancerAttributes where toQuery LoadBalancerAttributes'{..} @@ -786,31 +831,32 @@ -- -- /See:/ 'loadBalancerDescription' smart constructor. data LoadBalancerDescription = LoadBalancerDescription' - { _lbdSourceSecurityGroup :: !(Maybe SourceSecurityGroup) - , _lbdCanonicalHostedZoneName :: !(Maybe Text) - , _lbdSecurityGroups :: !(Maybe [Text]) - , _lbdHealthCheck :: !(Maybe HealthCheck) - , _lbdLoadBalancerName :: !(Maybe Text) - , _lbdCreatedTime :: !(Maybe ISO8601) - , _lbdVPCId :: !(Maybe Text) - , _lbdSubnets :: !(Maybe [Text]) - , _lbdAvailabilityZones :: !(Maybe [Text]) - , _lbdBackendServerDescriptions :: !(Maybe [BackendServerDescription]) - , _lbdCanonicalHostedZoneNameId :: !(Maybe Text) - , _lbdInstances :: !(Maybe [Instance]) - , _lbdScheme :: !(Maybe Text) - , _lbdListenerDescriptions :: !(Maybe [ListenerDescription]) - , _lbdDNSName :: !(Maybe Text) - , _lbdPolicies :: !(Maybe Policies) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _lbdSourceSecurityGroup :: !(Maybe SourceSecurityGroup) + , _lbdCanonicalHostedZoneName :: !(Maybe Text) + , _lbdSecurityGroups :: !(Maybe [Text]) + , _lbdHealthCheck :: !(Maybe HealthCheck) + , _lbdLoadBalancerName :: !(Maybe Text) + , _lbdCreatedTime :: !(Maybe ISO8601) + , _lbdVPCId :: !(Maybe Text) + , _lbdSubnets :: !(Maybe [Text]) + , _lbdAvailabilityZones :: !(Maybe [Text]) + , _lbdBackendServerDescriptions :: !(Maybe [BackendServerDescription]) + , _lbdCanonicalHostedZoneNameId :: !(Maybe Text) + , _lbdInstances :: !(Maybe [Instance]) + , _lbdScheme :: !(Maybe Text) + , _lbdListenerDescriptions :: !(Maybe [ListenerDescription]) + , _lbdDNSName :: !(Maybe Text) + , _lbdPolicies :: !(Maybe Policies) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'LoadBalancerDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'lbdSourceSecurityGroup' - The security group for the load balancer, which you can use as part of your inbound rules for your registered instances. To only allow traffic from load balancers, add a security group rule that specifies this source security group as the inbound source. -- --- * 'lbdCanonicalHostedZoneName' - The DNS name of the load balancer. For more information, see in the /Classic Load Balancers Guide/ . +-- * 'lbdCanonicalHostedZoneName' - The DNS name of the load balancer. For more information, see in the /Classic Load Balancer Guide/ . -- -- * 'lbdSecurityGroups' - The security groups for the load balancer. Valid only for load balancers in a VPC. -- @@ -842,30 +888,31 @@ loadBalancerDescription :: LoadBalancerDescription loadBalancerDescription = - LoadBalancerDescription' - { _lbdSourceSecurityGroup = Nothing - , _lbdCanonicalHostedZoneName = Nothing - , _lbdSecurityGroups = Nothing - , _lbdHealthCheck = Nothing - , _lbdLoadBalancerName = Nothing - , _lbdCreatedTime = Nothing - , _lbdVPCId = Nothing - , _lbdSubnets = Nothing - , _lbdAvailabilityZones = Nothing - , _lbdBackendServerDescriptions = Nothing - , _lbdCanonicalHostedZoneNameId = Nothing - , _lbdInstances = Nothing - , _lbdScheme = Nothing - , _lbdListenerDescriptions = Nothing - , _lbdDNSName = Nothing - , _lbdPolicies = Nothing - } + LoadBalancerDescription' + { _lbdSourceSecurityGroup = Nothing + , _lbdCanonicalHostedZoneName = Nothing + , _lbdSecurityGroups = Nothing + , _lbdHealthCheck = Nothing + , _lbdLoadBalancerName = Nothing + , _lbdCreatedTime = Nothing + , _lbdVPCId = Nothing + , _lbdSubnets = Nothing + , _lbdAvailabilityZones = Nothing + , _lbdBackendServerDescriptions = Nothing + , _lbdCanonicalHostedZoneNameId = Nothing + , _lbdInstances = Nothing + , _lbdScheme = Nothing + , _lbdListenerDescriptions = Nothing + , _lbdDNSName = Nothing + , _lbdPolicies = Nothing + } + -- | The security group for the load balancer, which you can use as part of your inbound rules for your registered instances. To only allow traffic from load balancers, add a security group rule that specifies this source security group as the inbound source. lbdSourceSecurityGroup :: Lens' LoadBalancerDescription (Maybe SourceSecurityGroup) lbdSourceSecurityGroup = lens _lbdSourceSecurityGroup (\ s a -> s{_lbdSourceSecurityGroup = a}); --- | The DNS name of the load balancer. For more information, see in the /Classic Load Balancers Guide/ . +-- | The DNS name of the load balancer. For more information, see in the /Classic Load Balancer Guide/ . lbdCanonicalHostedZoneName :: Lens' LoadBalancerDescription (Maybe Text) lbdCanonicalHostedZoneName = lens _lbdCanonicalHostedZoneName (\ s a -> s{_lbdCanonicalHostedZoneName = a}); @@ -957,9 +1004,9 @@ <*> (x .@? "DNSName") <*> (x .@? "Policies") -instance Hashable LoadBalancerDescription +instance Hashable LoadBalancerDescription where -instance NFData LoadBalancerDescription +instance NFData LoadBalancerDescription where -- | The policies for a load balancer. -- @@ -967,11 +1014,12 @@ -- -- /See:/ 'policies' smart constructor. data Policies = Policies' - { _pOtherPolicies :: !(Maybe [Text]) - , _pLBCookieStickinessPolicies :: !(Maybe [LBCookieStickinessPolicy]) - , _pAppCookieStickinessPolicies :: !(Maybe [AppCookieStickinessPolicy]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _pOtherPolicies :: !(Maybe [Text]) + , _pLBCookieStickinessPolicies :: !(Maybe [LBCookieStickinessPolicy]) + , _pAppCookieStickinessPolicies :: !(Maybe [AppCookieStickinessPolicy]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Policies' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -984,12 +1032,13 @@ policies :: Policies policies = - Policies' - { _pOtherPolicies = Nothing - , _pLBCookieStickinessPolicies = Nothing - , _pAppCookieStickinessPolicies = Nothing - } + Policies' + { _pOtherPolicies = Nothing + , _pLBCookieStickinessPolicies = Nothing + , _pAppCookieStickinessPolicies = Nothing + } + -- | The policies other than the stickiness policies. pOtherPolicies :: Lens' Policies [Text] pOtherPolicies = lens _pOtherPolicies (\ s a -> s{_pOtherPolicies = a}) . _Default . _Coerce; @@ -1014,9 +1063,9 @@ (x .@? "AppCookieStickinessPolicies" .!@ mempty >>= may (parseXMLList "member")) -instance Hashable Policies +instance Hashable Policies where -instance NFData Policies +instance NFData Policies where -- | Information about a policy attribute. -- @@ -1024,10 +1073,11 @@ -- -- /See:/ 'policyAttribute' smart constructor. data PolicyAttribute = PolicyAttribute' - { _paAttributeValue :: !(Maybe Text) - , _paAttributeName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _paAttributeValue :: !(Maybe Text) + , _paAttributeName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolicyAttribute' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1038,11 +1088,9 @@ policyAttribute :: PolicyAttribute policyAttribute = - PolicyAttribute' - { _paAttributeValue = Nothing - , _paAttributeName = Nothing - } + PolicyAttribute' {_paAttributeValue = Nothing, _paAttributeName = Nothing} + -- | The value of the attribute. paAttributeValue :: Lens' PolicyAttribute (Maybe Text) paAttributeValue = lens _paAttributeValue (\ s a -> s{_paAttributeValue = a}); @@ -1051,9 +1099,9 @@ paAttributeName :: Lens' PolicyAttribute (Maybe Text) paAttributeName = lens _paAttributeName (\ s a -> s{_paAttributeName = a}); -instance Hashable PolicyAttribute +instance Hashable PolicyAttribute where -instance NFData PolicyAttribute +instance NFData PolicyAttribute where instance ToQuery PolicyAttribute where toQuery PolicyAttribute'{..} @@ -1067,10 +1115,11 @@ -- -- /See:/ 'policyAttributeDescription' smart constructor. data PolicyAttributeDescription = PolicyAttributeDescription' - { _padAttributeValue :: !(Maybe Text) - , _padAttributeName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _padAttributeValue :: !(Maybe Text) + , _padAttributeName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolicyAttributeDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1081,11 +1130,10 @@ policyAttributeDescription :: PolicyAttributeDescription policyAttributeDescription = - PolicyAttributeDescription' - { _padAttributeValue = Nothing - , _padAttributeName = Nothing - } + PolicyAttributeDescription' + {_padAttributeValue = Nothing, _padAttributeName = Nothing} + -- | The value of the attribute. padAttributeValue :: Lens' PolicyAttributeDescription (Maybe Text) padAttributeValue = lens _padAttributeValue (\ s a -> s{_padAttributeValue = a}); @@ -1099,9 +1147,9 @@ = PolicyAttributeDescription' <$> (x .@? "AttributeValue") <*> (x .@? "AttributeName") -instance Hashable PolicyAttributeDescription +instance Hashable PolicyAttributeDescription where -instance NFData PolicyAttributeDescription +instance NFData PolicyAttributeDescription where -- | Information about a policy attribute type. -- @@ -1109,13 +1157,14 @@ -- -- /See:/ 'policyAttributeTypeDescription' smart constructor. data PolicyAttributeTypeDescription = PolicyAttributeTypeDescription' - { _patdAttributeType :: !(Maybe Text) - , _patdCardinality :: !(Maybe Text) - , _patdDefaultValue :: !(Maybe Text) - , _patdAttributeName :: !(Maybe Text) - , _patdDescription :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _patdAttributeType :: !(Maybe Text) + , _patdCardinality :: !(Maybe Text) + , _patdDefaultValue :: !(Maybe Text) + , _patdAttributeName :: !(Maybe Text) + , _patdDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolicyAttributeTypeDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1132,14 +1181,15 @@ policyAttributeTypeDescription :: PolicyAttributeTypeDescription policyAttributeTypeDescription = - PolicyAttributeTypeDescription' - { _patdAttributeType = Nothing - , _patdCardinality = Nothing - , _patdDefaultValue = Nothing - , _patdAttributeName = Nothing - , _patdDescription = Nothing - } + PolicyAttributeTypeDescription' + { _patdAttributeType = Nothing + , _patdCardinality = Nothing + , _patdDefaultValue = Nothing + , _patdAttributeName = Nothing + , _patdDescription = Nothing + } + -- | The type of the attribute. For example, @Boolean@ or @Integer@ . patdAttributeType :: Lens' PolicyAttributeTypeDescription (Maybe Text) patdAttributeType = lens _patdAttributeType (\ s a -> s{_patdAttributeType = a}); @@ -1169,8 +1219,9 @@ <*> (x .@? "Description") instance Hashable PolicyAttributeTypeDescription + where -instance NFData PolicyAttributeTypeDescription +instance NFData PolicyAttributeTypeDescription where -- | Information about a policy. -- @@ -1178,11 +1229,12 @@ -- -- /See:/ 'policyDescription' smart constructor. data PolicyDescription = PolicyDescription' - { _pdPolicyName :: !(Maybe Text) - , _pdPolicyAttributeDescriptions :: !(Maybe [PolicyAttributeDescription]) - , _pdPolicyTypeName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _pdPolicyName :: !(Maybe Text) + , _pdPolicyAttributeDescriptions :: !(Maybe [PolicyAttributeDescription]) + , _pdPolicyTypeName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolicyDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1195,12 +1247,13 @@ policyDescription :: PolicyDescription policyDescription = - PolicyDescription' - { _pdPolicyName = Nothing - , _pdPolicyAttributeDescriptions = Nothing - , _pdPolicyTypeName = Nothing - } + PolicyDescription' + { _pdPolicyName = Nothing + , _pdPolicyAttributeDescriptions = Nothing + , _pdPolicyTypeName = Nothing + } + -- | The name of the policy. pdPolicyName :: Lens' PolicyDescription (Maybe Text) pdPolicyName = lens _pdPolicyName (\ s a -> s{_pdPolicyName = a}); @@ -1221,9 +1274,9 @@ may (parseXMLList "member")) <*> (x .@? "PolicyTypeName") -instance Hashable PolicyDescription +instance Hashable PolicyDescription where -instance NFData PolicyDescription +instance NFData PolicyDescription where -- | Information about a policy type. -- @@ -1231,11 +1284,12 @@ -- -- /See:/ 'policyTypeDescription' smart constructor. data PolicyTypeDescription = PolicyTypeDescription' - { _ptdPolicyTypeName :: !(Maybe Text) - , _ptdDescription :: !(Maybe Text) - , _ptdPolicyAttributeTypeDescriptions :: !(Maybe [PolicyAttributeTypeDescription]) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ptdPolicyTypeName :: !(Maybe Text) + , _ptdDescription :: !(Maybe Text) + , _ptdPolicyAttributeTypeDescriptions :: !(Maybe [PolicyAttributeTypeDescription]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'PolicyTypeDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1248,12 +1302,13 @@ policyTypeDescription :: PolicyTypeDescription policyTypeDescription = - PolicyTypeDescription' - { _ptdPolicyTypeName = Nothing - , _ptdDescription = Nothing - , _ptdPolicyAttributeTypeDescriptions = Nothing - } + PolicyTypeDescription' + { _ptdPolicyTypeName = Nothing + , _ptdDescription = Nothing + , _ptdPolicyAttributeTypeDescriptions = Nothing + } + -- | The name of the policy type. ptdPolicyTypeName :: Lens' PolicyTypeDescription (Maybe Text) ptdPolicyTypeName = lens _ptdPolicyTypeName (\ s a -> s{_ptdPolicyTypeName = a}); @@ -1274,9 +1329,9 @@ (x .@? "PolicyAttributeTypeDescriptions" .!@ mempty >>= may (parseXMLList "member")) -instance Hashable PolicyTypeDescription +instance Hashable PolicyTypeDescription where -instance NFData PolicyTypeDescription +instance NFData PolicyTypeDescription where -- | Information about a source security group. -- @@ -1284,10 +1339,11 @@ -- -- /See:/ 'sourceSecurityGroup' smart constructor. data SourceSecurityGroup = SourceSecurityGroup' - { _ssgOwnerAlias :: !(Maybe Text) - , _ssgGroupName :: !(Maybe Text) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _ssgOwnerAlias :: !(Maybe Text) + , _ssgGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SourceSecurityGroup' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1298,11 +1354,9 @@ sourceSecurityGroup :: SourceSecurityGroup sourceSecurityGroup = - SourceSecurityGroup' - { _ssgOwnerAlias = Nothing - , _ssgGroupName = Nothing - } + SourceSecurityGroup' {_ssgOwnerAlias = Nothing, _ssgGroupName = Nothing} + -- | The owner of the security group. ssgOwnerAlias :: Lens' SourceSecurityGroup (Maybe Text) ssgOwnerAlias = lens _ssgOwnerAlias (\ s a -> s{_ssgOwnerAlias = a}); @@ -1316,9 +1370,9 @@ = SourceSecurityGroup' <$> (x .@? "OwnerAlias") <*> (x .@? "GroupName") -instance Hashable SourceSecurityGroup +instance Hashable SourceSecurityGroup where -instance NFData SourceSecurityGroup +instance NFData SourceSecurityGroup where -- | Information about a tag. -- @@ -1326,10 +1380,11 @@ -- -- /See:/ 'tag' smart constructor. data Tag = Tag' - { _tagValue :: !(Maybe Text) - , _tagKey :: !Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tagValue :: !(Maybe Text) + , _tagKey :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'Tag' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1340,12 +1395,9 @@ tag :: Text -- ^ 'tagKey' -> Tag -tag pKey_ = - Tag' - { _tagValue = Nothing - , _tagKey = pKey_ - } +tag pKey_ = Tag' {_tagValue = Nothing, _tagKey = pKey_} + -- | The value of the tag. tagValue :: Lens' Tag (Maybe Text) tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); @@ -1358,9 +1410,9 @@ parseXML x = Tag' <$> (x .@? "Value") <*> (x .@ "Key") -instance Hashable Tag +instance Hashable Tag where -instance NFData Tag +instance NFData Tag where instance ToQuery Tag where toQuery Tag'{..} @@ -1372,10 +1424,11 @@ -- -- /See:/ 'tagDescription' smart constructor. data TagDescription = TagDescription' - { _tdLoadBalancerName :: !(Maybe Text) - , _tdTags :: !(Maybe (List1 Tag)) - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tdLoadBalancerName :: !(Maybe Text) + , _tdTags :: !(Maybe (List1 Tag)) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TagDescription' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1386,11 +1439,9 @@ tagDescription :: TagDescription tagDescription = - TagDescription' - { _tdLoadBalancerName = Nothing - , _tdTags = Nothing - } + TagDescription' {_tdLoadBalancerName = Nothing, _tdTags = Nothing} + -- | The name of the load balancer. tdLoadBalancerName :: Lens' TagDescription (Maybe Text) tdLoadBalancerName = lens _tdLoadBalancerName (\ s a -> s{_tdLoadBalancerName = a}); @@ -1406,9 +1457,9 @@ (x .@? "Tags" .!@ mempty >>= may (parseXMLList1 "member")) -instance Hashable TagDescription +instance Hashable TagDescription where -instance NFData TagDescription +instance NFData TagDescription where -- | The key of a tag. -- @@ -1416,9 +1467,10 @@ -- -- /See:/ 'tagKeyOnly' smart constructor. newtype TagKeyOnly = TagKeyOnly' - { _tkoKey :: Maybe Text - } deriving (Eq,Read,Show,Data,Typeable,Generic) + { _tkoKey :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'TagKeyOnly' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: @@ -1426,18 +1478,16 @@ -- * 'tkoKey' - The name of the key. tagKeyOnly :: TagKeyOnly -tagKeyOnly = - TagKeyOnly' - { _tkoKey = Nothing - } +tagKeyOnly = TagKeyOnly' {_tkoKey = Nothing} + -- | The name of the key. tkoKey :: Lens' TagKeyOnly (Maybe Text) tkoKey = lens _tkoKey (\ s a -> s{_tkoKey = a}); -instance Hashable TagKeyOnly +instance Hashable TagKeyOnly where -instance NFData TagKeyOnly +instance NFData TagKeyOnly where instance ToQuery TagKeyOnly where toQuery TagKeyOnly'{..} = mconcat ["Key" =: _tkoKey] diff --git a/gen/Network/AWS/ELB/Types/Sum.hs b/gen/Network/AWS/ELB/Types/Sum.hs --- a/gen/Network/AWS/ELB/Types/Sum.hs +++ b/gen/Network/AWS/ELB/Types/Sum.hs @@ -9,13 +9,13 @@ -- | -- Module : Network.AWS.ELB.Types.Sum --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.ELB.Types.Sum where -import Network.AWS.ELB.Internal -import Network.AWS.Prelude +import Network.AWS.ELB.Internal +import Network.AWS.Prelude diff --git a/gen/Network/AWS/ELB/Waiters.hs b/gen/Network/AWS/ELB/Waiters.hs --- a/gen/Network/AWS/ELB/Waiters.hs +++ b/gen/Network/AWS/ELB/Waiters.hs @@ -7,15 +7,51 @@ -- | -- Module : Network.AWS.ELB.Waiters --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Network.AWS.ELB.Waiters where -import Network.AWS.ELB.Types -import Network.AWS.Lens -import Network.AWS.Prelude -import Network.AWS.Waiter +import Network.AWS.ELB.DescribeInstanceHealth +import Network.AWS.ELB.DescribeInstanceHealth +import Network.AWS.ELB.Types +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Waiter + +-- | Polls 'Network.AWS.ELB.DescribeInstanceHealth' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. +anyInstanceInService :: Wait DescribeInstanceHealth +anyInstanceInService = + Wait + { _waitName = "AnyInstanceInService" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAny + "InService" + AcceptSuccess + (folding (concatOf dihrsInstanceStates) . + isState . _Just . to toTextCI) + ] + } + + +-- | Polls 'Network.AWS.ELB.DescribeInstanceHealth' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. +instanceInService :: Wait DescribeInstanceHealth +instanceInService = + Wait + { _waitName = "InstanceInService" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "InService" + AcceptSuccess + (folding (concatOf dihrsInstanceStates) . + isState . _Just . to toTextCI) + ] + } + diff --git a/src/Network/AWS/ELB/Internal.hs b/src/Network/AWS/ELB/Internal.hs --- a/src/Network/AWS/ELB/Internal.hs +++ b/src/Network/AWS/ELB/Internal.hs @@ -27,12 +27,14 @@ Ohio -> "033677994240" NorthCalifornia -> "027434742980" Oregon -> "797873946194" + Montreal -> "985666609251" Tokyo -> "582318560864" Seoul -> "600734575887" Mumbai -> "718504428378" Singapore -> "114774131450" Sydney -> "783225319266" Ireland -> "156460612806" + London -> "652711504416" Frankfurt -> "054676820928" SaoPaulo -> "507241528517" GovCloud -> "048591011584" diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,9 +2,9 @@ -- | -- Module : Main --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- diff --git a/test/Test/AWS/Gen/ELB.hs b/test/Test/AWS/Gen/ELB.hs --- a/test/Test/AWS/Gen/ELB.hs +++ b/test/Test/AWS/Gen/ELB.hs @@ -5,20 +5,20 @@ -- | -- Module : Test.AWS.Gen.ELB --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2017 Brendan Hay -- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay +-- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- module Test.AWS.Gen.ELB where import Data.Proxy +import Network.AWS.ELB +import Test.AWS.ELB.Internal import Test.AWS.Fixture import Test.AWS.Prelude import Test.Tasty -import Network.AWS.ELB -import Test.AWS.ELB.Internal -- Auto-generated: the actual test selection needs to be manually placed into -- the top-level so that real test data can be incrementally added. @@ -70,6 +70,9 @@ -- , requestSetLoadBalancerListenerSSLCertificate $ -- setLoadBalancerListenerSSLCertificate -- +-- , requestDescribeAccountLimits $ +-- describeAccountLimits +-- -- , requestAttachLoadBalancerToSubnets $ -- attachLoadBalancerToSubnets -- @@ -157,6 +160,9 @@ -- , responseSetLoadBalancerListenerSSLCertificate $ -- setLoadBalancerListenerSSLCertificateResponse -- +-- , responseDescribeAccountLimits $ +-- describeAccountLimitsResponse +-- -- , responseAttachLoadBalancerToSubnets $ -- attachLoadBalancerToSubnetsResponse -- @@ -274,6 +280,11 @@ "SetLoadBalancerListenerSSLCertificate" "fixture/SetLoadBalancerListenerSSLCertificate.yaml" +requestDescribeAccountLimits :: DescribeAccountLimits -> TestTree +requestDescribeAccountLimits = req + "DescribeAccountLimits" + "fixture/DescribeAccountLimits.yaml" + requestAttachLoadBalancerToSubnets :: AttachLoadBalancerToSubnets -> TestTree requestAttachLoadBalancerToSubnets = req "AttachLoadBalancerToSubnets" @@ -443,6 +454,13 @@ "fixture/SetLoadBalancerListenerSSLCertificateResponse.proto" elb (Proxy :: Proxy SetLoadBalancerListenerSSLCertificate) + +responseDescribeAccountLimits :: DescribeAccountLimitsResponse -> TestTree +responseDescribeAccountLimits = res + "DescribeAccountLimitsResponse" + "fixture/DescribeAccountLimitsResponse.proto" + elb + (Proxy :: Proxy DescribeAccountLimits) responseAttachLoadBalancerToSubnets :: AttachLoadBalancerToSubnetsResponse -> TestTree responseAttachLoadBalancerToSubnets = res