amazonka-redshift 0.2.1 → 0.2.2

raw patch · 58 files changed

+152/−152 lines, 58 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-redshift.cabal +2/−2
• gen/Network/AWS/Redshift/AuthorizeClusterSecurityGroupIngress.hs +2/−2
• gen/Network/AWS/Redshift/AuthorizeSnapshotAccess.hs +2/−2
• gen/Network/AWS/Redshift/CopyClusterSnapshot.hs +2/−2
• gen/Network/AWS/Redshift/CreateCluster.hs +2/−2
• gen/Network/AWS/Redshift/CreateClusterParameterGroup.hs +2/−2
• gen/Network/AWS/Redshift/CreateClusterSecurityGroup.hs +2/−2
• gen/Network/AWS/Redshift/CreateClusterSnapshot.hs +2/−2
• gen/Network/AWS/Redshift/CreateClusterSubnetGroup.hs +2/−2
• gen/Network/AWS/Redshift/CreateEventSubscription.hs +2/−2
• gen/Network/AWS/Redshift/CreateHsmClientCertificate.hs +2/−2
• gen/Network/AWS/Redshift/CreateHsmConfiguration.hs +2/−2
• gen/Network/AWS/Redshift/CreateTags.hs +2/−2
• gen/Network/AWS/Redshift/DeleteCluster.hs +2/−2
• gen/Network/AWS/Redshift/DeleteClusterParameterGroup.hs +2/−2
• gen/Network/AWS/Redshift/DeleteClusterSecurityGroup.hs +2/−2
• gen/Network/AWS/Redshift/DeleteClusterSnapshot.hs +2/−2
• gen/Network/AWS/Redshift/DeleteClusterSubnetGroup.hs +2/−2
• gen/Network/AWS/Redshift/DeleteEventSubscription.hs +2/−2
• gen/Network/AWS/Redshift/DeleteHsmClientCertificate.hs +2/−2
• gen/Network/AWS/Redshift/DeleteHsmConfiguration.hs +2/−2
• gen/Network/AWS/Redshift/DeleteTags.hs +2/−2
• gen/Network/AWS/Redshift/DescribeClusterParameterGroups.hs +2/−2
• gen/Network/AWS/Redshift/DescribeClusterParameters.hs +2/−2
• gen/Network/AWS/Redshift/DescribeClusterSecurityGroups.hs +2/−2
• gen/Network/AWS/Redshift/DescribeClusterSnapshots.hs +2/−2
• gen/Network/AWS/Redshift/DescribeClusterSubnetGroups.hs +2/−2
• gen/Network/AWS/Redshift/DescribeClusterVersions.hs +2/−2
• gen/Network/AWS/Redshift/DescribeClusters.hs +2/−2
• gen/Network/AWS/Redshift/DescribeDefaultClusterParameters.hs +2/−2
• gen/Network/AWS/Redshift/DescribeEventCategories.hs +2/−2
• gen/Network/AWS/Redshift/DescribeEventSubscriptions.hs +2/−2
• gen/Network/AWS/Redshift/DescribeEvents.hs +2/−2
• gen/Network/AWS/Redshift/DescribeHsmClientCertificates.hs +2/−2
• gen/Network/AWS/Redshift/DescribeHsmConfigurations.hs +2/−2
• gen/Network/AWS/Redshift/DescribeLoggingStatus.hs +2/−2
• gen/Network/AWS/Redshift/DescribeOrderableClusterOptions.hs +2/−2
• gen/Network/AWS/Redshift/DescribeReservedNodeOfferings.hs +2/−2
• gen/Network/AWS/Redshift/DescribeReservedNodes.hs +2/−2
• gen/Network/AWS/Redshift/DescribeResize.hs +2/−2
• gen/Network/AWS/Redshift/DescribeTags.hs +2/−2
• gen/Network/AWS/Redshift/DisableLogging.hs +2/−2
• gen/Network/AWS/Redshift/DisableSnapshotCopy.hs +2/−2
• gen/Network/AWS/Redshift/EnableLogging.hs +2/−2
• gen/Network/AWS/Redshift/EnableSnapshotCopy.hs +2/−2
• gen/Network/AWS/Redshift/ModifyCluster.hs +2/−2
• gen/Network/AWS/Redshift/ModifyClusterParameterGroup.hs +2/−2
• gen/Network/AWS/Redshift/ModifyClusterSubnetGroup.hs +2/−2
• gen/Network/AWS/Redshift/ModifyEventSubscription.hs +2/−2
• gen/Network/AWS/Redshift/ModifySnapshotCopyRetentionPeriod.hs +2/−2
• gen/Network/AWS/Redshift/PurchaseReservedNodeOffering.hs +2/−2
• gen/Network/AWS/Redshift/RebootCluster.hs +2/−2
• gen/Network/AWS/Redshift/ResetClusterParameterGroup.hs +2/−2
• gen/Network/AWS/Redshift/RestoreFromClusterSnapshot.hs +2/−2
• gen/Network/AWS/Redshift/RevokeClusterSecurityGroupIngress.hs +2/−2
• gen/Network/AWS/Redshift/RevokeSnapshotAccess.hs +2/−2
• gen/Network/AWS/Redshift/RotateEncryptionKey.hs +2/−2
• gen/Network/AWS/Redshift/Types.hs +38/−38

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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

@@ -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. --

@@ -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

@@ -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

@@ -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. --

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --