amazonka-storagegateway 1.4.5 → 1.5.0

raw patch · 83 files changed

+3934/−2044 lines, 83 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 +22/−11
• fixture/CreateNFSFileShare.yaml +10/−0
• fixture/CreateNFSFileShareResponse.proto +0/−0
• fixture/DeleteFileShare.yaml +10/−0
• fixture/DeleteFileShareResponse.proto +0/−0
• fixture/DescribeNFSFileShares.yaml +10/−0
• fixture/DescribeNFSFileSharesResponse.proto +0/−0
• fixture/ListFileShares.yaml +10/−0
• fixture/ListFileSharesResponse.proto +0/−0
• fixture/RefreshCache.yaml +10/−0
• fixture/RefreshCacheResponse.proto +0/−0
• fixture/UpdateNFSFileShare.yaml +10/−0
• fixture/UpdateNFSFileShareResponse.proto +0/−0
• gen/Network/AWS/StorageGateway.hs +134/−67
• gen/Network/AWS/StorageGateway/ActivateGateway.hs +48/−46
• gen/Network/AWS/StorageGateway/AddCache.hs +25/−26
• gen/Network/AWS/StorageGateway/AddTagsToResource.hs +24/−25
• gen/Network/AWS/StorageGateway/AddUploadBuffer.hs +25/−26
• gen/Network/AWS/StorageGateway/AddWorkingStorage.hs +25/−26
• gen/Network/AWS/StorageGateway/CancelArchival.hs +25/−26
• gen/Network/AWS/StorageGateway/CancelRetrieval.hs +24/−25
• gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs +54/−38
• gen/Network/AWS/StorageGateway/CreateNFSFileShare.hs +254/−0
• gen/Network/AWS/StorageGateway/CreateSnapshot.hs +31/−29
• gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs +44/−34
• gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs +45/−41
• gen/Network/AWS/StorageGateway/CreateTapeWithBarcode.hs +30/−28
• gen/Network/AWS/StorageGateway/CreateTapes.hs +34/−32
• gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs +36/−27
• gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs +29/−27
• gen/Network/AWS/StorageGateway/DeleteFileShare.hs +152/−0
• gen/Network/AWS/StorageGateway/DeleteGateway.hs +23/−24
• gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs +23/−23
• gen/Network/AWS/StorageGateway/DeleteTape.hs +25/−26
• gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs +24/−25
• gen/Network/AWS/StorageGateway/DeleteVolume.hs +25/−26
• gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs +29/−26
• gen/Network/AWS/StorageGateway/DescribeCache.hs +38/−37
• gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs +26/−23
• gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs +23/−23
• gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs +41/−38
• gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs +54/−37
• gen/Network/AWS/StorageGateway/DescribeNFSFileShares.hs +147/−0
• gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs +34/−31
• gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs +26/−23
• gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs +32/−31
• gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs +35/−33
• gen/Network/AWS/StorageGateway/DescribeTapes.hs +39/−35
• gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs +32/−30
• gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs +40/−36
• gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs +32/−30
• gen/Network/AWS/StorageGateway/DisableGateway.hs +25/−26
• gen/Network/AWS/StorageGateway/ListFileShares.hs +183/−0
• gen/Network/AWS/StorageGateway/ListGateways.hs +29/−29
• gen/Network/AWS/StorageGateway/ListLocalDisks.hs +27/−26
• gen/Network/AWS/StorageGateway/ListTagsForResource.hs +36/−32
• gen/Network/AWS/StorageGateway/ListTapes.hs +30/−30
• gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs +24/−24
• gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs +29/−26
• gen/Network/AWS/StorageGateway/ListVolumes.hs +35/−34
• gen/Network/AWS/StorageGateway/RefreshCache.hs +133/−0
• gen/Network/AWS/StorageGateway/RemoveTagsFromResource.hs +26/−26
• gen/Network/AWS/StorageGateway/ResetCache.hs +33/−34
• gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs +28/−29
• gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs +26/−25
• gen/Network/AWS/StorageGateway/SetLocalConsolePassword.hs +27/−25
• gen/Network/AWS/StorageGateway/ShutdownGateway.hs +24/−25
• gen/Network/AWS/StorageGateway/StartGateway.hs +23/−24
• gen/Network/AWS/StorageGateway/Types.hs +81/−27
• gen/Network/AWS/StorageGateway/Types/Product.hs +680/−302
• gen/Network/AWS/StorageGateway/Types/Sum.hs +3/−3
• gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs +29/−26
• gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs +35/−31
• gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs +33/−28
• gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs +23/−22
• gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs +33/−30
• gen/Network/AWS/StorageGateway/UpdateNFSFileShare.hs +231/−0
• gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs +32/−30
• gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs +26/−26
• gen/Network/AWS/StorageGateway/Waiters.hs +6/−6
• test/Main.hs +2/−2
• test/Test/AWS/Gen/StorageGateway.hs +112/−4

@@ -8,7 +8,7 @@  ## Version -`1.4.5`+`1.5.0`   ## Description

@@ -1,13 +1,13 @@ name:                  amazonka-storagegateway-version:               1.4.5+version:               1.5.0 synopsis:              Amazon Storage Gateway SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues-license:               OtherLicense+license:               MPL-2.0 license-file:          LICENSE author:                Brendan Hay-maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2016 Brendan Hay+maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>+copyright:             Copyright (c) 2013-2017 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -29,14 +29,19 @@     to get started.  source-repository head-    type:     git-    location: git://github.com/brendanhay/amazonka.git+    type:              git+    location:          git://github.com/brendanhay/amazonka.git+    subdir:            amazonka-storagegateway  library     default-language:  Haskell2010     hs-source-dirs:    src gen -    ghc-options:       -Wall+    ghc-options:+        -Wall+        -fwarn-incomplete-uni-patterns+        -fwarn-incomplete-record-updates+        -funbox-strict-fields      exposed-modules:           Network.AWS.StorageGateway@@ -48,6 +53,7 @@         , Network.AWS.StorageGateway.CancelArchival         , Network.AWS.StorageGateway.CancelRetrieval         , Network.AWS.StorageGateway.CreateCachediSCSIVolume+        , Network.AWS.StorageGateway.CreateNFSFileShare         , Network.AWS.StorageGateway.CreateSnapshot         , Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint         , Network.AWS.StorageGateway.CreateStorediSCSIVolume@@ -55,6 +61,7 @@         , Network.AWS.StorageGateway.CreateTapes         , Network.AWS.StorageGateway.DeleteBandwidthRateLimit         , Network.AWS.StorageGateway.DeleteChapCredentials+        , Network.AWS.StorageGateway.DeleteFileShare         , Network.AWS.StorageGateway.DeleteGateway         , Network.AWS.StorageGateway.DeleteSnapshotSchedule         , Network.AWS.StorageGateway.DeleteTape@@ -66,6 +73,7 @@         , Network.AWS.StorageGateway.DescribeChapCredentials         , Network.AWS.StorageGateway.DescribeGatewayInformation         , Network.AWS.StorageGateway.DescribeMaintenanceStartTime+        , Network.AWS.StorageGateway.DescribeNFSFileShares         , Network.AWS.StorageGateway.DescribeSnapshotSchedule         , Network.AWS.StorageGateway.DescribeStorediSCSIVolumes         , Network.AWS.StorageGateway.DescribeTapeArchives@@ -75,6 +83,7 @@         , Network.AWS.StorageGateway.DescribeVTLDevices         , Network.AWS.StorageGateway.DescribeWorkingStorage         , Network.AWS.StorageGateway.DisableGateway+        , Network.AWS.StorageGateway.ListFileShares         , Network.AWS.StorageGateway.ListGateways         , Network.AWS.StorageGateway.ListLocalDisks         , Network.AWS.StorageGateway.ListTagsForResource@@ -82,6 +91,7 @@         , Network.AWS.StorageGateway.ListVolumeInitiators         , Network.AWS.StorageGateway.ListVolumeRecoveryPoints         , Network.AWS.StorageGateway.ListVolumes+        , Network.AWS.StorageGateway.RefreshCache         , Network.AWS.StorageGateway.RemoveTagsFromResource         , Network.AWS.StorageGateway.ResetCache         , Network.AWS.StorageGateway.RetrieveTapeArchive@@ -95,6 +105,7 @@         , Network.AWS.StorageGateway.UpdateGatewayInformation         , Network.AWS.StorageGateway.UpdateGatewaySoftwareNow         , Network.AWS.StorageGateway.UpdateMaintenanceStartTime+        , Network.AWS.StorageGateway.UpdateNFSFileShare         , Network.AWS.StorageGateway.UpdateSnapshotSchedule         , Network.AWS.StorageGateway.UpdateVTLDeviceType         , Network.AWS.StorageGateway.Waiters@@ -104,7 +115,7 @@         , Network.AWS.StorageGateway.Types.Sum      build-depends:-          amazonka-core == 1.4.5.*+          amazonka-core == 1.5.0.*         , base          >= 4.7     && < 5  test-suite amazonka-storagegateway-test@@ -124,9 +135,9 @@         , Test.AWS.StorageGateway.Internal      build-depends:-          amazonka-core == 1.4.5.*-        , amazonka-test == 1.4.5.*-        , amazonka-storagegateway == 1.4.5.*+          amazonka-core == 1.5.0.*+        , amazonka-test == 1.5.0.*+        , amazonka-storagegateway         , base         , bytestring         , tasty

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/storagegateway/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  storagegateway.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/storagegateway/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  storagegateway.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/storagegateway/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  storagegateway.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/storagegateway/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  storagegateway.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/storagegateway/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  storagegateway.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -0,0 +1,10 @@+---+method: POST+headers:+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/storagegateway/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=?+  Host:                  storagegateway.us-east-1.amazonaws.com+  Content-Type:          application/x-www-form-urlencoded; charset=utf-8+  X-Amz-Content-SHA256:  abcdef+  X-Amz-Date:            20091028T223200Z+body:+  ''

@@ -5,9 +5,9 @@  -- | -- Module      : Network.AWS.StorageGateway--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -17,25 +17,25 @@ -- -- Use the following links to get started using the /AWS Storage Gateway Service API Reference/ : -----     * <http://docs.aws.amazon.com/storagegateway/latest/userguide/AWSStorageGatewayHTTPRequestsHeaders.html AWS Storage Gateway Required Request Headers> : Describes the required headers that you must send with every POST request to AWS Storage Gateway.+--     * <http://docs.aws.amazon.com/storagegateway/latest/userguide/AWSStorageGatewayAPI.html#AWSStorageGatewayHTTPRequestsHeaders AWS Storage Gateway Required Request Headers> : Describes the required headers that you must send with every POST request to AWS Storage Gateway. -----     * <http://docs.aws.amazon.com/storagegateway/latest/userguide/AWSStorageGatewaySigningRequests.html Signing Requests> : AWS Storage Gateway requires that you authenticate every request you send; this topic describes how sign such a request.+--     * <http://docs.aws.amazon.com/storagegateway/latest/userguide/AWSStorageGatewayAPI.html#AWSStorageGatewaySigningRequests Signing Requests> : AWS Storage Gateway requires that you authenticate every request you send; this topic describes how sign such a request. -----     * <http://docs.aws.amazon.com/storagegateway/latest/userguide/APIErrorResponses.html Error Responses> : Provides reference information about AWS Storage Gateway errors.+--     * <http://docs.aws.amazon.com/storagegateway/latest/userguide/AWSStorageGatewayAPI.html#APIErrorResponses Error Responses> : Provides reference information about AWS Storage Gateway errors. -----     * <http://docs.aws.amazon.com/storagegateway/latest/userguide/AWSStorageGatewayAPIOperations.html Operations in AWS Storage Gateway> : Contains detailed descriptions of all AWS Storage Gateway operations, their request parameters, response elements, possible errors, and examples of requests and responses.+--     * <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_Operations.html Operations in AWS Storage Gateway> : Contains detailed descriptions of all AWS Storage Gateway operations, their request parameters, response elements, possible errors, and examples of requests and responses. -----     * <http://docs.aws.amazon.com/general/latest/gr/index.html?rande.html AWS Storage Gateway Regions and Endpoints> : Provides a list of each of the s and endpoints available for use with AWS Storage Gateway.+--     * <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region AWS Storage Gateway Regions and Endpoints:> Provides a list of each region and endpoints available for use with AWS Storage Gateway. -- -- -- -- /Important:/ IDs for Storage Gateway volumes and Amazon EBS snapshots created from gateway volumes are changing to a longer format. Starting in December 2016, all new volumes and snapshots will be created with a 17-character string. Starting in April 2016, you will be able to use these longer IDs so you can test your systems with the new format. For more information, see <https://aws.amazon.com/ec2/faqs/#longer-ids Longer EC2 and EBS Resource IDs> . ----- For example, a volume ARN with the longer volume ID format will look like this:+-- For example, a volume Amazon Resource Name (ARN) with the longer volume ID format looks like the following: -- -- @arn:aws:storagegateway:us-west-2:111122223333:gateway/sgw-12A3456B/volume/vol-1122AABBCCDDEEFFG@ . ----- A snapshot ID with the longer ID format will look like this: @snap-78e226633445566ee@ .+-- A snapshot ID with the longer ID format looks like the following: @snap-78e226633445566ee@ . -- -- For more information, see <https://forums.aws.amazon.com/ann.jspa?annID=3557 Announcement: Heads-up – Longer AWS Storage Gateway volume and snapshot IDs coming in 2016> . --@@ -50,6 +50,9 @@     -- ** InvalidGatewayRequestException     , _InvalidGatewayRequestException +    -- ** ServiceUnavailableError+    , _ServiceUnavailableError+     -- ** InternalServerError     , _InternalServerError @@ -65,6 +68,9 @@     -- ** CreateStorediSCSIVolume     , module Network.AWS.StorageGateway.CreateStorediSCSIVolume +    -- ** CreateNFSFileShare+    , module Network.AWS.StorageGateway.CreateNFSFileShare+     -- ** DescribeChapCredentials     , module Network.AWS.StorageGateway.DescribeChapCredentials @@ -80,6 +86,12 @@     -- ** CreateCachediSCSIVolume     , module Network.AWS.StorageGateway.CreateCachediSCSIVolume +    -- ** ListFileShares+    , module Network.AWS.StorageGateway.ListFileShares++    -- ** DeleteFileShare+    , module Network.AWS.StorageGateway.DeleteFileShare+     -- ** ListVolumeInitiators     , module Network.AWS.StorageGateway.ListVolumeInitiators @@ -149,6 +161,12 @@     -- ** DescribeGatewayInformation     , module Network.AWS.StorageGateway.DescribeGatewayInformation +    -- ** RefreshCache+    , module Network.AWS.StorageGateway.RefreshCache++    -- ** UpdateNFSFileShare+    , module Network.AWS.StorageGateway.UpdateNFSFileShare+     -- ** RetrieveTapeArchive     , module Network.AWS.StorageGateway.RetrieveTapeArchive @@ -185,6 +203,9 @@     -- ** DeleteTapeArchive     , module Network.AWS.StorageGateway.DeleteTapeArchive +    -- ** DescribeNFSFileShares+    , module Network.AWS.StorageGateway.DescribeNFSFileShares+     -- ** ListVolumeRecoveryPoints     , module Network.AWS.StorageGateway.ListVolumeRecoveryPoints @@ -238,6 +259,7 @@     , cscsivVolumeARN     , cscsivVolumeProgress     , cscsivVolumeSizeInBytes+    , cscsivCreatedDate     , cscsivVolumeId     , cscsivVolumeType @@ -268,6 +290,14 @@     , dDiskStatus     , dDiskId +    -- ** FileShareInfo+    , FileShareInfo+    , fileShareInfo+    , fsiFileShareStatus+    , fsiGatewayARN+    , fsiFileShareId+    , fsiFileShareARN+     -- ** GatewayInfo     , GatewayInfo     , gatewayInfo@@ -277,6 +307,32 @@     , giGatewayId     , giGatewayType +    -- ** NFSFileShareDefaults+    , NFSFileShareDefaults+    , nFSFileShareDefaults+    , nfsfsdFileMode+    , nfsfsdOwnerId+    , nfsfsdDirectoryMode+    , nfsfsdGroupId++    -- ** NFSFileShareInfo+    , NFSFileShareInfo+    , nFSFileShareInfo+    , nfsfsiFileShareStatus+    , nfsfsiKMSKey+    , nfsfsiGatewayARN+    , nfsfsiPath+    , nfsfsiKMSEncrypted+    , nfsfsiFileShareId+    , nfsfsiFileShareARN+    , nfsfsiDefaultStorageClass+    , nfsfsiRole+    , nfsfsiSquash+    , nfsfsiNFSFileShareDefaults+    , nfsfsiLocationARN+    , nfsfsiClientList+    , nfsfsiReadOnly+     -- ** NetworkInterface     , NetworkInterface     , networkInterface@@ -294,6 +350,7 @@     , sscsivVolumeARN     , sscsivVolumeProgress     , sscsivVolumeSizeInBytes+    , sscsivCreatedDate     , sscsivVolumeId     , sscsivVolumeDiskId     , sscsivVolumeType@@ -313,6 +370,8 @@     , tProgress     , tTapeSizeInBytes     , tVTLDevice+    , tTapeUsedInBytes+    , tTapeCreatedDate      -- ** TapeArchive     , TapeArchive@@ -322,6 +381,8 @@     , taTapeARN     , taTapeSizeInBytes     , taCompletionTime+    , taTapeUsedInBytes+    , taTapeCreatedDate     , taRetrievedTo      -- ** TapeInfo@@ -378,64 +439,70 @@     , vscsiaNetworkInterfacePort     ) where -import           Network.AWS.StorageGateway.ActivateGateway-import           Network.AWS.StorageGateway.AddCache-import           Network.AWS.StorageGateway.AddTagsToResource-import           Network.AWS.StorageGateway.AddUploadBuffer-import           Network.AWS.StorageGateway.AddWorkingStorage-import           Network.AWS.StorageGateway.CancelArchival-import           Network.AWS.StorageGateway.CancelRetrieval-import           Network.AWS.StorageGateway.CreateCachediSCSIVolume-import           Network.AWS.StorageGateway.CreateSnapshot-import           Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint-import           Network.AWS.StorageGateway.CreateStorediSCSIVolume-import           Network.AWS.StorageGateway.CreateTapes-import           Network.AWS.StorageGateway.CreateTapeWithBarcode-import           Network.AWS.StorageGateway.DeleteBandwidthRateLimit-import           Network.AWS.StorageGateway.DeleteChapCredentials-import           Network.AWS.StorageGateway.DeleteGateway-import           Network.AWS.StorageGateway.DeleteSnapshotSchedule-import           Network.AWS.StorageGateway.DeleteTape-import           Network.AWS.StorageGateway.DeleteTapeArchive-import           Network.AWS.StorageGateway.DeleteVolume-import           Network.AWS.StorageGateway.DescribeBandwidthRateLimit-import           Network.AWS.StorageGateway.DescribeCache-import           Network.AWS.StorageGateway.DescribeCachediSCSIVolumes-import           Network.AWS.StorageGateway.DescribeChapCredentials-import           Network.AWS.StorageGateway.DescribeGatewayInformation-import           Network.AWS.StorageGateway.DescribeMaintenanceStartTime-import           Network.AWS.StorageGateway.DescribeSnapshotSchedule-import           Network.AWS.StorageGateway.DescribeStorediSCSIVolumes-import           Network.AWS.StorageGateway.DescribeTapeArchives-import           Network.AWS.StorageGateway.DescribeTapeRecoveryPoints-import           Network.AWS.StorageGateway.DescribeTapes-import           Network.AWS.StorageGateway.DescribeUploadBuffer-import           Network.AWS.StorageGateway.DescribeVTLDevices-import           Network.AWS.StorageGateway.DescribeWorkingStorage-import           Network.AWS.StorageGateway.DisableGateway-import           Network.AWS.StorageGateway.ListGateways-import           Network.AWS.StorageGateway.ListLocalDisks-import           Network.AWS.StorageGateway.ListTagsForResource-import           Network.AWS.StorageGateway.ListTapes-import           Network.AWS.StorageGateway.ListVolumeInitiators-import           Network.AWS.StorageGateway.ListVolumeRecoveryPoints-import           Network.AWS.StorageGateway.ListVolumes-import           Network.AWS.StorageGateway.RemoveTagsFromResource-import           Network.AWS.StorageGateway.ResetCache-import           Network.AWS.StorageGateway.RetrieveTapeArchive-import           Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint-import           Network.AWS.StorageGateway.SetLocalConsolePassword-import           Network.AWS.StorageGateway.ShutdownGateway-import           Network.AWS.StorageGateway.StartGateway-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.UpdateBandwidthRateLimit-import           Network.AWS.StorageGateway.UpdateChapCredentials-import           Network.AWS.StorageGateway.UpdateGatewayInformation-import           Network.AWS.StorageGateway.UpdateGatewaySoftwareNow-import           Network.AWS.StorageGateway.UpdateMaintenanceStartTime-import           Network.AWS.StorageGateway.UpdateSnapshotSchedule-import           Network.AWS.StorageGateway.UpdateVTLDeviceType-import           Network.AWS.StorageGateway.Waiters+import Network.AWS.StorageGateway.ActivateGateway+import Network.AWS.StorageGateway.AddCache+import Network.AWS.StorageGateway.AddTagsToResource+import Network.AWS.StorageGateway.AddUploadBuffer+import Network.AWS.StorageGateway.AddWorkingStorage+import Network.AWS.StorageGateway.CancelArchival+import Network.AWS.StorageGateway.CancelRetrieval+import Network.AWS.StorageGateway.CreateCachediSCSIVolume+import Network.AWS.StorageGateway.CreateNFSFileShare+import Network.AWS.StorageGateway.CreateSnapshot+import Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint+import Network.AWS.StorageGateway.CreateStorediSCSIVolume+import Network.AWS.StorageGateway.CreateTapes+import Network.AWS.StorageGateway.CreateTapeWithBarcode+import Network.AWS.StorageGateway.DeleteBandwidthRateLimit+import Network.AWS.StorageGateway.DeleteChapCredentials+import Network.AWS.StorageGateway.DeleteFileShare+import Network.AWS.StorageGateway.DeleteGateway+import Network.AWS.StorageGateway.DeleteSnapshotSchedule+import Network.AWS.StorageGateway.DeleteTape+import Network.AWS.StorageGateway.DeleteTapeArchive+import Network.AWS.StorageGateway.DeleteVolume+import Network.AWS.StorageGateway.DescribeBandwidthRateLimit+import Network.AWS.StorageGateway.DescribeCache+import Network.AWS.StorageGateway.DescribeCachediSCSIVolumes+import Network.AWS.StorageGateway.DescribeChapCredentials+import Network.AWS.StorageGateway.DescribeGatewayInformation+import Network.AWS.StorageGateway.DescribeMaintenanceStartTime+import Network.AWS.StorageGateway.DescribeNFSFileShares+import Network.AWS.StorageGateway.DescribeSnapshotSchedule+import Network.AWS.StorageGateway.DescribeStorediSCSIVolumes+import Network.AWS.StorageGateway.DescribeTapeArchives+import Network.AWS.StorageGateway.DescribeTapeRecoveryPoints+import Network.AWS.StorageGateway.DescribeTapes+import Network.AWS.StorageGateway.DescribeUploadBuffer+import Network.AWS.StorageGateway.DescribeVTLDevices+import Network.AWS.StorageGateway.DescribeWorkingStorage+import Network.AWS.StorageGateway.DisableGateway+import Network.AWS.StorageGateway.ListFileShares+import Network.AWS.StorageGateway.ListGateways+import Network.AWS.StorageGateway.ListLocalDisks+import Network.AWS.StorageGateway.ListTagsForResource+import Network.AWS.StorageGateway.ListTapes+import Network.AWS.StorageGateway.ListVolumeInitiators+import Network.AWS.StorageGateway.ListVolumeRecoveryPoints+import Network.AWS.StorageGateway.ListVolumes+import Network.AWS.StorageGateway.RefreshCache+import Network.AWS.StorageGateway.RemoveTagsFromResource+import Network.AWS.StorageGateway.ResetCache+import Network.AWS.StorageGateway.RetrieveTapeArchive+import Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint+import Network.AWS.StorageGateway.SetLocalConsolePassword+import Network.AWS.StorageGateway.ShutdownGateway+import Network.AWS.StorageGateway.StartGateway+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.UpdateBandwidthRateLimit+import Network.AWS.StorageGateway.UpdateChapCredentials+import Network.AWS.StorageGateway.UpdateGatewayInformation+import Network.AWS.StorageGateway.UpdateGatewaySoftwareNow+import Network.AWS.StorageGateway.UpdateMaintenanceStartTime+import Network.AWS.StorageGateway.UpdateNFSFileShare+import Network.AWS.StorageGateway.UpdateSnapshotSchedule+import Network.AWS.StorageGateway.UpdateVTLDeviceType+import Network.AWS.StorageGateway.Waiters  {- $errors Error matchers are designed for use with the functions provided by

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ActivateGateway--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Activates the gateway you previously deployed on your host. For more information, see <http://docs.aws.amazon.com/storagegateway/latest/userguide/GettingStartedActivateGateway-common.html Activate the AWS Storage Gateway> . In the activation process, you specify information such as the you want to use for storing snapshots, the time zone for scheduled snapshots the gateway snapshot schedule window, an activation key, and a name for your gateway. The activation process also associates your gateway with your account; for more information, see 'UpdateGatewayInformation' .+-- Activates the gateway you previously deployed on your host. For more information, see <http://docs.aws.amazon.com/storagegateway/latest/userguide/GettingStartedActivateGateway-common.html Activate the AWS Storage Gateway> . In the activation process, you specify information such as the region you want to use for storing snapshots or tapes, the time zone for scheduled snapshots the gateway snapshot schedule window, an activation key, and a name for your gateway. The activation process also associates your gateway with your account; for more information, see 'UpdateGatewayInformation' . -- -- module Network.AWS.StorageGateway.ActivateGateway@@ -43,12 +43,12 @@     , agrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing one or more of the following fields: --@@ -72,32 +72,33 @@ -- -- /See:/ 'activateGateway' smart constructor. data ActivateGateway = ActivateGateway'-    { _agMediumChangerType :: !(Maybe Text)-    , _agTapeDriveType     :: !(Maybe Text)-    , _agGatewayType       :: !(Maybe Text)-    , _agActivationKey     :: !Text-    , _agGatewayName       :: !Text-    , _agGatewayTimezone   :: !Text-    , _agGatewayRegion     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _agMediumChangerType :: !(Maybe Text)+  , _agTapeDriveType     :: !(Maybe Text)+  , _agGatewayType       :: !(Maybe Text)+  , _agActivationKey     :: !Text+  , _agGatewayName       :: !Text+  , _agGatewayTimezone   :: !Text+  , _agGatewayRegion     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ActivateGateway' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'agMediumChangerType' - The value that indicates the type of medium changer to use for gateway-VTL. This field is optional. Valid Values: "STK-L700", "AWS-Gateway-VTL"+-- * 'agMediumChangerType' - The value that indicates the type of medium changer to use for tape gateway. This field is optional. Valid Values: "STK-L700", "AWS-Gateway-VTL" ----- * 'agTapeDriveType' - The value that indicates the type of tape drive to use for gateway-VTL. This field is optional. Valid Values: "IBM-ULT3580-TD5"+-- * 'agTapeDriveType' - The value that indicates the type of tape drive to use for tape gateway. This field is optional. Valid Values: "IBM-ULT3580-TD5" ----- * 'agGatewayType' - A value that defines the type of gateway to activate. The type specified is critical to all later functions of the gateway and cannot be changed after activation. The default value is @STORED@ .+-- * 'agGatewayType' - A value that defines the type of gateway to activate. The type specified is critical to all later functions of the gateway and cannot be changed after activation. The default value is @STORED@ .  Valid Values: "STORED", "CACHED", "VTL", "FILE_S3" -- -- * 'agActivationKey' - Your gateway activation key. You can obtain the activation key by sending an HTTP GET request with redirects enabled to the gateway IP address (port 80). The redirect URL returned in the response provides you the activation key for your gateway in the query string parameter @activationKey@ . It may also include other activation-related parameters, however, these are merely defaults -- the arguments you pass to the @ActivateGateway@ API call determine the actual configuration of your gateway. -- -- * 'agGatewayName' - The name you configured for your gateway. ----- * 'agGatewayTimezone' - A value that indicates the time zone you want to set for the gateway. The time zone is used, for example, for scheduling snapshots and your gateway's maintenance schedule.+-- * 'agGatewayTimezone' - A value that indicates the time zone you want to set for the gateway. The time zone is of the format "GMT-hr:mm" or "GMT+hr:mm". For example, GMT-4:00 indicates the time is 4 hours behind GMT. GMT+2:00 indicates the time is 2 hours ahead of GMT. The time zone is used, for example, for scheduling snapshots and your gateway's maintenance schedule. ----- * 'agGatewayRegion' - A value that indicates the region where you want to store the snapshot backups. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-west-1", "us-west-2", "eu-west-1", "eu-central-1", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "sa-east-1"+-- * 'agGatewayRegion' - A value that indicates the region where you want to store your data. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-east-2", "us-west-1", "us-west-2", "ca-central-1", "eu-west-1", "eu-central-1", "eu-west-2", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "ap-south-1", "sa-east-1" activateGateway     :: Text -- ^ 'agActivationKey'     -> Text -- ^ 'agGatewayName'@@ -105,25 +106,26 @@     -> Text -- ^ 'agGatewayRegion'     -> ActivateGateway activateGateway pActivationKey_ pGatewayName_ pGatewayTimezone_ pGatewayRegion_ =-    ActivateGateway'-    { _agMediumChangerType = Nothing-    , _agTapeDriveType = Nothing-    , _agGatewayType = Nothing-    , _agActivationKey = pActivationKey_-    , _agGatewayName = pGatewayName_-    , _agGatewayTimezone = pGatewayTimezone_-    , _agGatewayRegion = pGatewayRegion_-    }+  ActivateGateway'+  { _agMediumChangerType = Nothing+  , _agTapeDriveType = Nothing+  , _agGatewayType = Nothing+  , _agActivationKey = pActivationKey_+  , _agGatewayName = pGatewayName_+  , _agGatewayTimezone = pGatewayTimezone_+  , _agGatewayRegion = pGatewayRegion_+  } --- | The value that indicates the type of medium changer to use for gateway-VTL. This field is optional. Valid Values: "STK-L700", "AWS-Gateway-VTL"++-- | The value that indicates the type of medium changer to use for tape gateway. This field is optional. Valid Values: "STK-L700", "AWS-Gateway-VTL" agMediumChangerType :: Lens' ActivateGateway (Maybe Text) agMediumChangerType = lens _agMediumChangerType (\ s a -> s{_agMediumChangerType = a}); --- | The value that indicates the type of tape drive to use for gateway-VTL. This field is optional. Valid Values: "IBM-ULT3580-TD5"+-- | The value that indicates the type of tape drive to use for tape gateway. This field is optional. Valid Values: "IBM-ULT3580-TD5" agTapeDriveType :: Lens' ActivateGateway (Maybe Text) agTapeDriveType = lens _agTapeDriveType (\ s a -> s{_agTapeDriveType = a}); --- | A value that defines the type of gateway to activate. The type specified is critical to all later functions of the gateway and cannot be changed after activation. The default value is @STORED@ .+-- | A value that defines the type of gateway to activate. The type specified is critical to all later functions of the gateway and cannot be changed after activation. The default value is @STORED@ .  Valid Values: "STORED", "CACHED", "VTL", "FILE_S3" agGatewayType :: Lens' ActivateGateway (Maybe Text) agGatewayType = lens _agGatewayType (\ s a -> s{_agGatewayType = a}); @@ -135,11 +137,11 @@ agGatewayName :: Lens' ActivateGateway Text agGatewayName = lens _agGatewayName (\ s a -> s{_agGatewayName = a}); --- | A value that indicates the time zone you want to set for the gateway. The time zone is used, for example, for scheduling snapshots and your gateway's maintenance schedule.+-- | A value that indicates the time zone you want to set for the gateway. The time zone is of the format "GMT-hr:mm" or "GMT+hr:mm". For example, GMT-4:00 indicates the time is 4 hours behind GMT. GMT+2:00 indicates the time is 2 hours ahead of GMT. The time zone is used, for example, for scheduling snapshots and your gateway's maintenance schedule. agGatewayTimezone :: Lens' ActivateGateway Text agGatewayTimezone = lens _agGatewayTimezone (\ s a -> s{_agGatewayTimezone = a}); --- | A value that indicates the region where you want to store the snapshot backups. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-west-1", "us-west-2", "eu-west-1", "eu-central-1", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "sa-east-1"+-- | A value that indicates the region where you want to store your data. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-east-2", "us-west-1", "us-west-2", "ca-central-1", "eu-west-1", "eu-central-1", "eu-west-2", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "ap-south-1", "sa-east-1" agGatewayRegion :: Lens' ActivateGateway Text agGatewayRegion = lens _agGatewayRegion (\ s a -> s{_agGatewayRegion = a}); @@ -152,9 +154,9 @@                  ActivateGatewayResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable ActivateGateway+instance Hashable ActivateGateway where -instance NFData ActivateGateway+instance NFData ActivateGateway where  instance ToHeaders ActivateGateway where         toHeaders@@ -190,10 +192,11 @@ -- -- /See:/ 'activateGatewayResponse' smart constructor. data ActivateGatewayResponse = ActivateGatewayResponse'-    { _agrsGatewayARN     :: !(Maybe Text)-    , _agrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _agrsGatewayARN     :: !(Maybe Text)+  , _agrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ActivateGatewayResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -205,11 +208,10 @@     :: Int -- ^ 'agrsResponseStatus'     -> ActivateGatewayResponse activateGatewayResponse pResponseStatus_ =-    ActivateGatewayResponse'-    { _agrsGatewayARN = Nothing-    , _agrsResponseStatus = pResponseStatus_-    }+  ActivateGatewayResponse'+  {_agrsGatewayARN = Nothing, _agrsResponseStatus = pResponseStatus_} + -- | Undocumented member. agrsGatewayARN :: Lens' ActivateGatewayResponse (Maybe Text) agrsGatewayARN = lens _agrsGatewayARN (\ s a -> s{_agrsGatewayARN = a});@@ -218,4 +220,4 @@ agrsResponseStatus :: Lens' ActivateGatewayResponse Int agrsResponseStatus = lens _agrsResponseStatus (\ s a -> s{_agrsResponseStatus = a}); -instance NFData ActivateGatewayResponse+instance NFData ActivateGatewayResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.AddCache--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Configures one or more gateway local disks as cache for a cached-volume gateway. This operation is supported only for the gateway-cached volume architecture (see <http://docs.aws.amazon.com/storagegateway/latest/userguide/StorageGatewayConcepts.html Storage Gateway Concepts> ).+-- Configures one or more gateway local disks as cache for a gateway. This operation is only supported in the cached volume, tape and file gateway architectures (see <http://docs.aws.amazon.com/storagegateway/latest/userguide/StorageGatewayConcepts.html Storage Gateway Concepts> ). -- -- -- In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add cache, and one or more disk IDs that you want to configure as cache.@@ -40,19 +40,20 @@     , acrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'addCache' smart constructor. data AddCache = AddCache'-    { _acGatewayARN :: !Text-    , _acDiskIds    :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _acGatewayARN :: !Text+  , _acDiskIds    :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddCache' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,9 @@     :: Text -- ^ 'acGatewayARN'     -> AddCache addCache pGatewayARN_ =-    AddCache'-    { _acGatewayARN = pGatewayARN_-    , _acDiskIds = mempty-    }+  AddCache' {_acGatewayARN = pGatewayARN_, _acDiskIds = mempty} + -- | Undocumented member. acGatewayARN :: Lens' AddCache Text acGatewayARN = lens _acGatewayARN (\ s a -> s{_acGatewayARN = a});@@ -86,9 +85,9 @@                  AddCacheResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable AddCache+instance Hashable AddCache where -instance NFData AddCache+instance NFData AddCache where  instance ToHeaders AddCache where         toHeaders@@ -114,10 +113,11 @@  -- | /See:/ 'addCacheResponse' smart constructor. data AddCacheResponse = AddCacheResponse'-    { _acrsGatewayARN     :: !(Maybe Text)-    , _acrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _acrsGatewayARN     :: !(Maybe Text)+  , _acrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddCacheResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +129,10 @@     :: Int -- ^ 'acrsResponseStatus'     -> AddCacheResponse addCacheResponse pResponseStatus_ =-    AddCacheResponse'-    { _acrsGatewayARN = Nothing-    , _acrsResponseStatus = pResponseStatus_-    }+  AddCacheResponse'+  {_acrsGatewayARN = Nothing, _acrsResponseStatus = pResponseStatus_} + -- | Undocumented member. acrsGatewayARN :: Lens' AddCacheResponse (Maybe Text) acrsGatewayARN = lens _acrsGatewayARN (\ s a -> s{_acrsGatewayARN = a});@@ -142,4 +141,4 @@ acrsResponseStatus :: Lens' AddCacheResponse Int acrsResponseStatus = lens _acrsResponseStatus (\ s a -> s{_acrsResponseStatus = a}); -instance NFData AddCacheResponse+instance NFData AddCacheResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.AddTagsToResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -52,12 +52,12 @@     , attrrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | AddTagsToResourceInput --@@ -65,10 +65,11 @@ -- -- /See:/ 'addTagsToResource' smart constructor. data AddTagsToResource = AddTagsToResource'-    { _attrResourceARN :: !Text-    , _attrTags        :: ![Tag]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _attrResourceARN :: !Text+  , _attrTags        :: ![Tag]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsToResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,11 +81,9 @@     :: Text -- ^ 'attrResourceARN'     -> AddTagsToResource addTagsToResource pResourceARN_ =-    AddTagsToResource'-    { _attrResourceARN = pResourceARN_-    , _attrTags = mempty-    }+  AddTagsToResource' {_attrResourceARN = pResourceARN_, _attrTags = mempty} + -- | The Amazon Resource Name (ARN) of the resource you want to add tags to. attrResourceARN :: Lens' AddTagsToResource Text attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a});@@ -102,9 +101,9 @@                  AddTagsToResourceResponse' <$>                    (x .?> "ResourceARN") <*> (pure (fromEnum s))) -instance Hashable AddTagsToResource+instance Hashable AddTagsToResource where -instance NFData AddTagsToResource+instance NFData AddTagsToResource where  instance ToHeaders AddTagsToResource where         toHeaders@@ -135,10 +134,11 @@ -- -- /See:/ 'addTagsToResourceResponse' smart constructor. data AddTagsToResourceResponse = AddTagsToResourceResponse'-    { _attrrsResourceARN    :: !(Maybe Text)-    , _attrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _attrrsResourceARN    :: !(Maybe Text)+  , _attrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddTagsToResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -150,11 +150,10 @@     :: Int -- ^ 'attrrsResponseStatus'     -> AddTagsToResourceResponse addTagsToResourceResponse pResponseStatus_ =-    AddTagsToResourceResponse'-    { _attrrsResourceARN = Nothing-    , _attrrsResponseStatus = pResponseStatus_-    }+  AddTagsToResourceResponse'+  {_attrrsResourceARN = Nothing, _attrrsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the resource you want to add tags to. attrrsResourceARN :: Lens' AddTagsToResourceResponse (Maybe Text) attrrsResourceARN = lens _attrrsResourceARN (\ s a -> s{_attrrsResourceARN = a});@@ -163,4 +162,4 @@ attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a}); -instance NFData AddTagsToResourceResponse+instance NFData AddTagsToResourceResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.AddUploadBuffer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Configures one or more gateway local disks as upload buffer for a specified gateway. This operation is supported for both the gateway-stored and gateway-cached volume architectures.+-- Configures one or more gateway local disks as upload buffer for a specified gateway. This operation is supported for the stored volume, cached volume and tape gateway architectures. -- -- -- In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add upload buffer, and one or more disk IDs that you want to configure as upload buffer.@@ -40,19 +40,20 @@     , aubrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'addUploadBuffer' smart constructor. data AddUploadBuffer = AddUploadBuffer'-    { _aubGatewayARN :: !Text-    , _aubDiskIds    :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aubGatewayARN :: !Text+  , _aubDiskIds    :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddUploadBuffer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,9 @@     :: Text -- ^ 'aubGatewayARN'     -> AddUploadBuffer addUploadBuffer pGatewayARN_ =-    AddUploadBuffer'-    { _aubGatewayARN = pGatewayARN_-    , _aubDiskIds = mempty-    }+  AddUploadBuffer' {_aubGatewayARN = pGatewayARN_, _aubDiskIds = mempty} + -- | Undocumented member. aubGatewayARN :: Lens' AddUploadBuffer Text aubGatewayARN = lens _aubGatewayARN (\ s a -> s{_aubGatewayARN = a});@@ -86,9 +85,9 @@                  AddUploadBufferResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable AddUploadBuffer+instance Hashable AddUploadBuffer where -instance NFData AddUploadBuffer+instance NFData AddUploadBuffer where  instance ToHeaders AddUploadBuffer where         toHeaders@@ -115,10 +114,11 @@  -- | /See:/ 'addUploadBufferResponse' smart constructor. data AddUploadBufferResponse = AddUploadBufferResponse'-    { _aubrsGatewayARN     :: !(Maybe Text)-    , _aubrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _aubrsGatewayARN     :: !(Maybe Text)+  , _aubrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddUploadBufferResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -130,11 +130,10 @@     :: Int -- ^ 'aubrsResponseStatus'     -> AddUploadBufferResponse addUploadBufferResponse pResponseStatus_ =-    AddUploadBufferResponse'-    { _aubrsGatewayARN = Nothing-    , _aubrsResponseStatus = pResponseStatus_-    }+  AddUploadBufferResponse'+  {_aubrsGatewayARN = Nothing, _aubrsResponseStatus = pResponseStatus_} + -- | Undocumented member. aubrsGatewayARN :: Lens' AddUploadBufferResponse (Maybe Text) aubrsGatewayARN = lens _aubrsGatewayARN (\ s a -> s{_aubrsGatewayARN = a});@@ -143,4 +142,4 @@ aubrsResponseStatus :: Lens' AddUploadBufferResponse Int aubrsResponseStatus = lens _aubrsResponseStatus (\ s a -> s{_aubrsResponseStatus = a}); -instance NFData AddUploadBufferResponse+instance NFData AddUploadBufferResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.AddWorkingStorage--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Configures one or more gateway local disks as working storage for a gateway. This operation is supported only for the gateway-stored volume architecture. This operation is deprecated in cached-volumes API version 20120630. Use 'AddUploadBuffer' instead.+-- Configures one or more gateway local disks as working storage for a gateway. This operation is only supported in the stored volume gateway architecture. This operation is deprecated in cached volume API version 20120630. Use 'AddUploadBuffer' instead. -- -- -- In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add working storage, and one or more disk IDs that you want to configure as working storage.@@ -40,12 +40,12 @@     , awsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing one or more of the following fields: --@@ -57,10 +57,11 @@ -- -- /See:/ 'addWorkingStorage' smart constructor. data AddWorkingStorage = AddWorkingStorage'-    { _awsGatewayARN :: !Text-    , _awsDiskIds    :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _awsGatewayARN :: !Text+  , _awsDiskIds    :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddWorkingStorage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,11 +73,9 @@     :: Text -- ^ 'awsGatewayARN'     -> AddWorkingStorage addWorkingStorage pGatewayARN_ =-    AddWorkingStorage'-    { _awsGatewayARN = pGatewayARN_-    , _awsDiskIds = mempty-    }+  AddWorkingStorage' {_awsGatewayARN = pGatewayARN_, _awsDiskIds = mempty} + -- | Undocumented member. awsGatewayARN :: Lens' AddWorkingStorage Text awsGatewayARN = lens _awsGatewayARN (\ s a -> s{_awsGatewayARN = a});@@ -94,9 +93,9 @@                  AddWorkingStorageResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable AddWorkingStorage+instance Hashable AddWorkingStorage where -instance NFData AddWorkingStorage+instance NFData AddWorkingStorage where  instance ToHeaders AddWorkingStorage where         toHeaders@@ -127,10 +126,11 @@ -- -- /See:/ 'addWorkingStorageResponse' smart constructor. data AddWorkingStorageResponse = AddWorkingStorageResponse'-    { _awsrsGatewayARN     :: !(Maybe Text)-    , _awsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _awsrsGatewayARN     :: !(Maybe Text)+  , _awsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'AddWorkingStorageResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,11 +142,10 @@     :: Int -- ^ 'awsrsResponseStatus'     -> AddWorkingStorageResponse addWorkingStorageResponse pResponseStatus_ =-    AddWorkingStorageResponse'-    { _awsrsGatewayARN = Nothing-    , _awsrsResponseStatus = pResponseStatus_-    }+  AddWorkingStorageResponse'+  {_awsrsGatewayARN = Nothing, _awsrsResponseStatus = pResponseStatus_} + -- | Undocumented member. awsrsGatewayARN :: Lens' AddWorkingStorageResponse (Maybe Text) awsrsGatewayARN = lens _awsrsGatewayARN (\ s a -> s{_awsrsGatewayARN = a});@@ -155,4 +154,4 @@ awsrsResponseStatus :: Lens' AddWorkingStorageResponse Int awsrsResponseStatus = lens _awsrsResponseStatus (\ s a -> s{_awsrsResponseStatus = a}); -instance NFData AddWorkingStorageResponse+instance NFData AddWorkingStorageResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CancelArchival--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Cancels archiving of a virtual tape to the virtual tape shelf (VTS) after the archiving process is initiated.+-- Cancels archiving of a virtual tape to the virtual tape shelf (VTS) after the archiving process is initiated. This operation is only supported in the tape gateway architecture. -- -- module Network.AWS.StorageGateway.CancelArchival@@ -38,12 +38,12 @@     , carsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | CancelArchivalInput --@@ -51,10 +51,11 @@ -- -- /See:/ 'cancelArchival' smart constructor. data CancelArchival = CancelArchival'-    { _caGatewayARN :: !Text-    , _caTapeARN    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _caGatewayARN :: !Text+  , _caTapeARN    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelArchival' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,9 @@     -> Text -- ^ 'caTapeARN'     -> CancelArchival cancelArchival pGatewayARN_ pTapeARN_ =-    CancelArchival'-    { _caGatewayARN = pGatewayARN_-    , _caTapeARN = pTapeARN_-    }+  CancelArchival' {_caGatewayARN = pGatewayARN_, _caTapeARN = pTapeARN_} + -- | Undocumented member. caGatewayARN :: Lens' CancelArchival Text caGatewayARN = lens _caGatewayARN (\ s a -> s{_caGatewayARN = a});@@ -89,9 +88,9 @@                  CancelArchivalResponse' <$>                    (x .?> "TapeARN") <*> (pure (fromEnum s))) -instance Hashable CancelArchival+instance Hashable CancelArchival where -instance NFData CancelArchival+instance NFData CancelArchival where  instance ToHeaders CancelArchival where         toHeaders@@ -122,10 +121,11 @@ -- -- /See:/ 'cancelArchivalResponse' smart constructor. data CancelArchivalResponse = CancelArchivalResponse'-    { _carsTapeARN        :: !(Maybe Text)-    , _carsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _carsTapeARN        :: !(Maybe Text)+  , _carsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelArchivalResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,11 +137,10 @@     :: Int -- ^ 'carsResponseStatus'     -> CancelArchivalResponse cancelArchivalResponse pResponseStatus_ =-    CancelArchivalResponse'-    { _carsTapeARN = Nothing-    , _carsResponseStatus = pResponseStatus_-    }+  CancelArchivalResponse'+  {_carsTapeARN = Nothing, _carsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the virtual tape for which archiving was canceled. carsTapeARN :: Lens' CancelArchivalResponse (Maybe Text) carsTapeARN = lens _carsTapeARN (\ s a -> s{_carsTapeARN = a});@@ -150,4 +149,4 @@ carsResponseStatus :: Lens' CancelArchivalResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a}); -instance NFData CancelArchivalResponse+instance NFData CancelArchivalResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.CancelRetrieval--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , crrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | CancelRetrievalInput --@@ -51,10 +51,11 @@ -- -- /See:/ 'cancelRetrieval' smart constructor. data CancelRetrieval = CancelRetrieval'-    { _crGatewayARN :: !Text-    , _crTapeARN    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crGatewayARN :: !Text+  , _crTapeARN    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelRetrieval' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,9 @@     -> Text -- ^ 'crTapeARN'     -> CancelRetrieval cancelRetrieval pGatewayARN_ pTapeARN_ =-    CancelRetrieval'-    { _crGatewayARN = pGatewayARN_-    , _crTapeARN = pTapeARN_-    }+  CancelRetrieval' {_crGatewayARN = pGatewayARN_, _crTapeARN = pTapeARN_} + -- | Undocumented member. crGatewayARN :: Lens' CancelRetrieval Text crGatewayARN = lens _crGatewayARN (\ s a -> s{_crGatewayARN = a});@@ -89,9 +88,9 @@                  CancelRetrievalResponse' <$>                    (x .?> "TapeARN") <*> (pure (fromEnum s))) -instance Hashable CancelRetrieval+instance Hashable CancelRetrieval where -instance NFData CancelRetrieval+instance NFData CancelRetrieval where  instance ToHeaders CancelRetrieval where         toHeaders@@ -122,10 +121,11 @@ -- -- /See:/ 'cancelRetrievalResponse' smart constructor. data CancelRetrievalResponse = CancelRetrievalResponse'-    { _crrsTapeARN        :: !(Maybe Text)-    , _crrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _crrsTapeARN        :: !(Maybe Text)+  , _crrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CancelRetrievalResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,11 +137,10 @@     :: Int -- ^ 'crrsResponseStatus'     -> CancelRetrievalResponse cancelRetrievalResponse pResponseStatus_ =-    CancelRetrievalResponse'-    { _crrsTapeARN = Nothing-    , _crrsResponseStatus = pResponseStatus_-    }+  CancelRetrievalResponse'+  {_crrsTapeARN = Nothing, _crrsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the virtual tape for which retrieval was canceled. crrsTapeARN :: Lens' CancelRetrievalResponse (Maybe Text) crrsTapeARN = lens _crrsTapeARN (\ s a -> s{_crrsTapeARN = a});@@ -150,4 +149,4 @@ crrsResponseStatus :: Lens' CancelRetrievalResponse Int crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a}); -instance NFData CancelRetrievalResponse+instance NFData CancelRetrievalResponse where

@@ -12,23 +12,26 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateCachediSCSIVolume--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a cached volume on a specified cached gateway. This operation is supported only for the gateway-cached volume architecture.+-- Creates a cached volume on a specified cached volume gateway. This operation is only supported in the cached volume gateway architecture. -- ----- In the request, you must specify the gateway, size of the volume in bytes, the iSCSI target name, an IP address on which to expose the target, and a unique client token. In response, AWS Storage Gateway creates the volume and returns information about it such as the volume Amazon Resource Name (ARN), its size, and the iSCSI target ARN that initiators can use to connect to the volume target.+-- In the request, you must specify the gateway, size of the volume in bytes, the iSCSI target name, an IP address on which to expose the target, and a unique client token. In response, the gateway creates the volume and returns information about it. This information includes the volume Amazon Resource Name (ARN), its size, and the iSCSI target ARN that initiators can use to connect to the volume target. --+-- Optionally, you can provide the ARN for an existing volume as the @SourceVolumeARN@ for this cached volume, which creates an exact copy of the existing volume’s latest recovery point. The @VolumeSizeInBytes@ value must be equal to or larger than the size of the copied volume, in bytes.+-- module Network.AWS.StorageGateway.CreateCachediSCSIVolume     (     -- * Creating a Request       createCachediSCSIVolume     , CreateCachediSCSIVolume     -- * Request Lenses+    , ccscsivSourceVolumeARN     , ccscsivSnapshotId     , ccscsivGatewayARN     , ccscsivVolumeSizeInBytes@@ -45,27 +48,31 @@     , ccscsivrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'createCachediSCSIVolume' smart constructor. data CreateCachediSCSIVolume = CreateCachediSCSIVolume'-    { _ccscsivSnapshotId         :: !(Maybe Text)-    , _ccscsivGatewayARN         :: !Text-    , _ccscsivVolumeSizeInBytes  :: !Integer-    , _ccscsivTargetName         :: !Text-    , _ccscsivNetworkInterfaceId :: !Text-    , _ccscsivClientToken        :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccscsivSourceVolumeARN    :: !(Maybe Text)+  , _ccscsivSnapshotId         :: !(Maybe Text)+  , _ccscsivGatewayARN         :: !Text+  , _ccscsivVolumeSizeInBytes  :: !Integer+  , _ccscsivTargetName         :: !Text+  , _ccscsivNetworkInterfaceId :: !Text+  , _ccscsivClientToken        :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCachediSCSIVolume' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'ccscsivSourceVolumeARN' - The ARN for an existing volume. Specifying this ARN makes the new volume into an exact copy of the specified existing volume's latest recovery point. The @VolumeSizeInBytes@ value for this new volume must be equal to or larger than the size of the existing volume, in bytes.+-- -- * 'ccscsivSnapshotId' - Undocumented member. -- -- * 'ccscsivGatewayARN' - Undocumented member.@@ -85,15 +92,21 @@     -> Text -- ^ 'ccscsivClientToken'     -> CreateCachediSCSIVolume createCachediSCSIVolume pGatewayARN_ pVolumeSizeInBytes_ pTargetName_ pNetworkInterfaceId_ pClientToken_ =-    CreateCachediSCSIVolume'-    { _ccscsivSnapshotId = Nothing-    , _ccscsivGatewayARN = pGatewayARN_-    , _ccscsivVolumeSizeInBytes = pVolumeSizeInBytes_-    , _ccscsivTargetName = pTargetName_-    , _ccscsivNetworkInterfaceId = pNetworkInterfaceId_-    , _ccscsivClientToken = pClientToken_-    }+  CreateCachediSCSIVolume'+  { _ccscsivSourceVolumeARN = Nothing+  , _ccscsivSnapshotId = Nothing+  , _ccscsivGatewayARN = pGatewayARN_+  , _ccscsivVolumeSizeInBytes = pVolumeSizeInBytes_+  , _ccscsivTargetName = pTargetName_+  , _ccscsivNetworkInterfaceId = pNetworkInterfaceId_+  , _ccscsivClientToken = pClientToken_+  } ++-- | The ARN for an existing volume. Specifying this ARN makes the new volume into an exact copy of the specified existing volume's latest recovery point. The @VolumeSizeInBytes@ value for this new volume must be equal to or larger than the size of the existing volume, in bytes.+ccscsivSourceVolumeARN :: Lens' CreateCachediSCSIVolume (Maybe Text)+ccscsivSourceVolumeARN = lens _ccscsivSourceVolumeARN (\ s a -> s{_ccscsivSourceVolumeARN = a});+ -- | Undocumented member. ccscsivSnapshotId :: Lens' CreateCachediSCSIVolume (Maybe Text) ccscsivSnapshotId = lens _ccscsivSnapshotId (\ s a -> s{_ccscsivSnapshotId = a});@@ -129,9 +142,9 @@                    (x .?> "TargetARN") <*> (x .?> "VolumeARN") <*>                      (pure (fromEnum s))) -instance Hashable CreateCachediSCSIVolume+instance Hashable CreateCachediSCSIVolume where -instance NFData CreateCachediSCSIVolume+instance NFData CreateCachediSCSIVolume where  instance ToHeaders CreateCachediSCSIVolume where         toHeaders@@ -147,7 +160,8 @@         toJSON CreateCachediSCSIVolume'{..}           = object               (catMaybes-                 [("SnapshotId" .=) <$> _ccscsivSnapshotId,+                 [("SourceVolumeARN" .=) <$> _ccscsivSourceVolumeARN,+                  ("SnapshotId" .=) <$> _ccscsivSnapshotId,                   Just ("GatewayARN" .= _ccscsivGatewayARN),                   Just                     ("VolumeSizeInBytes" .= _ccscsivVolumeSizeInBytes),@@ -164,11 +178,12 @@  -- | /See:/ 'createCachediSCSIVolumeResponse' smart constructor. data CreateCachediSCSIVolumeResponse = CreateCachediSCSIVolumeResponse'-    { _ccscsivrsTargetARN      :: !(Maybe Text)-    , _ccscsivrsVolumeARN      :: !(Maybe Text)-    , _ccscsivrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ccscsivrsTargetARN      :: !(Maybe Text)+  , _ccscsivrsVolumeARN      :: !(Maybe Text)+  , _ccscsivrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateCachediSCSIVolumeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -182,12 +197,13 @@     :: Int -- ^ 'ccscsivrsResponseStatus'     -> CreateCachediSCSIVolumeResponse createCachediSCSIVolumeResponse pResponseStatus_ =-    CreateCachediSCSIVolumeResponse'-    { _ccscsivrsTargetARN = Nothing-    , _ccscsivrsVolumeARN = Nothing-    , _ccscsivrsResponseStatus = pResponseStatus_-    }+  CreateCachediSCSIVolumeResponse'+  { _ccscsivrsTargetARN = Nothing+  , _ccscsivrsVolumeARN = Nothing+  , _ccscsivrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. ccscsivrsTargetARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text) ccscsivrsTargetARN = lens _ccscsivrsTargetARN (\ s a -> s{_ccscsivrsTargetARN = a});@@ -200,4 +216,4 @@ ccscsivrsResponseStatus :: Lens' CreateCachediSCSIVolumeResponse Int ccscsivrsResponseStatus = lens _ccscsivrsResponseStatus (\ s a -> s{_ccscsivrsResponseStatus = a}); -instance NFData CreateCachediSCSIVolumeResponse+instance NFData CreateCachediSCSIVolumeResponse where

@@ -0,0 +1,254 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.StorageGateway.CreateNFSFileShare+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Creates a file share on an existing file gateway. In Storage Gateway, a file share is a file system mount point backed by Amazon S3 cloud storage. Storage Gateway exposes file shares using a Network File System (NFS) interface. This operation is only supported in the file gateway architecture.+--+--+-- /Important:/ File gateway requires AWS Security Token Service (AWS STS) to be activated to enable you create a file share. Make sure AWS STS is activated in the region you are creating your file gateway in. If AWS STS is not activated in the region, activate it. For information about how to activate AWS STS, see Activating and Deactivating AWS STS in an AWS Region in the AWS Identity and Access Management User Guide.+--+-- File gateway does not support creating hard or symbolic links on a file share.+--+module Network.AWS.StorageGateway.CreateNFSFileShare+    (+    -- * Creating a Request+      createNFSFileShare+    , CreateNFSFileShare+    -- * Request Lenses+    , cnfsfsKMSKey+    , cnfsfsKMSEncrypted+    , cnfsfsDefaultStorageClass+    , cnfsfsSquash+    , cnfsfsNFSFileShareDefaults+    , cnfsfsClientList+    , cnfsfsReadOnly+    , cnfsfsClientToken+    , cnfsfsGatewayARN+    , cnfsfsRole+    , cnfsfsLocationARN++    -- * Destructuring the Response+    , createNFSFileShareResponse+    , CreateNFSFileShareResponse+    -- * Response Lenses+    , cnfsfsrsFileShareARN+    , cnfsfsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product++-- | CreateNFSFileShareInput+--+--+--+-- /See:/ 'createNFSFileShare' smart constructor.+data CreateNFSFileShare = CreateNFSFileShare'+  { _cnfsfsKMSKey               :: !(Maybe Text)+  , _cnfsfsKMSEncrypted         :: !(Maybe Bool)+  , _cnfsfsDefaultStorageClass  :: !(Maybe Text)+  , _cnfsfsSquash               :: !(Maybe Text)+  , _cnfsfsNFSFileShareDefaults :: !(Maybe NFSFileShareDefaults)+  , _cnfsfsClientList           :: !(Maybe (List1 Text))+  , _cnfsfsReadOnly             :: !(Maybe Bool)+  , _cnfsfsClientToken          :: !Text+  , _cnfsfsGatewayARN           :: !Text+  , _cnfsfsRole                 :: !Text+  , _cnfsfsLocationARN          :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateNFSFileShare' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cnfsfsKMSKey' - The KMS key used for Amazon S3 server side encryption. This value can only be set when KmsEncrypted is true. Optional.+--+-- * 'cnfsfsKMSEncrypted' - True to use Amazon S3 server side encryption with your own AWS KMS key, or false to use a key managed by Amazon S3. Optional.+--+-- * 'cnfsfsDefaultStorageClass' - The default storage class for objects put into an Amazon S3 bucket by file gateway. Possible values are S3_STANDARD or S3_STANDARD_IA. If this field is not populated, the default value S3_STANDARD is used. Optional.+--+-- * 'cnfsfsSquash' - Maps a user to anonymous user. Valid options are the following:      * "RootSquash" - Only root is mapped to anonymous user.     * "NoSquash" - No one is mapped to anonymous user.     * "AllSquash" - Everyone is mapped to anonymous user.+--+-- * 'cnfsfsNFSFileShareDefaults' - File share default values. Optional.+--+-- * 'cnfsfsClientList' - The list of clients that are allowed to access the file gateway. The list must contain either valid IP addresses or valid CIDR blocks.+--+-- * 'cnfsfsReadOnly' - Sets the write status of a file share: "true" if the write status is read-only, and otherwise "false".+--+-- * 'cnfsfsClientToken' - A unique string value that you supply that is used by file gateway to ensure idempotent file share creation.+--+-- * 'cnfsfsGatewayARN' - The Amazon Resource Name (ARN) of the file gateway on which you want to create a file share.+--+-- * 'cnfsfsRole' - The ARN of the AWS Identity and Access Management (IAM) role that a file gateway assumes when it accesses the underlying storage.+--+-- * 'cnfsfsLocationARN' - The ARN of the backed storage used for storing file data.+createNFSFileShare+    :: Text -- ^ 'cnfsfsClientToken'+    -> Text -- ^ 'cnfsfsGatewayARN'+    -> Text -- ^ 'cnfsfsRole'+    -> Text -- ^ 'cnfsfsLocationARN'+    -> CreateNFSFileShare+createNFSFileShare pClientToken_ pGatewayARN_ pRole_ pLocationARN_ =+  CreateNFSFileShare'+  { _cnfsfsKMSKey = Nothing+  , _cnfsfsKMSEncrypted = Nothing+  , _cnfsfsDefaultStorageClass = Nothing+  , _cnfsfsSquash = Nothing+  , _cnfsfsNFSFileShareDefaults = Nothing+  , _cnfsfsClientList = Nothing+  , _cnfsfsReadOnly = Nothing+  , _cnfsfsClientToken = pClientToken_+  , _cnfsfsGatewayARN = pGatewayARN_+  , _cnfsfsRole = pRole_+  , _cnfsfsLocationARN = pLocationARN_+  }+++-- | The KMS key used for Amazon S3 server side encryption. This value can only be set when KmsEncrypted is true. Optional.+cnfsfsKMSKey :: Lens' CreateNFSFileShare (Maybe Text)+cnfsfsKMSKey = lens _cnfsfsKMSKey (\ s a -> s{_cnfsfsKMSKey = a});++-- | True to use Amazon S3 server side encryption with your own AWS KMS key, or false to use a key managed by Amazon S3. Optional.+cnfsfsKMSEncrypted :: Lens' CreateNFSFileShare (Maybe Bool)+cnfsfsKMSEncrypted = lens _cnfsfsKMSEncrypted (\ s a -> s{_cnfsfsKMSEncrypted = a});++-- | The default storage class for objects put into an Amazon S3 bucket by file gateway. Possible values are S3_STANDARD or S3_STANDARD_IA. If this field is not populated, the default value S3_STANDARD is used. Optional.+cnfsfsDefaultStorageClass :: Lens' CreateNFSFileShare (Maybe Text)+cnfsfsDefaultStorageClass = lens _cnfsfsDefaultStorageClass (\ s a -> s{_cnfsfsDefaultStorageClass = a});++-- | Maps a user to anonymous user. Valid options are the following:      * "RootSquash" - Only root is mapped to anonymous user.     * "NoSquash" - No one is mapped to anonymous user.     * "AllSquash" - Everyone is mapped to anonymous user.+cnfsfsSquash :: Lens' CreateNFSFileShare (Maybe Text)+cnfsfsSquash = lens _cnfsfsSquash (\ s a -> s{_cnfsfsSquash = a});++-- | File share default values. Optional.+cnfsfsNFSFileShareDefaults :: Lens' CreateNFSFileShare (Maybe NFSFileShareDefaults)+cnfsfsNFSFileShareDefaults = lens _cnfsfsNFSFileShareDefaults (\ s a -> s{_cnfsfsNFSFileShareDefaults = a});++-- | The list of clients that are allowed to access the file gateway. The list must contain either valid IP addresses or valid CIDR blocks.+cnfsfsClientList :: Lens' CreateNFSFileShare (Maybe (NonEmpty Text))+cnfsfsClientList = lens _cnfsfsClientList (\ s a -> s{_cnfsfsClientList = a}) . mapping _List1;++-- | Sets the write status of a file share: "true" if the write status is read-only, and otherwise "false".+cnfsfsReadOnly :: Lens' CreateNFSFileShare (Maybe Bool)+cnfsfsReadOnly = lens _cnfsfsReadOnly (\ s a -> s{_cnfsfsReadOnly = a});++-- | A unique string value that you supply that is used by file gateway to ensure idempotent file share creation.+cnfsfsClientToken :: Lens' CreateNFSFileShare Text+cnfsfsClientToken = lens _cnfsfsClientToken (\ s a -> s{_cnfsfsClientToken = a});++-- | The Amazon Resource Name (ARN) of the file gateway on which you want to create a file share.+cnfsfsGatewayARN :: Lens' CreateNFSFileShare Text+cnfsfsGatewayARN = lens _cnfsfsGatewayARN (\ s a -> s{_cnfsfsGatewayARN = a});++-- | The ARN of the AWS Identity and Access Management (IAM) role that a file gateway assumes when it accesses the underlying storage.+cnfsfsRole :: Lens' CreateNFSFileShare Text+cnfsfsRole = lens _cnfsfsRole (\ s a -> s{_cnfsfsRole = a});++-- | The ARN of the backed storage used for storing file data.+cnfsfsLocationARN :: Lens' CreateNFSFileShare Text+cnfsfsLocationARN = lens _cnfsfsLocationARN (\ s a -> s{_cnfsfsLocationARN = a});++instance AWSRequest CreateNFSFileShare where+        type Rs CreateNFSFileShare =+             CreateNFSFileShareResponse+        request = postJSON storageGateway+        response+          = receiveJSON+              (\ s h x ->+                 CreateNFSFileShareResponse' <$>+                   (x .?> "FileShareARN") <*> (pure (fromEnum s)))++instance Hashable CreateNFSFileShare where++instance NFData CreateNFSFileShare where++instance ToHeaders CreateNFSFileShare where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CreateNFSFileShare" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON CreateNFSFileShare where+        toJSON CreateNFSFileShare'{..}+          = object+              (catMaybes+                 [("KMSKey" .=) <$> _cnfsfsKMSKey,+                  ("KMSEncrypted" .=) <$> _cnfsfsKMSEncrypted,+                  ("DefaultStorageClass" .=) <$>+                    _cnfsfsDefaultStorageClass,+                  ("Squash" .=) <$> _cnfsfsSquash,+                  ("NFSFileShareDefaults" .=) <$>+                    _cnfsfsNFSFileShareDefaults,+                  ("ClientList" .=) <$> _cnfsfsClientList,+                  ("ReadOnly" .=) <$> _cnfsfsReadOnly,+                  Just ("ClientToken" .= _cnfsfsClientToken),+                  Just ("GatewayARN" .= _cnfsfsGatewayARN),+                  Just ("Role" .= _cnfsfsRole),+                  Just ("LocationARN" .= _cnfsfsLocationARN)])++instance ToPath CreateNFSFileShare where+        toPath = const "/"++instance ToQuery CreateNFSFileShare where+        toQuery = const mempty++-- | CreateNFSFileShareOutput+--+--+--+-- /See:/ 'createNFSFileShareResponse' smart constructor.+data CreateNFSFileShareResponse = CreateNFSFileShareResponse'+  { _cnfsfsrsFileShareARN   :: !(Maybe Text)+  , _cnfsfsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'CreateNFSFileShareResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'cnfsfsrsFileShareARN' - The Amazon Resource Name (ARN) of the newly created file share.+--+-- * 'cnfsfsrsResponseStatus' - -- | The response status code.+createNFSFileShareResponse+    :: Int -- ^ 'cnfsfsrsResponseStatus'+    -> CreateNFSFileShareResponse+createNFSFileShareResponse pResponseStatus_ =+  CreateNFSFileShareResponse'+  {_cnfsfsrsFileShareARN = Nothing, _cnfsfsrsResponseStatus = pResponseStatus_}+++-- | The Amazon Resource Name (ARN) of the newly created file share.+cnfsfsrsFileShareARN :: Lens' CreateNFSFileShareResponse (Maybe Text)+cnfsfsrsFileShareARN = lens _cnfsfsrsFileShareARN (\ s a -> s{_cnfsfsrsFileShareARN = a});++-- | -- | The response status code.+cnfsfsrsResponseStatus :: Lens' CreateNFSFileShareResponse Int+cnfsfsrsResponseStatus = lens _cnfsfsrsResponseStatus (\ s a -> s{_cnfsfsrsResponseStatus = a});++instance NFData CreateNFSFileShareResponse where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateSnapshot--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Initiates a snapshot of a volume. -- ----- AWS Storage Gateway provides the ability to back up point-in-time snapshots of your data to Amazon Simple Storage (S3) for durable off-site recovery, as well as import the data to an Amazon Elastic Block Store (EBS) volume in Amazon Elastic Compute Cloud (EC2). You can take snapshots of your gateway volume on a scheduled or ad-hoc basis. This API enables you to take ad-hoc snapshot. For more information, see <http://docs.aws.amazon.com/storagegateway/latest/userguide/WorkingWithSnapshots.html Working With Snapshots in the AWS Storage Gateway Console> .+-- AWS Storage Gateway provides the ability to back up point-in-time snapshots of your data to Amazon Simple Storage (S3) for durable off-site recovery, as well as import the data to an Amazon Elastic Block Store (EBS) volume in Amazon Elastic Compute Cloud (EC2). You can take snapshots of your gateway volume on a scheduled or ad-hoc basis. This API enables you to take ad-hoc snapshot. For more information, see <http://docs.aws.amazon.com/storagegateway/latest/userguide/managing-volumes.html#SchedulingSnapshot Editing a Snapshot Schedule> . ----- In the CreateSnapshot request you identify the volume by providing its Amazon Resource Name (ARN). You must also provide description for the snapshot. When AWS Storage Gateway takes the snapshot of specified volume, the snapshot and description appears in the AWS Storage Gateway Console. In response, AWS Storage Gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot.+-- In the CreateSnapshot request you identify the volume by providing its Amazon Resource Name (ARN). You must also provide description for the snapshot. When AWS Storage Gateway takes the snapshot of specified volume, the snapshot and description appears in the AWS Storage Gateway Console. In response, AWS Storage Gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot. This operation is only supported in stored and cached volume gateway architecture. -- -- /Important:/ Volume and snapshot IDs are changing to a longer length ID format. For more information, see the important note on the <http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html Welcome> page. --@@ -45,12 +45,12 @@     , csrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing one or more of the following fields: --@@ -64,10 +64,11 @@ -- -- /See:/ 'createSnapshot' smart constructor. data CreateSnapshot = CreateSnapshot'-    { _csVolumeARN           :: !Text-    , _csSnapshotDescription :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csVolumeARN           :: !Text+  , _csSnapshotDescription :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSnapshot' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,11 +81,10 @@     -> Text -- ^ 'csSnapshotDescription'     -> CreateSnapshot createSnapshot pVolumeARN_ pSnapshotDescription_ =-    CreateSnapshot'-    { _csVolumeARN = pVolumeARN_-    , _csSnapshotDescription = pSnapshotDescription_-    }+  CreateSnapshot'+  {_csVolumeARN = pVolumeARN_, _csSnapshotDescription = pSnapshotDescription_} + -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes. csVolumeARN :: Lens' CreateSnapshot Text csVolumeARN = lens _csVolumeARN (\ s a -> s{_csVolumeARN = a});@@ -103,9 +103,9 @@                    (x .?> "VolumeARN") <*> (x .?> "SnapshotId") <*>                      (pure (fromEnum s))) -instance Hashable CreateSnapshot+instance Hashable CreateSnapshot where -instance NFData CreateSnapshot+instance NFData CreateSnapshot where  instance ToHeaders CreateSnapshot where         toHeaders@@ -137,11 +137,12 @@ -- -- /See:/ 'createSnapshotResponse' smart constructor. data CreateSnapshotResponse = CreateSnapshotResponse'-    { _csrsVolumeARN      :: !(Maybe Text)-    , _csrsSnapshotId     :: !(Maybe Text)-    , _csrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csrsVolumeARN      :: !(Maybe Text)+  , _csrsSnapshotId     :: !(Maybe Text)+  , _csrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSnapshotResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -155,12 +156,13 @@     :: Int -- ^ 'csrsResponseStatus'     -> CreateSnapshotResponse createSnapshotResponse pResponseStatus_ =-    CreateSnapshotResponse'-    { _csrsVolumeARN = Nothing-    , _csrsSnapshotId = Nothing-    , _csrsResponseStatus = pResponseStatus_-    }+  CreateSnapshotResponse'+  { _csrsVolumeARN = Nothing+  , _csrsSnapshotId = Nothing+  , _csrsResponseStatus = pResponseStatus_+  } + -- | The Amazon Resource Name (ARN) of the volume of which the snapshot was taken. csrsVolumeARN :: Lens' CreateSnapshotResponse (Maybe Text) csrsVolumeARN = lens _csrsVolumeARN (\ s a -> s{_csrsVolumeARN = a});@@ -173,4 +175,4 @@ csrsResponseStatus :: Lens' CreateSnapshotResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); -instance NFData CreateSnapshotResponse+instance NFData CreateSnapshotResponse where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Initiates a snapshot of a gateway from a volume recovery point. This operation is supported only for the gateway-cached volume architecture.+-- Initiates a snapshot of a gateway from a volume recovery point. This operation is only supported in the cached volume gateway architecture. -- ----- A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot. To get a list of volume recovery point for gateway-cached volumes, use 'ListVolumeRecoveryPoints' .+-- A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot. To get a list of volume recovery point for cached volume gateway, use 'ListVolumeRecoveryPoints' . ----- In the @CreateSnapshotFromVolumeRecoveryPoint@ request, you identify the volume by providing its Amazon Resource Name (ARN). You must also provide a description for the snapshot. When AWS Storage Gateway takes a snapshot of the specified volume, the snapshot and its description appear in the AWS Storage Gateway console. In response, AWS Storage Gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot.+-- In the @CreateSnapshotFromVolumeRecoveryPoint@ request, you identify the volume by providing its Amazon Resource Name (ARN). You must also provide a description for the snapshot. When the gateway takes a snapshot of the specified volume, the snapshot and its description appear in the AWS Storage Gateway console. In response, the gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot. -- module Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint     (@@ -44,19 +44,20 @@     , csfvrprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'createSnapshotFromVolumeRecoveryPoint' smart constructor. data CreateSnapshotFromVolumeRecoveryPoint = CreateSnapshotFromVolumeRecoveryPoint'-    { _csfvrpVolumeARN           :: !Text-    , _csfvrpSnapshotDescription :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csfvrpVolumeARN           :: !Text+  , _csfvrpSnapshotDescription :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSnapshotFromVolumeRecoveryPoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +70,12 @@     -> Text -- ^ 'csfvrpSnapshotDescription'     -> CreateSnapshotFromVolumeRecoveryPoint createSnapshotFromVolumeRecoveryPoint pVolumeARN_ pSnapshotDescription_ =-    CreateSnapshotFromVolumeRecoveryPoint'-    { _csfvrpVolumeARN = pVolumeARN_-    , _csfvrpSnapshotDescription = pSnapshotDescription_-    }+  CreateSnapshotFromVolumeRecoveryPoint'+  { _csfvrpVolumeARN = pVolumeARN_+  , _csfvrpSnapshotDescription = pSnapshotDescription_+  } + -- | Undocumented member. csfvrpVolumeARN :: Lens' CreateSnapshotFromVolumeRecoveryPoint Text csfvrpVolumeARN = lens _csfvrpVolumeARN (\ s a -> s{_csfvrpVolumeARN = a});@@ -83,7 +85,8 @@ csfvrpSnapshotDescription = lens _csfvrpSnapshotDescription (\ s a -> s{_csfvrpSnapshotDescription = a});  instance AWSRequest-         CreateSnapshotFromVolumeRecoveryPoint where+           CreateSnapshotFromVolumeRecoveryPoint+         where         type Rs CreateSnapshotFromVolumeRecoveryPoint =              CreateSnapshotFromVolumeRecoveryPointResponse         request = postJSON storageGateway@@ -97,12 +100,15 @@                      <*> (pure (fromEnum s)))  instance Hashable-         CreateSnapshotFromVolumeRecoveryPoint+           CreateSnapshotFromVolumeRecoveryPoint+         where  instance NFData CreateSnapshotFromVolumeRecoveryPoint+         where  instance ToHeaders-         CreateSnapshotFromVolumeRecoveryPoint where+           CreateSnapshotFromVolumeRecoveryPoint+         where         toHeaders           = const               (mconcat@@ -127,17 +133,19 @@         toPath = const "/"  instance ToQuery-         CreateSnapshotFromVolumeRecoveryPoint where+           CreateSnapshotFromVolumeRecoveryPoint+         where         toQuery = const mempty  -- | /See:/ 'createSnapshotFromVolumeRecoveryPointResponse' smart constructor. data CreateSnapshotFromVolumeRecoveryPointResponse = CreateSnapshotFromVolumeRecoveryPointResponse'-    { _csfvrprsVolumeRecoveryPointTime :: !(Maybe Text)-    , _csfvrprsVolumeARN               :: !(Maybe Text)-    , _csfvrprsSnapshotId              :: !(Maybe Text)-    , _csfvrprsResponseStatus          :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csfvrprsVolumeRecoveryPointTime :: !(Maybe Text)+  , _csfvrprsVolumeARN               :: !(Maybe Text)+  , _csfvrprsSnapshotId              :: !(Maybe Text)+  , _csfvrprsResponseStatus          :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateSnapshotFromVolumeRecoveryPointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -153,13 +161,14 @@     :: Int -- ^ 'csfvrprsResponseStatus'     -> CreateSnapshotFromVolumeRecoveryPointResponse createSnapshotFromVolumeRecoveryPointResponse pResponseStatus_ =-    CreateSnapshotFromVolumeRecoveryPointResponse'-    { _csfvrprsVolumeRecoveryPointTime = Nothing-    , _csfvrprsVolumeARN = Nothing-    , _csfvrprsSnapshotId = Nothing-    , _csfvrprsResponseStatus = pResponseStatus_-    }+  CreateSnapshotFromVolumeRecoveryPointResponse'+  { _csfvrprsVolumeRecoveryPointTime = Nothing+  , _csfvrprsVolumeARN = Nothing+  , _csfvrprsSnapshotId = Nothing+  , _csfvrprsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. csfvrprsVolumeRecoveryPointTime :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text) csfvrprsVolumeRecoveryPointTime = lens _csfvrprsVolumeRecoveryPointTime (\ s a -> s{_csfvrprsVolumeRecoveryPointTime = a});@@ -177,4 +186,5 @@ csfvrprsResponseStatus = lens _csfvrprsResponseStatus (\ s a -> s{_csfvrprsResponseStatus = a});  instance NFData-         CreateSnapshotFromVolumeRecoveryPointResponse+           CreateSnapshotFromVolumeRecoveryPointResponse+         where

@@ -12,18 +12,18 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateStorediSCSIVolume--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a volume on a specified gateway. This operation is supported only for the gateway-stored volume architecture.+-- Creates a volume on a specified gateway. This operation is only supported in the stored volume gateway architecture. -- -- -- The size of the volume to create is inferred from the disk size. You can choose to preserve existing data on the disk, create volume from an existing snapshot, or create an empty volume. If you choose to create an empty gateway volume, then any existing data on the disk is erased. ----- In the request you must specify the gateway and the disk information on which you are creating the volume. In response, AWS Storage Gateway creates the volume and returns volume information such as the volume Amazon Resource Name (ARN), its size, and the iSCSI target ARN that initiators can use to connect to the volume target.+-- In the request you must specify the gateway and the disk information on which you are creating the volume. In response, the gateway creates the volume and returns volume information such as the volume Amazon Resource Name (ARN), its size, and the iSCSI target ARN that initiators can use to connect to the volume target. -- module Network.AWS.StorageGateway.CreateStorediSCSIVolume     (@@ -48,12 +48,12 @@     , csscsivrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing one or more of the following fields: --@@ -73,14 +73,15 @@ -- -- /See:/ 'createStorediSCSIVolume' smart constructor. data CreateStorediSCSIVolume = CreateStorediSCSIVolume'-    { _csscsivSnapshotId           :: !(Maybe Text)-    , _csscsivGatewayARN           :: !Text-    , _csscsivDiskId               :: !Text-    , _csscsivPreserveExistingData :: !Bool-    , _csscsivTargetName           :: !Text-    , _csscsivNetworkInterfaceId   :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csscsivSnapshotId           :: !(Maybe Text)+  , _csscsivGatewayARN           :: !Text+  , _csscsivDiskId               :: !Text+  , _csscsivPreserveExistingData :: !Bool+  , _csscsivTargetName           :: !Text+  , _csscsivNetworkInterfaceId   :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStorediSCSIVolume' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -93,7 +94,7 @@ -- -- * 'csscsivPreserveExistingData' - Specify this field as true if you want to preserve the data on the local disk. Otherwise, specifying this field as false creates an empty volume. Valid Values: true, false ----- * 'csscsivTargetName' - The name of the iSCSI target used by initiators to connect to the target and as a suffix for the target ARN. For example, specifying @TargetName@ as /myvolume/ results in the target ARN of arn:aws:storagegateway:us-east-1:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes of a gateway.+-- * 'csscsivTargetName' - The name of the iSCSI target used by initiators to connect to the target and as a suffix for the target ARN. For example, specifying @TargetName@ as /myvolume/ results in the target ARN of arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes of a gateway. -- -- * 'csscsivNetworkInterfaceId' - The network interface of the gateway on which to expose the iSCSI target. Only IPv4 addresses are accepted. Use 'DescribeGatewayInformation' to get a list of the network interfaces available on a gateway. Valid Values: A valid IP address. createStorediSCSIVolume@@ -104,15 +105,16 @@     -> Text -- ^ 'csscsivNetworkInterfaceId'     -> CreateStorediSCSIVolume createStorediSCSIVolume pGatewayARN_ pDiskId_ pPreserveExistingData_ pTargetName_ pNetworkInterfaceId_ =-    CreateStorediSCSIVolume'-    { _csscsivSnapshotId = Nothing-    , _csscsivGatewayARN = pGatewayARN_-    , _csscsivDiskId = pDiskId_-    , _csscsivPreserveExistingData = pPreserveExistingData_-    , _csscsivTargetName = pTargetName_-    , _csscsivNetworkInterfaceId = pNetworkInterfaceId_-    }+  CreateStorediSCSIVolume'+  { _csscsivSnapshotId = Nothing+  , _csscsivGatewayARN = pGatewayARN_+  , _csscsivDiskId = pDiskId_+  , _csscsivPreserveExistingData = pPreserveExistingData_+  , _csscsivTargetName = pTargetName_+  , _csscsivNetworkInterfaceId = pNetworkInterfaceId_+  } + -- | The snapshot ID (e.g. "snap-1122aabb") of the snapshot to restore as the new stored volume. Specify this field if you want to create the iSCSI storage volume from a snapshot otherwise do not include this field. To list snapshots for your account use <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshots.html DescribeSnapshots> in the /Amazon Elastic Compute Cloud API Reference/ . csscsivSnapshotId :: Lens' CreateStorediSCSIVolume (Maybe Text) csscsivSnapshotId = lens _csscsivSnapshotId (\ s a -> s{_csscsivSnapshotId = a});@@ -129,7 +131,7 @@ csscsivPreserveExistingData :: Lens' CreateStorediSCSIVolume Bool csscsivPreserveExistingData = lens _csscsivPreserveExistingData (\ s a -> s{_csscsivPreserveExistingData = a}); --- | The name of the iSCSI target used by initiators to connect to the target and as a suffix for the target ARN. For example, specifying @TargetName@ as /myvolume/ results in the target ARN of arn:aws:storagegateway:us-east-1:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes of a gateway.+-- | The name of the iSCSI target used by initiators to connect to the target and as a suffix for the target ARN. For example, specifying @TargetName@ as /myvolume/ results in the target ARN of arn:aws:storagegateway:us-east-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes of a gateway. csscsivTargetName :: Lens' CreateStorediSCSIVolume Text csscsivTargetName = lens _csscsivTargetName (\ s a -> s{_csscsivTargetName = a}); @@ -149,9 +151,9 @@                      (x .?> "VolumeSizeInBytes")                      <*> (pure (fromEnum s))) -instance Hashable CreateStorediSCSIVolume+instance Hashable CreateStorediSCSIVolume where -instance NFData CreateStorediSCSIVolume+instance NFData CreateStorediSCSIVolume where  instance ToHeaders CreateStorediSCSIVolume where         toHeaders@@ -190,12 +192,13 @@ -- -- /See:/ 'createStorediSCSIVolumeResponse' smart constructor. data CreateStorediSCSIVolumeResponse = CreateStorediSCSIVolumeResponse'-    { _csscsivrsTargetARN         :: !(Maybe Text)-    , _csscsivrsVolumeARN         :: !(Maybe Text)-    , _csscsivrsVolumeSizeInBytes :: !(Maybe Integer)-    , _csscsivrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _csscsivrsTargetARN         :: !(Maybe Text)+  , _csscsivrsVolumeARN         :: !(Maybe Text)+  , _csscsivrsVolumeSizeInBytes :: !(Maybe Integer)+  , _csscsivrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateStorediSCSIVolumeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -211,13 +214,14 @@     :: Int -- ^ 'csscsivrsResponseStatus'     -> CreateStorediSCSIVolumeResponse createStorediSCSIVolumeResponse pResponseStatus_ =-    CreateStorediSCSIVolumeResponse'-    { _csscsivrsTargetARN = Nothing-    , _csscsivrsVolumeARN = Nothing-    , _csscsivrsVolumeSizeInBytes = Nothing-    , _csscsivrsResponseStatus = pResponseStatus_-    }+  CreateStorediSCSIVolumeResponse'+  { _csscsivrsTargetARN = Nothing+  , _csscsivrsVolumeARN = Nothing+  , _csscsivrsVolumeSizeInBytes = Nothing+  , _csscsivrsResponseStatus = pResponseStatus_+  } + -- | he Amazon Resource Name (ARN) of the volume target that includes the iSCSI name that initiators can use to connect to the target. csscsivrsTargetARN :: Lens' CreateStorediSCSIVolumeResponse (Maybe Text) csscsivrsTargetARN = lens _csscsivrsTargetARN (\ s a -> s{_csscsivrsTargetARN = a});@@ -234,4 +238,4 @@ csscsivrsResponseStatus :: Lens' CreateStorediSCSIVolumeResponse Int csscsivrsResponseStatus = lens _csscsivrsResponseStatus (\ s a -> s{_csscsivrsResponseStatus = a}); -instance NFData CreateStorediSCSIVolumeResponse+instance NFData CreateStorediSCSIVolumeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateTapeWithBarcode--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a virtual tape by using your own barcode. You write data to the virtual tape and then archive the tape.+-- Creates a virtual tape by using your own barcode. You write data to the virtual tape and then archive the tape. A barcode is unique and can not be reused if it has already been used on a tape . This applies to barcodes used on deleted tapes. This operation is only supported in the tape gateway. architecture. -- -- module Network.AWS.StorageGateway.CreateTapeWithBarcode@@ -39,12 +39,12 @@     , ctwbrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | CreateTapeWithBarcodeInput --@@ -52,11 +52,12 @@ -- -- /See:/ 'createTapeWithBarcode' smart constructor. data CreateTapeWithBarcode = CreateTapeWithBarcode'-    { _ctwbGatewayARN      :: !Text-    , _ctwbTapeSizeInBytes :: !Integer-    , _ctwbTapeBarcode     :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctwbGatewayARN      :: !Text+  , _ctwbTapeSizeInBytes :: !Integer+  , _ctwbTapeBarcode     :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTapeWithBarcode' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +73,13 @@     -> Text -- ^ 'ctwbTapeBarcode'     -> CreateTapeWithBarcode createTapeWithBarcode pGatewayARN_ pTapeSizeInBytes_ pTapeBarcode_ =-    CreateTapeWithBarcode'-    { _ctwbGatewayARN = pGatewayARN_-    , _ctwbTapeSizeInBytes = pTapeSizeInBytes_-    , _ctwbTapeBarcode = pTapeBarcode_-    }+  CreateTapeWithBarcode'+  { _ctwbGatewayARN = pGatewayARN_+  , _ctwbTapeSizeInBytes = pTapeSizeInBytes_+  , _ctwbTapeBarcode = pTapeBarcode_+  } + -- | The unique Amazon Resource Name (ARN) that represents the gateway to associate the virtual tape with. Use the 'ListGateways' operation to return a list of gateways for your account and region. ctwbGatewayARN :: Lens' CreateTapeWithBarcode Text ctwbGatewayARN = lens _ctwbGatewayARN (\ s a -> s{_ctwbGatewayARN = a});@@ -100,9 +102,9 @@                  CreateTapeWithBarcodeResponse' <$>                    (x .?> "TapeARN") <*> (pure (fromEnum s))) -instance Hashable CreateTapeWithBarcode+instance Hashable CreateTapeWithBarcode where -instance NFData CreateTapeWithBarcode+instance NFData CreateTapeWithBarcode where  instance ToHeaders CreateTapeWithBarcode where         toHeaders@@ -134,10 +136,11 @@ -- -- /See:/ 'createTapeWithBarcodeResponse' smart constructor. data CreateTapeWithBarcodeResponse = CreateTapeWithBarcodeResponse'-    { _ctwbrsTapeARN        :: !(Maybe Text)-    , _ctwbrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctwbrsTapeARN        :: !(Maybe Text)+  , _ctwbrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTapeWithBarcodeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,11 +152,10 @@     :: Int -- ^ 'ctwbrsResponseStatus'     -> CreateTapeWithBarcodeResponse createTapeWithBarcodeResponse pResponseStatus_ =-    CreateTapeWithBarcodeResponse'-    { _ctwbrsTapeARN = Nothing-    , _ctwbrsResponseStatus = pResponseStatus_-    }+  CreateTapeWithBarcodeResponse'+  {_ctwbrsTapeARN = Nothing, _ctwbrsResponseStatus = pResponseStatus_} + -- | A unique Amazon Resource Name (ARN) that represents the virtual tape that was created. ctwbrsTapeARN :: Lens' CreateTapeWithBarcodeResponse (Maybe Text) ctwbrsTapeARN = lens _ctwbrsTapeARN (\ s a -> s{_ctwbrsTapeARN = a});@@ -162,4 +164,4 @@ ctwbrsResponseStatus :: Lens' CreateTapeWithBarcodeResponse Int ctwbrsResponseStatus = lens _ctwbrsResponseStatus (\ s a -> s{_ctwbrsResponseStatus = a}); -instance NFData CreateTapeWithBarcodeResponse+instance NFData CreateTapeWithBarcodeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateTapes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates one or more virtual tapes. You write data to the virtual tapes and then archive the tapes.+-- Creates one or more virtual tapes. You write data to the virtual tapes and then archive the tapes. This operation is only supported in the tape gateway architecture. -- -- module Network.AWS.StorageGateway.CreateTapes@@ -41,12 +41,12 @@     , ctrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | CreateTapesInput --@@ -54,13 +54,14 @@ -- -- /See:/ 'createTapes' smart constructor. data CreateTapes = CreateTapes'-    { _ctGatewayARN        :: !Text-    , _ctTapeSizeInBytes   :: !Integer-    , _ctClientToken       :: !Text-    , _ctNumTapesToCreate  :: !Nat-    , _ctTapeBarcodePrefix :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctGatewayARN        :: !Text+  , _ctTapeSizeInBytes   :: !Integer+  , _ctClientToken       :: !Text+  , _ctNumTapesToCreate  :: !Nat+  , _ctTapeBarcodePrefix :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTapes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,14 +83,15 @@     -> Text -- ^ 'ctTapeBarcodePrefix'     -> CreateTapes createTapes pGatewayARN_ pTapeSizeInBytes_ pClientToken_ pNumTapesToCreate_ pTapeBarcodePrefix_ =-    CreateTapes'-    { _ctGatewayARN = pGatewayARN_-    , _ctTapeSizeInBytes = pTapeSizeInBytes_-    , _ctClientToken = pClientToken_-    , _ctNumTapesToCreate = _Nat # pNumTapesToCreate_-    , _ctTapeBarcodePrefix = pTapeBarcodePrefix_-    }+  CreateTapes'+  { _ctGatewayARN = pGatewayARN_+  , _ctTapeSizeInBytes = pTapeSizeInBytes_+  , _ctClientToken = pClientToken_+  , _ctNumTapesToCreate = _Nat # pNumTapesToCreate_+  , _ctTapeBarcodePrefix = pTapeBarcodePrefix_+  } + -- | The unique Amazon Resource Name (ARN) that represents the gateway to associate the virtual tapes with. Use the 'ListGateways' operation to return a list of gateways for your account and region. ctGatewayARN :: Lens' CreateTapes Text ctGatewayARN = lens _ctGatewayARN (\ s a -> s{_ctGatewayARN = a});@@ -120,9 +122,9 @@                    (x .?> "TapeARNs" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable CreateTapes+instance Hashable CreateTapes where -instance NFData CreateTapes+instance NFData CreateTapes where  instance ToHeaders CreateTapes where         toHeaders@@ -156,10 +158,11 @@ -- -- /See:/ 'createTapesResponse' smart constructor. data CreateTapesResponse = CreateTapesResponse'-    { _ctrsTapeARNs       :: !(Maybe [Text])-    , _ctrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ctrsTapeARNs       :: !(Maybe [Text])+  , _ctrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'CreateTapesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -171,11 +174,10 @@     :: Int -- ^ 'ctrsResponseStatus'     -> CreateTapesResponse createTapesResponse pResponseStatus_ =-    CreateTapesResponse'-    { _ctrsTapeARNs = Nothing-    , _ctrsResponseStatus = pResponseStatus_-    }+  CreateTapesResponse'+  {_ctrsTapeARNs = Nothing, _ctrsResponseStatus = pResponseStatus_} + -- | A list of unique Amazon Resource Names (ARNs) that represents the virtual tapes that were created. ctrsTapeARNs :: Lens' CreateTapesResponse [Text] ctrsTapeARNs = lens _ctrsTapeARNs (\ s a -> s{_ctrsTapeARNs = a}) . _Default . _Coerce;@@ -184,4 +186,4 @@ ctrsResponseStatus :: Lens' CreateTapesResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); -instance NFData CreateTapesResponse+instance NFData CreateTapesResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteBandwidthRateLimit--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,41 +38,49 @@     , delrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product --- | /See:/ 'deleteBandwidthRateLimit' smart constructor.+-- | A JSON object containing the following fields:+--+--+--     * 'DeleteBandwidthRateLimitInput$BandwidthType'+--+--+--+--+-- /See:/ 'deleteBandwidthRateLimit' smart constructor. data DeleteBandwidthRateLimit = DeleteBandwidthRateLimit'-    { _dbrlbGatewayARN    :: !Text-    , _dbrlbBandwidthType :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbrlbGatewayARN    :: !Text+  , _dbrlbBandwidthType :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBandwidthRateLimit' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dbrlbGatewayARN' - Undocumented member. ----- * 'dbrlbBandwidthType' - Undocumented member.+-- * 'dbrlbBandwidthType' - One of the BandwidthType values that indicates the gateway bandwidth rate limit to delete. Valid Values: @Upload@ , @Download@ , @All@ . deleteBandwidthRateLimit     :: Text -- ^ 'dbrlbGatewayARN'     -> Text -- ^ 'dbrlbBandwidthType'     -> DeleteBandwidthRateLimit deleteBandwidthRateLimit pGatewayARN_ pBandwidthType_ =-    DeleteBandwidthRateLimit'-    { _dbrlbGatewayARN = pGatewayARN_-    , _dbrlbBandwidthType = pBandwidthType_-    }+  DeleteBandwidthRateLimit'+  {_dbrlbGatewayARN = pGatewayARN_, _dbrlbBandwidthType = pBandwidthType_} + -- | Undocumented member. dbrlbGatewayARN :: Lens' DeleteBandwidthRateLimit Text dbrlbGatewayARN = lens _dbrlbGatewayARN (\ s a -> s{_dbrlbGatewayARN = a}); --- | Undocumented member.+-- | One of the BandwidthType values that indicates the gateway bandwidth rate limit to delete. Valid Values: @Upload@ , @Download@ , @All@ . dbrlbBandwidthType :: Lens' DeleteBandwidthRateLimit Text dbrlbBandwidthType = lens _dbrlbBandwidthType (\ s a -> s{_dbrlbBandwidthType = a}); @@ -86,9 +94,9 @@                  DeleteBandwidthRateLimitResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable DeleteBandwidthRateLimit+instance Hashable DeleteBandwidthRateLimit where -instance NFData DeleteBandwidthRateLimit+instance NFData DeleteBandwidthRateLimit where  instance ToHeaders DeleteBandwidthRateLimit where         toHeaders@@ -119,10 +127,11 @@ -- -- /See:/ 'deleteBandwidthRateLimitResponse' smart constructor. data DeleteBandwidthRateLimitResponse = DeleteBandwidthRateLimitResponse'-    { _delrsGatewayARN     :: !(Maybe Text)-    , _delrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delrsGatewayARN     :: !(Maybe Text)+  , _delrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteBandwidthRateLimitResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -134,11 +143,10 @@     :: Int -- ^ 'delrsResponseStatus'     -> DeleteBandwidthRateLimitResponse deleteBandwidthRateLimitResponse pResponseStatus_ =-    DeleteBandwidthRateLimitResponse'-    { _delrsGatewayARN = Nothing-    , _delrsResponseStatus = pResponseStatus_-    }+  DeleteBandwidthRateLimitResponse'+  {_delrsGatewayARN = Nothing, _delrsResponseStatus = pResponseStatus_} + -- | Undocumented member. delrsGatewayARN :: Lens' DeleteBandwidthRateLimitResponse (Maybe Text) delrsGatewayARN = lens _delrsGatewayARN (\ s a -> s{_delrsGatewayARN = a});@@ -148,3 +156,4 @@ delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});  instance NFData DeleteBandwidthRateLimitResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteChapCredentials--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,12 +39,12 @@     , drsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing one or more of the following fields: --@@ -58,10 +58,11 @@ -- -- /See:/ 'deleteChapCredentials' smart constructor. data DeleteChapCredentials = DeleteChapCredentials'-    { _dTargetARN     :: !Text-    , _dInitiatorName :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dTargetARN     :: !Text+  , _dInitiatorName :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteChapCredentials' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -74,11 +75,10 @@     -> Text -- ^ 'dInitiatorName'     -> DeleteChapCredentials deleteChapCredentials pTargetARN_ pInitiatorName_ =-    DeleteChapCredentials'-    { _dTargetARN = pTargetARN_-    , _dInitiatorName = pInitiatorName_-    }+  DeleteChapCredentials'+  {_dTargetARN = pTargetARN_, _dInitiatorName = pInitiatorName_} + -- | The Amazon Resource Name (ARN) of the iSCSI volume target. Use the 'DescribeStorediSCSIVolumes' operation to return to retrieve the TargetARN for specified VolumeARN. dTargetARN :: Lens' DeleteChapCredentials Text dTargetARN = lens _dTargetARN (\ s a -> s{_dTargetARN = a});@@ -98,9 +98,9 @@                    (x .?> "TargetARN") <*> (x .?> "InitiatorName") <*>                      (pure (fromEnum s))) -instance Hashable DeleteChapCredentials+instance Hashable DeleteChapCredentials where -instance NFData DeleteChapCredentials+instance NFData DeleteChapCredentials where  instance ToHeaders DeleteChapCredentials where         toHeaders@@ -131,11 +131,12 @@ -- -- /See:/ 'deleteChapCredentialsResponse' smart constructor. data DeleteChapCredentialsResponse = DeleteChapCredentialsResponse'-    { _drsTargetARN      :: !(Maybe Text)-    , _drsInitiatorName  :: !(Maybe Text)-    , _drsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _drsTargetARN      :: !(Maybe Text)+  , _drsInitiatorName  :: !(Maybe Text)+  , _drsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteChapCredentialsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,12 +150,13 @@     :: Int -- ^ 'drsResponseStatus'     -> DeleteChapCredentialsResponse deleteChapCredentialsResponse pResponseStatus_ =-    DeleteChapCredentialsResponse'-    { _drsTargetARN = Nothing-    , _drsInitiatorName = Nothing-    , _drsResponseStatus = pResponseStatus_-    }+  DeleteChapCredentialsResponse'+  { _drsTargetARN = Nothing+  , _drsInitiatorName = Nothing+  , _drsResponseStatus = pResponseStatus_+  } + -- | The Amazon Resource Name (ARN) of the target. drsTargetARN :: Lens' DeleteChapCredentialsResponse (Maybe Text) drsTargetARN = lens _drsTargetARN (\ s a -> s{_drsTargetARN = a});@@ -167,4 +169,4 @@ drsResponseStatus :: Lens' DeleteChapCredentialsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); -instance NFData DeleteChapCredentialsResponse+instance NFData DeleteChapCredentialsResponse where

@@ -0,0 +1,152 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.StorageGateway.DeleteFileShare+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Deletes a file share from a file gateway. This operation is only supported in the file gateway architecture.+--+--+module Network.AWS.StorageGateway.DeleteFileShare+    (+    -- * Creating a Request+      deleteFileShare+    , DeleteFileShare+    -- * Request Lenses+    , dfsForceDelete+    , dfsFileShareARN++    -- * Destructuring the Response+    , deleteFileShareResponse+    , DeleteFileShareResponse+    -- * Response Lenses+    , dfsrsFileShareARN+    , dfsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product++-- | DeleteFileShareInput+--+--+--+-- /See:/ 'deleteFileShare' smart constructor.+data DeleteFileShare = DeleteFileShare'+  { _dfsForceDelete  :: !(Maybe Bool)+  , _dfsFileShareARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteFileShare' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dfsForceDelete' - If set to true, deletes a file share immediately and aborts all data uploads to AWS. Otherwise the file share is not deleted until all data is uploaded to AWS. This process aborts the data upload process and the file share enters the FORCE_DELETING status.+--+-- * 'dfsFileShareARN' - The Amazon Resource Name (ARN) of the file share to be deleted.+deleteFileShare+    :: Text -- ^ 'dfsFileShareARN'+    -> DeleteFileShare+deleteFileShare pFileShareARN_ =+  DeleteFileShare'+  {_dfsForceDelete = Nothing, _dfsFileShareARN = pFileShareARN_}+++-- | If set to true, deletes a file share immediately and aborts all data uploads to AWS. Otherwise the file share is not deleted until all data is uploaded to AWS. This process aborts the data upload process and the file share enters the FORCE_DELETING status.+dfsForceDelete :: Lens' DeleteFileShare (Maybe Bool)+dfsForceDelete = lens _dfsForceDelete (\ s a -> s{_dfsForceDelete = a});++-- | The Amazon Resource Name (ARN) of the file share to be deleted.+dfsFileShareARN :: Lens' DeleteFileShare Text+dfsFileShareARN = lens _dfsFileShareARN (\ s a -> s{_dfsFileShareARN = a});++instance AWSRequest DeleteFileShare where+        type Rs DeleteFileShare = DeleteFileShareResponse+        request = postJSON storageGateway+        response+          = receiveJSON+              (\ s h x ->+                 DeleteFileShareResponse' <$>+                   (x .?> "FileShareARN") <*> (pure (fromEnum s)))++instance Hashable DeleteFileShare where++instance NFData DeleteFileShare where++instance ToHeaders DeleteFileShare where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteFileShare" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteFileShare where+        toJSON DeleteFileShare'{..}+          = object+              (catMaybes+                 [("ForceDelete" .=) <$> _dfsForceDelete,+                  Just ("FileShareARN" .= _dfsFileShareARN)])++instance ToPath DeleteFileShare where+        toPath = const "/"++instance ToQuery DeleteFileShare where+        toQuery = const mempty++-- | DeleteFileShareOutput+--+--+--+-- /See:/ 'deleteFileShareResponse' smart constructor.+data DeleteFileShareResponse = DeleteFileShareResponse'+  { _dfsrsFileShareARN   :: !(Maybe Text)+  , _dfsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DeleteFileShareResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dfsrsFileShareARN' - The Amazon Resource Name (ARN) of the deleted file share.+--+-- * 'dfsrsResponseStatus' - -- | The response status code.+deleteFileShareResponse+    :: Int -- ^ 'dfsrsResponseStatus'+    -> DeleteFileShareResponse+deleteFileShareResponse pResponseStatus_ =+  DeleteFileShareResponse'+  {_dfsrsFileShareARN = Nothing, _dfsrsResponseStatus = pResponseStatus_}+++-- | The Amazon Resource Name (ARN) of the deleted file share.+dfsrsFileShareARN :: Lens' DeleteFileShareResponse (Maybe Text)+dfsrsFileShareARN = lens _dfsrsFileShareARN (\ s a -> s{_dfsrsFileShareARN = a});++-- | -- | The response status code.+dfsrsResponseStatus :: Lens' DeleteFileShareResponse Int+dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a});++instance NFData DeleteFileShareResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteGateway--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , dgrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the id of the gateway to delete. --@@ -54,9 +54,10 @@ -- -- /See:/ 'deleteGateway' smart constructor. newtype DeleteGateway = DeleteGateway'-    { _dgGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dgGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteGateway' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ deleteGateway     :: Text -- ^ 'dgGatewayARN'     -> DeleteGateway-deleteGateway pGatewayARN_ =-    DeleteGateway'-    { _dgGatewayARN = pGatewayARN_-    }+deleteGateway pGatewayARN_ = DeleteGateway' {_dgGatewayARN = pGatewayARN_} + -- | Undocumented member. dgGatewayARN :: Lens' DeleteGateway Text dgGatewayARN = lens _dgGatewayARN (\ s a -> s{_dgGatewayARN = a});@@ -83,9 +82,9 @@                  DeleteGatewayResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable DeleteGateway+instance Hashable DeleteGateway where -instance NFData DeleteGateway+instance NFData DeleteGateway where  instance ToHeaders DeleteGateway where         toHeaders@@ -114,10 +113,11 @@ -- -- /See:/ 'deleteGatewayResponse' smart constructor. data DeleteGatewayResponse = DeleteGatewayResponse'-    { _dgrsGatewayARN     :: !(Maybe Text)-    , _dgrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dgrsGatewayARN     :: !(Maybe Text)+  , _dgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteGatewayResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +129,10 @@     :: Int -- ^ 'dgrsResponseStatus'     -> DeleteGatewayResponse deleteGatewayResponse pResponseStatus_ =-    DeleteGatewayResponse'-    { _dgrsGatewayARN = Nothing-    , _dgrsResponseStatus = pResponseStatus_-    }+  DeleteGatewayResponse'+  {_dgrsGatewayARN = Nothing, _dgrsResponseStatus = pResponseStatus_} + -- | Undocumented member. dgrsGatewayARN :: Lens' DeleteGatewayResponse (Maybe Text) dgrsGatewayARN = lens _dgrsGatewayARN (\ s a -> s{_dgrsGatewayARN = a});@@ -142,4 +141,4 @@ dgrsResponseStatus :: Lens' DeleteGatewayResponse Int dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a}); -instance NFData DeleteGatewayResponse+instance NFData DeleteGatewayResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteSnapshotSchedule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -39,18 +39,19 @@     , dsssrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'deleteSnapshotSchedule' smart constructor. newtype DeleteSnapshotSchedule = DeleteSnapshotSchedule'-    { _dVolumeARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dVolumeARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSnapshotSchedule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -60,10 +61,9 @@     :: Text -- ^ 'dVolumeARN'     -> DeleteSnapshotSchedule deleteSnapshotSchedule pVolumeARN_ =-    DeleteSnapshotSchedule'-    { _dVolumeARN = pVolumeARN_-    }+  DeleteSnapshotSchedule' {_dVolumeARN = pVolumeARN_} + -- | Undocumented member. dVolumeARN :: Lens' DeleteSnapshotSchedule Text dVolumeARN = lens _dVolumeARN (\ s a -> s{_dVolumeARN = a});@@ -78,9 +78,9 @@                  DeleteSnapshotScheduleResponse' <$>                    (x .?> "VolumeARN") <*> (pure (fromEnum s))) -instance Hashable DeleteSnapshotSchedule+instance Hashable DeleteSnapshotSchedule where -instance NFData DeleteSnapshotSchedule+instance NFData DeleteSnapshotSchedule where  instance ToHeaders DeleteSnapshotSchedule where         toHeaders@@ -105,10 +105,11 @@  -- | /See:/ 'deleteSnapshotScheduleResponse' smart constructor. data DeleteSnapshotScheduleResponse = DeleteSnapshotScheduleResponse'-    { _dsssrsVolumeARN      :: !(Maybe Text)-    , _dsssrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsssrsVolumeARN      :: !(Maybe Text)+  , _dsssrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteSnapshotScheduleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -120,11 +121,10 @@     :: Int -- ^ 'dsssrsResponseStatus'     -> DeleteSnapshotScheduleResponse deleteSnapshotScheduleResponse pResponseStatus_ =-    DeleteSnapshotScheduleResponse'-    { _dsssrsVolumeARN = Nothing-    , _dsssrsResponseStatus = pResponseStatus_-    }+  DeleteSnapshotScheduleResponse'+  {_dsssrsVolumeARN = Nothing, _dsssrsResponseStatus = pResponseStatus_} + -- | Undocumented member. dsssrsVolumeARN :: Lens' DeleteSnapshotScheduleResponse (Maybe Text) dsssrsVolumeARN = lens _dsssrsVolumeARN (\ s a -> s{_dsssrsVolumeARN = a});@@ -133,4 +133,4 @@ dsssrsResponseStatus :: Lens' DeleteSnapshotScheduleResponse Int dsssrsResponseStatus = lens _dsssrsResponseStatus (\ s a -> s{_dsssrsResponseStatus = a}); -instance NFData DeleteSnapshotScheduleResponse+instance NFData DeleteSnapshotScheduleResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteTape--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified virtual tape.+-- Deletes the specified virtual tape. This operation is only supported in the tape gateway architecture. -- -- module Network.AWS.StorageGateway.DeleteTape@@ -38,12 +38,12 @@     , dtrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | DeleteTapeInput --@@ -51,10 +51,11 @@ -- -- /See:/ 'deleteTape' smart constructor. data DeleteTape = DeleteTape'-    { _delGatewayARN :: !Text-    , _delTapeARN    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _delGatewayARN :: !Text+  , _delTapeARN    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTape' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,9 @@     -> Text -- ^ 'delTapeARN'     -> DeleteTape deleteTape pGatewayARN_ pTapeARN_ =-    DeleteTape'-    { _delGatewayARN = pGatewayARN_-    , _delTapeARN = pTapeARN_-    }+  DeleteTape' {_delGatewayARN = pGatewayARN_, _delTapeARN = pTapeARN_} + -- | The unique Amazon Resource Name (ARN) of the gateway that the virtual tape to delete is associated with. Use the 'ListGateways' operation to return a list of gateways for your account and region. delGatewayARN :: Lens' DeleteTape Text delGatewayARN = lens _delGatewayARN (\ s a -> s{_delGatewayARN = a});@@ -89,9 +88,9 @@                  DeleteTapeResponse' <$>                    (x .?> "TapeARN") <*> (pure (fromEnum s))) -instance Hashable DeleteTape+instance Hashable DeleteTape where -instance NFData DeleteTape+instance NFData DeleteTape where  instance ToHeaders DeleteTape where         toHeaders@@ -121,10 +120,11 @@ -- -- /See:/ 'deleteTapeResponse' smart constructor. data DeleteTapeResponse = DeleteTapeResponse'-    { _dtrsTapeARN        :: !(Maybe Text)-    , _dtrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtrsTapeARN        :: !(Maybe Text)+  , _dtrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTapeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,11 +136,10 @@     :: Int -- ^ 'dtrsResponseStatus'     -> DeleteTapeResponse deleteTapeResponse pResponseStatus_ =-    DeleteTapeResponse'-    { _dtrsTapeARN = Nothing-    , _dtrsResponseStatus = pResponseStatus_-    }+  DeleteTapeResponse'+  {_dtrsTapeARN = Nothing, _dtrsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the deleted virtual tape. dtrsTapeARN :: Lens' DeleteTapeResponse (Maybe Text) dtrsTapeARN = lens _dtrsTapeARN (\ s a -> s{_dtrsTapeARN = a});@@ -149,4 +148,4 @@ dtrsResponseStatus :: Lens' DeleteTapeResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); -instance NFData DeleteTapeResponse+instance NFData DeleteTapeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteTapeArchive--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified virtual tape from the virtual tape shelf (VTS).+-- Deletes the specified virtual tape from the virtual tape shelf (VTS). This operation is only supported in the tape gateway architecture. -- -- module Network.AWS.StorageGateway.DeleteTapeArchive@@ -37,12 +37,12 @@     , dtatrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | DeleteTapeArchiveInput --@@ -50,9 +50,10 @@ -- -- /See:/ 'deleteTapeArchive' smart constructor. newtype DeleteTapeArchive = DeleteTapeArchive'-    { _dtaTapeARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtaTapeARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTapeArchive' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,11 +62,9 @@ deleteTapeArchive     :: Text -- ^ 'dtaTapeARN'     -> DeleteTapeArchive-deleteTapeArchive pTapeARN_ =-    DeleteTapeArchive'-    { _dtaTapeARN = pTapeARN_-    }+deleteTapeArchive pTapeARN_ = DeleteTapeArchive' {_dtaTapeARN = pTapeARN_} + -- | The Amazon Resource Name (ARN) of the virtual tape to delete from the virtual tape shelf (VTS). dtaTapeARN :: Lens' DeleteTapeArchive Text dtaTapeARN = lens _dtaTapeARN (\ s a -> s{_dtaTapeARN = a});@@ -79,9 +78,9 @@                  DeleteTapeArchiveResponse' <$>                    (x .?> "TapeARN") <*> (pure (fromEnum s))) -instance Hashable DeleteTapeArchive+instance Hashable DeleteTapeArchive where -instance NFData DeleteTapeArchive+instance NFData DeleteTapeArchive where  instance ToHeaders DeleteTapeArchive where         toHeaders@@ -110,10 +109,11 @@ -- -- /See:/ 'deleteTapeArchiveResponse' smart constructor. data DeleteTapeArchiveResponse = DeleteTapeArchiveResponse'-    { _dtatrsTapeARN        :: !(Maybe Text)-    , _dtatrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtatrsTapeARN        :: !(Maybe Text)+  , _dtatrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteTapeArchiveResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +125,10 @@     :: Int -- ^ 'dtatrsResponseStatus'     -> DeleteTapeArchiveResponse deleteTapeArchiveResponse pResponseStatus_ =-    DeleteTapeArchiveResponse'-    { _dtatrsTapeARN = Nothing-    , _dtatrsResponseStatus = pResponseStatus_-    }+  DeleteTapeArchiveResponse'+  {_dtatrsTapeARN = Nothing, _dtatrsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the virtual tape that was deleted from the virtual tape shelf (VTS). dtatrsTapeARN :: Lens' DeleteTapeArchiveResponse (Maybe Text) dtatrsTapeARN = lens _dtatrsTapeARN (\ s a -> s{_dtatrsTapeARN = a});@@ -138,4 +137,4 @@ dtatrsResponseStatus :: Lens' DeleteTapeArchiveResponse Int dtatrsResponseStatus = lens _dtatrsResponseStatus (\ s a -> s{_dtatrsResponseStatus = a}); -instance NFData DeleteTapeArchiveResponse+instance NFData DeleteTapeArchiveResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteVolume--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified gateway volume that you previously created using the 'CreateCachediSCSIVolume' or 'CreateStorediSCSIVolume' API. For gateway-stored volumes, the local disk that was configured as the storage volume is not deleted. You can reuse the local disk to create another storage volume.+-- Deletes the specified storage volume that you previously created using the 'CreateCachediSCSIVolume' or 'CreateStorediSCSIVolume' API. This operation is only supported in the cached volume and stored volume architectures. For stored volume gateways, the local disk that was configured as the storage volume is not deleted. You can reuse the local disk to create another storage volume. -- ----- Before you delete a gateway volume, make sure there are no iSCSI connections to the volume you are deleting. You should also make sure there is no snapshot in progress. You can use the Amazon Elastic Compute Cloud (Amazon EC2) API to query snapshots on the volume you are deleting and check the snapshot status. For more information, go to <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshots.html DescribeSnapshots> in the /Amazon Elastic Compute Cloud API Reference/ .+-- Before you delete a volume, make sure there are no iSCSI connections to the volume you are deleting. You should also make sure there is no snapshot in progress. You can use the Amazon Elastic Compute Cloud (Amazon EC2) API to query snapshots on the volume you are deleting and check the snapshot status. For more information, go to <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshots.html DescribeSnapshots> in the /Amazon Elastic Compute Cloud API Reference/ . -- -- In the request, you must provide the Amazon Resource Name (ARN) of the storage volume you want to delete. --@@ -41,12 +41,12 @@     , dvrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the 'DeleteVolumeInput$VolumeARN' to delete. --@@ -54,9 +54,10 @@ -- -- /See:/ 'deleteVolume' smart constructor. newtype DeleteVolume = DeleteVolume'-    { _dvVolumeARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvVolumeARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVolume' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ deleteVolume     :: Text -- ^ 'dvVolumeARN'     -> DeleteVolume-deleteVolume pVolumeARN_ =-    DeleteVolume'-    { _dvVolumeARN = pVolumeARN_-    }+deleteVolume pVolumeARN_ = DeleteVolume' {_dvVolumeARN = pVolumeARN_} + -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes. dvVolumeARN :: Lens' DeleteVolume Text dvVolumeARN = lens _dvVolumeARN (\ s a -> s{_dvVolumeARN = a});@@ -83,9 +82,9 @@                  DeleteVolumeResponse' <$>                    (x .?> "VolumeARN") <*> (pure (fromEnum s))) -instance Hashable DeleteVolume+instance Hashable DeleteVolume where -instance NFData DeleteVolume+instance NFData DeleteVolume where  instance ToHeaders DeleteVolume where         toHeaders@@ -114,10 +113,11 @@ -- -- /See:/ 'deleteVolumeResponse' smart constructor. data DeleteVolumeResponse = DeleteVolumeResponse'-    { _dvrsVolumeARN      :: !(Maybe Text)-    , _dvrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvrsVolumeARN      :: !(Maybe Text)+  , _dvrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DeleteVolumeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +129,10 @@     :: Int -- ^ 'dvrsResponseStatus'     -> DeleteVolumeResponse deleteVolumeResponse pResponseStatus_ =-    DeleteVolumeResponse'-    { _dvrsVolumeARN = Nothing-    , _dvrsResponseStatus = pResponseStatus_-    }+  DeleteVolumeResponse'+  {_dvrsVolumeARN = Nothing, _dvrsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the storage volume that was deleted. It is the same ARN you provided in the request. dvrsVolumeARN :: Lens' DeleteVolumeResponse (Maybe Text) dvrsVolumeARN = lens _dvrsVolumeARN (\ s a -> s{_dvrsVolumeARN = a});@@ -142,4 +141,4 @@ dvrsResponseStatus :: Lens' DeleteVolumeResponse Int dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a}); -instance NFData DeleteVolumeResponse+instance NFData DeleteVolumeResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeBandwidthRateLimit--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , dbrlrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the of the gateway. --@@ -54,9 +54,10 @@ -- -- /See:/ 'describeBandwidthRateLimit' smart constructor. newtype DescribeBandwidthRateLimit = DescribeBandwidthRateLimit'-    { _dbrlGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbrlGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBandwidthRateLimit' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@     :: Text -- ^ 'dbrlGatewayARN'     -> DescribeBandwidthRateLimit describeBandwidthRateLimit pGatewayARN_ =-    DescribeBandwidthRateLimit'-    { _dbrlGatewayARN = pGatewayARN_-    }+  DescribeBandwidthRateLimit' {_dbrlGatewayARN = pGatewayARN_} + -- | Undocumented member. dbrlGatewayARN :: Lens' DescribeBandwidthRateLimit Text dbrlGatewayARN = lens _dbrlGatewayARN (\ s a -> s{_dbrlGatewayARN = a});@@ -87,9 +87,9 @@                      <*> (x .?> "AverageDownloadRateLimitInBitsPerSec")                      <*> (pure (fromEnum s))) -instance Hashable DescribeBandwidthRateLimit+instance Hashable DescribeBandwidthRateLimit where -instance NFData DescribeBandwidthRateLimit+instance NFData DescribeBandwidthRateLimit where  instance ToHeaders DescribeBandwidthRateLimit where         toHeaders@@ -118,12 +118,13 @@ -- -- /See:/ 'describeBandwidthRateLimitResponse' smart constructor. data DescribeBandwidthRateLimitResponse = DescribeBandwidthRateLimitResponse'-    { _dbrlrsGatewayARN                           :: !(Maybe Text)-    , _dbrlrsAverageUploadRateLimitInBitsPerSec   :: !(Maybe Nat)-    , _dbrlrsAverageDownloadRateLimitInBitsPerSec :: !(Maybe Nat)-    , _dbrlrsResponseStatus                       :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dbrlrsGatewayARN                           :: !(Maybe Text)+  , _dbrlrsAverageUploadRateLimitInBitsPerSec   :: !(Maybe Nat)+  , _dbrlrsAverageDownloadRateLimitInBitsPerSec :: !(Maybe Nat)+  , _dbrlrsResponseStatus                       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeBandwidthRateLimitResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -139,13 +140,14 @@     :: Int -- ^ 'dbrlrsResponseStatus'     -> DescribeBandwidthRateLimitResponse describeBandwidthRateLimitResponse pResponseStatus_ =-    DescribeBandwidthRateLimitResponse'-    { _dbrlrsGatewayARN = Nothing-    , _dbrlrsAverageUploadRateLimitInBitsPerSec = Nothing-    , _dbrlrsAverageDownloadRateLimitInBitsPerSec = Nothing-    , _dbrlrsResponseStatus = pResponseStatus_-    }+  DescribeBandwidthRateLimitResponse'+  { _dbrlrsGatewayARN = Nothing+  , _dbrlrsAverageUploadRateLimitInBitsPerSec = Nothing+  , _dbrlrsAverageDownloadRateLimitInBitsPerSec = Nothing+  , _dbrlrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dbrlrsGatewayARN :: Lens' DescribeBandwidthRateLimitResponse (Maybe Text) dbrlrsGatewayARN = lens _dbrlrsGatewayARN (\ s a -> s{_dbrlrsGatewayARN = a});@@ -163,3 +165,4 @@ dbrlrsResponseStatus = lens _dbrlrsResponseStatus (\ s a -> s{_dbrlrsResponseStatus = a});  instance NFData DescribeBandwidthRateLimitResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeCache--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the cache of a gateway. This operation is supported only for the gateway-cached volume architecture.+-- Returns information about the cache of a gateway. This operation is only supported in the cached volume,tape and file gateway architectures. -- -- -- The response includes disk IDs that are configured as cache, and it includes the amount of cache allocated and used.@@ -45,18 +45,19 @@     , dcrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'describeCache' smart constructor. newtype DescribeCache = DescribeCache'-    { _dcGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCache' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ describeCache     :: Text -- ^ 'dcGatewayARN'     -> DescribeCache-describeCache pGatewayARN_ =-    DescribeCache'-    { _dcGatewayARN = pGatewayARN_-    }+describeCache pGatewayARN_ = DescribeCache' {_dcGatewayARN = pGatewayARN_} + -- | Undocumented member. dcGatewayARN :: Lens' DescribeCache Text dcGatewayARN = lens _dcGatewayARN (\ s a -> s{_dcGatewayARN = a});@@ -89,9 +88,9 @@                      <*> (x .?> "CacheDirtyPercentage")                      <*> (pure (fromEnum s))) -instance Hashable DescribeCache+instance Hashable DescribeCache where -instance NFData DescribeCache+instance NFData DescribeCache where  instance ToHeaders DescribeCache where         toHeaders@@ -116,16 +115,17 @@  -- | /See:/ 'describeCacheResponse' smart constructor. data DescribeCacheResponse = DescribeCacheResponse'-    { _dcrsGatewayARN            :: !(Maybe Text)-    , _dcrsDiskIds               :: !(Maybe [Text])-    , _dcrsCacheUsedPercentage   :: !(Maybe Double)-    , _dcrsCacheHitPercentage    :: !(Maybe Double)-    , _dcrsCacheMissPercentage   :: !(Maybe Double)-    , _dcrsCacheAllocatedInBytes :: !(Maybe Integer)-    , _dcrsCacheDirtyPercentage  :: !(Maybe Double)-    , _dcrsResponseStatus        :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcrsGatewayARN            :: !(Maybe Text)+  , _dcrsDiskIds               :: !(Maybe [Text])+  , _dcrsCacheUsedPercentage   :: !(Maybe Double)+  , _dcrsCacheHitPercentage    :: !(Maybe Double)+  , _dcrsCacheMissPercentage   :: !(Maybe Double)+  , _dcrsCacheAllocatedInBytes :: !(Maybe Integer)+  , _dcrsCacheDirtyPercentage  :: !(Maybe Double)+  , _dcrsResponseStatus        :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCacheResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -149,17 +149,18 @@     :: Int -- ^ 'dcrsResponseStatus'     -> DescribeCacheResponse describeCacheResponse pResponseStatus_ =-    DescribeCacheResponse'-    { _dcrsGatewayARN = Nothing-    , _dcrsDiskIds = Nothing-    , _dcrsCacheUsedPercentage = Nothing-    , _dcrsCacheHitPercentage = Nothing-    , _dcrsCacheMissPercentage = Nothing-    , _dcrsCacheAllocatedInBytes = Nothing-    , _dcrsCacheDirtyPercentage = Nothing-    , _dcrsResponseStatus = pResponseStatus_-    }+  DescribeCacheResponse'+  { _dcrsGatewayARN = Nothing+  , _dcrsDiskIds = Nothing+  , _dcrsCacheUsedPercentage = Nothing+  , _dcrsCacheHitPercentage = Nothing+  , _dcrsCacheMissPercentage = Nothing+  , _dcrsCacheAllocatedInBytes = Nothing+  , _dcrsCacheDirtyPercentage = Nothing+  , _dcrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dcrsGatewayARN :: Lens' DescribeCacheResponse (Maybe Text) dcrsGatewayARN = lens _dcrsGatewayARN (\ s a -> s{_dcrsGatewayARN = a});@@ -192,4 +193,4 @@ dcrsResponseStatus :: Lens' DescribeCacheResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); -instance NFData DescribeCacheResponse+instance NFData DescribeCacheResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeCachediSCSIVolumes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a description of the gateway volumes specified in the request. This operation is supported only for the gateway-cached volume architecture.+-- Returns a description of the gateway volumes specified in the request. This operation is only supported in the cached volume gateway architecture. -- -- -- The list of gateway volumes in the request must be from one gateway. In the response Amazon Storage Gateway returns volume information sorted by volume Amazon Resource Name (ARN).@@ -39,18 +39,19 @@     , dcscsivrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'describeCachediSCSIVolumes' smart constructor. newtype DescribeCachediSCSIVolumes = DescribeCachediSCSIVolumes'-    { _dcscsivVolumeARNs :: [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcscsivVolumeARNs :: [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCachediSCSIVolumes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,10 +60,9 @@ describeCachediSCSIVolumes     :: DescribeCachediSCSIVolumes describeCachediSCSIVolumes =-    DescribeCachediSCSIVolumes'-    { _dcscsivVolumeARNs = mempty-    }+  DescribeCachediSCSIVolumes' {_dcscsivVolumeARNs = mempty} + -- | Undocumented member. dcscsivVolumeARNs :: Lens' DescribeCachediSCSIVolumes [Text] dcscsivVolumeARNs = lens _dcscsivVolumeARNs (\ s a -> s{_dcscsivVolumeARNs = a}) . _Coerce;@@ -78,9 +78,9 @@                    (x .?> "CachediSCSIVolumes" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeCachediSCSIVolumes+instance Hashable DescribeCachediSCSIVolumes where -instance NFData DescribeCachediSCSIVolumes+instance NFData DescribeCachediSCSIVolumes where  instance ToHeaders DescribeCachediSCSIVolumes where         toHeaders@@ -110,10 +110,11 @@ -- -- /See:/ 'describeCachediSCSIVolumesResponse' smart constructor. data DescribeCachediSCSIVolumesResponse = DescribeCachediSCSIVolumesResponse'-    { _dcscsivrsCachediSCSIVolumes :: !(Maybe [CachediSCSIVolume])-    , _dcscsivrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dcscsivrsCachediSCSIVolumes :: !(Maybe [CachediSCSIVolume])+  , _dcscsivrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeCachediSCSIVolumesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -125,11 +126,12 @@     :: Int -- ^ 'dcscsivrsResponseStatus'     -> DescribeCachediSCSIVolumesResponse describeCachediSCSIVolumesResponse pResponseStatus_ =-    DescribeCachediSCSIVolumesResponse'-    { _dcscsivrsCachediSCSIVolumes = Nothing-    , _dcscsivrsResponseStatus = pResponseStatus_-    }+  DescribeCachediSCSIVolumesResponse'+  { _dcscsivrsCachediSCSIVolumes = Nothing+  , _dcscsivrsResponseStatus = pResponseStatus_+  } + -- | An array of objects where each object contains metadata about one cached volume. dcscsivrsCachediSCSIVolumes :: Lens' DescribeCachediSCSIVolumesResponse [CachediSCSIVolume] dcscsivrsCachediSCSIVolumes = lens _dcscsivrsCachediSCSIVolumes (\ s a -> s{_dcscsivrsCachediSCSIVolumes = a}) . _Default . _Coerce;@@ -139,3 +141,4 @@ dcscsivrsResponseStatus = lens _dcscsivrsResponseStatus (\ s a -> s{_dcscsivrsResponseStatus = a});  instance NFData DescribeCachediSCSIVolumesResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeChapCredentials--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -37,12 +37,12 @@     , dccrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the Amazon Resource Name (ARN) of the iSCSI volume target. --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeChapCredentials' smart constructor. newtype DescribeChapCredentials = DescribeChapCredentials'-    { _dccTargetARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dccTargetARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeChapCredentials' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@     :: Text -- ^ 'dccTargetARN'     -> DescribeChapCredentials describeChapCredentials pTargetARN_ =-    DescribeChapCredentials'-    { _dccTargetARN = pTargetARN_-    }+  DescribeChapCredentials' {_dccTargetARN = pTargetARN_} + -- | The Amazon Resource Name (ARN) of the iSCSI volume target. Use the 'DescribeStorediSCSIVolumes' operation to return to retrieve the TargetARN for specified VolumeARN. dccTargetARN :: Lens' DescribeChapCredentials Text dccTargetARN = lens _dccTargetARN (\ s a -> s{_dccTargetARN = a});@@ -81,9 +81,9 @@                    (x .?> "ChapCredentials" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeChapCredentials+instance Hashable DescribeChapCredentials where -instance NFData DescribeChapCredentials+instance NFData DescribeChapCredentials where  instance ToHeaders DescribeChapCredentials where         toHeaders@@ -112,10 +112,11 @@ -- -- /See:/ 'describeChapCredentialsResponse' smart constructor. data DescribeChapCredentialsResponse = DescribeChapCredentialsResponse'-    { _dccrsChapCredentials :: !(Maybe [ChapInfo])-    , _dccrsResponseStatus  :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dccrsChapCredentials :: !(Maybe [ChapInfo])+  , _dccrsResponseStatus  :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeChapCredentialsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +128,10 @@     :: Int -- ^ 'dccrsResponseStatus'     -> DescribeChapCredentialsResponse describeChapCredentialsResponse pResponseStatus_ =-    DescribeChapCredentialsResponse'-    { _dccrsChapCredentials = Nothing-    , _dccrsResponseStatus = pResponseStatus_-    }+  DescribeChapCredentialsResponse'+  {_dccrsChapCredentials = Nothing, _dccrsResponseStatus = pResponseStatus_} + -- | An array of 'ChapInfo' objects that represent CHAP credentials. Each object in the array contains CHAP credential information for one target-initiator pair. If no CHAP credentials are set, an empty array is returned. CHAP credential information is provided in a JSON object with the following fields:     * __InitiatorName__ : The iSCSI initiator that connects to the target.     * __SecretToAuthenticateInitiator__ : The secret key that the initiator (for example, the Windows client) must provide to participate in mutual CHAP with the target.     * __SecretToAuthenticateTarget__ : The secret key that the target must provide to participate in mutual CHAP with the initiator (e.g. Windows client).     * __TargetARN__ : The Amazon Resource Name (ARN) of the storage volume. dccrsChapCredentials :: Lens' DescribeChapCredentialsResponse [ChapInfo] dccrsChapCredentials = lens _dccrsChapCredentials (\ s a -> s{_dccrsChapCredentials = a}) . _Default . _Coerce;@@ -140,4 +140,4 @@ dccrsResponseStatus :: Lens' DescribeChapCredentialsResponse Int dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a}); -instance NFData DescribeChapCredentialsResponse+instance NFData DescribeChapCredentialsResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeGatewayInformation--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,12 +45,12 @@     , dgirsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the id of the gateway. --@@ -58,9 +58,10 @@ -- -- /See:/ 'describeGatewayInformation' smart constructor. newtype DescribeGatewayInformation = DescribeGatewayInformation'-    { _dgiGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dgiGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeGatewayInformation' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -70,10 +71,9 @@     :: Text -- ^ 'dgiGatewayARN'     -> DescribeGatewayInformation describeGatewayInformation pGatewayARN_ =-    DescribeGatewayInformation'-    { _dgiGatewayARN = pGatewayARN_-    }+  DescribeGatewayInformation' {_dgiGatewayARN = pGatewayARN_} + -- | Undocumented member. dgiGatewayARN :: Lens' DescribeGatewayInformation Text dgiGatewayARN = lens _dgiGatewayARN (\ s a -> s{_dgiGatewayARN = a});@@ -96,9 +96,9 @@                      <*> (x .?> "GatewayTimezone")                      <*> (pure (fromEnum s))) -instance Hashable DescribeGatewayInformation+instance Hashable DescribeGatewayInformation where -instance NFData DescribeGatewayInformation+instance NFData DescribeGatewayInformation where  instance ToHeaders DescribeGatewayInformation where         toHeaders@@ -127,18 +127,19 @@ -- -- /See:/ 'describeGatewayInformationResponse' smart constructor. data DescribeGatewayInformationResponse = DescribeGatewayInformationResponse'-    { _dgirsGatewayState               :: !(Maybe Text)-    , _dgirsGatewayARN                 :: !(Maybe Text)-    , _dgirsGatewayNetworkInterfaces   :: !(Maybe [NetworkInterface])-    , _dgirsNextUpdateAvailabilityDate :: !(Maybe Text)-    , _dgirsLastSoftwareUpdate         :: !(Maybe Text)-    , _dgirsGatewayName                :: !(Maybe Text)-    , _dgirsGatewayId                  :: !(Maybe Text)-    , _dgirsGatewayType                :: !(Maybe Text)-    , _dgirsGatewayTimezone            :: !(Maybe Text)-    , _dgirsResponseStatus             :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dgirsGatewayState               :: !(Maybe Text)+  , _dgirsGatewayARN                 :: !(Maybe Text)+  , _dgirsGatewayNetworkInterfaces   :: !(Maybe [NetworkInterface])+  , _dgirsNextUpdateAvailabilityDate :: !(Maybe Text)+  , _dgirsLastSoftwareUpdate         :: !(Maybe Text)+  , _dgirsGatewayName                :: !(Maybe Text)+  , _dgirsGatewayId                  :: !(Maybe Text)+  , _dgirsGatewayType                :: !(Maybe Text)+  , _dgirsGatewayTimezone            :: !(Maybe Text)+  , _dgirsResponseStatus             :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeGatewayInformationResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -166,19 +167,20 @@     :: Int -- ^ 'dgirsResponseStatus'     -> DescribeGatewayInformationResponse describeGatewayInformationResponse pResponseStatus_ =-    DescribeGatewayInformationResponse'-    { _dgirsGatewayState = Nothing-    , _dgirsGatewayARN = Nothing-    , _dgirsGatewayNetworkInterfaces = Nothing-    , _dgirsNextUpdateAvailabilityDate = Nothing-    , _dgirsLastSoftwareUpdate = Nothing-    , _dgirsGatewayName = Nothing-    , _dgirsGatewayId = Nothing-    , _dgirsGatewayType = Nothing-    , _dgirsGatewayTimezone = Nothing-    , _dgirsResponseStatus = pResponseStatus_-    }+  DescribeGatewayInformationResponse'+  { _dgirsGatewayState = Nothing+  , _dgirsGatewayARN = Nothing+  , _dgirsGatewayNetworkInterfaces = Nothing+  , _dgirsNextUpdateAvailabilityDate = Nothing+  , _dgirsLastSoftwareUpdate = Nothing+  , _dgirsGatewayName = Nothing+  , _dgirsGatewayId = Nothing+  , _dgirsGatewayType = Nothing+  , _dgirsGatewayTimezone = Nothing+  , _dgirsResponseStatus = pResponseStatus_+  } + -- | A value that indicates the operating state of the gateway. dgirsGatewayState :: Lens' DescribeGatewayInformationResponse (Maybe Text) dgirsGatewayState = lens _dgirsGatewayState (\ s a -> s{_dgirsGatewayState = a});@@ -220,3 +222,4 @@ dgirsResponseStatus = lens _dgirsResponseStatus (\ s a -> s{_dgirsResponseStatus = a});  instance NFData DescribeGatewayInformationResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeMaintenanceStartTime--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -41,12 +41,12 @@     , dmstrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the of the gateway. --@@ -54,9 +54,10 @@ -- -- /See:/ 'describeMaintenanceStartTime' smart constructor. newtype DescribeMaintenanceStartTime = DescribeMaintenanceStartTime'-    { _dmstGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dmstGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeMaintenanceStartTime' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@     :: Text -- ^ 'dmstGatewayARN'     -> DescribeMaintenanceStartTime describeMaintenanceStartTime pGatewayARN_ =-    DescribeMaintenanceStartTime'-    { _dmstGatewayARN = pGatewayARN_-    }+  DescribeMaintenanceStartTime' {_dmstGatewayARN = pGatewayARN_} + -- | Undocumented member. dmstGatewayARN :: Lens' DescribeMaintenanceStartTime Text dmstGatewayARN = lens _dmstGatewayARN (\ s a -> s{_dmstGatewayARN = a});@@ -89,9 +89,9 @@                      <*> (x .?> "DayOfWeek")                      <*> (pure (fromEnum s))) -instance Hashable DescribeMaintenanceStartTime+instance Hashable DescribeMaintenanceStartTime where -instance NFData DescribeMaintenanceStartTime+instance NFData DescribeMaintenanceStartTime where  instance ToHeaders DescribeMaintenanceStartTime where         toHeaders@@ -114,53 +114,69 @@ instance ToQuery DescribeMaintenanceStartTime where         toQuery = const mempty --- | /See:/ 'describeMaintenanceStartTimeResponse' smart constructor.+-- | A JSON object containing the following fields:+--+--+--     * 'DescribeMaintenanceStartTimeOutput$DayOfWeek'+--+--     * 'DescribeMaintenanceStartTimeOutput$HourOfDay'+--+--     * 'DescribeMaintenanceStartTimeOutput$MinuteOfHour'+--+--     * 'DescribeMaintenanceStartTimeOutput$Timezone'+--+--+--+--+-- /See:/ 'describeMaintenanceStartTimeResponse' smart constructor. data DescribeMaintenanceStartTimeResponse = DescribeMaintenanceStartTimeResponse'-    { _dmstrsGatewayARN     :: !(Maybe Text)-    , _dmstrsMinuteOfHour   :: !(Maybe Nat)-    , _dmstrsHourOfDay      :: !(Maybe Nat)-    , _dmstrsTimezone       :: !(Maybe Text)-    , _dmstrsDayOfWeek      :: !(Maybe Nat)-    , _dmstrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dmstrsGatewayARN     :: !(Maybe Text)+  , _dmstrsMinuteOfHour   :: !(Maybe Nat)+  , _dmstrsHourOfDay      :: !(Maybe Nat)+  , _dmstrsTimezone       :: !(Maybe Text)+  , _dmstrsDayOfWeek      :: !(Maybe Nat)+  , _dmstrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeMaintenanceStartTimeResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'dmstrsGatewayARN' - Undocumented member. ----- * 'dmstrsMinuteOfHour' - Undocumented member.+-- * 'dmstrsMinuteOfHour' - The minute component of the maintenance start time represented as /mm/ , where /mm/ is the minute (0 to 59). The minute of the hour is in the time zone of the gateway. ----- * 'dmstrsHourOfDay' - Undocumented member.+-- * 'dmstrsHourOfDay' - The hour component of the maintenance start time represented as /hh/ , where /hh/ is the hour (0 to 23). The hour of the day is in the time zone of the gateway. -- -- * 'dmstrsTimezone' - Undocumented member. ----- * 'dmstrsDayOfWeek' - Undocumented member.+-- * 'dmstrsDayOfWeek' - An ordinal number between 0 and 6 that represents the day of the week, where 0 represents Sunday and 6 represents Saturday. The day of week is in the time zone of the gateway. -- -- * 'dmstrsResponseStatus' - -- | The response status code. describeMaintenanceStartTimeResponse     :: Int -- ^ 'dmstrsResponseStatus'     -> DescribeMaintenanceStartTimeResponse describeMaintenanceStartTimeResponse pResponseStatus_ =-    DescribeMaintenanceStartTimeResponse'-    { _dmstrsGatewayARN = Nothing-    , _dmstrsMinuteOfHour = Nothing-    , _dmstrsHourOfDay = Nothing-    , _dmstrsTimezone = Nothing-    , _dmstrsDayOfWeek = Nothing-    , _dmstrsResponseStatus = pResponseStatus_-    }+  DescribeMaintenanceStartTimeResponse'+  { _dmstrsGatewayARN = Nothing+  , _dmstrsMinuteOfHour = Nothing+  , _dmstrsHourOfDay = Nothing+  , _dmstrsTimezone = Nothing+  , _dmstrsDayOfWeek = Nothing+  , _dmstrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dmstrsGatewayARN :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Text) dmstrsGatewayARN = lens _dmstrsGatewayARN (\ s a -> s{_dmstrsGatewayARN = a}); --- | Undocumented member.+-- | The minute component of the maintenance start time represented as /mm/ , where /mm/ is the minute (0 to 59). The minute of the hour is in the time zone of the gateway. dmstrsMinuteOfHour :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural) dmstrsMinuteOfHour = lens _dmstrsMinuteOfHour (\ s a -> s{_dmstrsMinuteOfHour = a}) . mapping _Nat; --- | Undocumented member.+-- | The hour component of the maintenance start time represented as /hh/ , where /hh/ is the hour (0 to 23). The hour of the day is in the time zone of the gateway. dmstrsHourOfDay :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural) dmstrsHourOfDay = lens _dmstrsHourOfDay (\ s a -> s{_dmstrsHourOfDay = a}) . mapping _Nat; @@ -168,7 +184,7 @@ dmstrsTimezone :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Text) dmstrsTimezone = lens _dmstrsTimezone (\ s a -> s{_dmstrsTimezone = a}); --- | Undocumented member.+-- | An ordinal number between 0 and 6 that represents the day of the week, where 0 represents Sunday and 6 represents Saturday. The day of week is in the time zone of the gateway. dmstrsDayOfWeek :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural) dmstrsDayOfWeek = lens _dmstrsDayOfWeek (\ s a -> s{_dmstrsDayOfWeek = a}) . mapping _Nat; @@ -177,3 +193,4 @@ dmstrsResponseStatus = lens _dmstrsResponseStatus (\ s a -> s{_dmstrsResponseStatus = a});  instance NFData DescribeMaintenanceStartTimeResponse+         where

@@ -0,0 +1,147 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.StorageGateway.DescribeNFSFileShares+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a description for one or more file shares from a file gateway. This operation is only supported in file gateways.+--+--+module Network.AWS.StorageGateway.DescribeNFSFileShares+    (+    -- * Creating a Request+      describeNFSFileShares+    , DescribeNFSFileShares+    -- * Request Lenses+    , dnfsfsFileShareARNList++    -- * Destructuring the Response+    , describeNFSFileSharesResponse+    , DescribeNFSFileSharesResponse+    -- * Response Lenses+    , dnfsfsrsNFSFileShareInfoList+    , dnfsfsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product++-- | DescribeNFSFileSharesInput+--+--+--+-- /See:/ 'describeNFSFileShares' smart constructor.+newtype DescribeNFSFileShares = DescribeNFSFileShares'+  { _dnfsfsFileShareARNList :: List1 Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeNFSFileShares' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnfsfsFileShareARNList' - An array containing the Amazon Resource Name (ARN) of each file share to be described.+describeNFSFileShares+    :: NonEmpty Text -- ^ 'dnfsfsFileShareARNList'+    -> DescribeNFSFileShares+describeNFSFileShares pFileShareARNList_ =+  DescribeNFSFileShares' {_dnfsfsFileShareARNList = _List1 # pFileShareARNList_}+++-- | An array containing the Amazon Resource Name (ARN) of each file share to be described.+dnfsfsFileShareARNList :: Lens' DescribeNFSFileShares (NonEmpty Text)+dnfsfsFileShareARNList = lens _dnfsfsFileShareARNList (\ s a -> s{_dnfsfsFileShareARNList = a}) . _List1;++instance AWSRequest DescribeNFSFileShares where+        type Rs DescribeNFSFileShares =+             DescribeNFSFileSharesResponse+        request = postJSON storageGateway+        response+          = receiveJSON+              (\ s h x ->+                 DescribeNFSFileSharesResponse' <$>+                   (x .?> "NFSFileShareInfoList" .!@ mempty) <*>+                     (pure (fromEnum s)))++instance Hashable DescribeNFSFileShares where++instance NFData DescribeNFSFileShares where++instance ToHeaders DescribeNFSFileShares where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DescribeNFSFileShares" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeNFSFileShares where+        toJSON DescribeNFSFileShares'{..}+          = object+              (catMaybes+                 [Just+                    ("FileShareARNList" .= _dnfsfsFileShareARNList)])++instance ToPath DescribeNFSFileShares where+        toPath = const "/"++instance ToQuery DescribeNFSFileShares where+        toQuery = const mempty++-- | DescribeNFSFileSharesOutput+--+--+--+-- /See:/ 'describeNFSFileSharesResponse' smart constructor.+data DescribeNFSFileSharesResponse = DescribeNFSFileSharesResponse'+  { _dnfsfsrsNFSFileShareInfoList :: !(Maybe [NFSFileShareInfo])+  , _dnfsfsrsResponseStatus       :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'DescribeNFSFileSharesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dnfsfsrsNFSFileShareInfoList' - An array containing a description for each requested file share.+--+-- * 'dnfsfsrsResponseStatus' - -- | The response status code.+describeNFSFileSharesResponse+    :: Int -- ^ 'dnfsfsrsResponseStatus'+    -> DescribeNFSFileSharesResponse+describeNFSFileSharesResponse pResponseStatus_ =+  DescribeNFSFileSharesResponse'+  { _dnfsfsrsNFSFileShareInfoList = Nothing+  , _dnfsfsrsResponseStatus = pResponseStatus_+  }+++-- | An array containing a description for each requested file share.+dnfsfsrsNFSFileShareInfoList :: Lens' DescribeNFSFileSharesResponse [NFSFileShareInfo]+dnfsfsrsNFSFileShareInfoList = lens _dnfsfsrsNFSFileShareInfoList (\ s a -> s{_dnfsfsrsNFSFileShareInfoList = a}) . _Default . _Coerce;++-- | -- | The response status code.+dnfsfsrsResponseStatus :: Lens' DescribeNFSFileSharesResponse Int+dnfsfsrsResponseStatus = lens _dnfsfsrsResponseStatus (\ s a -> s{_dnfsfsrsResponseStatus = a});++instance NFData DescribeNFSFileSharesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeSnapshotSchedule--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes the snapshot schedule for the specified gateway volume. The snapshot schedule information includes intervals at which snapshots are automatically initiated on the volume.+-- Describes the snapshot schedule for the specified gateway volume. The snapshot schedule information includes intervals at which snapshots are automatically initiated on the volume. This operation is only supported in the cached volume and stored volume architectures. -- -- module Network.AWS.StorageGateway.DescribeSnapshotSchedule@@ -41,12 +41,12 @@     , dssrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the 'DescribeSnapshotScheduleInput$VolumeARN' of the volume. --@@ -54,9 +54,10 @@ -- -- /See:/ 'describeSnapshotSchedule' smart constructor. newtype DescribeSnapshotSchedule = DescribeSnapshotSchedule'-    { _dssVolumeARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dssVolumeARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSnapshotSchedule' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,10 +67,9 @@     :: Text -- ^ 'dssVolumeARN'     -> DescribeSnapshotSchedule describeSnapshotSchedule pVolumeARN_ =-    DescribeSnapshotSchedule'-    { _dssVolumeARN = pVolumeARN_-    }+  DescribeSnapshotSchedule' {_dssVolumeARN = pVolumeARN_} + -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes. dssVolumeARN :: Lens' DescribeSnapshotSchedule Text dssVolumeARN = lens _dssVolumeARN (\ s a -> s{_dssVolumeARN = a});@@ -88,9 +88,9 @@                      <*> (x .?> "Description")                      <*> (pure (fromEnum s))) -instance Hashable DescribeSnapshotSchedule+instance Hashable DescribeSnapshotSchedule where -instance NFData DescribeSnapshotSchedule+instance NFData DescribeSnapshotSchedule where  instance ToHeaders DescribeSnapshotSchedule where         toHeaders@@ -115,14 +115,15 @@  -- | /See:/ 'describeSnapshotScheduleResponse' smart constructor. data DescribeSnapshotScheduleResponse = DescribeSnapshotScheduleResponse'-    { _dssrsStartAt           :: !(Maybe Nat)-    , _dssrsVolumeARN         :: !(Maybe Text)-    , _dssrsRecurrenceInHours :: !(Maybe Nat)-    , _dssrsTimezone          :: !(Maybe Text)-    , _dssrsDescription       :: !(Maybe Text)-    , _dssrsResponseStatus    :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dssrsStartAt           :: !(Maybe Nat)+  , _dssrsVolumeARN         :: !(Maybe Text)+  , _dssrsRecurrenceInHours :: !(Maybe Nat)+  , _dssrsTimezone          :: !(Maybe Text)+  , _dssrsDescription       :: !(Maybe Text)+  , _dssrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeSnapshotScheduleResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -142,15 +143,16 @@     :: Int -- ^ 'dssrsResponseStatus'     -> DescribeSnapshotScheduleResponse describeSnapshotScheduleResponse pResponseStatus_ =-    DescribeSnapshotScheduleResponse'-    { _dssrsStartAt = Nothing-    , _dssrsVolumeARN = Nothing-    , _dssrsRecurrenceInHours = Nothing-    , _dssrsTimezone = Nothing-    , _dssrsDescription = Nothing-    , _dssrsResponseStatus = pResponseStatus_-    }+  DescribeSnapshotScheduleResponse'+  { _dssrsStartAt = Nothing+  , _dssrsVolumeARN = Nothing+  , _dssrsRecurrenceInHours = Nothing+  , _dssrsTimezone = Nothing+  , _dssrsDescription = Nothing+  , _dssrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dssrsStartAt :: Lens' DescribeSnapshotScheduleResponse (Maybe Natural) dssrsStartAt = lens _dssrsStartAt (\ s a -> s{_dssrsStartAt = a}) . mapping _Nat;@@ -176,3 +178,4 @@ dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});  instance NFData DescribeSnapshotScheduleResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeStorediSCSIVolumes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the description of the gateway volumes specified in the request. The list of gateway volumes in the request must be from one gateway. In the response Amazon Storage Gateway returns volume information sorted by volume ARNs.+-- Returns the description of the gateway volumes specified in the request. The list of gateway volumes in the request must be from one gateway. In the response Amazon Storage Gateway returns volume information sorted by volume ARNs. This operation is only supported in stored volume gateway architecture. -- -- module Network.AWS.StorageGateway.DescribeStorediSCSIVolumes@@ -37,12 +37,12 @@     , dsscsivrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing a list of 'DescribeStorediSCSIVolumesInput$VolumeARNs' . --@@ -50,9 +50,10 @@ -- -- /See:/ 'describeStorediSCSIVolumes' smart constructor. newtype DescribeStorediSCSIVolumes = DescribeStorediSCSIVolumes'-    { _dsscsivVolumeARNs :: [Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsscsivVolumeARNs :: [Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeStorediSCSIVolumes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,10 +62,9 @@ describeStorediSCSIVolumes     :: DescribeStorediSCSIVolumes describeStorediSCSIVolumes =-    DescribeStorediSCSIVolumes'-    { _dsscsivVolumeARNs = mempty-    }+  DescribeStorediSCSIVolumes' {_dsscsivVolumeARNs = mempty} + -- | An array of strings where each string represents the Amazon Resource Name (ARN) of a stored volume. All of the specified stored volumes must from the same gateway. Use 'ListVolumes' to get volume ARNs for a gateway. dsscsivVolumeARNs :: Lens' DescribeStorediSCSIVolumes [Text] dsscsivVolumeARNs = lens _dsscsivVolumeARNs (\ s a -> s{_dsscsivVolumeARNs = a}) . _Coerce;@@ -80,9 +80,9 @@                    (x .?> "StorediSCSIVolumes" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeStorediSCSIVolumes+instance Hashable DescribeStorediSCSIVolumes where -instance NFData DescribeStorediSCSIVolumes+instance NFData DescribeStorediSCSIVolumes where  instance ToHeaders DescribeStorediSCSIVolumes where         toHeaders@@ -108,10 +108,11 @@  -- | /See:/ 'describeStorediSCSIVolumesResponse' smart constructor. data DescribeStorediSCSIVolumesResponse = DescribeStorediSCSIVolumesResponse'-    { _dsscsivrsStorediSCSIVolumes :: !(Maybe [StorediSCSIVolume])-    , _dsscsivrsResponseStatus     :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dsscsivrsStorediSCSIVolumes :: !(Maybe [StorediSCSIVolume])+  , _dsscsivrsResponseStatus     :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeStorediSCSIVolumesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -123,11 +124,12 @@     :: Int -- ^ 'dsscsivrsResponseStatus'     -> DescribeStorediSCSIVolumesResponse describeStorediSCSIVolumesResponse pResponseStatus_ =-    DescribeStorediSCSIVolumesResponse'-    { _dsscsivrsStorediSCSIVolumes = Nothing-    , _dsscsivrsResponseStatus = pResponseStatus_-    }+  DescribeStorediSCSIVolumesResponse'+  { _dsscsivrsStorediSCSIVolumes = Nothing+  , _dsscsivrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dsscsivrsStorediSCSIVolumes :: Lens' DescribeStorediSCSIVolumesResponse [StorediSCSIVolume] dsscsivrsStorediSCSIVolumes = lens _dsscsivrsStorediSCSIVolumes (\ s a -> s{_dsscsivrsStorediSCSIVolumes = a}) . _Default . _Coerce;@@ -137,3 +139,4 @@ dsscsivrsResponseStatus = lens _dsscsivrsResponseStatus (\ s a -> s{_dsscsivrsResponseStatus = a});  instance NFData DescribeStorediSCSIVolumesResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeTapeArchives--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a description of specified virtual tapes in the virtual tape shelf (VTS).+-- Returns a description of specified virtual tapes in the virtual tape shelf (VTS). This operation is only supported in the tape gateway architecture. -- -- -- If a specific @TapeARN@ is not specified, AWS Storage Gateway returns a description of all virtual tapes found in the VTS associated with your account.@@ -44,13 +44,13 @@     , dtarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | DescribeTapeArchivesInput --@@ -58,11 +58,12 @@ -- -- /See:/ 'describeTapeArchives' smart constructor. data DescribeTapeArchives = DescribeTapeArchives'-    { _dtaMarker   :: !(Maybe Text)-    , _dtaLimit    :: !(Maybe Nat)-    , _dtaTapeARNs :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtaMarker   :: !(Maybe Text)+  , _dtaLimit    :: !(Maybe Nat)+  , _dtaTapeARNs :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTapeArchives' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -75,12 +76,10 @@ describeTapeArchives     :: DescribeTapeArchives describeTapeArchives =-    DescribeTapeArchives'-    { _dtaMarker = Nothing-    , _dtaLimit = Nothing-    , _dtaTapeARNs = Nothing-    }+  DescribeTapeArchives'+  {_dtaMarker = Nothing, _dtaLimit = Nothing, _dtaTapeARNs = Nothing} + -- | An opaque string that indicates the position at which to begin describing virtual tapes. dtaMarker :: Lens' DescribeTapeArchives (Maybe Text) dtaMarker = lens _dtaMarker (\ s a -> s{_dtaMarker = a});@@ -112,9 +111,9 @@                      (x .?> "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeTapeArchives+instance Hashable DescribeTapeArchives where -instance NFData DescribeTapeArchives+instance NFData DescribeTapeArchives where  instance ToHeaders DescribeTapeArchives where         toHeaders@@ -146,11 +145,12 @@ -- -- /See:/ 'describeTapeArchivesResponse' smart constructor. data DescribeTapeArchivesResponse = DescribeTapeArchivesResponse'-    { _dtarsTapeArchives   :: !(Maybe [TapeArchive])-    , _dtarsMarker         :: !(Maybe Text)-    , _dtarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtarsTapeArchives   :: !(Maybe [TapeArchive])+  , _dtarsMarker         :: !(Maybe Text)+  , _dtarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTapeArchivesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -164,12 +164,13 @@     :: Int -- ^ 'dtarsResponseStatus'     -> DescribeTapeArchivesResponse describeTapeArchivesResponse pResponseStatus_ =-    DescribeTapeArchivesResponse'-    { _dtarsTapeArchives = Nothing-    , _dtarsMarker = Nothing-    , _dtarsResponseStatus = pResponseStatus_-    }+  DescribeTapeArchivesResponse'+  { _dtarsTapeArchives = Nothing+  , _dtarsMarker = Nothing+  , _dtarsResponseStatus = pResponseStatus_+  } + -- | An array of virtual tape objects in the virtual tape shelf (VTS). The description includes of the Amazon Resource Name(ARN) of the virtual tapes. The information returned includes the Amazon Resource Names (ARNs) of the tapes, size of the tapes, status of the tapes, progress of the description and tape barcode. dtarsTapeArchives :: Lens' DescribeTapeArchivesResponse [TapeArchive] dtarsTapeArchives = lens _dtarsTapeArchives (\ s a -> s{_dtarsTapeArchives = a}) . _Default . _Coerce;@@ -182,4 +183,4 @@ dtarsResponseStatus :: Lens' DescribeTapeArchivesResponse Int dtarsResponseStatus = lens _dtarsResponseStatus (\ s a -> s{_dtarsResponseStatus = a}); -instance NFData DescribeTapeArchivesResponse+instance NFData DescribeTapeArchivesResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeTapeRecoveryPoints--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a list of virtual tape recovery points that are available for the specified gateway-VTL.+-- Returns a list of virtual tape recovery points that are available for the specified tape gateway. -- ----- A recovery point is a point-in-time view of a virtual tape at which all the data on the virtual tape is consistent. If your gateway crashes, virtual tapes that have recovery points can be recovered to a new gateway.+-- A recovery point is a point-in-time view of a virtual tape at which all the data on the virtual tape is consistent. If your gateway crashes, virtual tapes that have recovery points can be recovered to a new gateway. This operation is only supported in the tape gateway architecture. -- -- -- This operation returns paginated results.@@ -45,13 +45,13 @@     , dtrprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | DescribeTapeRecoveryPointsInput --@@ -59,11 +59,12 @@ -- -- /See:/ 'describeTapeRecoveryPoints' smart constructor. data DescribeTapeRecoveryPoints = DescribeTapeRecoveryPoints'-    { _dtrpMarker     :: !(Maybe Text)-    , _dtrpLimit      :: !(Maybe Nat)-    , _dtrpGatewayARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtrpMarker     :: !(Maybe Text)+  , _dtrpLimit      :: !(Maybe Nat)+  , _dtrpGatewayARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTapeRecoveryPoints' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -77,12 +78,10 @@     :: Text -- ^ 'dtrpGatewayARN'     -> DescribeTapeRecoveryPoints describeTapeRecoveryPoints pGatewayARN_ =-    DescribeTapeRecoveryPoints'-    { _dtrpMarker = Nothing-    , _dtrpLimit = Nothing-    , _dtrpGatewayARN = pGatewayARN_-    }+  DescribeTapeRecoveryPoints'+  {_dtrpMarker = Nothing, _dtrpLimit = Nothing, _dtrpGatewayARN = pGatewayARN_} + -- | An opaque string that indicates the position at which to begin describing the virtual tape recovery points. dtrpMarker :: Lens' DescribeTapeRecoveryPoints (Maybe Text) dtrpMarker = lens _dtrpMarker (\ s a -> s{_dtrpMarker = a});@@ -115,9 +114,9 @@                      <*> (x .?> "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeTapeRecoveryPoints+instance Hashable DescribeTapeRecoveryPoints where -instance NFData DescribeTapeRecoveryPoints+instance NFData DescribeTapeRecoveryPoints where  instance ToHeaders DescribeTapeRecoveryPoints where         toHeaders@@ -149,12 +148,13 @@ -- -- /See:/ 'describeTapeRecoveryPointsResponse' smart constructor. data DescribeTapeRecoveryPointsResponse = DescribeTapeRecoveryPointsResponse'-    { _dtrprsTapeRecoveryPointInfos :: !(Maybe [TapeRecoveryPointInfo])-    , _dtrprsGatewayARN             :: !(Maybe Text)-    , _dtrprsMarker                 :: !(Maybe Text)-    , _dtrprsResponseStatus         :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtrprsTapeRecoveryPointInfos :: !(Maybe [TapeRecoveryPointInfo])+  , _dtrprsGatewayARN             :: !(Maybe Text)+  , _dtrprsMarker                 :: !(Maybe Text)+  , _dtrprsResponseStatus         :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTapeRecoveryPointsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -170,13 +170,14 @@     :: Int -- ^ 'dtrprsResponseStatus'     -> DescribeTapeRecoveryPointsResponse describeTapeRecoveryPointsResponse pResponseStatus_ =-    DescribeTapeRecoveryPointsResponse'-    { _dtrprsTapeRecoveryPointInfos = Nothing-    , _dtrprsGatewayARN = Nothing-    , _dtrprsMarker = Nothing-    , _dtrprsResponseStatus = pResponseStatus_-    }+  DescribeTapeRecoveryPointsResponse'+  { _dtrprsTapeRecoveryPointInfos = Nothing+  , _dtrprsGatewayARN = Nothing+  , _dtrprsMarker = Nothing+  , _dtrprsResponseStatus = pResponseStatus_+  } + -- | An array of TapeRecoveryPointInfos that are available for the specified gateway. dtrprsTapeRecoveryPointInfos :: Lens' DescribeTapeRecoveryPointsResponse [TapeRecoveryPointInfo] dtrprsTapeRecoveryPointInfos = lens _dtrprsTapeRecoveryPointInfos (\ s a -> s{_dtrprsTapeRecoveryPointInfos = a}) . _Default . _Coerce;@@ -194,3 +195,4 @@ dtrprsResponseStatus = lens _dtrprsResponseStatus (\ s a -> s{_dtrprsResponseStatus = a});  instance NFData DescribeTapeRecoveryPointsResponse+         where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeTapes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a description of the specified Amazon Resource Name (ARN) of virtual tapes. If a @TapeARN@ is not specified, returns a description of all virtual tapes associated with the specified gateway.+-- Returns a description of the specified Amazon Resource Name (ARN) of virtual tapes. If a @TapeARN@ is not specified, returns a description of all virtual tapes associated with the specified gateway. This operation is only supported in the tape gateway architecture. -- -- --@@ -43,13 +43,13 @@     , dtsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | DescribeTapesInput --@@ -57,12 +57,13 @@ -- -- /See:/ 'describeTapes' smart constructor. data DescribeTapes = DescribeTapes'-    { _dtMarker     :: !(Maybe Text)-    , _dtLimit      :: !(Maybe Nat)-    , _dtTapeARNs   :: !(Maybe [Text])-    , _dtGatewayARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtMarker     :: !(Maybe Text)+  , _dtLimit      :: !(Maybe Nat)+  , _dtTapeARNs   :: !(Maybe [Text])+  , _dtGatewayARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTapes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -71,20 +72,21 @@ -- -- * 'dtLimit' - Specifies that the number of virtual tapes described be limited to the specified number. ----- * 'dtTapeARNs' - Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe. If this parameter is not specified, AWS Storage Gateway returns a description of all virtual tapes associated with the specified gateway.+-- * 'dtTapeARNs' - Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe. If this parameter is not specified, Tape gateway returns a description of all virtual tapes associated with the specified gateway. -- -- * 'dtGatewayARN' - Undocumented member. describeTapes     :: Text -- ^ 'dtGatewayARN'     -> DescribeTapes describeTapes pGatewayARN_ =-    DescribeTapes'-    { _dtMarker = Nothing-    , _dtLimit = Nothing-    , _dtTapeARNs = Nothing-    , _dtGatewayARN = pGatewayARN_-    }+  DescribeTapes'+  { _dtMarker = Nothing+  , _dtLimit = Nothing+  , _dtTapeARNs = Nothing+  , _dtGatewayARN = pGatewayARN_+  } + -- | A marker value, obtained in a previous call to @DescribeTapes@ . This marker indicates which page of results to retrieve.  If not specified, the first page of results is retrieved. dtMarker :: Lens' DescribeTapes (Maybe Text) dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a});@@ -93,7 +95,7 @@ dtLimit :: Lens' DescribeTapes (Maybe Natural) dtLimit = lens _dtLimit (\ s a -> s{_dtLimit = a}) . mapping _Nat; --- | Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe. If this parameter is not specified, AWS Storage Gateway returns a description of all virtual tapes associated with the specified gateway.+-- | Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe. If this parameter is not specified, Tape gateway returns a description of all virtual tapes associated with the specified gateway. dtTapeARNs :: Lens' DescribeTapes [Text] dtTapeARNs = lens _dtTapeARNs (\ s a -> s{_dtTapeARNs = a}) . _Default . _Coerce; @@ -118,9 +120,9 @@                    (x .?> "Marker") <*> (x .?> "Tapes" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable DescribeTapes+instance Hashable DescribeTapes where -instance NFData DescribeTapes+instance NFData DescribeTapes where  instance ToHeaders DescribeTapes where         toHeaders@@ -153,11 +155,12 @@ -- -- /See:/ 'describeTapesResponse' smart constructor. data DescribeTapesResponse = DescribeTapesResponse'-    { _dtsrsMarker         :: !(Maybe Text)-    , _dtsrsTapes          :: !(Maybe [Tape])-    , _dtsrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dtsrsMarker         :: !(Maybe Text)+  , _dtsrsTapes          :: !(Maybe [Tape])+  , _dtsrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeTapesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -171,12 +174,13 @@     :: Int -- ^ 'dtsrsResponseStatus'     -> DescribeTapesResponse describeTapesResponse pResponseStatus_ =-    DescribeTapesResponse'-    { _dtsrsMarker = Nothing-    , _dtsrsTapes = Nothing-    , _dtsrsResponseStatus = pResponseStatus_-    }+  DescribeTapesResponse'+  { _dtsrsMarker = Nothing+  , _dtsrsTapes = Nothing+  , _dtsrsResponseStatus = pResponseStatus_+  } + -- | An opaque string which can be used as part of a subsequent DescribeTapes call to retrieve the next page of results. If a response does not contain a marker, then there are no more results to be retrieved. dtsrsMarker :: Lens' DescribeTapesResponse (Maybe Text) dtsrsMarker = lens _dtsrsMarker (\ s a -> s{_dtsrsMarker = a});@@ -189,4 +193,4 @@ dtsrsResponseStatus :: Lens' DescribeTapesResponse Int dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a}); -instance NFData DescribeTapesResponse+instance NFData DescribeTapesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeUploadBuffer--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the upload buffer of a gateway. This operation is supported for both the gateway-stored and gateway-cached volume architectures.+-- Returns information about the upload buffer of a gateway. This operation is supported for the stored volume, cached volume and tape gateway architectures. -- -- -- The response includes disk IDs that are configured as upload buffer space, and it includes the amount of upload buffer space allocated and used.@@ -42,18 +42,19 @@     , dubrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'describeUploadBuffer' smart constructor. newtype DescribeUploadBuffer = DescribeUploadBuffer'-    { _dubGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dubGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeUploadBuffer' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -63,10 +64,9 @@     :: Text -- ^ 'dubGatewayARN'     -> DescribeUploadBuffer describeUploadBuffer pGatewayARN_ =-    DescribeUploadBuffer'-    { _dubGatewayARN = pGatewayARN_-    }+  DescribeUploadBuffer' {_dubGatewayARN = pGatewayARN_} + -- | Undocumented member. dubGatewayARN :: Lens' DescribeUploadBuffer Text dubGatewayARN = lens _dubGatewayARN (\ s a -> s{_dubGatewayARN = a});@@ -85,9 +85,9 @@                      <*> (x .?> "UploadBufferUsedInBytes")                      <*> (pure (fromEnum s))) -instance Hashable DescribeUploadBuffer+instance Hashable DescribeUploadBuffer where -instance NFData DescribeUploadBuffer+instance NFData DescribeUploadBuffer where  instance ToHeaders DescribeUploadBuffer where         toHeaders@@ -112,13 +112,14 @@  -- | /See:/ 'describeUploadBufferResponse' smart constructor. data DescribeUploadBufferResponse = DescribeUploadBufferResponse'-    { _dubrsUploadBufferAllocatedInBytes :: !(Maybe Integer)-    , _dubrsGatewayARN                   :: !(Maybe Text)-    , _dubrsDiskIds                      :: !(Maybe [Text])-    , _dubrsUploadBufferUsedInBytes      :: !(Maybe Integer)-    , _dubrsResponseStatus               :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dubrsUploadBufferAllocatedInBytes :: !(Maybe Integer)+  , _dubrsGatewayARN                   :: !(Maybe Text)+  , _dubrsDiskIds                      :: !(Maybe [Text])+  , _dubrsUploadBufferUsedInBytes      :: !(Maybe Integer)+  , _dubrsResponseStatus               :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeUploadBufferResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,14 +137,15 @@     :: Int -- ^ 'dubrsResponseStatus'     -> DescribeUploadBufferResponse describeUploadBufferResponse pResponseStatus_ =-    DescribeUploadBufferResponse'-    { _dubrsUploadBufferAllocatedInBytes = Nothing-    , _dubrsGatewayARN = Nothing-    , _dubrsDiskIds = Nothing-    , _dubrsUploadBufferUsedInBytes = Nothing-    , _dubrsResponseStatus = pResponseStatus_-    }+  DescribeUploadBufferResponse'+  { _dubrsUploadBufferAllocatedInBytes = Nothing+  , _dubrsGatewayARN = Nothing+  , _dubrsDiskIds = Nothing+  , _dubrsUploadBufferUsedInBytes = Nothing+  , _dubrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dubrsUploadBufferAllocatedInBytes :: Lens' DescribeUploadBufferResponse (Maybe Integer) dubrsUploadBufferAllocatedInBytes = lens _dubrsUploadBufferAllocatedInBytes (\ s a -> s{_dubrsUploadBufferAllocatedInBytes = a});@@ -164,4 +166,4 @@ dubrsResponseStatus :: Lens' DescribeUploadBufferResponse Int dubrsResponseStatus = lens _dubrsResponseStatus (\ s a -> s{_dubrsResponseStatus = a}); -instance NFData DescribeUploadBufferResponse+instance NFData DescribeUploadBufferResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeVTLDevices--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a description of virtual tape library (VTL) devices for the specified gateway. In the response, AWS Storage Gateway returns VTL device information.+-- Returns a description of virtual tape library (VTL) devices for the specified tape gateway. In the response, AWS Storage Gateway returns VTL device information. -- ----- The list of VTL devices must be from one gateway.+-- This operation is only supported in the tape gateway architecture. -- -- -- This operation returns paginated results.@@ -46,13 +46,13 @@     , dvtldrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | DescribeVTLDevicesInput --@@ -60,12 +60,13 @@ -- -- /See:/ 'describeVTLDevices' smart constructor. data DescribeVTLDevices = DescribeVTLDevices'-    { _dvtldMarker        :: !(Maybe Text)-    , _dvtldLimit         :: !(Maybe Nat)-    , _dvtldVTLDeviceARNs :: !(Maybe [Text])-    , _dvtldGatewayARN    :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvtldMarker        :: !(Maybe Text)+  , _dvtldLimit         :: !(Maybe Nat)+  , _dvtldVTLDeviceARNs :: !(Maybe [Text])+  , _dvtldGatewayARN    :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVTLDevices' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -81,13 +82,14 @@     :: Text -- ^ 'dvtldGatewayARN'     -> DescribeVTLDevices describeVTLDevices pGatewayARN_ =-    DescribeVTLDevices'-    { _dvtldMarker = Nothing-    , _dvtldLimit = Nothing-    , _dvtldVTLDeviceARNs = Nothing-    , _dvtldGatewayARN = pGatewayARN_-    }+  DescribeVTLDevices'+  { _dvtldMarker = Nothing+  , _dvtldLimit = Nothing+  , _dvtldVTLDeviceARNs = Nothing+  , _dvtldGatewayARN = pGatewayARN_+  } + -- | An opaque string that indicates the position at which to begin describing the VTL devices. dvtldMarker :: Lens' DescribeVTLDevices (Maybe Text) dvtldMarker = lens _dvtldMarker (\ s a -> s{_dvtldMarker = a});@@ -124,9 +126,9 @@                      <*> (x .?> "Marker")                      <*> (pure (fromEnum s))) -instance Hashable DescribeVTLDevices+instance Hashable DescribeVTLDevices where -instance NFData DescribeVTLDevices+instance NFData DescribeVTLDevices where  instance ToHeaders DescribeVTLDevices where         toHeaders@@ -159,12 +161,13 @@ -- -- /See:/ 'describeVTLDevicesResponse' smart constructor. data DescribeVTLDevicesResponse = DescribeVTLDevicesResponse'-    { _dvtldrsVTLDevices     :: !(Maybe [VTLDevice])-    , _dvtldrsGatewayARN     :: !(Maybe Text)-    , _dvtldrsMarker         :: !(Maybe Text)-    , _dvtldrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dvtldrsVTLDevices     :: !(Maybe [VTLDevice])+  , _dvtldrsGatewayARN     :: !(Maybe Text)+  , _dvtldrsMarker         :: !(Maybe Text)+  , _dvtldrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeVTLDevicesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -180,13 +183,14 @@     :: Int -- ^ 'dvtldrsResponseStatus'     -> DescribeVTLDevicesResponse describeVTLDevicesResponse pResponseStatus_ =-    DescribeVTLDevicesResponse'-    { _dvtldrsVTLDevices = Nothing-    , _dvtldrsGatewayARN = Nothing-    , _dvtldrsMarker = Nothing-    , _dvtldrsResponseStatus = pResponseStatus_-    }+  DescribeVTLDevicesResponse'+  { _dvtldrsVTLDevices = Nothing+  , _dvtldrsGatewayARN = Nothing+  , _dvtldrsMarker = Nothing+  , _dvtldrsResponseStatus = pResponseStatus_+  } + -- | An array of VTL device objects composed of the Amazon Resource Name(ARN) of the VTL devices. dvtldrsVTLDevices :: Lens' DescribeVTLDevicesResponse [VTLDevice] dvtldrsVTLDevices = lens _dvtldrsVTLDevices (\ s a -> s{_dvtldrsVTLDevices = a}) . _Default . _Coerce;@@ -203,4 +207,4 @@ dvtldrsResponseStatus :: Lens' DescribeVTLDevicesResponse Int dvtldrsResponseStatus = lens _dvtldrsResponseStatus (\ s a -> s{_dvtldrsResponseStatus = a}); -instance NFData DescribeVTLDevicesResponse+instance NFData DescribeVTLDevicesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeWorkingStorage--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the working storage of a gateway. This operation is supported only for the gateway-stored volume architecture. This operation is deprecated in cached-volumes API version (20120630). Use DescribeUploadBuffer instead.+-- Returns information about the working storage of a gateway. This operation is only supported in the stored volumes gateway architecture. This operation is deprecated in cached volumes API version (20120630). Use DescribeUploadBuffer instead. -- -- -- The response includes disk IDs that are configured as working storage, and it includes the amount of working storage allocated and used.@@ -42,12 +42,12 @@     , dwsrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the of the gateway. --@@ -55,9 +55,10 @@ -- -- /See:/ 'describeWorkingStorage' smart constructor. newtype DescribeWorkingStorage = DescribeWorkingStorage'-    { _dwsGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dwsGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkingStorage' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,10 +68,9 @@     :: Text -- ^ 'dwsGatewayARN'     -> DescribeWorkingStorage describeWorkingStorage pGatewayARN_ =-    DescribeWorkingStorage'-    { _dwsGatewayARN = pGatewayARN_-    }+  DescribeWorkingStorage' {_dwsGatewayARN = pGatewayARN_} + -- | Undocumented member. dwsGatewayARN :: Lens' DescribeWorkingStorage Text dwsGatewayARN = lens _dwsGatewayARN (\ s a -> s{_dwsGatewayARN = a});@@ -88,9 +88,9 @@                      <*> (x .?> "WorkingStorageUsedInBytes")                      <*> (pure (fromEnum s))) -instance Hashable DescribeWorkingStorage+instance Hashable DescribeWorkingStorage where -instance NFData DescribeWorkingStorage+instance NFData DescribeWorkingStorage where  instance ToHeaders DescribeWorkingStorage where         toHeaders@@ -119,13 +119,14 @@ -- -- /See:/ 'describeWorkingStorageResponse' smart constructor. data DescribeWorkingStorageResponse = DescribeWorkingStorageResponse'-    { _dwsrsGatewayARN                     :: !(Maybe Text)-    , _dwsrsDiskIds                        :: !(Maybe [Text])-    , _dwsrsWorkingStorageAllocatedInBytes :: !(Maybe Integer)-    , _dwsrsWorkingStorageUsedInBytes      :: !(Maybe Integer)-    , _dwsrsResponseStatus                 :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dwsrsGatewayARN                     :: !(Maybe Text)+  , _dwsrsDiskIds                        :: !(Maybe [Text])+  , _dwsrsWorkingStorageAllocatedInBytes :: !(Maybe Integer)+  , _dwsrsWorkingStorageUsedInBytes      :: !(Maybe Integer)+  , _dwsrsResponseStatus                 :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DescribeWorkingStorageResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -143,14 +144,15 @@     :: Int -- ^ 'dwsrsResponseStatus'     -> DescribeWorkingStorageResponse describeWorkingStorageResponse pResponseStatus_ =-    DescribeWorkingStorageResponse'-    { _dwsrsGatewayARN = Nothing-    , _dwsrsDiskIds = Nothing-    , _dwsrsWorkingStorageAllocatedInBytes = Nothing-    , _dwsrsWorkingStorageUsedInBytes = Nothing-    , _dwsrsResponseStatus = pResponseStatus_-    }+  DescribeWorkingStorageResponse'+  { _dwsrsGatewayARN = Nothing+  , _dwsrsDiskIds = Nothing+  , _dwsrsWorkingStorageAllocatedInBytes = Nothing+  , _dwsrsWorkingStorageUsedInBytes = Nothing+  , _dwsrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. dwsrsGatewayARN :: Lens' DescribeWorkingStorageResponse (Maybe Text) dwsrsGatewayARN = lens _dwsrsGatewayARN (\ s a -> s{_dwsrsGatewayARN = a});@@ -171,4 +173,4 @@ dwsrsResponseStatus :: Lens' DescribeWorkingStorageResponse Int dwsrsResponseStatus = lens _dwsrsResponseStatus (\ s a -> s{_dwsrsResponseStatus = a}); -instance NFData DescribeWorkingStorageResponse+instance NFData DescribeWorkingStorageResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.DisableGateway--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Disables a gateway when the gateway is no longer functioning. For example, if your gateway VM is damaged, you can disable the gateway so you can recover virtual tapes.+-- Disables a tape gateway when the gateway is no longer functioning. For example, if your gateway VM is damaged, you can disable the gateway so you can recover virtual tapes. -- ----- Use this operation for a gateway-VTL that is not reachable or not functioning.+-- Use this operation for a tape gateway that is not reachable or not functioning. This operation is only supported in the tape gateway architectures. -- -- /Important:/ Once a gateway is disabled it cannot be enabled. --@@ -41,12 +41,12 @@     , disrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | DisableGatewayInput --@@ -54,9 +54,10 @@ -- -- /See:/ 'disableGateway' smart constructor. newtype DisableGateway = DisableGateway'-    { _dGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _dGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableGateway' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -65,11 +66,9 @@ disableGateway     :: Text -- ^ 'dGatewayARN'     -> DisableGateway-disableGateway pGatewayARN_ =-    DisableGateway'-    { _dGatewayARN = pGatewayARN_-    }+disableGateway pGatewayARN_ = DisableGateway' {_dGatewayARN = pGatewayARN_} + -- | Undocumented member. dGatewayARN :: Lens' DisableGateway Text dGatewayARN = lens _dGatewayARN (\ s a -> s{_dGatewayARN = a});@@ -83,9 +82,9 @@                  DisableGatewayResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable DisableGateway+instance Hashable DisableGateway where -instance NFData DisableGateway+instance NFData DisableGateway where  instance ToHeaders DisableGateway where         toHeaders@@ -114,10 +113,11 @@ -- -- /See:/ 'disableGatewayResponse' smart constructor. data DisableGatewayResponse = DisableGatewayResponse'-    { _disrsGatewayARN     :: !(Maybe Text)-    , _disrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _disrsGatewayARN     :: !(Maybe Text)+  , _disrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'DisableGatewayResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -129,11 +129,10 @@     :: Int -- ^ 'disrsResponseStatus'     -> DisableGatewayResponse disableGatewayResponse pResponseStatus_ =-    DisableGatewayResponse'-    { _disrsGatewayARN = Nothing-    , _disrsResponseStatus = pResponseStatus_-    }+  DisableGatewayResponse'+  {_disrsGatewayARN = Nothing, _disrsResponseStatus = pResponseStatus_} + -- | The unique Amazon Resource Name of the disabled gateway. disrsGatewayARN :: Lens' DisableGatewayResponse (Maybe Text) disrsGatewayARN = lens _disrsGatewayARN (\ s a -> s{_disrsGatewayARN = a});@@ -142,4 +141,4 @@ disrsResponseStatus :: Lens' DisableGatewayResponse Int disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a}); -instance NFData DisableGatewayResponse+instance NFData DisableGatewayResponse where

@@ -0,0 +1,183 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.StorageGateway.ListFileShares+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Gets a list of the file shares for a specific file gateway, or the list of file shares that belong to the calling user account. This operation is only supported in the file gateway architecture.+--+--+module Network.AWS.StorageGateway.ListFileShares+    (+    -- * Creating a Request+      listFileShares+    , ListFileShares+    -- * Request Lenses+    , lfsGatewayARN+    , lfsMarker+    , lfsLimit++    -- * Destructuring the Response+    , listFileSharesResponse+    , ListFileSharesResponse+    -- * Response Lenses+    , lfsrsFileShareInfoList+    , lfsrsMarker+    , lfsrsNextMarker+    , lfsrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product++-- | ListFileShareInput+--+--+--+-- /See:/ 'listFileShares' smart constructor.+data ListFileShares = ListFileShares'+  { _lfsGatewayARN :: !(Maybe Text)+  , _lfsMarker     :: !(Maybe Text)+  , _lfsLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListFileShares' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lfsGatewayARN' - The Amazon resource Name (ARN) of the gateway whose file shares you want to list. If this field is not present, all file shares under your account are listed.+--+-- * 'lfsMarker' - Opaque pagination token returned from a previous ListFileShares operation. If present, @Marker@ specifies where to continue the list from after a previous call to ListFileShares. Optional.+--+-- * 'lfsLimit' - The maximum number of file shares to return in the response. The value must be an integer with a value greater than zero. Optional.+listFileShares+    :: ListFileShares+listFileShares =+  ListFileShares'+  {_lfsGatewayARN = Nothing, _lfsMarker = Nothing, _lfsLimit = Nothing}+++-- | The Amazon resource Name (ARN) of the gateway whose file shares you want to list. If this field is not present, all file shares under your account are listed.+lfsGatewayARN :: Lens' ListFileShares (Maybe Text)+lfsGatewayARN = lens _lfsGatewayARN (\ s a -> s{_lfsGatewayARN = a});++-- | Opaque pagination token returned from a previous ListFileShares operation. If present, @Marker@ specifies where to continue the list from after a previous call to ListFileShares. Optional.+lfsMarker :: Lens' ListFileShares (Maybe Text)+lfsMarker = lens _lfsMarker (\ s a -> s{_lfsMarker = a});++-- | The maximum number of file shares to return in the response. The value must be an integer with a value greater than zero. Optional.+lfsLimit :: Lens' ListFileShares (Maybe Natural)+lfsLimit = lens _lfsLimit (\ s a -> s{_lfsLimit = a}) . mapping _Nat;++instance AWSRequest ListFileShares where+        type Rs ListFileShares = ListFileSharesResponse+        request = postJSON storageGateway+        response+          = receiveJSON+              (\ s h x ->+                 ListFileSharesResponse' <$>+                   (x .?> "FileShareInfoList" .!@ mempty) <*>+                     (x .?> "Marker")+                     <*> (x .?> "NextMarker")+                     <*> (pure (fromEnum s)))++instance Hashable ListFileShares where++instance NFData ListFileShares where++instance ToHeaders ListFileShares where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.ListFileShares" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListFileShares where+        toJSON ListFileShares'{..}+          = object+              (catMaybes+                 [("GatewayARN" .=) <$> _lfsGatewayARN,+                  ("Marker" .=) <$> _lfsMarker,+                  ("Limit" .=) <$> _lfsLimit])++instance ToPath ListFileShares where+        toPath = const "/"++instance ToQuery ListFileShares where+        toQuery = const mempty++-- | ListFileShareOutput+--+--+--+-- /See:/ 'listFileSharesResponse' smart constructor.+data ListFileSharesResponse = ListFileSharesResponse'+  { _lfsrsFileShareInfoList :: !(Maybe [FileShareInfo])+  , _lfsrsMarker            :: !(Maybe Text)+  , _lfsrsNextMarker        :: !(Maybe Text)+  , _lfsrsResponseStatus    :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'ListFileSharesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'lfsrsFileShareInfoList' - An array of information about the file gateway's file shares.+--+-- * 'lfsrsMarker' - If the request includes @Marker@ , the response returns that value in this field.+--+-- * 'lfsrsNextMarker' - If a value is present, there are more file shares to return. In a subsequent request, use @NextMarker@ as the value for @Marker@ to retrieve the next set of file shares.+--+-- * 'lfsrsResponseStatus' - -- | The response status code.+listFileSharesResponse+    :: Int -- ^ 'lfsrsResponseStatus'+    -> ListFileSharesResponse+listFileSharesResponse pResponseStatus_ =+  ListFileSharesResponse'+  { _lfsrsFileShareInfoList = Nothing+  , _lfsrsMarker = Nothing+  , _lfsrsNextMarker = Nothing+  , _lfsrsResponseStatus = pResponseStatus_+  }+++-- | An array of information about the file gateway's file shares.+lfsrsFileShareInfoList :: Lens' ListFileSharesResponse [FileShareInfo]+lfsrsFileShareInfoList = lens _lfsrsFileShareInfoList (\ s a -> s{_lfsrsFileShareInfoList = a}) . _Default . _Coerce;++-- | If the request includes @Marker@ , the response returns that value in this field.+lfsrsMarker :: Lens' ListFileSharesResponse (Maybe Text)+lfsrsMarker = lens _lfsrsMarker (\ s a -> s{_lfsrsMarker = a});++-- | If a value is present, there are more file shares to return. In a subsequent request, use @NextMarker@ as the value for @Marker@ to retrieve the next set of file shares.+lfsrsNextMarker :: Lens' ListFileSharesResponse (Maybe Text)+lfsrsNextMarker = lens _lfsrsNextMarker (\ s a -> s{_lfsrsNextMarker = a});++-- | -- | The response status code.+lfsrsResponseStatus :: Lens' ListFileSharesResponse Int+lfsrsResponseStatus = lens _lfsrsResponseStatus (\ s a -> s{_lfsrsResponseStatus = a});++instance NFData ListFileSharesResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.ListGateways--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -45,13 +45,13 @@     , lgrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing zero or more of the following fields: --@@ -65,10 +65,11 @@ -- -- /See:/ 'listGateways' smart constructor. data ListGateways = ListGateways'-    { _lgMarker :: !(Maybe Text)-    , _lgLimit  :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lgMarker :: !(Maybe Text)+  , _lgLimit  :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListGateways' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -78,12 +79,9 @@ -- * 'lgLimit' - Specifies that the list of gateways returned be limited to the specified number of items. listGateways     :: ListGateways-listGateways =-    ListGateways'-    { _lgMarker = Nothing-    , _lgLimit = Nothing-    }+listGateways = ListGateways' {_lgMarker = Nothing, _lgLimit = Nothing} + -- | An opaque string that indicates the position at which to begin the returned list of gateways. lgMarker :: Lens' ListGateways (Maybe Text) lgMarker = lens _lgMarker (\ s a -> s{_lgMarker = a});@@ -109,9 +107,9 @@                    (x .?> "Marker") <*> (x .?> "Gateways" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListGateways+instance Hashable ListGateways where -instance NFData ListGateways+instance NFData ListGateways where  instance ToHeaders ListGateways where         toHeaders@@ -138,11 +136,12 @@  -- | /See:/ 'listGatewaysResponse' smart constructor. data ListGatewaysResponse = ListGatewaysResponse'-    { _lgrsMarker         :: !(Maybe Text)-    , _lgrsGateways       :: !(Maybe [GatewayInfo])-    , _lgrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lgrsMarker         :: !(Maybe Text)+  , _lgrsGateways       :: !(Maybe [GatewayInfo])+  , _lgrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListGatewaysResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -156,12 +155,13 @@     :: Int -- ^ 'lgrsResponseStatus'     -> ListGatewaysResponse listGatewaysResponse pResponseStatus_ =-    ListGatewaysResponse'-    { _lgrsMarker = Nothing-    , _lgrsGateways = Nothing-    , _lgrsResponseStatus = pResponseStatus_-    }+  ListGatewaysResponse'+  { _lgrsMarker = Nothing+  , _lgrsGateways = Nothing+  , _lgrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. lgrsMarker :: Lens' ListGatewaysResponse (Maybe Text) lgrsMarker = lens _lgrsMarker (\ s a -> s{_lgrsMarker = a});@@ -174,4 +174,4 @@ lgrsResponseStatus :: Lens' ListGatewaysResponse Int lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a}); -instance NFData ListGatewaysResponse+instance NFData ListGatewaysResponse where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.ListLocalDisks--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -40,12 +40,12 @@     , lldrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the of the gateway. --@@ -53,9 +53,10 @@ -- -- /See:/ 'listLocalDisks' smart constructor. newtype ListLocalDisks = ListLocalDisks'-    { _lldGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lldGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListLocalDisks' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -64,11 +65,9 @@ listLocalDisks     :: Text -- ^ 'lldGatewayARN'     -> ListLocalDisks-listLocalDisks pGatewayARN_ =-    ListLocalDisks'-    { _lldGatewayARN = pGatewayARN_-    }+listLocalDisks pGatewayARN_ = ListLocalDisks' {_lldGatewayARN = pGatewayARN_} + -- | Undocumented member. lldGatewayARN :: Lens' ListLocalDisks Text lldGatewayARN = lens _lldGatewayARN (\ s a -> s{_lldGatewayARN = a});@@ -83,9 +82,9 @@                    (x .?> "GatewayARN") <*> (x .?> "Disks" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListLocalDisks+instance Hashable ListLocalDisks where -instance NFData ListLocalDisks+instance NFData ListLocalDisks where  instance ToHeaders ListLocalDisks where         toHeaders@@ -110,11 +109,12 @@  -- | /See:/ 'listLocalDisksResponse' smart constructor. data ListLocalDisksResponse = ListLocalDisksResponse'-    { _lldrsGatewayARN     :: !(Maybe Text)-    , _lldrsDisks          :: !(Maybe [Disk])-    , _lldrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lldrsGatewayARN     :: !(Maybe Text)+  , _lldrsDisks          :: !(Maybe [Disk])+  , _lldrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListLocalDisksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -128,12 +128,13 @@     :: Int -- ^ 'lldrsResponseStatus'     -> ListLocalDisksResponse listLocalDisksResponse pResponseStatus_ =-    ListLocalDisksResponse'-    { _lldrsGatewayARN = Nothing-    , _lldrsDisks = Nothing-    , _lldrsResponseStatus = pResponseStatus_-    }+  ListLocalDisksResponse'+  { _lldrsGatewayARN = Nothing+  , _lldrsDisks = Nothing+  , _lldrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. lldrsGatewayARN :: Lens' ListLocalDisksResponse (Maybe Text) lldrsGatewayARN = lens _lldrsGatewayARN (\ s a -> s{_lldrsGatewayARN = a});@@ -146,4 +147,4 @@ lldrsResponseStatus :: Lens' ListLocalDisksResponse Int lldrsResponseStatus = lens _lldrsResponseStatus (\ s a -> s{_lldrsResponseStatus = a}); -instance NFData ListLocalDisksResponse+instance NFData ListLocalDisksResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ListTagsForResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the tags that have been added to the specified resource.+-- Lists the tags that have been added to the specified resource. This operation is only supported in the cached volume, stored volume and tape gateway architecture. -- -- module Network.AWS.StorageGateway.ListTagsForResource@@ -41,12 +41,12 @@     , ltfrrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | ListTagsForResourceInput --@@ -54,11 +54,12 @@ -- -- /See:/ 'listTagsForResource' smart constructor. data ListTagsForResource = ListTagsForResource'-    { _ltfrMarker      :: !(Maybe Text)-    , _ltfrLimit       :: !(Maybe Nat)-    , _ltfrResourceARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfrMarker      :: !(Maybe Text)+  , _ltfrLimit       :: !(Maybe Nat)+  , _ltfrResourceARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -72,12 +73,13 @@     :: Text -- ^ 'ltfrResourceARN'     -> ListTagsForResource listTagsForResource pResourceARN_ =-    ListTagsForResource'-    { _ltfrMarker = Nothing-    , _ltfrLimit = Nothing-    , _ltfrResourceARN = pResourceARN_-    }+  ListTagsForResource'+  { _ltfrMarker = Nothing+  , _ltfrLimit = Nothing+  , _ltfrResourceARN = pResourceARN_+  } + -- | An opaque string that indicates the position at which to begin returning the list of tags. ltfrMarker :: Lens' ListTagsForResource (Maybe Text) ltfrMarker = lens _ltfrMarker (\ s a -> s{_ltfrMarker = a});@@ -102,9 +104,9 @@                      (x .?> "Tags" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListTagsForResource+instance Hashable ListTagsForResource where -instance NFData ListTagsForResource+instance NFData ListTagsForResource where  instance ToHeaders ListTagsForResource where         toHeaders@@ -136,12 +138,13 @@ -- -- /See:/ 'listTagsForResourceResponse' smart constructor. data ListTagsForResourceResponse = ListTagsForResourceResponse'-    { _ltfrrsResourceARN    :: !(Maybe Text)-    , _ltfrrsMarker         :: !(Maybe Text)-    , _ltfrrsTags           :: !(Maybe [Tag])-    , _ltfrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltfrrsResourceARN    :: !(Maybe Text)+  , _ltfrrsMarker         :: !(Maybe Text)+  , _ltfrrsTags           :: !(Maybe [Tag])+  , _ltfrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTagsForResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -157,13 +160,14 @@     :: Int -- ^ 'ltfrrsResponseStatus'     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =-    ListTagsForResourceResponse'-    { _ltfrrsResourceARN = Nothing-    , _ltfrrsMarker = Nothing-    , _ltfrrsTags = Nothing-    , _ltfrrsResponseStatus = pResponseStatus_-    }+  ListTagsForResourceResponse'+  { _ltfrrsResourceARN = Nothing+  , _ltfrrsMarker = Nothing+  , _ltfrrsTags = Nothing+  , _ltfrrsResponseStatus = pResponseStatus_+  } + -- | he Amazon Resource Name (ARN) of the resource for which you want to list tags. ltfrrsResourceARN :: Lens' ListTagsForResourceResponse (Maybe Text) ltfrrsResourceARN = lens _ltfrrsResourceARN (\ s a -> s{_ltfrrsResourceARN = a});@@ -180,4 +184,4 @@ ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); -instance NFData ListTagsForResourceResponse+instance NFData ListTagsForResourceResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.ListTapes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Lists virtual tapes in your virtual tape library (VTL) and your virtual tape shelf (VTS). You specify the tapes to list by specifying one or more tape Amazon Resource Names (ARNs). If you don't specify a tape ARN, the operation lists all virtual tapes in both your VTL and VTS. -- ----- This operation supports pagination. By default, the operation returns a maximum of up to 100 tapes. You can optionally specify the @Limit@ parameter in the body to limit the number of tapes in the response. If the number of tapes returned in the response is truncated, the response includes a @Marker@ element that you can use in your subsequent request to retrieve the next set of tapes.+-- This operation supports pagination. By default, the operation returns a maximum of up to 100 tapes. You can optionally specify the @Limit@ parameter in the body to limit the number of tapes in the response. If the number of tapes returned in the response is truncated, the response includes a @Marker@ element that you can use in your subsequent request to retrieve the next set of tapes. This operation is only supported in the tape gateway architecture. -- module Network.AWS.StorageGateway.ListTapes     (@@ -42,12 +42,12 @@     , ltrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object that contains one or more of the following fields: --@@ -63,11 +63,12 @@ -- -- /See:/ 'listTapes' smart constructor. data ListTapes = ListTapes'-    { _ltMarker   :: !(Maybe Text)-    , _ltLimit    :: !(Maybe Nat)-    , _ltTapeARNs :: !(Maybe [Text])-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltMarker   :: !(Maybe Text)+  , _ltLimit    :: !(Maybe Nat)+  , _ltTapeARNs :: !(Maybe [Text])+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTapes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -80,12 +81,9 @@ listTapes     :: ListTapes listTapes =-    ListTapes'-    { _ltMarker = Nothing-    , _ltLimit = Nothing-    , _ltTapeARNs = Nothing-    }+  ListTapes' {_ltMarker = Nothing, _ltLimit = Nothing, _ltTapeARNs = Nothing} + -- | A string that indicates the position at which to begin the returned list of tapes. ltMarker :: Lens' ListTapes (Maybe Text) ltMarker = lens _ltMarker (\ s a -> s{_ltMarker = a});@@ -108,9 +106,9 @@                    (x .?> "Marker") <*> (x .?> "TapeInfos" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListTapes+instance Hashable ListTapes where -instance NFData ListTapes+instance NFData ListTapes where  instance ToHeaders ListTapes where         toHeaders@@ -147,11 +145,12 @@ -- -- /See:/ 'listTapesResponse' smart constructor. data ListTapesResponse = ListTapesResponse'-    { _ltrsMarker         :: !(Maybe Text)-    , _ltrsTapeInfos      :: !(Maybe [TapeInfo])-    , _ltrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _ltrsMarker         :: !(Maybe Text)+  , _ltrsTapeInfos      :: !(Maybe [TapeInfo])+  , _ltrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListTapesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -165,12 +164,13 @@     :: Int -- ^ 'ltrsResponseStatus'     -> ListTapesResponse listTapesResponse pResponseStatus_ =-    ListTapesResponse'-    { _ltrsMarker = Nothing-    , _ltrsTapeInfos = Nothing-    , _ltrsResponseStatus = pResponseStatus_-    }+  ListTapesResponse'+  { _ltrsMarker = Nothing+  , _ltrsTapeInfos = Nothing+  , _ltrsResponseStatus = pResponseStatus_+  } + -- | A string that indicates the position at which to begin returning the next list of tapes. Use the marker in your next request to continue pagination of tapes. If there are no more tapes to list, this element does not appear in the response body. ltrsMarker :: Lens' ListTapesResponse (Maybe Text) ltrsMarker = lens _ltrsMarker (\ s a -> s{_ltrsMarker = a});@@ -183,4 +183,4 @@ ltrsResponseStatus :: Lens' ListTapesResponse Int ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a}); -instance NFData ListTapesResponse+instance NFData ListTapesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ListVolumeInitiators--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists iSCSI initiators that are connected to a volume. You can use this operation to determine whether a volume is being used or not.+-- Lists iSCSI initiators that are connected to a volume. You can use this operation to determine whether a volume is being used or not. This operation is only supported in the cached volume and stored volume gateway architecture. -- -- module Network.AWS.StorageGateway.ListVolumeInitiators@@ -37,12 +37,12 @@     , lvirsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | ListVolumeInitiatorsInput --@@ -50,9 +50,10 @@ -- -- /See:/ 'listVolumeInitiators' smart constructor. newtype ListVolumeInitiators = ListVolumeInitiators'-    { _lviVolumeARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lviVolumeARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVolumeInitiators' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -62,10 +63,9 @@     :: Text -- ^ 'lviVolumeARN'     -> ListVolumeInitiators listVolumeInitiators pVolumeARN_ =-    ListVolumeInitiators'-    { _lviVolumeARN = pVolumeARN_-    }+  ListVolumeInitiators' {_lviVolumeARN = pVolumeARN_} + -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes for the gateway. lviVolumeARN :: Lens' ListVolumeInitiators Text lviVolumeARN = lens _lviVolumeARN (\ s a -> s{_lviVolumeARN = a});@@ -81,9 +81,9 @@                    (x .?> "Initiators" .!@ mempty) <*>                      (pure (fromEnum s))) -instance Hashable ListVolumeInitiators+instance Hashable ListVolumeInitiators where -instance NFData ListVolumeInitiators+instance NFData ListVolumeInitiators where  instance ToHeaders ListVolumeInitiators where         toHeaders@@ -112,10 +112,11 @@ -- -- /See:/ 'listVolumeInitiatorsResponse' smart constructor. data ListVolumeInitiatorsResponse = ListVolumeInitiatorsResponse'-    { _lvirsInitiators     :: !(Maybe [Text])-    , _lvirsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvirsInitiators     :: !(Maybe [Text])+  , _lvirsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVolumeInitiatorsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -127,11 +128,10 @@     :: Int -- ^ 'lvirsResponseStatus'     -> ListVolumeInitiatorsResponse listVolumeInitiatorsResponse pResponseStatus_ =-    ListVolumeInitiatorsResponse'-    { _lvirsInitiators = Nothing-    , _lvirsResponseStatus = pResponseStatus_-    }+  ListVolumeInitiatorsResponse'+  {_lvirsInitiators = Nothing, _lvirsResponseStatus = pResponseStatus_} + -- | The host names and port numbers of all iSCSI initiators that are connected to the gateway. lvirsInitiators :: Lens' ListVolumeInitiatorsResponse [Text] lvirsInitiators = lens _lvirsInitiators (\ s a -> s{_lvirsInitiators = a}) . _Default . _Coerce;@@ -140,4 +140,4 @@ lvirsResponseStatus :: Lens' ListVolumeInitiatorsResponse Int lvirsResponseStatus = lens _lvirsResponseStatus (\ s a -> s{_lvirsResponseStatus = a}); -instance NFData ListVolumeInitiatorsResponse+instance NFData ListVolumeInitiatorsResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.ListVolumeRecoveryPoints--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the recovery points for a specified gateway. This operation is supported only for the gateway-cached volume architecture.+-- Lists the recovery points for a specified gateway. This operation is only supported in the cached volume gateway architecture. -- ----- Each gateway-cached volume has one recovery point. A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot. To create a snapshot from a volume recovery point use the 'CreateSnapshotFromVolumeRecoveryPoint' operation.+-- Each cache volume has one recovery point. A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot or clone a new cached volume from a source volume. To create a snapshot from a volume recovery point use the 'CreateSnapshotFromVolumeRecoveryPoint' operation. -- module Network.AWS.StorageGateway.ListVolumeRecoveryPoints     (@@ -40,18 +40,19 @@     , lvrprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'listVolumeRecoveryPoints' smart constructor. newtype ListVolumeRecoveryPoints = ListVolumeRecoveryPoints'-    { _lvrpGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvrpGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVolumeRecoveryPoints' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -61,10 +62,9 @@     :: Text -- ^ 'lvrpGatewayARN'     -> ListVolumeRecoveryPoints listVolumeRecoveryPoints pGatewayARN_ =-    ListVolumeRecoveryPoints'-    { _lvrpGatewayARN = pGatewayARN_-    }+  ListVolumeRecoveryPoints' {_lvrpGatewayARN = pGatewayARN_} + -- | Undocumented member. lvrpGatewayARN :: Lens' ListVolumeRecoveryPoints Text lvrpGatewayARN = lens _lvrpGatewayARN (\ s a -> s{_lvrpGatewayARN = a});@@ -81,9 +81,9 @@                      (x .?> "GatewayARN")                      <*> (pure (fromEnum s))) -instance Hashable ListVolumeRecoveryPoints+instance Hashable ListVolumeRecoveryPoints where -instance NFData ListVolumeRecoveryPoints+instance NFData ListVolumeRecoveryPoints where  instance ToHeaders ListVolumeRecoveryPoints where         toHeaders@@ -108,11 +108,12 @@  -- | /See:/ 'listVolumeRecoveryPointsResponse' smart constructor. data ListVolumeRecoveryPointsResponse = ListVolumeRecoveryPointsResponse'-    { _lvrprsVolumeRecoveryPointInfos :: !(Maybe [VolumeRecoveryPointInfo])-    , _lvrprsGatewayARN               :: !(Maybe Text)-    , _lvrprsResponseStatus           :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvrprsVolumeRecoveryPointInfos :: !(Maybe [VolumeRecoveryPointInfo])+  , _lvrprsGatewayARN               :: !(Maybe Text)+  , _lvrprsResponseStatus           :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVolumeRecoveryPointsResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -126,12 +127,13 @@     :: Int -- ^ 'lvrprsResponseStatus'     -> ListVolumeRecoveryPointsResponse listVolumeRecoveryPointsResponse pResponseStatus_ =-    ListVolumeRecoveryPointsResponse'-    { _lvrprsVolumeRecoveryPointInfos = Nothing-    , _lvrprsGatewayARN = Nothing-    , _lvrprsResponseStatus = pResponseStatus_-    }+  ListVolumeRecoveryPointsResponse'+  { _lvrprsVolumeRecoveryPointInfos = Nothing+  , _lvrprsGatewayARN = Nothing+  , _lvrprsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. lvrprsVolumeRecoveryPointInfos :: Lens' ListVolumeRecoveryPointsResponse [VolumeRecoveryPointInfo] lvrprsVolumeRecoveryPointInfos = lens _lvrprsVolumeRecoveryPointInfos (\ s a -> s{_lvrprsVolumeRecoveryPointInfos = a}) . _Default . _Coerce;@@ -145,3 +147,4 @@ lvrprsResponseStatus = lens _lvrprsResponseStatus (\ s a -> s{_lvrprsResponseStatus = a});  instance NFData ListVolumeRecoveryPointsResponse+         where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.ListVolumes--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the iSCSI stored volumes of a gateway. Results are sorted by volume ARN. The response includes only the volume ARNs. If you want additional volume information, use the 'DescribeStorediSCSIVolumes' API.+-- Lists the iSCSI stored volumes of a gateway. Results are sorted by volume ARN. The response includes only the volume ARNs. If you want additional volume information, use the 'DescribeStorediSCSIVolumes' or the 'DescribeCachediSCSIVolumes' API. -- ----- The operation supports pagination. By default, the operation returns a maximum of up to 100 volumes. You can optionally specify the @Limit@ field in the body to limit the number of volumes in the response. If the number of volumes returned in the response is truncated, the response includes a Marker field. You can use this Marker value in your subsequent request to retrieve the next set of volumes.+-- The operation supports pagination. By default, the operation returns a maximum of up to 100 volumes. You can optionally specify the @Limit@ field in the body to limit the number of volumes in the response. If the number of volumes returned in the response is truncated, the response includes a Marker field. You can use this Marker value in your subsequent request to retrieve the next set of volumes. This operation is only supported in the cached volume and stored volume gateway architectures. -- -- -- This operation returns paginated results.@@ -45,13 +45,13 @@     , lvrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Pager-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Pager+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object that contains one or more of the following fields: --@@ -65,11 +65,12 @@ -- -- /See:/ 'listVolumes' smart constructor. data ListVolumes = ListVolumes'-    { _lvGatewayARN :: !(Maybe Text)-    , _lvMarker     :: !(Maybe Text)-    , _lvLimit      :: !(Maybe Nat)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvGatewayARN :: !(Maybe Text)+  , _lvMarker     :: !(Maybe Text)+  , _lvLimit      :: !(Maybe Nat)+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVolumes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -82,12 +83,10 @@ listVolumes     :: ListVolumes listVolumes =-    ListVolumes'-    { _lvGatewayARN = Nothing-    , _lvMarker = Nothing-    , _lvLimit = Nothing-    }+  ListVolumes'+  {_lvGatewayARN = Nothing, _lvMarker = Nothing, _lvLimit = Nothing} + -- | Undocumented member. lvGatewayARN :: Lens' ListVolumes (Maybe Text) lvGatewayARN = lens _lvGatewayARN (\ s a -> s{_lvGatewayARN = a});@@ -118,9 +117,9 @@                      (x .?> "VolumeInfos" .!@ mempty)                      <*> (pure (fromEnum s))) -instance Hashable ListVolumes+instance Hashable ListVolumes where -instance NFData ListVolumes+instance NFData ListVolumes where  instance ToHeaders ListVolumes where         toHeaders@@ -148,12 +147,13 @@  -- | /See:/ 'listVolumesResponse' smart constructor. data ListVolumesResponse = ListVolumesResponse'-    { _lvrsGatewayARN     :: !(Maybe Text)-    , _lvrsMarker         :: !(Maybe Text)-    , _lvrsVolumeInfos    :: !(Maybe [VolumeInfo])-    , _lvrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _lvrsGatewayARN     :: !(Maybe Text)+  , _lvrsMarker         :: !(Maybe Text)+  , _lvrsVolumeInfos    :: !(Maybe [VolumeInfo])+  , _lvrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ListVolumesResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -169,13 +169,14 @@     :: Int -- ^ 'lvrsResponseStatus'     -> ListVolumesResponse listVolumesResponse pResponseStatus_ =-    ListVolumesResponse'-    { _lvrsGatewayARN = Nothing-    , _lvrsMarker = Nothing-    , _lvrsVolumeInfos = Nothing-    , _lvrsResponseStatus = pResponseStatus_-    }+  ListVolumesResponse'+  { _lvrsGatewayARN = Nothing+  , _lvrsMarker = Nothing+  , _lvrsVolumeInfos = Nothing+  , _lvrsResponseStatus = pResponseStatus_+  } + -- | Undocumented member. lvrsGatewayARN :: Lens' ListVolumesResponse (Maybe Text) lvrsGatewayARN = lens _lvrsGatewayARN (\ s a -> s{_lvrsGatewayARN = a});@@ -192,4 +193,4 @@ lvrsResponseStatus :: Lens' ListVolumesResponse Int lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a}); -instance NFData ListVolumesResponse+instance NFData ListVolumesResponse where

@@ -0,0 +1,133 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.StorageGateway.RefreshCache+-- Copyright   : (c) 2013-2017 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Refreshes the cache for the specified file share. This operation finds objects in the Amazon S3 bucket that were added, removed or replaced since the gateway last listed the bucket's contents and cached the results.+--+--+module Network.AWS.StorageGateway.RefreshCache+    (+    -- * Creating a Request+      refreshCache+    , RefreshCache+    -- * Request Lenses+    , rcFileShareARN++    -- * Destructuring the Response+    , refreshCacheResponse+    , RefreshCacheResponse+    -- * Response Lenses+    , rcrsFileShareARN+    , rcrsResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product++-- | /See:/ 'refreshCache' smart constructor.+newtype RefreshCache = RefreshCache'+  { _rcFileShareARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RefreshCache' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcFileShareARN' - Undocumented member.+refreshCache+    :: Text -- ^ 'rcFileShareARN'+    -> RefreshCache+refreshCache pFileShareARN_ = RefreshCache' {_rcFileShareARN = pFileShareARN_}+++-- | Undocumented member.+rcFileShareARN :: Lens' RefreshCache Text+rcFileShareARN = lens _rcFileShareARN (\ s a -> s{_rcFileShareARN = a});++instance AWSRequest RefreshCache where+        type Rs RefreshCache = RefreshCacheResponse+        request = postJSON storageGateway+        response+          = receiveJSON+              (\ s h x ->+                 RefreshCacheResponse' <$>+                   (x .?> "FileShareARN") <*> (pure (fromEnum s)))++instance Hashable RefreshCache where++instance NFData RefreshCache where++instance ToHeaders RefreshCache where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.RefreshCache" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON RefreshCache where+        toJSON RefreshCache'{..}+          = object+              (catMaybes+                 [Just ("FileShareARN" .= _rcFileShareARN)])++instance ToPath RefreshCache where+        toPath = const "/"++instance ToQuery RefreshCache where+        toQuery = const mempty++-- | /See:/ 'refreshCacheResponse' smart constructor.+data RefreshCacheResponse = RefreshCacheResponse'+  { _rcrsFileShareARN   :: !(Maybe Text)+  , _rcrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'RefreshCacheResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'rcrsFileShareARN' - Undocumented member.+--+-- * 'rcrsResponseStatus' - -- | The response status code.+refreshCacheResponse+    :: Int -- ^ 'rcrsResponseStatus'+    -> RefreshCacheResponse+refreshCacheResponse pResponseStatus_ =+  RefreshCacheResponse'+  {_rcrsFileShareARN = Nothing, _rcrsResponseStatus = pResponseStatus_}+++-- | Undocumented member.+rcrsFileShareARN :: Lens' RefreshCacheResponse (Maybe Text)+rcrsFileShareARN = lens _rcrsFileShareARN (\ s a -> s{_rcrsFileShareARN = a});++-- | -- | The response status code.+rcrsResponseStatus :: Lens' RefreshCacheResponse Int+rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});++instance NFData RefreshCacheResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.RemoveTagsFromResource--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Removes one or more tags from the specified resource.+-- Removes one or more tags from the specified resource. This operation is only supported in the cached volume, stored volume and tape gateway architectures. -- -- module Network.AWS.StorageGateway.RemoveTagsFromResource@@ -38,12 +38,12 @@     , rtfrrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | RemoveTagsFromResourceInput --@@ -51,10 +51,11 @@ -- -- /See:/ 'removeTagsFromResource' smart constructor. data RemoveTagsFromResource = RemoveTagsFromResource'-    { _rtfrResourceARN :: !Text-    , _rtfrTagKeys     :: ![Text]-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rtfrResourceARN :: !Text+  , _rtfrTagKeys     :: ![Text]+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTagsFromResource' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -66,11 +67,10 @@     :: Text -- ^ 'rtfrResourceARN'     -> RemoveTagsFromResource removeTagsFromResource pResourceARN_ =-    RemoveTagsFromResource'-    { _rtfrResourceARN = pResourceARN_-    , _rtfrTagKeys = mempty-    }+  RemoveTagsFromResource'+  {_rtfrResourceARN = pResourceARN_, _rtfrTagKeys = mempty} + -- | The Amazon Resource Name (ARN) of the resource you want to remove the tags from. rtfrResourceARN :: Lens' RemoveTagsFromResource Text rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a});@@ -89,9 +89,9 @@                  RemoveTagsFromResourceResponse' <$>                    (x .?> "ResourceARN") <*> (pure (fromEnum s))) -instance Hashable RemoveTagsFromResource+instance Hashable RemoveTagsFromResource where -instance NFData RemoveTagsFromResource+instance NFData RemoveTagsFromResource where  instance ToHeaders RemoveTagsFromResource where         toHeaders@@ -122,10 +122,11 @@ -- -- /See:/ 'removeTagsFromResourceResponse' smart constructor. data RemoveTagsFromResourceResponse = RemoveTagsFromResourceResponse'-    { _rtfrrsResourceARN    :: !(Maybe Text)-    , _rtfrrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rtfrrsResourceARN    :: !(Maybe Text)+  , _rtfrrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RemoveTagsFromResourceResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -137,11 +138,10 @@     :: Int -- ^ 'rtfrrsResponseStatus'     -> RemoveTagsFromResourceResponse removeTagsFromResourceResponse pResponseStatus_ =-    RemoveTagsFromResourceResponse'-    { _rtfrrsResourceARN = Nothing-    , _rtfrrsResponseStatus = pResponseStatus_-    }+  RemoveTagsFromResourceResponse'+  {_rtfrrsResourceARN = Nothing, _rtfrrsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the resource that the tags were removed from. rtfrrsResourceARN :: Lens' RemoveTagsFromResourceResponse (Maybe Text) rtfrrsResourceARN = lens _rtfrrsResourceARN (\ s a -> s{_rtfrrsResourceARN = a});@@ -150,4 +150,4 @@ rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a}); -instance NFData RemoveTagsFromResourceResponse+instance NFData RemoveTagsFromResourceResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ResetCache--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Resets all cache disks that have encountered a error and makes the disks available for reconfiguration as cache storage. If your cache disk encounters a error, the gateway prevents read and write operations on virtual tapes in the gateway. For example, an error can occur when a disk is corrupted or removed from the gateway. When a cache is reset, the gateway loses its cache storage. At this point you can reconfigure the disks as cache disks.+-- Resets all cache disks that have encountered a error and makes the disks available for reconfiguration as cache storage. If your cache disk encounters a error, the gateway prevents read and write operations on virtual tapes in the gateway. For example, an error can occur when a disk is corrupted or removed from the gateway. When a cache is reset, the gateway loses its cache storage. At this point you can reconfigure the disks as cache disks. This operation is only supported in the cached volume,tape and file gateway architectures. -- -- -- /Important:/ If the cache disk you are resetting contains data that has not been uploaded to Amazon S3 yet, that data can be lost. After you reset cache disks, there will be no configured cache disks left in the gateway, so you must configure at least one new cache disk for your gateway to function properly.@@ -35,22 +35,23 @@     , resetCacheResponse     , ResetCacheResponse     -- * Response Lenses-    , rcrsGatewayARN-    , rcrsResponseStatus+    , rrsGatewayARN+    , rrsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | /See:/ 'resetCache' smart constructor. newtype ResetCache = ResetCache'-    { _rcGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rcGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResetCache' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -59,11 +60,9 @@ resetCache     :: Text -- ^ 'rcGatewayARN'     -> ResetCache-resetCache pGatewayARN_ =-    ResetCache'-    { _rcGatewayARN = pGatewayARN_-    }+resetCache pGatewayARN_ = ResetCache' {_rcGatewayARN = pGatewayARN_} + -- | Undocumented member. rcGatewayARN :: Lens' ResetCache Text rcGatewayARN = lens _rcGatewayARN (\ s a -> s{_rcGatewayARN = a});@@ -77,9 +76,9 @@                  ResetCacheResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable ResetCache+instance Hashable ResetCache where -instance NFData ResetCache+instance NFData ResetCache where  instance ToHeaders ResetCache where         toHeaders@@ -103,32 +102,32 @@  -- | /See:/ 'resetCacheResponse' smart constructor. data ResetCacheResponse = ResetCacheResponse'-    { _rcrsGatewayARN     :: !(Maybe Text)-    , _rcrsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rrsGatewayARN     :: !(Maybe Text)+  , _rrsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ResetCacheResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'rcrsGatewayARN' - Undocumented member.+-- * 'rrsGatewayARN' - Undocumented member. ----- * 'rcrsResponseStatus' - -- | The response status code.+-- * 'rrsResponseStatus' - -- | The response status code. resetCacheResponse-    :: Int -- ^ 'rcrsResponseStatus'+    :: Int -- ^ 'rrsResponseStatus'     -> ResetCacheResponse resetCacheResponse pResponseStatus_ =-    ResetCacheResponse'-    { _rcrsGatewayARN = Nothing-    , _rcrsResponseStatus = pResponseStatus_-    }+  ResetCacheResponse'+  {_rrsGatewayARN = Nothing, _rrsResponseStatus = pResponseStatus_} + -- | Undocumented member.-rcrsGatewayARN :: Lens' ResetCacheResponse (Maybe Text)-rcrsGatewayARN = lens _rcrsGatewayARN (\ s a -> s{_rcrsGatewayARN = a});+rrsGatewayARN :: Lens' ResetCacheResponse (Maybe Text)+rrsGatewayARN = lens _rrsGatewayARN (\ s a -> s{_rrsGatewayARN = a});  -- | -- | The response status code.-rcrsResponseStatus :: Lens' ResetCacheResponse Int-rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});+rrsResponseStatus :: Lens' ResetCacheResponse Int+rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a}); -instance NFData ResetCacheResponse+instance NFData ResetCacheResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.RetrieveTapeArchive--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves an archived virtual tape from the virtual tape shelf (VTS) to a gateway-VTL. Virtual tapes archived in the VTS are not associated with any gateway. However after a tape is retrieved, it is associated with a gateway, even though it is also listed in the VTS.+-- Retrieves an archived virtual tape from the virtual tape shelf (VTS) to a tape gateway. Virtual tapes archived in the VTS are not associated with any gateway. However after a tape is retrieved, it is associated with a gateway, even though it is also listed in the VTS, that is, archive. This operation is only supported in the tape gateway architecture. -- ----- Once a tape is successfully retrieved to a gateway, it cannot be retrieved again to another gateway. You must archive the tape again before you can retrieve it to another gateway.+-- Once a tape is successfully retrieved to a gateway, it cannot be retrieved again to another gateway. You must archive the tape again before you can retrieve it to another gateway. This operation is only supported in the tape gateway architecture. -- module Network.AWS.StorageGateway.RetrieveTapeArchive     (@@ -40,12 +40,12 @@     , rtarsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | RetrieveTapeArchiveInput --@@ -53,32 +53,31 @@ -- -- /See:/ 'retrieveTapeArchive' smart constructor. data RetrieveTapeArchive = RetrieveTapeArchive'-    { _rtaTapeARN    :: !Text-    , _rtaGatewayARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rtaTapeARN    :: !Text+  , _rtaGatewayARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetrieveTapeArchive' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: -- -- * 'rtaTapeARN' - The Amazon Resource Name (ARN) of the virtual tape you want to retrieve from the virtual tape shelf (VTS). ----- * 'rtaGatewayARN' - The Amazon Resource Name (ARN) of the gateway you want to retrieve the virtual tape to. Use the 'ListGateways' operation to return a list of gateways for your account and region. You retrieve archived virtual tapes to only one gateway and the gateway must be a gateway-VTL.+-- * 'rtaGatewayARN' - The Amazon Resource Name (ARN) of the gateway you want to retrieve the virtual tape to. Use the 'ListGateways' operation to return a list of gateways for your account and region. You retrieve archived virtual tapes to only one gateway and the gateway must be a tape gateway. retrieveTapeArchive     :: Text -- ^ 'rtaTapeARN'     -> Text -- ^ 'rtaGatewayARN'     -> RetrieveTapeArchive retrieveTapeArchive pTapeARN_ pGatewayARN_ =-    RetrieveTapeArchive'-    { _rtaTapeARN = pTapeARN_-    , _rtaGatewayARN = pGatewayARN_-    }+  RetrieveTapeArchive' {_rtaTapeARN = pTapeARN_, _rtaGatewayARN = pGatewayARN_} + -- | The Amazon Resource Name (ARN) of the virtual tape you want to retrieve from the virtual tape shelf (VTS). rtaTapeARN :: Lens' RetrieveTapeArchive Text rtaTapeARN = lens _rtaTapeARN (\ s a -> s{_rtaTapeARN = a}); --- | The Amazon Resource Name (ARN) of the gateway you want to retrieve the virtual tape to. Use the 'ListGateways' operation to return a list of gateways for your account and region. You retrieve archived virtual tapes to only one gateway and the gateway must be a gateway-VTL.+-- | The Amazon Resource Name (ARN) of the gateway you want to retrieve the virtual tape to. Use the 'ListGateways' operation to return a list of gateways for your account and region. You retrieve archived virtual tapes to only one gateway and the gateway must be a tape gateway. rtaGatewayARN :: Lens' RetrieveTapeArchive Text rtaGatewayARN = lens _rtaGatewayARN (\ s a -> s{_rtaGatewayARN = a}); @@ -92,9 +91,9 @@                  RetrieveTapeArchiveResponse' <$>                    (x .?> "TapeARN") <*> (pure (fromEnum s))) -instance Hashable RetrieveTapeArchive+instance Hashable RetrieveTapeArchive where -instance NFData RetrieveTapeArchive+instance NFData RetrieveTapeArchive where  instance ToHeaders RetrieveTapeArchive where         toHeaders@@ -125,10 +124,11 @@ -- -- /See:/ 'retrieveTapeArchiveResponse' smart constructor. data RetrieveTapeArchiveResponse = RetrieveTapeArchiveResponse'-    { _rtarsTapeARN        :: !(Maybe Text)-    , _rtarsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rtarsTapeARN        :: !(Maybe Text)+  , _rtarsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetrieveTapeArchiveResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,11 +140,10 @@     :: Int -- ^ 'rtarsResponseStatus'     -> RetrieveTapeArchiveResponse retrieveTapeArchiveResponse pResponseStatus_ =-    RetrieveTapeArchiveResponse'-    { _rtarsTapeARN = Nothing-    , _rtarsResponseStatus = pResponseStatus_-    }+  RetrieveTapeArchiveResponse'+  {_rtarsTapeARN = Nothing, _rtarsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the retrieved virtual tape. rtarsTapeARN :: Lens' RetrieveTapeArchiveResponse (Maybe Text) rtarsTapeARN = lens _rtarsTapeARN (\ s a -> s{_rtarsTapeARN = a});@@ -153,4 +152,4 @@ rtarsResponseStatus :: Lens' RetrieveTapeArchiveResponse Int rtarsResponseStatus = lens _rtarsResponseStatus (\ s a -> s{_rtarsResponseStatus = a}); -instance NFData RetrieveTapeArchiveResponse+instance NFData RetrieveTapeArchiveResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves the recovery point for the specified virtual tape.+-- Retrieves the recovery point for the specified virtual tape. This operation is only supported in the tape gateway architecture. -- -- -- A recovery point is a point in time view of a virtual tape at which all the data on the tape is consistent. If your gateway crashes, virtual tapes that have recovery points can be recovered to a new gateway.@@ -40,12 +40,12 @@     , rtrprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | RetrieveTapeRecoveryPointInput --@@ -53,10 +53,11 @@ -- -- /See:/ 'retrieveTapeRecoveryPoint' smart constructor. data RetrieveTapeRecoveryPoint = RetrieveTapeRecoveryPoint'-    { _rtrpTapeARN    :: !Text-    , _rtrpGatewayARN :: !Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rtrpTapeARN    :: !Text+  , _rtrpGatewayARN :: !Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetrieveTapeRecoveryPoint' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -69,11 +70,10 @@     -> Text -- ^ 'rtrpGatewayARN'     -> RetrieveTapeRecoveryPoint retrieveTapeRecoveryPoint pTapeARN_ pGatewayARN_ =-    RetrieveTapeRecoveryPoint'-    { _rtrpTapeARN = pTapeARN_-    , _rtrpGatewayARN = pGatewayARN_-    }+  RetrieveTapeRecoveryPoint'+  {_rtrpTapeARN = pTapeARN_, _rtrpGatewayARN = pGatewayARN_} + -- | The Amazon Resource Name (ARN) of the virtual tape for which you want to retrieve the recovery point. rtrpTapeARN :: Lens' RetrieveTapeRecoveryPoint Text rtrpTapeARN = lens _rtrpTapeARN (\ s a -> s{_rtrpTapeARN = a});@@ -92,9 +92,9 @@                  RetrieveTapeRecoveryPointResponse' <$>                    (x .?> "TapeARN") <*> (pure (fromEnum s))) -instance Hashable RetrieveTapeRecoveryPoint+instance Hashable RetrieveTapeRecoveryPoint where -instance NFData RetrieveTapeRecoveryPoint+instance NFData RetrieveTapeRecoveryPoint where  instance ToHeaders RetrieveTapeRecoveryPoint where         toHeaders@@ -125,10 +125,11 @@ -- -- /See:/ 'retrieveTapeRecoveryPointResponse' smart constructor. data RetrieveTapeRecoveryPointResponse = RetrieveTapeRecoveryPointResponse'-    { _rtrprsTapeARN        :: !(Maybe Text)-    , _rtrprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _rtrprsTapeARN        :: !(Maybe Text)+  , _rtrprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'RetrieveTapeRecoveryPointResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -140,11 +141,10 @@     :: Int -- ^ 'rtrprsResponseStatus'     -> RetrieveTapeRecoveryPointResponse retrieveTapeRecoveryPointResponse pResponseStatus_ =-    RetrieveTapeRecoveryPointResponse'-    { _rtrprsTapeARN = Nothing-    , _rtrprsResponseStatus = pResponseStatus_-    }+  RetrieveTapeRecoveryPointResponse'+  {_rtrprsTapeARN = Nothing, _rtrprsResponseStatus = pResponseStatus_} + -- | The Amazon Resource Name (ARN) of the virtual tape for which the recovery point was retrieved. rtrprsTapeARN :: Lens' RetrieveTapeRecoveryPointResponse (Maybe Text) rtrprsTapeARN = lens _rtrprsTapeARN (\ s a -> s{_rtrprsTapeARN = a});@@ -154,3 +154,4 @@ rtrprsResponseStatus = lens _rtrprsResponseStatus (\ s a -> s{_rtrprsResponseStatus = a});  instance NFData RetrieveTapeRecoveryPointResponse+         where

@@ -12,9 +12,9 @@  -- | -- Module      : Network.AWS.StorageGateway.SetLocalConsolePassword--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) --@@ -38,12 +38,12 @@     , slcprsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | SetLocalConsolePasswordInput --@@ -51,10 +51,11 @@ -- -- /See:/ 'setLocalConsolePassword' smart constructor. data SetLocalConsolePassword = SetLocalConsolePassword'-    { _slcpGatewayARN           :: !Text-    , _slcpLocalConsolePassword :: !(Sensitive Text)-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _slcpGatewayARN           :: !Text+  , _slcpLocalConsolePassword :: !(Sensitive Text)+  } deriving (Eq, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLocalConsolePassword' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,12 @@     -> Text -- ^ 'slcpLocalConsolePassword'     -> SetLocalConsolePassword setLocalConsolePassword pGatewayARN_ pLocalConsolePassword_ =-    SetLocalConsolePassword'-    { _slcpGatewayARN = pGatewayARN_-    , _slcpLocalConsolePassword = _Sensitive # pLocalConsolePassword_-    }+  SetLocalConsolePassword'+  { _slcpGatewayARN = pGatewayARN_+  , _slcpLocalConsolePassword = _Sensitive # pLocalConsolePassword_+  } + -- | Undocumented member. slcpGatewayARN :: Lens' SetLocalConsolePassword Text slcpGatewayARN = lens _slcpGatewayARN (\ s a -> s{_slcpGatewayARN = a});@@ -90,9 +92,9 @@                  SetLocalConsolePasswordResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable SetLocalConsolePassword+instance Hashable SetLocalConsolePassword where -instance NFData SetLocalConsolePassword+instance NFData SetLocalConsolePassword where  instance ToHeaders SetLocalConsolePassword where         toHeaders@@ -121,10 +123,11 @@  -- | /See:/ 'setLocalConsolePasswordResponse' smart constructor. data SetLocalConsolePasswordResponse = SetLocalConsolePasswordResponse'-    { _slcprsGatewayARN     :: !(Maybe Text)-    , _slcprsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _slcprsGatewayARN     :: !(Maybe Text)+  , _slcprsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'SetLocalConsolePasswordResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -136,11 +139,10 @@     :: Int -- ^ 'slcprsResponseStatus'     -> SetLocalConsolePasswordResponse setLocalConsolePasswordResponse pResponseStatus_ =-    SetLocalConsolePasswordResponse'-    { _slcprsGatewayARN = Nothing-    , _slcprsResponseStatus = pResponseStatus_-    }+  SetLocalConsolePasswordResponse'+  {_slcprsGatewayARN = Nothing, _slcprsResponseStatus = pResponseStatus_} + -- | Undocumented member. slcprsGatewayARN :: Lens' SetLocalConsolePasswordResponse (Maybe Text) slcprsGatewayARN = lens _slcprsGatewayARN (\ s a -> s{_slcprsGatewayARN = a});@@ -149,4 +151,4 @@ slcprsResponseStatus :: Lens' SetLocalConsolePasswordResponse Int slcprsResponseStatus = lens _slcprsResponseStatus (\ s a -> s{_slcprsResponseStatus = a}); -instance NFData SetLocalConsolePasswordResponse+instance NFData SetLocalConsolePasswordResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.ShutdownGateway--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2017 Brendan Hay -- License     : Mozilla Public License, v. 2.0.--- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) -- -- Shuts down a gateway. To specify which gateway to shut down, use the Amazon Resource Name (ARN) of the gateway in the body of your request. -- ----- The operation shuts down the gateway service component running in the storage gateway's virtual machine (VM) and not the VM.+-- The operation shuts down the gateway service component running in the gateway's virtual machine (VM) and not the host VM. -- -- After the gateway is shutdown, you cannot call any other API except 'StartGateway' , 'DescribeGatewayInformation' , and 'ListGateways' . For more information, see 'ActivateGateway' . Your applications cannot read from or write to the gateway's storage volumes, and there are no snapshots taken. --@@ -43,12 +43,12 @@     , srsResponseStatus     ) where -import           Network.AWS.Lens-import           Network.AWS.Prelude-import           Network.AWS.Request-import           Network.AWS.Response-import           Network.AWS.StorageGateway.Types-import           Network.AWS.StorageGateway.Types.Product+import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product  -- | A JSON object containing the of the gateway to shut down. --@@ -56,9 +56,10 @@ -- -- /See:/ 'shutdownGateway' smart constructor. newtype ShutdownGateway = ShutdownGateway'-    { _sGatewayARN :: Text-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _sGatewayARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ShutdownGateway' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -67,11 +68,9 @@ shutdownGateway     :: Text -- ^ 'sGatewayARN'     -> ShutdownGateway-shutdownGateway pGatewayARN_ =-    ShutdownGateway'-    { _sGatewayARN = pGatewayARN_-    }+shutdownGateway pGatewayARN_ = ShutdownGateway' {_sGatewayARN = pGatewayARN_} + -- | Undocumented member. sGatewayARN :: Lens' ShutdownGateway Text sGatewayARN = lens _sGatewayARN (\ s a -> s{_sGatewayARN = a});@@ -85,9 +84,9 @@                  ShutdownGatewayResponse' <$>                    (x .?> "GatewayARN") <*> (pure (fromEnum s))) -instance Hashable ShutdownGateway+instance Hashable ShutdownGateway where -instance NFData ShutdownGateway+instance NFData ShutdownGateway where  instance ToHeaders ShutdownGateway where         toHeaders@@ -116,10 +115,11 @@ -- -- /See:/ 'shutdownGatewayResponse' smart constructor. data ShutdownGatewayResponse = ShutdownGatewayResponse'-    { _srsGatewayARN     :: !(Maybe Text)-    , _srsResponseStatus :: !Int-    } deriving (Eq,Read,Show,Data,Typeable,Generic)+  { _srsGatewayARN     :: !(Maybe Text)+  , _srsResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic) + -- | Creates a value of 'ShutdownGatewayResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired:@@ -131,11 +131,10 @@     :: Int -- ^ 'srsResponseStatus'     -> ShutdownGatewayResponse shutdownGatewayResponse pResponseStatus_ =-    ShutdownGatewayResponse'-    { _srsGatewayARN = Nothing-    , _srsResponseStatus = pResponseStatus_-    }+  ShutdownGatewayResponse'+  {_srsGatewayARN = Nothing, _srsResponseStatus = pResponseStatus_} + -- | Undocumented member. srsGatewayARN :: Lens' ShutdownGatewayResponse (Maybe Text) srsGatewayARN = lens _srsGatewayARN (\ s a -> s{_srsGatewayARN = a});@@ -144,4 +143,4 @@ srsResponseStatus :: Lens' ShutdownGatewayResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); -instance NFData ShutdownGatewayResponse+instance NFData ShutdownGatewayResponse where