diff --git a/amazonka-opsworks.cabal b/amazonka-opsworks.cabal
--- a/amazonka-opsworks.cabal
+++ b/amazonka-opsworks.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-opsworks
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon OpsWorks SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -106,5 +106,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/OpsWorks/AssignInstance.hs b/gen/Network/AWS/OpsWorks/AssignInstance.hs
--- a/gen/Network/AWS/OpsWorks/AssignInstance.hs
+++ b/gen/Network/AWS/OpsWorks/AssignInstance.hs
@@ -54,7 +54,7 @@
 data AssignInstance = AssignInstance
     { _aiInstanceId :: Text
     , _aiLayerIds   :: List "LayerIds" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AssignInstance' constructor.
 --
@@ -81,7 +81,7 @@
 aiLayerIds = lens _aiLayerIds (\s a -> s { _aiLayerIds = a }) . _List
 
 data AssignInstanceResponse = AssignInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'AssignInstanceResponse' constructor.
 assignInstanceResponse :: AssignInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/AssignVolume.hs b/gen/Network/AWS/OpsWorks/AssignVolume.hs
--- a/gen/Network/AWS/OpsWorks/AssignVolume.hs
+++ b/gen/Network/AWS/OpsWorks/AssignVolume.hs
@@ -54,7 +54,7 @@
 data AssignVolume = AssignVolume
     { _avInstanceId :: Maybe Text
     , _avVolumeId   :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AssignVolume' constructor.
 --
@@ -80,7 +80,7 @@
 avVolumeId = lens _avVolumeId (\s a -> s { _avVolumeId = a })
 
 data AssignVolumeResponse = AssignVolumeResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'AssignVolumeResponse' constructor.
 assignVolumeResponse :: AssignVolumeResponse
diff --git a/gen/Network/AWS/OpsWorks/AssociateElasticIp.hs b/gen/Network/AWS/OpsWorks/AssociateElasticIp.hs
--- a/gen/Network/AWS/OpsWorks/AssociateElasticIp.hs
+++ b/gen/Network/AWS/OpsWorks/AssociateElasticIp.hs
@@ -55,7 +55,7 @@
 data AssociateElasticIp = AssociateElasticIp
     { _aeiElasticIp  :: Text
     , _aeiInstanceId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AssociateElasticIp' constructor.
 --
@@ -81,7 +81,7 @@
 aeiInstanceId = lens _aeiInstanceId (\s a -> s { _aeiInstanceId = a })
 
 data AssociateElasticIpResponse = AssociateElasticIpResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'AssociateElasticIpResponse' constructor.
 associateElasticIpResponse :: AssociateElasticIpResponse
diff --git a/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs b/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs
--- a/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs
+++ b/gen/Network/AWS/OpsWorks/AttachElasticLoadBalancer.hs
@@ -57,7 +57,7 @@
 data AttachElasticLoadBalancer = AttachElasticLoadBalancer
     { _aelbElasticLoadBalancerName :: Text
     , _aelbLayerId                 :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AttachElasticLoadBalancer' constructor.
 --
@@ -87,7 +87,7 @@
 aelbLayerId = lens _aelbLayerId (\s a -> s { _aelbLayerId = a })
 
 data AttachElasticLoadBalancerResponse = AttachElasticLoadBalancerResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'AttachElasticLoadBalancerResponse' constructor.
 attachElasticLoadBalancerResponse :: AttachElasticLoadBalancerResponse
diff --git a/gen/Network/AWS/OpsWorks/CloneStack.hs b/gen/Network/AWS/OpsWorks/CloneStack.hs
--- a/gen/Network/AWS/OpsWorks/CloneStack.hs
+++ b/gen/Network/AWS/OpsWorks/CloneStack.hs
@@ -93,7 +93,7 @@
     , _cs1UseCustomCookbooks        :: Maybe Bool
     , _cs1UseOpsworksSecurityGroups :: Maybe Bool
     , _cs1VpcId                     :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CloneStack' constructor.
 --
@@ -345,7 +345,7 @@
 
 newtype CloneStackResponse = CloneStackResponse
     { _csrStackId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CloneStackResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/CreateApp.hs b/gen/Network/AWS/OpsWorks/CreateApp.hs
--- a/gen/Network/AWS/OpsWorks/CreateApp.hs
+++ b/gen/Network/AWS/OpsWorks/CreateApp.hs
@@ -75,7 +75,7 @@
     , _caSslConfiguration :: Maybe SslConfiguration
     , _caStackId          :: Text
     , _caType             :: AppType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateApp' constructor.
 --
@@ -185,7 +185,7 @@
 
 newtype CreateAppResponse = CreateAppResponse
     { _carAppId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateAppResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/CreateDeployment.hs b/gen/Network/AWS/OpsWorks/CreateDeployment.hs
--- a/gen/Network/AWS/OpsWorks/CreateDeployment.hs
+++ b/gen/Network/AWS/OpsWorks/CreateDeployment.hs
@@ -64,7 +64,7 @@
     , _cdCustomJson  :: Maybe Text
     , _cdInstanceIds :: List "InstanceIds" Text
     , _cdStackId     :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDeployment' constructor.
 --
@@ -128,7 +128,7 @@
 
 newtype CreateDeploymentResponse = CreateDeploymentResponse
     { _cdrDeploymentId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateDeploymentResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/CreateInstance.hs b/gen/Network/AWS/OpsWorks/CreateInstance.hs
--- a/gen/Network/AWS/OpsWorks/CreateInstance.hs
+++ b/gen/Network/AWS/OpsWorks/CreateInstance.hs
@@ -81,7 +81,7 @@
     , _ciStackId              :: Text
     , _ciSubnetId             :: Maybe Text
     , _ciVirtualizationType   :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateInstance' constructor.
 --
@@ -229,7 +229,7 @@
 
 newtype CreateInstanceResponse = CreateInstanceResponse
     { _cirInstanceId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateInstanceResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/CreateLayer.hs b/gen/Network/AWS/OpsWorks/CreateLayer.hs
--- a/gen/Network/AWS/OpsWorks/CreateLayer.hs
+++ b/gen/Network/AWS/OpsWorks/CreateLayer.hs
@@ -90,7 +90,7 @@
     , _clType                        :: LayerType
     , _clUseEbsOptimizedInstances    :: Maybe Bool
     , _clVolumeConfigurations        :: List "VolumeConfigurations" VolumeConfiguration
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateLayer' constructor.
 --
@@ -250,7 +250,7 @@
 
 newtype CreateLayerResponse = CreateLayerResponse
     { _clrLayerId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateLayerResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/CreateStack.hs b/gen/Network/AWS/OpsWorks/CreateStack.hs
--- a/gen/Network/AWS/OpsWorks/CreateStack.hs
+++ b/gen/Network/AWS/OpsWorks/CreateStack.hs
@@ -87,7 +87,7 @@
     , _csUseCustomCookbooks        :: Maybe Bool
     , _csUseOpsworksSecurityGroups :: Maybe Bool
     , _csVpcId                     :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateStack' constructor.
 --
@@ -308,7 +308,7 @@
 
 newtype CreateStackResponse = CreateStackResponse
     { _csr1StackId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateStackResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/CreateUserProfile.hs b/gen/Network/AWS/OpsWorks/CreateUserProfile.hs
--- a/gen/Network/AWS/OpsWorks/CreateUserProfile.hs
+++ b/gen/Network/AWS/OpsWorks/CreateUserProfile.hs
@@ -59,7 +59,7 @@
     , _cupIamUserArn          :: Text
     , _cupSshPublicKey        :: Maybe Text
     , _cupSshUsername         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateUserProfile' constructor.
 --
@@ -106,7 +106,7 @@
 
 newtype CreateUserProfileResponse = CreateUserProfileResponse
     { _cuprIamUserArn :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateUserProfileResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/DeleteApp.hs b/gen/Network/AWS/OpsWorks/DeleteApp.hs
--- a/gen/Network/AWS/OpsWorks/DeleteApp.hs
+++ b/gen/Network/AWS/OpsWorks/DeleteApp.hs
@@ -51,7 +51,7 @@
 
 newtype DeleteApp = DeleteApp
     { _daAppId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteApp' constructor.
 --
@@ -70,7 +70,7 @@
 daAppId = lens _daAppId (\s a -> s { _daAppId = a })
 
 data DeleteAppResponse = DeleteAppResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteAppResponse' constructor.
 deleteAppResponse :: DeleteAppResponse
diff --git a/gen/Network/AWS/OpsWorks/DeleteInstance.hs b/gen/Network/AWS/OpsWorks/DeleteInstance.hs
--- a/gen/Network/AWS/OpsWorks/DeleteInstance.hs
+++ b/gen/Network/AWS/OpsWorks/DeleteInstance.hs
@@ -58,7 +58,7 @@
     { _diDeleteElasticIp :: Maybe Bool
     , _diDeleteVolumes   :: Maybe Bool
     , _diInstanceId      :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteInstance' constructor.
 --
@@ -92,7 +92,7 @@
 diInstanceId = lens _diInstanceId (\s a -> s { _diInstanceId = a })
 
 data DeleteInstanceResponse = DeleteInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteInstanceResponse' constructor.
 deleteInstanceResponse :: DeleteInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/DeleteLayer.hs b/gen/Network/AWS/OpsWorks/DeleteLayer.hs
--- a/gen/Network/AWS/OpsWorks/DeleteLayer.hs
+++ b/gen/Network/AWS/OpsWorks/DeleteLayer.hs
@@ -52,7 +52,7 @@
 
 newtype DeleteLayer = DeleteLayer
     { _dlLayerId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteLayer' constructor.
 --
@@ -71,7 +71,7 @@
 dlLayerId = lens _dlLayerId (\s a -> s { _dlLayerId = a })
 
 data DeleteLayerResponse = DeleteLayerResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteLayerResponse' constructor.
 deleteLayerResponse :: DeleteLayerResponse
diff --git a/gen/Network/AWS/OpsWorks/DeleteStack.hs b/gen/Network/AWS/OpsWorks/DeleteStack.hs
--- a/gen/Network/AWS/OpsWorks/DeleteStack.hs
+++ b/gen/Network/AWS/OpsWorks/DeleteStack.hs
@@ -52,7 +52,7 @@
 
 newtype DeleteStack = DeleteStack
     { _dsStackId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteStack' constructor.
 --
@@ -71,7 +71,7 @@
 dsStackId = lens _dsStackId (\s a -> s { _dsStackId = a })
 
 data DeleteStackResponse = DeleteStackResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteStackResponse' constructor.
 deleteStackResponse :: DeleteStackResponse
diff --git a/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs b/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs
--- a/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs
+++ b/gen/Network/AWS/OpsWorks/DeleteUserProfile.hs
@@ -51,7 +51,7 @@
 
 newtype DeleteUserProfile = DeleteUserProfile
     { _dupIamUserArn :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteUserProfile' constructor.
 --
@@ -70,7 +70,7 @@
 dupIamUserArn = lens _dupIamUserArn (\s a -> s { _dupIamUserArn = a })
 
 data DeleteUserProfileResponse = DeleteUserProfileResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteUserProfileResponse' constructor.
 deleteUserProfileResponse :: DeleteUserProfileResponse
diff --git a/gen/Network/AWS/OpsWorks/DeregisterElasticIp.hs b/gen/Network/AWS/OpsWorks/DeregisterElasticIp.hs
--- a/gen/Network/AWS/OpsWorks/DeregisterElasticIp.hs
+++ b/gen/Network/AWS/OpsWorks/DeregisterElasticIp.hs
@@ -52,7 +52,7 @@
 
 newtype DeregisterElasticIp = DeregisterElasticIp
     { _dei1ElasticIp :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeregisterElasticIp' constructor.
 --
@@ -71,7 +71,7 @@
 dei1ElasticIp = lens _dei1ElasticIp (\s a -> s { _dei1ElasticIp = a })
 
 data DeregisterElasticIpResponse = DeregisterElasticIpResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeregisterElasticIpResponse' constructor.
 deregisterElasticIpResponse :: DeregisterElasticIpResponse
diff --git a/gen/Network/AWS/OpsWorks/DeregisterInstance.hs b/gen/Network/AWS/OpsWorks/DeregisterInstance.hs
--- a/gen/Network/AWS/OpsWorks/DeregisterInstance.hs
+++ b/gen/Network/AWS/OpsWorks/DeregisterInstance.hs
@@ -53,7 +53,7 @@
 
 newtype DeregisterInstance = DeregisterInstance
     { _di1InstanceId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeregisterInstance' constructor.
 --
@@ -72,7 +72,7 @@
 di1InstanceId = lens _di1InstanceId (\s a -> s { _di1InstanceId = a })
 
 data DeregisterInstanceResponse = DeregisterInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeregisterInstanceResponse' constructor.
 deregisterInstanceResponse :: DeregisterInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/DeregisterRdsDbInstance.hs b/gen/Network/AWS/OpsWorks/DeregisterRdsDbInstance.hs
--- a/gen/Network/AWS/OpsWorks/DeregisterRdsDbInstance.hs
+++ b/gen/Network/AWS/OpsWorks/DeregisterRdsDbInstance.hs
@@ -51,7 +51,7 @@
 
 newtype DeregisterRdsDbInstance = DeregisterRdsDbInstance
     { _drdiRdsDbInstanceArn :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeregisterRdsDbInstance' constructor.
 --
@@ -71,7 +71,7 @@
     lens _drdiRdsDbInstanceArn (\s a -> s { _drdiRdsDbInstanceArn = a })
 
 data DeregisterRdsDbInstanceResponse = DeregisterRdsDbInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeregisterRdsDbInstanceResponse' constructor.
 deregisterRdsDbInstanceResponse :: DeregisterRdsDbInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/DeregisterVolume.hs b/gen/Network/AWS/OpsWorks/DeregisterVolume.hs
--- a/gen/Network/AWS/OpsWorks/DeregisterVolume.hs
+++ b/gen/Network/AWS/OpsWorks/DeregisterVolume.hs
@@ -52,7 +52,7 @@
 
 newtype DeregisterVolume = DeregisterVolume
     { _dvVolumeId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeregisterVolume' constructor.
 --
@@ -71,7 +71,7 @@
 dvVolumeId = lens _dvVolumeId (\s a -> s { _dvVolumeId = a })
 
 data DeregisterVolumeResponse = DeregisterVolumeResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeregisterVolumeResponse' constructor.
 deregisterVolumeResponse :: DeregisterVolumeResponse
diff --git a/gen/Network/AWS/OpsWorks/DescribeApps.hs b/gen/Network/AWS/OpsWorks/DescribeApps.hs
--- a/gen/Network/AWS/OpsWorks/DescribeApps.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeApps.hs
@@ -57,7 +57,7 @@
 data DescribeApps = DescribeApps
     { _daAppIds  :: List "AppIds" Text
     , _daStackId :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeApps' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype DescribeAppsResponse = DescribeAppsResponse
     { _darApps :: List "Apps" App
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeAppsResponse where
     type Item DescribeAppsResponse = App
diff --git a/gen/Network/AWS/OpsWorks/DescribeCommands.hs b/gen/Network/AWS/OpsWorks/DescribeCommands.hs
--- a/gen/Network/AWS/OpsWorks/DescribeCommands.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeCommands.hs
@@ -59,7 +59,7 @@
     { _dcCommandIds   :: List "CommandIds" Text
     , _dcDeploymentId :: Maybe Text
     , _dcInstanceId   :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeCommands' constructor.
 --
@@ -96,7 +96,7 @@
 
 newtype DescribeCommandsResponse = DescribeCommandsResponse
     { _dcrCommands :: List "Commands" Command
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeCommandsResponse where
     type Item DescribeCommandsResponse = Command
diff --git a/gen/Network/AWS/OpsWorks/DescribeDeployments.hs b/gen/Network/AWS/OpsWorks/DescribeDeployments.hs
--- a/gen/Network/AWS/OpsWorks/DescribeDeployments.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeDeployments.hs
@@ -59,7 +59,7 @@
     { _ddAppId         :: Maybe Text
     , _ddDeploymentIds :: List "DeploymentIds" Text
     , _ddStackId       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeDeployments' constructor.
 --
@@ -95,7 +95,7 @@
 
 newtype DescribeDeploymentsResponse = DescribeDeploymentsResponse
     { _ddrDeployments :: List "Deployments" Deployment
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeDeploymentsResponse where
     type Item DescribeDeploymentsResponse = Deployment
diff --git a/gen/Network/AWS/OpsWorks/DescribeElasticIps.hs b/gen/Network/AWS/OpsWorks/DescribeElasticIps.hs
--- a/gen/Network/AWS/OpsWorks/DescribeElasticIps.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeElasticIps.hs
@@ -59,7 +59,7 @@
     { _deiInstanceId :: Maybe Text
     , _deiIps        :: List "Ips" Text
     , _deiStackId    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeElasticIps' constructor.
 --
@@ -98,7 +98,7 @@
 
 newtype DescribeElasticIpsResponse = DescribeElasticIpsResponse
     { _deirElasticIps :: List "ElasticIps" ElasticIp
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeElasticIpsResponse where
     type Item DescribeElasticIpsResponse = ElasticIp
diff --git a/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs b/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs
--- a/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeElasticLoadBalancers.hs
@@ -57,7 +57,7 @@
 data DescribeElasticLoadBalancers = DescribeElasticLoadBalancers
     { _delbLayerIds :: List "LayerIds" Text
     , _delbStackId  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeElasticLoadBalancers' constructor.
 --
@@ -84,7 +84,7 @@
 
 newtype DescribeElasticLoadBalancersResponse = DescribeElasticLoadBalancersResponse
     { _delbrElasticLoadBalancers :: List "ElasticLoadBalancers" ElasticLoadBalancer
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeElasticLoadBalancersResponse where
     type Item DescribeElasticLoadBalancersResponse = ElasticLoadBalancer
diff --git a/gen/Network/AWS/OpsWorks/DescribeInstances.hs b/gen/Network/AWS/OpsWorks/DescribeInstances.hs
--- a/gen/Network/AWS/OpsWorks/DescribeInstances.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeInstances.hs
@@ -59,7 +59,7 @@
     { _diInstanceIds :: List "InstanceIds" Text
     , _diLayerId     :: Maybe Text
     , _diStackId     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeInstances' constructor.
 --
@@ -95,7 +95,7 @@
 
 newtype DescribeInstancesResponse = DescribeInstancesResponse
     { _dirInstances :: List "Instances" Instance
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeInstancesResponse where
     type Item DescribeInstancesResponse = Instance
diff --git a/gen/Network/AWS/OpsWorks/DescribeLayers.hs b/gen/Network/AWS/OpsWorks/DescribeLayers.hs
--- a/gen/Network/AWS/OpsWorks/DescribeLayers.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeLayers.hs
@@ -57,7 +57,7 @@
 data DescribeLayers = DescribeLayers
     { _dlLayerIds :: List "LayerIds" Text
     , _dlStackId  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeLayers' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype DescribeLayersResponse = DescribeLayersResponse
     { _dlrLayers :: List "Layers" Layer
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeLayersResponse where
     type Item DescribeLayersResponse = Layer
diff --git a/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs
--- a/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeLoadBasedAutoScaling.hs
@@ -55,7 +55,7 @@
 
 newtype DescribeLoadBasedAutoScaling = DescribeLoadBasedAutoScaling
     { _dlbasLayerIds :: List "LayerIds" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeLoadBasedAutoScaling where
     type Item DescribeLoadBasedAutoScaling = Text
@@ -80,7 +80,7 @@
 
 newtype DescribeLoadBasedAutoScalingResponse = DescribeLoadBasedAutoScalingResponse
     { _dlbasrLoadBasedAutoScalingConfigurations :: List "LoadBasedAutoScalingConfigurations" LoadBasedAutoScalingConfiguration
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeLoadBasedAutoScalingResponse where
     type Item DescribeLoadBasedAutoScalingResponse = LoadBasedAutoScalingConfiguration
diff --git a/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs b/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs
--- a/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeMyUserProfile.hs
@@ -50,7 +50,7 @@
 import qualified GHC.Exts
 
 data DescribeMyUserProfile = DescribeMyUserProfile
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DescribeMyUserProfile' constructor.
 describeMyUserProfile :: DescribeMyUserProfile
@@ -58,7 +58,7 @@
 
 newtype DescribeMyUserProfileResponse = DescribeMyUserProfileResponse
     { _dmuprUserProfile :: Maybe SelfUserProfile
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeMyUserProfileResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/DescribePermissions.hs b/gen/Network/AWS/OpsWorks/DescribePermissions.hs
--- a/gen/Network/AWS/OpsWorks/DescribePermissions.hs
+++ b/gen/Network/AWS/OpsWorks/DescribePermissions.hs
@@ -55,7 +55,7 @@
 data DescribePermissions = DescribePermissions
     { _dpIamUserArn :: Maybe Text
     , _dpStackId    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribePermissions' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype DescribePermissionsResponse = DescribePermissionsResponse
     { _dprPermissions :: List "Permissions" Permission
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribePermissionsResponse where
     type Item DescribePermissionsResponse = Permission
diff --git a/gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs b/gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs
--- a/gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeRaidArrays.hs
@@ -59,7 +59,7 @@
     { _draInstanceId   :: Maybe Text
     , _draRaidArrayIds :: List "RaidArrayIds" Text
     , _draStackId      :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeRaidArrays' constructor.
 --
@@ -95,7 +95,7 @@
 
 newtype DescribeRaidArraysResponse = DescribeRaidArraysResponse
     { _drarRaidArrays :: List "RaidArrays" RaidArray
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeRaidArraysResponse where
     type Item DescribeRaidArraysResponse = RaidArray
diff --git a/gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs b/gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs
--- a/gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeRdsDbInstances.hs
@@ -55,7 +55,7 @@
 data DescribeRdsDbInstances = DescribeRdsDbInstances
     { _drdiRdsDbInstanceArns :: List "RdsDbInstanceArns" Text
     , _drdiStackId           :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeRdsDbInstances' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype DescribeRdsDbInstancesResponse = DescribeRdsDbInstancesResponse
     { _drdirRdsDbInstances :: List "RdsDbInstances" RdsDbInstance
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeRdsDbInstancesResponse where
     type Item DescribeRdsDbInstancesResponse = RdsDbInstance
diff --git a/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs b/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs
--- a/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeServiceErrors.hs
@@ -57,7 +57,7 @@
     { _dseInstanceId      :: Maybe Text
     , _dseServiceErrorIds :: List "ServiceErrorIds" Text
     , _dseStackId         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeServiceErrors' constructor.
 --
@@ -95,7 +95,7 @@
 
 newtype DescribeServiceErrorsResponse = DescribeServiceErrorsResponse
     { _dserServiceErrors :: List "ServiceErrors" ServiceError'
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeServiceErrorsResponse where
     type Item DescribeServiceErrorsResponse = ServiceError'
diff --git a/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs b/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs
--- a/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeStackProvisioningParameters.hs
@@ -54,7 +54,7 @@
 
 newtype DescribeStackProvisioningParameters = DescribeStackProvisioningParameters
     { _dsppStackId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeStackProvisioningParameters' constructor.
 --
@@ -75,7 +75,7 @@
 data DescribeStackProvisioningParametersResponse = DescribeStackProvisioningParametersResponse
     { _dspprAgentInstallerUrl :: Maybe Text
     , _dspprParameters        :: Map Text Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeStackProvisioningParametersResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs b/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs
--- a/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeStackSummary.hs
@@ -54,7 +54,7 @@
 
 newtype DescribeStackSummary = DescribeStackSummary
     { _dssStackId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeStackSummary' constructor.
 --
@@ -74,7 +74,7 @@
 
 newtype DescribeStackSummaryResponse = DescribeStackSummaryResponse
     { _dssrStackSummary :: Maybe StackSummary
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeStackSummaryResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/DescribeStacks.hs b/gen/Network/AWS/OpsWorks/DescribeStacks.hs
--- a/gen/Network/AWS/OpsWorks/DescribeStacks.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeStacks.hs
@@ -53,7 +53,7 @@
 
 newtype DescribeStacks = DescribeStacks
     { _dsStackIds :: List "StackIds" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeStacks where
     type Item DescribeStacks = Text
@@ -79,7 +79,7 @@
 
 newtype DescribeStacksResponse = DescribeStacksResponse
     { _dsrStacks :: List "Stacks" Stack
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeStacksResponse where
     type Item DescribeStacksResponse = Stack
diff --git a/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs
--- a/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeTimeBasedAutoScaling.hs
@@ -55,7 +55,7 @@
 
 newtype DescribeTimeBasedAutoScaling = DescribeTimeBasedAutoScaling
     { _dtbasInstanceIds :: List "InstanceIds" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTimeBasedAutoScaling where
     type Item DescribeTimeBasedAutoScaling = Text
@@ -80,7 +80,7 @@
 
 newtype DescribeTimeBasedAutoScalingResponse = DescribeTimeBasedAutoScalingResponse
     { _dtbasrTimeBasedAutoScalingConfigurations :: List "TimeBasedAutoScalingConfigurations" TimeBasedAutoScalingConfiguration
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTimeBasedAutoScalingResponse where
     type Item DescribeTimeBasedAutoScalingResponse = TimeBasedAutoScalingConfiguration
diff --git a/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs b/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs
--- a/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeUserProfiles.hs
@@ -53,7 +53,7 @@
 
 newtype DescribeUserProfiles = DescribeUserProfiles
     { _dupIamUserArns :: List "IamUserArns" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeUserProfiles where
     type Item DescribeUserProfiles = Text
@@ -78,7 +78,7 @@
 
 newtype DescribeUserProfilesResponse = DescribeUserProfilesResponse
     { _duprUserProfiles :: List "UserProfiles" UserProfile
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeUserProfilesResponse where
     type Item DescribeUserProfilesResponse = UserProfile
diff --git a/gen/Network/AWS/OpsWorks/DescribeVolumes.hs b/gen/Network/AWS/OpsWorks/DescribeVolumes.hs
--- a/gen/Network/AWS/OpsWorks/DescribeVolumes.hs
+++ b/gen/Network/AWS/OpsWorks/DescribeVolumes.hs
@@ -61,7 +61,7 @@
     , _dvRaidArrayId :: Maybe Text
     , _dvStackId     :: Maybe Text
     , _dvVolumeIds   :: List "VolumeIds" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeVolumes' constructor.
 --
@@ -105,7 +105,7 @@
 
 newtype DescribeVolumesResponse = DescribeVolumesResponse
     { _dvrVolumes :: List "Volumes" Volume
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeVolumesResponse where
     type Item DescribeVolumesResponse = Volume
diff --git a/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs b/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs
--- a/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs
+++ b/gen/Network/AWS/OpsWorks/DetachElasticLoadBalancer.hs
@@ -53,7 +53,7 @@
 data DetachElasticLoadBalancer = DetachElasticLoadBalancer
     { _delbElasticLoadBalancerName :: Text
     , _delbLayerId                 :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DetachElasticLoadBalancer' constructor.
 --
@@ -82,7 +82,7 @@
 delbLayerId = lens _delbLayerId (\s a -> s { _delbLayerId = a })
 
 data DetachElasticLoadBalancerResponse = DetachElasticLoadBalancerResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DetachElasticLoadBalancerResponse' constructor.
 detachElasticLoadBalancerResponse :: DetachElasticLoadBalancerResponse
diff --git a/gen/Network/AWS/OpsWorks/DisassociateElasticIp.hs b/gen/Network/AWS/OpsWorks/DisassociateElasticIp.hs
--- a/gen/Network/AWS/OpsWorks/DisassociateElasticIp.hs
+++ b/gen/Network/AWS/OpsWorks/DisassociateElasticIp.hs
@@ -52,7 +52,7 @@
 
 newtype DisassociateElasticIp = DisassociateElasticIp
     { _deiElasticIp :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DisassociateElasticIp' constructor.
 --
@@ -71,7 +71,7 @@
 deiElasticIp = lens _deiElasticIp (\s a -> s { _deiElasticIp = a })
 
 data DisassociateElasticIpResponse = DisassociateElasticIpResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DisassociateElasticIpResponse' constructor.
 disassociateElasticIpResponse :: DisassociateElasticIpResponse
diff --git a/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs b/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs
--- a/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs
+++ b/gen/Network/AWS/OpsWorks/GetHostnameSuggestion.hs
@@ -55,7 +55,7 @@
 
 newtype GetHostnameSuggestion = GetHostnameSuggestion
     { _ghsLayerId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetHostnameSuggestion' constructor.
 --
@@ -76,7 +76,7 @@
 data GetHostnameSuggestionResponse = GetHostnameSuggestionResponse
     { _ghsrHostname :: Maybe Text
     , _ghsrLayerId  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GetHostnameSuggestionResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/RebootInstance.hs b/gen/Network/AWS/OpsWorks/RebootInstance.hs
--- a/gen/Network/AWS/OpsWorks/RebootInstance.hs
+++ b/gen/Network/AWS/OpsWorks/RebootInstance.hs
@@ -51,7 +51,7 @@
 
 newtype RebootInstance = RebootInstance
     { _riInstanceId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'RebootInstance' constructor.
 --
@@ -70,7 +70,7 @@
 riInstanceId = lens _riInstanceId (\s a -> s { _riInstanceId = a })
 
 data RebootInstanceResponse = RebootInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'RebootInstanceResponse' constructor.
 rebootInstanceResponse :: RebootInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/RegisterElasticIp.hs b/gen/Network/AWS/OpsWorks/RegisterElasticIp.hs
--- a/gen/Network/AWS/OpsWorks/RegisterElasticIp.hs
+++ b/gen/Network/AWS/OpsWorks/RegisterElasticIp.hs
@@ -58,7 +58,7 @@
 data RegisterElasticIp = RegisterElasticIp
     { _reiElasticIp :: Text
     , _reiStackId   :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RegisterElasticIp' constructor.
 --
@@ -86,7 +86,7 @@
 
 newtype RegisterElasticIpResponse = RegisterElasticIpResponse
     { _reirElasticIp :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'RegisterElasticIpResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/RegisterInstance.hs b/gen/Network/AWS/OpsWorks/RegisterInstance.hs
--- a/gen/Network/AWS/OpsWorks/RegisterInstance.hs
+++ b/gen/Network/AWS/OpsWorks/RegisterInstance.hs
@@ -70,7 +70,7 @@
     , _riRsaPublicKey            :: Maybe Text
     , _riRsaPublicKeyFingerprint :: Maybe Text
     , _riStackId                 :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RegisterInstance' constructor.
 --
@@ -136,7 +136,7 @@
 
 newtype RegisterInstanceResponse = RegisterInstanceResponse
     { _rirInstanceId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'RegisterInstanceResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/RegisterRdsDbInstance.hs b/gen/Network/AWS/OpsWorks/RegisterRdsDbInstance.hs
--- a/gen/Network/AWS/OpsWorks/RegisterRdsDbInstance.hs
+++ b/gen/Network/AWS/OpsWorks/RegisterRdsDbInstance.hs
@@ -57,7 +57,7 @@
     , _rrdiDbUser           :: Text
     , _rrdiRdsDbInstanceArn :: Text
     , _rrdiStackId          :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RegisterRdsDbInstance' constructor.
 --
@@ -101,7 +101,7 @@
 rrdiStackId = lens _rrdiStackId (\s a -> s { _rrdiStackId = a })
 
 data RegisterRdsDbInstanceResponse = RegisterRdsDbInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'RegisterRdsDbInstanceResponse' constructor.
 registerRdsDbInstanceResponse :: RegisterRdsDbInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/RegisterVolume.hs b/gen/Network/AWS/OpsWorks/RegisterVolume.hs
--- a/gen/Network/AWS/OpsWorks/RegisterVolume.hs
+++ b/gen/Network/AWS/OpsWorks/RegisterVolume.hs
@@ -58,7 +58,7 @@
 data RegisterVolume = RegisterVolume
     { _rvEc2VolumeId :: Maybe Text
     , _rvStackId     :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RegisterVolume' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype RegisterVolumeResponse = RegisterVolumeResponse
     { _rvrVolumeId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'RegisterVolumeResponse' constructor.
 --
diff --git a/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs
--- a/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs
+++ b/gen/Network/AWS/OpsWorks/SetLoadBasedAutoScaling.hs
@@ -63,7 +63,7 @@
     , _slbasEnable      :: Maybe Bool
     , _slbasLayerId     :: Text
     , _slbasUpScaling   :: Maybe AutoScalingThresholds
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'SetLoadBasedAutoScaling' constructor.
 --
@@ -107,7 +107,7 @@
 slbasUpScaling = lens _slbasUpScaling (\s a -> s { _slbasUpScaling = a })
 
 data SetLoadBasedAutoScalingResponse = SetLoadBasedAutoScalingResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'SetLoadBasedAutoScalingResponse' constructor.
 setLoadBasedAutoScalingResponse :: SetLoadBasedAutoScalingResponse
diff --git a/gen/Network/AWS/OpsWorks/SetPermission.hs b/gen/Network/AWS/OpsWorks/SetPermission.hs
--- a/gen/Network/AWS/OpsWorks/SetPermission.hs
+++ b/gen/Network/AWS/OpsWorks/SetPermission.hs
@@ -59,7 +59,7 @@
     , _spIamUserArn :: Text
     , _spLevel      :: Maybe Text
     , _spStackId    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'SetPermission' constructor.
 --
@@ -111,7 +111,7 @@
 spStackId = lens _spStackId (\s a -> s { _spStackId = a })
 
 data SetPermissionResponse = SetPermissionResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'SetPermissionResponse' constructor.
 setPermissionResponse :: SetPermissionResponse
diff --git a/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs b/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs
--- a/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs
+++ b/gen/Network/AWS/OpsWorks/SetTimeBasedAutoScaling.hs
@@ -54,7 +54,7 @@
 data SetTimeBasedAutoScaling = SetTimeBasedAutoScaling
     { _stbasAutoScalingSchedule :: Maybe WeeklyAutoScalingSchedule
     , _stbasInstanceId          :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'SetTimeBasedAutoScaling' constructor.
 --
@@ -82,7 +82,7 @@
 stbasInstanceId = lens _stbasInstanceId (\s a -> s { _stbasInstanceId = a })
 
 data SetTimeBasedAutoScalingResponse = SetTimeBasedAutoScalingResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'SetTimeBasedAutoScalingResponse' constructor.
 setTimeBasedAutoScalingResponse :: SetTimeBasedAutoScalingResponse
diff --git a/gen/Network/AWS/OpsWorks/StartInstance.hs b/gen/Network/AWS/OpsWorks/StartInstance.hs
--- a/gen/Network/AWS/OpsWorks/StartInstance.hs
+++ b/gen/Network/AWS/OpsWorks/StartInstance.hs
@@ -51,7 +51,7 @@
 
 newtype StartInstance = StartInstance
     { _si1InstanceId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StartInstance' constructor.
 --
@@ -70,7 +70,7 @@
 si1InstanceId = lens _si1InstanceId (\s a -> s { _si1InstanceId = a })
 
 data StartInstanceResponse = StartInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'StartInstanceResponse' constructor.
 startInstanceResponse :: StartInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/StartStack.hs b/gen/Network/AWS/OpsWorks/StartStack.hs
--- a/gen/Network/AWS/OpsWorks/StartStack.hs
+++ b/gen/Network/AWS/OpsWorks/StartStack.hs
@@ -51,7 +51,7 @@
 
 newtype StartStack = StartStack
     { _ss2StackId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StartStack' constructor.
 --
@@ -70,7 +70,7 @@
 ss2StackId = lens _ss2StackId (\s a -> s { _ss2StackId = a })
 
 data StartStackResponse = StartStackResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'StartStackResponse' constructor.
 startStackResponse :: StartStackResponse
diff --git a/gen/Network/AWS/OpsWorks/StopInstance.hs b/gen/Network/AWS/OpsWorks/StopInstance.hs
--- a/gen/Network/AWS/OpsWorks/StopInstance.hs
+++ b/gen/Network/AWS/OpsWorks/StopInstance.hs
@@ -54,7 +54,7 @@
 
 newtype StopInstance = StopInstance
     { _siInstanceId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StopInstance' constructor.
 --
@@ -73,7 +73,7 @@
 siInstanceId = lens _siInstanceId (\s a -> s { _siInstanceId = a })
 
 data StopInstanceResponse = StopInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'StopInstanceResponse' constructor.
 stopInstanceResponse :: StopInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/StopStack.hs b/gen/Network/AWS/OpsWorks/StopStack.hs
--- a/gen/Network/AWS/OpsWorks/StopStack.hs
+++ b/gen/Network/AWS/OpsWorks/StopStack.hs
@@ -51,7 +51,7 @@
 
 newtype StopStack = StopStack
     { _ss1StackId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StopStack' constructor.
 --
@@ -70,7 +70,7 @@
 ss1StackId = lens _ss1StackId (\s a -> s { _ss1StackId = a })
 
 data StopStackResponse = StopStackResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'StopStackResponse' constructor.
 stopStackResponse :: StopStackResponse
diff --git a/gen/Network/AWS/OpsWorks/Types.hs b/gen/Network/AWS/OpsWorks/Types.hs
--- a/gen/Network/AWS/OpsWorks/Types.hs
+++ b/gen/Network/AWS/OpsWorks/Types.hs
@@ -513,7 +513,7 @@
     { _scCertificate :: Text
     , _scChain       :: Maybe Text
     , _scPrivateKey  :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'SslConfiguration' constructor.
 --
@@ -563,7 +563,7 @@
 data VirtualizationType
     = Hvm         -- ^ hvm
     | Paravirtual -- ^ paravirtual
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable VirtualizationType
 
@@ -600,7 +600,7 @@
     , _cLogUrl         :: Maybe Text
     , _cStatus         :: Maybe Text
     , _cType           :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Command' constructor.
 --
@@ -725,7 +725,7 @@
     , _raSize             :: Maybe Int
     , _raStackId          :: Maybe Text
     , _raVolumeType       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RaidArray' constructor.
 --
@@ -871,7 +871,7 @@
     , _elbStackId                 :: Maybe Text
     , _elbSubnetIds               :: List "SubnetIds" Text
     , _elbVpcId                   :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ElasticLoadBalancer' constructor.
 --
@@ -978,7 +978,7 @@
 
 newtype LifecycleEventConfiguration = LifecycleEventConfiguration
     { _lecShutdown :: Maybe ShutdownEventConfiguration
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'LifecycleEventConfiguration' constructor.
 --
@@ -1015,7 +1015,7 @@
     , _rdiRdsDbInstanceArn     :: Maybe Text
     , _rdiRegion               :: Maybe Text
     , _rdiStackId              :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RdsDbInstance' constructor.
 --
@@ -1121,7 +1121,7 @@
     = AutoBundleOnDeploy -- ^ AutoBundleOnDeploy
     | DocumentRoot       -- ^ DocumentRoot
     | RailsEnv           -- ^ RailsEnv
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable AppAttributesKeys
 
@@ -1156,7 +1156,7 @@
     , _seServiceErrorId :: Maybe Text
     , _seStackId        :: Maybe Text
     , _seType           :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ServiceError'' constructor.
 --
@@ -1234,7 +1234,7 @@
     , _ssLayersCount    :: Maybe Int
     , _ssName           :: Maybe Text
     , _ssStackId        :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'StackSummary' constructor.
 --
@@ -1307,7 +1307,7 @@
 
 data StackAttributesKeys
     = Color -- ^ Color
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable StackAttributesKeys
 
@@ -1335,7 +1335,7 @@
     , _lbascEnable      :: Maybe Bool
     , _lbascLayerId     :: Maybe Text
     , _lbascUpScaling   :: Maybe AutoScalingThresholds
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'LoadBasedAutoScalingConfiguration' constructor.
 --
@@ -1395,7 +1395,7 @@
     | Git     -- ^ git
     | S3      -- ^ s3
     | Svn     -- ^ svn
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable SourceType
 
@@ -1439,7 +1439,7 @@
     , _vStatus           :: Maybe Text
     , _vVolumeId         :: Maybe Text
     , _vVolumeType       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Volume' constructor.
 --
@@ -1577,7 +1577,7 @@
 data ChefConfiguration = ChefConfiguration
     { _ccBerkshelfVersion :: Maybe Text
     , _ccManageBerkshelf  :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ChefConfiguration' constructor.
 --
@@ -1625,7 +1625,7 @@
     | PhpApp           -- ^ php-app
     | RailsApp         -- ^ rails-app
     | Web              -- ^ web
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable LayerType
 
@@ -1674,7 +1674,7 @@
     , _astLoadThreshold      :: Maybe Double
     , _astMemoryThreshold    :: Maybe Double
     , _astThresholdsWaitTime :: Maybe Nat
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AutoScalingThresholds' constructor.
 --
@@ -1773,7 +1773,7 @@
     , _appSslConfiguration :: Maybe SslConfiguration
     , _appStackId          :: Maybe Text
     , _appType             :: Maybe AppType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'App' constructor.
 --
@@ -1927,7 +1927,7 @@
     , _eiIp         :: Maybe Text
     , _eiName       :: Maybe Text
     , _eiRegion     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ElasticIp' constructor.
 --
@@ -1992,7 +1992,7 @@
 data ShutdownEventConfiguration = ShutdownEventConfiguration
     { _secDelayUntilElbConnectionsDrained :: Maybe Bool
     , _secExecutionTimeout                :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ShutdownEventConfiguration' constructor.
 --
@@ -2035,7 +2035,7 @@
 data InstanceIdentity = InstanceIdentity
     { _iiDocument  :: Maybe Text
     , _iiSignature :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'InstanceIdentity' constructor.
 --
@@ -2077,7 +2077,7 @@
     , _upName                :: Maybe Text
     , _upSshPublicKey        :: Maybe Text
     , _upSshUsername         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UserProfile' constructor.
 --
@@ -2144,7 +2144,7 @@
 data AutoScalingType
     = Load  -- ^ load
     | Timer -- ^ timer
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable AutoScalingType
 
@@ -2177,7 +2177,7 @@
     , _sType     :: Maybe SourceType
     , _sUrl      :: Maybe Text
     , _sUsername :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Source' constructor.
 --
@@ -2262,7 +2262,7 @@
     { _dsArn          :: Maybe Text
     , _dsDatabaseName :: Maybe Text
     , _dsType         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DataSource' constructor.
 --
@@ -2310,7 +2310,7 @@
 data Architecture
     = I386  -- ^ i386
     | X8664 -- ^ x86_64
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable Architecture
 
@@ -2339,7 +2339,7 @@
 data StackConfigurationManager = StackConfigurationManager
     { _scmName    :: Maybe Text
     , _scmVersion :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'StackConfigurationManager' constructor.
 --
@@ -2400,7 +2400,7 @@
     | RailsStack                  -- ^ RailsStack
     | RubyVersion                 -- ^ RubyVersion
     | RubygemsVersion             -- ^ RubygemsVersion
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable LayerAttributesKeys
 
@@ -2477,7 +2477,7 @@
     , _vcRaidLevel     :: Maybe Int
     , _vcSize          :: Int
     , _vcVolumeType    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'VolumeConfiguration' constructor.
 --
@@ -2558,7 +2558,7 @@
     { _roFamily  :: Maybe Text
     , _roName    :: Maybe Text
     , _roVersion :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ReportedOs' constructor.
 --
@@ -2608,7 +2608,7 @@
     , _pIamUserArn :: Maybe Text
     , _pLevel      :: Maybe Text
     , _pStackId    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Permission' constructor.
 --
@@ -2678,7 +2678,7 @@
     { _evKey    :: Text
     , _evSecure :: Maybe Bool
     , _evValue  :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EnvironmentVariable' constructor.
 --
@@ -2751,7 +2751,7 @@
     , _lType                        :: Maybe LayerType
     , _lUseEbsOptimizedInstances    :: Maybe Bool
     , _lVolumeConfigurations        :: List "VolumeConfigurations" VolumeConfiguration
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Layer' constructor.
 --
@@ -2982,7 +2982,7 @@
     , _rSetup     :: List "Setup" Text
     , _rShutdown  :: List "Shutdown" Text
     , _rUndeploy  :: List "Undeploy" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Recipes' constructor.
 --
@@ -3047,7 +3047,7 @@
 data TimeBasedAutoScalingConfiguration = TimeBasedAutoScalingConfiguration
     { _tbascAutoScalingSchedule :: Maybe WeeklyAutoScalingSchedule
     , _tbascInstanceId          :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TimeBasedAutoScalingConfiguration' constructor.
 --
@@ -3089,7 +3089,7 @@
     , _supName         :: Maybe Text
     , _supSshPublicKey :: Maybe Text
     , _supSshUsername  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'SelfUserProfile' constructor.
 --
@@ -3145,7 +3145,7 @@
 data RootDeviceType
     = Ebs           -- ^ ebs
     | InstanceStore -- ^ instance-store
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable RootDeviceType
 
@@ -3193,7 +3193,7 @@
     , _sUseCustomCookbooks        :: Maybe Bool
     , _sUseOpsworksSecurityGroups :: Maybe Bool
     , _sVpcId                     :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Stack' constructor.
 --
@@ -3426,7 +3426,7 @@
 data DeploymentCommand = DeploymentCommand
     { _dcArgs :: Map Text (List "Args" Text)
     , _dcName :: DeploymentCommandName
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeploymentCommand' constructor.
 --
@@ -3498,7 +3498,7 @@
     , _wassThursday  :: Map Text Text
     , _wassTuesday   :: Map Text Text
     , _wassWednesday :: Map Text Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'WeeklyAutoScalingSchedule' constructor.
 --
@@ -3589,7 +3589,7 @@
     | Undeploy              -- ^ undeploy
     | UpdateCustomCookbooks -- ^ update_custom_cookbooks
     | UpdateDependencies    -- ^ update_dependencies
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable DeploymentCommandName
 
@@ -3665,7 +3665,7 @@
     , _iStatus                   :: Maybe Text
     , _iSubnetId                 :: Maybe Text
     , _iVirtualizationType       :: Maybe VirtualizationType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Instance' constructor.
 --
@@ -4020,7 +4020,7 @@
     , _dInstanceIds  :: List "InstanceIds" Text
     , _dStackId      :: Maybe Text
     , _dStatus       :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Deployment' constructor.
 --
@@ -4172,7 +4172,7 @@
     , _icTerminated     :: Maybe Int
     , _icTerminating    :: Maybe Int
     , _icUnassigning    :: Maybe Int
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'InstancesCount' constructor.
 --
@@ -4367,7 +4367,7 @@
     | Php    -- ^ php
     | Rails  -- ^ rails
     | Static -- ^ static
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable AppType
 
diff --git a/gen/Network/AWS/OpsWorks/UnassignInstance.hs b/gen/Network/AWS/OpsWorks/UnassignInstance.hs
--- a/gen/Network/AWS/OpsWorks/UnassignInstance.hs
+++ b/gen/Network/AWS/OpsWorks/UnassignInstance.hs
@@ -54,7 +54,7 @@
 
 newtype UnassignInstance = UnassignInstance
     { _ui1InstanceId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'UnassignInstance' constructor.
 --
@@ -73,7 +73,7 @@
 ui1InstanceId = lens _ui1InstanceId (\s a -> s { _ui1InstanceId = a })
 
 data UnassignInstanceResponse = UnassignInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UnassignInstanceResponse' constructor.
 unassignInstanceResponse :: UnassignInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/UnassignVolume.hs b/gen/Network/AWS/OpsWorks/UnassignVolume.hs
--- a/gen/Network/AWS/OpsWorks/UnassignVolume.hs
+++ b/gen/Network/AWS/OpsWorks/UnassignVolume.hs
@@ -52,7 +52,7 @@
 
 newtype UnassignVolume = UnassignVolume
     { _uvVolumeId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'UnassignVolume' constructor.
 --
@@ -71,7 +71,7 @@
 uvVolumeId = lens _uvVolumeId (\s a -> s { _uvVolumeId = a })
 
 data UnassignVolumeResponse = UnassignVolumeResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UnassignVolumeResponse' constructor.
 unassignVolumeResponse :: UnassignVolumeResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateApp.hs b/gen/Network/AWS/OpsWorks/UpdateApp.hs
--- a/gen/Network/AWS/OpsWorks/UpdateApp.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateApp.hs
@@ -71,7 +71,7 @@
     , _uaName             :: Maybe Text
     , _uaSslConfiguration :: Maybe SslConfiguration
     , _uaType             :: Maybe AppType
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateApp' constructor.
 --
@@ -168,7 +168,7 @@
 uaType = lens _uaType (\s a -> s { _uaType = a })
 
 data UpdateAppResponse = UpdateAppResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateAppResponse' constructor.
 updateAppResponse :: UpdateAppResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateElasticIp.hs b/gen/Network/AWS/OpsWorks/UpdateElasticIp.hs
--- a/gen/Network/AWS/OpsWorks/UpdateElasticIp.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateElasticIp.hs
@@ -53,7 +53,7 @@
 data UpdateElasticIp = UpdateElasticIp
     { _ueiElasticIp :: Text
     , _ueiName      :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateElasticIp' constructor.
 --
@@ -79,7 +79,7 @@
 ueiName = lens _ueiName (\s a -> s { _ueiName = a })
 
 data UpdateElasticIpResponse = UpdateElasticIpResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateElasticIpResponse' constructor.
 updateElasticIpResponse :: UpdateElasticIpResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateInstance.hs b/gen/Network/AWS/OpsWorks/UpdateInstance.hs
--- a/gen/Network/AWS/OpsWorks/UpdateInstance.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateInstance.hs
@@ -71,7 +71,7 @@
     , _uiLayerIds             :: List "LayerIds" Text
     , _uiOs                   :: Maybe Text
     , _uiSshKeyName           :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateInstance' constructor.
 --
@@ -184,7 +184,7 @@
 uiSshKeyName = lens _uiSshKeyName (\s a -> s { _uiSshKeyName = a })
 
 data UpdateInstanceResponse = UpdateInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateInstanceResponse' constructor.
 updateInstanceResponse :: UpdateInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateLayer.hs b/gen/Network/AWS/OpsWorks/UpdateLayer.hs
--- a/gen/Network/AWS/OpsWorks/UpdateLayer.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateLayer.hs
@@ -79,7 +79,7 @@
     , _ulShortname                   :: Maybe Text
     , _ulUseEbsOptimizedInstances    :: Maybe Bool
     , _ulVolumeConfigurations        :: List "VolumeConfigurations" VolumeConfiguration
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateLayer' constructor.
 --
@@ -225,7 +225,7 @@
         . _List
 
 data UpdateLayerResponse = UpdateLayerResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateLayerResponse' constructor.
 updateLayerResponse :: UpdateLayerResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs b/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs
--- a/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateMyUserProfile.hs
@@ -51,7 +51,7 @@
 
 newtype UpdateMyUserProfile = UpdateMyUserProfile
     { _umupSshPublicKey :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'UpdateMyUserProfile' constructor.
 --
@@ -69,7 +69,7 @@
 umupSshPublicKey = lens _umupSshPublicKey (\s a -> s { _umupSshPublicKey = a })
 
 data UpdateMyUserProfileResponse = UpdateMyUserProfileResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateMyUserProfileResponse' constructor.
 updateMyUserProfileResponse :: UpdateMyUserProfileResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateRdsDbInstance.hs b/gen/Network/AWS/OpsWorks/UpdateRdsDbInstance.hs
--- a/gen/Network/AWS/OpsWorks/UpdateRdsDbInstance.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateRdsDbInstance.hs
@@ -55,7 +55,7 @@
     { _urdiDbPassword       :: Maybe Text
     , _urdiDbUser           :: Maybe Text
     , _urdiRdsDbInstanceArn :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateRdsDbInstance' constructor.
 --
@@ -89,7 +89,7 @@
     lens _urdiRdsDbInstanceArn (\s a -> s { _urdiRdsDbInstanceArn = a })
 
 data UpdateRdsDbInstanceResponse = UpdateRdsDbInstanceResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateRdsDbInstanceResponse' constructor.
 updateRdsDbInstanceResponse :: UpdateRdsDbInstanceResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateStack.hs b/gen/Network/AWS/OpsWorks/UpdateStack.hs
--- a/gen/Network/AWS/OpsWorks/UpdateStack.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateStack.hs
@@ -83,7 +83,7 @@
     , _usStackId                   :: Text
     , _usUseCustomCookbooks        :: Maybe Bool
     , _usUseOpsworksSecurityGroups :: Maybe Bool
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateStack' constructor.
 --
@@ -280,7 +280,7 @@
         (\s a -> s { _usUseOpsworksSecurityGroups = a })
 
 data UpdateStackResponse = UpdateStackResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateStackResponse' constructor.
 updateStackResponse :: UpdateStackResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs b/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs
--- a/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateUserProfile.hs
@@ -57,7 +57,7 @@
     , _uupIamUserArn          :: Text
     , _uupSshPublicKey        :: Maybe Text
     , _uupSshUsername         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateUserProfile' constructor.
 --
@@ -103,7 +103,7 @@
 uupSshUsername = lens _uupSshUsername (\s a -> s { _uupSshUsername = a })
 
 data UpdateUserProfileResponse = UpdateUserProfileResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateUserProfileResponse' constructor.
 updateUserProfileResponse :: UpdateUserProfileResponse
diff --git a/gen/Network/AWS/OpsWorks/UpdateVolume.hs b/gen/Network/AWS/OpsWorks/UpdateVolume.hs
--- a/gen/Network/AWS/OpsWorks/UpdateVolume.hs
+++ b/gen/Network/AWS/OpsWorks/UpdateVolume.hs
@@ -55,7 +55,7 @@
     { _uv1MountPoint :: Maybe Text
     , _uv1Name       :: Maybe Text
     , _uv1VolumeId   :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateVolume' constructor.
 --
@@ -88,7 +88,7 @@
 uv1VolumeId = lens _uv1VolumeId (\s a -> s { _uv1VolumeId = a })
 
 data UpdateVolumeResponse = UpdateVolumeResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateVolumeResponse' constructor.
 updateVolumeResponse :: UpdateVolumeResponse