diff --git a/amazonka-rds.cabal b/amazonka-rds.cabal
--- a/amazonka-rds.cabal
+++ b/amazonka-rds.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-rds
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Relational Database Service SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -99,5 +99,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/RDS/AddSourceIdentifierToSubscription.hs b/gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs
--- a/gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs
+++ b/gen/Network/AWS/RDS/AddSourceIdentifierToSubscription.hs
@@ -51,7 +51,7 @@
 data AddSourceIdentifierToSubscription = AddSourceIdentifierToSubscription
     { _asitsSourceIdentifier :: Text
     , _asitsSubscriptionName :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AddSourceIdentifierToSubscription' constructor.
 --
@@ -91,7 +91,7 @@
 
 newtype AddSourceIdentifierToSubscriptionResponse = AddSourceIdentifierToSubscriptionResponse
     { _asitsrEventSubscription :: Maybe EventSubscription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AddSourceIdentifierToSubscriptionResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/AddTagsToResource.hs b/gen/Network/AWS/RDS/AddTagsToResource.hs
--- a/gen/Network/AWS/RDS/AddTagsToResource.hs
+++ b/gen/Network/AWS/RDS/AddTagsToResource.hs
@@ -53,7 +53,7 @@
 data AddTagsToResource = AddTagsToResource
     { _attrResourceName :: Text
     , _attrTags         :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AddTagsToResource' constructor.
 --
@@ -80,7 +80,7 @@
 attrTags = lens _attrTags (\s a -> s { _attrTags = a }) . _List
 
 data AddTagsToResourceResponse = AddTagsToResourceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'AddTagsToResourceResponse' constructor.
 addTagsToResourceResponse :: AddTagsToResourceResponse
diff --git a/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs b/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs
--- a/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs
+++ b/gen/Network/AWS/RDS/ApplyPendingMaintenanceAction.hs
@@ -53,7 +53,7 @@
     { _apmaApplyAction        :: Text
     , _apmaOptInType          :: Text
     , _apmaResourceIdentifier :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ApplyPendingMaintenanceAction' constructor.
 --
@@ -99,7 +99,7 @@
 
 newtype ApplyPendingMaintenanceActionResponse = ApplyPendingMaintenanceActionResponse
     { _apmarResourcePendingMaintenanceActions :: Maybe ResourcePendingMaintenanceActions
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ApplyPendingMaintenanceActionResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs b/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs
--- a/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs
+++ b/gen/Network/AWS/RDS/AuthorizeDBSecurityGroupIngress.hs
@@ -69,7 +69,7 @@
     , _adbsgiEC2SecurityGroupId      :: Maybe Text
     , _adbsgiEC2SecurityGroupName    :: Maybe Text
     , _adbsgiEC2SecurityGroupOwnerId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AuthorizeDBSecurityGroupIngress' constructor.
 --
@@ -128,7 +128,7 @@
 
 newtype AuthorizeDBSecurityGroupIngressResponse = AuthorizeDBSecurityGroupIngressResponse
     { _adbsgirDBSecurityGroup :: Maybe DBSecurityGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AuthorizeDBSecurityGroupIngressResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CopyDBParameterGroup.hs b/gen/Network/AWS/RDS/CopyDBParameterGroup.hs
--- a/gen/Network/AWS/RDS/CopyDBParameterGroup.hs
+++ b/gen/Network/AWS/RDS/CopyDBParameterGroup.hs
@@ -55,7 +55,7 @@
     , _cdbpgTags                              :: List "member" Tag
     , _cdbpgTargetDBParameterGroupDescription :: Text
     , _cdbpgTargetDBParameterGroupIdentifier  :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CopyDBParameterGroup' constructor.
 --
@@ -117,7 +117,7 @@
 
 newtype CopyDBParameterGroupResponse = CopyDBParameterGroupResponse
     { _cdbpgr1DBParameterGroup :: Maybe DBParameterGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CopyDBParameterGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CopyDBSnapshot.hs b/gen/Network/AWS/RDS/CopyDBSnapshot.hs
--- a/gen/Network/AWS/RDS/CopyDBSnapshot.hs
+++ b/gen/Network/AWS/RDS/CopyDBSnapshot.hs
@@ -54,7 +54,7 @@
     { _cdbsSourceDBSnapshotIdentifier :: Text
     , _cdbsTags                       :: List "member" Tag
     , _cdbsTargetDBSnapshotIdentifier :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CopyDBSnapshot' constructor.
 --
@@ -107,7 +107,7 @@
 
 newtype CopyDBSnapshotResponse = CopyDBSnapshotResponse
     { _cdbsrDBSnapshot :: Maybe DBSnapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CopyDBSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CopyOptionGroup.hs b/gen/Network/AWS/RDS/CopyOptionGroup.hs
--- a/gen/Network/AWS/RDS/CopyOptionGroup.hs
+++ b/gen/Network/AWS/RDS/CopyOptionGroup.hs
@@ -55,7 +55,7 @@
     , _cog1Tags                         :: List "member" Tag
     , _cog1TargetOptionGroupDescription :: Text
     , _cog1TargetOptionGroupIdentifier  :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CopyOptionGroup' constructor.
 --
@@ -115,7 +115,7 @@
 
 newtype CopyOptionGroupResponse = CopyOptionGroupResponse
     { _cogrOptionGroup :: Maybe OptionGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CopyOptionGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateDBInstance.hs b/gen/Network/AWS/RDS/CreateDBInstance.hs
--- a/gen/Network/AWS/RDS/CreateDBInstance.hs
+++ b/gen/Network/AWS/RDS/CreateDBInstance.hs
@@ -107,7 +107,7 @@
     , _cdbiTdeCredentialArn           :: Maybe Text
     , _cdbiTdeCredentialPassword      :: Maybe Text
     , _cdbiVpcSecurityGroupIds        :: List "member" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBInstance' constructor.
 --
@@ -623,7 +623,7 @@
 
 newtype CreateDBInstanceResponse = CreateDBInstanceResponse
     { _cdbirDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBInstanceResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs b/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs
--- a/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs
+++ b/gen/Network/AWS/RDS/CreateDBInstanceReadReplica.hs
@@ -80,7 +80,7 @@
     , _cdbirrSourceDBInstanceIdentifier :: Text
     , _cdbirrStorageType                :: Maybe Text
     , _cdbirrTags                       :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBInstanceReadReplica' constructor.
 --
@@ -252,7 +252,7 @@
 
 newtype CreateDBInstanceReadReplicaResponse = CreateDBInstanceReadReplicaResponse
     { _cdbirrrDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBInstanceReadReplicaResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateDBParameterGroup.hs b/gen/Network/AWS/RDS/CreateDBParameterGroup.hs
--- a/gen/Network/AWS/RDS/CreateDBParameterGroup.hs
+++ b/gen/Network/AWS/RDS/CreateDBParameterGroup.hs
@@ -74,7 +74,7 @@
     , _cdbpg1DBParameterGroupName   :: Text
     , _cdbpg1Description            :: Text
     , _cdbpg1Tags                   :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBParameterGroup' constructor.
 --
@@ -129,7 +129,7 @@
 
 newtype CreateDBParameterGroupResponse = CreateDBParameterGroupResponse
     { _cdbpgrDBParameterGroup :: Maybe DBParameterGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBParameterGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs b/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs
--- a/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs
+++ b/gen/Network/AWS/RDS/CreateDBSecurityGroup.hs
@@ -54,7 +54,7 @@
     { _cdbsgDBSecurityGroupDescription :: Text
     , _cdbsgDBSecurityGroupName        :: Text
     , _cdbsgTags                       :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBSecurityGroup' constructor.
 --
@@ -98,7 +98,7 @@
 
 newtype CreateDBSecurityGroupResponse = CreateDBSecurityGroupResponse
     { _cdbsgrDBSecurityGroup :: Maybe DBSecurityGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBSecurityGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateDBSnapshot.hs b/gen/Network/AWS/RDS/CreateDBSnapshot.hs
--- a/gen/Network/AWS/RDS/CreateDBSnapshot.hs
+++ b/gen/Network/AWS/RDS/CreateDBSnapshot.hs
@@ -53,7 +53,7 @@
     { _cdbs1DBInstanceIdentifier :: Text
     , _cdbs1DBSnapshotIdentifier :: Text
     , _cdbs1Tags                 :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBSnapshot' constructor.
 --
@@ -104,7 +104,7 @@
 
 newtype CreateDBSnapshotResponse = CreateDBSnapshotResponse
     { _cdbsr1DBSnapshot :: Maybe DBSnapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs b/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs
--- a/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs
+++ b/gen/Network/AWS/RDS/CreateDBSubnetGroup.hs
@@ -56,7 +56,7 @@
     , _cdbsg1DBSubnetGroupName        :: Text
     , _cdbsg1SubnetIds                :: List "member" Text
     , _cdbsg1Tags                     :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBSubnetGroup' constructor.
 --
@@ -106,7 +106,7 @@
 
 newtype CreateDBSubnetGroupResponse = CreateDBSubnetGroupResponse
     { _cdbsgrDBSubnetGroup :: Maybe DBSubnetGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDBSubnetGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateEventSubscription.hs b/gen/Network/AWS/RDS/CreateEventSubscription.hs
--- a/gen/Network/AWS/RDS/CreateEventSubscription.hs
+++ b/gen/Network/AWS/RDS/CreateEventSubscription.hs
@@ -80,7 +80,7 @@
     , _cesSourceType       :: Maybe Text
     , _cesSubscriptionName :: Text
     , _cesTags             :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateEventSubscription' constructor.
 --
@@ -170,7 +170,7 @@
 
 newtype CreateEventSubscriptionResponse = CreateEventSubscriptionResponse
     { _cesrEventSubscription :: Maybe EventSubscription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateEventSubscriptionResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/CreateOptionGroup.hs b/gen/Network/AWS/RDS/CreateOptionGroup.hs
--- a/gen/Network/AWS/RDS/CreateOptionGroup.hs
+++ b/gen/Network/AWS/RDS/CreateOptionGroup.hs
@@ -57,7 +57,7 @@
     , _cogOptionGroupDescription :: Text
     , _cogOptionGroupName        :: Text
     , _cogTags                   :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateOptionGroup' constructor.
 --
@@ -119,7 +119,7 @@
 
 newtype CreateOptionGroupResponse = CreateOptionGroupResponse
     { _cogr1OptionGroup :: Maybe OptionGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateOptionGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DeleteDBInstance.hs b/gen/Network/AWS/RDS/DeleteDBInstance.hs
--- a/gen/Network/AWS/RDS/DeleteDBInstance.hs
+++ b/gen/Network/AWS/RDS/DeleteDBInstance.hs
@@ -62,7 +62,7 @@
     { _ddbiDBInstanceIdentifier      :: Text
     , _ddbiFinalDBSnapshotIdentifier :: Maybe Text
     , _ddbiSkipFinalSnapshot         :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteDBInstance' constructor.
 --
@@ -122,7 +122,7 @@
 
 newtype DeleteDBInstanceResponse = DeleteDBInstanceResponse
     { _ddbirDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteDBInstanceResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs b/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs
--- a/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs
+++ b/gen/Network/AWS/RDS/DeleteDBParameterGroup.hs
@@ -51,7 +51,7 @@
 
 newtype DeleteDBParameterGroup = DeleteDBParameterGroup
     { _ddbpg1DBParameterGroupName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteDBParameterGroup' constructor.
 --
@@ -77,7 +77,7 @@
         (\s a -> s { _ddbpg1DBParameterGroupName = a })
 
 data DeleteDBParameterGroupResponse = DeleteDBParameterGroupResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteDBParameterGroupResponse' constructor.
 deleteDBParameterGroupResponse :: DeleteDBParameterGroupResponse
diff --git a/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs b/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs
--- a/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs
+++ b/gen/Network/AWS/RDS/DeleteDBSecurityGroup.hs
@@ -49,7 +49,7 @@
 
 newtype DeleteDBSecurityGroup = DeleteDBSecurityGroup
     { _ddbsgDBSecurityGroupName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteDBSecurityGroup' constructor.
 --
@@ -75,7 +75,7 @@
         (\s a -> s { _ddbsgDBSecurityGroupName = a })
 
 data DeleteDBSecurityGroupResponse = DeleteDBSecurityGroupResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteDBSecurityGroupResponse' constructor.
 deleteDBSecurityGroupResponse :: DeleteDBSecurityGroupResponse
diff --git a/gen/Network/AWS/RDS/DeleteDBSnapshot.hs b/gen/Network/AWS/RDS/DeleteDBSnapshot.hs
--- a/gen/Network/AWS/RDS/DeleteDBSnapshot.hs
+++ b/gen/Network/AWS/RDS/DeleteDBSnapshot.hs
@@ -52,7 +52,7 @@
 
 newtype DeleteDBSnapshot = DeleteDBSnapshot
     { _ddbs1DBSnapshotIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteDBSnapshot' constructor.
 --
@@ -77,7 +77,7 @@
 
 newtype DeleteDBSnapshotResponse = DeleteDBSnapshotResponse
     { _ddbsrDBSnapshot :: Maybe DBSnapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteDBSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs b/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs
--- a/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs
+++ b/gen/Network/AWS/RDS/DeleteDBSubnetGroup.hs
@@ -50,7 +50,7 @@
 
 newtype DeleteDBSubnetGroup = DeleteDBSubnetGroup
     { _ddbsg1DBSubnetGroupName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteDBSubnetGroup' constructor.
 --
@@ -75,7 +75,7 @@
     lens _ddbsg1DBSubnetGroupName (\s a -> s { _ddbsg1DBSubnetGroupName = a })
 
 data DeleteDBSubnetGroupResponse = DeleteDBSubnetGroupResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteDBSubnetGroupResponse' constructor.
 deleteDBSubnetGroupResponse :: DeleteDBSubnetGroupResponse
diff --git a/gen/Network/AWS/RDS/DeleteEventSubscription.hs b/gen/Network/AWS/RDS/DeleteEventSubscription.hs
--- a/gen/Network/AWS/RDS/DeleteEventSubscription.hs
+++ b/gen/Network/AWS/RDS/DeleteEventSubscription.hs
@@ -49,7 +49,7 @@
 
 newtype DeleteEventSubscription = DeleteEventSubscription
     { _desSubscriptionName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteEventSubscription' constructor.
 --
@@ -70,7 +70,7 @@
 
 newtype DeleteEventSubscriptionResponse = DeleteEventSubscriptionResponse
     { _desrEventSubscription :: Maybe EventSubscription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteEventSubscriptionResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DeleteOptionGroup.hs b/gen/Network/AWS/RDS/DeleteOptionGroup.hs
--- a/gen/Network/AWS/RDS/DeleteOptionGroup.hs
+++ b/gen/Network/AWS/RDS/DeleteOptionGroup.hs
@@ -47,7 +47,7 @@
 
 newtype DeleteOptionGroup = DeleteOptionGroup
     { _dog1OptionGroupName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteOptionGroup' constructor.
 --
@@ -69,7 +69,7 @@
     lens _dog1OptionGroupName (\s a -> s { _dog1OptionGroupName = a })
 
 data DeleteOptionGroupResponse = DeleteOptionGroupResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteOptionGroupResponse' constructor.
 deleteOptionGroupResponse :: DeleteOptionGroupResponse
diff --git a/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs b/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs
--- a/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs
+++ b/gen/Network/AWS/RDS/DescribeDBEngineVersions.hs
@@ -64,7 +64,7 @@
     , _ddbevListSupportedCharacterSets :: Maybe Bool
     , _ddbevMarker                     :: Maybe Text
     , _ddbevMaxRecords                 :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBEngineVersions' constructor.
 --
@@ -155,7 +155,7 @@
 data DescribeDBEngineVersionsResponse = DescribeDBEngineVersionsResponse
     { _ddbevrDBEngineVersions :: List "member" DBEngineVersion
     , _ddbevrMarker           :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBEngineVersionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeDBInstances.hs b/gen/Network/AWS/RDS/DescribeDBInstances.hs
--- a/gen/Network/AWS/RDS/DescribeDBInstances.hs
+++ b/gen/Network/AWS/RDS/DescribeDBInstances.hs
@@ -57,7 +57,7 @@
     , _ddbi1Filters              :: List "member" Filter
     , _ddbi1Marker               :: Maybe Text
     , _ddbi1MaxRecords           :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBInstances' constructor.
 --
@@ -116,7 +116,7 @@
 data DescribeDBInstancesResponse = DescribeDBInstancesResponse
     { _ddbirDBInstances :: List "member" DBInstance
     , _ddbirMarker      :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBInstancesResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeDBLogFiles.hs b/gen/Network/AWS/RDS/DescribeDBLogFiles.hs
--- a/gen/Network/AWS/RDS/DescribeDBLogFiles.hs
+++ b/gen/Network/AWS/RDS/DescribeDBLogFiles.hs
@@ -62,7 +62,7 @@
     , _ddblfFilters              :: List "member" Filter
     , _ddblfMarker               :: Maybe Text
     , _ddblfMaxRecords           :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBLogFiles' constructor.
 --
@@ -142,7 +142,7 @@
 data DescribeDBLogFilesResponse = DescribeDBLogFilesResponse
     { _ddblfrDescribeDBLogFiles :: List "member" DescribeDBLogFilesDetails
     , _ddblfrMarker             :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBLogFilesResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs b/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs
--- a/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs
+++ b/gen/Network/AWS/RDS/DescribeDBParameterGroups.hs
@@ -58,7 +58,7 @@
     , _ddbpgFilters              :: List "member" Filter
     , _ddbpgMarker               :: Maybe Text
     , _ddbpgMaxRecords           :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBParameterGroups' constructor.
 --
@@ -114,7 +114,7 @@
 data DescribeDBParameterGroupsResponse = DescribeDBParameterGroupsResponse
     { _ddbpgrDBParameterGroups :: List "member" DBParameterGroup
     , _ddbpgrMarker            :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBParameterGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeDBParameters.hs b/gen/Network/AWS/RDS/DescribeDBParameters.hs
--- a/gen/Network/AWS/RDS/DescribeDBParameters.hs
+++ b/gen/Network/AWS/RDS/DescribeDBParameters.hs
@@ -58,7 +58,7 @@
     , _ddbpMarker               :: Maybe Text
     , _ddbpMaxRecords           :: Maybe Int
     , _ddbpSource               :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBParameters' constructor.
 --
@@ -126,7 +126,7 @@
 data DescribeDBParametersResponse = DescribeDBParametersResponse
     { _ddbprMarker     :: Maybe Text
     , _ddbprParameters :: List "member" Parameter
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBParametersResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs b/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs
--- a/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs
+++ b/gen/Network/AWS/RDS/DescribeDBSecurityGroups.hs
@@ -58,7 +58,7 @@
     , _ddbsg1Filters             :: List "member" Filter
     , _ddbsg1Marker              :: Maybe Text
     , _ddbsg1MaxRecords          :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBSecurityGroups' constructor.
 --
@@ -109,7 +109,7 @@
 data DescribeDBSecurityGroupsResponse = DescribeDBSecurityGroupsResponse
     { _ddbsgr1DBSecurityGroups :: List "member" DBSecurityGroup
     , _ddbsgr1Marker           :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBSecurityGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeDBSnapshots.hs b/gen/Network/AWS/RDS/DescribeDBSnapshots.hs
--- a/gen/Network/AWS/RDS/DescribeDBSnapshots.hs
+++ b/gen/Network/AWS/RDS/DescribeDBSnapshots.hs
@@ -60,7 +60,7 @@
     , _ddbsMarker               :: Maybe Text
     , _ddbsMaxRecords           :: Maybe Int
     , _ddbsSnapshotType         :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBSnapshots' constructor.
 --
@@ -144,7 +144,7 @@
 data DescribeDBSnapshotsResponse = DescribeDBSnapshotsResponse
     { _ddbsrDBSnapshots :: List "member" DBSnapshot
     , _ddbsrMarker      :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBSnapshotsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs b/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs
--- a/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs
+++ b/gen/Network/AWS/RDS/DescribeDBSubnetGroups.hs
@@ -60,7 +60,7 @@
     , _ddbsgFilters           :: List "member" Filter
     , _ddbsgMarker            :: Maybe Text
     , _ddbsgMaxRecords        :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBSubnetGroups' constructor.
 --
@@ -110,7 +110,7 @@
 data DescribeDBSubnetGroupsResponse = DescribeDBSubnetGroupsResponse
     { _ddbsgrDBSubnetGroups :: List "member" DBSubnetGroup
     , _ddbsgrMarker         :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDBSubnetGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs b/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs
--- a/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs
+++ b/gen/Network/AWS/RDS/DescribeEngineDefaultParameters.hs
@@ -56,7 +56,7 @@
     , _dedpFilters                :: List "member" Filter
     , _dedpMarker                 :: Maybe Text
     , _dedpMaxRecords             :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEngineDefaultParameters' constructor.
 --
@@ -106,7 +106,7 @@
 
 newtype DescribeEngineDefaultParametersResponse = DescribeEngineDefaultParametersResponse
     { _dedprEngineDefaults :: EngineDefaults
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEngineDefaultParametersResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeEventCategories.hs b/gen/Network/AWS/RDS/DescribeEventCategories.hs
--- a/gen/Network/AWS/RDS/DescribeEventCategories.hs
+++ b/gen/Network/AWS/RDS/DescribeEventCategories.hs
@@ -53,7 +53,7 @@
 data DescribeEventCategories = DescribeEventCategories
     { _decFilters    :: List "member" Filter
     , _decSourceType :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEventCategories' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype DescribeEventCategoriesResponse = DescribeEventCategoriesResponse
     { _decrEventCategoriesMapList :: List "member" EventCategoriesMap
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeEventCategoriesResponse where
     type Item DescribeEventCategoriesResponse = EventCategoriesMap
diff --git a/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs b/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs
--- a/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs
+++ b/gen/Network/AWS/RDS/DescribeEventSubscriptions.hs
@@ -61,7 +61,7 @@
     , _des1Marker           :: Maybe Text
     , _des1MaxRecords       :: Maybe Int
     , _des1SubscriptionName :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEventSubscriptions' constructor.
 --
@@ -112,7 +112,7 @@
 data DescribeEventSubscriptionsResponse = DescribeEventSubscriptionsResponse
     { _desrEventSubscriptionsList :: List "member" EventSubscription
     , _desrMarker                 :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEventSubscriptionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeEvents.hs b/gen/Network/AWS/RDS/DescribeEvents.hs
--- a/gen/Network/AWS/RDS/DescribeEvents.hs
+++ b/gen/Network/AWS/RDS/DescribeEvents.hs
@@ -70,7 +70,7 @@
     , _deSourceIdentifier :: Maybe Text
     , _deSourceType       :: Maybe SourceType
     , _deStartTime        :: Maybe ISO8601
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEvents' constructor.
 --
@@ -177,7 +177,7 @@
 data DescribeEventsResponse = DescribeEventsResponse
     { _derEvents :: List "member" Event
     , _derMarker :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEventsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs b/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs
--- a/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs
+++ b/gen/Network/AWS/RDS/DescribeOptionGroupOptions.hs
@@ -58,7 +58,7 @@
     , _dogoMajorEngineVersion :: Maybe Text
     , _dogoMarker             :: Maybe Text
     , _dogoMaxRecords         :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeOptionGroupOptions' constructor.
 --
@@ -118,7 +118,7 @@
 data DescribeOptionGroupOptionsResponse = DescribeOptionGroupOptionsResponse
     { _dogorMarker             :: Maybe Text
     , _dogorOptionGroupOptions :: List "member" OptionGroupOption
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeOptionGroupOptionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeOptionGroups.hs b/gen/Network/AWS/RDS/DescribeOptionGroups.hs
--- a/gen/Network/AWS/RDS/DescribeOptionGroups.hs
+++ b/gen/Network/AWS/RDS/DescribeOptionGroups.hs
@@ -60,7 +60,7 @@
     , _dogMarker             :: Maybe Text
     , _dogMaxRecords         :: Maybe Int
     , _dogOptionGroupName    :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeOptionGroups' constructor.
 --
@@ -129,7 +129,7 @@
 data DescribeOptionGroupsResponse = DescribeOptionGroupsResponse
     { _dogrMarker           :: Maybe Text
     , _dogrOptionGroupsList :: List "member" OptionGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeOptionGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs b/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs
--- a/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs
+++ b/gen/Network/AWS/RDS/DescribeOrderableDBInstanceOptions.hs
@@ -64,7 +64,7 @@
     , _dodbioMarker          :: Maybe Text
     , _dodbioMaxRecords      :: Maybe Int
     , _dodbioVpc             :: Maybe Bool
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeOrderableDBInstanceOptions' constructor.
 --
@@ -150,7 +150,7 @@
 data DescribeOrderableDBInstanceOptionsResponse = DescribeOrderableDBInstanceOptionsResponse
     { _dodbiorMarker                     :: Maybe Text
     , _dodbiorOrderableDBInstanceOptions :: List "member" OrderableDBInstanceOption
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeOrderableDBInstanceOptionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs b/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs
--- a/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs
+++ b/gen/Network/AWS/RDS/DescribePendingMaintenanceActions.hs
@@ -57,7 +57,7 @@
     , _dpmaMarker             :: Maybe Text
     , _dpmaMaxRecords         :: Maybe Int
     , _dpmaResourceIdentifier :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribePendingMaintenanceActions' constructor.
 --
@@ -110,7 +110,7 @@
 data DescribePendingMaintenanceActionsResponse = DescribePendingMaintenanceActionsResponse
     { _dpmarMarker                    :: Maybe Text
     , _dpmarPendingMaintenanceActions :: List "member" ResourcePendingMaintenanceActions
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribePendingMaintenanceActionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs b/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs
--- a/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs
+++ b/gen/Network/AWS/RDS/DescribeReservedDBInstances.hs
@@ -69,7 +69,7 @@
     , _drdbiProductDescription            :: Maybe Text
     , _drdbiReservedDBInstanceId          :: Maybe Text
     , _drdbiReservedDBInstancesOfferingId :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeReservedDBInstances' constructor.
 --
@@ -177,7 +177,7 @@
 data DescribeReservedDBInstancesResponse = DescribeReservedDBInstancesResponse
     { _drdbirMarker              :: Maybe Text
     , _drdbirReservedDBInstances :: List "member" ReservedDBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeReservedDBInstancesResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs b/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs
--- a/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs
+++ b/gen/Network/AWS/RDS/DescribeReservedDBInstancesOfferings.hs
@@ -66,7 +66,7 @@
     , _drdbioOfferingType                  :: Maybe Text
     , _drdbioProductDescription            :: Maybe Text
     , _drdbioReservedDBInstancesOfferingId :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeReservedDBInstancesOfferings' constructor.
 --
@@ -167,7 +167,7 @@
 data DescribeReservedDBInstancesOfferingsResponse = DescribeReservedDBInstancesOfferingsResponse
     { _drdbiorMarker                       :: Maybe Text
     , _drdbiorReservedDBInstancesOfferings :: List "member" ReservedDBInstancesOffering
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeReservedDBInstancesOfferingsResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs b/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs
--- a/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs
+++ b/gen/Network/AWS/RDS/DownloadDBLogFilePortion.hs
@@ -57,7 +57,7 @@
     , _ddblfpLogFileName          :: Text
     , _ddblfpMarker               :: Maybe Text
     , _ddblfpNumberOfLines        :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DownloadDBLogFilePortion' constructor.
 --
@@ -133,7 +133,7 @@
     { _ddblfprAdditionalDataPending :: Maybe Bool
     , _ddblfprLogFileData           :: Maybe Text
     , _ddblfprMarker                :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DownloadDBLogFilePortionResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/ListTagsForResource.hs b/gen/Network/AWS/RDS/ListTagsForResource.hs
--- a/gen/Network/AWS/RDS/ListTagsForResource.hs
+++ b/gen/Network/AWS/RDS/ListTagsForResource.hs
@@ -53,7 +53,7 @@
 data ListTagsForResource = ListTagsForResource
     { _ltfrFilters      :: List "member" Filter
     , _ltfrResourceName :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListTagsForResource' constructor.
 --
@@ -81,7 +81,7 @@
 
 newtype ListTagsForResourceResponse = ListTagsForResourceResponse
     { _ltfrrTagList :: List "member" Tag
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList ListTagsForResourceResponse where
     type Item ListTagsForResourceResponse = Tag
diff --git a/gen/Network/AWS/RDS/ModifyDBInstance.hs b/gen/Network/AWS/RDS/ModifyDBInstance.hs
--- a/gen/Network/AWS/RDS/ModifyDBInstance.hs
+++ b/gen/Network/AWS/RDS/ModifyDBInstance.hs
@@ -91,7 +91,7 @@
     , _mdbiTdeCredentialArn           :: Maybe Text
     , _mdbiTdeCredentialPassword      :: Maybe Text
     , _mdbiVpcSecurityGroupIds        :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyDBInstance' constructor.
 --
@@ -528,7 +528,7 @@
 
 newtype ModifyDBInstanceResponse = ModifyDBInstanceResponse
     { _mdbirDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyDBInstanceResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs b/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs
--- a/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs
+++ b/gen/Network/AWS/RDS/ModifyDBParameterGroup.hs
@@ -67,7 +67,7 @@
 data ModifyDBParameterGroup = ModifyDBParameterGroup
     { _mdbpgDBParameterGroupName :: Text
     , _mdbpgParameters           :: List "member" Parameter
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyDBParameterGroup' constructor.
 --
@@ -111,7 +111,7 @@
 
 newtype ModifyDBParameterGroupResponse = ModifyDBParameterGroupResponse
     { _mdbpgrDBParameterGroupName :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ModifyDBParameterGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs b/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs
--- a/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs
+++ b/gen/Network/AWS/RDS/ModifyDBSubnetGroup.hs
@@ -54,7 +54,7 @@
     { _mdbsgDBSubnetGroupDescription :: Maybe Text
     , _mdbsgDBSubnetGroupName        :: Text
     , _mdbsgSubnetIds                :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyDBSubnetGroup' constructor.
 --
@@ -97,7 +97,7 @@
 
 newtype ModifyDBSubnetGroupResponse = ModifyDBSubnetGroupResponse
     { _mdbsgrDBSubnetGroup :: Maybe DBSubnetGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyDBSubnetGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/ModifyEventSubscription.hs b/gen/Network/AWS/RDS/ModifyEventSubscription.hs
--- a/gen/Network/AWS/RDS/ModifyEventSubscription.hs
+++ b/gen/Network/AWS/RDS/ModifyEventSubscription.hs
@@ -62,7 +62,7 @@
     , _mesSnsTopicArn      :: Maybe Text
     , _mesSourceType       :: Maybe Text
     , _mesSubscriptionName :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyEventSubscription' constructor.
 --
@@ -124,7 +124,7 @@
 
 newtype ModifyEventSubscriptionResponse = ModifyEventSubscriptionResponse
     { _mesrEventSubscription :: Maybe EventSubscription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyEventSubscriptionResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/ModifyOptionGroup.hs b/gen/Network/AWS/RDS/ModifyOptionGroup.hs
--- a/gen/Network/AWS/RDS/ModifyOptionGroup.hs
+++ b/gen/Network/AWS/RDS/ModifyOptionGroup.hs
@@ -55,7 +55,7 @@
     , _mogOptionGroupName  :: Text
     , _mogOptionsToInclude :: List "member" OptionConfiguration
     , _mogOptionsToRemove  :: List "member" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyOptionGroup' constructor.
 --
@@ -108,7 +108,7 @@
 
 newtype ModifyOptionGroupResponse = ModifyOptionGroupResponse
     { _mogrOptionGroup :: Maybe OptionGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyOptionGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/PromoteReadReplica.hs b/gen/Network/AWS/RDS/PromoteReadReplica.hs
--- a/gen/Network/AWS/RDS/PromoteReadReplica.hs
+++ b/gen/Network/AWS/RDS/PromoteReadReplica.hs
@@ -59,7 +59,7 @@
     { _prrBackupRetentionPeriod :: Maybe Int
     , _prrDBInstanceIdentifier  :: Text
     , _prrPreferredBackupWindow :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PromoteReadReplica' constructor.
 --
@@ -122,7 +122,7 @@
 
 newtype PromoteReadReplicaResponse = PromoteReadReplicaResponse
     { _prrrDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PromoteReadReplicaResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs b/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs
--- a/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs
+++ b/gen/Network/AWS/RDS/PurchaseReservedDBInstancesOffering.hs
@@ -55,7 +55,7 @@
     , _prdbioReservedDBInstanceId          :: Maybe Text
     , _prdbioReservedDBInstancesOfferingId :: Text
     , _prdbioTags                          :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PurchaseReservedDBInstancesOffering' constructor.
 --
@@ -106,7 +106,7 @@
 
 newtype PurchaseReservedDBInstancesOfferingResponse = PurchaseReservedDBInstancesOfferingResponse
     { _prdbiorReservedDBInstance :: Maybe ReservedDBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PurchaseReservedDBInstancesOfferingResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/RebootDBInstance.hs b/gen/Network/AWS/RDS/RebootDBInstance.hs
--- a/gen/Network/AWS/RDS/RebootDBInstance.hs
+++ b/gen/Network/AWS/RDS/RebootDBInstance.hs
@@ -67,7 +67,7 @@
 data RebootDBInstance = RebootDBInstance
     { _rdbiDBInstanceIdentifier :: Text
     , _rdbiForceFailover        :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RebootDBInstance' constructor.
 --
@@ -106,7 +106,7 @@
 
 newtype RebootDBInstanceResponse = RebootDBInstanceResponse
     { _rdbirDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RebootDBInstanceResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs b/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs
--- a/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs
+++ b/gen/Network/AWS/RDS/RemoveSourceIdentifierFromSubscription.hs
@@ -52,7 +52,7 @@
 data RemoveSourceIdentifierFromSubscription = RemoveSourceIdentifierFromSubscription
     { _rsifsSourceIdentifier :: Text
     , _rsifsSubscriptionName :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RemoveSourceIdentifierFromSubscription' constructor.
 --
@@ -84,7 +84,7 @@
 
 newtype RemoveSourceIdentifierFromSubscriptionResponse = RemoveSourceIdentifierFromSubscriptionResponse
     { _rsifsrEventSubscription :: Maybe EventSubscription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RemoveSourceIdentifierFromSubscriptionResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/RemoveTagsFromResource.hs b/gen/Network/AWS/RDS/RemoveTagsFromResource.hs
--- a/gen/Network/AWS/RDS/RemoveTagsFromResource.hs
+++ b/gen/Network/AWS/RDS/RemoveTagsFromResource.hs
@@ -51,7 +51,7 @@
 data RemoveTagsFromResource = RemoveTagsFromResource
     { _rtfrResourceName :: Text
     , _rtfrTagKeys      :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RemoveTagsFromResource' constructor.
 --
@@ -78,7 +78,7 @@
 rtfrTagKeys = lens _rtfrTagKeys (\s a -> s { _rtfrTagKeys = a }) . _List
 
 data RemoveTagsFromResourceResponse = RemoveTagsFromResourceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'RemoveTagsFromResourceResponse' constructor.
 removeTagsFromResourceResponse :: RemoveTagsFromResourceResponse
diff --git a/gen/Network/AWS/RDS/ResetDBParameterGroup.hs b/gen/Network/AWS/RDS/ResetDBParameterGroup.hs
--- a/gen/Network/AWS/RDS/ResetDBParameterGroup.hs
+++ b/gen/Network/AWS/RDS/ResetDBParameterGroup.hs
@@ -55,7 +55,7 @@
     { _rdbpgDBParameterGroupName :: Text
     , _rdbpgParameters           :: List "member" Parameter
     , _rdbpgResetAllParameters   :: Maybe Bool
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ResetDBParameterGroup' constructor.
 --
@@ -115,7 +115,7 @@
 
 newtype ResetDBParameterGroupResponse = ResetDBParameterGroupResponse
     { _rdbpgrDBParameterGroupName :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ResetDBParameterGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs b/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs
--- a/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs
+++ b/gen/Network/AWS/RDS/RestoreDBInstanceFromDBSnapshot.hs
@@ -95,7 +95,7 @@
     , _rdbifdbsTags                    :: List "member" Tag
     , _rdbifdbsTdeCredentialArn        :: Maybe Text
     , _rdbifdbsTdeCredentialPassword   :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RestoreDBInstanceFromDBSnapshot' constructor.
 --
@@ -333,7 +333,7 @@
 
 newtype RestoreDBInstanceFromDBSnapshotResponse = RestoreDBInstanceFromDBSnapshotResponse
     { _rdbifdbsrDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RestoreDBInstanceFromDBSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs b/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs
--- a/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs
+++ b/gen/Network/AWS/RDS/RestoreDBInstanceToPointInTime.hs
@@ -91,7 +91,7 @@
     , _rdbitpitTdeCredentialArn           :: Maybe Text
     , _rdbitpitTdeCredentialPassword      :: Maybe Text
     , _rdbitpitUseLatestRestorableTime    :: Maybe Bool
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RestoreDBInstanceToPointInTime' constructor.
 --
@@ -356,7 +356,7 @@
 
 newtype RestoreDBInstanceToPointInTimeResponse = RestoreDBInstanceToPointInTimeResponse
     { _rdbitpitrDBInstance :: Maybe DBInstance
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RestoreDBInstanceToPointInTimeResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs b/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs
--- a/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs
+++ b/gen/Network/AWS/RDS/RevokeDBSecurityGroupIngress.hs
@@ -60,7 +60,7 @@
     , _rdbsgiEC2SecurityGroupId      :: Maybe Text
     , _rdbsgiEC2SecurityGroupName    :: Maybe Text
     , _rdbsgiEC2SecurityGroupOwnerId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RevokeDBSecurityGroupIngress' constructor.
 --
@@ -127,7 +127,7 @@
 
 newtype RevokeDBSecurityGroupIngressResponse = RevokeDBSecurityGroupIngressResponse
     { _rdbsgirDBSecurityGroup :: Maybe DBSecurityGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RevokeDBSecurityGroupIngressResponse' constructor.
 --
diff --git a/gen/Network/AWS/RDS/Types.hs b/gen/Network/AWS/RDS/Types.hs
--- a/gen/Network/AWS/RDS/Types.hs
+++ b/gen/Network/AWS/RDS/Types.hs
@@ -493,7 +493,7 @@
     , _pmaCurrentApplyDate     :: Maybe ISO8601
     , _pmaForcedApplyDate      :: Maybe ISO8601
     , _pmaOptInStatus          :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PendingMaintenanceAction' constructor.
 --
@@ -576,7 +576,7 @@
     , _ogOptionGroupName                       :: Maybe Text
     , _ogOptions                               :: List "member" Option
     , _ogVpcId                                 :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'OptionGroup' constructor.
 --
@@ -671,7 +671,7 @@
 data DBParameterGroupStatus = DBParameterGroupStatus
     { _dbpgsDBParameterGroupName :: Maybe Text
     , _dbpgsParameterApplyStatus :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DBParameterGroupStatus' constructor.
 --
@@ -716,7 +716,7 @@
     , _eMessage          :: Maybe Text
     , _eSourceIdentifier :: Maybe Text
     , _eSourceType       :: Maybe SourceType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Event' constructor.
 --
@@ -786,7 +786,7 @@
     , _dbsgIPRanges                   :: List "member" IPRange
     , _dbsgOwnerId                    :: Maybe Text
     , _dbsgVpcId                      :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DBSecurityGroup' constructor.
 --
@@ -865,7 +865,7 @@
 data Tag = Tag
     { _tagKey   :: Maybe Text
     , _tagValue :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Tag' constructor.
 --
@@ -916,7 +916,7 @@
     , _dbevEngine                     :: Maybe Text
     , _dbevEngineVersion              :: Maybe Text
     , _dbevSupportedCharacterSets     :: List "member" CharacterSet
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DBEngineVersion' constructor.
 --
@@ -1029,7 +1029,7 @@
     , _dbsStorageType          :: Maybe Text
     , _dbsTdeCredentialArn     :: Maybe Text
     , _dbsVpcId                :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DBSnapshot' constructor.
 --
@@ -1264,7 +1264,7 @@
 data DBSecurityGroupMembership = DBSecurityGroupMembership
     { _dbsgmDBSecurityGroupName :: Maybe Text
     , _dbsgmStatus              :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DBSecurityGroupMembership' constructor.
 --
@@ -1306,7 +1306,7 @@
     , _ecsgEC2SecurityGroupName    :: Maybe Text
     , _ecsgEC2SecurityGroupOwnerId :: Maybe Text
     , _ecsgStatus                  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EC2SecurityGroup' constructor.
 --
@@ -1370,7 +1370,7 @@
     | DbParameterGroup -- ^ db-parameter-group
     | DbSecurityGroup  -- ^ db-security-group
     | DbSnapshot       -- ^ db-snapshot
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable SourceType
 
@@ -1400,7 +1400,7 @@
 data ResourcePendingMaintenanceActions = ResourcePendingMaintenanceActions
     { _rpmaPendingMaintenanceActionDetails :: List "member" PendingMaintenanceAction
     , _rpmaResourceIdentifier              :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ResourcePendingMaintenanceActions' constructor.
 --
@@ -1443,7 +1443,7 @@
     { _dbpgDBParameterGroupFamily :: Maybe Text
     , _dbpgDBParameterGroupName   :: Maybe Text
     , _dbpgDescription            :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DBParameterGroup' constructor.
 --
@@ -1503,7 +1503,7 @@
     , _rdbioRecurringCharges              :: List "member" RecurringCharge
     , _rdbioReservedDBInstancesOfferingId :: Maybe Text
     , _rdbioUsagePrice                    :: Maybe Double
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReservedDBInstancesOffering' constructor.
 --
@@ -1621,7 +1621,7 @@
 data ApplyMethod
     = Immediate     -- ^ immediate
     | PendingReboot -- ^ pending-reboot
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ApplyMethod
 
@@ -1647,7 +1647,7 @@
 data CharacterSet = CharacterSet
     { _csCharacterSetDescription :: Maybe Text
     , _csCharacterSetName        :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CharacterSet' constructor.
 --
@@ -1689,7 +1689,7 @@
     { _sSubnetAvailabilityZone :: Maybe AvailabilityZone
     , _sSubnetIdentifier       :: Maybe Text
     , _sSubnetStatus           :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Subnet' constructor.
 --
@@ -1749,7 +1749,7 @@
     , _rdbiStartTime                     :: Maybe ISO8601
     , _rdbiState                         :: Maybe Text
     , _rdbiUsagePrice                    :: Maybe Double
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReservedDBInstance' constructor.
 --
@@ -1905,7 +1905,7 @@
     { _edDBParameterGroupFamily :: Maybe Text
     , _edMarker                 :: Maybe Text
     , _edParameters             :: List "member" Parameter
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'EngineDefaults' constructor.
 --
@@ -1956,7 +1956,7 @@
 
 newtype DBParameterGroupNameMessage = DBParameterGroupNameMessage
     { _dbpgnmDBParameterGroupName :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DBParameterGroupNameMessage' constructor.
 --
@@ -1996,7 +1996,7 @@
     , _ogoPermanent                         :: Maybe Bool
     , _ogoPersistent                        :: Maybe Bool
     , _ogoPortRequired                      :: Maybe Bool
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'OptionGroupOption' constructor.
 --
@@ -2163,7 +2163,7 @@
     , _dbiStorageType                           :: Maybe Text
     , _dbiTdeCredentialArn                      :: Maybe Text
     , _dbiVpcSecurityGroups                     :: List "member" VpcSecurityGroupMembership
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DBInstance' constructor.
 --
@@ -2592,7 +2592,7 @@
 
 newtype AvailabilityZone = AvailabilityZone
     { _azName :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'AvailabilityZone' constructor.
 --
@@ -2628,7 +2628,7 @@
     , _esSourceType               :: Maybe Text
     , _esStatus                   :: Maybe Text
     , _esSubscriptionCreationTime :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EventSubscription' constructor.
 --
@@ -2748,7 +2748,7 @@
     , _dbsg1SubnetGroupStatus        :: Maybe Text
     , _dbsg1Subnets                  :: List "member" Subnet
     , _dbsg1VpcId                    :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DBSubnetGroup' constructor.
 --
@@ -2819,7 +2819,7 @@
     , _dbisiNormal     :: Maybe Bool
     , _dbisiStatus     :: Maybe Text
     , _dbisiStatusType :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DBInstanceStatusInfo' constructor.
 --
@@ -2885,7 +2885,7 @@
     , _osIsModifiable  :: Maybe Bool
     , _osName          :: Maybe Text
     , _osValue         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'OptionSetting' constructor.
 --
@@ -2988,7 +2988,7 @@
     { _ddblfdLastWritten :: Maybe Integer
     , _ddblfdLogFileName :: Maybe Text
     , _ddblfdSize        :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeDBLogFilesDetails' constructor.
 --
@@ -3046,7 +3046,7 @@
     , _odbioSupportsIops              :: Maybe Bool
     , _odbioSupportsStorageEncryption :: Maybe Bool
     , _odbioVpc                       :: Maybe Bool
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'OrderableDBInstanceOption' constructor.
 --
@@ -3175,7 +3175,7 @@
 data Filter = Filter
     { _fName   :: Text
     , _fValues :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Filter' constructor.
 --
@@ -3214,7 +3214,7 @@
 data RecurringCharge = RecurringCharge
     { _rcRecurringChargeAmount    :: Maybe Double
     , _rcRecurringChargeFrequency :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RecurringCharge' constructor.
 --
@@ -3255,7 +3255,7 @@
 data Endpoint = Endpoint
     { _eAddress :: Maybe Text
     , _ePort    :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Endpoint' constructor.
 --
@@ -3296,7 +3296,7 @@
     , _ocOptionSettings              :: List "member" OptionSetting
     , _ocPort                        :: Maybe Int
     , _ocVpcSecurityGroupMemberships :: List "member" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'OptionConfiguration' constructor.
 --
@@ -3374,7 +3374,7 @@
     , _oPersistent                  :: Maybe Bool
     , _oPort                        :: Maybe Int
     , _oVpcSecurityGroupMemberships :: List "member" VpcSecurityGroupMembership
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Option' constructor.
 --
@@ -3475,7 +3475,7 @@
 data IPRange = IPRange
     { _iprCIDRIP :: Maybe Text
     , _iprStatus :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'IPRange' constructor.
 --
@@ -3514,7 +3514,7 @@
 data OptionGroupMembership = OptionGroupMembership
     { _ogmOptionGroupName :: Maybe Text
     , _ogmStatus          :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'OptionGroupMembership' constructor.
 --
@@ -3554,7 +3554,7 @@
 data EventCategoriesMap = EventCategoriesMap
     { _ecmEventCategories :: List "member" Text
     , _ecmSourceType      :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EventCategoriesMap' constructor.
 --
@@ -3602,7 +3602,7 @@
     , _pmvMultiAZ               :: Maybe Bool
     , _pmvPort                  :: Maybe Int
     , _pmvStorageType           :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PendingModifiedValues' constructor.
 --
@@ -3725,7 +3725,7 @@
 data VpcSecurityGroupMembership = VpcSecurityGroupMembership
     { _vsgmStatus             :: Maybe Text
     , _vsgmVpcSecurityGroupId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'VpcSecurityGroupMembership' constructor.
 --
@@ -3772,7 +3772,7 @@
     , _pParameterName        :: Maybe Text
     , _pParameterValue       :: Maybe Text
     , _pSource               :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Parameter' constructor.
 --
@@ -3889,7 +3889,7 @@
     , _ogosIsModifiable       :: Maybe Bool
     , _ogosSettingDescription :: Maybe Text
     , _ogosSettingName        :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'OptionGroupOptionSetting' constructor.
 --