amazonka-storagegateway 1.1.0 → 1.2.0

raw patch · 56 files changed

+316/−254 lines, 56 filesdep ~amazonka-coredep ~amazonka-storagegatewaydep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-storagegateway, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-storagegateway.cabal +5/−5
• gen/Network/AWS/StorageGateway.hs +2/−2
• gen/Network/AWS/StorageGateway/ActivateGateway.hs +9/−9
• gen/Network/AWS/StorageGateway/AddCache.hs +4/−4
• gen/Network/AWS/StorageGateway/AddUploadBuffer.hs +4/−4
• gen/Network/AWS/StorageGateway/AddWorkingStorage.hs +4/−4
• gen/Network/AWS/StorageGateway/CancelArchival.hs +4/−4
• gen/Network/AWS/StorageGateway/CancelRetrieval.hs +4/−4
• gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs +10/−8
• gen/Network/AWS/StorageGateway/CreateSnapshot.hs +5/−4
• gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs +6/−5
• gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs +12/−9
• gen/Network/AWS/StorageGateway/CreateTapes.hs +7/−7
• gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs +4/−4
• gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs +4/−4
• gen/Network/AWS/StorageGateway/DeleteGateway.hs +3/−3
• gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs +3/−3
• gen/Network/AWS/StorageGateway/DeleteTape.hs +4/−4
• gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs +3/−3
• gen/Network/AWS/StorageGateway/DeleteVolume.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeCache.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs +4/−3
• gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs +4/−3
• gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs +5/−4
• gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs +5/−4
• gen/Network/AWS/StorageGateway/DescribeTapes.hs +6/−5
• gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs +3/−3
• gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs +6/−5
• gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs +3/−3
• gen/Network/AWS/StorageGateway/DisableGateway.hs +3/−3
• gen/Network/AWS/StorageGateway/ListGateways.hs +5/−3
• gen/Network/AWS/StorageGateway/ListLocalDisks.hs +3/−3
• gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs +3/−3
• gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs +3/−3
• gen/Network/AWS/StorageGateway/ListVolumes.hs +5/−4
• gen/Network/AWS/StorageGateway/ResetCache.hs +3/−3
• gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs +4/−4
• gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs +4/−4
• gen/Network/AWS/StorageGateway/ShutdownGateway.hs +3/−3
• gen/Network/AWS/StorageGateway/StartGateway.hs +3/−3
• gen/Network/AWS/StorageGateway/Types.hs +32/−36
• gen/Network/AWS/StorageGateway/Types/Product.hs +0/−1
• gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs +7/−7
• gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs +9/−8
• gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs +5/−5
• gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs +3/−3
• gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs +6/−6
• gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs +6/−6
• gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs +4/−4
• test/Test/AWS/Gen/StorageGateway.hs +50/−0

@@ -8,7 +8,7 @@  ## Version -`1.1.0`+`1.2.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-storagegateway-version:               1.1.0+version:               1.2.0 synopsis:              Amazon Storage Gateway SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -125,7 +125,7 @@         , Network.AWS.StorageGateway.Types.Sum      build-depends:-          amazonka-core == 1.1.0.*+          amazonka-core == 1.2.0.*         , base          >= 4.7     && < 5  test-suite amazonka-storagegateway-test@@ -144,9 +144,9 @@         , Test.AWS.StorageGateway.Internal      build-depends:-          amazonka-core == 1.1.0-        , amazonka-test == 1.1.0-        , amazonka-storagegateway == 1.1.0+          amazonka-core == 1.2.0+        , amazonka-test == 1.2.0+        , amazonka-storagegateway == 1.2.0         , base         , bytestring         , lens

@@ -42,8 +42,8 @@ -- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.StorageGateway     (-    -- * Service-      StorageGateway+    -- * Service Configuration+      storageGateway      -- * Errors     -- $errors

@@ -169,9 +169,8 @@ agGatewayRegion = lens _agGatewayRegion (\ s a -> s{_agGatewayRegion = a});  instance AWSRequest ActivateGateway where-        type Sv ActivateGateway = StorageGateway         type Rs ActivateGateway = ActivateGatewayResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -191,13 +190,14 @@ instance ToJSON ActivateGateway where         toJSON ActivateGateway'{..}           = object-              ["MediumChangerType" .= _agMediumChangerType,-               "TapeDriveType" .= _agTapeDriveType,-               "GatewayType" .= _agGatewayType,-               "ActivationKey" .= _agActivationKey,-               "GatewayName" .= _agGatewayName,-               "GatewayTimezone" .= _agGatewayTimezone,-               "GatewayRegion" .= _agGatewayRegion]+              (catMaybes+                 [("MediumChangerType" .=) <$> _agMediumChangerType,+                  ("TapeDriveType" .=) <$> _agTapeDriveType,+                  ("GatewayType" .=) <$> _agGatewayType,+                  Just ("ActivationKey" .= _agActivationKey),+                  Just ("GatewayName" .= _agGatewayName),+                  Just ("GatewayTimezone" .= _agGatewayTimezone),+                  Just ("GatewayRegion" .= _agGatewayRegion)])  instance ToPath ActivateGateway where         toPath = const "/"

@@ -82,9 +82,8 @@ acDiskIds = lens _acDiskIds (\ s a -> s{_acDiskIds = a}) . _Coerce;  instance AWSRequest AddCache where-        type Sv AddCache = StorageGateway         type Rs AddCache = AddCacheResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -103,8 +102,9 @@ instance ToJSON AddCache where         toJSON AddCache'{..}           = object-              ["GatewayARN" .= _acGatewayARN,-               "DiskIds" .= _acDiskIds]+              (catMaybes+                 [Just ("GatewayARN" .= _acGatewayARN),+                  Just ("DiskIds" .= _acDiskIds)])  instance ToPath AddCache where         toPath = const "/"

@@ -81,9 +81,8 @@ aubDiskIds = lens _aubDiskIds (\ s a -> s{_aubDiskIds = a}) . _Coerce;  instance AWSRequest AddUploadBuffer where-        type Sv AddUploadBuffer = StorageGateway         type Rs AddUploadBuffer = AddUploadBufferResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -103,8 +102,9 @@ instance ToJSON AddUploadBuffer where         toJSON AddUploadBuffer'{..}           = object-              ["GatewayARN" .= _aubGatewayARN,-               "DiskIds" .= _aubDiskIds]+              (catMaybes+                 [Just ("GatewayARN" .= _aubGatewayARN),+                  Just ("DiskIds" .= _aubDiskIds)])  instance ToPath AddUploadBuffer where         toPath = const "/"

@@ -92,9 +92,8 @@ awsDiskIds = lens _awsDiskIds (\ s a -> s{_awsDiskIds = a}) . _Coerce;  instance AWSRequest AddWorkingStorage where-        type Sv AddWorkingStorage = StorageGateway         type Rs AddWorkingStorage = AddWorkingStorageResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -114,8 +113,9 @@ instance ToJSON AddWorkingStorage where         toJSON AddWorkingStorage'{..}           = object-              ["GatewayARN" .= _awsGatewayARN,-               "DiskIds" .= _awsDiskIds]+              (catMaybes+                 [Just ("GatewayARN" .= _awsGatewayARN),+                  Just ("DiskIds" .= _awsDiskIds)])  instance ToPath AddWorkingStorage where         toPath = const "/"

@@ -80,9 +80,8 @@ caTapeARN = lens _caTapeARN (\ s a -> s{_caTapeARN = a});  instance AWSRequest CancelArchival where-        type Sv CancelArchival = StorageGateway         type Rs CancelArchival = CancelArchivalResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -102,8 +101,9 @@ instance ToJSON CancelArchival where         toJSON CancelArchival'{..}           = object-              ["GatewayARN" .= _caGatewayARN,-               "TapeARN" .= _caTapeARN]+              (catMaybes+                 [Just ("GatewayARN" .= _caGatewayARN),+                  Just ("TapeARN" .= _caTapeARN)])  instance ToPath CancelArchival where         toPath = const "/"

@@ -81,9 +81,8 @@ crTapeARN = lens _crTapeARN (\ s a -> s{_crTapeARN = a});  instance AWSRequest CancelRetrieval where-        type Sv CancelRetrieval = StorageGateway         type Rs CancelRetrieval = CancelRetrievalResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -103,8 +102,9 @@ instance ToJSON CancelRetrieval where         toJSON CancelRetrieval'{..}           = object-              ["GatewayARN" .= _crGatewayARN,-               "TapeARN" .= _crTapeARN]+              (catMaybes+                 [Just ("GatewayARN" .= _crGatewayARN),+                  Just ("TapeARN" .= _crTapeARN)])  instance ToPath CancelRetrieval where         toPath = const "/"

@@ -129,10 +129,9 @@ ccscsivClientToken = lens _ccscsivClientToken (\ s a -> s{_ccscsivClientToken = a});  instance AWSRequest CreateCachediSCSIVolume where-        type Sv CreateCachediSCSIVolume = StorageGateway         type Rs CreateCachediSCSIVolume =              CreateCachediSCSIVolumeResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -153,12 +152,15 @@ instance ToJSON CreateCachediSCSIVolume where         toJSON CreateCachediSCSIVolume'{..}           = object-              ["SnapshotId" .= _ccscsivSnapshotId,-               "GatewayARN" .= _ccscsivGatewayARN,-               "VolumeSizeInBytes" .= _ccscsivVolumeSizeInBytes,-               "TargetName" .= _ccscsivTargetName,-               "NetworkInterfaceId" .= _ccscsivNetworkInterfaceId,-               "ClientToken" .= _ccscsivClientToken]+              (catMaybes+                 [("SnapshotId" .=) <$> _ccscsivSnapshotId,+                  Just ("GatewayARN" .= _ccscsivGatewayARN),+                  Just+                    ("VolumeSizeInBytes" .= _ccscsivVolumeSizeInBytes),+                  Just ("TargetName" .= _ccscsivTargetName),+                  Just+                    ("NetworkInterfaceId" .= _ccscsivNetworkInterfaceId),+                  Just ("ClientToken" .= _ccscsivClientToken)])  instance ToPath CreateCachediSCSIVolume where         toPath = const "/"

@@ -106,9 +106,8 @@ csSnapshotDescription = lens _csSnapshotDescription (\ s a -> s{_csSnapshotDescription = a});  instance AWSRequest CreateSnapshot where-        type Sv CreateSnapshot = StorageGateway         type Rs CreateSnapshot = CreateSnapshotResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -129,8 +128,10 @@ instance ToJSON CreateSnapshot where         toJSON CreateSnapshot'{..}           = object-              ["VolumeARN" .= _csVolumeARN,-               "SnapshotDescription" .= _csSnapshotDescription]+              (catMaybes+                 [Just ("VolumeARN" .= _csVolumeARN),+                  Just+                    ("SnapshotDescription" .= _csSnapshotDescription)])  instance ToPath CreateSnapshot where         toPath = const "/"

@@ -98,11 +98,9 @@  instance AWSRequest          CreateSnapshotFromVolumeRecoveryPoint where-        type Sv CreateSnapshotFromVolumeRecoveryPoint =-             StorageGateway         type Rs CreateSnapshotFromVolumeRecoveryPoint =              CreateSnapshotFromVolumeRecoveryPointResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -127,8 +125,11 @@          where         toJSON CreateSnapshotFromVolumeRecoveryPoint'{..}           = object-              ["VolumeARN" .= _csfvrpVolumeARN,-               "SnapshotDescription" .= _csfvrpSnapshotDescription]+              (catMaybes+                 [Just ("VolumeARN" .= _csfvrpVolumeARN),+                  Just+                    ("SnapshotDescription" .=+                       _csfvrpSnapshotDescription)])  instance ToPath CreateSnapshotFromVolumeRecoveryPoint          where

@@ -156,10 +156,9 @@ csscsivNetworkInterfaceId = lens _csscsivNetworkInterfaceId (\ s a -> s{_csscsivNetworkInterfaceId = a});  instance AWSRequest CreateStorediSCSIVolume where-        type Sv CreateStorediSCSIVolume = StorageGateway         type Rs CreateStorediSCSIVolume =              CreateStorediSCSIVolumeResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -181,13 +180,17 @@ instance ToJSON CreateStorediSCSIVolume where         toJSON CreateStorediSCSIVolume'{..}           = object-              ["SnapshotId" .= _csscsivSnapshotId,-               "GatewayARN" .= _csscsivGatewayARN,-               "DiskId" .= _csscsivDiskId,-               "PreserveExistingData" .=-                 _csscsivPreserveExistingData,-               "TargetName" .= _csscsivTargetName,-               "NetworkInterfaceId" .= _csscsivNetworkInterfaceId]+              (catMaybes+                 [("SnapshotId" .=) <$> _csscsivSnapshotId,+                  Just ("GatewayARN" .= _csscsivGatewayARN),+                  Just ("DiskId" .= _csscsivDiskId),+                  Just+                    ("PreserveExistingData" .=+                       _csscsivPreserveExistingData),+                  Just ("TargetName" .= _csscsivTargetName),+                  Just+                    ("NetworkInterfaceId" .=+                       _csscsivNetworkInterfaceId)])  instance ToPath CreateStorediSCSIVolume where         toPath = const "/"

@@ -125,9 +125,8 @@ ctTapeBarcodePrefix = lens _ctTapeBarcodePrefix (\ s a -> s{_ctTapeBarcodePrefix = a});  instance AWSRequest CreateTapes where-        type Sv CreateTapes = StorageGateway         type Rs CreateTapes = CreateTapesResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -148,11 +147,12 @@ instance ToJSON CreateTapes where         toJSON CreateTapes'{..}           = object-              ["GatewayARN" .= _ctGatewayARN,-               "TapeSizeInBytes" .= _ctTapeSizeInBytes,-               "ClientToken" .= _ctClientToken,-               "NumTapesToCreate" .= _ctNumTapesToCreate,-               "TapeBarcodePrefix" .= _ctTapeBarcodePrefix]+              (catMaybes+                 [Just ("GatewayARN" .= _ctGatewayARN),+                  Just ("TapeSizeInBytes" .= _ctTapeSizeInBytes),+                  Just ("ClientToken" .= _ctClientToken),+                  Just ("NumTapesToCreate" .= _ctNumTapesToCreate),+                  Just ("TapeBarcodePrefix" .= _ctTapeBarcodePrefix)])  instance ToPath CreateTapes where         toPath = const "/"

@@ -80,10 +80,9 @@ delBandwidthType = lens _delBandwidthType (\ s a -> s{_delBandwidthType = a});  instance AWSRequest DeleteBandwidthRateLimit where-        type Sv DeleteBandwidthRateLimit = StorageGateway         type Rs DeleteBandwidthRateLimit =              DeleteBandwidthRateLimitResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -103,8 +102,9 @@ instance ToJSON DeleteBandwidthRateLimit where         toJSON DeleteBandwidthRateLimit'{..}           = object-              ["GatewayARN" .= _delGatewayARN,-               "BandwidthType" .= _delBandwidthType]+              (catMaybes+                 [Just ("GatewayARN" .= _delGatewayARN),+                  Just ("BandwidthType" .= _delBandwidthType)])  instance ToPath DeleteBandwidthRateLimit where         toPath = const "/"

@@ -85,10 +85,9 @@ dInitiatorName = lens _dInitiatorName (\ s a -> s{_dInitiatorName = a});  instance AWSRequest DeleteChapCredentials where-        type Sv DeleteChapCredentials = StorageGateway         type Rs DeleteChapCredentials =              DeleteChapCredentialsResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -109,8 +108,9 @@ instance ToJSON DeleteChapCredentials where         toJSON DeleteChapCredentials'{..}           = object-              ["TargetARN" .= _dTargetARN,-               "InitiatorName" .= _dInitiatorName]+              (catMaybes+                 [Just ("TargetARN" .= _dTargetARN),+                  Just ("InitiatorName" .= _dInitiatorName)])  instance ToPath DeleteChapCredentials where         toPath = const "/"

@@ -85,9 +85,8 @@ dgGatewayARN = lens _dgGatewayARN (\ s a -> s{_dgGatewayARN = a});  instance AWSRequest DeleteGateway where-        type Sv DeleteGateway = StorageGateway         type Rs DeleteGateway = DeleteGatewayResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -106,7 +105,8 @@  instance ToJSON DeleteGateway where         toJSON DeleteGateway'{..}-          = object ["GatewayARN" .= _dgGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dgGatewayARN)])  instance ToPath DeleteGateway where         toPath = const "/"

@@ -76,10 +76,9 @@ dVolumeARN = lens _dVolumeARN (\ s a -> s{_dVolumeARN = a});  instance AWSRequest DeleteSnapshotSchedule where-        type Sv DeleteSnapshotSchedule = StorageGateway         type Rs DeleteSnapshotSchedule =              DeleteSnapshotScheduleResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -98,7 +97,8 @@  instance ToJSON DeleteSnapshotSchedule where         toJSON DeleteSnapshotSchedule'{..}-          = object ["VolumeARN" .= _dVolumeARN]+          = object+              (catMaybes [Just ("VolumeARN" .= _dVolumeARN)])  instance ToPath DeleteSnapshotSchedule where         toPath = const "/"

@@ -80,9 +80,8 @@ dttTapeARN = lens _dttTapeARN (\ s a -> s{_dttTapeARN = a});  instance AWSRequest DeleteTape where-        type Sv DeleteTape = StorageGateway         type Rs DeleteTape = DeleteTapeResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -101,8 +100,9 @@ instance ToJSON DeleteTape where         toJSON DeleteTape'{..}           = object-              ["GatewayARN" .= _dttGatewayARN,-               "TapeARN" .= _dttTapeARN]+              (catMaybes+                 [Just ("GatewayARN" .= _dttGatewayARN),+                  Just ("TapeARN" .= _dttTapeARN)])  instance ToPath DeleteTape where         toPath = const "/"

@@ -69,9 +69,8 @@ dtaTapeARN = lens _dtaTapeARN (\ s a -> s{_dtaTapeARN = a});  instance AWSRequest DeleteTapeArchive where-        type Sv DeleteTapeArchive = StorageGateway         type Rs DeleteTapeArchive = DeleteTapeArchiveResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -90,7 +89,8 @@  instance ToJSON DeleteTapeArchive where         toJSON DeleteTapeArchive'{..}-          = object ["TapeARN" .= _dtaTapeARN]+          = object+              (catMaybes [Just ("TapeARN" .= _dtaTapeARN)])  instance ToPath DeleteTapeArchive where         toPath = const "/"

@@ -83,9 +83,8 @@ dvVolumeARN = lens _dvVolumeARN (\ s a -> s{_dvVolumeARN = a});  instance AWSRequest DeleteVolume where-        type Sv DeleteVolume = StorageGateway         type Rs DeleteVolume = DeleteVolumeResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -104,7 +103,8 @@  instance ToJSON DeleteVolume where         toJSON DeleteVolume'{..}-          = object ["VolumeARN" .= _dvVolumeARN]+          = object+              (catMaybes [Just ("VolumeARN" .= _dvVolumeARN)])  instance ToPath DeleteVolume where         toPath = const "/"

@@ -78,10 +78,9 @@ dbrlGatewayARN = lens _dbrlGatewayARN (\ s a -> s{_dbrlGatewayARN = a});  instance AWSRequest DescribeBandwidthRateLimit where-        type Sv DescribeBandwidthRateLimit = StorageGateway         type Rs DescribeBandwidthRateLimit =              DescribeBandwidthRateLimitResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -103,7 +102,8 @@  instance ToJSON DescribeBandwidthRateLimit where         toJSON DescribeBandwidthRateLimit'{..}-          = object ["GatewayARN" .= _dbrlGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dbrlGatewayARN)])  instance ToPath DescribeBandwidthRateLimit where         toPath = const "/"

@@ -76,9 +76,8 @@ dcGatewayARN = lens _dcGatewayARN (\ s a -> s{_dcGatewayARN = a});  instance AWSRequest DescribeCache where-        type Sv DescribeCache = StorageGateway         type Rs DescribeCache = DescribeCacheResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -103,7 +102,8 @@  instance ToJSON DescribeCache where         toJSON DescribeCache'{..}-          = object ["GatewayARN" .= _dcGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dcGatewayARN)])  instance ToPath DescribeCache where         toPath = const "/"

@@ -71,10 +71,9 @@ dcscsivVolumeARNs = lens _dcscsivVolumeARNs (\ s a -> s{_dcscsivVolumeARNs = a}) . _Coerce;  instance AWSRequest DescribeCachediSCSIVolumes where-        type Sv DescribeCachediSCSIVolumes = StorageGateway         type Rs DescribeCachediSCSIVolumes =              DescribeCachediSCSIVolumesResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -94,7 +93,9 @@  instance ToJSON DescribeCachediSCSIVolumes where         toJSON DescribeCachediSCSIVolumes'{..}-          = object ["VolumeARNs" .= _dcscsivVolumeARNs]+          = object+              (catMaybes+                 [Just ("VolumeARNs" .= _dcscsivVolumeARNs)])  instance ToPath DescribeCachediSCSIVolumes where         toPath = const "/"

@@ -73,10 +73,9 @@ dccTargetARN = lens _dccTargetARN (\ s a -> s{_dccTargetARN = a});  instance AWSRequest DescribeChapCredentials where-        type Sv DescribeChapCredentials = StorageGateway         type Rs DescribeChapCredentials =              DescribeChapCredentialsResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -96,7 +95,8 @@  instance ToJSON DescribeChapCredentials where         toJSON DescribeChapCredentials'{..}-          = object ["TargetARN" .= _dccTargetARN]+          = object+              (catMaybes [Just ("TargetARN" .= _dccTargetARN)])  instance ToPath DescribeChapCredentials where         toPath = const "/"

@@ -78,10 +78,9 @@ dgiGatewayARN = lens _dgiGatewayARN (\ s a -> s{_dgiGatewayARN = a});  instance AWSRequest DescribeGatewayInformation where-        type Sv DescribeGatewayInformation = StorageGateway         type Rs DescribeGatewayInformation =              DescribeGatewayInformationResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -107,7 +106,8 @@  instance ToJSON DescribeGatewayInformation where         toJSON DescribeGatewayInformation'{..}-          = object ["GatewayARN" .= _dgiGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dgiGatewayARN)])  instance ToPath DescribeGatewayInformation where         toPath = const "/"

@@ -75,10 +75,9 @@  instance AWSRequest DescribeMaintenanceStartTime          where-        type Sv DescribeMaintenanceStartTime = StorageGateway         type Rs DescribeMaintenanceStartTime =              DescribeMaintenanceStartTimeResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -101,7 +100,8 @@  instance ToJSON DescribeMaintenanceStartTime where         toJSON DescribeMaintenanceStartTime'{..}-          = object ["GatewayARN" .= _dmstGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dmstGatewayARN)])  instance ToPath DescribeMaintenanceStartTime where         toPath = const "/"

@@ -76,10 +76,9 @@ dssVolumeARN = lens _dssVolumeARN (\ s a -> s{_dssVolumeARN = a});  instance AWSRequest DescribeSnapshotSchedule where-        type Sv DescribeSnapshotSchedule = StorageGateway         type Rs DescribeSnapshotSchedule =              DescribeSnapshotScheduleResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -102,7 +101,8 @@  instance ToJSON DescribeSnapshotSchedule where         toJSON DescribeSnapshotSchedule'{..}-          = object ["VolumeARN" .= _dssVolumeARN]+          = object+              (catMaybes [Just ("VolumeARN" .= _dssVolumeARN)])  instance ToPath DescribeSnapshotSchedule where         toPath = const "/"

@@ -73,10 +73,9 @@ dsscsivVolumeARNs = lens _dsscsivVolumeARNs (\ s a -> s{_dsscsivVolumeARNs = a}) . _Coerce;  instance AWSRequest DescribeStorediSCSIVolumes where-        type Sv DescribeStorediSCSIVolumes = StorageGateway         type Rs DescribeStorediSCSIVolumes =              DescribeStorediSCSIVolumesResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -96,7 +95,9 @@  instance ToJSON DescribeStorediSCSIVolumes where         toJSON DescribeStorediSCSIVolumes'{..}-          = object ["VolumeARNs" .= _dsscsivVolumeARNs]+          = object+              (catMaybes+                 [Just ("VolumeARNs" .= _dsscsivVolumeARNs)])  instance ToPath DescribeStorediSCSIVolumes where         toPath = const "/"

@@ -104,10 +104,9 @@             Just $ rq & dtaMarker .~ rs ^. dtarsMarker  instance AWSRequest DescribeTapeArchives where-        type Sv DescribeTapeArchives = StorageGateway         type Rs DescribeTapeArchives =              DescribeTapeArchivesResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -129,8 +128,10 @@ instance ToJSON DescribeTapeArchives where         toJSON DescribeTapeArchives'{..}           = object-              ["Marker" .= _dtaMarker, "Limit" .= _dtaLimit,-               "TapeARNs" .= _dtaTapeARNs]+              (catMaybes+                 [("Marker" .=) <$> _dtaMarker,+                  ("Limit" .=) <$> _dtaLimit,+                  ("TapeARNs" .=) <$> _dtaTapeARNs])  instance ToPath DescribeTapeArchives where         toPath = const "/"

@@ -106,10 +106,9 @@             Just $ rq & dtrpMarker .~ rs ^. dtrprsMarker  instance AWSRequest DescribeTapeRecoveryPoints where-        type Sv DescribeTapeRecoveryPoints = StorageGateway         type Rs DescribeTapeRecoveryPoints =              DescribeTapeRecoveryPointsResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -132,8 +131,10 @@ instance ToJSON DescribeTapeRecoveryPoints where         toJSON DescribeTapeRecoveryPoints'{..}           = object-              ["Marker" .= _dtrpMarker, "Limit" .= _dtrpLimit,-               "GatewayARN" .= _dtrpGatewayARN]+              (catMaybes+                 [("Marker" .=) <$> _dtrpMarker,+                  ("Limit" .=) <$> _dtrpLimit,+                  Just ("GatewayARN" .= _dtrpGatewayARN)])  instance ToPath DescribeTapeRecoveryPoints where         toPath = const "/"

@@ -117,9 +117,8 @@             Just $ rq & dtMarker .~ rs ^. dtsrsMarker  instance AWSRequest DescribeTapes where-        type Sv DescribeTapes = StorageGateway         type Rs DescribeTapes = DescribeTapesResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -140,9 +139,11 @@ instance ToJSON DescribeTapes where         toJSON DescribeTapes'{..}           = object-              ["Marker" .= _dtMarker, "Limit" .= _dtLimit,-               "TapeARNs" .= _dtTapeARNs,-               "GatewayARN" .= _dtGatewayARN]+              (catMaybes+                 [("Marker" .=) <$> _dtMarker,+                  ("Limit" .=) <$> _dtLimit,+                  ("TapeARNs" .=) <$> _dtTapeARNs,+                  Just ("GatewayARN" .= _dtGatewayARN)])  instance ToPath DescribeTapes where         toPath = const "/"

@@ -75,10 +75,9 @@ dubGatewayARN = lens _dubGatewayARN (\ s a -> s{_dubGatewayARN = a});  instance AWSRequest DescribeUploadBuffer where-        type Sv DescribeUploadBuffer = StorageGateway         type Rs DescribeUploadBuffer =              DescribeUploadBufferResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -101,7 +100,8 @@  instance ToJSON DescribeUploadBuffer where         toJSON DescribeUploadBuffer'{..}-          = object ["GatewayARN" .= _dubGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dubGatewayARN)])  instance ToPath DescribeUploadBuffer where         toPath = const "/"

@@ -118,10 +118,9 @@             Just $ rq & dvtldMarker .~ rs ^. dvtldrsMarker  instance AWSRequest DescribeVTLDevices where-        type Sv DescribeVTLDevices = StorageGateway         type Rs DescribeVTLDevices =              DescribeVTLDevicesResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -144,9 +143,11 @@ instance ToJSON DescribeVTLDevices where         toJSON DescribeVTLDevices'{..}           = object-              ["Marker" .= _dvtldMarker, "Limit" .= _dvtldLimit,-               "VTLDeviceARNs" .= _dvtldVTLDeviceARNs,-               "GatewayARN" .= _dvtldGatewayARN]+              (catMaybes+                 [("Marker" .=) <$> _dvtldMarker,+                  ("Limit" .=) <$> _dvtldLimit,+                  ("VTLDeviceARNs" .=) <$> _dvtldVTLDeviceARNs,+                  Just ("GatewayARN" .= _dvtldGatewayARN)])  instance ToPath DescribeVTLDevices where         toPath = const "/"

@@ -81,10 +81,9 @@ dwsGatewayARN = lens _dwsGatewayARN (\ s a -> s{_dwsGatewayARN = a});  instance AWSRequest DescribeWorkingStorage where-        type Sv DescribeWorkingStorage = StorageGateway         type Rs DescribeWorkingStorage =              DescribeWorkingStorageResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -106,7 +105,8 @@  instance ToJSON DescribeWorkingStorage where         toJSON DescribeWorkingStorage'{..}-          = object ["GatewayARN" .= _dwsGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dwsGatewayARN)])  instance ToPath DescribeWorkingStorage where         toPath = const "/"

@@ -75,9 +75,8 @@ dGatewayARN = lens _dGatewayARN (\ s a -> s{_dGatewayARN = a});  instance AWSRequest DisableGateway where-        type Sv DisableGateway = StorageGateway         type Rs DisableGateway = DisableGatewayResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -96,7 +95,8 @@  instance ToJSON DisableGateway where         toJSON DisableGateway'{..}-          = object ["GatewayARN" .= _dGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _dGatewayARN)])  instance ToPath DisableGateway where         toPath = const "/"

@@ -103,9 +103,8 @@             Just $ rq & lgMarker .~ rs ^. lgrsMarker  instance AWSRequest ListGateways where-        type Sv ListGateways = StorageGateway         type Rs ListGateways = ListGatewaysResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -125,7 +124,10 @@  instance ToJSON ListGateways where         toJSON ListGateways'{..}-          = object ["Marker" .= _lgMarker, "Limit" .= _lgLimit]+          = object+              (catMaybes+                 [("Marker" .=) <$> _lgMarker,+                  ("Limit" .=) <$> _lgLimit])  instance ToPath ListGateways where         toPath = const "/"

@@ -78,9 +78,8 @@ lldGatewayARN = lens _lldGatewayARN (\ s a -> s{_lldGatewayARN = a});  instance AWSRequest ListLocalDisks where-        type Sv ListLocalDisks = StorageGateway         type Rs ListLocalDisks = ListLocalDisksResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -100,7 +99,8 @@  instance ToJSON ListLocalDisks where         toJSON ListLocalDisks'{..}-          = object ["GatewayARN" .= _lldGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _lldGatewayARN)])  instance ToPath ListLocalDisks where         toPath = const "/"

@@ -71,10 +71,9 @@ lviVolumeARN = lens _lviVolumeARN (\ s a -> s{_lviVolumeARN = a});  instance AWSRequest ListVolumeInitiators where-        type Sv ListVolumeInitiators = StorageGateway         type Rs ListVolumeInitiators =              ListVolumeInitiatorsResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -94,7 +93,8 @@  instance ToJSON ListVolumeInitiators where         toJSON ListVolumeInitiators'{..}-          = object ["VolumeARN" .= _lviVolumeARN]+          = object+              (catMaybes [Just ("VolumeARN" .= _lviVolumeARN)])  instance ToPath ListVolumeInitiators where         toPath = const "/"

@@ -74,10 +74,9 @@ lvrpGatewayARN = lens _lvrpGatewayARN (\ s a -> s{_lvrpGatewayARN = a});  instance AWSRequest ListVolumeRecoveryPoints where-        type Sv ListVolumeRecoveryPoints = StorageGateway         type Rs ListVolumeRecoveryPoints =              ListVolumeRecoveryPointsResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -98,7 +97,8 @@  instance ToJSON ListVolumeRecoveryPoints where         toJSON ListVolumeRecoveryPoints'{..}-          = object ["GatewayARN" .= _lvrpGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _lvrpGatewayARN)])  instance ToPath ListVolumeRecoveryPoints where         toPath = const "/"

@@ -114,9 +114,8 @@             Just $ rq & lvMarker .~ rs ^. lvrsMarker  instance AWSRequest ListVolumes where-        type Sv ListVolumes = StorageGateway         type Rs ListVolumes = ListVolumesResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -138,8 +137,10 @@ instance ToJSON ListVolumes where         toJSON ListVolumes'{..}           = object-              ["Marker" .= _lvMarker, "Limit" .= _lvLimit,-               "GatewayARN" .= _lvGatewayARN]+              (catMaybes+                 [("Marker" .=) <$> _lvMarker,+                  ("Limit" .=) <$> _lvLimit,+                  Just ("GatewayARN" .= _lvGatewayARN)])  instance ToPath ListVolumes where         toPath = const "/"

@@ -78,9 +78,8 @@ rcGatewayARN = lens _rcGatewayARN (\ s a -> s{_rcGatewayARN = a});  instance AWSRequest ResetCache where-        type Sv ResetCache = StorageGateway         type Rs ResetCache = ResetCacheResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -98,7 +97,8 @@  instance ToJSON ResetCache where         toJSON ResetCache'{..}-          = object ["GatewayARN" .= _rcGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _rcGatewayARN)])  instance ToPath ResetCache where         toPath = const "/"

@@ -91,10 +91,9 @@ rtaGatewayARN = lens _rtaGatewayARN (\ s a -> s{_rtaGatewayARN = a});  instance AWSRequest RetrieveTapeArchive where-        type Sv RetrieveTapeArchive = StorageGateway         type Rs RetrieveTapeArchive =              RetrieveTapeArchiveResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -114,8 +113,9 @@ instance ToJSON RetrieveTapeArchive where         toJSON RetrieveTapeArchive'{..}           = object-              ["TapeARN" .= _rtaTapeARN,-               "GatewayARN" .= _rtaGatewayARN]+              (catMaybes+                 [Just ("TapeARN" .= _rtaTapeARN),+                  Just ("GatewayARN" .= _rtaGatewayARN)])  instance ToPath RetrieveTapeArchive where         toPath = const "/"

@@ -87,10 +87,9 @@ rtrpGatewayARN = lens _rtrpGatewayARN (\ s a -> s{_rtrpGatewayARN = a});  instance AWSRequest RetrieveTapeRecoveryPoint where-        type Sv RetrieveTapeRecoveryPoint = StorageGateway         type Rs RetrieveTapeRecoveryPoint =              RetrieveTapeRecoveryPointResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -110,8 +109,9 @@ instance ToJSON RetrieveTapeRecoveryPoint where         toJSON RetrieveTapeRecoveryPoint'{..}           = object-              ["TapeARN" .= _rtrpTapeARN,-               "GatewayARN" .= _rtrpGatewayARN]+              (catMaybes+                 [Just ("TapeARN" .= _rtrpTapeARN),+                  Just ("GatewayARN" .= _rtrpGatewayARN)])  instance ToPath RetrieveTapeRecoveryPoint where         toPath = const "/"

@@ -91,9 +91,8 @@ sGatewayARN = lens _sGatewayARN (\ s a -> s{_sGatewayARN = a});  instance AWSRequest ShutdownGateway where-        type Sv ShutdownGateway = StorageGateway         type Rs ShutdownGateway = ShutdownGatewayResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -112,7 +111,8 @@  instance ToJSON ShutdownGateway where         toJSON ShutdownGateway'{..}-          = object ["GatewayARN" .= _sGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _sGatewayARN)])  instance ToPath ShutdownGateway where         toPath = const "/"

@@ -80,9 +80,8 @@ sgGatewayARN = lens _sgGatewayARN (\ s a -> s{_sgGatewayARN = a});  instance AWSRequest StartGateway where-        type Sv StartGateway = StorageGateway         type Rs StartGateway = StartGatewayResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -101,7 +100,8 @@  instance ToJSON StartGateway where         toJSON StartGateway'{..}-          = object ["GatewayARN" .= _sgGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _sgGatewayARN)])  instance ToPath StartGateway where         toPath = const "/"

@@ -1,5 +1,4 @@ {-# LANGUAGE OverloadedStrings #-}-{-# LANGUAGE TypeFamilies      #-}  -- Derived from AWS service descriptions, licensed under Apache 2.0. @@ -13,8 +12,8 @@ -- module Network.AWS.StorageGateway.Types     (-    -- * Service-      StorageGateway+    -- * Service Configuration+      storageGateway      -- * Errors     , _InvalidGatewayRequestException@@ -153,39 +152,36 @@ import           Network.AWS.StorageGateway.Types.Product import           Network.AWS.StorageGateway.Types.Sum --- | Version @2013-06-30@ of the Amazon Storage Gateway SDK.-data StorageGateway--instance AWSService StorageGateway where-    type Sg StorageGateway = V4-    service = const svc-      where-        svc =-            Service-            { _svcAbbrev = "StorageGateway"-            , _svcPrefix = "storagegateway"-            , _svcVersion = "2013-06-30"-            , _svcEndpoint = defaultEndpoint svc-            , _svcTimeout = Just 70-            , _svcStatus = statusSuccess-            , _svcError = parseJSONError-            , _svcRetry = retry-            }-        retry =-            Exponential-            { _retryBase = 5.0e-2-            , _retryGrowth = 2-            , _retryAttempts = 5-            , _retryCheck = check-            }-        check e-          | has (hasCode "ThrottlingException" . hasStatus 400) e =-              Just "throttling_exception"-          | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"-          | has (hasStatus 503) e = Just "service_unavailable"-          | has (hasStatus 500) e = Just "general_server_error"-          | has (hasStatus 509) e = Just "limit_exceeded"-          | otherwise = Nothing+-- | API version '2013-06-30' of the Amazon Storage Gateway SDK configuration.+storageGateway :: Service+storageGateway =+    Service+    { _svcAbbrev = "StorageGateway"+    , _svcSigner = v4+    , _svcPrefix = "storagegateway"+    , _svcVersion = "2013-06-30"+    , _svcEndpoint = defaultEndpoint storageGateway+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError+    , _svcRetry = retry+    }+  where+    retry =+        Exponential+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }+    check e+      | has (hasCode "ThrottlingException" . hasStatus 400) e =+          Just "throttling_exception"+      | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"+      | has (hasStatus 503) e = Just "service_unavailable"+      | has (hasStatus 500) e = Just "general_server_error"+      | has (hasStatus 509) e = Just "limit_exceeded"+      | otherwise = Nothing  -- | An exception occurred because an invalid gateway request was issued to -- the service. See the error and message fields for more information.

@@ -2,7 +2,6 @@ {-# LANGUAGE DeriveGeneric      #-} {-# LANGUAGE OverloadedStrings  #-} {-# LANGUAGE RecordWildCards    #-}-{-# LANGUAGE TypeFamilies       #-}  {-# OPTIONS_GHC -fno-warn-unused-imports #-} 

@@ -100,10 +100,9 @@ ubrlGatewayARN = lens _ubrlGatewayARN (\ s a -> s{_ubrlGatewayARN = a});  instance AWSRequest UpdateBandwidthRateLimit where-        type Sv UpdateBandwidthRateLimit = StorageGateway         type Rs UpdateBandwidthRateLimit =              UpdateBandwidthRateLimitResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -123,11 +122,12 @@ instance ToJSON UpdateBandwidthRateLimit where         toJSON UpdateBandwidthRateLimit'{..}           = object-              ["AverageUploadRateLimitInBitsPerSec" .=-                 _ubrlAverageUploadRateLimitInBitsPerSec,-               "AverageDownloadRateLimitInBitsPerSec" .=-                 _ubrlAverageDownloadRateLimitInBitsPerSec,-               "GatewayARN" .= _ubrlGatewayARN]+              (catMaybes+                 [("AverageUploadRateLimitInBitsPerSec" .=) <$>+                    _ubrlAverageUploadRateLimitInBitsPerSec,+                  ("AverageDownloadRateLimitInBitsPerSec" .=) <$>+                    _ubrlAverageDownloadRateLimitInBitsPerSec,+                  Just ("GatewayARN" .= _ubrlGatewayARN)])  instance ToPath UpdateBandwidthRateLimit where         toPath = const "/"

@@ -119,10 +119,9 @@ uccInitiatorName = lens _uccInitiatorName (\ s a -> s{_uccInitiatorName = a});  instance AWSRequest UpdateChapCredentials where-        type Sv UpdateChapCredentials = StorageGateway         type Rs UpdateChapCredentials =              UpdateChapCredentialsResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -143,12 +142,14 @@ instance ToJSON UpdateChapCredentials where         toJSON UpdateChapCredentials'{..}           = object-              ["SecretToAuthenticateTarget" .=-                 _uccSecretToAuthenticateTarget,-               "TargetARN" .= _uccTargetARN,-               "SecretToAuthenticateInitiator" .=-                 _uccSecretToAuthenticateInitiator,-               "InitiatorName" .= _uccInitiatorName]+              (catMaybes+                 [("SecretToAuthenticateTarget" .=) <$>+                    _uccSecretToAuthenticateTarget,+                  Just ("TargetARN" .= _uccTargetARN),+                  Just+                    ("SecretToAuthenticateInitiator" .=+                       _uccSecretToAuthenticateInitiator),+                  Just ("InitiatorName" .= _uccInitiatorName)])  instance ToPath UpdateChapCredentials where         toPath = const "/"

@@ -86,10 +86,9 @@ ugiGatewayARN = lens _ugiGatewayARN (\ s a -> s{_ugiGatewayARN = a});  instance AWSRequest UpdateGatewayInformation where-        type Sv UpdateGatewayInformation = StorageGateway         type Rs UpdateGatewayInformation =              UpdateGatewayInformationResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -109,9 +108,10 @@ instance ToJSON UpdateGatewayInformation where         toJSON UpdateGatewayInformation'{..}           = object-              ["GatewayName" .= _ugiGatewayName,-               "GatewayTimezone" .= _ugiGatewayTimezone,-               "GatewayARN" .= _ugiGatewayARN]+              (catMaybes+                 [("GatewayName" .=) <$> _ugiGatewayName,+                  ("GatewayTimezone" .=) <$> _ugiGatewayTimezone,+                  Just ("GatewayARN" .= _ugiGatewayARN)])  instance ToPath UpdateGatewayInformation where         toPath = const "/"

@@ -83,10 +83,9 @@ ugsnGatewayARN = lens _ugsnGatewayARN (\ s a -> s{_ugsnGatewayARN = a});  instance AWSRequest UpdateGatewaySoftwareNow where-        type Sv UpdateGatewaySoftwareNow = StorageGateway         type Rs UpdateGatewaySoftwareNow =              UpdateGatewaySoftwareNowResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -105,7 +104,8 @@  instance ToJSON UpdateGatewaySoftwareNow where         toJSON UpdateGatewaySoftwareNow'{..}-          = object ["GatewayARN" .= _ugsnGatewayARN]+          = object+              (catMaybes [Just ("GatewayARN" .= _ugsnGatewayARN)])  instance ToPath UpdateGatewaySoftwareNow where         toPath = const "/"

@@ -108,10 +108,9 @@ umstDayOfWeek = lens _umstDayOfWeek (\ s a -> s{_umstDayOfWeek = a}) . _Nat;  instance AWSRequest UpdateMaintenanceStartTime where-        type Sv UpdateMaintenanceStartTime = StorageGateway         type Rs UpdateMaintenanceStartTime =              UpdateMaintenanceStartTimeResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -131,10 +130,11 @@ instance ToJSON UpdateMaintenanceStartTime where         toJSON UpdateMaintenanceStartTime'{..}           = object-              ["GatewayARN" .= _umstGatewayARN,-               "HourOfDay" .= _umstHourOfDay,-               "MinuteOfHour" .= _umstMinuteOfHour,-               "DayOfWeek" .= _umstDayOfWeek]+              (catMaybes+                 [Just ("GatewayARN" .= _umstGatewayARN),+                  Just ("HourOfDay" .= _umstHourOfDay),+                  Just ("MinuteOfHour" .= _umstMinuteOfHour),+                  Just ("DayOfWeek" .= _umstDayOfWeek)])  instance ToPath UpdateMaintenanceStartTime where         toPath = const "/"

@@ -116,10 +116,9 @@ ussRecurrenceInHours = lens _ussRecurrenceInHours (\ s a -> s{_ussRecurrenceInHours = a}) . _Nat;  instance AWSRequest UpdateSnapshotSchedule where-        type Sv UpdateSnapshotSchedule = StorageGateway         type Rs UpdateSnapshotSchedule =              UpdateSnapshotScheduleResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -139,10 +138,11 @@ instance ToJSON UpdateSnapshotSchedule where         toJSON UpdateSnapshotSchedule'{..}           = object-              ["Description" .= _ussDescription,-               "VolumeARN" .= _ussVolumeARN,-               "StartAt" .= _ussStartAt,-               "RecurrenceInHours" .= _ussRecurrenceInHours]+              (catMaybes+                 [("Description" .=) <$> _ussDescription,+                  Just ("VolumeARN" .= _ussVolumeARN),+                  Just ("StartAt" .= _ussStartAt),+                  Just ("RecurrenceInHours" .= _ussRecurrenceInHours)])  instance ToPath UpdateSnapshotSchedule where         toPath = const "/"

@@ -83,10 +83,9 @@ uvtldtDeviceType = lens _uvtldtDeviceType (\ s a -> s{_uvtldtDeviceType = a});  instance AWSRequest UpdateVTLDeviceType where-        type Sv UpdateVTLDeviceType = StorageGateway         type Rs UpdateVTLDeviceType =              UpdateVTLDeviceTypeResponse-        request = postJSON+        request = postJSON storageGateway         response           = receiveJSON               (\ s h x ->@@ -106,8 +105,9 @@ instance ToJSON UpdateVTLDeviceType where         toJSON UpdateVTLDeviceType'{..}           = object-              ["VTLDeviceARN" .= _uvtldtVTLDeviceARN,-               "DeviceType" .= _uvtldtDeviceType]+              (catMaybes+                 [Just ("VTLDeviceARN" .= _uvtldtVTLDeviceARN),+                  Just ("DeviceType" .= _uvtldtDeviceType)])  instance ToPath UpdateVTLDeviceType where         toPath = const "/"

@@ -592,298 +592,348 @@ testCancelArchivalResponse = res     "CancelArchivalResponse"     "fixture/CancelArchivalResponse"+    storageGateway     (Proxy :: Proxy CancelArchival)  testCreateStorediSCSIVolumeResponse :: CreateStorediSCSIVolumeResponse -> TestTree testCreateStorediSCSIVolumeResponse = res     "CreateStorediSCSIVolumeResponse"     "fixture/CreateStorediSCSIVolumeResponse"+    storageGateway     (Proxy :: Proxy CreateStorediSCSIVolume)  testCreateTapesResponse :: CreateTapesResponse -> TestTree testCreateTapesResponse = res     "CreateTapesResponse"     "fixture/CreateTapesResponse"+    storageGateway     (Proxy :: Proxy CreateTapes)  testCreateCachediSCSIVolumeResponse :: CreateCachediSCSIVolumeResponse -> TestTree testCreateCachediSCSIVolumeResponse = res     "CreateCachediSCSIVolumeResponse"     "fixture/CreateCachediSCSIVolumeResponse"+    storageGateway     (Proxy :: Proxy CreateCachediSCSIVolume)  testUpdateVTLDeviceTypeResponse :: UpdateVTLDeviceTypeResponse -> TestTree testUpdateVTLDeviceTypeResponse = res     "UpdateVTLDeviceTypeResponse"     "fixture/UpdateVTLDeviceTypeResponse"+    storageGateway     (Proxy :: Proxy UpdateVTLDeviceType)  testDescribeChapCredentialsResponse :: DescribeChapCredentialsResponse -> TestTree testDescribeChapCredentialsResponse = res     "DescribeChapCredentialsResponse"     "fixture/DescribeChapCredentialsResponse"+    storageGateway     (Proxy :: Proxy DescribeChapCredentials)  testAddUploadBufferResponse :: AddUploadBufferResponse -> TestTree testAddUploadBufferResponse = res     "AddUploadBufferResponse"     "fixture/AddUploadBufferResponse"+    storageGateway     (Proxy :: Proxy AddUploadBuffer)  testListVolumeInitiatorsResponse :: ListVolumeInitiatorsResponse -> TestTree testListVolumeInitiatorsResponse = res     "ListVolumeInitiatorsResponse"     "fixture/ListVolumeInitiatorsResponse"+    storageGateway     (Proxy :: Proxy ListVolumeInitiators)  testDescribeWorkingStorageResponse :: DescribeWorkingStorageResponse -> TestTree testDescribeWorkingStorageResponse = res     "DescribeWorkingStorageResponse"     "fixture/DescribeWorkingStorageResponse"+    storageGateway     (Proxy :: Proxy DescribeWorkingStorage)  testDescribeCachediSCSIVolumesResponse :: DescribeCachediSCSIVolumesResponse -> TestTree testDescribeCachediSCSIVolumesResponse = res     "DescribeCachediSCSIVolumesResponse"     "fixture/DescribeCachediSCSIVolumesResponse"+    storageGateway     (Proxy :: Proxy DescribeCachediSCSIVolumes)  testUpdateGatewayInformationResponse :: UpdateGatewayInformationResponse -> TestTree testUpdateGatewayInformationResponse = res     "UpdateGatewayInformationResponse"     "fixture/UpdateGatewayInformationResponse"+    storageGateway     (Proxy :: Proxy UpdateGatewayInformation)  testDescribeMaintenanceStartTimeResponse :: DescribeMaintenanceStartTimeResponse -> TestTree testDescribeMaintenanceStartTimeResponse = res     "DescribeMaintenanceStartTimeResponse"     "fixture/DescribeMaintenanceStartTimeResponse"+    storageGateway     (Proxy :: Proxy DescribeMaintenanceStartTime)  testAddCacheResponse :: AddCacheResponse -> TestTree testAddCacheResponse = res     "AddCacheResponse"     "fixture/AddCacheResponse"+    storageGateway     (Proxy :: Proxy AddCache)  testStartGatewayResponse :: StartGatewayResponse -> TestTree testStartGatewayResponse = res     "StartGatewayResponse"     "fixture/StartGatewayResponse"+    storageGateway     (Proxy :: Proxy StartGateway)  testShutdownGatewayResponse :: ShutdownGatewayResponse -> TestTree testShutdownGatewayResponse = res     "ShutdownGatewayResponse"     "fixture/ShutdownGatewayResponse"+    storageGateway     (Proxy :: Proxy ShutdownGateway)  testUpdateGatewaySoftwareNowResponse :: UpdateGatewaySoftwareNowResponse -> TestTree testUpdateGatewaySoftwareNowResponse = res     "UpdateGatewaySoftwareNowResponse"     "fixture/UpdateGatewaySoftwareNowResponse"+    storageGateway     (Proxy :: Proxy UpdateGatewaySoftwareNow)  testDeleteChapCredentialsResponse :: DeleteChapCredentialsResponse -> TestTree testDeleteChapCredentialsResponse = res     "DeleteChapCredentialsResponse"     "fixture/DeleteChapCredentialsResponse"+    storageGateway     (Proxy :: Proxy DeleteChapCredentials)  testUpdateChapCredentialsResponse :: UpdateChapCredentialsResponse -> TestTree testUpdateChapCredentialsResponse = res     "UpdateChapCredentialsResponse"     "fixture/UpdateChapCredentialsResponse"+    storageGateway     (Proxy :: Proxy UpdateChapCredentials)  testDescribeStorediSCSIVolumesResponse :: DescribeStorediSCSIVolumesResponse -> TestTree testDescribeStorediSCSIVolumesResponse = res     "DescribeStorediSCSIVolumesResponse"     "fixture/DescribeStorediSCSIVolumesResponse"+    storageGateway     (Proxy :: Proxy DescribeStorediSCSIVolumes)  testDescribeTapesResponse :: DescribeTapesResponse -> TestTree testDescribeTapesResponse = res     "DescribeTapesResponse"     "fixture/DescribeTapesResponse"+    storageGateway     (Proxy :: Proxy DescribeTapes)  testDescribeUploadBufferResponse :: DescribeUploadBufferResponse -> TestTree testDescribeUploadBufferResponse = res     "DescribeUploadBufferResponse"     "fixture/DescribeUploadBufferResponse"+    storageGateway     (Proxy :: Proxy DescribeUploadBuffer)  testCreateSnapshotFromVolumeRecoveryPointResponse :: CreateSnapshotFromVolumeRecoveryPointResponse -> TestTree testCreateSnapshotFromVolumeRecoveryPointResponse = res     "CreateSnapshotFromVolumeRecoveryPointResponse"     "fixture/CreateSnapshotFromVolumeRecoveryPointResponse"+    storageGateway     (Proxy :: Proxy CreateSnapshotFromVolumeRecoveryPoint)  testDescribeGatewayInformationResponse :: DescribeGatewayInformationResponse -> TestTree testDescribeGatewayInformationResponse = res     "DescribeGatewayInformationResponse"     "fixture/DescribeGatewayInformationResponse"+    storageGateway     (Proxy :: Proxy DescribeGatewayInformation)  testRetrieveTapeRecoveryPointResponse :: RetrieveTapeRecoveryPointResponse -> TestTree testRetrieveTapeRecoveryPointResponse = res     "RetrieveTapeRecoveryPointResponse"     "fixture/RetrieveTapeRecoveryPointResponse"+    storageGateway     (Proxy :: Proxy RetrieveTapeRecoveryPoint)  testUpdateMaintenanceStartTimeResponse :: UpdateMaintenanceStartTimeResponse -> TestTree testUpdateMaintenanceStartTimeResponse = res     "UpdateMaintenanceStartTimeResponse"     "fixture/UpdateMaintenanceStartTimeResponse"+    storageGateway     (Proxy :: Proxy UpdateMaintenanceStartTime)  testDeleteGatewayResponse :: DeleteGatewayResponse -> TestTree testDeleteGatewayResponse = res     "DeleteGatewayResponse"     "fixture/DeleteGatewayResponse"+    storageGateway     (Proxy :: Proxy DeleteGateway)  testDisableGatewayResponse :: DisableGatewayResponse -> TestTree testDisableGatewayResponse = res     "DisableGatewayResponse"     "fixture/DisableGatewayResponse"+    storageGateway     (Proxy :: Proxy DisableGateway)  testDescribeSnapshotScheduleResponse :: DescribeSnapshotScheduleResponse -> TestTree testDescribeSnapshotScheduleResponse = res     "DescribeSnapshotScheduleResponse"     "fixture/DescribeSnapshotScheduleResponse"+    storageGateway     (Proxy :: Proxy DescribeSnapshotSchedule)  testDescribeTapeArchivesResponse :: DescribeTapeArchivesResponse -> TestTree testDescribeTapeArchivesResponse = res     "DescribeTapeArchivesResponse"     "fixture/DescribeTapeArchivesResponse"+    storageGateway     (Proxy :: Proxy DescribeTapeArchives)  testRetrieveTapeArchiveResponse :: RetrieveTapeArchiveResponse -> TestTree testRetrieveTapeArchiveResponse = res     "RetrieveTapeArchiveResponse"     "fixture/RetrieveTapeArchiveResponse"+    storageGateway     (Proxy :: Proxy RetrieveTapeArchive)  testDescribeBandwidthRateLimitResponse :: DescribeBandwidthRateLimitResponse -> TestTree testDescribeBandwidthRateLimitResponse = res     "DescribeBandwidthRateLimitResponse"     "fixture/DescribeBandwidthRateLimitResponse"+    storageGateway     (Proxy :: Proxy DescribeBandwidthRateLimit)  testDescribeVTLDevicesResponse :: DescribeVTLDevicesResponse -> TestTree testDescribeVTLDevicesResponse = res     "DescribeVTLDevicesResponse"     "fixture/DescribeVTLDevicesResponse"+    storageGateway     (Proxy :: Proxy DescribeVTLDevices)  testCreateSnapshotResponse :: CreateSnapshotResponse -> TestTree testCreateSnapshotResponse = res     "CreateSnapshotResponse"     "fixture/CreateSnapshotResponse"+    storageGateway     (Proxy :: Proxy CreateSnapshot)  testUpdateSnapshotScheduleResponse :: UpdateSnapshotScheduleResponse -> TestTree testUpdateSnapshotScheduleResponse = res     "UpdateSnapshotScheduleResponse"     "fixture/UpdateSnapshotScheduleResponse"+    storageGateway     (Proxy :: Proxy UpdateSnapshotSchedule)  testCancelRetrievalResponse :: CancelRetrievalResponse -> TestTree testCancelRetrievalResponse = res     "CancelRetrievalResponse"     "fixture/CancelRetrievalResponse"+    storageGateway     (Proxy :: Proxy CancelRetrieval)  testDeleteSnapshotScheduleResponse :: DeleteSnapshotScheduleResponse -> TestTree testDeleteSnapshotScheduleResponse = res     "DeleteSnapshotScheduleResponse"     "fixture/DeleteSnapshotScheduleResponse"+    storageGateway     (Proxy :: Proxy DeleteSnapshotSchedule)  testDeleteTapeArchiveResponse :: DeleteTapeArchiveResponse -> TestTree testDeleteTapeArchiveResponse = res     "DeleteTapeArchiveResponse"     "fixture/DeleteTapeArchiveResponse"+    storageGateway     (Proxy :: Proxy DeleteTapeArchive)  testListVolumeRecoveryPointsResponse :: ListVolumeRecoveryPointsResponse -> TestTree testListVolumeRecoveryPointsResponse = res     "ListVolumeRecoveryPointsResponse"     "fixture/ListVolumeRecoveryPointsResponse"+    storageGateway     (Proxy :: Proxy ListVolumeRecoveryPoints)  testAddWorkingStorageResponse :: AddWorkingStorageResponse -> TestTree testAddWorkingStorageResponse = res     "AddWorkingStorageResponse"     "fixture/AddWorkingStorageResponse"+    storageGateway     (Proxy :: Proxy AddWorkingStorage)  testListGatewaysResponse :: ListGatewaysResponse -> TestTree testListGatewaysResponse = res     "ListGatewaysResponse"     "fixture/ListGatewaysResponse"+    storageGateway     (Proxy :: Proxy ListGateways)  testListVolumesResponse :: ListVolumesResponse -> TestTree testListVolumesResponse = res     "ListVolumesResponse"     "fixture/ListVolumesResponse"+    storageGateway     (Proxy :: Proxy ListVolumes)  testDescribeTapeRecoveryPointsResponse :: DescribeTapeRecoveryPointsResponse -> TestTree testDescribeTapeRecoveryPointsResponse = res     "DescribeTapeRecoveryPointsResponse"     "fixture/DescribeTapeRecoveryPointsResponse"+    storageGateway     (Proxy :: Proxy DescribeTapeRecoveryPoints)  testDeleteVolumeResponse :: DeleteVolumeResponse -> TestTree testDeleteVolumeResponse = res     "DeleteVolumeResponse"     "fixture/DeleteVolumeResponse"+    storageGateway     (Proxy :: Proxy DeleteVolume)  testResetCacheResponse :: ResetCacheResponse -> TestTree testResetCacheResponse = res     "ResetCacheResponse"     "fixture/ResetCacheResponse"+    storageGateway     (Proxy :: Proxy ResetCache)  testActivateGatewayResponse :: ActivateGatewayResponse -> TestTree testActivateGatewayResponse = res     "ActivateGatewayResponse"     "fixture/ActivateGatewayResponse"+    storageGateway     (Proxy :: Proxy ActivateGateway)  testDescribeCacheResponse :: DescribeCacheResponse -> TestTree testDescribeCacheResponse = res     "DescribeCacheResponse"     "fixture/DescribeCacheResponse"+    storageGateway     (Proxy :: Proxy DescribeCache)  testUpdateBandwidthRateLimitResponse :: UpdateBandwidthRateLimitResponse -> TestTree testUpdateBandwidthRateLimitResponse = res     "UpdateBandwidthRateLimitResponse"     "fixture/UpdateBandwidthRateLimitResponse"+    storageGateway     (Proxy :: Proxy UpdateBandwidthRateLimit)  testDeleteBandwidthRateLimitResponse :: DeleteBandwidthRateLimitResponse -> TestTree testDeleteBandwidthRateLimitResponse = res     "DeleteBandwidthRateLimitResponse"     "fixture/DeleteBandwidthRateLimitResponse"+    storageGateway     (Proxy :: Proxy DeleteBandwidthRateLimit)  testListLocalDisksResponse :: ListLocalDisksResponse -> TestTree testListLocalDisksResponse = res     "ListLocalDisksResponse"     "fixture/ListLocalDisksResponse"+    storageGateway     (Proxy :: Proxy ListLocalDisks)  testDeleteTapeResponse :: DeleteTapeResponse -> TestTree testDeleteTapeResponse = res     "DeleteTapeResponse"     "fixture/DeleteTapeResponse"+    storageGateway     (Proxy :: Proxy DeleteTape)