diff --git a/amazonka-elastictranscoder.cabal b/amazonka-elastictranscoder.cabal
--- a/amazonka-elastictranscoder.cabal
+++ b/amazonka-elastictranscoder.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-elastictranscoder
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Elastic Transcoder SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -60,5 +60,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/ElasticTranscoder/CancelJob.hs b/gen/Network/AWS/ElasticTranscoder/CancelJob.hs
--- a/gen/Network/AWS/ElasticTranscoder/CancelJob.hs
+++ b/gen/Network/AWS/ElasticTranscoder/CancelJob.hs
@@ -51,7 +51,7 @@
 
 newtype CancelJob = CancelJob
     { _cjId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'CancelJob' constructor.
 --
@@ -72,7 +72,7 @@
 cjId = lens _cjId (\s a -> s { _cjId = a })
 
 data CancelJobResponse = CancelJobResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'CancelJobResponse' constructor.
 cancelJobResponse :: CancelJobResponse
diff --git a/gen/Network/AWS/ElasticTranscoder/CreateJob.hs b/gen/Network/AWS/ElasticTranscoder/CreateJob.hs
--- a/gen/Network/AWS/ElasticTranscoder/CreateJob.hs
+++ b/gen/Network/AWS/ElasticTranscoder/CreateJob.hs
@@ -67,7 +67,7 @@
     , _cjPipelineId      :: Text
     , _cjPlaylists       :: List "Playlists" CreateJobPlaylist
     , _cjUserMetadata    :: Map Text Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateJob' constructor.
 --
@@ -143,7 +143,7 @@
 
 newtype CreateJobResponse = CreateJobResponse
     { _cjrJob :: Maybe Job'
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateJobResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs b/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs
--- a/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs
+++ b/gen/Network/AWS/ElasticTranscoder/CreatePipeline.hs
@@ -64,7 +64,7 @@
     , _cp1OutputBucket    :: Maybe Text
     , _cp1Role            :: Text
     , _cp1ThumbnailConfig :: Maybe PipelineOutputConfig
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreatePipeline' constructor.
 --
@@ -257,7 +257,7 @@
 
 newtype CreatePipelineResponse = CreatePipelineResponse
     { _cprPipeline :: Maybe Pipeline
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreatePipelineResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs b/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs
--- a/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs
+++ b/gen/Network/AWS/ElasticTranscoder/CreatePreset.hs
@@ -73,7 +73,7 @@
     , _cpName        :: Text
     , _cpThumbnails  :: Maybe Thumbnails
     , _cpVideo       :: Maybe VideoParameters
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreatePreset' constructor.
 --
@@ -131,7 +131,7 @@
 data CreatePresetResponse = CreatePresetResponse
     { _cprPreset  :: Maybe Preset
     , _cprWarning :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreatePresetResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs b/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs
--- a/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs
+++ b/gen/Network/AWS/ElasticTranscoder/DeletePipeline.hs
@@ -51,7 +51,7 @@
 
 newtype DeletePipeline = DeletePipeline
     { _dp1Id :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeletePipeline' constructor.
 --
@@ -70,7 +70,7 @@
 dp1Id = lens _dp1Id (\s a -> s { _dp1Id = a })
 
 data DeletePipelineResponse = DeletePipelineResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeletePipelineResponse' constructor.
 deletePipelineResponse :: DeletePipelineResponse
diff --git a/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs b/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs
--- a/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs
+++ b/gen/Network/AWS/ElasticTranscoder/DeletePreset.hs
@@ -53,7 +53,7 @@
 
 newtype DeletePreset = DeletePreset
     { _dpId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeletePreset' constructor.
 --
@@ -72,7 +72,7 @@
 dpId = lens _dpId (\s a -> s { _dpId = a })
 
 data DeletePresetResponse = DeletePresetResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeletePresetResponse' constructor.
 deletePresetResponse :: DeletePresetResponse
diff --git a/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs b/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs
--- a/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs
+++ b/gen/Network/AWS/ElasticTranscoder/ListJobsByPipeline.hs
@@ -59,7 +59,7 @@
     { _ljbpAscending  :: Maybe Text
     , _ljbpPageToken  :: Maybe Text
     , _ljbpPipelineId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListJobsByPipeline' constructor.
 --
@@ -96,7 +96,7 @@
 data ListJobsByPipelineResponse = ListJobsByPipelineResponse
     { _ljbprJobs          :: List "Jobs" Job'
     , _ljbprNextPageToken :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListJobsByPipelineResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs b/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs
--- a/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs
+++ b/gen/Network/AWS/ElasticTranscoder/ListJobsByStatus.hs
@@ -56,7 +56,7 @@
     { _ljbsAscending :: Maybe Text
     , _ljbsPageToken :: Maybe Text
     , _ljbsStatus    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListJobsByStatus' constructor.
 --
@@ -94,7 +94,7 @@
 data ListJobsByStatusResponse = ListJobsByStatusResponse
     { _ljbsrJobs          :: List "Jobs" Job'
     , _ljbsrNextPageToken :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListJobsByStatusResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs b/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs
--- a/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs
+++ b/gen/Network/AWS/ElasticTranscoder/ListPipelines.hs
@@ -53,7 +53,7 @@
 data ListPipelines = ListPipelines
     { _lpAscending :: Maybe Text
     , _lpPageToken :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListPipelines' constructor.
 --
@@ -82,7 +82,7 @@
 data ListPipelinesResponse = ListPipelinesResponse
     { _lprNextPageToken :: Maybe Text
     , _lprPipelines     :: List "Pipelines" Pipeline
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListPipelinesResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/ListPresets.hs b/gen/Network/AWS/ElasticTranscoder/ListPresets.hs
--- a/gen/Network/AWS/ElasticTranscoder/ListPresets.hs
+++ b/gen/Network/AWS/ElasticTranscoder/ListPresets.hs
@@ -53,7 +53,7 @@
 data ListPresets = ListPresets
     { _lp1Ascending :: Maybe Text
     , _lp1PageToken :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListPresets' constructor.
 --
@@ -82,7 +82,7 @@
 data ListPresetsResponse = ListPresetsResponse
     { _lpr1NextPageToken :: Maybe Text
     , _lpr1Presets       :: List "Presets" Preset
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListPresetsResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/ReadJob.hs b/gen/Network/AWS/ElasticTranscoder/ReadJob.hs
--- a/gen/Network/AWS/ElasticTranscoder/ReadJob.hs
+++ b/gen/Network/AWS/ElasticTranscoder/ReadJob.hs
@@ -49,7 +49,7 @@
 
 newtype ReadJob = ReadJob
     { _rjId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'ReadJob' constructor.
 --
@@ -69,7 +69,7 @@
 
 newtype ReadJobResponse = ReadJobResponse
     { _rjrJob :: Job'
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReadJobResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs b/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs
--- a/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs
+++ b/gen/Network/AWS/ElasticTranscoder/ReadPipeline.hs
@@ -49,7 +49,7 @@
 
 newtype ReadPipeline = ReadPipeline
     { _rp1Id :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'ReadPipeline' constructor.
 --
@@ -69,7 +69,7 @@
 
 newtype ReadPipelineResponse = ReadPipelineResponse
     { _rprPipeline :: Maybe Pipeline
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReadPipelineResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs b/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs
--- a/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs
+++ b/gen/Network/AWS/ElasticTranscoder/ReadPreset.hs
@@ -49,7 +49,7 @@
 
 newtype ReadPreset = ReadPreset
     { _rpId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'ReadPreset' constructor.
 --
@@ -69,7 +69,7 @@
 
 newtype ReadPresetResponse = ReadPresetResponse
     { _rprPreset :: Maybe Preset
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReadPresetResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/TestRole.hs b/gen/Network/AWS/ElasticTranscoder/TestRole.hs
--- a/gen/Network/AWS/ElasticTranscoder/TestRole.hs
+++ b/gen/Network/AWS/ElasticTranscoder/TestRole.hs
@@ -62,7 +62,7 @@
     , _trOutputBucket :: Text
     , _trRole         :: Text
     , _trTopics       :: List "Topics" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TestRole' constructor.
 --
@@ -110,7 +110,7 @@
 data TestRoleResponse = TestRoleResponse
     { _trrMessages :: List "Messages" Text
     , _trrSuccess  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TestRoleResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/Types.hs b/gen/Network/AWS/ElasticTranscoder/Types.hs
--- a/gen/Network/AWS/ElasticTranscoder/Types.hs
+++ b/gen/Network/AWS/ElasticTranscoder/Types.hs
@@ -345,7 +345,7 @@
     { _pocBucket       :: Maybe Text
     , _pocPermissions  :: List "Permissions" Permission
     , _pocStorageClass :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PipelineOutputConfig' constructor.
 --
@@ -418,7 +418,7 @@
     , _cjpHlsContentProtection :: Maybe HlsContentProtection
     , _cjpName                 :: Maybe Text
     , _cjpOutputKeys           :: List "OutputKeys" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateJobPlaylist' constructor.
 --
@@ -518,7 +518,7 @@
     { _cCaptionFormats :: List "CaptionFormats" CaptionFormat
     , _cCaptionSources :: List "CaptionSources" CaptionSource
     , _cMergePolicy    :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Captions' constructor.
 --
@@ -584,7 +584,7 @@
 
 newtype AudioCodecOptions = AudioCodecOptions
     { _acoProfile :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'AudioCodecOptions' constructor.
 --
@@ -643,7 +643,7 @@
     , _joThumbnailPattern    :: Maybe Text
     , _joWatermarks          :: List "Watermarks" JobWatermark
     , _joWidth               :: Maybe Int
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'JobOutput' constructor.
 --
@@ -950,7 +950,7 @@
     , _jPlaylists       :: List "Playlists" Playlist
     , _jStatus          :: Text
     , _jUserMetadata    :: Map Text Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Job'' constructor.
 --
@@ -1105,7 +1105,7 @@
     , _csLabel      :: Maybe Text
     , _csLanguage   :: Maybe Text
     , _csTimeOffset :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CaptionSource' constructor.
 --
@@ -1190,7 +1190,7 @@
     , _aMaxWidth       :: Maybe Text
     , _aPaddingPolicy  :: Maybe Text
     , _aSizingPolicy   :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Artwork' constructor.
 --
@@ -1307,7 +1307,7 @@
 data TimeSpan = TimeSpan
     { _tsDuration  :: Maybe Text
     , _tsStartTime :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TimeSpan' constructor.
 --
@@ -1363,7 +1363,7 @@
     , _cjoThumbnailEncryption :: Maybe Encryption
     , _cjoThumbnailPattern    :: Maybe Text
     , _cjoWatermarks          :: List "Watermarks" JobWatermark
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateJobOutput' constructor.
 --
@@ -1586,7 +1586,7 @@
     , _apCodec        :: Maybe Text
     , _apCodecOptions :: Maybe AudioCodecOptions
     , _apSampleRate   :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'AudioParameters' constructor.
 --
@@ -1676,7 +1676,7 @@
     , _tPaddingPolicy :: Maybe Text
     , _tResolution    :: Maybe Text
     , _tSizingPolicy  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Thumbnails' constructor.
 --
@@ -1818,7 +1818,7 @@
     , _eKey                  :: Maybe Text
     , _eKeyMd5               :: Maybe Text
     , _eMode                 :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Encryption' constructor.
 --
@@ -1922,7 +1922,7 @@
 data JobAlbumArt = JobAlbumArt
     { _jaaArtwork     :: List "Artwork" Artwork
     , _jaaMergePolicy :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'JobAlbumArt' constructor.
 --
@@ -1967,7 +1967,7 @@
     { _jwEncryption        :: Maybe Encryption
     , _jwInputKey          :: Maybe Text
     , _jwPresetWatermarkId :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'JobWatermark' constructor.
 --
@@ -2035,7 +2035,7 @@
     , _pRole            :: Maybe Text
     , _pStatus          :: Maybe Text
     , _pThumbnailConfig :: Maybe PipelineOutputConfig
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Pipeline' constructor.
 --
@@ -2235,7 +2235,7 @@
     , _p1Thumbnails  :: Maybe Thumbnails
     , _p1Type        :: Maybe Text
     , _p1Video       :: Maybe VideoParameters
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Preset' constructor.
 --
@@ -2342,7 +2342,7 @@
     { _cfEncryption :: Maybe Encryption
     , _cfFormat     :: Maybe Text
     , _cfPattern    :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CaptionFormat' constructor.
 --
@@ -2428,7 +2428,7 @@
     , _hcpKeyStoragePolicy      :: Maybe Text
     , _hcpLicenseAcquisitionUrl :: Maybe Text
     , _hcpMethod                :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'HlsContentProtection' constructor.
 --
@@ -2541,7 +2541,7 @@
     , _pwTarget           :: Maybe Text
     , _pwVerticalAlign    :: Maybe Text
     , _pwVerticalOffset   :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PresetWatermark' constructor.
 --
@@ -2732,7 +2732,7 @@
     { _pAccess      :: List "Access" Text
     , _pGrantee     :: Maybe Text
     , _pGranteeType :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Permission' constructor.
 --
@@ -2807,7 +2807,7 @@
     , _vpResolution         :: Maybe Text
     , _vpSizingPolicy       :: Maybe Text
     , _vpWatermarks         :: List "Watermarks" PresetWatermark
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'VideoParameters' constructor.
 --
@@ -3145,7 +3145,7 @@
     , _p2OutputKeys           :: List "OutputKeys" Text
     , _p2Status               :: Maybe Text
     , _p2StatusDetail         :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Playlist' constructor.
 --
@@ -3264,7 +3264,7 @@
     , _nError       :: Maybe Text
     , _nProgressing :: Maybe Text
     , _nWarning     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Notifications' constructor.
 --
@@ -3323,7 +3323,7 @@
 
 newtype Clip = Clip
     { _cTimeSpan :: Maybe TimeSpan
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Clip' constructor.
 --
@@ -3357,7 +3357,7 @@
     , _jiInterlaced  :: Maybe Text
     , _jiKey         :: Maybe Text
     , _jiResolution  :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'JobInput' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs b/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs
--- a/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs
+++ b/gen/Network/AWS/ElasticTranscoder/UpdatePipeline.hs
@@ -66,7 +66,7 @@
     , _upNotifications   :: Maybe Notifications
     , _upRole            :: Maybe Text
     , _upThumbnailConfig :: Maybe PipelineOutputConfig
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdatePipeline' constructor.
 --
@@ -221,7 +221,7 @@
 
 newtype UpdatePipelineResponse = UpdatePipelineResponse
     { _uprPipeline :: Maybe Pipeline
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdatePipelineResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs
--- a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs
+++ b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineNotifications.hs
@@ -55,7 +55,7 @@
 data UpdatePipelineNotifications = UpdatePipelineNotifications
     { _upnId            :: Text
     , _upnNotifications :: Notifications
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdatePipelineNotifications' constructor.
 --
@@ -99,7 +99,7 @@
 
 newtype UpdatePipelineNotificationsResponse = UpdatePipelineNotificationsResponse
     { _upnrPipeline :: Maybe Pipeline
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdatePipelineNotificationsResponse' constructor.
 --
diff --git a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs
--- a/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs
+++ b/gen/Network/AWS/ElasticTranscoder/UpdatePipelineStatus.hs
@@ -58,7 +58,7 @@
 data UpdatePipelineStatus = UpdatePipelineStatus
     { _upsId     :: Text
     , _upsStatus :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdatePipelineStatus' constructor.
 --
@@ -89,7 +89,7 @@
 
 newtype UpdatePipelineStatusResponse = UpdatePipelineStatusResponse
     { _upsrPipeline :: Maybe Pipeline
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'UpdatePipelineStatusResponse' constructor.
 --