diff --git a/amazonka-storagegateway.cabal b/amazonka-storagegateway.cabal
--- a/amazonka-storagegateway.cabal
+++ b/amazonka-storagegateway.cabal
@@ -1,5 +1,5 @@
 name:                  amazonka-storagegateway
-version:               0.2.1
+version:               0.2.2
 synopsis:              Amazon Storage Gateway SDK.
 homepage:              https://github.com/brendanhay/amazonka
 license:               OtherLicense
@@ -89,5 +89,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/StorageGateway/ActivateGateway.hs b/gen/Network/AWS/StorageGateway/ActivateGateway.hs
--- a/gen/Network/AWS/StorageGateway/ActivateGateway.hs
+++ b/gen/Network/AWS/StorageGateway/ActivateGateway.hs
@@ -69,7 +69,7 @@
     , _agGatewayType       :: Maybe Text
     , _agMediumChangerType :: Maybe Text
     , _agTapeDriveType     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ActivateGateway' constructor.
 --
@@ -158,7 +158,7 @@
 
 newtype ActivateGatewayResponse = ActivateGatewayResponse
     { _agrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ActivateGatewayResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/AddCache.hs b/gen/Network/AWS/StorageGateway/AddCache.hs
--- a/gen/Network/AWS/StorageGateway/AddCache.hs
+++ b/gen/Network/AWS/StorageGateway/AddCache.hs
@@ -57,7 +57,7 @@
 data AddCache = AddCache
     { _acDiskIds    :: List "DiskIds" Text
     , _acGatewayARN :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AddCache' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype AddCacheResponse = AddCacheResponse
     { _acrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'AddCacheResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs b/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs
--- a/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs
+++ b/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs
@@ -57,7 +57,7 @@
 data AddUploadBuffer = AddUploadBuffer
     { _aubDiskIds    :: List "DiskIds" Text
     , _aubGatewayARN :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AddUploadBuffer' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype AddUploadBufferResponse = AddUploadBufferResponse
     { _aubrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'AddUploadBufferResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs b/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs
--- a/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs
+++ b/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs
@@ -60,7 +60,7 @@
 data AddWorkingStorage = AddWorkingStorage
     { _awsDiskIds    :: List "DiskIds" Text
     , _awsGatewayARN :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'AddWorkingStorage' constructor.
 --
@@ -88,7 +88,7 @@
 
 newtype AddWorkingStorageResponse = AddWorkingStorageResponse
     { _awsrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'AddWorkingStorageResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/CancelArchival.hs b/gen/Network/AWS/StorageGateway/CancelArchival.hs
--- a/gen/Network/AWS/StorageGateway/CancelArchival.hs
+++ b/gen/Network/AWS/StorageGateway/CancelArchival.hs
@@ -52,7 +52,7 @@
 data CancelArchival = CancelArchival
     { _caGatewayARN :: Text
     , _caTapeARN    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CancelArchival' constructor.
 --
@@ -80,7 +80,7 @@
 
 newtype CancelArchivalResponse = CancelArchivalResponse
     { _carTapeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CancelArchivalResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/CancelRetrieval.hs b/gen/Network/AWS/StorageGateway/CancelRetrieval.hs
--- a/gen/Network/AWS/StorageGateway/CancelRetrieval.hs
+++ b/gen/Network/AWS/StorageGateway/CancelRetrieval.hs
@@ -53,7 +53,7 @@
 data CancelRetrieval = CancelRetrieval
     { _crGatewayARN :: Text
     , _crTapeARN    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CancelRetrieval' constructor.
 --
@@ -81,7 +81,7 @@
 
 newtype CancelRetrievalResponse = CancelRetrievalResponse
     { _crrTapeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'CancelRetrievalResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs b/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs
--- a/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs
+++ b/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs
@@ -70,7 +70,7 @@
     , _ccscsivSnapshotId         :: Maybe Text
     , _ccscsivTargetName         :: Text
     , _ccscsivVolumeSizeInBytes  :: Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateCachediSCSIVolume' constructor.
 --
@@ -132,7 +132,7 @@
 data CreateCachediSCSIVolumeResponse = CreateCachediSCSIVolumeResponse
     { _ccscsivrTargetARN :: Maybe Text
     , _ccscsivrVolumeARN :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateCachediSCSIVolumeResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/CreateSnapshot.hs b/gen/Network/AWS/StorageGateway/CreateSnapshot.hs
--- a/gen/Network/AWS/StorageGateway/CreateSnapshot.hs
+++ b/gen/Network/AWS/StorageGateway/CreateSnapshot.hs
@@ -70,7 +70,7 @@
 data CreateSnapshot = CreateSnapshot
     { _csSnapshotDescription :: Text
     , _csVolumeARN           :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateSnapshot' constructor.
 --
@@ -103,7 +103,7 @@
 data CreateSnapshotResponse = CreateSnapshotResponse
     { _csrSnapshotId :: Maybe Text
     , _csrVolumeARN  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateSnapshotResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs b/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs
--- a/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs
+++ b/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs
@@ -73,7 +73,7 @@
 data CreateSnapshotFromVolumeRecoveryPoint = CreateSnapshotFromVolumeRecoveryPoint
     { _csfvrpSnapshotDescription :: Text
     , _csfvrpVolumeARN           :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateSnapshotFromVolumeRecoveryPoint' constructor.
 --
@@ -103,7 +103,7 @@
     { _csfvrprSnapshotId              :: Maybe Text
     , _csfvrprVolumeARN               :: Maybe Text
     , _csfvrprVolumeRecoveryPointTime :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateSnapshotFromVolumeRecoveryPointResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs b/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs
--- a/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs
+++ b/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs
@@ -73,7 +73,7 @@
     , _csscsivPreserveExistingData :: Bool
     , _csscsivSnapshotId           :: Maybe Text
     , _csscsivTargetName           :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateStorediSCSIVolume' constructor.
 --
@@ -154,7 +154,7 @@
     { _csscsivrTargetARN         :: Maybe Text
     , _csscsivrVolumeARN         :: Maybe Text
     , _csscsivrVolumeSizeInBytes :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateStorediSCSIVolumeResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/CreateTapes.hs b/gen/Network/AWS/StorageGateway/CreateTapes.hs
--- a/gen/Network/AWS/StorageGateway/CreateTapes.hs
+++ b/gen/Network/AWS/StorageGateway/CreateTapes.hs
@@ -61,7 +61,7 @@
     , _ctNumTapesToCreate  :: Nat
     , _ctTapeBarcodePrefix :: Text
     , _ctTapeSizeInBytes   :: Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'CreateTapes' constructor.
 --
@@ -128,7 +128,7 @@
 
 newtype CreateTapesResponse = CreateTapesResponse
     { _ctrTapeARNs :: List "TapeARNs" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList CreateTapesResponse where
     type Item CreateTapesResponse = Text
diff --git a/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs b/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs
--- a/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs
+++ b/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs
@@ -55,7 +55,7 @@
 data DeleteBandwidthRateLimit = DeleteBandwidthRateLimit
     { _dbrl1BandwidthType :: Text
     , _dbrl1GatewayARN    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteBandwidthRateLimit' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype DeleteBandwidthRateLimitResponse = DeleteBandwidthRateLimitResponse
     { _dbrlr1GatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DeleteBandwidthRateLimitResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs b/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs
--- a/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs
+++ b/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs
@@ -53,7 +53,7 @@
 data DeleteChapCredentials = DeleteChapCredentials
     { _dcc1InitiatorName :: Text
     , _dcc1TargetARN     :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteChapCredentials' constructor.
 --
@@ -83,7 +83,7 @@
 data DeleteChapCredentialsResponse = DeleteChapCredentialsResponse
     { _dccrInitiatorName :: Maybe Text
     , _dccrTargetARN     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteChapCredentialsResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DeleteGateway.hs b/gen/Network/AWS/StorageGateway/DeleteGateway.hs
--- a/gen/Network/AWS/StorageGateway/DeleteGateway.hs
+++ b/gen/Network/AWS/StorageGateway/DeleteGateway.hs
@@ -66,7 +66,7 @@
 
 newtype DeleteGateway = DeleteGateway
     { _dgGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteGateway' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype DeleteGatewayResponse = DeleteGatewayResponse
     { _dgrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DeleteGatewayResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs b/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs
--- a/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs
+++ b/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs
@@ -58,7 +58,7 @@
 
 newtype DeleteSnapshotSchedule = DeleteSnapshotSchedule
     { _dss1VolumeARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteSnapshotSchedule' constructor.
 --
@@ -77,7 +77,7 @@
 
 newtype DeleteSnapshotScheduleResponse = DeleteSnapshotScheduleResponse
     { _dssr1VolumeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DeleteSnapshotScheduleResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DeleteTape.hs b/gen/Network/AWS/StorageGateway/DeleteTape.hs
--- a/gen/Network/AWS/StorageGateway/DeleteTape.hs
+++ b/gen/Network/AWS/StorageGateway/DeleteTape.hs
@@ -51,7 +51,7 @@
 data DeleteTape = DeleteTape
     { _dt1GatewayARN :: Text
     , _dt1TapeARN    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeleteTape' constructor.
 --
@@ -81,7 +81,7 @@
 
 newtype DeleteTapeResponse = DeleteTapeResponse
     { _dtrTapeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DeleteTapeResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs b/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs
--- a/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs
+++ b/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs
@@ -49,7 +49,7 @@
 
 newtype DeleteTapeArchive = DeleteTapeArchive
     { _dtaTapeARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteTapeArchive' constructor.
 --
@@ -70,7 +70,7 @@
 
 newtype DeleteTapeArchiveResponse = DeleteTapeArchiveResponse
     { _dtarTapeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DeleteTapeArchiveResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DeleteVolume.hs b/gen/Network/AWS/StorageGateway/DeleteVolume.hs
--- a/gen/Network/AWS/StorageGateway/DeleteVolume.hs
+++ b/gen/Network/AWS/StorageGateway/DeleteVolume.hs
@@ -61,7 +61,7 @@
 
 newtype DeleteVolume = DeleteVolume
     { _dvVolumeARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DeleteVolume' constructor.
 --
@@ -82,7 +82,7 @@
 
 newtype DeleteVolumeResponse = DeleteVolumeResponse
     { _dvrVolumeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DeleteVolumeResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs b/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs
--- a/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs
@@ -58,7 +58,7 @@
 
 newtype DescribeBandwidthRateLimit = DescribeBandwidthRateLimit
     { _dbrlGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeBandwidthRateLimit' constructor.
 --
@@ -79,7 +79,7 @@
     { _dbrlrAverageDownloadRateLimitInBitsPerSec :: Maybe Nat
     , _dbrlrAverageUploadRateLimitInBitsPerSec   :: Maybe Nat
     , _dbrlrGatewayARN                           :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeBandwidthRateLimitResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeCache.hs b/gen/Network/AWS/StorageGateway/DescribeCache.hs
--- a/gen/Network/AWS/StorageGateway/DescribeCache.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeCache.hs
@@ -59,7 +59,7 @@
 
 newtype DescribeCache = DescribeCache
     { _dcGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeCache' constructor.
 --
@@ -84,7 +84,7 @@
     , _dcrCacheUsedPercentage   :: Maybe Double
     , _dcrDiskIds               :: List "DiskIds" Text
     , _dcrGatewayARN            :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeCacheResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs b/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs
--- a/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs
@@ -55,7 +55,7 @@
 
 newtype DescribeCachediSCSIVolumes = DescribeCachediSCSIVolumes
     { _dcscsivVolumeARNs :: List "VolumeARNs" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeCachediSCSIVolumes where
     type Item DescribeCachediSCSIVolumes = Text
@@ -81,7 +81,7 @@
 
 newtype DescribeCachediSCSIVolumesResponse = DescribeCachediSCSIVolumesResponse
     { _dcscsivrCachediSCSIVolumes :: List "CachediSCSIVolumes" CachediSCSIVolume
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeCachediSCSIVolumesResponse where
     type Item DescribeCachediSCSIVolumesResponse = CachediSCSIVolume
diff --git a/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs b/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs
--- a/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs
@@ -51,7 +51,7 @@
 
 newtype DescribeChapCredentials = DescribeChapCredentials
     { _dccTargetARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeChapCredentials' constructor.
 --
@@ -71,7 +71,7 @@
 
 newtype DescribeChapCredentialsResponse = DescribeChapCredentialsResponse
     { _dccrChapCredentials :: List "ChapCredentials" ChapInfo
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeChapCredentialsResponse where
     type Item DescribeChapCredentialsResponse = ChapInfo
diff --git a/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs b/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs
--- a/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs
@@ -58,7 +58,7 @@
 
 newtype DescribeGatewayInformation = DescribeGatewayInformation
     { _dgiGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeGatewayInformation' constructor.
 --
@@ -83,7 +83,7 @@
     , _dgirGatewayTimezone            :: Maybe Text
     , _dgirGatewayType                :: Maybe Text
     , _dgirNextUpdateAvailabilityDate :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeGatewayInformationResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs b/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs
--- a/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs
@@ -55,7 +55,7 @@
 
 newtype DescribeMaintenanceStartTime = DescribeMaintenanceStartTime
     { _dmstGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeMaintenanceStartTime' constructor.
 --
@@ -78,7 +78,7 @@
     , _dmstrHourOfDay    :: Maybe Nat
     , _dmstrMinuteOfHour :: Maybe Nat
     , _dmstrTimezone     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeMaintenanceStartTimeResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs b/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs
--- a/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs
@@ -55,7 +55,7 @@
 
 newtype DescribeSnapshotSchedule = DescribeSnapshotSchedule
     { _dssVolumeARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeSnapshotSchedule' constructor.
 --
@@ -80,7 +80,7 @@
     , _dssrStartAt           :: Maybe Nat
     , _dssrTimezone          :: Maybe Text
     , _dssrVolumeARN         :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeSnapshotScheduleResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs b/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs
--- a/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs
@@ -52,7 +52,7 @@
 
 newtype DescribeStorediSCSIVolumes = DescribeStorediSCSIVolumes
     { _dsscsivVolumeARNs :: List "VolumeARNs" Text
-    } deriving (Eq, Ord, Show, Monoid, Semigroup)
+    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeStorediSCSIVolumes where
     type Item DescribeStorediSCSIVolumes = Text
@@ -81,7 +81,7 @@
 
 newtype DescribeStorediSCSIVolumesResponse = DescribeStorediSCSIVolumesResponse
     { _dsscsivrStorediSCSIVolumes :: List "StorediSCSIVolumes" StorediSCSIVolume
-    } deriving (Eq, Show, Monoid, Semigroup)
+    } deriving (Eq, Read, Show, Monoid, Semigroup)
 
 instance GHC.Exts.IsList DescribeStorediSCSIVolumesResponse where
     type Item DescribeStorediSCSIVolumesResponse = StorediSCSIVolume
diff --git a/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs b/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs
--- a/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs
@@ -59,7 +59,7 @@
     { _dtaLimit    :: Maybe Nat
     , _dtaMarker   :: Maybe Text
     , _dtaTapeARNs :: List "TapeARNs" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeTapeArchives' constructor.
 --
@@ -96,7 +96,7 @@
 data DescribeTapeArchivesResponse = DescribeTapeArchivesResponse
     { _dtarMarker       :: Maybe Text
     , _dtarTapeArchives :: List "TapeArchives" TapeArchive
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeTapeArchivesResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs b/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs
--- a/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs
@@ -60,7 +60,7 @@
     { _dtrpGatewayARN :: Text
     , _dtrpLimit      :: Maybe Nat
     , _dtrpMarker     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeTapeRecoveryPoints' constructor.
 --
@@ -97,7 +97,7 @@
     { _dtrprGatewayARN             :: Maybe Text
     , _dtrprMarker                 :: Maybe Text
     , _dtrprTapeRecoveryPointInfos :: List "TapeRecoveryPointInfos" TapeRecoveryPointInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeTapeRecoveryPointsResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeTapes.hs b/gen/Network/AWS/StorageGateway/DescribeTapes.hs
--- a/gen/Network/AWS/StorageGateway/DescribeTapes.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeTapes.hs
@@ -58,7 +58,7 @@
     , _dtLimit      :: Maybe Nat
     , _dtMarker     :: Maybe Text
     , _dtTapeARNs   :: List "TapeARNs" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeTapes' constructor.
 --
@@ -108,7 +108,7 @@
 data DescribeTapesResponse = DescribeTapesResponse
     { _dtrMarker :: Maybe Text
     , _dtrTapes  :: List "Tapes" Tape
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeTapesResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs b/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs
--- a/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs
@@ -57,7 +57,7 @@
 
 newtype DescribeUploadBuffer = DescribeUploadBuffer
     { _dubGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeUploadBuffer' constructor.
 --
@@ -79,7 +79,7 @@
     , _dubrGatewayARN                   :: Maybe Text
     , _dubrUploadBufferAllocatedInBytes :: Maybe Integer
     , _dubrUploadBufferUsedInBytes      :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeUploadBufferResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs b/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs
--- a/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs
@@ -60,7 +60,7 @@
     , _dvtldLimit         :: Maybe Nat
     , _dvtldMarker        :: Maybe Text
     , _dvtldVTLDeviceARNs :: List "VTLDeviceARNs" Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeVTLDevices' constructor.
 --
@@ -111,7 +111,7 @@
     { _dvtldrGatewayARN :: Maybe Text
     , _dvtldrMarker     :: Maybe Text
     , _dvtldrVTLDevices :: List "VTLDevices" VTLDevice
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'DescribeVTLDevicesResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs b/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs
--- a/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs
+++ b/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs
@@ -62,7 +62,7 @@
 
 newtype DescribeWorkingStorage = DescribeWorkingStorage
     { _dwsGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DescribeWorkingStorage' constructor.
 --
@@ -84,7 +84,7 @@
     , _dwsrGatewayARN                     :: Maybe Text
     , _dwsrWorkingStorageAllocatedInBytes :: Maybe Integer
     , _dwsrWorkingStorageUsedInBytes      :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DescribeWorkingStorageResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/DisableGateway.hs b/gen/Network/AWS/StorageGateway/DisableGateway.hs
--- a/gen/Network/AWS/StorageGateway/DisableGateway.hs
+++ b/gen/Network/AWS/StorageGateway/DisableGateway.hs
@@ -56,7 +56,7 @@
 
 newtype DisableGateway = DisableGateway
     { _dg1GatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'DisableGateway' constructor.
 --
@@ -75,7 +75,7 @@
 
 newtype DisableGatewayResponse = DisableGatewayResponse
     { _dgr1GatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'DisableGatewayResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/ListGateways.hs b/gen/Network/AWS/StorageGateway/ListGateways.hs
--- a/gen/Network/AWS/StorageGateway/ListGateways.hs
+++ b/gen/Network/AWS/StorageGateway/ListGateways.hs
@@ -63,7 +63,7 @@
 data ListGateways = ListGateways
     { _lgLimit  :: Maybe Nat
     , _lgMarker :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListGateways' constructor.
 --
@@ -92,7 +92,7 @@
 data ListGatewaysResponse = ListGatewaysResponse
     { _lgrGateways :: List "Gateways" GatewayInfo
     , _lgrMarker   :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListGatewaysResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/ListLocalDisks.hs b/gen/Network/AWS/StorageGateway/ListLocalDisks.hs
--- a/gen/Network/AWS/StorageGateway/ListLocalDisks.hs
+++ b/gen/Network/AWS/StorageGateway/ListLocalDisks.hs
@@ -59,7 +59,7 @@
 
 newtype ListLocalDisks = ListLocalDisks
     { _lldGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'ListLocalDisks' constructor.
 --
@@ -79,7 +79,7 @@
 data ListLocalDisksResponse = ListLocalDisksResponse
     { _lldrDisks      :: List "Disks" Disk
     , _lldrGatewayARN :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListLocalDisksResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs b/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs
--- a/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs
+++ b/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs
@@ -56,7 +56,7 @@
 
 newtype ListVolumeRecoveryPoints = ListVolumeRecoveryPoints
     { _lvrpGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'ListVolumeRecoveryPoints' constructor.
 --
@@ -76,7 +76,7 @@
 data ListVolumeRecoveryPointsResponse = ListVolumeRecoveryPointsResponse
     { _lvrprGatewayARN               :: Maybe Text
     , _lvrprVolumeRecoveryPointInfos :: List "VolumeRecoveryPointInfos" VolumeRecoveryPointInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListVolumeRecoveryPointsResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/ListVolumes.hs b/gen/Network/AWS/StorageGateway/ListVolumes.hs
--- a/gen/Network/AWS/StorageGateway/ListVolumes.hs
+++ b/gen/Network/AWS/StorageGateway/ListVolumes.hs
@@ -64,7 +64,7 @@
     { _lvGatewayARN :: Text
     , _lvLimit      :: Maybe Nat
     , _lvMarker     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ListVolumes' constructor.
 --
@@ -102,7 +102,7 @@
     { _lvrGatewayARN  :: Maybe Text
     , _lvrMarker      :: Maybe Text
     , _lvrVolumeInfos :: List "VolumeInfos" VolumeInfo
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'ListVolumesResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/ResetCache.hs b/gen/Network/AWS/StorageGateway/ResetCache.hs
--- a/gen/Network/AWS/StorageGateway/ResetCache.hs
+++ b/gen/Network/AWS/StorageGateway/ResetCache.hs
@@ -52,7 +52,7 @@
 
 newtype ResetCache = ResetCache
     { _rcGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'ResetCache' constructor.
 --
@@ -71,7 +71,7 @@
 
 newtype ResetCacheResponse = ResetCacheResponse
     { _rcrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ResetCacheResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs b/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs
--- a/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs
+++ b/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs
@@ -58,7 +58,7 @@
 data RetrieveTapeArchive = RetrieveTapeArchive
     { _rtaGatewayARN :: Text
     , _rtaTapeARN    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RetrieveTapeArchive' constructor.
 --
@@ -92,7 +92,7 @@
 
 newtype RetrieveTapeArchiveResponse = RetrieveTapeArchiveResponse
     { _rtarTapeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'RetrieveTapeArchiveResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs b/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs
--- a/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs
+++ b/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs
@@ -59,7 +59,7 @@
 data RetrieveTapeRecoveryPoint = RetrieveTapeRecoveryPoint
     { _rtrpGatewayARN :: Text
     , _rtrpTapeARN    :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'RetrieveTapeRecoveryPoint' constructor.
 --
@@ -87,7 +87,7 @@
 
 newtype RetrieveTapeRecoveryPointResponse = RetrieveTapeRecoveryPointResponse
     { _rtrprTapeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'RetrieveTapeRecoveryPointResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/ShutdownGateway.hs b/gen/Network/AWS/StorageGateway/ShutdownGateway.hs
--- a/gen/Network/AWS/StorageGateway/ShutdownGateway.hs
+++ b/gen/Network/AWS/StorageGateway/ShutdownGateway.hs
@@ -66,7 +66,7 @@
 
 newtype ShutdownGateway = ShutdownGateway
     { _sg1GatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'ShutdownGateway' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype ShutdownGatewayResponse = ShutdownGatewayResponse
     { _sgr1GatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'ShutdownGatewayResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/StartGateway.hs b/gen/Network/AWS/StorageGateway/StartGateway.hs
--- a/gen/Network/AWS/StorageGateway/StartGateway.hs
+++ b/gen/Network/AWS/StorageGateway/StartGateway.hs
@@ -57,7 +57,7 @@
 
 newtype StartGateway = StartGateway
     { _sgGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'StartGateway' constructor.
 --
@@ -76,7 +76,7 @@
 
 newtype StartGatewayResponse = StartGatewayResponse
     { _sgrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'StartGatewayResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/Types.hs b/gen/Network/AWS/StorageGateway/Types.hs
--- a/gen/Network/AWS/StorageGateway/Types.hs
+++ b/gen/Network/AWS/StorageGateway/Types.hs
@@ -218,7 +218,7 @@
     , _ciSecretToAuthenticateInitiator :: Maybe Text
     , _ciSecretToAuthenticateTarget    :: Maybe Text
     , _ciTargetARN                     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'ChapInfo' constructor.
 --
@@ -286,7 +286,7 @@
     , _vscsiaNetworkInterfaceId   :: Maybe Text
     , _vscsiaNetworkInterfacePort :: Maybe Int
     , _vscsiaTargetARN            :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'VolumeiSCSIAttributes' constructor.
 --
@@ -358,7 +358,7 @@
     , _dscsiaNetworkInterfaceId   :: Maybe Text
     , _dscsiaNetworkInterfacePort :: Maybe Int
     , _dscsiaTargetARN            :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'DeviceiSCSIAttributes' constructor.
 --
@@ -420,7 +420,7 @@
 data Error' = Error'
     { _eErrorCode    :: Maybe ErrorCode
     , _eErrorDetails :: Map Text Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'Error'' constructor.
 --
@@ -463,7 +463,7 @@
     , _dDiskPath               :: Maybe Text
     , _dDiskSizeInBytes        :: Maybe Integer
     , _dDiskStatus             :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Disk' constructor.
 --
@@ -545,7 +545,7 @@
     , _tTapeSizeInBytes :: Maybe Integer
     , _tTapeStatus      :: Maybe Text
     , _tVTLDevice       :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'Tape' constructor.
 --
@@ -624,7 +624,7 @@
     { _niIpv4Address :: Maybe Text
     , _niIpv6Address :: Maybe Text
     , _niMacAddress  :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'NetworkInterface' constructor.
 --
@@ -676,7 +676,7 @@
     , _vtldVTLDeviceProductIdentifier :: Maybe Text
     , _vtldVTLDeviceType              :: Maybe Text
     , _vtldVTLDeviceVendor            :: Maybe Text
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'VTLDevice' constructor.
 --
@@ -747,7 +747,7 @@
     , _trpiTapeRecoveryPointTime :: Maybe POSIX
     , _trpiTapeSizeInBytes       :: Maybe Integer
     , _trpiTapeStatus            :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TapeRecoveryPointInfo' constructor.
 --
@@ -812,7 +812,7 @@
     , _vrpiVolumeRecoveryPointTime :: Maybe Text
     , _vrpiVolumeSizeInBytes       :: Maybe Integer
     , _vrpiVolumeUsageInBytes      :: Maybe Integer
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'VolumeRecoveryPointInfo' constructor.
 --
@@ -872,7 +872,7 @@
     , _taTapeBarcode     :: Maybe Text
     , _taTapeSizeInBytes :: Maybe Integer
     , _taTapeStatus      :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'TapeArchive' constructor.
 --
@@ -1012,7 +1012,7 @@
     | VolumeInUse                       -- ^ VolumeInUse
     | VolumeNotFound                    -- ^ VolumeNotFound
     | VolumeNotReady                    -- ^ VolumeNotReady
-      deriving (Eq, Ord, Show, Generic, Enum)
+      deriving (Eq, Ord, Read, Show, Generic, Enum)
 
 instance Hashable ErrorCode
 
@@ -1167,7 +1167,7 @@
     , _sscsivVolumeStatus          :: Maybe Text
     , _sscsivVolumeType            :: Maybe Text
     , _sscsivVolumeiSCSIAttributes :: Maybe VolumeiSCSIAttributes
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'StorediSCSIVolume' constructor.
 --
@@ -1282,7 +1282,7 @@
     , _cscsivVolumeStatus          :: Maybe Text
     , _cscsivVolumeType            :: Maybe Text
     , _cscsivVolumeiSCSIAttributes :: Maybe VolumeiSCSIAttributes
-    } deriving (Eq, Show)
+    } deriving (Eq, Read, Show)
 
 -- | 'CachediSCSIVolume' constructor.
 --
@@ -1372,7 +1372,7 @@
 data VolumeInfo = VolumeInfo
     { _viVolumeARN  :: Maybe Text
     , _viVolumeType :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'VolumeInfo' constructor.
 --
@@ -1409,7 +1409,7 @@
     { _giGatewayARN              :: Maybe Text
     , _giGatewayOperationalState :: Maybe Text
     , _giGatewayType             :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'GatewayInfo' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs b/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs
--- a/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs
+++ b/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs
@@ -62,7 +62,7 @@
     { _ubrlAverageDownloadRateLimitInBitsPerSec :: Maybe Nat
     , _ubrlAverageUploadRateLimitInBitsPerSec   :: Maybe Nat
     , _ubrlGatewayARN                           :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateBandwidthRateLimit' constructor.
 --
@@ -101,7 +101,7 @@
 
 newtype UpdateBandwidthRateLimitResponse = UpdateBandwidthRateLimitResponse
     { _ubrlrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'UpdateBandwidthRateLimitResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs b/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs
--- a/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs
+++ b/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs
@@ -63,7 +63,7 @@
     , _uccSecretToAuthenticateInitiator :: Text
     , _uccSecretToAuthenticateTarget    :: Maybe Text
     , _uccTargetARN                     :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateChapCredentials' constructor.
 --
@@ -113,7 +113,7 @@
 data UpdateChapCredentialsResponse = UpdateChapCredentialsResponse
     { _uccrInitiatorName :: Maybe Text
     , _uccrTargetARN     :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateChapCredentialsResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs b/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs
--- a/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs
+++ b/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs
@@ -55,7 +55,7 @@
     { _ugiGatewayARN      :: Text
     , _ugiGatewayName     :: Maybe Text
     , _ugiGatewayTimezone :: Maybe Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateGatewayInformation' constructor.
 --
@@ -87,7 +87,7 @@
 
 newtype UpdateGatewayInformationResponse = UpdateGatewayInformationResponse
     { _ugirGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'UpdateGatewayInformationResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs b/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs
--- a/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs
+++ b/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs
@@ -57,7 +57,7 @@
 
 newtype UpdateGatewaySoftwareNow = UpdateGatewaySoftwareNow
     { _ugsnGatewayARN :: Text
-    } deriving (Eq, Ord, Show, Monoid, IsString)
+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)
 
 -- | 'UpdateGatewaySoftwareNow' constructor.
 --
@@ -76,7 +76,7 @@
 
 newtype UpdateGatewaySoftwareNowResponse = UpdateGatewaySoftwareNowResponse
     { _ugsnrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'UpdateGatewaySoftwareNowResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs b/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs
--- a/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs
+++ b/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs
@@ -57,7 +57,7 @@
     , _umstGatewayARN   :: Text
     , _umstHourOfDay    :: Nat
     , _umstMinuteOfHour :: Nat
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateMaintenanceStartTime' constructor.
 --
@@ -104,7 +104,7 @@
 
 newtype UpdateMaintenanceStartTimeResponse = UpdateMaintenanceStartTimeResponse
     { _umstrGatewayARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'UpdateMaintenanceStartTimeResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs b/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs
--- a/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs
+++ b/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs
@@ -63,7 +63,7 @@
     , _ussRecurrenceInHours :: Nat
     , _ussStartAt           :: Nat
     , _ussVolumeARN         :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateSnapshotSchedule' constructor.
 --
@@ -111,7 +111,7 @@
 
 newtype UpdateSnapshotScheduleResponse = UpdateSnapshotScheduleResponse
     { _ussrVolumeARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'UpdateSnapshotScheduleResponse' constructor.
 --
diff --git a/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs b/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs
--- a/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs
+++ b/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs
@@ -54,7 +54,7 @@
 data UpdateVTLDeviceType = UpdateVTLDeviceType
     { _uvtldtDeviceType   :: Text
     , _uvtldtVTLDeviceARN :: Text
-    } deriving (Eq, Ord, Show)
+    } deriving (Eq, Ord, Read, Show)
 
 -- | 'UpdateVTLDeviceType' constructor.
 --
@@ -85,7 +85,7 @@
 
 newtype UpdateVTLDeviceTypeResponse = UpdateVTLDeviceTypeResponse
     { _uvtldtrVTLDeviceARN :: Maybe Text
-    } deriving (Eq, Ord, Show, Monoid)
+    } deriving (Eq, Ord, Read, Show, Monoid)
 
 -- | 'UpdateVTLDeviceTypeResponse' constructor.
 --