amazonka-storagegateway 0.2.1 → 0.2.2

raw patch · 51 files changed

+116/−116 lines, 51 filesdep ~amazonka-corePVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-storagegateway.cabal +2/−2
• gen/Network/AWS/StorageGateway/ActivateGateway.hs +2/−2
• gen/Network/AWS/StorageGateway/AddCache.hs +2/−2
• gen/Network/AWS/StorageGateway/AddUploadBuffer.hs +2/−2
• gen/Network/AWS/StorageGateway/AddWorkingStorage.hs +2/−2
• gen/Network/AWS/StorageGateway/CancelArchival.hs +2/−2
• gen/Network/AWS/StorageGateway/CancelRetrieval.hs +2/−2
• gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs +2/−2
• gen/Network/AWS/StorageGateway/CreateSnapshot.hs +2/−2
• gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs +2/−2
• gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs +2/−2
• gen/Network/AWS/StorageGateway/CreateTapes.hs +2/−2
• gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs +2/−2
• gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs +2/−2
• gen/Network/AWS/StorageGateway/DeleteGateway.hs +2/−2
• gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs +2/−2
• gen/Network/AWS/StorageGateway/DeleteTape.hs +2/−2
• gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs +2/−2
• gen/Network/AWS/StorageGateway/DeleteVolume.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeCache.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeTapes.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs +2/−2
• gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs +2/−2
• gen/Network/AWS/StorageGateway/DisableGateway.hs +2/−2
• gen/Network/AWS/StorageGateway/ListGateways.hs +2/−2
• gen/Network/AWS/StorageGateway/ListLocalDisks.hs +2/−2
• gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs +2/−2
• gen/Network/AWS/StorageGateway/ListVolumes.hs +2/−2
• gen/Network/AWS/StorageGateway/ResetCache.hs +2/−2
• gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs +2/−2
• gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs +2/−2
• gen/Network/AWS/StorageGateway/ShutdownGateway.hs +2/−2
• gen/Network/AWS/StorageGateway/StartGateway.hs +2/−2
• gen/Network/AWS/StorageGateway/Types.hs +16/−16
• gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs +2/−2
• gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs +2/−2
• gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs +2/−2
• gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs +2/−2
• gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs +2/−2
• gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs +2/−2
• gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs +2/−2

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --

@@ -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. --