diff --git a/amazonka-elb.cabal b/amazonka-elb.cabal
--- a/amazonka-elb.cabal
+++ b/amazonka-elb.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-elb
-version:               0.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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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.
 --
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
@@ -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
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
@@ -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
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
@@ -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.
 --
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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.
 --
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
@@ -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
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
@@ -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
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
@@ -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.
 --
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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.
 --
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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
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
@@ -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.
 --