diff --git a/amazonka-codedeploy.cabal b/amazonka-codedeploy.cabal
--- a/amazonka-codedeploy.cabal
+++ b/amazonka-codedeploy.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-codedeploy
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon CodeDeploy SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -69,5 +69,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/CodeDeploy/BatchGetApplications.hs b/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
--- a/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetApplications.hs
@@ -49,7 +49,7 @@
 
 newtype BatchGetApplications = BatchGetApplications
     { _bgaApplicationNames :: List "applicationNames" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList BatchGetApplications where
     type Item BatchGetApplications = Text
@@ -77,7 +77,7 @@
 
 newtype BatchGetApplicationsResponse = BatchGetApplicationsResponse
     { _bgarApplicationsInfo :: List "applicationsInfo" ApplicationInfo
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList BatchGetApplicationsResponse where
     type Item BatchGetApplicationsResponse = ApplicationInfo
diff --git a/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs b/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
--- a/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
+++ b/gen/Network/AWS/CodeDeploy/BatchGetDeployments.hs
@@ -49,7 +49,7 @@
 
 newtype BatchGetDeployments = BatchGetDeployments
     { _bgdDeploymentIds :: List "deploymentIds" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList BatchGetDeployments where
     type Item BatchGetDeployments = Text
@@ -74,7 +74,7 @@
 
 newtype BatchGetDeploymentsResponse = BatchGetDeploymentsResponse
     { _bgdrDeploymentsInfo :: List "deploymentsInfo" DeploymentInfo
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList BatchGetDeploymentsResponse where
     type Item BatchGetDeploymentsResponse = DeploymentInfo
diff --git a/gen/Network/AWS/CodeDeploy/CreateApplication.hs b/gen/Network/AWS/CodeDeploy/CreateApplication.hs
--- a/gen/Network/AWS/CodeDeploy/CreateApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateApplication.hs
@@ -49,7 +49,7 @@
 
 newtype CreateApplication = CreateApplication
     { _caApplicationName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'CreateApplication' constructor.
 --
@@ -71,7 +71,7 @@
 
 newtype CreateApplicationResponse = CreateApplicationResponse
     { _carApplicationId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateApplicationResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
--- a/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeployment.hs
@@ -59,7 +59,7 @@
     , _cdDescription                   :: Maybe Text
     , _cdIgnoreApplicationStopFailures :: Maybe Bool
     , _cdRevision                      :: Maybe RevisionLocation
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDeployment' constructor.
 --
@@ -134,7 +134,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/CodeDeploy/CreateDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
--- a/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentConfig.hs
@@ -51,7 +51,7 @@
 data CreateDeploymentConfig = CreateDeploymentConfig
     { _cdcDeploymentConfigName :: Text
     , _cdcMinimumHealthyHosts  :: Maybe MinimumHealthyHosts
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDeploymentConfig' constructor.
 --
@@ -95,7 +95,7 @@
 
 newtype CreateDeploymentConfigResponse = CreateDeploymentConfigResponse
     { _cdcrDeploymentConfigId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateDeploymentConfigResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
--- a/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/CreateDeploymentGroup.hs
@@ -59,7 +59,7 @@
     , _cdgDeploymentGroupName  :: Text
     , _cdgEc2TagFilters        :: List "ec2TagFilters" EC2TagFilter
     , _cdgServiceRoleArn       :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateDeploymentGroup' constructor.
 --
@@ -151,7 +151,7 @@
 
 newtype CreateDeploymentGroupResponse = CreateDeploymentGroupResponse
     { _cdgrDeploymentGroupId :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateDeploymentGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/DeleteApplication.hs b/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
--- a/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteApplication.hs
@@ -47,7 +47,7 @@
 
 newtype DeleteApplication = DeleteApplication
     { _daApplicationName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteApplication' constructor.
 --
@@ -68,7 +68,7 @@
     lens _daApplicationName (\s a -> s { _daApplicationName = a })
 
 data DeleteApplicationResponse = DeleteApplicationResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteApplicationResponse' constructor.
 deleteApplicationResponse :: DeleteApplicationResponse
diff --git a/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
--- a/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteDeploymentConfig.hs
@@ -50,7 +50,7 @@
 
 newtype DeleteDeploymentConfig = DeleteDeploymentConfig
     { _ddcDeploymentConfigName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteDeploymentConfig' constructor.
 --
@@ -70,7 +70,7 @@
     lens _ddcDeploymentConfigName (\s a -> s { _ddcDeploymentConfigName = a })
 
 data DeleteDeploymentConfigResponse = DeleteDeploymentConfigResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteDeploymentConfigResponse' constructor.
 deleteDeploymentConfigResponse :: DeleteDeploymentConfigResponse
diff --git a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
--- a/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/DeleteDeploymentGroup.hs
@@ -51,7 +51,7 @@
 data DeleteDeploymentGroup = DeleteDeploymentGroup
     { _ddgApplicationName     :: Text
     , _ddgDeploymentGroupName :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteDeploymentGroup' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype DeleteDeploymentGroupResponse = DeleteDeploymentGroupResponse
     { _ddgrHooksNotCleanedUp :: List "hooksNotCleanedUp" AutoScalingGroup
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DeleteDeploymentGroupResponse where
     type Item DeleteDeploymentGroupResponse = AutoScalingGroup
diff --git a/gen/Network/AWS/CodeDeploy/GetApplication.hs b/gen/Network/AWS/CodeDeploy/GetApplication.hs
--- a/gen/Network/AWS/CodeDeploy/GetApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/GetApplication.hs
@@ -49,7 +49,7 @@
 
 newtype GetApplication = GetApplication
     { _gaApplicationName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetApplication' constructor.
 --
@@ -71,7 +71,7 @@
 
 newtype GetApplicationResponse = GetApplicationResponse
     { _garApplication :: Maybe ApplicationInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetApplicationResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
--- a/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
+++ b/gen/Network/AWS/CodeDeploy/GetApplicationRevision.hs
@@ -53,7 +53,7 @@
 data GetApplicationRevision = GetApplicationRevision
     { _garApplicationName :: Text
     , _garRevision        :: RevisionLocation
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetApplicationRevision' constructor.
 --
@@ -85,7 +85,7 @@
     { _garrApplicationName :: Maybe Text
     , _garrRevision        :: Maybe RevisionLocation
     , _garrRevisionInfo    :: Maybe GenericRevisionInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetApplicationRevisionResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/GetDeployment.hs b/gen/Network/AWS/CodeDeploy/GetDeployment.hs
--- a/gen/Network/AWS/CodeDeploy/GetDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeployment.hs
@@ -49,7 +49,7 @@
 
 newtype GetDeployment = GetDeployment
     { _gdDeploymentId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetDeployment' constructor.
 --
@@ -69,7 +69,7 @@
 
 newtype GetDeploymentResponse = GetDeploymentResponse
     { _gdrDeploymentInfo :: Maybe DeploymentInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetDeploymentResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentConfig.hs
@@ -49,7 +49,7 @@
 
 newtype GetDeploymentConfig = GetDeploymentConfig
     { _gdcDeploymentConfigName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetDeploymentConfig' constructor.
 --
@@ -70,7 +70,7 @@
 
 newtype GetDeploymentConfigResponse = GetDeploymentConfigResponse
     { _gdcrDeploymentConfigInfo :: Maybe DeploymentConfigInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetDeploymentConfigResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentGroup.hs
@@ -51,7 +51,7 @@
 data GetDeploymentGroup = GetDeploymentGroup
     { _gdgApplicationName     :: Text
     , _gdgDeploymentGroupName :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GetDeploymentGroup' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype GetDeploymentGroupResponse = GetDeploymentGroupResponse
     { _gdgrDeploymentGroupInfo :: Maybe DeploymentGroupInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetDeploymentGroupResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
--- a/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
+++ b/gen/Network/AWS/CodeDeploy/GetDeploymentInstance.hs
@@ -51,7 +51,7 @@
 data GetDeploymentInstance = GetDeploymentInstance
     { _gdiDeploymentId :: Text
     , _gdiInstanceId   :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GetDeploymentInstance' constructor.
 --
@@ -79,7 +79,7 @@
 
 newtype GetDeploymentInstanceResponse = GetDeploymentInstanceResponse
     { _gdirInstanceSummary :: Maybe InstanceSummary
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetDeploymentInstanceResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
--- a/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
+++ b/gen/Network/AWS/CodeDeploy/ListApplicationRevisions.hs
@@ -62,7 +62,7 @@
     , _larS3KeyPrefix     :: Maybe Text
     , _larSortBy          :: Maybe ApplicationRevisionSortBy
     , _larSortOrder       :: Maybe SortOrder
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListApplicationRevisions' constructor.
 --
@@ -148,7 +148,7 @@
 data ListApplicationRevisionsResponse = ListApplicationRevisionsResponse
     { _larrNextToken :: Maybe Text
     , _larrRevisions :: List "revisions" RevisionLocation
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListApplicationRevisionsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/ListApplications.hs b/gen/Network/AWS/CodeDeploy/ListApplications.hs
--- a/gen/Network/AWS/CodeDeploy/ListApplications.hs
+++ b/gen/Network/AWS/CodeDeploy/ListApplications.hs
@@ -50,7 +50,7 @@
 
 newtype ListApplications = ListApplications
     { _laNextToken :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ListApplications' constructor.
 --
@@ -71,7 +71,7 @@
 data ListApplicationsResponse = ListApplicationsResponse
     { _lar1Applications :: List "applications" Text
     , _lar1NextToken    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListApplicationsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentConfigs.hs
@@ -50,7 +50,7 @@
 
 newtype ListDeploymentConfigs = ListDeploymentConfigs
     { _ldcNextToken :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ListDeploymentConfigs' constructor.
 --
@@ -72,7 +72,7 @@
 data ListDeploymentConfigsResponse = ListDeploymentConfigsResponse
     { _ldcrDeploymentConfigsList :: List "deploymentConfigsList" Text
     , _ldcrNextToken             :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListDeploymentConfigsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentGroups.hs
@@ -54,7 +54,7 @@
 data ListDeploymentGroups = ListDeploymentGroups
     { _ldgApplicationName :: Text
     , _ldgNextToken       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListDeploymentGroups' constructor.
 --
@@ -87,7 +87,7 @@
     { _ldgrApplicationName  :: Maybe Text
     , _ldgrDeploymentGroups :: List "deploymentGroups" Text
     , _ldgrNextToken        :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListDeploymentGroupsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
--- a/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeploymentInstances.hs
@@ -54,7 +54,7 @@
     { _ldiDeploymentId         :: Text
     , _ldiInstanceStatusFilter :: List "instanceStatusFilter" InstanceStatus
     , _ldiNextToken            :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListDeploymentInstances' constructor.
 --
@@ -101,7 +101,7 @@
 data ListDeploymentInstancesResponse = ListDeploymentInstancesResponse
     { _ldirInstancesList :: List "instancesList" Text
     , _ldirNextToken     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListDeploymentInstancesResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/ListDeployments.hs b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
--- a/gen/Network/AWS/CodeDeploy/ListDeployments.hs
+++ b/gen/Network/AWS/CodeDeploy/ListDeployments.hs
@@ -59,7 +59,7 @@
     , _ldDeploymentGroupName :: Maybe Text
     , _ldIncludeOnlyStatuses :: List "includeOnlyStatuses" DeploymentStatus
     , _ldNextToken           :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListDeployments' constructor.
 --
@@ -119,7 +119,7 @@
 data ListDeploymentsResponse = ListDeploymentsResponse
     { _ldrDeployments :: List "deployments" Text
     , _ldrNextToken   :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListDeploymentsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs b/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
--- a/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
+++ b/gen/Network/AWS/CodeDeploy/RegisterApplicationRevision.hs
@@ -51,7 +51,7 @@
     { _rarApplicationName :: Text
     , _rarDescription     :: Maybe Text
     , _rarRevision        :: RevisionLocation
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RegisterApplicationRevision' constructor.
 --
@@ -88,7 +88,7 @@
 rarRevision = lens _rarRevision (\s a -> s { _rarRevision = a })
 
 data RegisterApplicationRevisionResponse = RegisterApplicationRevisionResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'RegisterApplicationRevisionResponse' constructor.
 registerApplicationRevisionResponse :: RegisterApplicationRevisionResponse
diff --git a/gen/Network/AWS/CodeDeploy/StopDeployment.hs b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
--- a/gen/Network/AWS/CodeDeploy/StopDeployment.hs
+++ b/gen/Network/AWS/CodeDeploy/StopDeployment.hs
@@ -50,7 +50,7 @@
 
 newtype StopDeployment = StopDeployment
     { _sdDeploymentId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StopDeployment' constructor.
 --
@@ -71,7 +71,7 @@
 data StopDeploymentResponse = StopDeploymentResponse
     { _sdrStatus        :: Maybe StopStatus
     , _sdrStatusMessage :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'StopDeploymentResponse' constructor.
 --
diff --git a/gen/Network/AWS/CodeDeploy/Types.hs b/gen/Network/AWS/CodeDeploy/Types.hs
--- a/gen/Network/AWS/CodeDeploy/Types.hs
+++ b/gen/Network/AWS/CodeDeploy/Types.hs
@@ -267,7 +267,7 @@
     , _griFirstUsedTime    :: Maybe POSIX
     , _griLastUsedTime     :: Maybe POSIX
     , _griRegisterTime     :: Maybe POSIX
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GenericRevisionInfo' constructor.
 --
@@ -336,7 +336,7 @@
     , _aiApplicationName :: Maybe Text
     , _aiCreateTime      :: Maybe POSIX
     , _aiLinkedToGitHub  :: Maybe Bool
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ApplicationInfo' constructor.
 --
@@ -395,7 +395,7 @@
     = Tar -- ^ tar
     | Tgz -- ^ tgz
     | Zip -- ^ zip
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable BundleType
 
@@ -426,7 +426,7 @@
 data TimeRange = TimeRange
     { _trEnd   :: Maybe POSIX
     , _trStart :: Maybe POSIX
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TimeRange' constructor.
 --
@@ -468,7 +468,7 @@
 data DeploymentCreator
     = Autoscaling -- ^ autoscaling
     | User        -- ^ user
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable DeploymentCreator
 
@@ -500,7 +500,7 @@
     , _isLastUpdatedAt   :: Maybe POSIX
     , _isLifecycleEvents :: List "lifecycleEvents" LifecycleEvent
     , _isStatus          :: Maybe InstanceStatus
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'InstanceSummary' constructor.
 --
@@ -573,7 +573,7 @@
 data AutoScalingGroup = AutoScalingGroup
     { _asgHook :: Maybe Text
     , _asgName :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AutoScalingGroup' constructor.
 --
@@ -617,7 +617,7 @@
     , _dgiEc2TagFilters        :: List "ec2TagFilters" EC2TagFilter
     , _dgiServiceRoleArn       :: Maybe Text
     , _dgiTargetRevision       :: Maybe RevisionLocation
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeploymentGroupInfo' constructor.
 --
@@ -719,7 +719,7 @@
     = FirstUsedTime -- ^ firstUsedTime
     | LastUsedTime  -- ^ lastUsedTime
     | RegisterTime  -- ^ registerTime
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ApplicationRevisionSortBy
 
@@ -750,7 +750,7 @@
 data MinimumHealthyHosts = MinimumHealthyHosts
     { _mhhType  :: Maybe MinimumHealthyHostsType
     , _mhhValue :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'MinimumHealthyHosts' constructor.
 --
@@ -803,7 +803,7 @@
     = Exclude -- ^ exclude
     | Ignore  -- ^ ignore
     | Include -- ^ include
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ListStateFilterAction
 
@@ -838,7 +838,7 @@
     | ScriptTimedOut      -- ^ ScriptTimedOut
     | Success             -- ^ Success
     | UnknownError        -- ^ UnknownError
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable LifecycleErrorCode
 
@@ -876,7 +876,7 @@
     { _rlGitHubLocation :: Maybe GitHubLocation
     , _rlRevisionType   :: Maybe RevisionLocationType
     , _rlS3Location     :: Maybe S3Location
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'RevisionLocation' constructor.
 --
@@ -928,7 +928,7 @@
     | Skipped    -- ^ Skipped
     | Succeeded  -- ^ Succeeded
     | Unknown    -- ^ Unknown
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable LifecycleEventStatus
 
@@ -966,7 +966,7 @@
     { _ectfKey   :: Maybe Text
     , _ectfType  :: Maybe EC2TagFilterType
     , _ectfValue :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'EC2TagFilter' constructor.
 --
@@ -1017,7 +1017,7 @@
     , _dLogTail    :: Maybe Text
     , _dMessage    :: Maybe Text
     , _dScriptName :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Diagnostics' constructor.
 --
@@ -1079,7 +1079,7 @@
 data StopStatus
     = SSPending   -- ^ Pending
     | SSSucceeded -- ^ Succeeded
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable StopStatus
 
@@ -1108,7 +1108,7 @@
 data ErrorInformation = ErrorInformation
     { _eiCode    :: Maybe ErrorCode
     , _eiMessage :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ErrorInformation' constructor.
 --
@@ -1163,7 +1163,7 @@
 data SortOrder
     = Ascending  -- ^ ascending
     | Descending -- ^ descending
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable SortOrder
 
@@ -1204,7 +1204,7 @@
     , _diRevision                      :: Maybe RevisionLocation
     , _diStartTime                     :: Maybe POSIX
     , _diStatus                        :: Maybe DeploymentStatus
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeploymentInfo' constructor.
 --
@@ -1377,7 +1377,7 @@
     , _leLifecycleEventName :: Maybe Text
     , _leStartTime          :: Maybe POSIX
     , _leStatus             :: Maybe LifecycleEventStatus
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'LifecycleEvent' constructor.
 --
@@ -1453,7 +1453,7 @@
     , _doPending    :: Maybe Integer
     , _doSkipped    :: Maybe Integer
     , _doSucceeded  :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeploymentOverview' constructor.
 --
@@ -1527,7 +1527,7 @@
     | OverMaxInstances         -- ^ OVER_MAX_INSTANCES
     | RevisionMissing          -- ^ REVISION_MISSING
     | Timeout                  -- ^ TIMEOUT
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ErrorCode
 
@@ -1576,7 +1576,7 @@
     , _dciDeploymentConfigId   :: Maybe Text
     , _dciDeploymentConfigName :: Maybe Text
     , _dciMinimumHealthyHosts  :: Maybe MinimumHealthyHosts
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DeploymentConfigInfo' constructor.
 --
@@ -1639,7 +1639,7 @@
     | ISSkipped    -- ^ Skipped
     | ISSucceeded  -- ^ Succeeded
     | ISUnknown    -- ^ Unknown
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable InstanceStatus
 
@@ -1680,7 +1680,7 @@
     | DSQueued     -- ^ Queued
     | DSStopped    -- ^ Stopped
     | DSSucceeded  -- ^ Succeeded
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable DeploymentStatus
 
@@ -1720,7 +1720,7 @@
     , _slETag       :: Maybe Text
     , _slKey        :: Maybe Text
     , _slVersion    :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'S3Location' constructor.
 --
@@ -1797,7 +1797,7 @@
 data MinimumHealthyHostsType
     = FleetPercent -- ^ FLEET_PERCENT
     | HostCount    -- ^ HOST_COUNT
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable MinimumHealthyHostsType
 
@@ -1826,7 +1826,7 @@
 data GitHubLocation = GitHubLocation
     { _ghlCommitId   :: Maybe Text
     , _ghlRepository :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GitHubLocation' constructor.
 --
@@ -1868,7 +1868,7 @@
 data RevisionLocationType
     = GitHub -- ^ GitHub
     | S3     -- ^ S3
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable RevisionLocationType
 
@@ -1898,7 +1898,7 @@
     = KeyAndValue -- ^ KEY_AND_VALUE
     | KeyOnly     -- ^ KEY_ONLY
     | ValueOnly   -- ^ VALUE_ONLY
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable EC2TagFilterType
 
diff --git a/gen/Network/AWS/CodeDeploy/UpdateApplication.hs b/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
--- a/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
+++ b/gen/Network/AWS/CodeDeploy/UpdateApplication.hs
@@ -49,7 +49,7 @@
 data UpdateApplication = UpdateApplication
     { _uaApplicationName    :: Maybe Text
     , _uaNewApplicationName :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateApplication' constructor.
 --
@@ -76,7 +76,7 @@
     lens _uaNewApplicationName (\s a -> s { _uaNewApplicationName = a })
 
 data UpdateApplicationResponse = UpdateApplicationResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'UpdateApplicationResponse' constructor.
 updateApplicationResponse :: UpdateApplicationResponse
diff --git a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
--- a/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
+++ b/gen/Network/AWS/CodeDeploy/UpdateDeploymentGroup.hs
@@ -61,7 +61,7 @@
     , _udgEc2TagFilters              :: List "ec2TagFilters" EC2TagFilter
     , _udgNewDeploymentGroupName     :: Maybe Text
     , _udgServiceRoleArn             :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdateDeploymentGroup' constructor.
 --
@@ -136,7 +136,7 @@
 
 newtype UpdateDeploymentGroupResponse = UpdateDeploymentGroupResponse
     { _udgrHooksNotCleanedUp :: List "hooksNotCleanedUp" AutoScalingGroup
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList UpdateDeploymentGroupResponse where
     type Item UpdateDeploymentGroupResponse = AutoScalingGroup