diff --git a/amazonka-redshift.cabal b/amazonka-redshift.cabal
--- a/amazonka-redshift.cabal
+++ b/amazonka-redshift.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-redshift
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Redshift SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -100,5 +100,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/Redshift/AuthorizeClusterSecurityGroupIngress.hs b/gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs
--- a/gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs
+++ b/gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs
@@ -67,7 +67,7 @@
     , _acsgiClusterSecurityGroupName :: Text
     , _acsgiEC2SecurityGroupName     :: Maybe Text
     , _acsgiEC2SecurityGroupOwnerId  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AuthorizeClusterSecurityGroupIngress' constructor.
 --
@@ -116,7 +116,7 @@
 
 newtype AuthorizeClusterSecurityGroupIngressResponse = AuthorizeClusterSecurityGroupIngressResponse
     { _acsgirClusterSecurityGroup :: Maybe ClusterSecurityGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AuthorizeClusterSecurityGroupIngressResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs b/gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs
--- a/gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs
+++ b/gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs
@@ -56,7 +56,7 @@
     { _asaAccountWithRestoreAccess  :: Text
     , _asaSnapshotClusterIdentifier :: Maybe Text
     , _asaSnapshotIdentifier        :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AuthorizeSnapshotAccess' constructor.
 --
@@ -99,7 +99,7 @@
 
 newtype AuthorizeSnapshotAccessResponse = AuthorizeSnapshotAccessResponse
     { _asarSnapshot :: Maybe Snapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AuthorizeSnapshotAccessResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CopyClusterSnapshot.hs b/gen/Network/AWS/Redshift/CopyClusterSnapshot.hs
--- a/gen/Network/AWS/Redshift/CopyClusterSnapshot.hs
+++ b/gen/Network/AWS/Redshift/CopyClusterSnapshot.hs
@@ -63,7 +63,7 @@
     { _ccsSourceSnapshotClusterIdentifier :: Maybe Text
     , _ccsSourceSnapshotIdentifier        :: Text
     , _ccsTargetSnapshotIdentifier        :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CopyClusterSnapshot' constructor.
 --
@@ -121,7 +121,7 @@
 
 newtype CopyClusterSnapshotResponse = CopyClusterSnapshotResponse
     { _ccsrSnapshot :: Maybe Snapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CopyClusterSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateCluster.hs b/gen/Network/AWS/Redshift/CreateCluster.hs
--- a/gen/Network/AWS/Redshift/CreateCluster.hs
+++ b/gen/Network/AWS/Redshift/CreateCluster.hs
@@ -99,7 +99,7 @@
     , _ccPubliclyAccessible               :: Maybe Bool
     , _ccTags                             :: List "member" Tag
     , _ccVpcSecurityGroupIds              :: List "member" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateCluster' constructor.
 --
@@ -438,7 +438,7 @@
 
 newtype CreateClusterResponse = CreateClusterResponse
     { _ccrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs b/gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs
--- a/gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs
+++ b/gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs
@@ -64,7 +64,7 @@
     , _ccpgParameterGroupFamily :: Text
     , _ccpgParameterGroupName   :: Text
     , _ccpgTags                 :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterParameterGroup' constructor.
 --
@@ -124,7 +124,7 @@
 
 newtype CreateClusterParameterGroupResponse = CreateClusterParameterGroupResponse
     { _ccpgrClusterParameterGroup :: Maybe ClusterParameterGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterParameterGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs b/gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs
--- a/gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs
+++ b/gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs
@@ -56,7 +56,7 @@
     { _ccsg1ClusterSecurityGroupName :: Text
     , _ccsg1Description              :: Text
     , _ccsg1Tags                     :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterSecurityGroup' constructor.
 --
@@ -100,7 +100,7 @@
 
 newtype CreateClusterSecurityGroupResponse = CreateClusterSecurityGroupResponse
     { _ccsgrClusterSecurityGroup :: Maybe ClusterSecurityGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterSecurityGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateClusterSnapshot.hs b/gen/Network/AWS/Redshift/CreateClusterSnapshot.hs
--- a/gen/Network/AWS/Redshift/CreateClusterSnapshot.hs
+++ b/gen/Network/AWS/Redshift/CreateClusterSnapshot.hs
@@ -56,7 +56,7 @@
     { _ccsClusterIdentifier  :: Text
     , _ccsSnapshotIdentifier :: Text
     , _ccsTags               :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterSnapshot' constructor.
 --
@@ -100,7 +100,7 @@
 
 newtype CreateClusterSnapshotResponse = CreateClusterSnapshotResponse
     { _ccsr1Snapshot :: Maybe Snapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs b/gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs
--- a/gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs
+++ b/gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs
@@ -59,7 +59,7 @@
     , _ccsgDescription            :: Text
     , _ccsgSubnetIds              :: List "member" Text
     , _ccsgTags                   :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterSubnetGroup' constructor.
 --
@@ -111,7 +111,7 @@
 
 newtype CreateClusterSubnetGroupResponse = CreateClusterSubnetGroupResponse
     { _ccsgrClusterSubnetGroup :: Maybe ClusterSubnetGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateClusterSubnetGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateEventSubscription.hs b/gen/Network/AWS/Redshift/CreateEventSubscription.hs
--- a/gen/Network/AWS/Redshift/CreateEventSubscription.hs
+++ b/gen/Network/AWS/Redshift/CreateEventSubscription.hs
@@ -84,7 +84,7 @@
     , _cesSourceType       :: Maybe Text
     , _cesSubscriptionName :: Text
     , _cesTags             :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateEventSubscription' constructor.
 --
@@ -187,7 +187,7 @@
 
 newtype CreateEventSubscriptionResponse = CreateEventSubscriptionResponse
     { _cesrEventSubscription :: Maybe EventSubscription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateEventSubscriptionResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateHsmClientCertificate.hs b/gen/Network/AWS/Redshift/CreateHsmClientCertificate.hs
--- a/gen/Network/AWS/Redshift/CreateHsmClientCertificate.hs
+++ b/gen/Network/AWS/Redshift/CreateHsmClientCertificate.hs
@@ -58,7 +58,7 @@
 data CreateHsmClientCertificate = CreateHsmClientCertificate
     { _chccHsmClientCertificateIdentifier :: Text
     , _chccTags                           :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateHsmClientCertificate' constructor.
 --
@@ -88,7 +88,7 @@
 
 newtype CreateHsmClientCertificateResponse = CreateHsmClientCertificateResponse
     { _chccrHsmClientCertificate :: Maybe HsmClientCertificate
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateHsmClientCertificateResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateHsmConfiguration.hs b/gen/Network/AWS/Redshift/CreateHsmConfiguration.hs
--- a/gen/Network/AWS/Redshift/CreateHsmConfiguration.hs
+++ b/gen/Network/AWS/Redshift/CreateHsmConfiguration.hs
@@ -69,7 +69,7 @@
     , _chcHsmPartitionPassword       :: Text
     , _chcHsmServerPublicCertificate :: Text
     , _chcTags                       :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateHsmConfiguration' constructor.
 --
@@ -144,7 +144,7 @@
 
 newtype CreateHsmConfigurationResponse = CreateHsmConfigurationResponse
     { _chcrHsmConfiguration :: Maybe HsmConfiguration
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateHsmConfigurationResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/CreateTags.hs b/gen/Network/AWS/Redshift/CreateTags.hs
--- a/gen/Network/AWS/Redshift/CreateTags.hs
+++ b/gen/Network/AWS/Redshift/CreateTags.hs
@@ -55,7 +55,7 @@
 data CreateTags = CreateTags
     { _ctResourceName :: Text
     , _ctTags         :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateTags' constructor.
 --
@@ -86,7 +86,7 @@
 ctTags = lens _ctTags (\s a -> s { _ctTags = a }) . _List
 
 data CreateTagsResponse = CreateTagsResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'CreateTagsResponse' constructor.
 createTagsResponse :: CreateTagsResponse
diff --git a/gen/Network/AWS/Redshift/DeleteCluster.hs b/gen/Network/AWS/Redshift/DeleteCluster.hs
--- a/gen/Network/AWS/Redshift/DeleteCluster.hs
+++ b/gen/Network/AWS/Redshift/DeleteCluster.hs
@@ -65,7 +65,7 @@
     { _dc1ClusterIdentifier              :: Text
     , _dc1FinalClusterSnapshotIdentifier :: Maybe Text
     , _dc1SkipFinalClusterSnapshot       :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteCluster' constructor.
 --
@@ -121,7 +121,7 @@
 
 newtype DeleteClusterResponse = DeleteClusterResponse
     { _dcrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteClusterResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs b/gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs
--- a/gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs
+++ b/gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs
@@ -48,7 +48,7 @@
 
 newtype DeleteClusterParameterGroup = DeleteClusterParameterGroup
     { _dcpg1ParameterGroupName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteClusterParameterGroup' constructor.
 --
@@ -73,7 +73,7 @@
     lens _dcpg1ParameterGroupName (\s a -> s { _dcpg1ParameterGroupName = a })
 
 data DeleteClusterParameterGroupResponse = DeleteClusterParameterGroupResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteClusterParameterGroupResponse' constructor.
 deleteClusterParameterGroupResponse :: DeleteClusterParameterGroupResponse
diff --git a/gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs b/gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs
--- a/gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs
+++ b/gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs
@@ -51,7 +51,7 @@
 
 newtype DeleteClusterSecurityGroup = DeleteClusterSecurityGroup
     { _dcsg1ClusterSecurityGroupName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteClusterSecurityGroup' constructor.
 --
@@ -72,7 +72,7 @@
         (\s a -> s { _dcsg1ClusterSecurityGroupName = a })
 
 data DeleteClusterSecurityGroupResponse = DeleteClusterSecurityGroupResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteClusterSecurityGroupResponse' constructor.
 deleteClusterSecurityGroupResponse :: DeleteClusterSecurityGroupResponse
diff --git a/gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs b/gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs
--- a/gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs
+++ b/gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs
@@ -58,7 +58,7 @@
 data DeleteClusterSnapshot = DeleteClusterSnapshot
     { _dcsSnapshotClusterIdentifier :: Maybe Text
     , _dcsSnapshotIdentifier        :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteClusterSnapshot' constructor.
 --
@@ -94,7 +94,7 @@
 
 newtype DeleteClusterSnapshotResponse = DeleteClusterSnapshotResponse
     { _dcsrSnapshot :: Maybe Snapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteClusterSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs b/gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs
--- a/gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs
+++ b/gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs
@@ -47,7 +47,7 @@
 
 newtype DeleteClusterSubnetGroup = DeleteClusterSubnetGroup
     { _dcsgClusterSubnetGroupName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteClusterSubnetGroup' constructor.
 --
@@ -68,7 +68,7 @@
         (\s a -> s { _dcsgClusterSubnetGroupName = a })
 
 data DeleteClusterSubnetGroupResponse = DeleteClusterSubnetGroupResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteClusterSubnetGroupResponse' constructor.
 deleteClusterSubnetGroupResponse :: DeleteClusterSubnetGroupResponse
diff --git a/gen/Network/AWS/Redshift/DeleteEventSubscription.hs b/gen/Network/AWS/Redshift/DeleteEventSubscription.hs
--- a/gen/Network/AWS/Redshift/DeleteEventSubscription.hs
+++ b/gen/Network/AWS/Redshift/DeleteEventSubscription.hs
@@ -47,7 +47,7 @@
 
 newtype DeleteEventSubscription = DeleteEventSubscription
     { _desSubscriptionName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteEventSubscription' constructor.
 --
@@ -67,7 +67,7 @@
     lens _desSubscriptionName (\s a -> s { _desSubscriptionName = a })
 
 data DeleteEventSubscriptionResponse = DeleteEventSubscriptionResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteEventSubscriptionResponse' constructor.
 deleteEventSubscriptionResponse :: DeleteEventSubscriptionResponse
diff --git a/gen/Network/AWS/Redshift/DeleteHsmClientCertificate.hs b/gen/Network/AWS/Redshift/DeleteHsmClientCertificate.hs
--- a/gen/Network/AWS/Redshift/DeleteHsmClientCertificate.hs
+++ b/gen/Network/AWS/Redshift/DeleteHsmClientCertificate.hs
@@ -47,7 +47,7 @@
 
 newtype DeleteHsmClientCertificate = DeleteHsmClientCertificate
     { _dhcc1HsmClientCertificateIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteHsmClientCertificate' constructor.
 --
@@ -68,7 +68,7 @@
         (\s a -> s { _dhcc1HsmClientCertificateIdentifier = a })
 
 data DeleteHsmClientCertificateResponse = DeleteHsmClientCertificateResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteHsmClientCertificateResponse' constructor.
 deleteHsmClientCertificateResponse :: DeleteHsmClientCertificateResponse
diff --git a/gen/Network/AWS/Redshift/DeleteHsmConfiguration.hs b/gen/Network/AWS/Redshift/DeleteHsmConfiguration.hs
--- a/gen/Network/AWS/Redshift/DeleteHsmConfiguration.hs
+++ b/gen/Network/AWS/Redshift/DeleteHsmConfiguration.hs
@@ -47,7 +47,7 @@
 
 newtype DeleteHsmConfiguration = DeleteHsmConfiguration
     { _dhcHsmConfigurationIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteHsmConfiguration' constructor.
 --
@@ -68,7 +68,7 @@
         (\s a -> s { _dhcHsmConfigurationIdentifier = a })
 
 data DeleteHsmConfigurationResponse = DeleteHsmConfigurationResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteHsmConfigurationResponse' constructor.
 deleteHsmConfigurationResponse :: DeleteHsmConfigurationResponse
diff --git a/gen/Network/AWS/Redshift/DeleteTags.hs b/gen/Network/AWS/Redshift/DeleteTags.hs
--- a/gen/Network/AWS/Redshift/DeleteTags.hs
+++ b/gen/Network/AWS/Redshift/DeleteTags.hs
@@ -50,7 +50,7 @@
 data DeleteTags = DeleteTags
     { _dt1ResourceName :: Text
     , _dt1TagKeys      :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteTags' constructor.
 --
@@ -77,7 +77,7 @@
 dt1TagKeys = lens _dt1TagKeys (\s a -> s { _dt1TagKeys = a }) . _List
 
 data DeleteTagsResponse = DeleteTagsResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteTagsResponse' constructor.
 deleteTagsResponse :: DeleteTagsResponse
diff --git a/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs b/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs
@@ -74,7 +74,7 @@
     , _dcpgParameterGroupName :: Maybe Text
     , _dcpgTagKeys            :: List "member" Text
     , _dcpgTagValues          :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeClusterParameterGroups' constructor.
 --
@@ -146,7 +146,7 @@
 data DescribeClusterParameterGroupsResponse = DescribeClusterParameterGroupsResponse
     { _dcpgrMarker          :: Maybe Text
     , _dcpgrParameterGroups :: List "member" ClusterParameterGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeClusterParameterGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeClusterParameters.hs b/gen/Network/AWS/Redshift/DescribeClusterParameters.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterParameters.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterParameters.hs
@@ -65,7 +65,7 @@
     , _dcp1MaxRecords         :: Maybe Int
     , _dcp1ParameterGroupName :: Text
     , _dcp1Source             :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeClusterParameters' constructor.
 --
@@ -126,7 +126,7 @@
 data DescribeClusterParametersResponse = DescribeClusterParametersResponse
     { _dcprMarker     :: Maybe Text
     , _dcprParameters :: List "member" Parameter
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeClusterParametersResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs b/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs
@@ -72,7 +72,7 @@
     , _dcsgMaxRecords               :: Maybe Int
     , _dcsgTagKeys                  :: List "member" Text
     , _dcsgTagValues                :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeClusterSecurityGroups' constructor.
 --
@@ -151,7 +151,7 @@
 data DescribeClusterSecurityGroupsResponse = DescribeClusterSecurityGroupsResponse
     { _dcsgr1ClusterSecurityGroups :: List "member" ClusterSecurityGroup
     , _dcsgr1Marker                :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeClusterSecurityGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs b/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs
@@ -84,7 +84,7 @@
     , _dcs1StartTime          :: Maybe ISO8601
     , _dcs1TagKeys            :: List "member" Text
     , _dcs1TagValues          :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeClusterSnapshots' constructor.
 --
@@ -205,7 +205,7 @@
 data DescribeClusterSnapshotsResponse = DescribeClusterSnapshotsResponse
     { _dcsrMarker    :: Maybe Text
     , _dcsrSnapshots :: List "member" Snapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeClusterSnapshotsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs b/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs
@@ -71,7 +71,7 @@
     , _dcsg1MaxRecords             :: Maybe Int
     , _dcsg1TagKeys                :: List "member" Text
     , _dcsg1TagValues              :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeClusterSubnetGroups' constructor.
 --
@@ -143,7 +143,7 @@
 data DescribeClusterSubnetGroupsResponse = DescribeClusterSubnetGroupsResponse
     { _dcsgrClusterSubnetGroups :: List "member" ClusterSubnetGroup
     , _dcsgrMarker              :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeClusterSubnetGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeClusterVersions.hs b/gen/Network/AWS/Redshift/DescribeClusterVersions.hs
--- a/gen/Network/AWS/Redshift/DescribeClusterVersions.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusterVersions.hs
@@ -60,7 +60,7 @@
     , _dcvClusterVersion              :: Maybe Text
     , _dcvMarker                      :: Maybe Text
     , _dcvMaxRecords                  :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeClusterVersions' constructor.
 --
@@ -123,7 +123,7 @@
 data DescribeClusterVersionsResponse = DescribeClusterVersionsResponse
     { _dcvrClusterVersions :: List "member" ClusterVersion
     , _dcvrMarker          :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeClusterVersionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeClusters.hs b/gen/Network/AWS/Redshift/DescribeClusters.hs
--- a/gen/Network/AWS/Redshift/DescribeClusters.hs
+++ b/gen/Network/AWS/Redshift/DescribeClusters.hs
@@ -72,7 +72,7 @@
     , _dcMaxRecords        :: Maybe Int
     , _dcTagKeys           :: List "member" Text
     , _dcTagValues         :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeClusters' constructor.
 --
@@ -148,7 +148,7 @@
 data DescribeClustersResponse = DescribeClustersResponse
     { _dcrClusters :: List "member" Cluster
     , _dcrMarker   :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeClustersResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs b/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs
--- a/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs
+++ b/gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs
@@ -56,7 +56,7 @@
     { _ddcpMarker               :: Maybe Text
     , _ddcpMaxRecords           :: Maybe Int
     , _ddcpParameterGroupFamily :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeDefaultClusterParameters' constructor.
 --
@@ -103,7 +103,7 @@
 
 newtype DescribeDefaultClusterParametersResponse = DescribeDefaultClusterParametersResponse
     { _ddcprDefaultClusterParameters :: DefaultClusterParameters
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDefaultClusterParametersResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeEventCategories.hs b/gen/Network/AWS/Redshift/DescribeEventCategories.hs
--- a/gen/Network/AWS/Redshift/DescribeEventCategories.hs
+++ b/gen/Network/AWS/Redshift/DescribeEventCategories.hs
@@ -51,7 +51,7 @@
 
 newtype DescribeEventCategories = DescribeEventCategories
     { _decSourceType :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DescribeEventCategories' constructor.
 --
@@ -73,7 +73,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/Redshift/DescribeEventSubscriptions.hs b/gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs
--- a/gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs
+++ b/gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs
@@ -56,7 +56,7 @@
     { _des1Marker           :: Maybe Text
     , _des1MaxRecords       :: Maybe Int
     , _des1SubscriptionName :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeEventSubscriptions' constructor.
 --
@@ -104,7 +104,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/Redshift/DescribeEvents.hs b/gen/Network/AWS/Redshift/DescribeEvents.hs
--- a/gen/Network/AWS/Redshift/DescribeEvents.hs
+++ b/gen/Network/AWS/Redshift/DescribeEvents.hs
@@ -66,7 +66,7 @@
     , _deSourceIdentifier :: Maybe Text
     , _deSourceType       :: Maybe SourceType
     , _deStartTime        :: Maybe ISO8601
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeEvents' constructor.
 --
@@ -169,7 +169,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/Redshift/DescribeHsmClientCertificates.hs b/gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs
--- a/gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs
+++ b/gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs
@@ -70,7 +70,7 @@
     , _dhccMaxRecords                     :: Maybe Int
     , _dhccTagKeys                        :: List "member" Text
     , _dhccTagValues                      :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeHsmClientCertificates' constructor.
 --
@@ -144,7 +144,7 @@
 data DescribeHsmClientCertificatesResponse = DescribeHsmClientCertificatesResponse
     { _dhccrHsmClientCertificates :: List "member" HsmClientCertificate
     , _dhccrMarker                :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeHsmClientCertificatesResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs b/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs
--- a/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs
+++ b/gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs
@@ -70,7 +70,7 @@
     , _dhc1MaxRecords                 :: Maybe Int
     , _dhc1TagKeys                    :: List "member" Text
     , _dhc1TagValues                  :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeHsmConfigurations' constructor.
 --
@@ -144,7 +144,7 @@
 data DescribeHsmConfigurationsResponse = DescribeHsmConfigurationsResponse
     { _dhcrHsmConfigurations :: List "member" HsmConfiguration
     , _dhcrMarker            :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeHsmConfigurationsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeLoggingStatus.hs b/gen/Network/AWS/Redshift/DescribeLoggingStatus.hs
--- a/gen/Network/AWS/Redshift/DescribeLoggingStatus.hs
+++ b/gen/Network/AWS/Redshift/DescribeLoggingStatus.hs
@@ -55,7 +55,7 @@
 
 newtype DescribeLoggingStatus = DescribeLoggingStatus
     { _dlsClusterIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeLoggingStatus' constructor.
 --
@@ -83,7 +83,7 @@
     , _dlsrLastSuccessfulDeliveryTime :: Maybe ISO8601
     , _dlsrLoggingEnabled             :: Maybe Bool
     , _dlsrS3KeyPrefix                :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeLoggingStatusResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs b/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs
--- a/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs
+++ b/gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs
@@ -62,7 +62,7 @@
     , _docoMarker         :: Maybe Text
     , _docoMaxRecords     :: Maybe Int
     , _docoNodeType       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeOrderableClusterOptions' constructor.
 --
@@ -122,7 +122,7 @@
 data DescribeOrderableClusterOptionsResponse = DescribeOrderableClusterOptionsResponse
     { _docorMarker                  :: Maybe Text
     , _docorOrderableClusterOptions :: List "member" OrderableClusterOption
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeOrderableClusterOptionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs b/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs
--- a/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs
+++ b/gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs
@@ -60,7 +60,7 @@
     { _drnoMarker                 :: Maybe Text
     , _drnoMaxRecords             :: Maybe Int
     , _drnoReservedNodeOfferingId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeReservedNodeOfferings' constructor.
 --
@@ -108,7 +108,7 @@
 data DescribeReservedNodeOfferingsResponse = DescribeReservedNodeOfferingsResponse
     { _drnorMarker                :: Maybe Text
     , _drnorReservedNodeOfferings :: List "member" ReservedNodeOffering
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeReservedNodeOfferingsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeReservedNodes.hs b/gen/Network/AWS/Redshift/DescribeReservedNodes.hs
--- a/gen/Network/AWS/Redshift/DescribeReservedNodes.hs
+++ b/gen/Network/AWS/Redshift/DescribeReservedNodes.hs
@@ -54,7 +54,7 @@
     { _drnMarker         :: Maybe Text
     , _drnMaxRecords     :: Maybe Int
     , _drnReservedNodeId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeReservedNodes' constructor.
 --
@@ -100,7 +100,7 @@
 data DescribeReservedNodesResponse = DescribeReservedNodesResponse
     { _drnrMarker        :: Maybe Text
     , _drnrReservedNodes :: List "member" ReservedNode
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeReservedNodesResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeResize.hs b/gen/Network/AWS/Redshift/DescribeResize.hs
--- a/gen/Network/AWS/Redshift/DescribeResize.hs
+++ b/gen/Network/AWS/Redshift/DescribeResize.hs
@@ -67,7 +67,7 @@
 
 newtype DescribeResize = DescribeResize
     { _drClusterIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeResize' constructor.
 --
@@ -103,7 +103,7 @@
     , _drrTargetNodeType                     :: Maybe Text
     , _drrTargetNumberOfNodes                :: Maybe Int
     , _drrTotalResizeDataInMegaBytes         :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeResizeResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DescribeTags.hs b/gen/Network/AWS/Redshift/DescribeTags.hs
--- a/gen/Network/AWS/Redshift/DescribeTags.hs
+++ b/gen/Network/AWS/Redshift/DescribeTags.hs
@@ -76,7 +76,7 @@
     , _dtResourceType :: Maybe Text
     , _dtTagKeys      :: List "member" Text
     , _dtTagValues    :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeTags' constructor.
 --
@@ -155,7 +155,7 @@
 data DescribeTagsResponse = DescribeTagsResponse
     { _dtrMarker          :: Maybe Text
     , _dtrTaggedResources :: List "member" TaggedResource
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeTagsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DisableLogging.hs b/gen/Network/AWS/Redshift/DisableLogging.hs
--- a/gen/Network/AWS/Redshift/DisableLogging.hs
+++ b/gen/Network/AWS/Redshift/DisableLogging.hs
@@ -55,7 +55,7 @@
 
 newtype DisableLogging = DisableLogging
     { _dlClusterIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DisableLogging' constructor.
 --
@@ -83,7 +83,7 @@
     , _dlrLastSuccessfulDeliveryTime :: Maybe ISO8601
     , _dlrLoggingEnabled             :: Maybe Bool
     , _dlrS3KeyPrefix                :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DisableLoggingResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/DisableSnapshotCopy.hs b/gen/Network/AWS/Redshift/DisableSnapshotCopy.hs
--- a/gen/Network/AWS/Redshift/DisableSnapshotCopy.hs
+++ b/gen/Network/AWS/Redshift/DisableSnapshotCopy.hs
@@ -50,7 +50,7 @@
 
 newtype DisableSnapshotCopy = DisableSnapshotCopy
     { _dscClusterIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DisableSnapshotCopy' constructor.
 --
@@ -75,7 +75,7 @@
 
 newtype DisableSnapshotCopyResponse = DisableSnapshotCopyResponse
     { _dscrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DisableSnapshotCopyResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/EnableLogging.hs b/gen/Network/AWS/Redshift/EnableLogging.hs
--- a/gen/Network/AWS/Redshift/EnableLogging.hs
+++ b/gen/Network/AWS/Redshift/EnableLogging.hs
@@ -59,7 +59,7 @@
     { _elBucketName        :: Text
     , _elClusterIdentifier :: Text
     , _elS3KeyPrefix       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EnableLogging' constructor.
 --
@@ -113,7 +113,7 @@
     , _elrLastSuccessfulDeliveryTime :: Maybe ISO8601
     , _elrLoggingEnabled             :: Maybe Bool
     , _elrS3KeyPrefix                :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EnableLoggingResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/EnableSnapshotCopy.hs b/gen/Network/AWS/Redshift/EnableSnapshotCopy.hs
--- a/gen/Network/AWS/Redshift/EnableSnapshotCopy.hs
+++ b/gen/Network/AWS/Redshift/EnableSnapshotCopy.hs
@@ -54,7 +54,7 @@
     { _escClusterIdentifier :: Text
     , _escDestinationRegion :: Text
     , _escRetentionPeriod   :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EnableSnapshotCopy' constructor.
 --
@@ -102,7 +102,7 @@
 
 newtype EnableSnapshotCopyResponse = EnableSnapshotCopyResponse
     { _escrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'EnableSnapshotCopyResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/ModifyCluster.hs b/gen/Network/AWS/Redshift/ModifyCluster.hs
--- a/gen/Network/AWS/Redshift/ModifyCluster.hs
+++ b/gen/Network/AWS/Redshift/ModifyCluster.hs
@@ -87,7 +87,7 @@
     , _mcNumberOfNodes                    :: Maybe Int
     , _mcPreferredMaintenanceWindow       :: Maybe Text
     , _mcVpcSecurityGroupIds              :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyCluster' constructor.
 --
@@ -328,7 +328,7 @@
 
 newtype ModifyClusterResponse = ModifyClusterResponse
     { _mcrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyClusterResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs b/gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs
--- a/gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs
+++ b/gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs
@@ -54,7 +54,7 @@
 data ModifyClusterParameterGroup = ModifyClusterParameterGroup
     { _mcpgParameterGroupName :: Text
     , _mcpgParameters         :: List "member" Parameter
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyClusterParameterGroup' constructor.
 --
@@ -91,7 +91,7 @@
 data ModifyClusterParameterGroupResponse = ModifyClusterParameterGroupResponse
     { _mcpgrParameterGroupName   :: Maybe Text
     , _mcpgrParameterGroupStatus :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyClusterParameterGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs b/gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs
--- a/gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs
+++ b/gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs
@@ -55,7 +55,7 @@
     { _mcsgClusterSubnetGroupName :: Text
     , _mcsgDescription            :: Maybe Text
     , _mcsgSubnetIds              :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyClusterSubnetGroup' constructor.
 --
@@ -92,7 +92,7 @@
 
 newtype ModifyClusterSubnetGroupResponse = ModifyClusterSubnetGroupResponse
     { _mcsgrClusterSubnetGroup :: Maybe ClusterSubnetGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyClusterSubnetGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/ModifyEventSubscription.hs b/gen/Network/AWS/Redshift/ModifyEventSubscription.hs
--- a/gen/Network/AWS/Redshift/ModifyEventSubscription.hs
+++ b/gen/Network/AWS/Redshift/ModifyEventSubscription.hs
@@ -61,7 +61,7 @@
     , _mesSourceIds        :: List "member" Text
     , _mesSourceType       :: Maybe Text
     , _mesSubscriptionName :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyEventSubscription' constructor.
 --
@@ -149,7 +149,7 @@
 
 newtype ModifyEventSubscriptionResponse = ModifyEventSubscriptionResponse
     { _mesrEventSubscription :: Maybe EventSubscription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifyEventSubscriptionResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs b/gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs
--- a/gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs
+++ b/gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs
@@ -52,7 +52,7 @@
 data ModifySnapshotCopyRetentionPeriod = ModifySnapshotCopyRetentionPeriod
     { _mscrpClusterIdentifier :: Text
     , _mscrpRetentionPeriod   :: Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifySnapshotCopyRetentionPeriod' constructor.
 --
@@ -95,7 +95,7 @@
 
 newtype ModifySnapshotCopyRetentionPeriodResponse = ModifySnapshotCopyRetentionPeriodResponse
     { _mscrprCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ModifySnapshotCopyRetentionPeriodResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs b/gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs
--- a/gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs
+++ b/gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs
@@ -57,7 +57,7 @@
 data PurchaseReservedNodeOffering = PurchaseReservedNodeOffering
     { _prnoNodeCount              :: Maybe Int
     , _prnoReservedNodeOfferingId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PurchaseReservedNodeOffering' constructor.
 --
@@ -88,7 +88,7 @@
 
 newtype PurchaseReservedNodeOfferingResponse = PurchaseReservedNodeOfferingResponse
     { _prnorReservedNode :: Maybe ReservedNode
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PurchaseReservedNodeOfferingResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/RebootCluster.hs b/gen/Network/AWS/Redshift/RebootCluster.hs
--- a/gen/Network/AWS/Redshift/RebootCluster.hs
+++ b/gen/Network/AWS/Redshift/RebootCluster.hs
@@ -53,7 +53,7 @@
 
 newtype RebootCluster = RebootCluster
     { _rcClusterIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'RebootCluster' constructor.
 --
@@ -74,7 +74,7 @@
 
 newtype RebootClusterResponse = RebootClusterResponse
     { _rcrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RebootClusterResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs b/gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs
--- a/gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs
+++ b/gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs
@@ -57,7 +57,7 @@
     { _rcpgParameterGroupName :: Text
     , _rcpgParameters         :: List "member" Parameter
     , _rcpgResetAllParameters :: Maybe Bool
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ResetClusterParameterGroup' constructor.
 --
@@ -100,7 +100,7 @@
 data ResetClusterParameterGroupResponse = ResetClusterParameterGroupResponse
     { _rcpgrParameterGroupName   :: Maybe Text
     , _rcpgrParameterGroupStatus :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ResetClusterParameterGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs b/gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs
--- a/gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs
+++ b/gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs
@@ -93,7 +93,7 @@
     , _rfcsSnapshotClusterIdentifier        :: Maybe Text
     , _rfcsSnapshotIdentifier               :: Text
     , _rfcsVpcSecurityGroupIds              :: List "member" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RestoreFromClusterSnapshot' constructor.
 --
@@ -325,7 +325,7 @@
 
 newtype RestoreFromClusterSnapshotResponse = RestoreFromClusterSnapshotResponse
     { _rfcsrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RestoreFromClusterSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs b/gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs
--- a/gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs
+++ b/gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs
@@ -59,7 +59,7 @@
     , _rcsgiClusterSecurityGroupName :: Text
     , _rcsgiEC2SecurityGroupName     :: Maybe Text
     , _rcsgiEC2SecurityGroupOwnerId  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RevokeClusterSecurityGroupIngress' constructor.
 --
@@ -113,7 +113,7 @@
 
 newtype RevokeClusterSecurityGroupIngressResponse = RevokeClusterSecurityGroupIngressResponse
     { _rcsgirClusterSecurityGroup :: Maybe ClusterSecurityGroup
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RevokeClusterSecurityGroupIngressResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs b/gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs
--- a/gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs
+++ b/gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs
@@ -57,7 +57,7 @@
     { _rsaAccountWithRestoreAccess  :: Text
     , _rsaSnapshotClusterIdentifier :: Maybe Text
     , _rsaSnapshotIdentifier        :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RevokeSnapshotAccess' constructor.
 --
@@ -100,7 +100,7 @@
 
 newtype RevokeSnapshotAccessResponse = RevokeSnapshotAccessResponse
     { _rsarSnapshot :: Maybe Snapshot
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RevokeSnapshotAccessResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/RotateEncryptionKey.hs b/gen/Network/AWS/Redshift/RotateEncryptionKey.hs
--- a/gen/Network/AWS/Redshift/RotateEncryptionKey.hs
+++ b/gen/Network/AWS/Redshift/RotateEncryptionKey.hs
@@ -49,7 +49,7 @@
 
 newtype RotateEncryptionKey = RotateEncryptionKey
     { _rekClusterIdentifier :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'RotateEncryptionKey' constructor.
 --
@@ -73,7 +73,7 @@
 
 newtype RotateEncryptionKeyResponse = RotateEncryptionKeyResponse
     { _rekrCluster :: Maybe Cluster
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RotateEncryptionKeyResponse' constructor.
 --
diff --git a/gen/Network/AWS/Redshift/Types.hs b/gen/Network/AWS/Redshift/Types.hs
--- a/gen/Network/AWS/Redshift/Types.hs
+++ b/gen/Network/AWS/Redshift/Types.hs
@@ -463,7 +463,7 @@
     , _sTags                                   :: List "member" Tag
     , _sTotalBackupSizeInMegaBytes             :: Maybe Double
     , _sVpcId                                  :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Snapshot' constructor.
 --
@@ -767,7 +767,7 @@
     , _cpgParameterGroupFamily :: Maybe Text
     , _cpgParameterGroupName   :: Maybe Text
     , _cpgTags                 :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ClusterParameterGroup' constructor.
 --
@@ -830,7 +830,7 @@
     , _rsProgressInMegaBytes                    :: Maybe Integer
     , _rsSnapshotSizeInMegaBytes                :: Maybe Integer
     , _rsStatus                                 :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RestoreStatus' constructor.
 --
@@ -921,7 +921,7 @@
     , _eSeverity         :: Maybe Text
     , _eSourceIdentifier :: Maybe Text
     , _eSourceType       :: Maybe SourceType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Event' constructor.
 --
@@ -1007,7 +1007,7 @@
 data ClusterSnapshotCopyStatus = ClusterSnapshotCopyStatus
     { _cscsDestinationRegion :: Maybe Text
     , _cscsRetentionPeriod   :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ClusterSnapshotCopyStatus' constructor.
 --
@@ -1049,7 +1049,7 @@
 data Tag = Tag
     { _tagKey   :: Maybe Text
     , _tagValue :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Tag' constructor.
 --
@@ -1088,7 +1088,7 @@
     { _hccHsmClientCertificateIdentifier :: Maybe Text
     , _hccHsmClientCertificatePublicKey  :: Maybe Text
     , _hccTags                           :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'HsmClientCertificate' constructor.
 --
@@ -1169,7 +1169,7 @@
     , _cTags                             :: List "member" Tag
     , _cVpcId                            :: Maybe Text
     , _cVpcSecurityGroups                :: List "member" VpcSecurityGroupMembership
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Cluster' constructor.
 --
@@ -1510,7 +1510,7 @@
     { _cnNodeRole         :: Maybe Text
     , _cnPrivateIPAddress :: Maybe Text
     , _cnPublicIPAddress  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ClusterNode' constructor.
 --
@@ -1561,7 +1561,7 @@
     , _ecsgEC2SecurityGroupOwnerId :: Maybe Text
     , _ecsgStatus                  :: Maybe Text
     , _ecsgTags                    :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'EC2SecurityGroup' constructor.
 --
@@ -1623,7 +1623,7 @@
     , _ocoClusterType       :: Maybe Text
     , _ocoClusterVersion    :: Maybe Text
     , _ocoNodeType          :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'OrderableClusterOption' constructor.
 --
@@ -1684,7 +1684,7 @@
     | STClusterParameterGroup -- ^ cluster-parameter-group
     | STClusterSecurityGroup  -- ^ cluster-security-group
     | STClusterSnapshot       -- ^ cluster-snapshot
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable SourceType
 
@@ -1714,7 +1714,7 @@
 data ClusterParameterGroupStatus = ClusterParameterGroupStatus
     { _cpgsParameterApplyStatus :: Maybe Text
     , _cpgsParameterGroupName   :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ClusterParameterGroupStatus' constructor.
 --
@@ -1756,7 +1756,7 @@
     { _sSubnetAvailabilityZone :: Maybe AvailabilityZone
     , _sSubnetIdentifier       :: Maybe Text
     , _sSubnetStatus           :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Subnet' constructor.
 --
@@ -1807,7 +1807,7 @@
     , _csgEC2SecurityGroups        :: List "member" EC2SecurityGroup
     , _csgIPRanges                 :: List "member" IPRange
     , _csgTags                     :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ClusterSecurityGroup' constructor.
 --
@@ -1879,7 +1879,7 @@
     { _dcpMarker               :: Maybe Text
     , _dcpParameterGroupFamily :: Maybe Text
     , _dcpParameters           :: List "member" Parameter
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DefaultClusterParameters' constructor.
 --
@@ -1936,7 +1936,7 @@
     , _csg1Subnets                :: List "member" Subnet
     , _csg1Tags                   :: List "member" Tag
     , _csg1VpcId                  :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ClusterSubnetGroup' constructor.
 --
@@ -2015,7 +2015,7 @@
     , _eimEventDescription :: Maybe Text
     , _eimEventId          :: Maybe Text
     , _eimSeverity         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EventInfoMap' constructor.
 --
@@ -2076,7 +2076,7 @@
 data ClusterSecurityGroupMembership = ClusterSecurityGroupMembership
     { _csgmClusterSecurityGroupName :: Maybe Text
     , _csgmStatus                   :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ClusterSecurityGroupMembership' constructor.
 --
@@ -2122,7 +2122,7 @@
     , _rnoRecurringCharges       :: List "member" RecurringCharge
     , _rnoReservedNodeOfferingId :: Maybe Text
     , _rnoUsagePrice             :: Maybe Double
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReservedNodeOffering' constructor.
 --
@@ -2233,7 +2233,7 @@
     , _rnStartTime              :: Maybe ISO8601
     , _rnState                  :: Maybe Text
     , _rnUsagePrice             :: Maybe Double
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReservedNode' constructor.
 --
@@ -2378,7 +2378,7 @@
     , _lsLastSuccessfulDeliveryTime :: Maybe ISO8601
     , _lsLoggingEnabled             :: Maybe Bool
     , _lsS3KeyPrefix                :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'LoggingStatus' constructor.
 --
@@ -2457,7 +2457,7 @@
 
 newtype AccountWithRestoreAccess = AccountWithRestoreAccess
     { _awraAccountId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'AccountWithRestoreAccess' constructor.
 --
@@ -2485,7 +2485,7 @@
 
 newtype AvailabilityZone = AvailabilityZone
     { _azName :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'AvailabilityZone' constructor.
 --
@@ -2523,7 +2523,7 @@
     , _esStatus                   :: Maybe Text
     , _esSubscriptionCreationTime :: Maybe ISO8601
     , _esTags                     :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'EventSubscription' constructor.
 --
@@ -2668,7 +2668,7 @@
     { _hsHsmClientCertificateIdentifier :: Maybe Text
     , _hsHsmConfigurationIdentifier     :: Maybe Text
     , _hsStatus                         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'HsmStatus' constructor.
 --
@@ -2724,7 +2724,7 @@
 data ClusterParameterGroupNameMessage = ClusterParameterGroupNameMessage
     { _cpgnmParameterGroupName   :: Maybe Text
     , _cpgnmParameterGroupStatus :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ClusterParameterGroupNameMessage' constructor.
 --
@@ -2767,7 +2767,7 @@
 data ElasticIpStatus = ElasticIpStatus
     { _eisElasticIp :: Maybe Text
     , _eisStatus    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ElasticIpStatus' constructor.
 --
@@ -2806,7 +2806,7 @@
     { _cvClusterParameterGroupFamily :: Maybe Text
     , _cvClusterVersion              :: Maybe Text
     , _cvDescription                 :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ClusterVersion' constructor.
 --
@@ -2855,7 +2855,7 @@
 data RecurringCharge = RecurringCharge
     { _rcRecurringChargeAmount    :: Maybe Double
     , _rcRecurringChargeFrequency :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RecurringCharge' constructor.
 --
@@ -2897,7 +2897,7 @@
 data Endpoint = Endpoint
     { _eAddress :: Maybe Text
     , _ePort    :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Endpoint' constructor.
 --
@@ -2936,7 +2936,7 @@
     { _iprCIDRIP :: Maybe Text
     , _iprStatus :: Maybe Text
     , _iprTags   :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'IPRange' constructor.
 --
@@ -2984,7 +2984,7 @@
     { _trResourceName :: Maybe Text
     , _trResourceType :: Maybe Text
     , _trTag          :: Maybe Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TaggedResource' constructor.
 --
@@ -3037,7 +3037,7 @@
 data EventCategoriesMap = EventCategoriesMap
     { _ecmEvents     :: List "member" EventInfoMap
     , _ecmSourceType :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'EventCategoriesMap' constructor.
 --
@@ -3079,7 +3079,7 @@
     , _hcHsmIpAddress               :: Maybe Text
     , _hcHsmPartitionName           :: Maybe Text
     , _hcTags                       :: List "member" Tag
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'HsmConfiguration' constructor.
 --
@@ -3153,7 +3153,7 @@
     , _pmvMasterUserPassword               :: Maybe Text
     , _pmvNodeType                         :: Maybe Text
     , _pmvNumberOfNodes                    :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PendingModifiedValues' constructor.
 --
@@ -3243,7 +3243,7 @@
 data VpcSecurityGroupMembership = VpcSecurityGroupMembership
     { _vsgmStatus             :: Maybe Text
     , _vsgmVpcSecurityGroupId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'VpcSecurityGroupMembership' constructor.
 --
@@ -3286,7 +3286,7 @@
     , _pParameterName        :: Maybe Text
     , _pParameterValue       :: Maybe Text
     , _pSource               :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Parameter' constructor.
 --