diff --git a/amazonka-route53-domains.cabal b/amazonka-route53-domains.cabal
--- a/amazonka-route53-domains.cabal
+++ b/amazonka-route53-domains.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-route53-domains
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Route 53 Domains SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -53,5 +53,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/Route53Domains/CheckDomainAvailability.hs b/gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs
--- a/gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs
+++ b/gen/Network/AWS/Route53Domains/CheckDomainAvailability.hs
@@ -54,7 +54,7 @@
 data CheckDomainAvailability = CheckDomainAvailability
     { _cdaDomainName  :: Text
     , _cdaIdnLangCode :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CheckDomainAvailability' constructor.
 --
@@ -91,7 +91,7 @@
 
 newtype CheckDomainAvailabilityResponse = CheckDomainAvailabilityResponse
     { _cdarAvailability :: DomainAvailability
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CheckDomainAvailabilityResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs b/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs
--- a/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs
+++ b/gen/Network/AWS/Route53Domains/DisableDomainAutoRenew.hs
@@ -48,7 +48,7 @@
 
 newtype DisableDomainAutoRenew = DisableDomainAutoRenew
     { _ddarDomainName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DisableDomainAutoRenew' constructor.
 --
@@ -66,7 +66,7 @@
 ddarDomainName = lens _ddarDomainName (\s a -> s { _ddarDomainName = a })
 
 data DisableDomainAutoRenewResponse = DisableDomainAutoRenewResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DisableDomainAutoRenewResponse' constructor.
 disableDomainAutoRenewResponse :: DisableDomainAutoRenewResponse
diff --git a/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs b/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs
--- a/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs
+++ b/gen/Network/AWS/Route53Domains/DisableDomainTransferLock.hs
@@ -53,7 +53,7 @@
 
 newtype DisableDomainTransferLock = DisableDomainTransferLock
     { _ddtlDomainName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DisableDomainTransferLock' constructor.
 --
@@ -83,7 +83,7 @@
 
 newtype DisableDomainTransferLockResponse = DisableDomainTransferLockResponse
     { _ddtlrOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DisableDomainTransferLockResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs b/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs
--- a/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs
+++ b/gen/Network/AWS/Route53Domains/EnableDomainAutoRenew.hs
@@ -54,7 +54,7 @@
 
 newtype EnableDomainAutoRenew = EnableDomainAutoRenew
     { _edarDomainName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'EnableDomainAutoRenew' constructor.
 --
@@ -72,7 +72,7 @@
 edarDomainName = lens _edarDomainName (\s a -> s { _edarDomainName = a })
 
 data EnableDomainAutoRenewResponse = EnableDomainAutoRenewResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'EnableDomainAutoRenewResponse' constructor.
 enableDomainAutoRenewResponse :: EnableDomainAutoRenewResponse
diff --git a/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs b/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs
--- a/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs
+++ b/gen/Network/AWS/Route53Domains/EnableDomainTransferLock.hs
@@ -52,7 +52,7 @@
 
 newtype EnableDomainTransferLock = EnableDomainTransferLock
     { _edtlDomainName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'EnableDomainTransferLock' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype EnableDomainTransferLockResponse = EnableDomainTransferLockResponse
     { _edtlrOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'EnableDomainTransferLockResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/GetDomainDetail.hs b/gen/Network/AWS/Route53Domains/GetDomainDetail.hs
--- a/gen/Network/AWS/Route53Domains/GetDomainDetail.hs
+++ b/gen/Network/AWS/Route53Domains/GetDomainDetail.hs
@@ -70,7 +70,7 @@
 
 newtype GetDomainDetail = GetDomainDetail
     { _gddDomainName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetDomainDetail' constructor.
 --
@@ -120,7 +120,7 @@
     , _gddrTechPrivacy       :: Maybe Bool
     , _gddrUpdatedDate       :: Maybe POSIX
     , _gddrWhoIsServer       :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetDomainDetailResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/GetOperationDetail.hs b/gen/Network/AWS/Route53Domains/GetOperationDetail.hs
--- a/gen/Network/AWS/Route53Domains/GetOperationDetail.hs
+++ b/gen/Network/AWS/Route53Domains/GetOperationDetail.hs
@@ -55,7 +55,7 @@
 
 newtype GetOperationDetail = GetOperationDetail
     { _godOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetOperationDetail' constructor.
 --
@@ -87,7 +87,7 @@
     , _godrStatus        :: Maybe OperationStatus
     , _godrSubmittedDate :: Maybe POSIX
     , _godrType          :: Maybe OperationType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetOperationDetailResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/ListDomains.hs b/gen/Network/AWS/Route53Domains/ListDomains.hs
--- a/gen/Network/AWS/Route53Domains/ListDomains.hs
+++ b/gen/Network/AWS/Route53Domains/ListDomains.hs
@@ -53,7 +53,7 @@
 data ListDomains = ListDomains
     { _ldMarker   :: Maybe Text
     , _ldMaxItems :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListDomains' constructor.
 --
@@ -102,7 +102,7 @@
 data ListDomainsResponse = ListDomainsResponse
     { _ldrDomains        :: List "Domains" DomainSummary
     , _ldrNextPageMarker :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListDomainsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/ListOperations.hs b/gen/Network/AWS/Route53Domains/ListOperations.hs
--- a/gen/Network/AWS/Route53Domains/ListOperations.hs
+++ b/gen/Network/AWS/Route53Domains/ListOperations.hs
@@ -53,7 +53,7 @@
 data ListOperations = ListOperations
     { _loMarker   :: Maybe Text
     , _loMaxItems :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListOperations' constructor.
 --
@@ -99,7 +99,7 @@
 data ListOperationsResponse = ListOperationsResponse
     { _lorNextPageMarker :: Maybe Text
     , _lorOperations     :: List "Operations" OperationSummary
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListOperationsResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/RegisterDomain.hs b/gen/Network/AWS/Route53Domains/RegisterDomain.hs
--- a/gen/Network/AWS/Route53Domains/RegisterDomain.hs
+++ b/gen/Network/AWS/Route53Domains/RegisterDomain.hs
@@ -85,7 +85,7 @@
     , _rdPrivacyProtectTechContact       :: Maybe Bool
     , _rdRegistrantContact               :: ContactDetail
     , _rdTechContact                     :: ContactDetail
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RegisterDomain' constructor.
 --
@@ -259,7 +259,7 @@
 
 newtype RegisterDomainResponse = RegisterDomainResponse
     { _rdrOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'RegisterDomainResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs b/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs
--- a/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs
+++ b/gen/Network/AWS/Route53Domains/RetrieveDomainAuthCode.hs
@@ -50,7 +50,7 @@
 
 newtype RetrieveDomainAuthCode = RetrieveDomainAuthCode
     { _rdacDomainName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'RetrieveDomainAuthCode' constructor.
 --
@@ -80,7 +80,7 @@
 
 newtype RetrieveDomainAuthCodeResponse = RetrieveDomainAuthCodeResponse
     { _rdacrAuthCode :: Sensitive Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'RetrieveDomainAuthCodeResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/TransferDomain.hs b/gen/Network/AWS/Route53Domains/TransferDomain.hs
--- a/gen/Network/AWS/Route53Domains/TransferDomain.hs
+++ b/gen/Network/AWS/Route53Domains/TransferDomain.hs
@@ -92,7 +92,7 @@
     , _tdPrivacyProtectTechContact       :: Maybe Bool
     , _tdRegistrantContact               :: ContactDetail
     , _tdTechContact                     :: ContactDetail
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TransferDomain' constructor.
 --
@@ -290,7 +290,7 @@
 
 newtype TransferDomainResponse = TransferDomainResponse
     { _tdrOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'TransferDomainResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/Types.hs b/gen/Network/AWS/Route53Domains/Types.hs
--- a/gen/Network/AWS/Route53Domains/Types.hs
+++ b/gen/Network/AWS/Route53Domains/Types.hs
@@ -145,7 +145,7 @@
     , _dsDomainName   :: Text
     , _dsExpiry       :: Maybe POSIX
     , _dsTransferLock :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DomainSummary' constructor.
 --
@@ -230,7 +230,7 @@
     | SeIdNumber          -- ^ SE_ID_NUMBER
     | SgIdNumber          -- ^ SG_ID_NUMBER
     | VatNumber           -- ^ VAT_NUMBER
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ExtraParamName
 
@@ -289,7 +289,7 @@
 data Nameserver = Nameserver
     { _nGlueIps :: List "GlueIps" Text
     , _nName    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Nameserver' constructor.
 --
@@ -346,7 +346,7 @@
     | InProgress -- ^ IN_PROGRESS
     | Submitted  -- ^ SUBMITTED
     | Successful -- ^ SUCCESSFUL
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable OperationStatus
 
@@ -386,7 +386,7 @@
     | Unavailable           -- ^ UNAVAILABLE
     | UnavailablePremium    -- ^ UNAVAILABLE_PREMIUM
     | UnavailableRestricted -- ^ UNAVAILABLE_RESTRICTED
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable DomainAvailability
 
@@ -430,7 +430,7 @@
     | OTTransferInDomain        -- ^ TRANSFER_IN_DOMAIN
     | OTUpdateDomainContact     -- ^ UPDATE_DOMAIN_CONTACT
     | OTUpdateNameserver        -- ^ UPDATE_NAMESERVER
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable OperationType
 
@@ -696,7 +696,7 @@
     | Za  -- ^ ZA
     | Zm  -- ^ ZM
     | Zw  -- ^ ZW
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable CountryCode
 
@@ -1179,7 +1179,7 @@
 data ExtraParam = ExtraParam
     { _epName  :: ExtraParamName
     , _epValue :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ExtraParam' constructor.
 --
@@ -1244,7 +1244,7 @@
     | CTPerson      -- ^ PERSON
     | CTPublicBody  -- ^ PUBLIC_BODY
     | CTReseller    -- ^ RESELLER
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ContactType
 
@@ -1291,7 +1291,7 @@
     , _cdPhoneNumber      :: Maybe Text
     , _cdState            :: Maybe Text
     , _cdZipCode          :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ContactDetail' constructor.
 --
@@ -1589,7 +1589,7 @@
     , _osStatus        :: OperationStatus
     , _osSubmittedDate :: POSIX
     , _osType          :: OperationType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'OperationSummary' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs b/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs
--- a/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs
+++ b/gen/Network/AWS/Route53Domains/UpdateDomainContact.hs
@@ -61,7 +61,7 @@
     , _udcDomainName        :: Text
     , _udcRegistrantContact :: Maybe ContactDetail
     , _udcTechContact       :: Maybe ContactDetail
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateDomainContact' constructor.
 --
@@ -131,7 +131,7 @@
 
 newtype UpdateDomainContactResponse = UpdateDomainContactResponse
     { _udcrOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'UpdateDomainContactResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs b/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs
--- a/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs
+++ b/gen/Network/AWS/Route53Domains/UpdateDomainContactPrivacy.hs
@@ -65,7 +65,7 @@
     , _udcpDomainName        :: Text
     , _udcpRegistrantPrivacy :: Maybe Bool
     , _udcpTechPrivacy       :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateDomainContactPrivacy' constructor.
 --
@@ -150,7 +150,7 @@
 
 newtype UpdateDomainContactPrivacyResponse = UpdateDomainContactPrivacyResponse
     { _udcprOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'UpdateDomainContactPrivacyResponse' constructor.
 --
diff --git a/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs b/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs
--- a/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs
+++ b/gen/Network/AWS/Route53Domains/UpdateDomainNameservers.hs
@@ -58,7 +58,7 @@
 data UpdateDomainNameservers = UpdateDomainNameservers
     { _udnDomainName  :: Text
     , _udnNameservers :: List "Nameservers" Nameserver
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateDomainNameservers' constructor.
 --
@@ -101,7 +101,7 @@
 
 newtype UpdateDomainNameserversResponse = UpdateDomainNameserversResponse
     { _udnrOperationId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'UpdateDomainNameserversResponse' constructor.
 --