diff --git a/amazonka-cloudtrail.cabal b/amazonka-cloudtrail.cabal
--- a/amazonka-cloudtrail.cabal
+++ b/amazonka-cloudtrail.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudtrail
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon CloudTrail SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -49,5 +49,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/CloudTrail/CreateTrail.hs b/gen/Network/AWS/CloudTrail/CreateTrail.hs
--- a/gen/Network/AWS/CloudTrail/CreateTrail.hs
+++ b/gen/Network/AWS/CloudTrail/CreateTrail.hs
@@ -70,7 +70,7 @@
     , _ctS3BucketName               :: Text
     , _ctS3KeyPrefix                :: Maybe Text
     , _ctSnsTopicName               :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateTrail' constructor.
 --
@@ -151,7 +151,7 @@
     , _ctrS3BucketName               :: Maybe Text
     , _ctrS3KeyPrefix                :: Maybe Text
     , _ctrSnsTopicName               :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateTrailResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudTrail/DeleteTrail.hs b/gen/Network/AWS/CloudTrail/DeleteTrail.hs
--- a/gen/Network/AWS/CloudTrail/DeleteTrail.hs
+++ b/gen/Network/AWS/CloudTrail/DeleteTrail.hs
@@ -47,7 +47,7 @@
 
 newtype DeleteTrail = DeleteTrail
     { _dtName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteTrail' constructor.
 --
@@ -66,7 +66,7 @@
 dtName = lens _dtName (\s a -> s { _dtName = a })
 
 data DeleteTrailResponse = DeleteTrailResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'DeleteTrailResponse' constructor.
 deleteTrailResponse :: DeleteTrailResponse
diff --git a/gen/Network/AWS/CloudTrail/DescribeTrails.hs b/gen/Network/AWS/CloudTrail/DescribeTrails.hs
--- a/gen/Network/AWS/CloudTrail/DescribeTrails.hs
+++ b/gen/Network/AWS/CloudTrail/DescribeTrails.hs
@@ -50,7 +50,7 @@
 
 newtype DescribeTrails = DescribeTrails
     { _dtTrailNameList :: List "trailNameList" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTrails where
     type Item DescribeTrails = Text
@@ -75,7 +75,7 @@
 
 newtype DescribeTrailsResponse = DescribeTrailsResponse
     { _dtrTrailList :: List "trailList" Trail
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeTrailsResponse where
     type Item DescribeTrailsResponse = Trail
diff --git a/gen/Network/AWS/CloudTrail/GetTrailStatus.hs b/gen/Network/AWS/CloudTrail/GetTrailStatus.hs
--- a/gen/Network/AWS/CloudTrail/GetTrailStatus.hs
+++ b/gen/Network/AWS/CloudTrail/GetTrailStatus.hs
@@ -59,7 +59,7 @@
 
 newtype GetTrailStatus = GetTrailStatus
     { _gtsName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'GetTrailStatus' constructor.
 --
@@ -87,7 +87,7 @@
     , _gtsrLatestNotificationTime            :: Maybe POSIX
     , _gtsrStartLoggingTime                  :: Maybe POSIX
     , _gtsrStopLoggingTime                   :: Maybe POSIX
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GetTrailStatusResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudTrail/StartLogging.hs b/gen/Network/AWS/CloudTrail/StartLogging.hs
--- a/gen/Network/AWS/CloudTrail/StartLogging.hs
+++ b/gen/Network/AWS/CloudTrail/StartLogging.hs
@@ -47,7 +47,7 @@
 
 newtype StartLogging = StartLogging
     { _sl1Name :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StartLogging' constructor.
 --
@@ -66,7 +66,7 @@
 sl1Name = lens _sl1Name (\s a -> s { _sl1Name = a })
 
 data StartLoggingResponse = StartLoggingResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'StartLoggingResponse' constructor.
 startLoggingResponse :: StartLoggingResponse
diff --git a/gen/Network/AWS/CloudTrail/StopLogging.hs b/gen/Network/AWS/CloudTrail/StopLogging.hs
--- a/gen/Network/AWS/CloudTrail/StopLogging.hs
+++ b/gen/Network/AWS/CloudTrail/StopLogging.hs
@@ -50,7 +50,7 @@
 
 newtype StopLogging = StopLogging
     { _slName :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StopLogging' constructor.
 --
@@ -70,7 +70,7 @@
 slName = lens _slName (\s a -> s { _slName = a })
 
 data StopLoggingResponse = StopLoggingResponse
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'StopLoggingResponse' constructor.
 stopLoggingResponse :: StopLoggingResponse
diff --git a/gen/Network/AWS/CloudTrail/Types.hs b/gen/Network/AWS/CloudTrail/Types.hs
--- a/gen/Network/AWS/CloudTrail/Types.hs
+++ b/gen/Network/AWS/CloudTrail/Types.hs
@@ -95,7 +95,7 @@
     , _tS3BucketName               :: Maybe Text
     , _tS3KeyPrefix                :: Maybe Text
     , _tSnsTopicName               :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Trail' constructor.
 --
diff --git a/gen/Network/AWS/CloudTrail/UpdateTrail.hs b/gen/Network/AWS/CloudTrail/UpdateTrail.hs
--- a/gen/Network/AWS/CloudTrail/UpdateTrail.hs
+++ b/gen/Network/AWS/CloudTrail/UpdateTrail.hs
@@ -72,7 +72,7 @@
     , _utS3BucketName               :: Maybe Text
     , _utS3KeyPrefix                :: Maybe Text
     , _utSnsTopicName               :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateTrail' constructor.
 --
@@ -152,7 +152,7 @@
     , _utrS3BucketName               :: Maybe Text
     , _utrS3KeyPrefix                :: Maybe Text
     , _utrSnsTopicName               :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateTrailResponse' constructor.
 --