amazonka-elb 0.2.1 → 0.2.2

raw patch · 30 files changed

+83/−83 lines, 30 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-elb.cabal +2/−2
• gen/Network/AWS/ELB/AddTags.hs +2/−2
• gen/Network/AWS/ELB/ApplySecurityGroupsToLoadBalancer.hs +2/−2
• gen/Network/AWS/ELB/AttachLoadBalancerToSubnets.hs +2/−2
• gen/Network/AWS/ELB/ConfigureHealthCheck.hs +2/−2
• gen/Network/AWS/ELB/CreateAppCookieStickinessPolicy.hs +2/−2
• gen/Network/AWS/ELB/CreateLBCookieStickinessPolicy.hs +2/−2
• gen/Network/AWS/ELB/CreateLoadBalancer.hs +2/−2
• gen/Network/AWS/ELB/CreateLoadBalancerListeners.hs +2/−2
• gen/Network/AWS/ELB/CreateLoadBalancerPolicy.hs +2/−2
• gen/Network/AWS/ELB/DeleteLoadBalancer.hs +2/−2
• gen/Network/AWS/ELB/DeleteLoadBalancerListeners.hs +2/−2
• gen/Network/AWS/ELB/DeleteLoadBalancerPolicy.hs +2/−2
• gen/Network/AWS/ELB/DeregisterInstancesFromLoadBalancer.hs +2/−2
• gen/Network/AWS/ELB/DescribeInstanceHealth.hs +2/−2
• gen/Network/AWS/ELB/DescribeLoadBalancerAttributes.hs +2/−2
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicies.hs +2/−2
• gen/Network/AWS/ELB/DescribeLoadBalancerPolicyTypes.hs +2/−2
• gen/Network/AWS/ELB/DescribeLoadBalancers.hs +2/−2
• gen/Network/AWS/ELB/DescribeTags.hs +2/−2
• gen/Network/AWS/ELB/DetachLoadBalancerFromSubnets.hs +2/−2
• gen/Network/AWS/ELB/DisableAvailabilityZonesForLoadBalancer.hs +2/−2
• gen/Network/AWS/ELB/EnableAvailabilityZonesForLoadBalancer.hs +2/−2
• gen/Network/AWS/ELB/ModifyLoadBalancerAttributes.hs +2/−2
• gen/Network/AWS/ELB/RegisterInstancesWithLoadBalancer.hs +2/−2
• gen/Network/AWS/ELB/RemoveTags.hs +2/−2
• gen/Network/AWS/ELB/SetLoadBalancerListenerSSLCertificate.hs +2/−2
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesForBackendServer.hs +2/−2
• gen/Network/AWS/ELB/SetLoadBalancerPoliciesOfListener.hs +2/−2
• gen/Network/AWS/ELB/Types.hs +25/−25

@@ -1,5 +1,5 @@ name:                  amazonka-elb-version:               0.2.1+version:               0.2.2 synopsis:              Amazon Elastic Load Balancing SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -70,5 +70,5 @@     other-modules:      build-depends:-          amazonka-core == 0.2.1.*+          amazonka-core == 0.2.2.*         , base          >= 4.7     && < 5

@@ -56,7 +56,7 @@ data AddTags = AddTags     { _atLoadBalancerNames :: List "member" Text     , _atTags              :: List1 "member" Tag-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'AddTags' constructor. --@@ -85,7 +85,7 @@ atTags = lens _atTags (\s a -> s { _atTags = a }) . _List1  data AddTagsResponse = AddTagsResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'AddTagsResponse' constructor. addTagsResponse :: AddTagsResponse

@@ -55,7 +55,7 @@ data ApplySecurityGroupsToLoadBalancer = ApplySecurityGroupsToLoadBalancer     { _asgtlbLoadBalancerName :: Text     , _asgtlbSecurityGroups   :: List "member" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ApplySecurityGroupsToLoadBalancer' constructor. --@@ -88,7 +88,7 @@  newtype ApplySecurityGroupsToLoadBalancerResponse = ApplySecurityGroupsToLoadBalancerResponse     { _asgtlbrSecurityGroups :: List "member" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList ApplySecurityGroupsToLoadBalancerResponse where     type Item ApplySecurityGroupsToLoadBalancerResponse = Text

@@ -56,7 +56,7 @@ data AttachLoadBalancerToSubnets = AttachLoadBalancerToSubnets     { _albtsLoadBalancerName :: Text     , _albtsSubnets          :: List "member" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AttachLoadBalancerToSubnets' constructor. --@@ -86,7 +86,7 @@  newtype AttachLoadBalancerToSubnetsResponse = AttachLoadBalancerToSubnetsResponse     { _albtsrSubnets :: List "member" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList AttachLoadBalancerToSubnetsResponse where     type Item AttachLoadBalancerToSubnetsResponse = Text

@@ -54,7 +54,7 @@ data ConfigureHealthCheck = ConfigureHealthCheck     { _chcHealthCheck      :: HealthCheck     , _chcLoadBalancerName :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ConfigureHealthCheck' constructor. --@@ -85,7 +85,7 @@  newtype ConfigureHealthCheckResponse = ConfigureHealthCheckResponse     { _chcrHealthCheck :: Maybe HealthCheck-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ConfigureHealthCheckResponse' constructor. --

@@ -67,7 +67,7 @@     { _cacspCookieName       :: Text     , _cacspLoadBalancerName :: Text     , _cacspPolicyName       :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'CreateAppCookieStickinessPolicy' constructor. --@@ -104,7 +104,7 @@ cacspPolicyName = lens _cacspPolicyName (\s a -> s { _cacspPolicyName = a })  data CreateAppCookieStickinessPolicyResponse = CreateAppCookieStickinessPolicyResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'CreateAppCookieStickinessPolicyResponse' constructor. createAppCookieStickinessPolicyResponse :: CreateAppCookieStickinessPolicyResponse

@@ -67,7 +67,7 @@     { _clbcspCookieExpirationPeriod :: Maybe Integer     , _clbcspLoadBalancerName       :: Text     , _clbcspPolicyName             :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'CreateLBCookieStickinessPolicy' constructor. --@@ -107,7 +107,7 @@ clbcspPolicyName = lens _clbcspPolicyName (\s a -> s { _clbcspPolicyName = a })  data CreateLBCookieStickinessPolicyResponse = CreateLBCookieStickinessPolicyResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'CreateLBCookieStickinessPolicyResponse' constructor. createLBCookieStickinessPolicyResponse :: CreateLBCookieStickinessPolicyResponse

@@ -83,7 +83,7 @@     , _clbSecurityGroups    :: List "member" Text     , _clbSubnets           :: List "member" Text     , _clbTags              :: List1 "member" Tag-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateLoadBalancer' constructor. --@@ -175,7 +175,7 @@  newtype CreateLoadBalancerResponse = CreateLoadBalancerResponse     { _clbrDNSName :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'CreateLoadBalancerResponse' constructor. --

@@ -54,7 +54,7 @@ data CreateLoadBalancerListeners = CreateLoadBalancerListeners     { _clblListeners        :: List "member" Listener     , _clblLoadBalancerName :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateLoadBalancerListeners' constructor. --@@ -81,7 +81,7 @@     lens _clblLoadBalancerName (\s a -> s { _clblLoadBalancerName = a })  data CreateLoadBalancerListenersResponse = CreateLoadBalancerListenersResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'CreateLoadBalancerListenersResponse' constructor. createLoadBalancerListenersResponse :: CreateLoadBalancerListenersResponse

@@ -56,7 +56,7 @@     , _clbpPolicyAttributes :: List "member" PolicyAttribute     , _clbpPolicyName       :: Text     , _clbpPolicyTypeName   :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'CreateLoadBalancerPolicy' constructor. --@@ -105,7 +105,7 @@     lens _clbpPolicyTypeName (\s a -> s { _clbpPolicyTypeName = a })  data CreateLoadBalancerPolicyResponse = CreateLoadBalancerPolicyResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'CreateLoadBalancerPolicyResponse' constructor. createLoadBalancerPolicyResponse :: CreateLoadBalancerPolicyResponse

@@ -59,7 +59,7 @@  newtype DeleteLoadBalancer = DeleteLoadBalancer     { _dlbLoadBalancerName :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DeleteLoadBalancer' constructor. --@@ -79,7 +79,7 @@     lens _dlbLoadBalancerName (\s a -> s { _dlbLoadBalancerName = a })  data DeleteLoadBalancerResponse = DeleteLoadBalancerResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteLoadBalancerResponse' constructor. deleteLoadBalancerResponse :: DeleteLoadBalancerResponse

@@ -49,7 +49,7 @@ data DeleteLoadBalancerListeners = DeleteLoadBalancerListeners     { _dlblLoadBalancerName  :: Text     , _dlblLoadBalancerPorts :: List "member" Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DeleteLoadBalancerListeners' constructor. --@@ -78,7 +78,7 @@         . _List  data DeleteLoadBalancerListenersResponse = DeleteLoadBalancerListenersResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteLoadBalancerListenersResponse' constructor. deleteLoadBalancerListenersResponse :: DeleteLoadBalancerListenersResponse

@@ -50,7 +50,7 @@ data DeleteLoadBalancerPolicy = DeleteLoadBalancerPolicy     { _dlbp1LoadBalancerName :: Text     , _dlbp1PolicyName       :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DeleteLoadBalancerPolicy' constructor. --@@ -78,7 +78,7 @@ dlbp1PolicyName = lens _dlbp1PolicyName (\s a -> s { _dlbp1PolicyName = a })  data DeleteLoadBalancerPolicyResponse = DeleteLoadBalancerPolicyResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'DeleteLoadBalancerPolicyResponse' constructor. deleteLoadBalancerPolicyResponse :: DeleteLoadBalancerPolicyResponse

@@ -61,7 +61,7 @@ data DeregisterInstancesFromLoadBalancer = DeregisterInstancesFromLoadBalancer     { _diflbInstances        :: List "member" Instance     , _diflbLoadBalancerName :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DeregisterInstancesFromLoadBalancer' constructor. --@@ -89,7 +89,7 @@  newtype DeregisterInstancesFromLoadBalancerResponse = DeregisterInstancesFromLoadBalancerResponse     { _diflbrInstances :: List "member" Instance-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DeregisterInstancesFromLoadBalancerResponse where     type Item DeregisterInstancesFromLoadBalancerResponse = Instance

@@ -56,7 +56,7 @@ data DescribeInstanceHealth = DescribeInstanceHealth     { _dihInstances        :: List "member" Instance     , _dihLoadBalancerName :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DescribeInstanceHealth' constructor. --@@ -84,7 +84,7 @@  newtype DescribeInstanceHealthResponse = DescribeInstanceHealthResponse     { _dihrInstanceStates :: List "member" InstanceState-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeInstanceHealthResponse where     type Item DescribeInstanceHealthResponse = InstanceState

@@ -50,7 +50,7 @@  newtype DescribeLoadBalancerAttributes = DescribeLoadBalancerAttributes     { _dlbaLoadBalancerName :: Text-    } deriving (Eq, Ord, Show, Monoid, IsString)+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)  -- | 'DescribeLoadBalancerAttributes' constructor. --@@ -71,7 +71,7 @@  newtype DescribeLoadBalancerAttributesResponse = DescribeLoadBalancerAttributesResponse     { _dlbarLoadBalancerAttributes :: Maybe LoadBalancerAttributes-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DescribeLoadBalancerAttributesResponse' constructor. --

@@ -57,7 +57,7 @@ data DescribeLoadBalancerPolicies = DescribeLoadBalancerPolicies     { _dlbpLoadBalancerName :: Maybe Text     , _dlbpPolicyNames      :: List "member" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeLoadBalancerPolicies' constructor. --@@ -88,7 +88,7 @@  newtype DescribeLoadBalancerPoliciesResponse = DescribeLoadBalancerPoliciesResponse     { _dlbprPolicyDescriptions :: List "member" PolicyDescription-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeLoadBalancerPoliciesResponse where     type Item DescribeLoadBalancerPoliciesResponse = PolicyDescription

@@ -52,7 +52,7 @@  newtype DescribeLoadBalancerPolicyTypes = DescribeLoadBalancerPolicyTypes     { _dlbptPolicyTypeNames :: List "member" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeLoadBalancerPolicyTypes where     type Item DescribeLoadBalancerPolicyTypes = Text@@ -81,7 +81,7 @@  newtype DescribeLoadBalancerPolicyTypesResponse = DescribeLoadBalancerPolicyTypesResponse     { _dlbptrPolicyTypeDescriptions :: List "member" PolicyTypeDescription-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeLoadBalancerPolicyTypesResponse where     type Item DescribeLoadBalancerPolicyTypesResponse = PolicyTypeDescription

@@ -59,7 +59,7 @@     { _dlbLoadBalancerNames :: List "member" Text     , _dlbMarker            :: Maybe Text     , _dlbPageSize          :: Maybe Nat-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DescribeLoadBalancers' constructor. --@@ -97,7 +97,7 @@ data DescribeLoadBalancersResponse = DescribeLoadBalancersResponse     { _dlbrLoadBalancerDescriptions :: List "member" LoadBalancerDescription     , _dlbrNextMarker               :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'DescribeLoadBalancersResponse' constructor. --

@@ -49,7 +49,7 @@  newtype DescribeTags = DescribeTags     { _dtLoadBalancerNames :: List1 "member" Text-    } deriving (Eq, Ord, Show, Semigroup)+    } deriving (Eq, Ord, Read, Show, Semigroup)  -- | 'DescribeTags' constructor. --@@ -71,7 +71,7 @@  newtype DescribeTagsResponse = DescribeTagsResponse     { _dtrTagDescriptions :: List "member" TagDescription-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DescribeTagsResponse where     type Item DescribeTagsResponse = TagDescription

@@ -57,7 +57,7 @@ data DetachLoadBalancerFromSubnets = DetachLoadBalancerFromSubnets     { _dlbfsLoadBalancerName :: Text     , _dlbfsSubnets          :: List "member" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DetachLoadBalancerFromSubnets' constructor. --@@ -86,7 +86,7 @@  newtype DetachLoadBalancerFromSubnetsResponse = DetachLoadBalancerFromSubnetsResponse     { _dlbfsrSubnets :: List "member" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DetachLoadBalancerFromSubnetsResponse where     type Item DetachLoadBalancerFromSubnetsResponse = Text

@@ -62,7 +62,7 @@ data DisableAvailabilityZonesForLoadBalancer = DisableAvailabilityZonesForLoadBalancer     { _dazflbAvailabilityZones :: List "member" Text     , _dazflbLoadBalancerName  :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'DisableAvailabilityZonesForLoadBalancer' constructor. --@@ -96,7 +96,7 @@  newtype DisableAvailabilityZonesForLoadBalancerResponse = DisableAvailabilityZonesForLoadBalancerResponse     { _dazflbrAvailabilityZones :: List "member" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList DisableAvailabilityZonesForLoadBalancerResponse where     type Item DisableAvailabilityZonesForLoadBalancerResponse = Text

@@ -58,7 +58,7 @@ data EnableAvailabilityZonesForLoadBalancer = EnableAvailabilityZonesForLoadBalancer     { _eazflbAvailabilityZones :: List "member" Text     , _eazflbLoadBalancerName  :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'EnableAvailabilityZonesForLoadBalancer' constructor. --@@ -89,7 +89,7 @@  newtype EnableAvailabilityZonesForLoadBalancerResponse = EnableAvailabilityZonesForLoadBalancerResponse     { _eazflbrAvailabilityZones :: List "member" Text-    } deriving (Eq, Ord, Show, Monoid, Semigroup)+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList EnableAvailabilityZonesForLoadBalancerResponse where     type Item EnableAvailabilityZonesForLoadBalancerResponse = Text

@@ -60,7 +60,7 @@ data ModifyLoadBalancerAttributes = ModifyLoadBalancerAttributes     { _mlbaLoadBalancerAttributes :: LoadBalancerAttributes     , _mlbaLoadBalancerName       :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ModifyLoadBalancerAttributes' constructor. --@@ -92,7 +92,7 @@ data ModifyLoadBalancerAttributesResponse = ModifyLoadBalancerAttributesResponse     { _mlbarLoadBalancerAttributes :: Maybe LoadBalancerAttributes     , _mlbarLoadBalancerName       :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ModifyLoadBalancerAttributesResponse' constructor. --

@@ -75,7 +75,7 @@ data RegisterInstancesWithLoadBalancer = RegisterInstancesWithLoadBalancer     { _riwlbInstances        :: List "member" Instance     , _riwlbLoadBalancerName :: Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'RegisterInstancesWithLoadBalancer' constructor. --@@ -104,7 +104,7 @@  newtype RegisterInstancesWithLoadBalancerResponse = RegisterInstancesWithLoadBalancerResponse     { _riwlbrInstances :: List "member" Instance-    } deriving (Eq, Show, Monoid, Semigroup)+    } deriving (Eq, Read, Show, Monoid, Semigroup)  instance GHC.Exts.IsList RegisterInstancesWithLoadBalancerResponse where     type Item RegisterInstancesWithLoadBalancerResponse = Instance

@@ -49,7 +49,7 @@ data RemoveTags = RemoveTags     { _rtLoadBalancerNames :: List "member" Text     , _rtTags              :: List1 "member" TagKeyOnly-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'RemoveTags' constructor. --@@ -78,7 +78,7 @@ rtTags = lens _rtTags (\s a -> s { _rtTags = a }) . _List1  data RemoveTagsResponse = RemoveTagsResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'RemoveTagsResponse' constructor. removeTagsResponse :: RemoveTagsResponse

@@ -55,7 +55,7 @@     { _slblsslcLoadBalancerName :: Text     , _slblsslcLoadBalancerPort :: Int     , _slblsslcSSLCertificateId :: Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'SetLoadBalancerListenerSSLCertificate' constructor. --@@ -98,7 +98,7 @@         (\s a -> s { _slblsslcSSLCertificateId = a })  data SetLoadBalancerListenerSSLCertificateResponse = SetLoadBalancerListenerSSLCertificateResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'SetLoadBalancerListenerSSLCertificateResponse' constructor. setLoadBalancerListenerSSLCertificateResponse :: SetLoadBalancerListenerSSLCertificateResponse

@@ -64,7 +64,7 @@     { _slbpfbsInstancePort     :: Int     , _slbpfbsLoadBalancerName :: Text     , _slbpfbsPolicyNames      :: List "member" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'SetLoadBalancerPoliciesForBackendServer' constructor. --@@ -104,7 +104,7 @@         . _List  data SetLoadBalancerPoliciesForBackendServerResponse = SetLoadBalancerPoliciesForBackendServerResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'SetLoadBalancerPoliciesForBackendServerResponse' constructor. setLoadBalancerPoliciesForBackendServerResponse :: SetLoadBalancerPoliciesForBackendServerResponse

@@ -52,7 +52,7 @@     { _slbpolLoadBalancerName :: Text     , _slbpolLoadBalancerPort :: Int     , _slbpolPolicyNames      :: List "member" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'SetLoadBalancerPoliciesOfListener' constructor. --@@ -91,7 +91,7 @@         . _List  data SetLoadBalancerPoliciesOfListenerResponse = SetLoadBalancerPoliciesOfListenerResponse-    deriving (Eq, Ord, Show, Generic)+    deriving (Eq, Ord, Read, Show, Generic)  -- | 'SetLoadBalancerPoliciesOfListenerResponse' constructor. setLoadBalancerPoliciesOfListenerResponse :: SetLoadBalancerPoliciesOfListenerResponse

@@ -265,7 +265,7 @@ data SourceSecurityGroup = SourceSecurityGroup     { _ssgGroupName  :: Maybe Text     , _ssgOwnerAlias :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'SourceSecurityGroup' constructor. --@@ -304,7 +304,7 @@ data TagDescription = TagDescription     { _tdLoadBalancerName :: Maybe Text     , _tdTags             :: List1 "member" Tag-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'TagDescription' constructor. --@@ -344,7 +344,7 @@ data Tag = Tag     { _tagKey   :: Text     , _tagValue :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Tag' constructor. --@@ -386,7 +386,7 @@     , _patdCardinality   :: Maybe Text     , _patdDefaultValue  :: Maybe Text     , _patdDescription   :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'PolicyAttributeTypeDescription' constructor. --@@ -458,7 +458,7 @@     , _hcTarget             :: Text     , _hcTimeout            :: Nat     , _hcUnhealthyThreshold :: Nat-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'HealthCheck' constructor. --@@ -556,7 +556,7 @@  newtype CrossZoneLoadBalancing = CrossZoneLoadBalancing     { _czlbEnabled :: Bool-    } deriving (Eq, Ord, Show, Enum)+    } deriving (Eq, Ord, Read, Show, Enum)  -- | 'CrossZoneLoadBalancing' constructor. --@@ -589,7 +589,7 @@     , _lbaConnectionDraining     :: Maybe ConnectionDraining     , _lbaConnectionSettings     :: Maybe ConnectionSettings     , _lbaCrossZoneLoadBalancing :: Maybe CrossZoneLoadBalancing-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'LoadBalancerAttributes' constructor. --@@ -681,7 +681,7 @@     , _alEnabled        :: Bool     , _alS3BucketName   :: Maybe Text     , _alS3BucketPrefix :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AccessLog' constructor. --@@ -742,7 +742,7 @@ data ListenerDescription = ListenerDescription     { _ldListener    :: Maybe Listener     , _ldPolicyNames :: List "member" Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'ListenerDescription' constructor. --@@ -780,7 +780,7 @@ data LBCookieStickinessPolicy = LBCookieStickinessPolicy     { _lbcspCookieExpirationPeriod :: Maybe Integer     , _lbcspPolicyName             :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'LBCookieStickinessPolicy' constructor. --@@ -824,7 +824,7 @@     { _pdPolicyAttributeDescriptions :: List "member" PolicyAttributeDescription     , _pdPolicyName                  :: Maybe Text     , _pdPolicyTypeName              :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'PolicyDescription' constructor. --@@ -874,7 +874,7 @@ data AppCookieStickinessPolicy = AppCookieStickinessPolicy     { _acspCookieName :: Maybe Text     , _acspPolicyName :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AppCookieStickinessPolicy' constructor. --@@ -913,7 +913,7 @@ data PolicyAttribute = PolicyAttribute     { _paAttributeName  :: Maybe Text     , _paAttributeValue :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'PolicyAttribute' constructor. --@@ -965,7 +965,7 @@     , _lbdSourceSecurityGroup       :: Maybe SourceSecurityGroup     , _lbdSubnets                   :: List "member" Text     , _lbdVPCId                     :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'LoadBalancerDescription' constructor. --@@ -1162,7 +1162,7 @@ data BackendServerDescription = BackendServerDescription     { _bsdInstancePort :: Maybe Nat     , _bsdPolicyNames  :: List "member" Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'BackendServerDescription' constructor. --@@ -1200,7 +1200,7 @@ data PolicyAttributeDescription = PolicyAttributeDescription     { _padAttributeName  :: Maybe Text     , _padAttributeValue :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'PolicyAttributeDescription' constructor. --@@ -1239,7 +1239,7 @@ data AdditionalAttribute = AdditionalAttribute     { _aaKey   :: Maybe Text     , _aaValue :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'AdditionalAttribute' constructor. --@@ -1274,7 +1274,7 @@  newtype ConnectionSettings = ConnectionSettings     { _csIdleTimeout :: Nat-    } deriving (Eq, Ord, Show, Enum, Num, Integral, Real)+    } deriving (Eq, Ord, Read, Show, Enum, Num, Integral, Real)  -- | 'ConnectionSettings' constructor. --@@ -1306,7 +1306,7 @@     { _ptdDescription                     :: Maybe Text     , _ptdPolicyAttributeTypeDescriptions :: List "member" PolicyAttributeTypeDescription     , _ptdPolicyTypeName                  :: Maybe Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'PolicyTypeDescription' constructor. --@@ -1359,7 +1359,7 @@     { _pAppCookieStickinessPolicies :: List "member" AppCookieStickinessPolicy     , _pLBCookieStickinessPolicies  :: List "member" LBCookieStickinessPolicy     , _pOtherPolicies               :: List "member" Text-    } deriving (Eq, Show)+    } deriving (Eq, Read, Show)  -- | 'Policies' constructor. --@@ -1415,7 +1415,7 @@     , _lLoadBalancerPort :: Int     , _lProtocol         :: Text     , _lSSLCertificateId :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'Listener' constructor. --@@ -1500,7 +1500,7 @@ data ConnectionDraining = ConnectionDraining     { _cdEnabled :: Bool     , _cdTimeout :: Maybe Int-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'ConnectionDraining' constructor. --@@ -1542,7 +1542,7 @@     , _isInstanceId  :: Maybe Text     , _isReasonCode  :: Maybe Text     , _isState       :: Maybe Text-    } deriving (Eq, Ord, Show)+    } deriving (Eq, Ord, Read, Show)  -- | 'InstanceState' constructor. --@@ -1603,7 +1603,7 @@  newtype TagKeyOnly = TagKeyOnly     { _tkoKey :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'TagKeyOnly' constructor. --@@ -1631,7 +1631,7 @@  newtype Instance = Instance     { _iInstanceId :: Maybe Text-    } deriving (Eq, Ord, Show, Monoid)+    } deriving (Eq, Ord, Read, Show, Monoid)  -- | 'Instance' constructor. --