diff --git a/amazonka-cloudhsm.cabal b/amazonka-cloudhsm.cabal
--- a/amazonka-cloudhsm.cabal
+++ b/amazonka-cloudhsm.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-cloudhsm
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon CloudHSM SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -58,5 +58,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/CloudHSM/CreateHapg.hs b/gen/Network/AWS/CloudHSM/CreateHapg.hs
--- a/gen/Network/AWS/CloudHSM/CreateHapg.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHapg.hs
@@ -50,7 +50,7 @@
 
 newtype CreateHapg = CreateHapg
     { _chLabel :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'CreateHapg' constructor.
 --
@@ -70,7 +70,7 @@
 
 newtype CreateHapgResponse = CreateHapgResponse
     { _chrHapgArn :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateHapgResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/CreateHsm.hs b/gen/Network/AWS/CloudHSM/CreateHsm.hs
--- a/gen/Network/AWS/CloudHSM/CreateHsm.hs
+++ b/gen/Network/AWS/CloudHSM/CreateHsm.hs
@@ -64,7 +64,7 @@
     , _chSubnetId         :: Text
     , _chSubscriptionType :: SubscriptionType
     , _chSyslogIp         :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CreateHsm' constructor.
 --
@@ -139,7 +139,7 @@
 
 newtype CreateHsmResponse = CreateHsmResponse
     { _chrHsmArn :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateHsmResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/CreateLunaClient.hs
@@ -51,7 +51,7 @@
 data CreateLunaClient = CreateLunaClient
     { _clcCertificate :: Text
     , _clcLabel       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateLunaClient' constructor.
 --
@@ -79,7 +79,7 @@
 
 newtype CreateLunaClientResponse = CreateLunaClientResponse
     { _clcrClientArn :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CreateLunaClientResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/DeleteHapg.hs b/gen/Network/AWS/CloudHSM/DeleteHapg.hs
--- a/gen/Network/AWS/CloudHSM/DeleteHapg.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHapg.hs
@@ -49,7 +49,7 @@
 
 newtype DeleteHapg = DeleteHapg
     { _dhHapgArn :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteHapg' constructor.
 --
@@ -69,7 +69,7 @@
 
 newtype DeleteHapgResponse = DeleteHapgResponse
     { _dhrStatus :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteHapgResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/DeleteHsm.hs b/gen/Network/AWS/CloudHSM/DeleteHsm.hs
--- a/gen/Network/AWS/CloudHSM/DeleteHsm.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteHsm.hs
@@ -50,7 +50,7 @@
 
 newtype DeleteHsm = DeleteHsm
     { _dhHsmArn :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteHsm' constructor.
 --
@@ -70,7 +70,7 @@
 
 newtype DeleteHsmResponse = DeleteHsmResponse
     { _dhr1Status :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteHsmResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DeleteLunaClient.hs
@@ -49,7 +49,7 @@
 
 newtype DeleteLunaClient = DeleteLunaClient
     { _dlc1ClientArn :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteLunaClient' constructor.
 --
@@ -69,7 +69,7 @@
 
 newtype DeleteLunaClientResponse = DeleteLunaClientResponse
     { _dlcrStatus :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteLunaClientResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/DescribeHapg.hs b/gen/Network/AWS/CloudHSM/DescribeHapg.hs
--- a/gen/Network/AWS/CloudHSM/DescribeHapg.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHapg.hs
@@ -57,7 +57,7 @@
 
 newtype DescribeHapg = DescribeHapg
     { _dh1HapgArn :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeHapg' constructor.
 --
@@ -85,7 +85,7 @@
     , _dhrLastModifiedTimestamp   :: Maybe Text
     , _dhrPartitionSerialList     :: List "PartitionSerialList" Text
     , _dhrState                   :: Maybe CloudHsmObjectState
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeHapgResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/DescribeHsm.hs b/gen/Network/AWS/CloudHSM/DescribeHsm.hs
--- a/gen/Network/AWS/CloudHSM/DescribeHsm.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeHsm.hs
@@ -72,7 +72,7 @@
 data DescribeHsm = DescribeHsm
     { _dh1HsmArn          :: Maybe Text
     , _dh1HsmSerialNumber :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeHsm' constructor.
 --
@@ -121,7 +121,7 @@
     , _dhr2SubscriptionType      :: Maybe SubscriptionType
     , _dhr2VendorName            :: Maybe Text
     , _dhr2VpcId                 :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeHsmResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/DescribeLunaClient.hs
@@ -55,7 +55,7 @@
 data DescribeLunaClient = DescribeLunaClient
     { _dlcCertificateFingerprint :: Maybe Text
     , _dlcClientArn              :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeLunaClient' constructor.
 --
@@ -87,7 +87,7 @@
     , _dlcrClientArn              :: Maybe Text
     , _dlcrLabel                  :: Maybe Text
     , _dlcrLastModifiedTimestamp  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeLunaClientResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/GetConfig.hs b/gen/Network/AWS/CloudHSM/GetConfig.hs
--- a/gen/Network/AWS/CloudHSM/GetConfig.hs
+++ b/gen/Network/AWS/CloudHSM/GetConfig.hs
@@ -56,7 +56,7 @@
     { _gcClientArn     :: Text
     , _gcClientVersion :: ClientVersion
     , _gcHapgList      :: List "HapgList" Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'GetConfig' constructor.
 --
@@ -94,7 +94,7 @@
     { _gcrConfigCred :: Maybe Text
     , _gcrConfigFile :: Maybe Text
     , _gcrConfigType :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GetConfigResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
--- a/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
+++ b/gen/Network/AWS/CloudHSM/ListAvailableZones.hs
@@ -46,7 +46,7 @@
 import qualified GHC.Exts
 
 data ListAvailableZones = ListAvailableZones
-    deriving (Eq, Ord, Show, Generic)
+    deriving (Eq, Ord, Read, Show, Generic)
 
 -- | 'ListAvailableZones' constructor.
 listAvailableZones :: ListAvailableZones
@@ -54,7 +54,7 @@
 
 newtype ListAvailableZonesResponse = ListAvailableZonesResponse
     { _lazrAZList :: List "AZList" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList ListAvailableZonesResponse where
     type Item ListAvailableZonesResponse = Text
diff --git a/gen/Network/AWS/CloudHSM/ListHapgs.hs b/gen/Network/AWS/CloudHSM/ListHapgs.hs
--- a/gen/Network/AWS/CloudHSM/ListHapgs.hs
+++ b/gen/Network/AWS/CloudHSM/ListHapgs.hs
@@ -55,7 +55,7 @@
 
 newtype ListHapgs = ListHapgs
     { _lhNextToken :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ListHapgs' constructor.
 --
@@ -76,7 +76,7 @@
 data ListHapgsResponse = ListHapgsResponse
     { _lhr1HapgList  :: List "HapgList" Text
     , _lhr1NextToken :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListHapgsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/ListHsms.hs b/gen/Network/AWS/CloudHSM/ListHsms.hs
--- a/gen/Network/AWS/CloudHSM/ListHsms.hs
+++ b/gen/Network/AWS/CloudHSM/ListHsms.hs
@@ -56,7 +56,7 @@
 
 newtype ListHsms = ListHsms
     { _lh1NextToken :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ListHsms' constructor.
 --
@@ -77,7 +77,7 @@
 data ListHsmsResponse = ListHsmsResponse
     { _lhrHsmList   :: List "HsmList" Text
     , _lhrNextToken :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListHsmsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/ListLunaClients.hs b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
--- a/gen/Network/AWS/CloudHSM/ListLunaClients.hs
+++ b/gen/Network/AWS/CloudHSM/ListLunaClients.hs
@@ -55,7 +55,7 @@
 
 newtype ListLunaClients = ListLunaClients
     { _llcNextToken :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ListLunaClients' constructor.
 --
@@ -76,7 +76,7 @@
 data ListLunaClientsResponse = ListLunaClientsResponse
     { _llcrClientList :: List "ClientList" Text
     , _llcrNextToken  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListLunaClientsResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/ModifyHapg.hs b/gen/Network/AWS/CloudHSM/ModifyHapg.hs
--- a/gen/Network/AWS/CloudHSM/ModifyHapg.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHapg.hs
@@ -53,7 +53,7 @@
     { _mhHapgArn             :: Text
     , _mhLabel               :: Maybe Text
     , _mhPartitionSerialList :: List "PartitionSerialList" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyHapg' constructor.
 --
@@ -90,7 +90,7 @@
 
 newtype ModifyHapgResponse = ModifyHapgResponse
     { _mhrHapgArn :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ModifyHapgResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/ModifyHsm.hs b/gen/Network/AWS/CloudHSM/ModifyHsm.hs
--- a/gen/Network/AWS/CloudHSM/ModifyHsm.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyHsm.hs
@@ -59,7 +59,7 @@
     , _mhIamRoleArn :: Maybe Text
     , _mhSubnetId   :: Maybe Text
     , _mhSyslogIp   :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyHsm' constructor.
 --
@@ -114,7 +114,7 @@
 
 newtype ModifyHsmResponse = ModifyHsmResponse
     { _mhrHsmArn :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ModifyHsmResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
--- a/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
+++ b/gen/Network/AWS/CloudHSM/ModifyLunaClient.hs
@@ -54,7 +54,7 @@
 data ModifyLunaClient = ModifyLunaClient
     { _mlcCertificate :: Text
     , _mlcClientArn   :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ModifyLunaClient' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype ModifyLunaClientResponse = ModifyLunaClientResponse
     { _mlcrClientArn :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ModifyLunaClientResponse' constructor.
 --
diff --git a/gen/Network/AWS/CloudHSM/Types.hs b/gen/Network/AWS/CloudHSM/Types.hs
--- a/gen/Network/AWS/CloudHSM/Types.hs
+++ b/gen/Network/AWS/CloudHSM/Types.hs
@@ -92,7 +92,7 @@
     = Degraded -- ^ DEGRADED
     | Ready    -- ^ READY
     | Updating -- ^ UPDATING
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable CloudHsmObjectState
 
@@ -122,7 +122,7 @@
 
 data SubscriptionType
     = Production -- ^ PRODUCTION
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable SubscriptionType
 
@@ -153,7 +153,7 @@
     | HSTerminated  -- ^ TERMINATED
     | HSTerminating -- ^ TERMINATING
     | HSUpdating    -- ^ UPDATING
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable HsmStatus
 
@@ -192,7 +192,7 @@
 data ClientVersion
     = V51 -- ^ 5.1
     | V53 -- ^ 5.3
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ClientVersion