diff --git a/amazonka-support.cabal b/amazonka-support.cabal
--- a/amazonka-support.cabal
+++ b/amazonka-support.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-support
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Support SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -60,5 +60,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/Support/AddAttachmentsToSet.hs b/gen/Network/AWS/Support/AddAttachmentsToSet.hs
--- a/gen/Network/AWS/Support/AddAttachmentsToSet.hs
+++ b/gen/Network/AWS/Support/AddAttachmentsToSet.hs
@@ -61,7 +61,7 @@
 data AddAttachmentsToSet = AddAttachmentsToSet
     { _aatsAttachmentSetId :: Maybe Text
     , _aatsAttachments     :: List "attachments" Attachment
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AddAttachmentsToSet' constructor.
 --
@@ -93,7 +93,7 @@
 data AddAttachmentsToSetResponse = AddAttachmentsToSetResponse
     { _aatsrAttachmentSetId :: Maybe Text
     , _aatsrExpiryTime      :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AddAttachmentsToSetResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/AddCommunicationToCase.hs b/gen/Network/AWS/Support/AddCommunicationToCase.hs
--- a/gen/Network/AWS/Support/AddCommunicationToCase.hs
+++ b/gen/Network/AWS/Support/AddCommunicationToCase.hs
@@ -61,7 +61,7 @@
     , _actcCaseId            :: Maybe Text
     , _actcCcEmailAddresses  :: List "ccEmailAddresses" Text
     , _actcCommunicationBody :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AddCommunicationToCase' constructor.
 --
@@ -109,7 +109,7 @@
 
 newtype AddCommunicationToCaseResponse = AddCommunicationToCaseResponse
     { _actcrResult :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AddCommunicationToCaseResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/CreateCase.hs b/gen/Network/AWS/Support/CreateCase.hs
--- a/gen/Network/AWS/Support/CreateCase.hs
+++ b/gen/Network/AWS/Support/CreateCase.hs
@@ -92,7 +92,7 @@
     , _ccServiceCode       :: Maybe Text
     , _ccSeverityCode      :: Maybe Text
     , _ccSubject           :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateCase' constructor.
 --
@@ -183,7 +183,7 @@
 
 newtype CreateCaseResponse = CreateCaseResponse
     { _ccrCaseId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateCaseResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/DescribeAttachment.hs b/gen/Network/AWS/Support/DescribeAttachment.hs
--- a/gen/Network/AWS/Support/DescribeAttachment.hs
+++ b/gen/Network/AWS/Support/DescribeAttachment.hs
@@ -52,7 +52,7 @@
 
 newtype DescribeAttachment = DescribeAttachment
     { _daAttachmentId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeAttachment' constructor.
 --
@@ -72,7 +72,7 @@
 
 newtype DescribeAttachmentResponse = DescribeAttachmentResponse
     { _darAttachment :: Maybe Attachment
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeAttachmentResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/DescribeCases.hs b/gen/Network/AWS/Support/DescribeCases.hs
--- a/gen/Network/AWS/Support/DescribeCases.hs
+++ b/gen/Network/AWS/Support/DescribeCases.hs
@@ -78,7 +78,7 @@
     , _dcLanguage              :: Maybe Text
     , _dcMaxResults            :: Maybe Nat
     , _dcNextToken             :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeCases' constructor.
 --
@@ -162,7 +162,7 @@
 data DescribeCasesResponse = DescribeCasesResponse
     { _dcr1Cases     :: List "cases" CaseDetails
     , _dcr1NextToken :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeCasesResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/DescribeCommunications.hs b/gen/Network/AWS/Support/DescribeCommunications.hs
--- a/gen/Network/AWS/Support/DescribeCommunications.hs
+++ b/gen/Network/AWS/Support/DescribeCommunications.hs
@@ -68,7 +68,7 @@
     , _dc1CaseId     :: Text
     , _dc1MaxResults :: Maybe Nat
     , _dc1NextToken  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeCommunications' constructor.
 --
@@ -120,7 +120,7 @@
 data DescribeCommunicationsResponse = DescribeCommunicationsResponse
     { _dcrCommunications :: List "communications" Communication
     , _dcrNextToken      :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeCommunicationsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/DescribeServices.hs b/gen/Network/AWS/Support/DescribeServices.hs
--- a/gen/Network/AWS/Support/DescribeServices.hs
+++ b/gen/Network/AWS/Support/DescribeServices.hs
@@ -59,7 +59,7 @@
 data DescribeServices = DescribeServices
     { _dsLanguage        :: Maybe Text
     , _dsServiceCodeList :: List "serviceCodeList" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeServices' constructor.
 --
@@ -89,7 +89,7 @@
 
 newtype DescribeServicesResponse = DescribeServicesResponse
     { _dsrServices :: List "services" SupportService
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeServicesResponse where
     type Item DescribeServicesResponse = SupportService
diff --git a/gen/Network/AWS/Support/DescribeSeverityLevels.hs b/gen/Network/AWS/Support/DescribeSeverityLevels.hs
--- a/gen/Network/AWS/Support/DescribeSeverityLevels.hs
+++ b/gen/Network/AWS/Support/DescribeSeverityLevels.hs
@@ -51,7 +51,7 @@
 
 newtype DescribeSeverityLevels = DescribeSeverityLevels
     { _dslLanguage :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DescribeSeverityLevels' constructor.
 --
@@ -72,7 +72,7 @@
 
 newtype DescribeSeverityLevelsResponse = DescribeSeverityLevelsResponse
     { _dslrSeverityLevels :: List "severityLevels" SeverityLevel
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeSeverityLevelsResponse where
     type Item DescribeSeverityLevelsResponse = SeverityLevel
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckRefreshStatuses.hs
@@ -50,7 +50,7 @@
 
 newtype DescribeTrustedAdvisorCheckRefreshStatuses = DescribeTrustedAdvisorCheckRefreshStatuses
     { _dtacrsCheckIds :: List "checkIds" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTrustedAdvisorCheckRefreshStatuses where
     type Item DescribeTrustedAdvisorCheckRefreshStatuses = Text
@@ -75,7 +75,7 @@
 
 newtype DescribeTrustedAdvisorCheckRefreshStatusesResponse = DescribeTrustedAdvisorCheckRefreshStatusesResponse
     { _dtacrsrStatuses :: List "statuses" TrustedAdvisorCheckRefreshStatus
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTrustedAdvisorCheckRefreshStatusesResponse where
     type Item DescribeTrustedAdvisorCheckRefreshStatusesResponse = TrustedAdvisorCheckRefreshStatus
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckResult.hs
@@ -61,7 +61,7 @@
 data DescribeTrustedAdvisorCheckResult = DescribeTrustedAdvisorCheckResult
     { _dtacrCheckId  :: Text
     , _dtacrLanguage :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeTrustedAdvisorCheckResult' constructor.
 --
@@ -90,7 +90,7 @@
 
 newtype DescribeTrustedAdvisorCheckResultResponse = DescribeTrustedAdvisorCheckResultResponse
     { _dtacrrResult :: Maybe TrustedAdvisorCheckResult
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeTrustedAdvisorCheckResultResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorCheckSummaries.hs
@@ -52,7 +52,7 @@
 
 newtype DescribeTrustedAdvisorCheckSummaries = DescribeTrustedAdvisorCheckSummaries
     { _dtacsCheckIds :: List "checkIds" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTrustedAdvisorCheckSummaries where
     type Item DescribeTrustedAdvisorCheckSummaries = Text
@@ -77,7 +77,7 @@
 
 newtype DescribeTrustedAdvisorCheckSummariesResponse = DescribeTrustedAdvisorCheckSummariesResponse
     { _dtacsrSummaries :: List "summaries" TrustedAdvisorCheckSummary
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTrustedAdvisorCheckSummariesResponse where
     type Item DescribeTrustedAdvisorCheckSummariesResponse = TrustedAdvisorCheckSummary
diff --git a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
--- a/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
+++ b/gen/Network/AWS/Support/DescribeTrustedAdvisorChecks.hs
@@ -52,7 +52,7 @@
 
 newtype DescribeTrustedAdvisorChecks = DescribeTrustedAdvisorChecks
     { _dtacLanguage :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeTrustedAdvisorChecks' constructor.
 --
@@ -74,7 +74,7 @@
 
 newtype DescribeTrustedAdvisorChecksResponse = DescribeTrustedAdvisorChecksResponse
     { _dtacrChecks :: List "checks" TrustedAdvisorCheckDescription
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTrustedAdvisorChecksResponse where
     type Item DescribeTrustedAdvisorChecksResponse = TrustedAdvisorCheckDescription
diff --git a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
--- a/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
+++ b/gen/Network/AWS/Support/RefreshTrustedAdvisorCheck.hs
@@ -58,7 +58,7 @@
 
 newtype RefreshTrustedAdvisorCheck = RefreshTrustedAdvisorCheck
     { _rtacCheckId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'RefreshTrustedAdvisorCheck' constructor.
 --
@@ -78,7 +78,7 @@
 
 newtype RefreshTrustedAdvisorCheckResponse = RefreshTrustedAdvisorCheckResponse
     { _rtacrStatus :: TrustedAdvisorCheckRefreshStatus
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RefreshTrustedAdvisorCheckResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/ResolveCase.hs b/gen/Network/AWS/Support/ResolveCase.hs
--- a/gen/Network/AWS/Support/ResolveCase.hs
+++ b/gen/Network/AWS/Support/ResolveCase.hs
@@ -51,7 +51,7 @@
 
 newtype ResolveCase = ResolveCase
     { _rcCaseId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ResolveCase' constructor.
 --
@@ -72,7 +72,7 @@
 data ResolveCaseResponse = ResolveCaseResponse
     { _rcrFinalCaseStatus   :: Maybe Text
     , _rcrInitialCaseStatus :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ResolveCaseResponse' constructor.
 --
diff --git a/gen/Network/AWS/Support/Types.hs b/gen/Network/AWS/Support/Types.hs
--- a/gen/Network/AWS/Support/Types.hs
+++ b/gen/Network/AWS/Support/Types.hs
@@ -207,7 +207,7 @@
     , _tarsResourcesIgnored    :: Integer
     , _tarsResourcesProcessed  :: Integer
     , _tarsResourcesSuppressed :: Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TrustedAdvisorResourcesSummary' constructor.
 --
@@ -273,7 +273,7 @@
 
 newtype TrustedAdvisorCategorySpecificSummary = TrustedAdvisorCategorySpecificSummary
     { _tacssCostOptimizing :: Maybe TrustedAdvisorCostOptimizingSummary
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TrustedAdvisorCategorySpecificSummary' constructor.
 --
@@ -307,7 +307,7 @@
     , _cCaseId        :: Maybe Text
     , _cSubmittedBy   :: Maybe Text
     , _cTimeCreated   :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Communication' constructor.
 --
@@ -373,7 +373,7 @@
 data Category = Category
     { _cCode :: Maybe Text
     , _cName :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Category' constructor.
 --
@@ -415,7 +415,7 @@
     , _tacsResourcesSummary        :: TrustedAdvisorResourcesSummary
     , _tacsStatus                  :: Text
     , _tacsTimestamp               :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TrustedAdvisorCheckSummary' constructor.
 --
@@ -499,7 +499,7 @@
 data AttachmentDetails = AttachmentDetails
     { _adAttachmentId :: Maybe Text
     , _adFileName     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AttachmentDetails' constructor.
 --
@@ -541,7 +541,7 @@
     , _tacrResourcesSummary        :: TrustedAdvisorResourcesSummary
     , _tacrStatus                  :: Text
     , _tacrTimestamp               :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TrustedAdvisorCheckResult' constructor.
 --
@@ -629,7 +629,7 @@
     , _tacdId          :: Text
     , _tacdMetadata    :: List "metadata" Text
     , _tacdName        :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TrustedAdvisorCheckDescription' constructor.
 --
@@ -703,7 +703,7 @@
 data Attachment = Attachment
     { _aData     :: Maybe Base64
     , _aFileName :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Attachment' constructor.
 --
@@ -741,7 +741,7 @@
 data RecentCaseCommunications = RecentCaseCommunications
     { _rccCommunications :: List "communications" Communication
     , _rccNextToken      :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RecentCaseCommunications' constructor.
 --
@@ -782,7 +782,7 @@
     { _ssCategories :: List "categories" Category
     , _ssCode       :: Maybe Text
     , _ssName       :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'SupportService' constructor.
 --
@@ -835,7 +835,7 @@
     , _tardRegion       :: Text
     , _tardResourceId   :: Text
     , _tardStatus       :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TrustedAdvisorResourceDetail' constructor.
 --
@@ -908,7 +908,7 @@
 data TrustedAdvisorCostOptimizingSummary = TrustedAdvisorCostOptimizingSummary
     { _tacosEstimatedMonthlySavings        :: Double
     , _tacosEstimatedPercentMonthlySavings :: Double
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TrustedAdvisorCostOptimizingSummary' constructor.
 --
@@ -954,7 +954,7 @@
 data SeverityLevel = SeverityLevel
     { _slCode :: Maybe Text
     , _slName :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'SeverityLevel' constructor.
 --
@@ -1003,7 +1003,7 @@
     , _cdSubject              :: Maybe Text
     , _cdSubmittedBy          :: Maybe Text
     , _cdTimeCreated          :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CaseDetails' constructor.
 --
@@ -1141,7 +1141,7 @@
     { _tacrsCheckId                    :: Text
     , _tacrsMillisUntilNextRefreshable :: Integer
     , _tacrsStatus                     :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TrustedAdvisorCheckRefreshStatus' constructor.
 --