diff --git a/amazonka-dynamodb.cabal b/amazonka-dynamodb.cabal
--- a/amazonka-dynamodb.cabal
+++ b/amazonka-dynamodb.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-dynamodb
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon DynamoDB 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/DynamoDB/BatchGetItem.hs b/gen/Network/AWS/DynamoDB/BatchGetItem.hs
--- a/gen/Network/AWS/DynamoDB/BatchGetItem.hs
+++ b/gen/Network/AWS/DynamoDB/BatchGetItem.hs
@@ -96,7 +96,7 @@
 data BatchGetItem = BatchGetItem
     { _bgiRequestItems           :: Map Text KeysAndAttributes
     , _bgiReturnConsumedCapacity :: Maybe ReturnConsumedCapacity
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'BatchGetItem' constructor.
 --
@@ -148,7 +148,7 @@
     { _bgirConsumedCapacity :: List "ConsumedCapacity" ConsumedCapacity
     , _bgirResponses        :: Map Text (List "Responses" (Map Text AttributeValue))
     , _bgirUnprocessedKeys  :: Map Text KeysAndAttributes
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'BatchGetItemResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/BatchWriteItem.hs b/gen/Network/AWS/DynamoDB/BatchWriteItem.hs
--- a/gen/Network/AWS/DynamoDB/BatchWriteItem.hs
+++ b/gen/Network/AWS/DynamoDB/BatchWriteItem.hs
@@ -117,7 +117,7 @@
     { _bwiRequestItems                :: Map Text (List1 "RequestItems" WriteRequest)
     , _bwiReturnConsumedCapacity      :: Maybe ReturnConsumedCapacity
     , _bwiReturnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'BatchWriteItem' constructor.
 --
@@ -184,7 +184,7 @@
     { _bwirConsumedCapacity      :: List "ConsumedCapacity" ConsumedCapacity
     , _bwirItemCollectionMetrics :: Map Text (List "ItemCollectionMetrics" ItemCollectionMetrics)
     , _bwirUnprocessedItems      :: Map Text (List1 "UnprocessedItems" WriteRequest)
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'BatchWriteItemResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/CreateTable.hs b/gen/Network/AWS/DynamoDB/CreateTable.hs
--- a/gen/Network/AWS/DynamoDB/CreateTable.hs
+++ b/gen/Network/AWS/DynamoDB/CreateTable.hs
@@ -71,7 +71,7 @@
     , _ctLocalSecondaryIndexes  :: List "LocalSecondaryIndexes" LocalSecondaryIndex
     , _ctProvisionedThroughput  :: ProvisionedThroughput
     , _ctTableName              :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateTable' constructor.
 --
@@ -218,7 +218,7 @@
 
 newtype CreateTableResponse = CreateTableResponse
     { _ctrTableDescription :: Maybe TableDescription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateTableResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/DeleteItem.hs b/gen/Network/AWS/DynamoDB/DeleteItem.hs
--- a/gen/Network/AWS/DynamoDB/DeleteItem.hs
+++ b/gen/Network/AWS/DynamoDB/DeleteItem.hs
@@ -82,7 +82,7 @@
     , _diReturnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
     , _diReturnValues                :: Maybe ReturnValue
     , _diTableName                   :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteItem' constructor.
 --
@@ -436,7 +436,7 @@
     { _dirAttributes            :: Map Text AttributeValue
     , _dirConsumedCapacity      :: Maybe ConsumedCapacity
     , _dirItemCollectionMetrics :: Maybe ItemCollectionMetrics
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteItemResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/DeleteTable.hs b/gen/Network/AWS/DynamoDB/DeleteTable.hs
--- a/gen/Network/AWS/DynamoDB/DeleteTable.hs
+++ b/gen/Network/AWS/DynamoDB/DeleteTable.hs
@@ -55,7 +55,7 @@
 
 newtype DeleteTable = DeleteTable
     { _dtTableName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteTable' constructor.
 --
@@ -75,7 +75,7 @@
 
 newtype DeleteTableResponse = DeleteTableResponse
     { _dtrTableDescription :: Maybe TableDescription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeleteTableResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/DescribeTable.hs b/gen/Network/AWS/DynamoDB/DescribeTable.hs
--- a/gen/Network/AWS/DynamoDB/DescribeTable.hs
+++ b/gen/Network/AWS/DynamoDB/DescribeTable.hs
@@ -51,7 +51,7 @@
 
 newtype DescribeTable = DescribeTable
     { _dt1TableName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeTable' constructor.
 --
@@ -71,7 +71,7 @@
 
 newtype DescribeTableResponse = DescribeTableResponse
     { _dtrTable :: TableDescription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeTableResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/GetItem.hs b/gen/Network/AWS/DynamoDB/GetItem.hs
--- a/gen/Network/AWS/DynamoDB/GetItem.hs
+++ b/gen/Network/AWS/DynamoDB/GetItem.hs
@@ -68,7 +68,7 @@
     , _giProjectionExpression     :: Maybe Text
     , _giReturnConsumedCapacity   :: Maybe ReturnConsumedCapacity
     , _giTableName                :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetItem' constructor.
 --
@@ -189,7 +189,7 @@
 data GetItemResponse = GetItemResponse
     { _girConsumedCapacity :: Maybe ConsumedCapacity
     , _girItem             :: Map Text AttributeValue
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetItemResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/ListTables.hs b/gen/Network/AWS/DynamoDB/ListTables.hs
--- a/gen/Network/AWS/DynamoDB/ListTables.hs
+++ b/gen/Network/AWS/DynamoDB/ListTables.hs
@@ -54,7 +54,7 @@
 data ListTables = ListTables
     { _ltExclusiveStartTableName :: Maybe Text
     , _ltLimit                   :: Maybe Nat
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListTables' constructor.
 --
@@ -86,7 +86,7 @@
 data ListTablesResponse = ListTablesResponse
     { _ltrLastEvaluatedTableName :: Maybe Text
     , _ltrTableNames             :: List "TableNames" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListTablesResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/PutItem.hs b/gen/Network/AWS/DynamoDB/PutItem.hs
--- a/gen/Network/AWS/DynamoDB/PutItem.hs
+++ b/gen/Network/AWS/DynamoDB/PutItem.hs
@@ -89,7 +89,7 @@
     , _piReturnItemCollectionMetrics :: Maybe ReturnItemCollectionMetrics
     , _piReturnValues                :: Maybe ReturnValue
     , _piTableName                   :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PutItem' constructor.
 --
@@ -454,7 +454,7 @@
     { _pirAttributes            :: Map Text AttributeValue
     , _pirConsumedCapacity      :: Maybe ConsumedCapacity
     , _pirItemCollectionMetrics :: Maybe ItemCollectionMetrics
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PutItemResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/Query.hs b/gen/Network/AWS/DynamoDB/Query.hs
--- a/gen/Network/AWS/DynamoDB/Query.hs
+++ b/gen/Network/AWS/DynamoDB/Query.hs
@@ -103,7 +103,7 @@
     , _qScanIndexForward          :: Maybe Bool
     , _qSelect                    :: Maybe Select
     , _qTableName                 :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Query' constructor.
 --
@@ -534,7 +534,7 @@
     , _qrItems            :: List "Items" (Map Text AttributeValue)
     , _qrLastEvaluatedKey :: Map Text AttributeValue
     , _qrScannedCount     :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'QueryResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/Scan.hs b/gen/Network/AWS/DynamoDB/Scan.hs
--- a/gen/Network/AWS/DynamoDB/Scan.hs
+++ b/gen/Network/AWS/DynamoDB/Scan.hs
@@ -93,7 +93,7 @@
     , _sSelect                    :: Maybe Select
     , _sTableName                 :: Text
     , _sTotalSegments             :: Maybe Nat
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Scan' constructor.
 --
@@ -392,7 +392,7 @@
     , _srItems            :: List "Items" (Map Text AttributeValue)
     , _srLastEvaluatedKey :: Map Text AttributeValue
     , _srScannedCount     :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ScanResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/Types.hs b/gen/Network/AWS/DynamoDB/Types.hs
--- a/gen/Network/AWS/DynamoDB/Types.hs
+++ b/gen/Network/AWS/DynamoDB/Types.hs
@@ -289,7 +289,7 @@
 data WriteRequest = WriteRequest
     { _wDeleteRequest :: Maybe DeleteRequest
     , _wPutRequest    :: Maybe PutRequest
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'WriteRequest' constructor.
 --
@@ -330,7 +330,7 @@
     , _ptdNumberOfDecreasesToday :: Maybe Nat
     , _ptdReadCapacityUnits      :: Maybe Nat
     , _ptdWriteCapacityUnits     :: Maybe Nat
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ProvisionedThroughputDescription' constructor.
 --
@@ -409,7 +409,7 @@
 data KeyType
     = Hash  -- ^ HASH
     | Range -- ^ RANGE
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable KeyType
 
@@ -446,7 +446,7 @@
     , _avNULL :: Maybe Bool
     , _avS    :: Maybe Text
     , _avSS   :: List "SS" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AttributeValue' constructor.
 --
@@ -558,7 +558,7 @@
     | Creating -- ^ CREATING
     | Deleting -- ^ DELETING
     | Updating -- ^ UPDATING
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable IndexStatus
 
@@ -591,7 +591,7 @@
 data ProvisionedThroughput = ProvisionedThroughput
     { _ptReadCapacityUnits  :: Nat
     , _ptWriteCapacityUnits :: Nat
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ProvisionedThroughput' constructor.
 --
@@ -638,7 +638,7 @@
     | TSCreating -- ^ CREATING
     | TSDeleting -- ^ DELETING
     | TSUpdating -- ^ UPDATING
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable TableStatus
 
@@ -672,7 +672,7 @@
     = All      -- ^ ALL
     | Include  -- ^ INCLUDE
     | KeysOnly -- ^ KEYS_ONLY
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ProjectionType
 
@@ -711,7 +711,7 @@
     , _tdTableName              :: Text
     , _tdTableSizeBytes         :: Integer
     , _tdTableStatus            :: TableStatus
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TableDescription' constructor.
 --
@@ -967,7 +967,7 @@
     , _kaaExpressionAttributeNames :: Map Text Text
     , _kaaKeys                     :: List1 "Keys" (Map Text AttributeValue)
     , _kaaProjectionExpression     :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'KeysAndAttributes' constructor.
 --
@@ -1076,7 +1076,7 @@
     = Indexes -- ^ INDEXES
     | None    -- ^ NONE
     | Total   -- ^ TOTAL
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ReturnConsumedCapacity
 
@@ -1107,7 +1107,7 @@
 data ReturnItemCollectionMetrics
     = RICMNone -- ^ NONE
     | RICMSize -- ^ SIZE
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ReturnItemCollectionMetrics
 
@@ -1136,7 +1136,7 @@
 data AttributeValueUpdate = AttributeValueUpdate
     { _avuAction :: Maybe AttributeAction
     , _avuValue  :: Maybe AttributeValue
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AttributeValueUpdate' constructor.
 --
@@ -1225,7 +1225,7 @@
     , _eavComparisonOperator :: Maybe ComparisonOperator
     , _eavExists             :: Maybe Bool
     , _eavValue              :: Maybe AttributeValue
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ExpectedAttributeValue' constructor.
 --
@@ -1439,7 +1439,7 @@
 data AttributeDefinition = AttributeDefinition
     { _adAttributeName :: Text
     , _adAttributeType :: ScalarAttributeType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AttributeDefinition' constructor.
 --
@@ -1490,7 +1490,7 @@
     | NotContains -- ^ NOT_CONTAINS
     | NotNull     -- ^ NOT_NULL
     | Null        -- ^ NULL
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ComparisonOperator
 
@@ -1544,7 +1544,7 @@
     | RVNone       -- ^ NONE
     | RVUpdatedNew -- ^ UPDATED_NEW
     | RVUpdatedOld -- ^ UPDATED_OLD
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ReturnValue
 
@@ -1580,7 +1580,7 @@
     { _lsiIndexName  :: Text
     , _lsiKeySchema  :: List1 "KeySchema" KeySchemaElement
     , _lsiProjection :: Projection
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'LocalSecondaryIndex' constructor.
 --
@@ -1636,7 +1636,7 @@
     , _gsidKeySchema             :: List1 "KeySchema" KeySchemaElement
     , _gsidProjection            :: Maybe Projection
     , _gsidProvisionedThroughput :: Maybe ProvisionedThroughputDescription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GlobalSecondaryIndexDescription' constructor.
 --
@@ -1737,7 +1737,7 @@
 data ItemCollectionMetrics = ItemCollectionMetrics
     { _icmItemCollectionKey   :: Map Text AttributeValue
     , _icmSizeEstimateRangeGB :: List "SizeEstimateRangeGB" Double
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ItemCollectionMetrics' constructor.
 --
@@ -1787,7 +1787,7 @@
 
 newtype Capacity = Capacity
     { _cCapacityUnits :: Maybe Double
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Capacity' constructor.
 --
@@ -1819,7 +1819,7 @@
     , _ccLocalSecondaryIndexes  :: Map Text Capacity
     , _ccTable                  :: Maybe Capacity
     , _ccTableName              :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ConsumedCapacity' constructor.
 --
@@ -1893,7 +1893,7 @@
     , _gsiKeySchema             :: List1 "KeySchema" KeySchemaElement
     , _gsiProjection            :: Projection
     , _gsiProvisionedThroughput :: ProvisionedThroughput
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GlobalSecondaryIndex' constructor.
 --
@@ -1958,7 +1958,7 @@
     , _lsidItemCount      :: Maybe Integer
     , _lsidKeySchema      :: List1 "KeySchema" KeySchemaElement
     , _lsidProjection     :: Maybe Projection
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'LocalSecondaryIndexDescription' constructor.
 --
@@ -2030,7 +2030,7 @@
     = Add     -- ^ ADD
     | Delete' -- ^ DELETE
     | Put     -- ^ PUT
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable AttributeAction
 
@@ -2062,7 +2062,7 @@
     = B -- ^ B
     | N -- ^ N
     | S -- ^ S
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ScalarAttributeType
 
@@ -2093,7 +2093,7 @@
 data Projection = Projection
     { _pNonKeyAttributes :: List1 "NonKeyAttributes" Text
     , _pProjectionType   :: Maybe ProjectionType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Projection' constructor.
 --
@@ -2150,7 +2150,7 @@
     | AllProjectedAttributes -- ^ ALL_PROJECTED_ATTRIBUTES
     | Count                  -- ^ COUNT
     | SpecificAttributes     -- ^ SPECIFIC_ATTRIBUTES
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable Select
 
@@ -2183,7 +2183,7 @@
 data KeySchemaElement = KeySchemaElement
     { _kseAttributeName :: Text
     , _kseKeyType       :: KeyType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'KeySchemaElement' constructor.
 --
@@ -2223,7 +2223,7 @@
 
 newtype DeleteRequest = DeleteRequest
     { _dKey :: Map Text AttributeValue
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 -- | 'DeleteRequest' constructor.
 --
@@ -2254,7 +2254,7 @@
 data UpdateGlobalSecondaryIndexAction = UpdateGlobalSecondaryIndexAction
     { _ugsiaIndexName             :: Text
     , _ugsiaProvisionedThroughput :: ProvisionedThroughput
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateGlobalSecondaryIndexAction' constructor.
 --
@@ -2294,7 +2294,7 @@
 
 newtype PutRequest = PutRequest
     { _pItem :: Map Text AttributeValue
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 -- | 'PutRequest' constructor.
 --
@@ -2327,7 +2327,7 @@
 data Condition = Condition
     { _cAttributeValueList :: List "AttributeValueList" AttributeValue
     , _cComparisonOperator :: ComparisonOperator
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Condition' constructor.
 --
@@ -2498,7 +2498,7 @@
 data ConditionalOperator
     = And -- ^ AND
     | Or  -- ^ OR
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ConditionalOperator
 
@@ -2526,7 +2526,7 @@
 
 newtype GlobalSecondaryIndexUpdate = GlobalSecondaryIndexUpdate
     { _gsiuUpdate :: Maybe UpdateGlobalSecondaryIndexAction
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GlobalSecondaryIndexUpdate' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/UpdateItem.hs b/gen/Network/AWS/DynamoDB/UpdateItem.hs
--- a/gen/Network/AWS/DynamoDB/UpdateItem.hs
+++ b/gen/Network/AWS/DynamoDB/UpdateItem.hs
@@ -80,7 +80,7 @@
     , _uiReturnValues                :: Maybe ReturnValue
     , _uiTableName                   :: Text
     , _uiUpdateExpression            :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateItem' constructor.
 --
@@ -590,7 +590,7 @@
     { _uirAttributes            :: Map Text AttributeValue
     , _uirConsumedCapacity      :: Maybe ConsumedCapacity
     , _uirItemCollectionMetrics :: Maybe ItemCollectionMetrics
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateItemResponse' constructor.
 --
diff --git a/gen/Network/AWS/DynamoDB/UpdateTable.hs b/gen/Network/AWS/DynamoDB/UpdateTable.hs
--- a/gen/Network/AWS/DynamoDB/UpdateTable.hs
+++ b/gen/Network/AWS/DynamoDB/UpdateTable.hs
@@ -67,7 +67,7 @@
     { _utGlobalSecondaryIndexUpdates :: List "GlobalSecondaryIndexUpdates" GlobalSecondaryIndexUpdate
     , _utProvisionedThroughput       :: Maybe ProvisionedThroughput
     , _utTableName                   :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateTable' constructor.
 --
@@ -105,7 +105,7 @@
 
 newtype UpdateTableResponse = UpdateTableResponse
     { _utrTableDescription :: Maybe TableDescription
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateTableResponse' constructor.
 --