diff --git a/amazonka-cognito-sync.cabal b/amazonka-cognito-sync.cabal
--- a/amazonka-cognito-sync.cabal
+++ b/amazonka-cognito-sync.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cognito-sync
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Cognito Sync SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -58,5 +58,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/CognitoSync/DeleteDataset.hs b/gen/Network/AWS/CognitoSync/DeleteDataset.hs
--- a/gen/Network/AWS/CognitoSync/DeleteDataset.hs
+++ b/gen/Network/AWS/CognitoSync/DeleteDataset.hs
@@ -56,7 +56,7 @@
     { _dd1DatasetName    :: Text
     , _dd1IdentityId     :: Text
     , _dd1IdentityPoolId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteDataset' constructor.
 --
@@ -98,7 +98,7 @@
 
 newtype DeleteDatasetResponse = DeleteDatasetResponse
     { _ddr1Dataset :: Maybe Dataset
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteDatasetResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/DescribeDataset.hs b/gen/Network/AWS/CognitoSync/DescribeDataset.hs
--- a/gen/Network/AWS/CognitoSync/DescribeDataset.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeDataset.hs
@@ -57,7 +57,7 @@
     { _ddDatasetName    :: Text
     , _ddIdentityId     :: Text
     , _ddIdentityPoolId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeDataset' constructor.
 --
@@ -98,7 +98,7 @@
 
 newtype DescribeDatasetResponse = DescribeDatasetResponse
     { _ddrDataset :: Maybe Dataset
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeDatasetResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
--- a/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeIdentityPoolUsage.hs
@@ -50,7 +50,7 @@
 
 newtype DescribeIdentityPoolUsage = DescribeIdentityPoolUsage
     { _dipuIdentityPoolId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeIdentityPoolUsage' constructor.
 --
@@ -73,7 +73,7 @@
 
 newtype DescribeIdentityPoolUsageResponse = DescribeIdentityPoolUsageResponse
     { _dipurIdentityPoolUsage :: Maybe IdentityPoolUsage
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeIdentityPoolUsageResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
--- a/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
+++ b/gen/Network/AWS/CognitoSync/DescribeIdentityUsage.hs
@@ -52,7 +52,7 @@
 data DescribeIdentityUsage = DescribeIdentityUsage
     { _diuIdentityId     :: Text
     , _diuIdentityPoolId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeIdentityUsage' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype DescribeIdentityUsageResponse = DescribeIdentityUsageResponse
     { _diurIdentityUsage :: Maybe IdentityUsage
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeIdentityUsageResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
--- a/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
+++ b/gen/Network/AWS/CognitoSync/GetIdentityPoolConfiguration.hs
@@ -50,7 +50,7 @@
 
 newtype GetIdentityPoolConfiguration = GetIdentityPoolConfiguration
     { _gipcIdentityPoolId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetIdentityPoolConfiguration' constructor.
 --
@@ -74,7 +74,7 @@
 data GetIdentityPoolConfigurationResponse = GetIdentityPoolConfigurationResponse
     { _gipcrIdentityPoolId :: Maybe Text
     , _gipcrPushSync       :: Maybe PushSync
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetIdentityPoolConfigurationResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/ListDatasets.hs b/gen/Network/AWS/CognitoSync/ListDatasets.hs
--- a/gen/Network/AWS/CognitoSync/ListDatasets.hs
+++ b/gen/Network/AWS/CognitoSync/ListDatasets.hs
@@ -60,7 +60,7 @@
     , _ldIdentityPoolId :: Text
     , _ldMaxResults     :: Maybe Int
     , _ldNextToken      :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListDatasets' constructor.
 --
@@ -108,7 +108,7 @@
     { _ldrCount     :: Maybe Int
     , _ldrDatasets  :: List "Datasets" Dataset
     , _ldrNextToken :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListDatasetsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
--- a/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
+++ b/gen/Network/AWS/CognitoSync/ListIdentityPoolUsage.hs
@@ -54,7 +54,7 @@
 data ListIdentityPoolUsage = ListIdentityPoolUsage
     { _lipuMaxResults :: Maybe Int
     , _lipuNextToken  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListIdentityPoolUsage' constructor.
 --
@@ -83,7 +83,7 @@
     , _lipurIdentityPoolUsages :: List "IdentityPoolUsages" IdentityPoolUsage
     , _lipurMaxResults         :: Maybe Int
     , _lipurNextToken          :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListIdentityPoolUsageResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/ListRecords.hs b/gen/Network/AWS/CognitoSync/ListRecords.hs
--- a/gen/Network/AWS/CognitoSync/ListRecords.hs
+++ b/gen/Network/AWS/CognitoSync/ListRecords.hs
@@ -73,7 +73,7 @@
     , _lrMaxResults       :: Maybe Int
     , _lrNextToken        :: Maybe Text
     , _lrSyncSessionToken :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListRecords' constructor.
 --
@@ -151,7 +151,7 @@
     , _lrrNextToken                             :: Maybe Text
     , _lrrRecords                               :: List "Records" Record
     , _lrrSyncSessionToken                      :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListRecordsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/RegisterDevice.hs b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
--- a/gen/Network/AWS/CognitoSync/RegisterDevice.hs
+++ b/gen/Network/AWS/CognitoSync/RegisterDevice.hs
@@ -55,7 +55,7 @@
     , _rdIdentityPoolId :: Text
     , _rdPlatform       :: Platform
     , _rdToken          :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RegisterDevice' constructor.
 --
@@ -101,7 +101,7 @@
 
 newtype RegisterDeviceResponse = RegisterDeviceResponse
     { _rdrDeviceId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'RegisterDeviceResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
--- a/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
+++ b/gen/Network/AWS/CognitoSync/SetIdentityPoolConfiguration.hs
@@ -52,7 +52,7 @@
 data SetIdentityPoolConfiguration = SetIdentityPoolConfiguration
     { _sipcIdentityPoolId :: Text
     , _sipcPushSync       :: Maybe PushSync
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'SetIdentityPoolConfiguration' constructor.
 --
@@ -83,7 +83,7 @@
 data SetIdentityPoolConfigurationResponse = SetIdentityPoolConfigurationResponse
     { _sipcrIdentityPoolId :: Maybe Text
     , _sipcrPushSync       :: Maybe PushSync
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'SetIdentityPoolConfigurationResponse' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
--- a/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
+++ b/gen/Network/AWS/CognitoSync/SubscribeToDataset.hs
@@ -54,7 +54,7 @@
     , _stdDeviceId       :: Text
     , _stdIdentityId     :: Text
     , _stdIdentityPoolId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'SubscribeToDataset' constructor.
 --
@@ -100,7 +100,7 @@
     lens _stdIdentityPoolId (\s a -> s { _stdIdentityPoolId = a })
 
 data SubscribeToDatasetResponse = SubscribeToDatasetResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'SubscribeToDatasetResponse' constructor.
 subscribeToDatasetResponse :: SubscribeToDatasetResponse
diff --git a/gen/Network/AWS/CognitoSync/Types.hs b/gen/Network/AWS/CognitoSync/Types.hs
--- a/gen/Network/AWS/CognitoSync/Types.hs
+++ b/gen/Network/AWS/CognitoSync/Types.hs
@@ -140,7 +140,7 @@
     , _ipuIdentityPoolId    :: Maybe Text
     , _ipuLastModifiedDate  :: Maybe POSIX
     , _ipuSyncSessionsCount :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'IdentityPoolUsage' constructor.
 --
@@ -204,7 +204,7 @@
     | Apns        -- ^ APNS
     | ApnsSandbox -- ^ APNS_SANDBOX
     | Gcm         -- ^ GCM
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable Platform
 
@@ -242,7 +242,7 @@
     , _dLastModifiedBy   :: Maybe Text
     , _dLastModifiedDate :: Maybe POSIX
     , _dNumRecords       :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Dataset' constructor.
 --
@@ -330,7 +330,7 @@
 data Operation
     = Remove  -- ^ remove
     | Replace -- ^ replace
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable Operation
 
@@ -363,7 +363,7 @@
     , _rLastModifiedDate       :: Maybe POSIX
     , _rSyncCount              :: Maybe Integer
     , _rValue                  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Record' constructor.
 --
@@ -444,7 +444,7 @@
     , _iuIdentityId       :: Maybe Text
     , _iuIdentityPoolId   :: Maybe Text
     , _iuLastModifiedDate :: Maybe POSIX
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'IdentityUsage' constructor.
 --
@@ -518,7 +518,7 @@
     , _rpOp                     :: Operation
     , _rpSyncCount              :: Integer
     , _rpValue                  :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RecordPatch' constructor.
 --
@@ -589,7 +589,7 @@
 data PushSync = PushSync
     { _psApplicationArns :: List "ApplicationArns" Text
     , _psRoleArn         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PushSync' constructor.
 --
diff --git a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
--- a/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
+++ b/gen/Network/AWS/CognitoSync/UnsubscribeFromDataset.hs
@@ -54,7 +54,7 @@
     , _ufdDeviceId       :: Text
     , _ufdIdentityId     :: Text
     , _ufdIdentityPoolId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UnsubscribeFromDataset' constructor.
 --
@@ -100,7 +100,7 @@
     lens _ufdIdentityPoolId (\s a -> s { _ufdIdentityPoolId = a })
 
 data UnsubscribeFromDatasetResponse = UnsubscribeFromDatasetResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UnsubscribeFromDatasetResponse' constructor.
 unsubscribeFromDatasetResponse :: UnsubscribeFromDatasetResponse
diff --git a/gen/Network/AWS/CognitoSync/UpdateRecords.hs b/gen/Network/AWS/CognitoSync/UpdateRecords.hs
--- a/gen/Network/AWS/CognitoSync/UpdateRecords.hs
+++ b/gen/Network/AWS/CognitoSync/UpdateRecords.hs
@@ -65,7 +65,7 @@
     , _urIdentityPoolId   :: Text
     , _urRecordPatches    :: List "RecordPatches" RecordPatch
     , _urSyncSessionToken :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateRecords' constructor.
 --
@@ -138,7 +138,7 @@
 
 newtype UpdateRecordsResponse = UpdateRecordsResponse
     { _urrRecords :: List "Records" Record
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList UpdateRecordsResponse where
     type Item UpdateRecordsResponse = Record