diff --git a/amazonka-datapipeline.cabal b/amazonka-datapipeline.cabal
--- a/amazonka-datapipeline.cabal
+++ b/amazonka-datapipeline.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-datapipeline
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Data Pipeline SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -57,5 +57,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/DataPipeline/ActivatePipeline.hs b/gen/Network/AWS/DataPipeline/ActivatePipeline.hs
--- a/gen/Network/AWS/DataPipeline/ActivatePipeline.hs
+++ b/gen/Network/AWS/DataPipeline/ActivatePipeline.hs
@@ -55,7 +55,7 @@
 data ActivatePipeline = ActivatePipeline
     { _apParameterValues :: List "parameterValues" ParameterValue
     , _apPipelineId      :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ActivatePipeline' constructor.
 --
@@ -83,7 +83,7 @@
 apPipelineId = lens _apPipelineId (\s a -> s { _apPipelineId = a })
 
 data ActivatePipelineResponse = ActivatePipelineResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'ActivatePipelineResponse' constructor.
 activatePipelineResponse :: ActivatePipelineResponse
diff --git a/gen/Network/AWS/DataPipeline/CreatePipeline.hs b/gen/Network/AWS/DataPipeline/CreatePipeline.hs
--- a/gen/Network/AWS/DataPipeline/CreatePipeline.hs
+++ b/gen/Network/AWS/DataPipeline/CreatePipeline.hs
@@ -53,7 +53,7 @@
     { _cpDescription :: Maybe Text
     , _cpName        :: Text
     , _cpUniqueId    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreatePipeline' constructor.
 --
@@ -100,7 +100,7 @@
 
 newtype CreatePipelineResponse = CreatePipelineResponse
     { _cprPipelineId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'CreatePipelineResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/DeletePipeline.hs b/gen/Network/AWS/DataPipeline/DeletePipeline.hs
--- a/gen/Network/AWS/DataPipeline/DeletePipeline.hs
+++ b/gen/Network/AWS/DataPipeline/DeletePipeline.hs
@@ -54,7 +54,7 @@
 
 newtype DeletePipeline = DeletePipeline
     { _dpPipelineId :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeletePipeline' constructor.
 --
@@ -73,7 +73,7 @@
 dpPipelineId = lens _dpPipelineId (\s a -> s { _dpPipelineId = 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/DataPipeline/DescribeObjects.hs b/gen/Network/AWS/DataPipeline/DescribeObjects.hs
--- a/gen/Network/AWS/DataPipeline/DescribeObjects.hs
+++ b/gen/Network/AWS/DataPipeline/DescribeObjects.hs
@@ -59,7 +59,7 @@
     , _doMarker              :: Maybe Text
     , _doObjectIds           :: List "objectIds" Text
     , _doPipelineId          :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeObjects' constructor.
 --
@@ -107,7 +107,7 @@
     { _dorHasMoreResults  :: Maybe Bool
     , _dorMarker          :: Maybe Text
     , _dorPipelineObjects :: List "pipelineObjects" PipelineObject
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeObjectsResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/DescribePipelines.hs b/gen/Network/AWS/DataPipeline/DescribePipelines.hs
--- a/gen/Network/AWS/DataPipeline/DescribePipelines.hs
+++ b/gen/Network/AWS/DataPipeline/DescribePipelines.hs
@@ -57,7 +57,7 @@
 
 newtype DescribePipelines = DescribePipelines
     { _dpPipelineIds :: List "pipelineIds" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribePipelines where
     type Item DescribePipelines = Text
@@ -84,7 +84,7 @@
 
 newtype DescribePipelinesResponse = DescribePipelinesResponse
     { _dprPipelineDescriptionList :: List "pipelineDescriptionList" PipelineDescription
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribePipelinesResponse where
     type Item DescribePipelinesResponse = PipelineDescription
diff --git a/gen/Network/AWS/DataPipeline/EvaluateExpression.hs b/gen/Network/AWS/DataPipeline/EvaluateExpression.hs
--- a/gen/Network/AWS/DataPipeline/EvaluateExpression.hs
+++ b/gen/Network/AWS/DataPipeline/EvaluateExpression.hs
@@ -54,7 +54,7 @@
     { _eeExpression :: Text
     , _eeObjectId   :: Text
     , _eePipelineId :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'EvaluateExpression' constructor.
 --
@@ -90,7 +90,7 @@
 
 newtype EvaluateExpressionResponse = EvaluateExpressionResponse
     { _eerEvaluatedExpression :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'EvaluateExpressionResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs b/gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs
--- a/gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs
+++ b/gen/Network/AWS/DataPipeline/GetPipelineDefinition.hs
@@ -53,7 +53,7 @@
 data GetPipelineDefinition = GetPipelineDefinition
     { _gpdPipelineId :: Text
     , _gpdVersion    :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GetPipelineDefinition' constructor.
 --
@@ -85,7 +85,7 @@
     { _gpdrParameterObjects :: List "parameterObjects" ParameterObject
     , _gpdrParameterValues  :: List "parameterValues" ParameterValue
     , _gpdrPipelineObjects  :: List "pipelineObjects" PipelineObject
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetPipelineDefinitionResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/ListPipelines.hs b/gen/Network/AWS/DataPipeline/ListPipelines.hs
--- a/gen/Network/AWS/DataPipeline/ListPipelines.hs
+++ b/gen/Network/AWS/DataPipeline/ListPipelines.hs
@@ -52,7 +52,7 @@
 
 newtype ListPipelines = ListPipelines
     { _lpMarker :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ListPipelines' constructor.
 --
@@ -74,7 +74,7 @@
     { _lprHasMoreResults :: Maybe Bool
     , _lprMarker         :: Maybe Text
     , _lprPipelineIdList :: List "pipelineIdList" PipelineIdName
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListPipelinesResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/PollForTask.hs b/gen/Network/AWS/DataPipeline/PollForTask.hs
--- a/gen/Network/AWS/DataPipeline/PollForTask.hs
+++ b/gen/Network/AWS/DataPipeline/PollForTask.hs
@@ -66,7 +66,7 @@
     { _pftHostname         :: Maybe Text
     , _pftInstanceIdentity :: Maybe InstanceIdentity
     , _pftWorkerGroup      :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PollForTask' constructor.
 --
@@ -108,7 +108,7 @@
 
 newtype PollForTaskResponse = PollForTaskResponse
     { _pftrTaskObject :: Maybe TaskObject
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PollForTaskResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs b/gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs
--- a/gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs
+++ b/gen/Network/AWS/DataPipeline/PutPipelineDefinition.hs
@@ -68,7 +68,7 @@
     , _ppdParameterValues  :: List "parameterValues" ParameterValue
     , _ppdPipelineId       :: Text
     , _ppdPipelineObjects  :: List "pipelineObjects" PipelineObject
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PutPipelineDefinition' constructor.
 --
@@ -118,7 +118,7 @@
     { _ppdrErrored            :: Bool
     , _ppdrValidationErrors   :: List "validationErrors" ValidationError
     , _ppdrValidationWarnings :: List "validationWarnings" ValidationWarning
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PutPipelineDefinitionResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/QueryObjects.hs b/gen/Network/AWS/DataPipeline/QueryObjects.hs
--- a/gen/Network/AWS/DataPipeline/QueryObjects.hs
+++ b/gen/Network/AWS/DataPipeline/QueryObjects.hs
@@ -66,7 +66,7 @@
     , _qoPipelineId :: Text
     , _qoQuery      :: Maybe Query
     , _qoSphere     :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'QueryObjects' constructor.
 --
@@ -123,7 +123,7 @@
     { _qorHasMoreResults :: Maybe Bool
     , _qorIds            :: List "ids" Text
     , _qorMarker         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'QueryObjectsResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/ReportTaskProgress.hs b/gen/Network/AWS/DataPipeline/ReportTaskProgress.hs
--- a/gen/Network/AWS/DataPipeline/ReportTaskProgress.hs
+++ b/gen/Network/AWS/DataPipeline/ReportTaskProgress.hs
@@ -62,7 +62,7 @@
 data ReportTaskProgress = ReportTaskProgress
     { _rtpFields :: List "fields" Field
     , _rtpTaskId :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ReportTaskProgress' constructor.
 --
@@ -92,7 +92,7 @@
 
 newtype ReportTaskProgressResponse = ReportTaskProgressResponse
     { _rtprCanceled :: Bool
-    } deriving (Eq, Ord, Show, Enum)
+    } deriving (Eq, Ord, Read, Show, Enum)
 
 -- | 'ReportTaskProgressResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs b/gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs
--- a/gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs
+++ b/gen/Network/AWS/DataPipeline/ReportTaskRunnerHeartbeat.hs
@@ -57,7 +57,7 @@
     { _rtrhHostname     :: Maybe Text
     , _rtrhTaskrunnerId :: Text
     , _rtrhWorkerGroup  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ReportTaskRunnerHeartbeat' constructor.
 --
@@ -98,7 +98,7 @@
 
 newtype ReportTaskRunnerHeartbeatResponse = ReportTaskRunnerHeartbeatResponse
     { _rtrhrTerminate :: Bool
-    } deriving (Eq, Ord, Show, Enum)
+    } deriving (Eq, Ord, Read, Show, Enum)
 
 -- | 'ReportTaskRunnerHeartbeatResponse' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/SetStatus.hs b/gen/Network/AWS/DataPipeline/SetStatus.hs
--- a/gen/Network/AWS/DataPipeline/SetStatus.hs
+++ b/gen/Network/AWS/DataPipeline/SetStatus.hs
@@ -56,7 +56,7 @@
     { _ssObjectIds  :: List "objectIds" Text
     , _ssPipelineId :: Text
     , _ssStatus     :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'SetStatus' constructor.
 --
@@ -93,7 +93,7 @@
 ssStatus = lens _ssStatus (\s a -> s { _ssStatus = a })
 
 data SetStatusResponse = SetStatusResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'SetStatusResponse' constructor.
 setStatusResponse :: SetStatusResponse
diff --git a/gen/Network/AWS/DataPipeline/SetTaskStatus.hs b/gen/Network/AWS/DataPipeline/SetTaskStatus.hs
--- a/gen/Network/AWS/DataPipeline/SetTaskStatus.hs
+++ b/gen/Network/AWS/DataPipeline/SetTaskStatus.hs
@@ -57,7 +57,7 @@
     , _stsErrorStackTrace :: Maybe Text
     , _stsTaskId          :: Text
     , _stsTaskStatus      :: TaskStatus
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'SetTaskStatus' constructor.
 --
@@ -116,7 +116,7 @@
 stsTaskStatus = lens _stsTaskStatus (\s a -> s { _stsTaskStatus = a })
 
 data SetTaskStatusResponse = SetTaskStatusResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'SetTaskStatusResponse' constructor.
 setTaskStatusResponse :: SetTaskStatusResponse
diff --git a/gen/Network/AWS/DataPipeline/Types.hs b/gen/Network/AWS/DataPipeline/Types.hs
--- a/gen/Network/AWS/DataPipeline/Types.hs
+++ b/gen/Network/AWS/DataPipeline/Types.hs
@@ -175,7 +175,7 @@
 data ParameterObject = ParameterObject
     { _poAttributes :: List "attributes" ParameterAttribute
     , _poId         :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ParameterObject' constructor.
 --
@@ -215,7 +215,7 @@
     { _po1Fields :: List "fields" Field
     , _po1Id     :: Text
     , _po1Name   :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PipelineObject' constructor.
 --
@@ -265,7 +265,7 @@
     { _fKey         :: Text
     , _fRefValue    :: Maybe Text
     , _fStringValue :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Field' constructor.
 --
@@ -313,7 +313,7 @@
 data ParameterValue = ParameterValue
     { _pvId          :: Text
     , _pvStringValue :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ParameterValue' constructor.
 --
@@ -353,7 +353,7 @@
 data Selector = Selector
     { _sFieldName :: Maybe Text
     , _sOperator  :: Maybe Operator
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Selector' constructor.
 --
@@ -393,7 +393,7 @@
 data ParameterAttribute = ParameterAttribute
     { _paKey         :: Text
     , _paStringValue :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ParameterAttribute' constructor.
 --
@@ -433,7 +433,7 @@
 data Operator = Operator
     { _oType   :: Maybe OperatorType
     , _oValues :: List "values" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Operator' constructor.
 --
@@ -489,7 +489,7 @@
     , _toObjects    :: Map Text PipelineObject
     , _toPipelineId :: Maybe Text
     , _toTaskId     :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'TaskObject' constructor.
 --
@@ -548,7 +548,7 @@
 data ValidationError = ValidationError
     { _veErrors :: List "errors" Text
     , _veId     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ValidationError' constructor.
 --
@@ -588,7 +588,7 @@
     , _pdFields      :: List "fields" Field
     , _pdName        :: Text
     , _pdPipelineId  :: Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'PipelineDescription' constructor.
 --
@@ -648,7 +648,7 @@
 data InstanceIdentity = InstanceIdentity
     { _iiDocument  :: Maybe Text
     , _iiSignature :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'InstanceIdentity' constructor.
 --
@@ -688,7 +688,7 @@
 
 newtype Query = Query
     { _qSelectors :: List "selectors" Selector
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList Query where
     type Item Query = Selector
@@ -727,7 +727,7 @@
     | OperatorGe      -- ^ GE
     | OperatorLe      -- ^ LE
     | OperatorRefEq   -- ^ REF_EQ
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable OperatorType
 
@@ -762,7 +762,7 @@
 data PipelineIdName = PipelineIdName
     { _pinId   :: Maybe Text
     , _pinName :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'PipelineIdName' constructor.
 --
@@ -802,7 +802,7 @@
     = Failed   -- ^ FAILED
     | False'   -- ^ FALSE
     | Finished -- ^ FINISHED
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable TaskStatus
 
@@ -833,7 +833,7 @@
 data ValidationWarning = ValidationWarning
     { _vwId       :: Maybe Text
     , _vwWarnings :: List "warnings" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ValidationWarning' constructor.
 --
diff --git a/gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs b/gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs
--- a/gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs
+++ b/gen/Network/AWS/DataPipeline/ValidatePipelineDefinition.hs
@@ -58,7 +58,7 @@
     , _vpdParameterValues  :: List "parameterValues" ParameterValue
     , _vpdPipelineId       :: Text
     , _vpdPipelineObjects  :: List "pipelineObjects" PipelineObject
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ValidatePipelineDefinition' constructor.
 --
@@ -108,7 +108,7 @@
     { _vpdrErrored            :: Bool
     , _vpdrValidationErrors   :: List "validationErrors" ValidationError
     , _vpdrValidationWarnings :: List "validationWarnings" ValidationWarning
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ValidatePipelineDefinitionResponse' constructor.
 --