amazonka-storagegateway 0.3.6 → 1.0.0

raw patch · 61 files changed

+9020/−6746 lines, 61 filesdep +amazonka-storagegatewaydep +amazonka-testdep +bytestringdep ~amazonka-coredep ~basePVP ok

version bump matches the API change (PVP)

Dependencies added: amazonka-storagegateway, amazonka-test, bytestring, lens, tasty, tasty-hunit, text, time, unordered-containers

Dependency ranges changed: amazonka-core, base

API changes (from Hackage documentation)

Files

• README.md +42/−5
• amazonka-storagegateway.cabal +73/−9
• gen/Network/AWS/StorageGateway.hs +404/−98
• gen/Network/AWS/StorageGateway/ActivateGateway.hs +191/−156
• gen/Network/AWS/StorageGateway/AddCache.hs +107/−89
• gen/Network/AWS/StorageGateway/AddUploadBuffer.hs +107/−89
• gen/Network/AWS/StorageGateway/AddWorkingStorage.hs +121/−95
• gen/Network/AWS/StorageGateway/CancelArchival.hs +106/−86
• gen/Network/AWS/StorageGateway/CancelRetrieval.hs +106/−86
• gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs +157/−140
• gen/Network/AWS/StorageGateway/CreateSnapshot.hs +141/−114
• gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs +141/−119
• gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs +188/−166
• gen/Network/AWS/StorageGateway/CreateTapes.hs +144/−132
• gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs +113/−92
• gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs +125/−102
• gen/Network/AWS/StorageGateway/DeleteGateway.hs +111/−91
• gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs +103/−85
• gen/Network/AWS/StorageGateway/DeleteTape.hs +109/−91
• gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs +98/−80
• gen/Network/AWS/StorageGateway/DeleteVolume.hs +108/−88
• gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs +126/−109
• gen/Network/AWS/StorageGateway/DescribeCache.hs +143/−127
• gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs +100/−98
• gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs +116/−99
• gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs +165/−137
• gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs +133/−111
• gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs +132/−111
• gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs +101/−98
• gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs +141/−117
• gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs +155/−131
• gen/Network/AWS/StorageGateway/DescribeTapes.hs +149/−126
• gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs +126/−108
• gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs +159/−133
• gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs +135/−118
• gen/Network/AWS/StorageGateway/DisableGateway.hs +101/−82
• gen/Network/AWS/StorageGateway/ListGateways.hs +130/−106
• gen/Network/AWS/StorageGateway/ListLocalDisks.hs +111/−92
• gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs +136/−0
• gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs +108/−91
• gen/Network/AWS/StorageGateway/ListVolumes.hs +150/−122
• gen/Network/AWS/StorageGateway/ResetCache.hs +103/−79
• gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs +119/−99
• gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs +115/−94
• gen/Network/AWS/StorageGateway/ShutdownGateway.hs +118/−92
• gen/Network/AWS/StorageGateway/StartGateway.hs +107/−83
• gen/Network/AWS/StorageGateway/Types.hs +200/−1453
• gen/Network/AWS/StorageGateway/Types/Product.hs +963/−0
• gen/Network/AWS/StorageGateway/Types/Sum.hs +20/−0
• gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs +127/−103
• gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs +154/−125
• gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs +113/−92
• gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs +111/−83
• gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs +134/−107
• gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs +140/−113
• gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs +112/−94
• gen/Network/AWS/StorageGateway/Waiters.hs +20/−0
• test/Main.hs +21/−0
• test/Test/AWS/Gen/StorageGateway.hs +889/−0
• test/Test/AWS/StorageGateway.hs +26/−0
• test/Test/AWS/StorageGateway/Internal.hs +16/−0

@@ -1,20 +1,57 @@ # Amazon Storage Gateway SDK -> _Warning:_ This is an experimental preview release which is still under heavy development and not intended for public consumption, _caveat emptor_!-+* [Version](#version) * [Description](#description) * [Contribute](#contribute) * [Licence](#licence) ++## Version++`1.0.0`++ ## Description -AWS Storage Gateway is a service that connects an on-premises software-appliance with cloud-based storage to provide seamless and secure integration-between your on-premises IT environment and AWS's storage infrastructure.+AWS Storage Gateway Service +AWS Storage Gateway is the service that connects an on-premises software+appliance with cloud-based storage to provide seamless and secure+integration between an organization\'s on-premises IT environment and+AWS\'s storage infrastructure. The service enables you to securely+upload data to the AWS cloud for cost effective backup and rapid+disaster recovery.++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/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/APIErrorResponses.html 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/general/latest/gr/index.html?rande.html AWS Storage Gateway Regions and Endpoints>:+    Provides a list of each of the regions and endpoints available for+    use with AWS Storage Gateway.+ Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-storagegateway) and the [AWS API Reference](http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html). +The types from this library are intended to be used with [amazonka](http://hackage.haskell.org/package/amazonka),+which provides mechanisms for specifying AuthN/AuthZ information and sending requests.++Use of lenses is required for constructing and manipulating types.+This is due to the amount of nesting of AWS types and transparency regarding+de/serialisation into more palatable Haskell values.+The provided lenses should be compatible with any of the major lens libraries+[lens](http://hackage.haskell.org/package/lens) or [lens-family-core](http://hackage.haskell.org/package/lens-family-core).  ## Contribute 

@@ -1,27 +1,59 @@ name:                  amazonka-storagegateway-version:               0.3.6+version:               1.0.0 synopsis:              Amazon Storage Gateway SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay@gmail.com>-copyright:             Copyright (c) 2013-2014 Brendan Hay+copyright:             Copyright (c) 2013-2015 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple extra-source-files:    README.md cabal-version:         >= 1.10  description:-    AWS Storage Gateway is a service that connects an on-premises software-    appliance with cloud-based storage to provide seamless and secure integration-    between your on-premises IT environment and AWS's storage infrastructure.+    AWS Storage Gateway Service +    AWS Storage Gateway is the service that connects an on-premises software+    appliance with cloud-based storage to provide seamless and secure+    integration between an organization\'s on-premises IT environment and+    AWS\'s storage infrastructure. The service enables you to securely+    upload data to the AWS cloud for cost effective backup and rapid+    disaster recovery.++    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/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/APIErrorResponses.html 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/general/latest/gr/index.html?rande.html AWS Storage Gateway Regions and Endpoints>:+        Provides a list of each of the regions and endpoints available for+        use with AWS Storage Gateway.     .-    /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html AWS API Reference>+    The types from this library are intended to be used with+    <http://hackage.haskell.org/package/amazonka amazonka>, which provides+    mechanisms for specifying AuthN/AuthZ information and sending requests.     .-    /Warning:/ This is an experimental preview release which is still under-    heavy development and not intended for public consumption, caveat emptor!+    Use of lenses is required for constructing and manipulating types.+    This is due to the amount of nesting of AWS types and transparency regarding+    de/serialisation into more palatable Haskell values.+    The provided lenses should be compatible with any of the major lens libraries+    such as <http://hackage.haskell.org/package/lens lens> or+    <http://hackage.haskell.org/package/lens-family-core lens-family-core>.+    .+    See "Network.AWS.StorageGateway" and the <http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html AWS API Reference>+    to get started.  source-repository head     type:     git@@ -70,6 +102,7 @@         , Network.AWS.StorageGateway.DisableGateway         , Network.AWS.StorageGateway.ListGateways         , Network.AWS.StorageGateway.ListLocalDisks+        , Network.AWS.StorageGateway.ListVolumeInitiators         , Network.AWS.StorageGateway.ListVolumeRecoveryPoints         , Network.AWS.StorageGateway.ListVolumes         , Network.AWS.StorageGateway.ResetCache@@ -85,9 +118,40 @@         , Network.AWS.StorageGateway.UpdateMaintenanceStartTime         , Network.AWS.StorageGateway.UpdateSnapshotSchedule         , Network.AWS.StorageGateway.UpdateVTLDeviceType+        , Network.AWS.StorageGateway.Waiters      other-modules:+          Network.AWS.StorageGateway.Types.Product+        , Network.AWS.StorageGateway.Types.Sum      build-depends:-          amazonka-core == 0.3.6.*+          amazonka-core == 1.0.0.*         , base          >= 4.7     && < 5++test-suite amazonka-storagegateway-test+    type:              exitcode-stdio-1.0+    default-language:  Haskell2010+    hs-source-dirs:    test+    main-is:           Main.hs++    ghc-options:       -Wall -threaded++    -- This is not comprehensive if modules have manually been added.+    -- It exists to ensure cabal 'somewhat' detects test module changes.+    other-modules:+          Test.AWS.StorageGateway+        , Test.AWS.Gen.StorageGateway+        , Test.AWS.StorageGateway.Internal++    build-depends:+          amazonka-core == 1.0.0+        , amazonka-test == 1.0.0+        , amazonka-storagegateway == 1.0.0+        , base+        , bytestring+        , lens+        , tasty+        , tasty-hunit+        , text+        , time+        , unordered-containers

@@ -1,118 +1,424 @@+{-# OPTIONS_GHC -fno-warn-unused-imports    #-}+{-# OPTIONS_GHC -fno-warn-duplicate-exports #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | -- Module      : Network.AWS.StorageGateway--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | AWS Storage Gateway is a service that connects an on-premises software--- appliance with cloud-based storage to provide seamless and secure integration--- between your on-premises IT environment and AWS's storage infrastructure.+-- AWS Storage Gateway Service+--+-- AWS Storage Gateway is the service that connects an on-premises software+-- appliance with cloud-based storage to provide seamless and secure+-- integration between an organization\'s on-premises IT environment and+-- AWS\'s storage infrastructure. The service enables you to securely+-- upload data to the AWS cloud for cost effective backup and rapid+-- disaster recovery.+--+-- 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/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/APIErrorResponses.html 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/general/latest/gr/index.html?rande.html AWS Storage Gateway Regions and Endpoints>:+--     Provides a list of each of the regions and endpoints available for+--     use with AWS Storage Gateway.+--+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html AWS API Reference> module Network.AWS.StorageGateway-    ( module Network.AWS.StorageGateway.ActivateGateway-    , module Network.AWS.StorageGateway.AddCache-    , module Network.AWS.StorageGateway.AddUploadBuffer-    , module Network.AWS.StorageGateway.AddWorkingStorage+    (+    -- * Service+      StorageGateway++    -- * Errors+    -- $errors++    -- ** InvalidGatewayRequestException+    , _InvalidGatewayRequestException++    -- ** InternalServerError+    , _InternalServerError++    -- * Waiters+    -- $waiters++    -- * Operations+    -- $operations++    -- ** CancelArchival     , module Network.AWS.StorageGateway.CancelArchival-    , module Network.AWS.StorageGateway.CancelRetrieval-    , module Network.AWS.StorageGateway.CreateCachediSCSIVolume-    , module Network.AWS.StorageGateway.CreateSnapshot-    , module Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint++    -- ** CreateStorediSCSIVolume     , module Network.AWS.StorageGateway.CreateStorediSCSIVolume++    -- ** CreateTapes     , module Network.AWS.StorageGateway.CreateTapes-    , module Network.AWS.StorageGateway.DeleteBandwidthRateLimit-    , module Network.AWS.StorageGateway.DeleteChapCredentials-    , module Network.AWS.StorageGateway.DeleteGateway-    , module Network.AWS.StorageGateway.DeleteSnapshotSchedule-    , module Network.AWS.StorageGateway.DeleteTape-    , module Network.AWS.StorageGateway.DeleteTapeArchive-    , module Network.AWS.StorageGateway.DeleteVolume-    , module Network.AWS.StorageGateway.DescribeBandwidthRateLimit-    , module Network.AWS.StorageGateway.DescribeCache-    , module Network.AWS.StorageGateway.DescribeCachediSCSIVolumes++    -- ** CreateCachediSCSIVolume+    , module Network.AWS.StorageGateway.CreateCachediSCSIVolume++    -- ** UpdateVTLDeviceType+    , module Network.AWS.StorageGateway.UpdateVTLDeviceType++    -- ** DescribeChapCredentials     , module Network.AWS.StorageGateway.DescribeChapCredentials-    , module Network.AWS.StorageGateway.DescribeGatewayInformation++    -- ** AddUploadBuffer+    , module Network.AWS.StorageGateway.AddUploadBuffer++    -- ** ListVolumeInitiators+    , module Network.AWS.StorageGateway.ListVolumeInitiators++    -- ** DescribeWorkingStorage+    , module Network.AWS.StorageGateway.DescribeWorkingStorage++    -- ** DescribeCachediSCSIVolumes+    , module Network.AWS.StorageGateway.DescribeCachediSCSIVolumes++    -- ** UpdateGatewayInformation+    , module Network.AWS.StorageGateway.UpdateGatewayInformation++    -- ** DescribeMaintenanceStartTime     , module Network.AWS.StorageGateway.DescribeMaintenanceStartTime-    , module Network.AWS.StorageGateway.DescribeSnapshotSchedule++    -- ** AddCache+    , module Network.AWS.StorageGateway.AddCache++    -- ** StartGateway+    , module Network.AWS.StorageGateway.StartGateway++    -- ** ShutdownGateway+    , module Network.AWS.StorageGateway.ShutdownGateway++    -- ** UpdateGatewaySoftwareNow+    , module Network.AWS.StorageGateway.UpdateGatewaySoftwareNow++    -- ** DeleteChapCredentials+    , module Network.AWS.StorageGateway.DeleteChapCredentials++    -- ** UpdateChapCredentials+    , module Network.AWS.StorageGateway.UpdateChapCredentials++    -- ** DescribeStorediSCSIVolumes     , module Network.AWS.StorageGateway.DescribeStorediSCSIVolumes-    , module Network.AWS.StorageGateway.DescribeTapeArchives-    , module Network.AWS.StorageGateway.DescribeTapeRecoveryPoints++    -- ** DescribeTapes (Paginated)     , module Network.AWS.StorageGateway.DescribeTapes++    -- ** DescribeUploadBuffer     , module Network.AWS.StorageGateway.DescribeUploadBuffer-    , module Network.AWS.StorageGateway.DescribeVTLDevices-    , module Network.AWS.StorageGateway.DescribeWorkingStorage++    -- ** CreateSnapshotFromVolumeRecoveryPoint+    , module Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint++    -- ** DescribeGatewayInformation+    , module Network.AWS.StorageGateway.DescribeGatewayInformation++    -- ** RetrieveTapeRecoveryPoint+    , module Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint++    -- ** UpdateMaintenanceStartTime+    , module Network.AWS.StorageGateway.UpdateMaintenanceStartTime++    -- ** DeleteGateway+    , module Network.AWS.StorageGateway.DeleteGateway++    -- ** DisableGateway     , module Network.AWS.StorageGateway.DisableGateway-    , module Network.AWS.StorageGateway.ListGateways-    , module Network.AWS.StorageGateway.ListLocalDisks++    -- ** DescribeSnapshotSchedule+    , module Network.AWS.StorageGateway.DescribeSnapshotSchedule++    -- ** DescribeTapeArchives (Paginated)+    , module Network.AWS.StorageGateway.DescribeTapeArchives++    -- ** RetrieveTapeArchive+    , module Network.AWS.StorageGateway.RetrieveTapeArchive++    -- ** DescribeBandwidthRateLimit+    , module Network.AWS.StorageGateway.DescribeBandwidthRateLimit++    -- ** DescribeVTLDevices (Paginated)+    , module Network.AWS.StorageGateway.DescribeVTLDevices++    -- ** CreateSnapshot+    , module Network.AWS.StorageGateway.CreateSnapshot++    -- ** UpdateSnapshotSchedule+    , module Network.AWS.StorageGateway.UpdateSnapshotSchedule++    -- ** CancelRetrieval+    , module Network.AWS.StorageGateway.CancelRetrieval++    -- ** DeleteSnapshotSchedule+    , module Network.AWS.StorageGateway.DeleteSnapshotSchedule++    -- ** DeleteTapeArchive+    , module Network.AWS.StorageGateway.DeleteTapeArchive++    -- ** ListVolumeRecoveryPoints     , module Network.AWS.StorageGateway.ListVolumeRecoveryPoints++    -- ** AddWorkingStorage+    , module Network.AWS.StorageGateway.AddWorkingStorage++    -- ** ListGateways (Paginated)+    , module Network.AWS.StorageGateway.ListGateways++    -- ** ListVolumes (Paginated)     , module Network.AWS.StorageGateway.ListVolumes++    -- ** DescribeTapeRecoveryPoints (Paginated)+    , module Network.AWS.StorageGateway.DescribeTapeRecoveryPoints++    -- ** DeleteVolume+    , module Network.AWS.StorageGateway.DeleteVolume++    -- ** ResetCache     , module Network.AWS.StorageGateway.ResetCache-    , module Network.AWS.StorageGateway.RetrieveTapeArchive-    , module Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint-    , module Network.AWS.StorageGateway.ShutdownGateway-    , module Network.AWS.StorageGateway.StartGateway-    , module Network.AWS.StorageGateway.Types++    -- ** ActivateGateway+    , module Network.AWS.StorageGateway.ActivateGateway++    -- ** DescribeCache+    , module Network.AWS.StorageGateway.DescribeCache++    -- ** UpdateBandwidthRateLimit     , module Network.AWS.StorageGateway.UpdateBandwidthRateLimit-    , module Network.AWS.StorageGateway.UpdateChapCredentials-    , module Network.AWS.StorageGateway.UpdateGatewayInformation-    , module Network.AWS.StorageGateway.UpdateGatewaySoftwareNow-    , module Network.AWS.StorageGateway.UpdateMaintenanceStartTime-    , module Network.AWS.StorageGateway.UpdateSnapshotSchedule-    , module Network.AWS.StorageGateway.UpdateVTLDeviceType++    -- ** DeleteBandwidthRateLimit+    , module Network.AWS.StorageGateway.DeleteBandwidthRateLimit++    -- ** ListLocalDisks+    , module Network.AWS.StorageGateway.ListLocalDisks++    -- ** DeleteTape+    , module Network.AWS.StorageGateway.DeleteTape++    -- * Types++    -- ** CachediSCSIVolume+    , CachediSCSIVolume+    , cachediSCSIVolume+    , cscsivVolumeStatus+    , cscsivVolumeiSCSIAttributes+    , cscsivSourceSnapshotId+    , cscsivVolumeARN+    , cscsivVolumeProgress+    , cscsivVolumeSizeInBytes+    , cscsivVolumeId+    , cscsivVolumeType++    -- ** ChapInfo+    , ChapInfo+    , chapInfo+    , ciTargetARN+    , ciSecretToAuthenticateInitiator+    , ciInitiatorName+    , ciSecretToAuthenticateTarget++    -- ** DeviceiSCSIAttributes+    , DeviceiSCSIAttributes+    , deviceiSCSIAttributes+    , dscsiaTargetARN+    , dscsiaChapEnabled+    , dscsiaNetworkInterfaceId+    , dscsiaNetworkInterfacePort++    -- ** Disk+    , Disk+    , disk+    , dDiskAllocationResource+    , dDiskAllocationType+    , dDiskNode+    , dDiskPath+    , dDiskSizeInBytes+    , dDiskStatus+    , dDiskId++    -- ** GatewayInfo+    , GatewayInfo+    , gatewayInfo+    , giGatewayARN+    , giGatewayOperationalState+    , giGatewayType++    -- ** NetworkInterface+    , NetworkInterface+    , networkInterface+    , niIPv6Address+    , niMACAddress+    , niIPv4Address++    -- ** StorediSCSIVolume+    , StorediSCSIVolume+    , storediSCSIVolume+    , sscsivVolumeStatus+    , sscsivVolumeiSCSIAttributes+    , sscsivSourceSnapshotId+    , sscsivPreservedExistingData+    , sscsivVolumeARN+    , sscsivVolumeProgress+    , sscsivVolumeSizeInBytes+    , sscsivVolumeId+    , sscsivVolumeType+    , sscsivVolumeDiskId++    -- ** Tape+    , Tape+    , tape+    , tTapeBarcode+    , tTapeStatus+    , tProgress+    , tTapeARN+    , tTapeSizeInBytes+    , tVTLDevice++    -- ** TapeArchive+    , TapeArchive+    , tapeArchive+    , taTapeBarcode+    , taTapeStatus+    , taTapeARN+    , taTapeSizeInBytes+    , taCompletionTime+    , taRetrievedTo++    -- ** TapeRecoveryPointInfo+    , TapeRecoveryPointInfo+    , tapeRecoveryPointInfo+    , trpiTapeStatus+    , trpiTapeRecoveryPointTime+    , trpiTapeARN+    , trpiTapeSizeInBytes++    -- ** VTLDevice+    , VTLDevice+    , vTLDevice+    , vtldDeviceiSCSIAttributes+    , vtldVTLDeviceVendor+    , vtldVTLDeviceARN+    , vtldVTLDeviceType+    , vtldVTLDeviceProductIdentifier++    -- ** VolumeInfo+    , VolumeInfo+    , volumeInfo+    , viVolumeARN+    , viVolumeType++    -- ** VolumeRecoveryPointInfo+    , VolumeRecoveryPointInfo+    , volumeRecoveryPointInfo+    , vrpiVolumeRecoveryPointTime+    , vrpiVolumeARN+    , vrpiVolumeSizeInBytes+    , vrpiVolumeUsageInBytes++    -- ** VolumeiSCSIAttributes+    , VolumeiSCSIAttributes+    , volumeiSCSIAttributes+    , vscsiaLunNumber+    , vscsiaTargetARN+    , vscsiaChapEnabled+    , vscsiaNetworkInterfaceId+    , vscsiaNetworkInterfacePort     ) where -import Network.AWS.StorageGateway.ActivateGateway-import Network.AWS.StorageGateway.AddCache-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.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.ListVolumeRecoveryPoints-import Network.AWS.StorageGateway.ListVolumes-import Network.AWS.StorageGateway.ResetCache-import Network.AWS.StorageGateway.RetrieveTapeArchive-import Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint-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.ActivateGateway+import           Network.AWS.StorageGateway.AddCache+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.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.ListVolumeInitiators+import           Network.AWS.StorageGateway.ListVolumeRecoveryPoints+import           Network.AWS.StorageGateway.ListVolumes+import           Network.AWS.StorageGateway.ResetCache+import           Network.AWS.StorageGateway.RetrieveTapeArchive+import           Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint+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++{- $errors+Error matchers are designed for use with the functions provided by+<http://hackage.haskell.org/package/lens/docs/Control-Exception-Lens.html Control.Exception.Lens>.+This allows catching (and rethrowing) service specific errors returned+by 'StorageGateway'.+-}++{- $operations+Some AWS operations return results that are incomplete and require subsequent+requests in order to obtain the entire result set. The process of sending+subsequent requests to continue where a previous request left off is called+pagination. For example, the 'ListObjects' operation of Amazon S3 returns up to+1000 objects at a time, and you must send subsequent requests with the+appropriate Marker in order to retrieve the next page of results.++Operations that have an 'AWSPager' instance can transparently perform subsequent+requests, correctly setting Markers and other request facets to iterate through+the entire result set of a truncated API operation. Operations which support+this have an additional note in the documentation.++Many operations have the ability to filter results on the server side. See the+individual operation parameters for details.+-}++{- $waiters+Waiters poll by repeatedly sending a request until some remote success condition+configured by the 'Wait' specification is fulfilled. The 'Wait' specification+determines how many attempts should be made, in addition to delay and retry strategies.+-}

@@ -1,206 +1,241 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.ActivateGateway--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation 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, 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'.+-- This operation 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, 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. -- -- You must turn on the gateway VM before you can activate your gateway. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_ActivateGateway.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_ActivateGateway.html AWS API Reference> for ActivateGateway. module Network.AWS.StorageGateway.ActivateGateway     (-    -- * Request-      ActivateGateway-    -- ** Request constructor-    , activateGateway-    -- ** Request lenses+    -- * Creating a Request+      activateGateway+    , ActivateGateway+    -- * Request Lenses+    , agMediumChangerType+    , agTapeDriveType+    , agGatewayType     , agActivationKey     , agGatewayName-    , agGatewayRegion     , agGatewayTimezone-    , agGatewayType-    , agMediumChangerType-    , agTapeDriveType+    , agGatewayRegion -    -- * Response-    , ActivateGatewayResponse-    -- ** Response constructor+    -- * Destructuring the Response     , activateGatewayResponse-    -- ** Response lenses-    , agrGatewayARN+    , ActivateGatewayResponse+    -- * Response Lenses+    , agrsGatewayARN+    , agrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data ActivateGateway = ActivateGateway-    { _agActivationKey     :: Text-    , _agGatewayName       :: Text-    , _agGatewayRegion     :: Text-    , _agGatewayTimezone   :: Text-    , _agGatewayType       :: Maybe Text-    , _agMediumChangerType :: Maybe Text-    , _agTapeDriveType     :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'ActivateGateway' constructor.+-- | A JSON object containing one or more of the following fields: ----- The fields accessible through corresponding lenses are:+-- -   ActivateGatewayInput$ActivationKey+-- -   GatewayName+-- -   ActivateGatewayInput$GatewayRegion+-- -   ActivateGatewayInput$GatewayTimezone+-- -   ActivateGatewayInput$GatewayType+-- -   ActivateGatewayInput$TapeDriveType+-- -   ActivateGatewayInput$MediumChangerType ----- * 'agActivationKey' @::@ 'Text'+-- /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)++-- | Creates a value of 'ActivateGateway' with the minimum fields required to make a request. ----- * 'agGatewayName' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'agGatewayRegion' @::@ 'Text'+-- * 'agMediumChangerType' ----- * 'agGatewayTimezone' @::@ 'Text'+-- * 'agTapeDriveType' ----- * 'agGatewayType' @::@ 'Maybe' 'Text'+-- * 'agGatewayType' ----- * 'agMediumChangerType' @::@ 'Maybe' 'Text'+-- * 'agActivationKey' ----- * 'agTapeDriveType' @::@ 'Maybe' 'Text'+-- * 'agGatewayName' ---activateGateway :: Text -- ^ 'agActivationKey'-                -> Text -- ^ 'agGatewayName'-                -> Text -- ^ 'agGatewayTimezone'-                -> Text -- ^ 'agGatewayRegion'-                -> ActivateGateway-activateGateway p1 p2 p3 p4 = ActivateGateway-    { _agActivationKey     = p1-    , _agGatewayName       = p2-    , _agGatewayTimezone   = p3-    , _agGatewayRegion     = p4-    , _agGatewayType       = Nothing-    , _agTapeDriveType     = Nothing-    , _agMediumChangerType = Nothing+-- * 'agGatewayTimezone'+--+-- * 'agGatewayRegion'+activateGateway+    :: Text -- ^ 'agActivationKey'+    -> Text -- ^ 'agGatewayName'+    -> Text -- ^ 'agGatewayTimezone'+    -> Text -- ^ 'agGatewayRegion'+    -> ActivateGateway+activateGateway pActivationKey_ pGatewayName_ pGatewayTimezone_ pGatewayRegion_ =+    ActivateGateway'+    { _agMediumChangerType = Nothing+    , _agTapeDriveType = Nothing+    , _agGatewayType = Nothing+    , _agActivationKey = pActivationKey_+    , _agGatewayName = pGatewayName_+    , _agGatewayTimezone = pGatewayTimezone_+    , _agGatewayRegion = pGatewayRegion_     } --- | 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.-agActivationKey :: Lens' ActivateGateway Text-agActivationKey = lens _agActivationKey (\s a -> s { _agActivationKey = a })--agGatewayName :: Lens' ActivateGateway Text-agGatewayName = lens _agGatewayName (\s a -> s { _agGatewayName = a })---- | One of the values 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 andEndpoints> in the /Amazon Web Services Glossary/.+-- | The value that indicates the type of medium changer to use for+-- gateway-VTL. This field is optional. ----- /Valid Values/: "us-east-1", "us-west-1", "us-west-2", "eu-west-1",--- "eu-central-1", "ap-northeast-1", "ap-southeast-1", "ap-southeast-2",--- "sa-east-1"-agGatewayRegion :: Lens' ActivateGateway Text-agGatewayRegion = lens _agGatewayRegion (\s a -> s { _agGatewayRegion = a })+-- /Valid Values/: \"STK-L700\", \"AWS-Gateway-VTL\"+agMediumChangerType :: Lens' ActivateGateway (Maybe Text)+agMediumChangerType = lens _agMediumChangerType (\ s a -> s{_agMediumChangerType = a}); --- | One of the values 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 :: Lens' ActivateGateway Text-agGatewayTimezone =-    lens _agGatewayTimezone (\s a -> s { _agGatewayTimezone = a })+-- | The value that indicates the type of tape drive to use for gateway-VTL.+-- This field is optional.+--+-- /Valid Values/: \"IBM-ULT3580-TD5\"+agTapeDriveType :: Lens' ActivateGateway (Maybe Text)+agTapeDriveType = lens _agTapeDriveType (\ s a -> s{_agTapeDriveType = a});  -- | One of the values 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'.+-- specified is critical to all later functions of the gateway and cannot+-- be changed after activation. The default value is 'STORED'. agGatewayType :: Lens' ActivateGateway (Maybe Text)-agGatewayType = lens _agGatewayType (\s a -> s { _agGatewayType = a })+agGatewayType = lens _agGatewayType (\ s a -> s{_agGatewayType = a}); --- | 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 :: Lens' ActivateGateway (Maybe Text)-agMediumChangerType =-    lens _agMediumChangerType (\s a -> s { _agMediumChangerType = a })+-- | 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.+agActivationKey :: Lens' ActivateGateway Text+agActivationKey = lens _agActivationKey (\ s a -> s{_agActivationKey = a}); --- | The value that indicates the type of tape drive to use for gateway-VTL. This--- field is optional.------ /Valid Values/: "IBM-ULT3580-TD5"-agTapeDriveType :: Lens' ActivateGateway (Maybe Text)-agTapeDriveType = lens _agTapeDriveType (\s a -> s { _agTapeDriveType = a })+-- | Undocumented member.+agGatewayName :: Lens' ActivateGateway Text+agGatewayName = lens _agGatewayName (\ s a -> s{_agGatewayName = a}); -newtype ActivateGatewayResponse = ActivateGatewayResponse-    { _agrGatewayARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | One of the values 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 :: Lens' ActivateGateway Text+agGatewayTimezone = lens _agGatewayTimezone (\ s a -> s{_agGatewayTimezone = a}); --- | 'ActivateGatewayResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'agrGatewayARN' @::@ 'Maybe' 'Text'+-- | One of the values 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/. ---activateGatewayResponse :: ActivateGatewayResponse-activateGatewayResponse = ActivateGatewayResponse-    { _agrGatewayARN = Nothing-    }+-- /Valid Values/: \"us-east-1\", \"us-west-1\", \"us-west-2\",+-- \"eu-west-1\", \"eu-central-1\", \"ap-northeast-1\", \"ap-southeast-1\",+-- \"ap-southeast-2\", \"sa-east-1\"+agGatewayRegion :: Lens' ActivateGateway Text+agGatewayRegion = lens _agGatewayRegion (\ s a -> s{_agGatewayRegion = a}); -agrGatewayARN :: Lens' ActivateGatewayResponse (Maybe Text)-agrGatewayARN = lens _agrGatewayARN (\s a -> s { _agrGatewayARN = a })+instance AWSRequest ActivateGateway where+        type Sv ActivateGateway = StorageGateway+        type Rs ActivateGateway = ActivateGatewayResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 ActivateGatewayResponse' <$>+                   (x .?> "GatewayARN") <*> (pure (fromEnum s))) +instance ToHeaders ActivateGateway where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.ActivateGateway" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ActivateGateway where+        toJSON ActivateGateway'{..}+          = object+              ["MediumChangerType" .= _agMediumChangerType,+               "TapeDriveType" .= _agTapeDriveType,+               "GatewayType" .= _agGatewayType,+               "ActivationKey" .= _agActivationKey,+               "GatewayName" .= _agGatewayName,+               "GatewayTimezone" .= _agGatewayTimezone,+               "GatewayRegion" .= _agGatewayRegion]+ instance ToPath ActivateGateway where-    toPath = const "/"+        toPath = const "/"  instance ToQuery ActivateGateway where-    toQuery = const mempty--instance ToHeaders ActivateGateway+        toQuery = const mempty -instance ToJSON ActivateGateway where-    toJSON ActivateGateway{..} = object-        [ "ActivationKey"     .= _agActivationKey-        , "GatewayName"       .= _agGatewayName-        , "GatewayTimezone"   .= _agGatewayTimezone-        , "GatewayRegion"     .= _agGatewayRegion-        , "GatewayType"       .= _agGatewayType-        , "TapeDriveType"     .= _agTapeDriveType-        , "MediumChangerType" .= _agMediumChangerType-        ]+-- | AWS Storage Gateway returns the Amazon Resource Name (ARN) of the+-- activated gateway. It is a string made of information such as your+-- account, gateway name, and region. This ARN is used to reference the+-- gateway in other API operations as well as resource-based authorization.+--+-- /See:/ 'activateGatewayResponse' smart constructor.+data ActivateGatewayResponse = ActivateGatewayResponse'+    { _agrsGatewayARN :: !(Maybe Text)+    , _agrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest ActivateGateway where-    type Sv ActivateGateway = StorageGateway-    type Rs ActivateGateway = ActivateGatewayResponse+-- | 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:+--+-- * 'agrsGatewayARN'+--+-- * 'agrsStatus'+activateGatewayResponse+    :: Int -- ^ 'agrsStatus'+    -> ActivateGatewayResponse+activateGatewayResponse pStatus_ =+    ActivateGatewayResponse'+    { _agrsGatewayARN = Nothing+    , _agrsStatus = pStatus_+    } -    request  = post "ActivateGateway"-    response = jsonResponse+-- | Undocumented member.+agrsGatewayARN :: Lens' ActivateGatewayResponse (Maybe Text)+agrsGatewayARN = lens _agrsGatewayARN (\ s a -> s{_agrsGatewayARN = a}); -instance FromJSON ActivateGatewayResponse where-    parseJSON = withObject "ActivateGatewayResponse" $ \o -> ActivateGatewayResponse-        <$> o .:? "GatewayARN"+-- | The response status code.+agrsStatus :: Lens' ActivateGatewayResponse Int+agrsStatus = lens _agrsStatus (\ s a -> s{_agrsStatus = a});

@@ -1,125 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AddCache--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation configures one or more gateway local disks as cache for a+-- This operation 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>).+-- gateway-cached volume architecture (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.+-- 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. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_AddCache.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_AddCache.html AWS API Reference> for AddCache. module Network.AWS.StorageGateway.AddCache     (-    -- * Request-      AddCache-    -- ** Request constructor-    , addCache-    -- ** Request lenses-    , acDiskIds+    -- * Creating a Request+      addCache+    , AddCache+    -- * Request Lenses     , acGatewayARN+    , acDiskIds -    -- * Response-    , AddCacheResponse-    -- ** Response constructor+    -- * Destructuring the Response     , addCacheResponse-    -- ** Response lenses-    , acrGatewayARN+    , AddCacheResponse+    -- * Response Lenses+    , acrsGatewayARN+    , acrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -data AddCache = AddCache-    { _acDiskIds    :: List "DiskIds" Text-    , _acGatewayARN :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'addCache' smart constructor.+data AddCache = AddCache'+    { _acGatewayARN :: !Text+    , _acDiskIds    :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AddCache' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AddCache' with the minimum fields required to make a request. ----- * 'acDiskIds' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'acGatewayARN' @::@ 'Text'+-- * 'acGatewayARN' ---addCache :: Text -- ^ 'acGatewayARN'-         -> AddCache-addCache p1 = AddCache-    { _acGatewayARN = p1-    , _acDiskIds    = mempty+-- * 'acDiskIds'+addCache+    :: Text -- ^ 'acGatewayARN'+    -> AddCache+addCache pGatewayARN_ =+    AddCache'+    { _acGatewayARN = pGatewayARN_+    , _acDiskIds = mempty     } -acDiskIds :: Lens' AddCache [Text]-acDiskIds = lens _acDiskIds (\s a -> s { _acDiskIds = a }) . _List-+-- | Undocumented member. acGatewayARN :: Lens' AddCache Text-acGatewayARN = lens _acGatewayARN (\s a -> s { _acGatewayARN = a })+acGatewayARN = lens _acGatewayARN (\ s a -> s{_acGatewayARN = a}); -newtype AddCacheResponse = AddCacheResponse-    { _acrGatewayARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | Undocumented member.+acDiskIds :: Lens' AddCache [Text]+acDiskIds = lens _acDiskIds (\ s a -> s{_acDiskIds = a}) . _Coerce; --- | 'AddCacheResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'acrGatewayARN' @::@ 'Maybe' 'Text'----addCacheResponse :: AddCacheResponse-addCacheResponse = AddCacheResponse-    { _acrGatewayARN = Nothing-    }+instance AWSRequest AddCache where+        type Sv AddCache = StorageGateway+        type Rs AddCache = AddCacheResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 AddCacheResponse' <$>+                   (x .?> "GatewayARN") <*> (pure (fromEnum s))) -acrGatewayARN :: Lens' AddCacheResponse (Maybe Text)-acrGatewayARN = lens _acrGatewayARN (\s a -> s { _acrGatewayARN = a })+instance ToHeaders AddCache where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.AddCache" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON AddCache where+        toJSON AddCache'{..}+          = object+              ["GatewayARN" .= _acGatewayARN,+               "DiskIds" .= _acDiskIds]+ instance ToPath AddCache where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AddCache where-    toQuery = const mempty--instance ToHeaders AddCache+        toQuery = const mempty -instance ToJSON AddCache where-    toJSON AddCache{..} = object-        [ "GatewayARN" .= _acGatewayARN-        , "DiskIds"    .= _acDiskIds-        ]+-- | /See:/ 'addCacheResponse' smart constructor.+data AddCacheResponse = AddCacheResponse'+    { _acrsGatewayARN :: !(Maybe Text)+    , _acrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest AddCache where-    type Sv AddCache = StorageGateway-    type Rs AddCache = AddCacheResponse+-- | 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:+--+-- * 'acrsGatewayARN'+--+-- * 'acrsStatus'+addCacheResponse+    :: Int -- ^ 'acrsStatus'+    -> AddCacheResponse+addCacheResponse pStatus_ =+    AddCacheResponse'+    { _acrsGatewayARN = Nothing+    , _acrsStatus = pStatus_+    } -    request  = post "AddCache"-    response = jsonResponse+-- | Undocumented member.+acrsGatewayARN :: Lens' AddCacheResponse (Maybe Text)+acrsGatewayARN = lens _acrsGatewayARN (\ s a -> s{_acrsGatewayARN = a}); -instance FromJSON AddCacheResponse where-    parseJSON = withObject "AddCacheResponse" $ \o -> AddCacheResponse-        <$> o .:? "GatewayARN"+-- | The response status code.+acrsStatus :: Lens' AddCacheResponse Int+acrsStatus = lens _acrsStatus (\ s a -> s{_acrsStatus = a});

@@ -1,125 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AddUploadBuffer--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation configures one or more gateway local disks as upload buffer--- for a specified gateway. This operation is supported for both the+-- This operation 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. ----- 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.+-- 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. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_AddUploadBuffer.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_AddUploadBuffer.html AWS API Reference> for AddUploadBuffer. module Network.AWS.StorageGateway.AddUploadBuffer     (-    -- * Request-      AddUploadBuffer-    -- ** Request constructor-    , addUploadBuffer-    -- ** Request lenses-    , aubDiskIds+    -- * Creating a Request+      addUploadBuffer+    , AddUploadBuffer+    -- * Request Lenses     , aubGatewayARN+    , aubDiskIds -    -- * Response-    , AddUploadBufferResponse-    -- ** Response constructor+    -- * Destructuring the Response     , addUploadBufferResponse-    -- ** Response lenses-    , aubrGatewayARN+    , AddUploadBufferResponse+    -- * Response Lenses+    , aubrsGatewayARN+    , aubrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -data AddUploadBuffer = AddUploadBuffer-    { _aubDiskIds    :: List "DiskIds" Text-    , _aubGatewayARN :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'addUploadBuffer' smart constructor.+data AddUploadBuffer = AddUploadBuffer'+    { _aubGatewayARN :: !Text+    , _aubDiskIds    :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'AddUploadBuffer' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'AddUploadBuffer' with the minimum fields required to make a request. ----- * 'aubDiskIds' @::@ ['Text']+-- Use one of the following lenses to modify other fields as desired: ----- * 'aubGatewayARN' @::@ 'Text'+-- * 'aubGatewayARN' ---addUploadBuffer :: Text -- ^ 'aubGatewayARN'-                -> AddUploadBuffer-addUploadBuffer p1 = AddUploadBuffer-    { _aubGatewayARN = p1-    , _aubDiskIds    = mempty+-- * 'aubDiskIds'+addUploadBuffer+    :: Text -- ^ 'aubGatewayARN'+    -> AddUploadBuffer+addUploadBuffer pGatewayARN_ =+    AddUploadBuffer'+    { _aubGatewayARN = pGatewayARN_+    , _aubDiskIds = mempty     } -aubDiskIds :: Lens' AddUploadBuffer [Text]-aubDiskIds = lens _aubDiskIds (\s a -> s { _aubDiskIds = a }) . _List-+-- | Undocumented member. aubGatewayARN :: Lens' AddUploadBuffer Text-aubGatewayARN = lens _aubGatewayARN (\s a -> s { _aubGatewayARN = a })+aubGatewayARN = lens _aubGatewayARN (\ s a -> s{_aubGatewayARN = a}); -newtype AddUploadBufferResponse = AddUploadBufferResponse-    { _aubrGatewayARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | Undocumented member.+aubDiskIds :: Lens' AddUploadBuffer [Text]+aubDiskIds = lens _aubDiskIds (\ s a -> s{_aubDiskIds = a}) . _Coerce; --- | 'AddUploadBufferResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'aubrGatewayARN' @::@ 'Maybe' 'Text'----addUploadBufferResponse :: AddUploadBufferResponse-addUploadBufferResponse = AddUploadBufferResponse-    { _aubrGatewayARN = Nothing-    }+instance AWSRequest AddUploadBuffer where+        type Sv AddUploadBuffer = StorageGateway+        type Rs AddUploadBuffer = AddUploadBufferResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 AddUploadBufferResponse' <$>+                   (x .?> "GatewayARN") <*> (pure (fromEnum s))) -aubrGatewayARN :: Lens' AddUploadBufferResponse (Maybe Text)-aubrGatewayARN = lens _aubrGatewayARN (\s a -> s { _aubrGatewayARN = a })+instance ToHeaders AddUploadBuffer where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.AddUploadBuffer" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON AddUploadBuffer where+        toJSON AddUploadBuffer'{..}+          = object+              ["GatewayARN" .= _aubGatewayARN,+               "DiskIds" .= _aubDiskIds]+ instance ToPath AddUploadBuffer where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AddUploadBuffer where-    toQuery = const mempty--instance ToHeaders AddUploadBuffer+        toQuery = const mempty -instance ToJSON AddUploadBuffer where-    toJSON AddUploadBuffer{..} = object-        [ "GatewayARN" .= _aubGatewayARN-        , "DiskIds"    .= _aubDiskIds-        ]+-- | /See:/ 'addUploadBufferResponse' smart constructor.+data AddUploadBufferResponse = AddUploadBufferResponse'+    { _aubrsGatewayARN :: !(Maybe Text)+    , _aubrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest AddUploadBuffer where-    type Sv AddUploadBuffer = StorageGateway-    type Rs AddUploadBuffer = AddUploadBufferResponse+-- | 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:+--+-- * 'aubrsGatewayARN'+--+-- * 'aubrsStatus'+addUploadBufferResponse+    :: Int -- ^ 'aubrsStatus'+    -> AddUploadBufferResponse+addUploadBufferResponse pStatus_ =+    AddUploadBufferResponse'+    { _aubrsGatewayARN = Nothing+    , _aubrsStatus = pStatus_+    } -    request  = post "AddUploadBuffer"-    response = jsonResponse+-- | Undocumented member.+aubrsGatewayARN :: Lens' AddUploadBufferResponse (Maybe Text)+aubrsGatewayARN = lens _aubrsGatewayARN (\ s a -> s{_aubrsGatewayARN = a}); -instance FromJSON AddUploadBufferResponse where-    parseJSON = withObject "AddUploadBufferResponse" $ \o -> AddUploadBufferResponse-        <$> o .:? "GatewayARN"+-- | The response status code.+aubrsStatus :: Lens' AddUploadBufferResponse Int+aubrsStatus = lens _aubrsStatus (\ s a -> s{_aubrsStatus = a});

@@ -1,131 +1,157 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.AddWorkingStorage--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation 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 method in cached-volumes API--- version (20120630). Use AddUploadBuffer instead.+-- This operation 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 method+-- in cached-volumes API version (20120630). Use AddUploadBuffer instead. ----- Working storage is also referred to as upload buffer. You can also use the 'AddUploadBuffer' operation to add upload buffer to a stored-volume gateway.+-- Working storage is also referred to as upload buffer. You can also use+-- the AddUploadBuffer operation to add upload buffer to a stored-volume+-- gateway. ----- 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.+-- 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. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_AddWorkingStorage.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_AddWorkingStorage.html AWS API Reference> for AddWorkingStorage. module Network.AWS.StorageGateway.AddWorkingStorage     (-    -- * Request-      AddWorkingStorage-    -- ** Request constructor-    , addWorkingStorage-    -- ** Request lenses-    , awsDiskIds+    -- * Creating a Request+      addWorkingStorage+    , AddWorkingStorage+    -- * Request Lenses     , awsGatewayARN+    , awsDiskIds -    -- * Response-    , AddWorkingStorageResponse-    -- ** Response constructor+    -- * Destructuring the Response     , addWorkingStorageResponse-    -- ** Response lenses-    , awsrGatewayARN+    , AddWorkingStorageResponse+    -- * Response Lenses+    , awsrsGatewayARN+    , awsrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data AddWorkingStorage = AddWorkingStorage-    { _awsDiskIds    :: List "DiskIds" Text-    , _awsGatewayARN :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'AddWorkingStorage' constructor.+-- | A JSON object containing one or more of the following fields: ----- The fields accessible through corresponding lenses are:+-- -   AddWorkingStorageInput$DiskIds ----- * 'awsDiskIds' @::@ ['Text']+-- /See:/ 'addWorkingStorage' smart constructor.+data AddWorkingStorage = AddWorkingStorage'+    { _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. ----- * 'awsGatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---addWorkingStorage :: Text -- ^ 'awsGatewayARN'-                  -> AddWorkingStorage-addWorkingStorage p1 = AddWorkingStorage-    { _awsGatewayARN = p1-    , _awsDiskIds    = mempty+-- * 'awsGatewayARN'+--+-- * 'awsDiskIds'+addWorkingStorage+    :: Text -- ^ 'awsGatewayARN'+    -> AddWorkingStorage+addWorkingStorage pGatewayARN_ =+    AddWorkingStorage'+    { _awsGatewayARN = pGatewayARN_+    , _awsDiskIds = mempty     } --- | An array of strings that identify disks that are to be configured as working--- storage. Each string have a minimum length of 1 and maximum length of 300.--- You can get the disk IDs from the 'ListLocalDisks' API.-awsDiskIds :: Lens' AddWorkingStorage [Text]-awsDiskIds = lens _awsDiskIds (\s a -> s { _awsDiskIds = a }) . _List-+-- | Undocumented member. awsGatewayARN :: Lens' AddWorkingStorage Text-awsGatewayARN = lens _awsGatewayARN (\s a -> s { _awsGatewayARN = a })+awsGatewayARN = lens _awsGatewayARN (\ s a -> s{_awsGatewayARN = a}); -newtype AddWorkingStorageResponse = AddWorkingStorageResponse-    { _awsrGatewayARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+-- | An array of strings that identify disks that are to be configured as+-- working storage. Each string have a minimum length of 1 and maximum+-- length of 300. You can get the disk IDs from the ListLocalDisks API.+awsDiskIds :: Lens' AddWorkingStorage [Text]+awsDiskIds = lens _awsDiskIds (\ s a -> s{_awsDiskIds = a}) . _Coerce; --- | 'AddWorkingStorageResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'awsrGatewayARN' @::@ 'Maybe' 'Text'----addWorkingStorageResponse :: AddWorkingStorageResponse-addWorkingStorageResponse = AddWorkingStorageResponse-    { _awsrGatewayARN = Nothing-    }+instance AWSRequest AddWorkingStorage where+        type Sv AddWorkingStorage = StorageGateway+        type Rs AddWorkingStorage = AddWorkingStorageResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 AddWorkingStorageResponse' <$>+                   (x .?> "GatewayARN") <*> (pure (fromEnum s))) -awsrGatewayARN :: Lens' AddWorkingStorageResponse (Maybe Text)-awsrGatewayARN = lens _awsrGatewayARN (\s a -> s { _awsrGatewayARN = a })+instance ToHeaders AddWorkingStorage where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.AddWorkingStorage" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) +instance ToJSON AddWorkingStorage where+        toJSON AddWorkingStorage'{..}+          = object+              ["GatewayARN" .= _awsGatewayARN,+               "DiskIds" .= _awsDiskIds]+ instance ToPath AddWorkingStorage where-    toPath = const "/"+        toPath = const "/"  instance ToQuery AddWorkingStorage where-    toQuery = const mempty--instance ToHeaders AddWorkingStorage+        toQuery = const mempty -instance ToJSON AddWorkingStorage where-    toJSON AddWorkingStorage{..} = object-        [ "GatewayARN" .= _awsGatewayARN-        , "DiskIds"    .= _awsDiskIds-        ]+-- | A JSON object containing the of the gateway for which working storage+-- was configured.+--+-- /See:/ 'addWorkingStorageResponse' smart constructor.+data AddWorkingStorageResponse = AddWorkingStorageResponse'+    { _awsrsGatewayARN :: !(Maybe Text)+    , _awsrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest AddWorkingStorage where-    type Sv AddWorkingStorage = StorageGateway-    type Rs AddWorkingStorage = AddWorkingStorageResponse+-- | 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:+--+-- * 'awsrsGatewayARN'+--+-- * 'awsrsStatus'+addWorkingStorageResponse+    :: Int -- ^ 'awsrsStatus'+    -> AddWorkingStorageResponse+addWorkingStorageResponse pStatus_ =+    AddWorkingStorageResponse'+    { _awsrsGatewayARN = Nothing+    , _awsrsStatus = pStatus_+    } -    request  = post "AddWorkingStorage"-    response = jsonResponse+-- | Undocumented member.+awsrsGatewayARN :: Lens' AddWorkingStorageResponse (Maybe Text)+awsrsGatewayARN = lens _awsrsGatewayARN (\ s a -> s{_awsrsGatewayARN = a}); -instance FromJSON AddWorkingStorageResponse where-    parseJSON = withObject "AddWorkingStorageResponse" $ \o -> AddWorkingStorageResponse-        <$> o .:? "GatewayARN"+-- | The response status code.+awsrsStatus :: Lens' AddWorkingStorageResponse Int+awsrsStatus = lens _awsrsStatus (\ s a -> s{_awsrsStatus = a});

@@ -1,125 +1,145 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CancelArchival--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CancelArchival.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CancelArchival.html AWS API Reference> for CancelArchival. module Network.AWS.StorageGateway.CancelArchival     (-    -- * Request-      CancelArchival-    -- ** Request constructor-    , cancelArchival-    -- ** Request lenses+    -- * Creating a Request+      cancelArchival+    , CancelArchival+    -- * Request Lenses     , caGatewayARN     , caTapeARN -    -- * Response-    , CancelArchivalResponse-    -- ** Response constructor+    -- * Destructuring the Response     , cancelArchivalResponse-    -- ** Response lenses-    , carTapeARN+    , CancelArchivalResponse+    -- * Response Lenses+    , carsTapeARN+    , carsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data CancelArchival = CancelArchival-    { _caGatewayARN :: Text-    , _caTapeARN    :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'CancelArchival' constructor.+-- | CancelArchivalInput ----- The fields accessible through corresponding lenses are:+-- /See:/ 'cancelArchival' smart constructor.+data CancelArchival = CancelArchival'+    { _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. ----- * 'caGatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'caTapeARN' @::@ 'Text'+-- * 'caGatewayARN' ---cancelArchival :: Text -- ^ 'caGatewayARN'-               -> Text -- ^ 'caTapeARN'-               -> CancelArchival-cancelArchival p1 p2 = CancelArchival-    { _caGatewayARN = p1-    , _caTapeARN    = p2+-- * 'caTapeARN'+cancelArchival+    :: Text -- ^ 'caGatewayARN'+    -> Text -- ^ 'caTapeARN'+    -> CancelArchival+cancelArchival pGatewayARN_ pTapeARN_ =+    CancelArchival'+    { _caGatewayARN = pGatewayARN_+    , _caTapeARN = pTapeARN_     } +-- | Undocumented member. caGatewayARN :: Lens' CancelArchival Text-caGatewayARN = lens _caGatewayARN (\s a -> s { _caGatewayARN = a })+caGatewayARN = lens _caGatewayARN (\ s a -> s{_caGatewayARN = a});  -- | The Amazon Resource Name (ARN) of the virtual tape you want to cancel -- archiving for. caTapeARN :: Lens' CancelArchival Text-caTapeARN = lens _caTapeARN (\s a -> s { _caTapeARN = a })+caTapeARN = lens _caTapeARN (\ s a -> s{_caTapeARN = a}); -newtype CancelArchivalResponse = CancelArchivalResponse-    { _carTapeARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CancelArchival where+        type Sv CancelArchival = StorageGateway+        type Rs CancelArchival = CancelArchivalResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CancelArchivalResponse' <$>+                   (x .?> "TapeARN") <*> (pure (fromEnum s))) --- | 'CancelArchivalResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'carTapeARN' @::@ 'Maybe' 'Text'----cancelArchivalResponse :: CancelArchivalResponse-cancelArchivalResponse = CancelArchivalResponse-    { _carTapeARN = Nothing-    }+instance ToHeaders CancelArchival where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CancelArchival" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The Amazon Resource Name (ARN) of the virtual tape for which archiving was--- canceled.-carTapeARN :: Lens' CancelArchivalResponse (Maybe Text)-carTapeARN = lens _carTapeARN (\s a -> s { _carTapeARN = a })+instance ToJSON CancelArchival where+        toJSON CancelArchival'{..}+          = object+              ["GatewayARN" .= _caGatewayARN,+               "TapeARN" .= _caTapeARN]  instance ToPath CancelArchival where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CancelArchival where-    toQuery = const mempty--instance ToHeaders CancelArchival+        toQuery = const mempty -instance ToJSON CancelArchival where-    toJSON CancelArchival{..} = object-        [ "GatewayARN" .= _caGatewayARN-        , "TapeARN"    .= _caTapeARN-        ]+-- | CancelArchivalOutput+--+-- /See:/ 'cancelArchivalResponse' smart constructor.+data CancelArchivalResponse = CancelArchivalResponse'+    { _carsTapeARN :: !(Maybe Text)+    , _carsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CancelArchival where-    type Sv CancelArchival = StorageGateway-    type Rs CancelArchival = CancelArchivalResponse+-- | 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:+--+-- * 'carsTapeARN'+--+-- * 'carsStatus'+cancelArchivalResponse+    :: Int -- ^ 'carsStatus'+    -> CancelArchivalResponse+cancelArchivalResponse pStatus_ =+    CancelArchivalResponse'+    { _carsTapeARN = Nothing+    , _carsStatus = pStatus_+    } -    request  = post "CancelArchival"-    response = jsonResponse+-- | 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}); -instance FromJSON CancelArchivalResponse where-    parseJSON = withObject "CancelArchivalResponse" $ \o -> CancelArchivalResponse-        <$> o .:? "TapeARN"+-- | The response status code.+carsStatus :: Lens' CancelArchivalResponse Int+carsStatus = lens _carsStatus (\ s a -> s{_carsStatus = a});

@@ -1,126 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CancelRetrieval--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Cancels retrieval of a virtual tape from the virtual tape shelf (VTS) to a--- gateway after the retrieval process is initiated. The virtual tape is+-- Cancels retrieval of a virtual tape from the virtual tape shelf (VTS) to+-- a gateway after the retrieval process is initiated. The virtual tape is -- returned to the VTS. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CancelRetrieval.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CancelRetrieval.html AWS API Reference> for CancelRetrieval. module Network.AWS.StorageGateway.CancelRetrieval     (-    -- * Request-      CancelRetrieval-    -- ** Request constructor-    , cancelRetrieval-    -- ** Request lenses+    -- * Creating a Request+      cancelRetrieval+    , CancelRetrieval+    -- * Request Lenses     , crGatewayARN     , crTapeARN -    -- * Response-    , CancelRetrievalResponse-    -- ** Response constructor+    -- * Destructuring the Response     , cancelRetrievalResponse-    -- ** Response lenses-    , crrTapeARN+    , CancelRetrievalResponse+    -- * Response Lenses+    , crrsTapeARN+    , crrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data CancelRetrieval = CancelRetrieval-    { _crGatewayARN :: Text-    , _crTapeARN    :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'CancelRetrieval' constructor.+-- | CancelRetrievalInput ----- The fields accessible through corresponding lenses are:+-- /See:/ 'cancelRetrieval' smart constructor.+data CancelRetrieval = CancelRetrieval'+    { _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. ----- * 'crGatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'crTapeARN' @::@ 'Text'+-- * 'crGatewayARN' ---cancelRetrieval :: Text -- ^ 'crGatewayARN'-                -> Text -- ^ 'crTapeARN'-                -> CancelRetrieval-cancelRetrieval p1 p2 = CancelRetrieval-    { _crGatewayARN = p1-    , _crTapeARN    = p2+-- * 'crTapeARN'+cancelRetrieval+    :: Text -- ^ 'crGatewayARN'+    -> Text -- ^ 'crTapeARN'+    -> CancelRetrieval+cancelRetrieval pGatewayARN_ pTapeARN_ =+    CancelRetrieval'+    { _crGatewayARN = pGatewayARN_+    , _crTapeARN = pTapeARN_     } +-- | Undocumented member. crGatewayARN :: Lens' CancelRetrieval Text-crGatewayARN = lens _crGatewayARN (\s a -> s { _crGatewayARN = a })+crGatewayARN = lens _crGatewayARN (\ s a -> s{_crGatewayARN = a});  -- | The Amazon Resource Name (ARN) of the virtual tape you want to cancel -- retrieval for. crTapeARN :: Lens' CancelRetrieval Text-crTapeARN = lens _crTapeARN (\s a -> s { _crTapeARN = a })+crTapeARN = lens _crTapeARN (\ s a -> s{_crTapeARN = a}); -newtype CancelRetrievalResponse = CancelRetrievalResponse-    { _crrTapeARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest CancelRetrieval where+        type Sv CancelRetrieval = StorageGateway+        type Rs CancelRetrieval = CancelRetrievalResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CancelRetrievalResponse' <$>+                   (x .?> "TapeARN") <*> (pure (fromEnum s))) --- | 'CancelRetrievalResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'crrTapeARN' @::@ 'Maybe' 'Text'----cancelRetrievalResponse :: CancelRetrievalResponse-cancelRetrievalResponse = CancelRetrievalResponse-    { _crrTapeARN = Nothing-    }+instance ToHeaders CancelRetrieval where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CancelRetrieval" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The Amazon Resource Name (ARN) of the virtual tape for which retrieval was--- canceled.-crrTapeARN :: Lens' CancelRetrievalResponse (Maybe Text)-crrTapeARN = lens _crrTapeARN (\s a -> s { _crrTapeARN = a })+instance ToJSON CancelRetrieval where+        toJSON CancelRetrieval'{..}+          = object+              ["GatewayARN" .= _crGatewayARN,+               "TapeARN" .= _crTapeARN]  instance ToPath CancelRetrieval where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CancelRetrieval where-    toQuery = const mempty--instance ToHeaders CancelRetrieval+        toQuery = const mempty -instance ToJSON CancelRetrieval where-    toJSON CancelRetrieval{..} = object-        [ "GatewayARN" .= _crGatewayARN-        , "TapeARN"    .= _crTapeARN-        ]+-- | CancelRetrievalOutput+--+-- /See:/ 'cancelRetrievalResponse' smart constructor.+data CancelRetrievalResponse = CancelRetrievalResponse'+    { _crrsTapeARN :: !(Maybe Text)+    , _crrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CancelRetrieval where-    type Sv CancelRetrieval = StorageGateway-    type Rs CancelRetrieval = CancelRetrievalResponse+-- | 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:+--+-- * 'crrsTapeARN'+--+-- * 'crrsStatus'+cancelRetrievalResponse+    :: Int -- ^ 'crrsStatus'+    -> CancelRetrievalResponse+cancelRetrievalResponse pStatus_ =+    CancelRetrievalResponse'+    { _crrsTapeARN = Nothing+    , _crrsStatus = pStatus_+    } -    request  = post "CancelRetrieval"-    response = jsonResponse+-- | 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}); -instance FromJSON CancelRetrievalResponse where-    parseJSON = withObject "CancelRetrievalResponse" $ \o -> CancelRetrievalResponse-        <$> o .:? "TapeARN"+-- | The response status code.+crrsStatus :: Lens' CancelRetrievalResponse Int+crrsStatus = lens _crrsStatus (\ s a -> s{_crrsStatus = a});

@@ -1,188 +1,205 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateCachediSCSIVolume--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation creates a cached volume on a specified cached gateway. This--- operation is supported only for the gateway-cached volume architecture.+-- This operation creates a cached volume on a specified cached gateway.+-- This operation is supported only for the gateway-cached volume+-- architecture. -- -- Cache storage must be allocated to the gateway before you can create a--- cached volume. Use the 'AddCache' operation to add cache storage to a gateway.--- 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.+-- cached volume. Use the AddCache operation to add cache storage to a+-- gateway. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateCachediSCSIVolume.html>+-- 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.+--+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateCachediSCSIVolume.html AWS API Reference> for CreateCachediSCSIVolume. module Network.AWS.StorageGateway.CreateCachediSCSIVolume     (-    -- * Request-      CreateCachediSCSIVolume-    -- ** Request constructor-    , createCachediSCSIVolume-    -- ** Request lenses-    , ccscsivClientToken-    , ccscsivGatewayARN-    , ccscsivNetworkInterfaceId+    -- * Creating a Request+      createCachediSCSIVolume+    , CreateCachediSCSIVolume+    -- * Request Lenses     , ccscsivSnapshotId-    , ccscsivTargetName+    , ccscsivGatewayARN     , ccscsivVolumeSizeInBytes+    , ccscsivTargetName+    , ccscsivNetworkInterfaceId+    , ccscsivClientToken -    -- * Response-    , CreateCachediSCSIVolumeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createCachediSCSIVolumeResponse-    -- ** Response lenses-    , ccscsivrTargetARN-    , ccscsivrVolumeARN+    , CreateCachediSCSIVolumeResponse+    -- * Response Lenses+    , ccscsivrsTargetARN+    , ccscsivrsVolumeARN+    , ccscsivrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -data CreateCachediSCSIVolume = CreateCachediSCSIVolume-    { _ccscsivClientToken        :: Text-    , _ccscsivGatewayARN         :: Text-    , _ccscsivNetworkInterfaceId :: Text-    , _ccscsivSnapshotId         :: Maybe Text-    , _ccscsivTargetName         :: Text-    , _ccscsivVolumeSizeInBytes  :: Integer-    } deriving (Eq, Ord, Read, Show)+-- | /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) --- | 'CreateCachediSCSIVolume' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateCachediSCSIVolume' with the minimum fields required to make a request. ----- * 'ccscsivClientToken' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ccscsivGatewayARN' @::@ 'Text'+-- * 'ccscsivSnapshotId' ----- * 'ccscsivNetworkInterfaceId' @::@ 'Text'+-- * 'ccscsivGatewayARN' ----- * 'ccscsivSnapshotId' @::@ 'Maybe' 'Text'+-- * 'ccscsivVolumeSizeInBytes' ----- * 'ccscsivTargetName' @::@ 'Text'+-- * 'ccscsivTargetName' ----- * 'ccscsivVolumeSizeInBytes' @::@ 'Integer'+-- * 'ccscsivNetworkInterfaceId' ---createCachediSCSIVolume :: Text -- ^ 'ccscsivGatewayARN'-                        -> Integer -- ^ 'ccscsivVolumeSizeInBytes'-                        -> Text -- ^ 'ccscsivTargetName'-                        -> Text -- ^ 'ccscsivNetworkInterfaceId'-                        -> Text -- ^ 'ccscsivClientToken'-                        -> CreateCachediSCSIVolume-createCachediSCSIVolume p1 p2 p3 p4 p5 = CreateCachediSCSIVolume-    { _ccscsivGatewayARN         = p1-    , _ccscsivVolumeSizeInBytes  = p2-    , _ccscsivTargetName         = p3-    , _ccscsivNetworkInterfaceId = p4-    , _ccscsivClientToken        = p5-    , _ccscsivSnapshotId         = Nothing+-- * 'ccscsivClientToken'+createCachediSCSIVolume+    :: Text -- ^ 'ccscsivGatewayARN'+    -> Integer -- ^ 'ccscsivVolumeSizeInBytes'+    -> Text -- ^ 'ccscsivTargetName'+    -> Text -- ^ 'ccscsivNetworkInterfaceId'+    -> Text -- ^ 'ccscsivClientToken'+    -> CreateCachediSCSIVolume+createCachediSCSIVolume pGatewayARN_ pVolumeSizeInBytes_ pTargetName_ pNetworkInterfaceId_ pClientToken_ =+    CreateCachediSCSIVolume'+    { _ccscsivSnapshotId = Nothing+    , _ccscsivGatewayARN = pGatewayARN_+    , _ccscsivVolumeSizeInBytes = pVolumeSizeInBytes_+    , _ccscsivTargetName = pTargetName_+    , _ccscsivNetworkInterfaceId = pNetworkInterfaceId_+    , _ccscsivClientToken = pClientToken_     } -ccscsivClientToken :: Lens' CreateCachediSCSIVolume Text-ccscsivClientToken =-    lens _ccscsivClientToken (\s a -> s { _ccscsivClientToken = a })+-- | Undocumented member.+ccscsivSnapshotId :: Lens' CreateCachediSCSIVolume (Maybe Text)+ccscsivSnapshotId = lens _ccscsivSnapshotId (\ s a -> s{_ccscsivSnapshotId = a}); +-- | Undocumented member. ccscsivGatewayARN :: Lens' CreateCachediSCSIVolume Text-ccscsivGatewayARN =-    lens _ccscsivGatewayARN (\s a -> s { _ccscsivGatewayARN = a })--ccscsivNetworkInterfaceId :: Lens' CreateCachediSCSIVolume Text-ccscsivNetworkInterfaceId =-    lens _ccscsivNetworkInterfaceId-        (\s a -> s { _ccscsivNetworkInterfaceId = a })+ccscsivGatewayARN = lens _ccscsivGatewayARN (\ s a -> s{_ccscsivGatewayARN = a}); -ccscsivSnapshotId :: Lens' CreateCachediSCSIVolume (Maybe Text)-ccscsivSnapshotId =-    lens _ccscsivSnapshotId (\s a -> s { _ccscsivSnapshotId = a })+-- | Undocumented member.+ccscsivVolumeSizeInBytes :: Lens' CreateCachediSCSIVolume Integer+ccscsivVolumeSizeInBytes = lens _ccscsivVolumeSizeInBytes (\ s a -> s{_ccscsivVolumeSizeInBytes = a}); +-- | Undocumented member. ccscsivTargetName :: Lens' CreateCachediSCSIVolume Text-ccscsivTargetName =-    lens _ccscsivTargetName (\s a -> s { _ccscsivTargetName = a })+ccscsivTargetName = lens _ccscsivTargetName (\ s a -> s{_ccscsivTargetName = a}); -ccscsivVolumeSizeInBytes :: Lens' CreateCachediSCSIVolume Integer-ccscsivVolumeSizeInBytes =-    lens _ccscsivVolumeSizeInBytes-        (\s a -> s { _ccscsivVolumeSizeInBytes = a })+-- | Undocumented member.+ccscsivNetworkInterfaceId :: Lens' CreateCachediSCSIVolume Text+ccscsivNetworkInterfaceId = lens _ccscsivNetworkInterfaceId (\ s a -> s{_ccscsivNetworkInterfaceId = a}); -data CreateCachediSCSIVolumeResponse = CreateCachediSCSIVolumeResponse-    { _ccscsivrTargetARN :: Maybe Text-    , _ccscsivrVolumeARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | Undocumented member.+ccscsivClientToken :: Lens' CreateCachediSCSIVolume Text+ccscsivClientToken = lens _ccscsivClientToken (\ s a -> s{_ccscsivClientToken = a}); --- | 'CreateCachediSCSIVolumeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ccscsivrTargetARN' @::@ 'Maybe' 'Text'------ * 'ccscsivrVolumeARN' @::@ 'Maybe' 'Text'----createCachediSCSIVolumeResponse :: CreateCachediSCSIVolumeResponse-createCachediSCSIVolumeResponse = CreateCachediSCSIVolumeResponse-    { _ccscsivrVolumeARN = Nothing-    , _ccscsivrTargetARN = Nothing-    }+instance AWSRequest CreateCachediSCSIVolume where+        type Sv CreateCachediSCSIVolume = StorageGateway+        type Rs CreateCachediSCSIVolume =+             CreateCachediSCSIVolumeResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateCachediSCSIVolumeResponse' <$>+                   (x .?> "TargetARN") <*> (x .?> "VolumeARN") <*>+                     (pure (fromEnum s))) -ccscsivrTargetARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)-ccscsivrTargetARN =-    lens _ccscsivrTargetARN (\s a -> s { _ccscsivrTargetARN = a })+instance ToHeaders CreateCachediSCSIVolume where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CreateCachediSCSIVolume" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -ccscsivrVolumeARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)-ccscsivrVolumeARN =-    lens _ccscsivrVolumeARN (\s a -> s { _ccscsivrVolumeARN = a })+instance ToJSON CreateCachediSCSIVolume where+        toJSON CreateCachediSCSIVolume'{..}+          = object+              ["SnapshotId" .= _ccscsivSnapshotId,+               "GatewayARN" .= _ccscsivGatewayARN,+               "VolumeSizeInBytes" .= _ccscsivVolumeSizeInBytes,+               "TargetName" .= _ccscsivTargetName,+               "NetworkInterfaceId" .= _ccscsivNetworkInterfaceId,+               "ClientToken" .= _ccscsivClientToken]  instance ToPath CreateCachediSCSIVolume where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateCachediSCSIVolume where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders CreateCachediSCSIVolume+-- | /See:/ 'createCachediSCSIVolumeResponse' smart constructor.+data CreateCachediSCSIVolumeResponse = CreateCachediSCSIVolumeResponse'+    { _ccscsivrsTargetARN :: !(Maybe Text)+    , _ccscsivrsVolumeARN :: !(Maybe Text)+    , _ccscsivrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON CreateCachediSCSIVolume where-    toJSON CreateCachediSCSIVolume{..} = object-        [ "GatewayARN"         .= _ccscsivGatewayARN-        , "VolumeSizeInBytes"  .= _ccscsivVolumeSizeInBytes-        , "SnapshotId"         .= _ccscsivSnapshotId-        , "TargetName"         .= _ccscsivTargetName-        , "NetworkInterfaceId" .= _ccscsivNetworkInterfaceId-        , "ClientToken"        .= _ccscsivClientToken-        ]+-- | 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:+--+-- * 'ccscsivrsTargetARN'+--+-- * 'ccscsivrsVolumeARN'+--+-- * 'ccscsivrsStatus'+createCachediSCSIVolumeResponse+    :: Int -- ^ 'ccscsivrsStatus'+    -> CreateCachediSCSIVolumeResponse+createCachediSCSIVolumeResponse pStatus_ =+    CreateCachediSCSIVolumeResponse'+    { _ccscsivrsTargetARN = Nothing+    , _ccscsivrsVolumeARN = Nothing+    , _ccscsivrsStatus = pStatus_+    } -instance AWSRequest CreateCachediSCSIVolume where-    type Sv CreateCachediSCSIVolume = StorageGateway-    type Rs CreateCachediSCSIVolume = CreateCachediSCSIVolumeResponse+-- | Undocumented member.+ccscsivrsTargetARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)+ccscsivrsTargetARN = lens _ccscsivrsTargetARN (\ s a -> s{_ccscsivrsTargetARN = a}); -    request  = post "CreateCachediSCSIVolume"-    response = jsonResponse+-- | Undocumented member.+ccscsivrsVolumeARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)+ccscsivrsVolumeARN = lens _ccscsivrsVolumeARN (\ s a -> s{_ccscsivrsVolumeARN = a}); -instance FromJSON CreateCachediSCSIVolumeResponse where-    parseJSON = withObject "CreateCachediSCSIVolumeResponse" $ \o -> CreateCachediSCSIVolumeResponse-        <$> o .:? "TargetARN"-        <*> o .:? "VolumeARN"+-- | The response status code.+ccscsivrsStatus :: Lens' CreateCachediSCSIVolumeResponse Int+ccscsivrsStatus = lens _ccscsivrsStatus (\ s a -> s{_ccscsivrsStatus = a});

@@ -1,156 +1,183 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateSnapshot--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation initiates a snapshot of a volume.+-- This operation 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 StorageGateway 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/WorkingWithSnapshots.html Working With Snapshots in the AWS Storage Gateway Console>. -- -- 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.+-- 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. -- -- To list or delete a snapshot, you must use the Amazon EC2 API. For more--- information, .+-- information, see DescribeSnapshots or DeleteSnapshot in the+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_Operations.html EC2 API reference>. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateSnapshot.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateSnapshot.html AWS API Reference> for CreateSnapshot. module Network.AWS.StorageGateway.CreateSnapshot     (-    -- * Request-      CreateSnapshot-    -- ** Request constructor-    , createSnapshot-    -- ** Request lenses-    , csSnapshotDescription+    -- * Creating a Request+      createSnapshot+    , CreateSnapshot+    -- * Request Lenses     , csVolumeARN+    , csSnapshotDescription -    -- * Response-    , CreateSnapshotResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createSnapshotResponse-    -- ** Response lenses-    , csrSnapshotId-    , csrVolumeARN+    , CreateSnapshotResponse+    -- * Response Lenses+    , csrsVolumeARN+    , csrsSnapshotId+    , csrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data CreateSnapshot = CreateSnapshot-    { _csSnapshotDescription :: Text-    , _csVolumeARN           :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'CreateSnapshot' constructor.+-- | A JSON object containing one or more of the following fields: ----- The fields accessible through corresponding lenses are:+-- -   CreateSnapshotInput$SnapshotDescription+-- -   CreateSnapshotInput$VolumeARN ----- * 'csSnapshotDescription' @::@ 'Text'+-- /See:/ 'createSnapshot' smart constructor.+data CreateSnapshot = CreateSnapshot'+    { _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. ----- * 'csVolumeARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---createSnapshot :: Text -- ^ 'csVolumeARN'-               -> Text -- ^ 'csSnapshotDescription'-               -> CreateSnapshot-createSnapshot p1 p2 = CreateSnapshot-    { _csVolumeARN           = p1-    , _csSnapshotDescription = p2+-- * 'csVolumeARN'+--+-- * 'csSnapshotDescription'+createSnapshot+    :: Text -- ^ 'csVolumeARN'+    -> Text -- ^ 'csSnapshotDescription'+    -> CreateSnapshot+createSnapshot pVolumeARN_ pSnapshotDescription_ =+    CreateSnapshot'+    { _csVolumeARN = pVolumeARN_+    , _csSnapshotDescription = pSnapshotDescription_     } --- | Textual description of the snapshot that appears in the Amazon EC2 console,--- Elastic Block Store snapshots panel in the Description field, and in the AWS--- Storage Gateway snapshot Details pane, Description field-csSnapshotDescription :: Lens' CreateSnapshot Text-csSnapshotDescription =-    lens _csSnapshotDescription (\s a -> s { _csSnapshotDescription = a })---- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation--- to return a list of gateway volumes.+-- | 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 })+csVolumeARN = lens _csVolumeARN (\ s a -> s{_csVolumeARN = a}); -data CreateSnapshotResponse = CreateSnapshotResponse-    { _csrSnapshotId :: Maybe Text-    , _csrVolumeARN  :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- | Textual description of the snapshot that appears in the Amazon EC2+-- console, Elastic Block Store snapshots panel in the __Description__+-- field, and in the AWS Storage Gateway snapshot __Details__ pane,+-- __Description__ field+csSnapshotDescription :: Lens' CreateSnapshot Text+csSnapshotDescription = lens _csSnapshotDescription (\ s a -> s{_csSnapshotDescription = a}); --- | 'CreateSnapshotResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'csrSnapshotId' @::@ 'Maybe' 'Text'------ * 'csrVolumeARN' @::@ 'Maybe' 'Text'----createSnapshotResponse :: CreateSnapshotResponse-createSnapshotResponse = CreateSnapshotResponse-    { _csrVolumeARN  = Nothing-    , _csrSnapshotId = Nothing-    }+instance AWSRequest CreateSnapshot where+        type Sv CreateSnapshot = StorageGateway+        type Rs CreateSnapshot = CreateSnapshotResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateSnapshotResponse' <$>+                   (x .?> "VolumeARN") <*> (x .?> "SnapshotId") <*>+                     (pure (fromEnum s))) --- | The snapshot ID that is used to refer to the snapshot in future operations--- such as describing snapshots (Amazon Elastic Compute Cloud API 'DescribeSnapshots') or creating a volume from a snapshot ('CreateStorediSCSIVolume').-csrSnapshotId :: Lens' CreateSnapshotResponse (Maybe Text)-csrSnapshotId = lens _csrSnapshotId (\s a -> s { _csrSnapshotId = a })+instance ToHeaders CreateSnapshot where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CreateSnapshot" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The Amazon Resource Name (ARN) of the volume of which the snapshot was taken.-csrVolumeARN :: Lens' CreateSnapshotResponse (Maybe Text)-csrVolumeARN = lens _csrVolumeARN (\s a -> s { _csrVolumeARN = a })+instance ToJSON CreateSnapshot where+        toJSON CreateSnapshot'{..}+          = object+              ["VolumeARN" .= _csVolumeARN,+               "SnapshotDescription" .= _csSnapshotDescription]  instance ToPath CreateSnapshot where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateSnapshot where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders CreateSnapshot+-- | A JSON object containing the following fields:+--+-- /See:/ 'createSnapshotResponse' smart constructor.+data CreateSnapshotResponse = CreateSnapshotResponse'+    { _csrsVolumeARN  :: !(Maybe Text)+    , _csrsSnapshotId :: !(Maybe Text)+    , _csrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON CreateSnapshot where-    toJSON CreateSnapshot{..} = object-        [ "VolumeARN"           .= _csVolumeARN-        , "SnapshotDescription" .= _csSnapshotDescription-        ]+-- | 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:+--+-- * 'csrsVolumeARN'+--+-- * 'csrsSnapshotId'+--+-- * 'csrsStatus'+createSnapshotResponse+    :: Int -- ^ 'csrsStatus'+    -> CreateSnapshotResponse+createSnapshotResponse pStatus_ =+    CreateSnapshotResponse'+    { _csrsVolumeARN = Nothing+    , _csrsSnapshotId = Nothing+    , _csrsStatus = pStatus_+    } -instance AWSRequest CreateSnapshot where-    type Sv CreateSnapshot = StorageGateway-    type Rs CreateSnapshot = CreateSnapshotResponse+-- | 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}); -    request  = post "CreateSnapshot"-    response = jsonResponse+-- | The snapshot ID that is used to refer to the snapshot in future+-- operations such as describing snapshots (Amazon Elastic Compute Cloud+-- API 'DescribeSnapshots') or creating a volume from a snapshot+-- (CreateStorediSCSIVolume).+csrsSnapshotId :: Lens' CreateSnapshotResponse (Maybe Text)+csrsSnapshotId = lens _csrsSnapshotId (\ s a -> s{_csrsSnapshotId = a}); -instance FromJSON CreateSnapshotResponse where-    parseJSON = withObject "CreateSnapshotResponse" $ \o -> CreateSnapshotResponse-        <$> o .:? "SnapshotId"-        <*> o .:? "VolumeARN"+-- | The response status code.+csrsStatus :: Lens' CreateSnapshotResponse Int+csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a});

@@ -1,163 +1,185 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateSnapshotFromVolumeRecoveryPoint--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation initiates a snapshot of a gateway from a volume recovery+-- This operation initiates a snapshot of a gateway from a volume recovery -- point. This operation is supported only for the gateway-cached volume -- architecture (see ). ----- 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 gateway-cached volumes, 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.+-- 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. -- -- To list or delete a snapshot, you must use the Amazon EC2 API. For more -- information, in /Amazon Elastic Compute Cloud API Reference/. ----------- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateSnapshotFromVolumeRecoveryPoint.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateSnapshotFromVolumeRecoveryPoint.html AWS API Reference> for CreateSnapshotFromVolumeRecoveryPoint. module Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint     (-    -- * Request-      CreateSnapshotFromVolumeRecoveryPoint-    -- ** Request constructor-    , createSnapshotFromVolumeRecoveryPoint-    -- ** Request lenses-    , csfvrpSnapshotDescription+    -- * Creating a Request+      createSnapshotFromVolumeRecoveryPoint+    , CreateSnapshotFromVolumeRecoveryPoint+    -- * Request Lenses     , csfvrpVolumeARN+    , csfvrpSnapshotDescription -    -- * Response-    , CreateSnapshotFromVolumeRecoveryPointResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createSnapshotFromVolumeRecoveryPointResponse-    -- ** Response lenses-    , csfvrprSnapshotId-    , csfvrprVolumeARN-    , csfvrprVolumeRecoveryPointTime+    , CreateSnapshotFromVolumeRecoveryPointResponse+    -- * Response Lenses+    , csfvrprsVolumeRecoveryPointTime+    , csfvrprsVolumeARN+    , csfvrprsSnapshotId+    , csfvrprsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -data CreateSnapshotFromVolumeRecoveryPoint = CreateSnapshotFromVolumeRecoveryPoint-    { _csfvrpSnapshotDescription :: Text-    , _csfvrpVolumeARN           :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'createSnapshotFromVolumeRecoveryPoint' smart constructor.+data CreateSnapshotFromVolumeRecoveryPoint = CreateSnapshotFromVolumeRecoveryPoint'+    { _csfvrpVolumeARN           :: !Text+    , _csfvrpSnapshotDescription :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'CreateSnapshotFromVolumeRecoveryPoint' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'CreateSnapshotFromVolumeRecoveryPoint' with the minimum fields required to make a request. ----- * 'csfvrpSnapshotDescription' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'csfvrpVolumeARN' @::@ 'Text'+-- * 'csfvrpVolumeARN' ---createSnapshotFromVolumeRecoveryPoint :: Text -- ^ 'csfvrpVolumeARN'-                                      -> Text -- ^ 'csfvrpSnapshotDescription'-                                      -> CreateSnapshotFromVolumeRecoveryPoint-createSnapshotFromVolumeRecoveryPoint p1 p2 = CreateSnapshotFromVolumeRecoveryPoint-    { _csfvrpVolumeARN           = p1-    , _csfvrpSnapshotDescription = p2+-- * 'csfvrpSnapshotDescription'+createSnapshotFromVolumeRecoveryPoint+    :: Text -- ^ 'csfvrpVolumeARN'+    -> Text -- ^ 'csfvrpSnapshotDescription'+    -> CreateSnapshotFromVolumeRecoveryPoint+createSnapshotFromVolumeRecoveryPoint pVolumeARN_ pSnapshotDescription_ =+    CreateSnapshotFromVolumeRecoveryPoint'+    { _csfvrpVolumeARN = pVolumeARN_+    , _csfvrpSnapshotDescription = pSnapshotDescription_     } +-- | Undocumented member.+csfvrpVolumeARN :: Lens' CreateSnapshotFromVolumeRecoveryPoint Text+csfvrpVolumeARN = lens _csfvrpVolumeARN (\ s a -> s{_csfvrpVolumeARN = a});++-- | Undocumented member. csfvrpSnapshotDescription :: Lens' CreateSnapshotFromVolumeRecoveryPoint Text-csfvrpSnapshotDescription =-    lens _csfvrpSnapshotDescription-        (\s a -> s { _csfvrpSnapshotDescription = a })+csfvrpSnapshotDescription = lens _csfvrpSnapshotDescription (\ s a -> s{_csfvrpSnapshotDescription = a}); -csfvrpVolumeARN :: Lens' CreateSnapshotFromVolumeRecoveryPoint Text-csfvrpVolumeARN = lens _csfvrpVolumeARN (\s a -> s { _csfvrpVolumeARN = a })+instance AWSRequest+         CreateSnapshotFromVolumeRecoveryPoint where+        type Sv CreateSnapshotFromVolumeRecoveryPoint =+             StorageGateway+        type Rs CreateSnapshotFromVolumeRecoveryPoint =+             CreateSnapshotFromVolumeRecoveryPointResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateSnapshotFromVolumeRecoveryPointResponse' <$>+                   (x .?> "VolumeRecoveryPointTime") <*>+                     (x .?> "VolumeARN")+                     <*> (x .?> "SnapshotId")+                     <*> (pure (fromEnum s))) -data CreateSnapshotFromVolumeRecoveryPointResponse = CreateSnapshotFromVolumeRecoveryPointResponse-    { _csfvrprSnapshotId              :: Maybe Text-    , _csfvrprVolumeARN               :: Maybe Text-    , _csfvrprVolumeRecoveryPointTime :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+instance ToHeaders+         CreateSnapshotFromVolumeRecoveryPoint where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CreateSnapshotFromVolumeRecoveryPoint"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | 'CreateSnapshotFromVolumeRecoveryPointResponse' constructor.+instance ToJSON CreateSnapshotFromVolumeRecoveryPoint+         where+        toJSON CreateSnapshotFromVolumeRecoveryPoint'{..}+          = object+              ["VolumeARN" .= _csfvrpVolumeARN,+               "SnapshotDescription" .= _csfvrpSnapshotDescription]++instance ToPath CreateSnapshotFromVolumeRecoveryPoint+         where+        toPath = const "/"++instance ToQuery+         CreateSnapshotFromVolumeRecoveryPoint where+        toQuery = const mempty++-- | /See:/ 'createSnapshotFromVolumeRecoveryPointResponse' smart constructor.+data CreateSnapshotFromVolumeRecoveryPointResponse = CreateSnapshotFromVolumeRecoveryPointResponse'+    { _csfvrprsVolumeRecoveryPointTime :: !(Maybe Text)+    , _csfvrprsVolumeARN               :: !(Maybe Text)+    , _csfvrprsSnapshotId              :: !(Maybe Text)+    , _csfvrprsStatus                  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'CreateSnapshotFromVolumeRecoveryPointResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'csfvrprSnapshotId' @::@ 'Maybe' 'Text'+-- * 'csfvrprsVolumeRecoveryPointTime' ----- * 'csfvrprVolumeARN' @::@ 'Maybe' 'Text'+-- * 'csfvrprsVolumeARN' ----- * 'csfvrprVolumeRecoveryPointTime' @::@ 'Maybe' 'Text'+-- * 'csfvrprsSnapshotId' ---createSnapshotFromVolumeRecoveryPointResponse :: CreateSnapshotFromVolumeRecoveryPointResponse-createSnapshotFromVolumeRecoveryPointResponse = CreateSnapshotFromVolumeRecoveryPointResponse-    { _csfvrprSnapshotId              = Nothing-    , _csfvrprVolumeARN               = Nothing-    , _csfvrprVolumeRecoveryPointTime = Nothing+-- * 'csfvrprsStatus'+createSnapshotFromVolumeRecoveryPointResponse+    :: Int -- ^ 'csfvrprsStatus'+    -> CreateSnapshotFromVolumeRecoveryPointResponse+createSnapshotFromVolumeRecoveryPointResponse pStatus_ =+    CreateSnapshotFromVolumeRecoveryPointResponse'+    { _csfvrprsVolumeRecoveryPointTime = Nothing+    , _csfvrprsVolumeARN = Nothing+    , _csfvrprsSnapshotId = Nothing+    , _csfvrprsStatus = pStatus_     } -csfvrprSnapshotId :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)-csfvrprSnapshotId =-    lens _csfvrprSnapshotId (\s a -> s { _csfvrprSnapshotId = a })--csfvrprVolumeARN :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)-csfvrprVolumeARN = lens _csfvrprVolumeARN (\s a -> s { _csfvrprVolumeARN = a })--csfvrprVolumeRecoveryPointTime :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)-csfvrprVolumeRecoveryPointTime =-    lens _csfvrprVolumeRecoveryPointTime-        (\s a -> s { _csfvrprVolumeRecoveryPointTime = a })--instance ToPath CreateSnapshotFromVolumeRecoveryPoint where-    toPath = const "/"--instance ToQuery CreateSnapshotFromVolumeRecoveryPoint where-    toQuery = const mempty--instance ToHeaders CreateSnapshotFromVolumeRecoveryPoint--instance ToJSON CreateSnapshotFromVolumeRecoveryPoint where-    toJSON CreateSnapshotFromVolumeRecoveryPoint{..} = object-        [ "VolumeARN"           .= _csfvrpVolumeARN-        , "SnapshotDescription" .= _csfvrpSnapshotDescription-        ]+-- | Undocumented member.+csfvrprsVolumeRecoveryPointTime :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)+csfvrprsVolumeRecoveryPointTime = lens _csfvrprsVolumeRecoveryPointTime (\ s a -> s{_csfvrprsVolumeRecoveryPointTime = a}); -instance AWSRequest CreateSnapshotFromVolumeRecoveryPoint where-    type Sv CreateSnapshotFromVolumeRecoveryPoint = StorageGateway-    type Rs CreateSnapshotFromVolumeRecoveryPoint = CreateSnapshotFromVolumeRecoveryPointResponse+-- | Undocumented member.+csfvrprsVolumeARN :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)+csfvrprsVolumeARN = lens _csfvrprsVolumeARN (\ s a -> s{_csfvrprsVolumeARN = a}); -    request  = post "CreateSnapshotFromVolumeRecoveryPoint"-    response = jsonResponse+-- | Undocumented member.+csfvrprsSnapshotId :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)+csfvrprsSnapshotId = lens _csfvrprsSnapshotId (\ s a -> s{_csfvrprsSnapshotId = a}); -instance FromJSON CreateSnapshotFromVolumeRecoveryPointResponse where-    parseJSON = withObject "CreateSnapshotFromVolumeRecoveryPointResponse" $ \o -> CreateSnapshotFromVolumeRecoveryPointResponse-        <$> o .:? "SnapshotId"-        <*> o .:? "VolumeARN"-        <*> o .:? "VolumeRecoveryPointTime"+-- | The response status code.+csfvrprsStatus :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse Int+csfvrprsStatus = lens _csfvrprsStatus (\ s a -> s{_csfvrprsStatus = a});

@@ -1,223 +1,245 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateStorediSCSIVolume--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation creates a volume on a specified gateway. This operation is--- supported only for the gateway-stored volume architecture.+-- This operation creates a volume on a specified gateway. This operation+-- is supported only for the gateway-stored volume 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.+-- 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.+-- 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. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateStorediSCSIVolume.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateStorediSCSIVolume.html AWS API Reference> for CreateStorediSCSIVolume. module Network.AWS.StorageGateway.CreateStorediSCSIVolume     (-    -- * Request-      CreateStorediSCSIVolume-    -- ** Request constructor-    , createStorediSCSIVolume-    -- ** Request lenses-    , csscsivDiskId+    -- * Creating a Request+      createStorediSCSIVolume+    , CreateStorediSCSIVolume+    -- * Request Lenses+    , csscsivSnapshotId     , csscsivGatewayARN-    , csscsivNetworkInterfaceId+    , csscsivDiskId     , csscsivPreserveExistingData-    , csscsivSnapshotId     , csscsivTargetName+    , csscsivNetworkInterfaceId -    -- * Response-    , CreateStorediSCSIVolumeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createStorediSCSIVolumeResponse-    -- ** Response lenses-    , csscsivrTargetARN-    , csscsivrVolumeARN-    , csscsivrVolumeSizeInBytes+    , CreateStorediSCSIVolumeResponse+    -- * Response Lenses+    , csscsivrsTargetARN+    , csscsivrsVolumeARN+    , csscsivrsVolumeSizeInBytes+    , csscsivrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data CreateStorediSCSIVolume = CreateStorediSCSIVolume-    { _csscsivDiskId               :: Text-    , _csscsivGatewayARN           :: Text-    , _csscsivNetworkInterfaceId   :: Text-    , _csscsivPreserveExistingData :: Bool-    , _csscsivSnapshotId           :: Maybe Text-    , _csscsivTargetName           :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'CreateStorediSCSIVolume' constructor.+-- | A JSON object containing one or more of the following fields: ----- The fields accessible through corresponding lenses are:+-- -   CreateStorediSCSIVolumeInput$DiskId+-- -   CreateStorediSCSIVolumeInput$NetworkInterfaceId+-- -   CreateStorediSCSIVolumeInput$PreserveExistingData+-- -   CreateStorediSCSIVolumeInput$SnapshotId+-- -   CreateStorediSCSIVolumeInput$TargetName ----- * 'csscsivDiskId' @::@ 'Text'+-- /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)++-- | Creates a value of 'CreateStorediSCSIVolume' with the minimum fields required to make a request. ----- * 'csscsivGatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'csscsivNetworkInterfaceId' @::@ 'Text'+-- * 'csscsivSnapshotId' ----- * 'csscsivPreserveExistingData' @::@ 'Bool'+-- * 'csscsivGatewayARN' ----- * 'csscsivSnapshotId' @::@ 'Maybe' 'Text'+-- * 'csscsivDiskId' ----- * 'csscsivTargetName' @::@ 'Text'+-- * 'csscsivPreserveExistingData' ---createStorediSCSIVolume :: Text -- ^ 'csscsivGatewayARN'-                        -> Text -- ^ 'csscsivDiskId'-                        -> Bool -- ^ 'csscsivPreserveExistingData'-                        -> Text -- ^ 'csscsivTargetName'-                        -> Text -- ^ 'csscsivNetworkInterfaceId'-                        -> CreateStorediSCSIVolume-createStorediSCSIVolume p1 p2 p3 p4 p5 = CreateStorediSCSIVolume-    { _csscsivGatewayARN           = p1-    , _csscsivDiskId               = p2-    , _csscsivPreserveExistingData = p3-    , _csscsivTargetName           = p4-    , _csscsivNetworkInterfaceId   = p5-    , _csscsivSnapshotId           = Nothing+-- * 'csscsivTargetName'+--+-- * 'csscsivNetworkInterfaceId'+createStorediSCSIVolume+    :: Text -- ^ 'csscsivGatewayARN'+    -> Text -- ^ 'csscsivDiskId'+    -> Bool -- ^ 'csscsivPreserveExistingData'+    -> Text -- ^ 'csscsivTargetName'+    -> Text -- ^ 'csscsivNetworkInterfaceId'+    -> CreateStorediSCSIVolume+createStorediSCSIVolume pGatewayARN_ pDiskId_ pPreserveExistingData_ pTargetName_ pNetworkInterfaceId_ =+    CreateStorediSCSIVolume'+    { _csscsivSnapshotId = Nothing+    , _csscsivGatewayARN = pGatewayARN_+    , _csscsivDiskId = pDiskId_+    , _csscsivPreserveExistingData = pPreserveExistingData_+    , _csscsivTargetName = pTargetName_+    , _csscsivNetworkInterfaceId = pNetworkInterfaceId_     } --- | The unique identifier for the gateway local disk that is configured as a--- stored volume. Use <http://docs.aws.amazon.com/storagegateway/latest/userguide/API_ListLocalDisks.html ListLocalDisks> to list disk IDs for a gateway.-csscsivDiskId :: Lens' CreateStorediSCSIVolume Text-csscsivDiskId = lens _csscsivDiskId (\s a -> s { _csscsivDiskId = a })+-- | 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}); +-- | Undocumented member. csscsivGatewayARN :: Lens' CreateStorediSCSIVolume Text-csscsivGatewayARN =-    lens _csscsivGatewayARN (\s a -> s { _csscsivGatewayARN = a })+csscsivGatewayARN = lens _csscsivGatewayARN (\ s a -> s{_csscsivGatewayARN = a}); --- | 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.-csscsivNetworkInterfaceId :: Lens' CreateStorediSCSIVolume Text-csscsivNetworkInterfaceId =-    lens _csscsivNetworkInterfaceId-        (\s a -> s { _csscsivNetworkInterfaceId = a })+-- | The unique identifier for the gateway local disk that is configured as a+-- stored volume. Use+-- <http://docs.aws.amazon.com/storagegateway/latest/userguide/API_ListLocalDisks.html ListLocalDisks>+-- to list disk IDs for a gateway.+csscsivDiskId :: Lens' CreateStorediSCSIVolume Text+csscsivDiskId = lens _csscsivDiskId (\ s a -> s{_csscsivDiskId = a});  -- | 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 csscsivPreserveExistingData :: Lens' CreateStorediSCSIVolume Bool-csscsivPreserveExistingData =-    lens _csscsivPreserveExistingData-        (\s a -> s { _csscsivPreserveExistingData = a })---- | 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 CloudAPI Reference/.-csscsivSnapshotId :: Lens' CreateStorediSCSIVolume (Maybe Text)-csscsivSnapshotId =-    lens _csscsivSnapshotId (\s a -> s { _csscsivSnapshotId = a })+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/mygateway/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-1:111122223333:gateway\/mygateway\/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 })--data CreateStorediSCSIVolumeResponse = CreateStorediSCSIVolumeResponse-    { _csscsivrTargetARN         :: Maybe Text-    , _csscsivrVolumeARN         :: Maybe Text-    , _csscsivrVolumeSizeInBytes :: Maybe Integer-    } deriving (Eq, Ord, Read, Show)+csscsivTargetName = lens _csscsivTargetName (\ s a -> s{_csscsivTargetName = a}); --- | 'CreateStorediSCSIVolumeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'csscsivrTargetARN' @::@ 'Maybe' 'Text'------ * 'csscsivrVolumeARN' @::@ 'Maybe' 'Text'------ * 'csscsivrVolumeSizeInBytes' @::@ 'Maybe' 'Integer'+-- | 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. ---createStorediSCSIVolumeResponse :: CreateStorediSCSIVolumeResponse-createStorediSCSIVolumeResponse = CreateStorediSCSIVolumeResponse-    { _csscsivrVolumeARN         = Nothing-    , _csscsivrVolumeSizeInBytes = Nothing-    , _csscsivrTargetARN         = Nothing-    }+-- /Valid Values/: A valid IP address.+csscsivNetworkInterfaceId :: Lens' CreateStorediSCSIVolume Text+csscsivNetworkInterfaceId = lens _csscsivNetworkInterfaceId (\ s a -> s{_csscsivNetworkInterfaceId = a}); --- | he Amazon Resource Name (ARN) of the volume target that includes the iSCSI--- name that initiators can use to connect to the target.-csscsivrTargetARN :: Lens' CreateStorediSCSIVolumeResponse (Maybe Text)-csscsivrTargetARN =-    lens _csscsivrTargetARN (\s a -> s { _csscsivrTargetARN = a })+instance AWSRequest CreateStorediSCSIVolume where+        type Sv CreateStorediSCSIVolume = StorageGateway+        type Rs CreateStorediSCSIVolume =+             CreateStorediSCSIVolumeResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateStorediSCSIVolumeResponse' <$>+                   (x .?> "TargetARN") <*> (x .?> "VolumeARN") <*>+                     (x .?> "VolumeSizeInBytes")+                     <*> (pure (fromEnum s))) --- | The Amazon Resource Name (ARN) of the configured volume.-csscsivrVolumeARN :: Lens' CreateStorediSCSIVolumeResponse (Maybe Text)-csscsivrVolumeARN =-    lens _csscsivrVolumeARN (\s a -> s { _csscsivrVolumeARN = a })+instance ToHeaders CreateStorediSCSIVolume where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CreateStorediSCSIVolume" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The size of the volume in bytes.-csscsivrVolumeSizeInBytes :: Lens' CreateStorediSCSIVolumeResponse (Maybe Integer)-csscsivrVolumeSizeInBytes =-    lens _csscsivrVolumeSizeInBytes-        (\s a -> s { _csscsivrVolumeSizeInBytes = a })+instance ToJSON CreateStorediSCSIVolume where+        toJSON CreateStorediSCSIVolume'{..}+          = object+              ["SnapshotId" .= _csscsivSnapshotId,+               "GatewayARN" .= _csscsivGatewayARN,+               "DiskId" .= _csscsivDiskId,+               "PreserveExistingData" .=+                 _csscsivPreserveExistingData,+               "TargetName" .= _csscsivTargetName,+               "NetworkInterfaceId" .= _csscsivNetworkInterfaceId]  instance ToPath CreateStorediSCSIVolume where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateStorediSCSIVolume where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders CreateStorediSCSIVolume+-- | A JSON object containing the following fields:+--+-- /See:/ 'createStorediSCSIVolumeResponse' smart constructor.+data CreateStorediSCSIVolumeResponse = CreateStorediSCSIVolumeResponse'+    { _csscsivrsTargetARN         :: !(Maybe Text)+    , _csscsivrsVolumeARN         :: !(Maybe Text)+    , _csscsivrsVolumeSizeInBytes :: !(Maybe Integer)+    , _csscsivrsStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON CreateStorediSCSIVolume where-    toJSON CreateStorediSCSIVolume{..} = object-        [ "GatewayARN"           .= _csscsivGatewayARN-        , "DiskId"               .= _csscsivDiskId-        , "SnapshotId"           .= _csscsivSnapshotId-        , "PreserveExistingData" .= _csscsivPreserveExistingData-        , "TargetName"           .= _csscsivTargetName-        , "NetworkInterfaceId"   .= _csscsivNetworkInterfaceId-        ]+-- | 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:+--+-- * 'csscsivrsTargetARN'+--+-- * 'csscsivrsVolumeARN'+--+-- * 'csscsivrsVolumeSizeInBytes'+--+-- * 'csscsivrsStatus'+createStorediSCSIVolumeResponse+    :: Int -- ^ 'csscsivrsStatus'+    -> CreateStorediSCSIVolumeResponse+createStorediSCSIVolumeResponse pStatus_ =+    CreateStorediSCSIVolumeResponse'+    { _csscsivrsTargetARN = Nothing+    , _csscsivrsVolumeARN = Nothing+    , _csscsivrsVolumeSizeInBytes = Nothing+    , _csscsivrsStatus = pStatus_+    } -instance AWSRequest CreateStorediSCSIVolume where-    type Sv CreateStorediSCSIVolume = StorageGateway-    type Rs CreateStorediSCSIVolume = CreateStorediSCSIVolumeResponse+-- | 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}); -    request  = post "CreateStorediSCSIVolume"-    response = jsonResponse+-- | The Amazon Resource Name (ARN) of the configured volume.+csscsivrsVolumeARN :: Lens' CreateStorediSCSIVolumeResponse (Maybe Text)+csscsivrsVolumeARN = lens _csscsivrsVolumeARN (\ s a -> s{_csscsivrsVolumeARN = a}); -instance FromJSON CreateStorediSCSIVolumeResponse where-    parseJSON = withObject "CreateStorediSCSIVolumeResponse" $ \o -> CreateStorediSCSIVolumeResponse-        <$> o .:? "TargetARN"-        <*> o .:? "VolumeARN"-        <*> o .:? "VolumeSizeInBytes"+-- | The size of the volume in bytes.+csscsivrsVolumeSizeInBytes :: Lens' CreateStorediSCSIVolumeResponse (Maybe Integer)+csscsivrsVolumeSizeInBytes = lens _csscsivrsVolumeSizeInBytes (\ s a -> s{_csscsivrsVolumeSizeInBytes = a});++-- | The response status code.+csscsivrsStatus :: Lens' CreateStorediSCSIVolumeResponse Int+csscsivrsStatus = lens _csscsivrsStatus (\ s a -> s{_csscsivrsStatus = a});

@@ -1,182 +1,194 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.CreateTapes--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | 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. ----- Cache storage must be allocated to the gateway before you can create virtual--- tapes. Use the 'AddCache' operation to add cache storage to a gateway.+-- Cache storage must be allocated to the gateway before you can create+-- virtual tapes. Use the AddCache operation to add cache storage to a+-- gateway. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateTapes.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_CreateTapes.html AWS API Reference> for CreateTapes. module Network.AWS.StorageGateway.CreateTapes     (-    -- * Request-      CreateTapes-    -- ** Request constructor-    , createTapes-    -- ** Request lenses-    , ctClientToken+    -- * Creating a Request+      createTapes+    , CreateTapes+    -- * Request Lenses     , ctGatewayARN+    , ctTapeSizeInBytes+    , ctClientToken     , ctNumTapesToCreate     , ctTapeBarcodePrefix-    , ctTapeSizeInBytes -    -- * Response-    , CreateTapesResponse-    -- ** Response constructor+    -- * Destructuring the Response     , createTapesResponse-    -- ** Response lenses-    , ctrTapeARNs+    , CreateTapesResponse+    -- * Response Lenses+    , ctrsTapeARNs+    , ctrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data CreateTapes = CreateTapes-    { _ctClientToken       :: Text-    , _ctGatewayARN        :: Text-    , _ctNumTapesToCreate  :: Nat-    , _ctTapeBarcodePrefix :: Text-    , _ctTapeSizeInBytes   :: Integer-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'CreateTapes' constructor.+-- | CreateTapesInput ----- The fields accessible through corresponding lenses are:+-- /See:/ 'createTapes' smart constructor.+data CreateTapes = CreateTapes'+    { _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. ----- * 'ctClientToken' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'ctGatewayARN' @::@ 'Text'+-- * 'ctGatewayARN' ----- * 'ctNumTapesToCreate' @::@ 'Natural'+-- * 'ctTapeSizeInBytes' ----- * 'ctTapeBarcodePrefix' @::@ 'Text'+-- * 'ctClientToken' ----- * 'ctTapeSizeInBytes' @::@ 'Integer'+-- * 'ctNumTapesToCreate' ---createTapes :: Text -- ^ 'ctGatewayARN'-            -> Integer -- ^ 'ctTapeSizeInBytes'-            -> Text -- ^ 'ctClientToken'-            -> Natural -- ^ 'ctNumTapesToCreate'-            -> Text -- ^ 'ctTapeBarcodePrefix'-            -> CreateTapes-createTapes p1 p2 p3 p4 p5 = CreateTapes-    { _ctGatewayARN        = p1-    , _ctTapeSizeInBytes   = p2-    , _ctClientToken       = p3-    , _ctNumTapesToCreate  = withIso _Nat (const id) p4-    , _ctTapeBarcodePrefix = p5+-- * 'ctTapeBarcodePrefix'+createTapes+    :: Text -- ^ 'ctGatewayARN'+    -> Integer -- ^ 'ctTapeSizeInBytes'+    -> Text -- ^ 'ctClientToken'+    -> Natural -- ^ 'ctNumTapesToCreate'+    -> Text -- ^ 'ctTapeBarcodePrefix'+    -> CreateTapes+createTapes pGatewayARN_ pTapeSizeInBytes_ pClientToken_ pNumTapesToCreate_ pTapeBarcodePrefix_ =+    CreateTapes'+    { _ctGatewayARN = pGatewayARN_+    , _ctTapeSizeInBytes = pTapeSizeInBytes_+    , _ctClientToken = pClientToken_+    , _ctNumTapesToCreate = _Nat # pNumTapesToCreate_+    , _ctTapeBarcodePrefix = pTapeBarcodePrefix_     } --- | A unique identifier that you use to retry a request. If you retry a request,--- use the same 'ClientToken' you specified in the initial request.+-- | 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});++-- | The size, in bytes, of the virtual tapes you want to create. --+-- The size must be gigabyte (1024*1024*1024 byte) aligned.+ctTapeSizeInBytes :: Lens' CreateTapes Integer+ctTapeSizeInBytes = lens _ctTapeSizeInBytes (\ s a -> s{_ctTapeSizeInBytes = a});++-- | A unique identifier that you use to retry a request. If you retry a+-- request, use the same 'ClientToken' you specified in the initial+-- request.+-- -- Using the same 'ClientToken' prevents creating the tape multiple times. ctClientToken :: Lens' CreateTapes Text-ctClientToken = lens _ctClientToken (\s a -> s { _ctClientToken = a })---- | 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 })+ctClientToken = lens _ctClientToken (\ s a -> s{_ctClientToken = a});  -- | The number of virtual tapes you want to create. ctNumTapesToCreate :: Lens' CreateTapes Natural-ctNumTapesToCreate =-    lens _ctNumTapesToCreate (\s a -> s { _ctNumTapesToCreate = a })-        . _Nat+ctNumTapesToCreate = lens _ctNumTapesToCreate (\ s a -> s{_ctNumTapesToCreate = a}) . _Nat; --- | A prefix you append to the barcode of the virtual tape you are creating. This--- makes a barcode unique.+-- | A prefix you append to the barcode of the virtual tape you are creating.+-- This makes a barcode unique. -- -- The prefix must be 1 to 4 characters in length and must be upper-case -- letters A-Z. ctTapeBarcodePrefix :: Lens' CreateTapes Text-ctTapeBarcodePrefix =-    lens _ctTapeBarcodePrefix (\s a -> s { _ctTapeBarcodePrefix = a })---- | The size, in bytes, of the virtual tapes you want to create.------ The size must be gigabyte (1024*1024*1024 byte) aligned.-ctTapeSizeInBytes :: Lens' CreateTapes Integer-ctTapeSizeInBytes =-    lens _ctTapeSizeInBytes (\s a -> s { _ctTapeSizeInBytes = a })--newtype CreateTapesResponse = CreateTapesResponse-    { _ctrTapeARNs :: List "TapeARNs" Text-    } deriving (Eq, Ord, Read, Show, Monoid, Semigroup)--instance GHC.Exts.IsList CreateTapesResponse where-    type Item CreateTapesResponse = Text+ctTapeBarcodePrefix = lens _ctTapeBarcodePrefix (\ s a -> s{_ctTapeBarcodePrefix = a}); -    fromList = CreateTapesResponse . GHC.Exts.fromList-    toList   = GHC.Exts.toList . _ctrTapeARNs+instance AWSRequest CreateTapes where+        type Sv CreateTapes = StorageGateway+        type Rs CreateTapes = CreateTapesResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 CreateTapesResponse' <$>+                   (x .?> "TapeARNs" .!@ mempty) <*>+                     (pure (fromEnum s))) --- | 'CreateTapesResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'ctrTapeARNs' @::@ ['Text']----createTapesResponse :: CreateTapesResponse-createTapesResponse = CreateTapesResponse-    { _ctrTapeARNs = mempty-    }+instance ToHeaders CreateTapes where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.CreateTapes" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | A list of unique Amazon Resource Named (ARN) the represents the virtual tapes--- that were created.-ctrTapeARNs :: Lens' CreateTapesResponse [Text]-ctrTapeARNs = lens _ctrTapeARNs (\s a -> s { _ctrTapeARNs = a }) . _List+instance ToJSON CreateTapes where+        toJSON CreateTapes'{..}+          = object+              ["GatewayARN" .= _ctGatewayARN,+               "TapeSizeInBytes" .= _ctTapeSizeInBytes,+               "ClientToken" .= _ctClientToken,+               "NumTapesToCreate" .= _ctNumTapesToCreate,+               "TapeBarcodePrefix" .= _ctTapeBarcodePrefix]  instance ToPath CreateTapes where-    toPath = const "/"+        toPath = const "/"  instance ToQuery CreateTapes where-    toQuery = const mempty--instance ToHeaders CreateTapes+        toQuery = const mempty -instance ToJSON CreateTapes where-    toJSON CreateTapes{..} = object-        [ "GatewayARN"        .= _ctGatewayARN-        , "TapeSizeInBytes"   .= _ctTapeSizeInBytes-        , "ClientToken"       .= _ctClientToken-        , "NumTapesToCreate"  .= _ctNumTapesToCreate-        , "TapeBarcodePrefix" .= _ctTapeBarcodePrefix-        ]+-- | CreateTapeOutput+--+-- /See:/ 'createTapesResponse' smart constructor.+data CreateTapesResponse = CreateTapesResponse'+    { _ctrsTapeARNs :: !(Maybe [Text])+    , _ctrsStatus   :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest CreateTapes where-    type Sv CreateTapes = StorageGateway-    type Rs CreateTapes = CreateTapesResponse+-- | 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:+--+-- * 'ctrsTapeARNs'+--+-- * 'ctrsStatus'+createTapesResponse+    :: Int -- ^ 'ctrsStatus'+    -> CreateTapesResponse+createTapesResponse pStatus_ =+    CreateTapesResponse'+    { _ctrsTapeARNs = Nothing+    , _ctrsStatus = pStatus_+    } -    request  = post "CreateTapes"-    response = jsonResponse+-- | A list of unique Amazon Resource Named (ARN) the represents the virtual+-- tapes that were created.+ctrsTapeARNs :: Lens' CreateTapesResponse [Text]+ctrsTapeARNs = lens _ctrsTapeARNs (\ s a -> s{_ctrsTapeARNs = a}) . _Default . _Coerce; -instance FromJSON CreateTapesResponse where-    parseJSON = withObject "CreateTapesResponse" $ \o -> CreateTapesResponse-        <$> o .:? "TapeARNs" .!= mempty+-- | The response status code.+ctrsStatus :: Lens' CreateTapesResponse Int+ctrsStatus = lens _ctrsStatus (\ s a -> s{_ctrsStatus = a});

@@ -1,125 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteBandwidthRateLimit--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation deletes the bandwidth rate limits of a gateway. You can delete--- either the upload and download bandwidth rate limit, or you can delete both.--- If you delete only one of the limits, the other limit remains unchanged. To--- specify which gateway to work with, use the Amazon Resource Name (ARN) of the--- gateway in your request.+-- This operation deletes the bandwidth rate limits of a gateway. You can+-- delete either the upload and download bandwidth rate limit, or you can+-- delete both. If you delete only one of the limits, the other limit+-- remains unchanged. To specify which gateway to work with, use the Amazon+-- Resource Name (ARN) of the gateway in your request. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteBandwidthRateLimit.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteBandwidthRateLimit.html AWS API Reference> for DeleteBandwidthRateLimit. module Network.AWS.StorageGateway.DeleteBandwidthRateLimit     (-    -- * Request-      DeleteBandwidthRateLimit-    -- ** Request constructor-    , deleteBandwidthRateLimit-    -- ** Request lenses-    , dbrl1BandwidthType-    , dbrl1GatewayARN+    -- * Creating a Request+      deleteBandwidthRateLimit+    , DeleteBandwidthRateLimit+    -- * Request Lenses+    , delGatewayARN+    , delBandwidthType -    -- * Response-    , DeleteBandwidthRateLimitResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteBandwidthRateLimitResponse-    -- ** Response lenses-    , dbrlr1GatewayARN+    , DeleteBandwidthRateLimitResponse+    -- * Response Lenses+    , delrsGatewayARN+    , delrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -data DeleteBandwidthRateLimit = DeleteBandwidthRateLimit-    { _dbrl1BandwidthType :: Text-    , _dbrl1GatewayARN    :: Text-    } deriving (Eq, Ord, Read, Show)+-- | /See:/ 'deleteBandwidthRateLimit' smart constructor.+data DeleteBandwidthRateLimit = DeleteBandwidthRateLimit'+    { _delGatewayARN    :: !Text+    , _delBandwidthType :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteBandwidthRateLimit' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteBandwidthRateLimit' with the minimum fields required to make a request. ----- * 'dbrl1BandwidthType' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dbrl1GatewayARN' @::@ 'Text'+-- * 'delGatewayARN' ---deleteBandwidthRateLimit :: Text -- ^ 'dbrl1GatewayARN'-                         -> Text -- ^ 'dbrl1BandwidthType'-                         -> DeleteBandwidthRateLimit-deleteBandwidthRateLimit p1 p2 = DeleteBandwidthRateLimit-    { _dbrl1GatewayARN    = p1-    , _dbrl1BandwidthType = p2+-- * 'delBandwidthType'+deleteBandwidthRateLimit+    :: Text -- ^ 'delGatewayARN'+    -> Text -- ^ 'delBandwidthType'+    -> DeleteBandwidthRateLimit+deleteBandwidthRateLimit pGatewayARN_ pBandwidthType_ =+    DeleteBandwidthRateLimit'+    { _delGatewayARN = pGatewayARN_+    , _delBandwidthType = pBandwidthType_     } -dbrl1BandwidthType :: Lens' DeleteBandwidthRateLimit Text-dbrl1BandwidthType =-    lens _dbrl1BandwidthType (\s a -> s { _dbrl1BandwidthType = a })+-- | Undocumented member.+delGatewayARN :: Lens' DeleteBandwidthRateLimit Text+delGatewayARN = lens _delGatewayARN (\ s a -> s{_delGatewayARN = a}); -dbrl1GatewayARN :: Lens' DeleteBandwidthRateLimit Text-dbrl1GatewayARN = lens _dbrl1GatewayARN (\s a -> s { _dbrl1GatewayARN = a })+-- | Undocumented member.+delBandwidthType :: Lens' DeleteBandwidthRateLimit Text+delBandwidthType = lens _delBandwidthType (\ s a -> s{_delBandwidthType = a}); -newtype DeleteBandwidthRateLimitResponse = DeleteBandwidthRateLimitResponse-    { _dbrlr1GatewayARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteBandwidthRateLimit where+        type Sv DeleteBandwidthRateLimit = StorageGateway+        type Rs DeleteBandwidthRateLimit =+             DeleteBandwidthRateLimitResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteBandwidthRateLimitResponse' <$>+                   (x .?> "GatewayARN") <*> (pure (fromEnum s))) --- | 'DeleteBandwidthRateLimitResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dbrlr1GatewayARN' @::@ 'Maybe' 'Text'----deleteBandwidthRateLimitResponse :: DeleteBandwidthRateLimitResponse-deleteBandwidthRateLimitResponse = DeleteBandwidthRateLimitResponse-    { _dbrlr1GatewayARN = Nothing-    }+instance ToHeaders DeleteBandwidthRateLimit where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteBandwidthRateLimit"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dbrlr1GatewayARN :: Lens' DeleteBandwidthRateLimitResponse (Maybe Text)-dbrlr1GatewayARN = lens _dbrlr1GatewayARN (\s a -> s { _dbrlr1GatewayARN = a })+instance ToJSON DeleteBandwidthRateLimit where+        toJSON DeleteBandwidthRateLimit'{..}+          = object+              ["GatewayARN" .= _delGatewayARN,+               "BandwidthType" .= _delBandwidthType]  instance ToPath DeleteBandwidthRateLimit where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteBandwidthRateLimit where-    toQuery = const mempty--instance ToHeaders DeleteBandwidthRateLimit+        toQuery = const mempty -instance ToJSON DeleteBandwidthRateLimit where-    toJSON DeleteBandwidthRateLimit{..} = object-        [ "GatewayARN"    .= _dbrl1GatewayARN-        , "BandwidthType" .= _dbrl1BandwidthType-        ]+-- | A JSON object containing the of the gateway whose bandwidth rate+-- information was deleted.+--+-- /See:/ 'deleteBandwidthRateLimitResponse' smart constructor.+data DeleteBandwidthRateLimitResponse = DeleteBandwidthRateLimitResponse'+    { _delrsGatewayARN :: !(Maybe Text)+    , _delrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteBandwidthRateLimit where-    type Sv DeleteBandwidthRateLimit = StorageGateway-    type Rs DeleteBandwidthRateLimit = DeleteBandwidthRateLimitResponse+-- | 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:+--+-- * 'delrsGatewayARN'+--+-- * 'delrsStatus'+deleteBandwidthRateLimitResponse+    :: Int -- ^ 'delrsStatus'+    -> DeleteBandwidthRateLimitResponse+deleteBandwidthRateLimitResponse pStatus_ =+    DeleteBandwidthRateLimitResponse'+    { _delrsGatewayARN = Nothing+    , _delrsStatus = pStatus_+    } -    request  = post "DeleteBandwidthRateLimit"-    response = jsonResponse+-- | Undocumented member.+delrsGatewayARN :: Lens' DeleteBandwidthRateLimitResponse (Maybe Text)+delrsGatewayARN = lens _delrsGatewayARN (\ s a -> s{_delrsGatewayARN = a}); -instance FromJSON DeleteBandwidthRateLimitResponse where-    parseJSON = withObject "DeleteBandwidthRateLimitResponse" $ \o -> DeleteBandwidthRateLimitResponse-        <$> o .:? "GatewayARN"+-- | The response status code.+delrsStatus :: Lens' DeleteBandwidthRateLimitResponse Int+delrsStatus = lens _delrsStatus (\ s a -> s{_delrsStatus = a});

@@ -1,136 +1,159 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteChapCredentials--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation deletes Challenge-Handshake Authentication Protocol (CHAP)--- credentials for a specified iSCSI target and initiator pair.+-- This operation deletes Challenge-Handshake Authentication Protocol+-- (CHAP) credentials for a specified iSCSI target and initiator pair. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteChapCredentials.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteChapCredentials.html AWS API Reference> for DeleteChapCredentials. module Network.AWS.StorageGateway.DeleteChapCredentials     (-    -- * Request-      DeleteChapCredentials-    -- ** Request constructor-    , deleteChapCredentials-    -- ** Request lenses-    , dcc1InitiatorName-    , dcc1TargetARN+    -- * Creating a Request+      deleteChapCredentials+    , DeleteChapCredentials+    -- * Request Lenses+    , dTargetARN+    , dInitiatorName -    -- * Response-    , DeleteChapCredentialsResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteChapCredentialsResponse-    -- ** Response lenses-    , dccrInitiatorName-    , dccrTargetARN+    , DeleteChapCredentialsResponse+    -- * Response Lenses+    , drsTargetARN+    , drsInitiatorName+    , drsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data DeleteChapCredentials = DeleteChapCredentials-    { _dcc1InitiatorName :: Text-    , _dcc1TargetARN     :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'DeleteChapCredentials' constructor.------ The fields accessible through corresponding lenses are:------ * 'dcc1InitiatorName' @::@ 'Text'+-- | A JSON object containing one or more of the following fields: ----- * 'dcc1TargetARN' @::@ 'Text'+-- -   DeleteChapCredentialsInput$InitiatorName+-- -   DeleteChapCredentialsInput$TargetARN ---deleteChapCredentials :: Text -- ^ 'dcc1TargetARN'-                      -> Text -- ^ 'dcc1InitiatorName'-                      -> DeleteChapCredentials-deleteChapCredentials p1 p2 = DeleteChapCredentials-    { _dcc1TargetARN     = p1-    , _dcc1InitiatorName = p2-    }---- | The iSCSI initiator that connects to the target.-dcc1InitiatorName :: Lens' DeleteChapCredentials Text-dcc1InitiatorName =-    lens _dcc1InitiatorName (\s a -> s { _dcc1InitiatorName = a })---- | The Amazon Resource Name (ARN) of the iSCSI volume target. Use the 'DescribeStorediSCSIVolumes' operation to return to retrieve the TargetARN for specified VolumeARN.-dcc1TargetARN :: Lens' DeleteChapCredentials Text-dcc1TargetARN = lens _dcc1TargetARN (\s a -> s { _dcc1TargetARN = a })--data DeleteChapCredentialsResponse = DeleteChapCredentialsResponse-    { _dccrInitiatorName :: Maybe Text-    , _dccrTargetARN     :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+-- /See:/ 'deleteChapCredentials' smart constructor.+data DeleteChapCredentials = DeleteChapCredentials'+    { _dTargetARN     :: !Text+    , _dInitiatorName :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteChapCredentialsResponse' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteChapCredentials' with the minimum fields required to make a request. ----- * 'dccrInitiatorName' @::@ 'Maybe' 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dccrTargetARN' @::@ 'Maybe' 'Text'+-- * 'dTargetARN' ---deleteChapCredentialsResponse :: DeleteChapCredentialsResponse-deleteChapCredentialsResponse = DeleteChapCredentialsResponse-    { _dccrTargetARN     = Nothing-    , _dccrInitiatorName = Nothing+-- * 'dInitiatorName'+deleteChapCredentials+    :: Text -- ^ 'dTargetARN'+    -> Text -- ^ 'dInitiatorName'+    -> DeleteChapCredentials+deleteChapCredentials pTargetARN_ 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});+ -- | The iSCSI initiator that connects to the target.-dccrInitiatorName :: Lens' DeleteChapCredentialsResponse (Maybe Text)-dccrInitiatorName =-    lens _dccrInitiatorName (\s a -> s { _dccrInitiatorName = a })+dInitiatorName :: Lens' DeleteChapCredentials Text+dInitiatorName = lens _dInitiatorName (\ s a -> s{_dInitiatorName = a}); --- | The Amazon Resource Name (ARN) of the target.-dccrTargetARN :: Lens' DeleteChapCredentialsResponse (Maybe Text)-dccrTargetARN = lens _dccrTargetARN (\s a -> s { _dccrTargetARN = a })+instance AWSRequest DeleteChapCredentials where+        type Sv DeleteChapCredentials = StorageGateway+        type Rs DeleteChapCredentials =+             DeleteChapCredentialsResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteChapCredentialsResponse' <$>+                   (x .?> "TargetARN") <*> (x .?> "InitiatorName") <*>+                     (pure (fromEnum s))) +instance ToHeaders DeleteChapCredentials where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteChapCredentials" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DeleteChapCredentials where+        toJSON DeleteChapCredentials'{..}+          = object+              ["TargetARN" .= _dTargetARN,+               "InitiatorName" .= _dInitiatorName]+ instance ToPath DeleteChapCredentials where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteChapCredentials where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DeleteChapCredentials+-- | A JSON object containing the following fields:+--+-- /See:/ 'deleteChapCredentialsResponse' smart constructor.+data DeleteChapCredentialsResponse = DeleteChapCredentialsResponse'+    { _drsTargetARN     :: !(Maybe Text)+    , _drsInitiatorName :: !(Maybe Text)+    , _drsStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DeleteChapCredentials where-    toJSON DeleteChapCredentials{..} = object-        [ "TargetARN"     .= _dcc1TargetARN-        , "InitiatorName" .= _dcc1InitiatorName-        ]+-- | 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:+--+-- * 'drsTargetARN'+--+-- * 'drsInitiatorName'+--+-- * 'drsStatus'+deleteChapCredentialsResponse+    :: Int -- ^ 'drsStatus'+    -> DeleteChapCredentialsResponse+deleteChapCredentialsResponse pStatus_ =+    DeleteChapCredentialsResponse'+    { _drsTargetARN = Nothing+    , _drsInitiatorName = Nothing+    , _drsStatus = pStatus_+    } -instance AWSRequest DeleteChapCredentials where-    type Sv DeleteChapCredentials = StorageGateway-    type Rs DeleteChapCredentials = DeleteChapCredentialsResponse+-- | The Amazon Resource Name (ARN) of the target.+drsTargetARN :: Lens' DeleteChapCredentialsResponse (Maybe Text)+drsTargetARN = lens _drsTargetARN (\ s a -> s{_drsTargetARN = a}); -    request  = post "DeleteChapCredentials"-    response = jsonResponse+-- | The iSCSI initiator that connects to the target.+drsInitiatorName :: Lens' DeleteChapCredentialsResponse (Maybe Text)+drsInitiatorName = lens _drsInitiatorName (\ s a -> s{_drsInitiatorName = a}); -instance FromJSON DeleteChapCredentialsResponse where-    parseJSON = withObject "DeleteChapCredentialsResponse" $ \o -> DeleteChapCredentialsResponse-        <$> o .:? "InitiatorName"-        <*> o .:? "TargetARN"+-- | The response status code.+drsStatus :: Lens' DeleteChapCredentialsResponse Int+drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});

@@ -1,127 +1,147 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteGateway--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation deletes a gateway. To specify which gateway to delete, use the--- Amazon Resource Name (ARN) of the gateway in your request. The operation--- deletes the gateway; however, it does not delete the gateway virtual machine--- (VM) from your host computer.------ After you delete a gateway, you cannot reactivate it. Completed snapshots of--- the gateway volumes are not deleted upon deleting the gateway, however,--- pending snapshots will not complete. After you delete a gateway, your next--- step is to remove it from your environment.------ You no longer pay software charges after the gateway is deleted; however,--- your existing Amazon EBS snapshots persist and you will continue to be billed--- for these snapshots. You can choose to remove all remaining Amazon EBS--- snapshots by canceling your Amazon EC2 subscription.  If you prefer not to--- cancel your Amazon EC2 subscription, you can delete your snapshots using the--- Amazon EC2 console. For more information, see the <http://aws.amazon.com/storagegateway  AWS Storage Gateway DetailPage>.+-- This operation deletes a gateway. To specify which gateway to delete,+-- use the Amazon Resource Name (ARN) of the gateway in your request. The+-- operation deletes the gateway; however, it does not delete the gateway+-- virtual machine (VM) from your host computer. --+-- After you delete a gateway, you cannot reactivate it. Completed+-- snapshots of the gateway volumes are not deleted upon deleting the+-- gateway, however, pending snapshots will not complete. After you delete+-- a gateway, your next step is to remove it from your environment. --+-- You no longer pay software charges after the gateway is deleted;+-- however, your existing Amazon EBS snapshots persist and you will+-- continue to be billed for these snapshots. You can choose to remove all+-- remaining Amazon EBS snapshots by canceling your Amazon EC2+-- subscription.  If you prefer not to cancel your Amazon EC2 subscription,+-- you can delete your snapshots using the Amazon EC2 console. For more+-- information, see the+-- <http://aws.amazon.com/storagegateway AWS Storage Gateway Detail Page>. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteGateway.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteGateway.html AWS API Reference> for DeleteGateway. module Network.AWS.StorageGateway.DeleteGateway     (-    -- * Request-      DeleteGateway-    -- ** Request constructor-    , deleteGateway-    -- ** Request lenses+    -- * Creating a Request+      deleteGateway+    , DeleteGateway+    -- * Request Lenses     , dgGatewayARN -    -- * Response-    , DeleteGatewayResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteGatewayResponse-    -- ** Response lenses-    , dgrGatewayARN+    , DeleteGatewayResponse+    -- * Response Lenses+    , dgrsGatewayARN+    , dgrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -newtype DeleteGateway = DeleteGateway+-- | A JSON object containing the id of the gateway to delete.+--+-- /See:/ 'deleteGateway' smart constructor.+newtype DeleteGateway = DeleteGateway'     { _dgGatewayARN :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteGateway' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteGateway' with the minimum fields required to make a request. ----- * 'dgGatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteGateway :: Text -- ^ 'dgGatewayARN'-              -> DeleteGateway-deleteGateway p1 = DeleteGateway-    { _dgGatewayARN = p1+-- * 'dgGatewayARN'+deleteGateway+    :: Text -- ^ 'dgGatewayARN'+    -> DeleteGateway+deleteGateway pGatewayARN_ =+    DeleteGateway'+    { _dgGatewayARN = pGatewayARN_     } +-- | Undocumented member. dgGatewayARN :: Lens' DeleteGateway Text-dgGatewayARN = lens _dgGatewayARN (\s a -> s { _dgGatewayARN = a })+dgGatewayARN = lens _dgGatewayARN (\ s a -> s{_dgGatewayARN = a}); -newtype DeleteGatewayResponse = DeleteGatewayResponse-    { _dgrGatewayARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteGateway where+        type Sv DeleteGateway = StorageGateway+        type Rs DeleteGateway = DeleteGatewayResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteGatewayResponse' <$>+                   (x .?> "GatewayARN") <*> (pure (fromEnum s))) --- | 'DeleteGatewayResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dgrGatewayARN' @::@ 'Maybe' 'Text'----deleteGatewayResponse :: DeleteGatewayResponse-deleteGatewayResponse = DeleteGatewayResponse-    { _dgrGatewayARN = Nothing-    }+instance ToHeaders DeleteGateway where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteGateway" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dgrGatewayARN :: Lens' DeleteGatewayResponse (Maybe Text)-dgrGatewayARN = lens _dgrGatewayARN (\s a -> s { _dgrGatewayARN = a })+instance ToJSON DeleteGateway where+        toJSON DeleteGateway'{..}+          = object ["GatewayARN" .= _dgGatewayARN]  instance ToPath DeleteGateway where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteGateway where-    toQuery = const mempty--instance ToHeaders DeleteGateway+        toQuery = const mempty -instance ToJSON DeleteGateway where-    toJSON DeleteGateway{..} = object-        [ "GatewayARN" .= _dgGatewayARN-        ]+-- | A JSON object containing the id of the deleted gateway.+--+-- /See:/ 'deleteGatewayResponse' smart constructor.+data DeleteGatewayResponse = DeleteGatewayResponse'+    { _dgrsGatewayARN :: !(Maybe Text)+    , _dgrsStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteGateway where-    type Sv DeleteGateway = StorageGateway-    type Rs DeleteGateway = DeleteGatewayResponse+-- | 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:+--+-- * 'dgrsGatewayARN'+--+-- * 'dgrsStatus'+deleteGatewayResponse+    :: Int -- ^ 'dgrsStatus'+    -> DeleteGatewayResponse+deleteGatewayResponse pStatus_ =+    DeleteGatewayResponse'+    { _dgrsGatewayARN = Nothing+    , _dgrsStatus = pStatus_+    } -    request  = post "DeleteGateway"-    response = jsonResponse+-- | Undocumented member.+dgrsGatewayARN :: Lens' DeleteGatewayResponse (Maybe Text)+dgrsGatewayARN = lens _dgrsGatewayARN (\ s a -> s{_dgrsGatewayARN = a}); -instance FromJSON DeleteGatewayResponse where-    parseJSON = withObject "DeleteGatewayResponse" $ \o -> DeleteGatewayResponse-        <$> o .:? "GatewayARN"+-- | The response status code.+dgrsStatus :: Lens' DeleteGatewayResponse Int+dgrsStatus = lens _dgrsStatus (\ s a -> s{_dgrsStatus = a});

@@ -1,119 +1,137 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteSnapshotSchedule--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation deletes a snapshot of a volume.+-- This operation deletes a snapshot of a volume. -- -- You can take snapshots of your gateway volumes on a scheduled or ad-hoc--- basis. This API enables you to delete a snapshot schedule for a volume. For--- more information, see <http://docs.aws.amazon.com/storagegateway/latest/userguide/WorkingWithSnapshots.html Working with Snapshots>. In the 'DeleteSnapshotSchedule'--- request, you identify the volume by providing its Amazon Resource Name (ARN).------ To list or delete a snapshot, you must use the Amazon EC2 API. in /AmazonElastic Compute Cloud API Reference/.---+-- basis. This API enables you to delete a snapshot schedule for a volume.+-- For more information, see+-- <http://docs.aws.amazon.com/storagegateway/latest/userguide/WorkingWithSnapshots.html Working with Snapshots>.+-- In the 'DeleteSnapshotSchedule' request, you identify the volume by+-- providing its Amazon Resource Name (ARN). --+-- To list or delete a snapshot, you must use the Amazon EC2 API. in+-- /Amazon Elastic Compute Cloud API Reference/. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteSnapshotSchedule.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteSnapshotSchedule.html AWS API Reference> for DeleteSnapshotSchedule. module Network.AWS.StorageGateway.DeleteSnapshotSchedule     (-    -- * Request-      DeleteSnapshotSchedule-    -- ** Request constructor-    , deleteSnapshotSchedule-    -- ** Request lenses-    , dss1VolumeARN+    -- * Creating a Request+      deleteSnapshotSchedule+    , DeleteSnapshotSchedule+    -- * Request Lenses+    , dVolumeARN -    -- * Response-    , DeleteSnapshotScheduleResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteSnapshotScheduleResponse-    -- ** Response lenses-    , dssr1VolumeARN+    , DeleteSnapshotScheduleResponse+    -- * Response Lenses+    , dsssrsVolumeARN+    , dsssrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -newtype DeleteSnapshotSchedule = DeleteSnapshotSchedule-    { _dss1VolumeARN :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+-- | /See:/ 'deleteSnapshotSchedule' smart constructor.+newtype DeleteSnapshotSchedule = DeleteSnapshotSchedule'+    { _dVolumeARN :: Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteSnapshotSchedule' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteSnapshotSchedule' with the minimum fields required to make a request. ----- * 'dss1VolumeARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteSnapshotSchedule :: Text -- ^ 'dss1VolumeARN'-                       -> DeleteSnapshotSchedule-deleteSnapshotSchedule p1 = DeleteSnapshotSchedule-    { _dss1VolumeARN = p1+-- * 'dVolumeARN'+deleteSnapshotSchedule+    :: Text -- ^ 'dVolumeARN'+    -> DeleteSnapshotSchedule+deleteSnapshotSchedule pVolumeARN_ =+    DeleteSnapshotSchedule'+    { _dVolumeARN = pVolumeARN_     } -dss1VolumeARN :: Lens' DeleteSnapshotSchedule Text-dss1VolumeARN = lens _dss1VolumeARN (\s a -> s { _dss1VolumeARN = a })+-- | Undocumented member.+dVolumeARN :: Lens' DeleteSnapshotSchedule Text+dVolumeARN = lens _dVolumeARN (\ s a -> s{_dVolumeARN = a}); -newtype DeleteSnapshotScheduleResponse = DeleteSnapshotScheduleResponse-    { _dssr1VolumeARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteSnapshotSchedule where+        type Sv DeleteSnapshotSchedule = StorageGateway+        type Rs DeleteSnapshotSchedule =+             DeleteSnapshotScheduleResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteSnapshotScheduleResponse' <$>+                   (x .?> "VolumeARN") <*> (pure (fromEnum s))) --- | 'DeleteSnapshotScheduleResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dssr1VolumeARN' @::@ 'Maybe' 'Text'----deleteSnapshotScheduleResponse :: DeleteSnapshotScheduleResponse-deleteSnapshotScheduleResponse = DeleteSnapshotScheduleResponse-    { _dssr1VolumeARN = Nothing-    }+instance ToHeaders DeleteSnapshotSchedule where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteSnapshotSchedule" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dssr1VolumeARN :: Lens' DeleteSnapshotScheduleResponse (Maybe Text)-dssr1VolumeARN = lens _dssr1VolumeARN (\s a -> s { _dssr1VolumeARN = a })+instance ToJSON DeleteSnapshotSchedule where+        toJSON DeleteSnapshotSchedule'{..}+          = object ["VolumeARN" .= _dVolumeARN]  instance ToPath DeleteSnapshotSchedule where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteSnapshotSchedule where-    toQuery = const mempty--instance ToHeaders DeleteSnapshotSchedule+        toQuery = const mempty -instance ToJSON DeleteSnapshotSchedule where-    toJSON DeleteSnapshotSchedule{..} = object-        [ "VolumeARN" .= _dss1VolumeARN-        ]+-- | /See:/ 'deleteSnapshotScheduleResponse' smart constructor.+data DeleteSnapshotScheduleResponse = DeleteSnapshotScheduleResponse'+    { _dsssrsVolumeARN :: !(Maybe Text)+    , _dsssrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteSnapshotSchedule where-    type Sv DeleteSnapshotSchedule = StorageGateway-    type Rs DeleteSnapshotSchedule = DeleteSnapshotScheduleResponse+-- | 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:+--+-- * 'dsssrsVolumeARN'+--+-- * 'dsssrsStatus'+deleteSnapshotScheduleResponse+    :: Int -- ^ 'dsssrsStatus'+    -> DeleteSnapshotScheduleResponse+deleteSnapshotScheduleResponse pStatus_ =+    DeleteSnapshotScheduleResponse'+    { _dsssrsVolumeARN = Nothing+    , _dsssrsStatus = pStatus_+    } -    request  = post "DeleteSnapshotSchedule"-    response = jsonResponse+-- | Undocumented member.+dsssrsVolumeARN :: Lens' DeleteSnapshotScheduleResponse (Maybe Text)+dsssrsVolumeARN = lens _dsssrsVolumeARN (\ s a -> s{_dsssrsVolumeARN = a}); -instance FromJSON DeleteSnapshotScheduleResponse where-    parseJSON = withObject "DeleteSnapshotScheduleResponse" $ \o -> DeleteSnapshotScheduleResponse-        <$> o .:? "VolumeARN"+-- | The response status code.+dsssrsStatus :: Lens' DeleteSnapshotScheduleResponse Int+dsssrsStatus = lens _dsssrsStatus (\ s a -> s{_dsssrsStatus = a});

@@ -1,125 +1,143 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteTape--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified virtual tape.+-- Deletes the specified virtual tape. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteTape.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteTape.html AWS API Reference> for DeleteTape. module Network.AWS.StorageGateway.DeleteTape     (-    -- * Request-      DeleteTape-    -- ** Request constructor-    , deleteTape-    -- ** Request lenses-    , dt1GatewayARN-    , dt1TapeARN+    -- * Creating a Request+      deleteTape+    , DeleteTape+    -- * Request Lenses+    , dttGatewayARN+    , dttTapeARN -    -- * Response-    , DeleteTapeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteTapeResponse-    -- ** Response lenses-    , dtrTapeARN+    , DeleteTapeResponse+    -- * Response Lenses+    , dtrsTapeARN+    , dtrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts--data DeleteTape = DeleteTape-    { _dt1GatewayARN :: Text-    , _dt1TapeARN    :: Text-    } deriving (Eq, Ord, Read, Show)+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product --- | 'DeleteTape' constructor.+-- | DeleteTapeInput ----- The fields accessible through corresponding lenses are:+-- /See:/ 'deleteTape' smart constructor.+data DeleteTape = DeleteTape'+    { _dttGatewayARN :: !Text+    , _dttTapeARN    :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DeleteTape' with the minimum fields required to make a request. ----- * 'dt1GatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ----- * 'dt1TapeARN' @::@ 'Text'+-- * 'dttGatewayARN' ---deleteTape :: Text -- ^ 'dt1GatewayARN'-           -> Text -- ^ 'dt1TapeARN'-           -> DeleteTape-deleteTape p1 p2 = DeleteTape-    { _dt1GatewayARN = p1-    , _dt1TapeARN    = p2+-- * 'dttTapeARN'+deleteTape+    :: Text -- ^ 'dttGatewayARN'+    -> Text -- ^ 'dttTapeARN'+    -> DeleteTape+deleteTape pGatewayARN_ pTapeARN_ =+    DeleteTape'+    { _dttGatewayARN = pGatewayARN_+    , _dttTapeARN = 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.-dt1GatewayARN :: Lens' DeleteTape Text-dt1GatewayARN = lens _dt1GatewayARN (\s a -> s { _dt1GatewayARN = a })+-- | 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.+dttGatewayARN :: Lens' DeleteTape Text+dttGatewayARN = lens _dttGatewayARN (\ s a -> s{_dttGatewayARN = a});  -- | The Amazon Resource Name (ARN) of the virtual tape to delete.-dt1TapeARN :: Lens' DeleteTape Text-dt1TapeARN = lens _dt1TapeARN (\s a -> s { _dt1TapeARN = a })+dttTapeARN :: Lens' DeleteTape Text+dttTapeARN = lens _dttTapeARN (\ s a -> s{_dttTapeARN = a}); -newtype DeleteTapeResponse = DeleteTapeResponse-    { _dtrTapeARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteTape where+        type Sv DeleteTape = StorageGateway+        type Rs DeleteTape = DeleteTapeResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteTapeResponse' <$>+                   (x .?> "TapeARN") <*> (pure (fromEnum s))) --- | 'DeleteTapeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dtrTapeARN' @::@ 'Maybe' 'Text'----deleteTapeResponse :: DeleteTapeResponse-deleteTapeResponse = DeleteTapeResponse-    { _dtrTapeARN = Nothing-    }+instance ToHeaders DeleteTape where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteTape" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The Amazon Resource Name (ARN) of the deleted virtual tape.-dtrTapeARN :: Lens' DeleteTapeResponse (Maybe Text)-dtrTapeARN = lens _dtrTapeARN (\s a -> s { _dtrTapeARN = a })+instance ToJSON DeleteTape where+        toJSON DeleteTape'{..}+          = object+              ["GatewayARN" .= _dttGatewayARN,+               "TapeARN" .= _dttTapeARN]  instance ToPath DeleteTape where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteTape where-    toQuery = const mempty--instance ToHeaders DeleteTape+        toQuery = const mempty -instance ToJSON DeleteTape where-    toJSON DeleteTape{..} = object-        [ "GatewayARN" .= _dt1GatewayARN-        , "TapeARN"    .= _dt1TapeARN-        ]+-- | DeleteTapeOutput+--+-- /See:/ 'deleteTapeResponse' smart constructor.+data DeleteTapeResponse = DeleteTapeResponse'+    { _dtrsTapeARN :: !(Maybe Text)+    , _dtrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteTape where-    type Sv DeleteTape = StorageGateway-    type Rs DeleteTape = DeleteTapeResponse+-- | 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:+--+-- * 'dtrsTapeARN'+--+-- * 'dtrsStatus'+deleteTapeResponse+    :: Int -- ^ 'dtrsStatus'+    -> DeleteTapeResponse+deleteTapeResponse pStatus_ =+    DeleteTapeResponse'+    { _dtrsTapeARN = Nothing+    , _dtrsStatus = pStatus_+    } -    request  = post "DeleteTape"-    response = jsonResponse+-- | The Amazon Resource Name (ARN) of the deleted virtual tape.+dtrsTapeARN :: Lens' DeleteTapeResponse (Maybe Text)+dtrsTapeARN = lens _dtrsTapeARN (\ s a -> s{_dtrsTapeARN = a}); -instance FromJSON DeleteTapeResponse where-    parseJSON = withObject "DeleteTapeResponse" $ \o -> DeleteTapeResponse-        <$> o .:? "TapeARN"+-- | The response status code.+dtrsStatus :: Lens' DeleteTapeResponse Int+dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a});

@@ -1,114 +1,132 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteTapeArchive--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | Deletes the specified virtual tape from the virtual tape shelf (VTS).+-- Deletes the specified virtual tape from the virtual tape shelf (VTS). ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteTapeArchive.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteTapeArchive.html AWS API Reference> for DeleteTapeArchive. module Network.AWS.StorageGateway.DeleteTapeArchive     (-    -- * Request-      DeleteTapeArchive-    -- ** Request constructor-    , deleteTapeArchive-    -- ** Request lenses+    -- * Creating a Request+      deleteTapeArchive+    , DeleteTapeArchive+    -- * Request Lenses     , dtaTapeARN -    -- * Response-    , DeleteTapeArchiveResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteTapeArchiveResponse-    -- ** Response lenses-    , dtarTapeARN+    , DeleteTapeArchiveResponse+    -- * Response Lenses+    , dtatrsTapeARN+    , dtatrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -newtype DeleteTapeArchive = DeleteTapeArchive+-- | DeleteTapeArchiveInput+--+-- /See:/ 'deleteTapeArchive' smart constructor.+newtype DeleteTapeArchive = DeleteTapeArchive'     { _dtaTapeARN :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteTapeArchive' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteTapeArchive' with the minimum fields required to make a request. ----- * 'dtaTapeARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteTapeArchive :: Text -- ^ 'dtaTapeARN'-                  -> DeleteTapeArchive-deleteTapeArchive p1 = DeleteTapeArchive-    { _dtaTapeARN = p1+-- * 'dtaTapeARN'+deleteTapeArchive+    :: Text -- ^ 'dtaTapeARN'+    -> DeleteTapeArchive+deleteTapeArchive pTapeARN_ =+    DeleteTapeArchive'+    { _dtaTapeARN = pTapeARN_     } --- | The Amazon Resource Name (ARN) of the virtual tape to delete from the virtual--- tape shelf (VTS).+-- | 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 })+dtaTapeARN = lens _dtaTapeARN (\ s a -> s{_dtaTapeARN = a}); -newtype DeleteTapeArchiveResponse = DeleteTapeArchiveResponse-    { _dtarTapeARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteTapeArchive where+        type Sv DeleteTapeArchive = StorageGateway+        type Rs DeleteTapeArchive = DeleteTapeArchiveResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteTapeArchiveResponse' <$>+                   (x .?> "TapeARN") <*> (pure (fromEnum s))) --- | 'DeleteTapeArchiveResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dtarTapeARN' @::@ 'Maybe' 'Text'----deleteTapeArchiveResponse :: DeleteTapeArchiveResponse-deleteTapeArchiveResponse = DeleteTapeArchiveResponse-    { _dtarTapeARN = Nothing-    }+instance ToHeaders DeleteTapeArchive where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteTapeArchive" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The Amazon Resource Name (ARN) of the virtual tape that was deleted from the--- virtual tape shelf (VTS).-dtarTapeARN :: Lens' DeleteTapeArchiveResponse (Maybe Text)-dtarTapeARN = lens _dtarTapeARN (\s a -> s { _dtarTapeARN = a })+instance ToJSON DeleteTapeArchive where+        toJSON DeleteTapeArchive'{..}+          = object ["TapeARN" .= _dtaTapeARN]  instance ToPath DeleteTapeArchive where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteTapeArchive where-    toQuery = const mempty--instance ToHeaders DeleteTapeArchive+        toQuery = const mempty -instance ToJSON DeleteTapeArchive where-    toJSON DeleteTapeArchive{..} = object-        [ "TapeARN" .= _dtaTapeARN-        ]+-- | DeleteTapeArchiveOutput+--+-- /See:/ 'deleteTapeArchiveResponse' smart constructor.+data DeleteTapeArchiveResponse = DeleteTapeArchiveResponse'+    { _dtatrsTapeARN :: !(Maybe Text)+    , _dtatrsStatus  :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteTapeArchive where-    type Sv DeleteTapeArchive = StorageGateway-    type Rs DeleteTapeArchive = DeleteTapeArchiveResponse+-- | 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:+--+-- * 'dtatrsTapeARN'+--+-- * 'dtatrsStatus'+deleteTapeArchiveResponse+    :: Int -- ^ 'dtatrsStatus'+    -> DeleteTapeArchiveResponse+deleteTapeArchiveResponse pStatus_ =+    DeleteTapeArchiveResponse'+    { _dtatrsTapeARN = Nothing+    , _dtatrsStatus = pStatus_+    } -    request  = post "DeleteTapeArchive"-    response = jsonResponse+-- | 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}); -instance FromJSON DeleteTapeArchiveResponse where-    parseJSON = withObject "DeleteTapeArchiveResponse" $ \o -> DeleteTapeArchiveResponse-        <$> o .:? "TapeARN"+-- | The response status code.+dtatrsStatus :: Lens' DeleteTapeArchiveResponse Int+dtatrsStatus = lens _dtatrsStatus (\ s a -> s{_dtatrsStatus = a});

@@ -1,126 +1,146 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DeleteVolume--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation delete the specified gateway volume that you previously--- created using the '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.+-- This operation delete the specified gateway volume that you previously+-- created using the 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. ----- 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 /AmazonElastic Compute Cloud API Reference/.+-- 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/. -- -- In the request, you must provide the Amazon Resource Name (ARN) of the -- storage volume you want to delete. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteVolume.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DeleteVolume.html AWS API Reference> for DeleteVolume. module Network.AWS.StorageGateway.DeleteVolume     (-    -- * Request-      DeleteVolume-    -- ** Request constructor-    , deleteVolume-    -- ** Request lenses+    -- * Creating a Request+      deleteVolume+    , DeleteVolume+    -- * Request Lenses     , dvVolumeARN -    -- * Response-    , DeleteVolumeResponse-    -- ** Response constructor+    -- * Destructuring the Response     , deleteVolumeResponse-    -- ** Response lenses-    , dvrVolumeARN+    , DeleteVolumeResponse+    -- * Response Lenses+    , dvrsVolumeARN+    , dvrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -newtype DeleteVolume = DeleteVolume+-- | A JSON object containing the DeleteVolumeInput$VolumeARN to delete.+--+-- /See:/ 'deleteVolume' smart constructor.+newtype DeleteVolume = DeleteVolume'     { _dvVolumeARN :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DeleteVolume' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DeleteVolume' with the minimum fields required to make a request. ----- * 'dvVolumeARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---deleteVolume :: Text -- ^ 'dvVolumeARN'-             -> DeleteVolume-deleteVolume p1 = DeleteVolume-    { _dvVolumeARN = p1+-- * 'dvVolumeARN'+deleteVolume+    :: Text -- ^ 'dvVolumeARN'+    -> DeleteVolume+deleteVolume pVolumeARN_ =+    DeleteVolume'+    { _dvVolumeARN = pVolumeARN_     } --- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation--- to return a list of gateway volumes.+-- | 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 })+dvVolumeARN = lens _dvVolumeARN (\ s a -> s{_dvVolumeARN = a}); -newtype DeleteVolumeResponse = DeleteVolumeResponse-    { _dvrVolumeARN :: Maybe Text-    } deriving (Eq, Ord, Read, Show, Monoid)+instance AWSRequest DeleteVolume where+        type Sv DeleteVolume = StorageGateway+        type Rs DeleteVolume = DeleteVolumeResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DeleteVolumeResponse' <$>+                   (x .?> "VolumeARN") <*> (pure (fromEnum s))) --- | 'DeleteVolumeResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dvrVolumeARN' @::@ 'Maybe' 'Text'----deleteVolumeResponse :: DeleteVolumeResponse-deleteVolumeResponse = DeleteVolumeResponse-    { _dvrVolumeARN = Nothing-    }+instance ToHeaders DeleteVolume where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DeleteVolume" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) --- | The Amazon Resource Name (ARN) of the storage volume that was deleted. It is--- the same ARN you provided in the request.-dvrVolumeARN :: Lens' DeleteVolumeResponse (Maybe Text)-dvrVolumeARN = lens _dvrVolumeARN (\s a -> s { _dvrVolumeARN = a })+instance ToJSON DeleteVolume where+        toJSON DeleteVolume'{..}+          = object ["VolumeARN" .= _dvVolumeARN]  instance ToPath DeleteVolume where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DeleteVolume where-    toQuery = const mempty--instance ToHeaders DeleteVolume+        toQuery = const mempty -instance ToJSON DeleteVolume where-    toJSON DeleteVolume{..} = object-        [ "VolumeARN" .= _dvVolumeARN-        ]+-- | A JSON object containing the of the storage volume that was deleted+--+-- /See:/ 'deleteVolumeResponse' smart constructor.+data DeleteVolumeResponse = DeleteVolumeResponse'+    { _dvrsVolumeARN :: !(Maybe Text)+    , _dvrsStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance AWSRequest DeleteVolume where-    type Sv DeleteVolume = StorageGateway-    type Rs DeleteVolume = DeleteVolumeResponse+-- | 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:+--+-- * 'dvrsVolumeARN'+--+-- * 'dvrsStatus'+deleteVolumeResponse+    :: Int -- ^ 'dvrsStatus'+    -> DeleteVolumeResponse+deleteVolumeResponse pStatus_ =+    DeleteVolumeResponse'+    { _dvrsVolumeARN = Nothing+    , _dvrsStatus = pStatus_+    } -    request  = post "DeleteVolume"-    response = jsonResponse+-- | 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}); -instance FromJSON DeleteVolumeResponse where-    parseJSON = withObject "DeleteVolumeResponse" $ \o -> DeleteVolumeResponse-        <$> o .:? "VolumeARN"+-- | The response status code.+dvrsStatus :: Lens' DeleteVolumeResponse Int+dvrsStatus = lens _dvrsStatus (\ s a -> s{_dvrsStatus = a});

@@ -1,145 +1,162 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DescribeBandwidthRateLimit--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation returns the bandwidth rate limits of a gateway. By default,--- these limits are not set, which means no bandwidth rate limiting is in effect.+-- This operation returns the bandwidth rate limits of a gateway. By+-- default, these limits are not set, which means no bandwidth rate+-- limiting is in effect. ----- This operation only returns a value for a bandwidth rate limit only if the--- limit is set. If no limits are set for the gateway, then this operation--- returns only the gateway ARN in the response body. To specify which gateway--- to describe, use the Amazon Resource Name (ARN) of the gateway in your--- request.+-- This operation only returns a value for a bandwidth rate limit only if+-- the limit is set. If no limits are set for the gateway, then this+-- operation returns only the gateway ARN in the response body. To specify+-- which gateway to describe, use the Amazon Resource Name (ARN) of the+-- gateway in your request. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DescribeBandwidthRateLimit.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DescribeBandwidthRateLimit.html AWS API Reference> for DescribeBandwidthRateLimit. module Network.AWS.StorageGateway.DescribeBandwidthRateLimit     (-    -- * Request-      DescribeBandwidthRateLimit-    -- ** Request constructor-    , describeBandwidthRateLimit-    -- ** Request lenses+    -- * Creating a Request+      describeBandwidthRateLimit+    , DescribeBandwidthRateLimit+    -- * Request Lenses     , dbrlGatewayARN -    -- * Response-    , DescribeBandwidthRateLimitResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeBandwidthRateLimitResponse-    -- ** Response lenses-    , dbrlrAverageDownloadRateLimitInBitsPerSec-    , dbrlrAverageUploadRateLimitInBitsPerSec-    , dbrlrGatewayARN+    , DescribeBandwidthRateLimitResponse+    -- * Response Lenses+    , dbrlrsGatewayARN+    , dbrlrsAverageUploadRateLimitInBitsPerSec+    , dbrlrsAverageDownloadRateLimitInBitsPerSec+    , dbrlrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -newtype DescribeBandwidthRateLimit = DescribeBandwidthRateLimit+-- | A JSON object containing the of the gateway.+--+-- /See:/ 'describeBandwidthRateLimit' smart constructor.+newtype DescribeBandwidthRateLimit = DescribeBandwidthRateLimit'     { _dbrlGatewayARN :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeBandwidthRateLimit' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeBandwidthRateLimit' with the minimum fields required to make a request. ----- * 'dbrlGatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---describeBandwidthRateLimit :: Text -- ^ 'dbrlGatewayARN'-                           -> DescribeBandwidthRateLimit-describeBandwidthRateLimit p1 = DescribeBandwidthRateLimit-    { _dbrlGatewayARN = p1+-- * 'dbrlGatewayARN'+describeBandwidthRateLimit+    :: Text -- ^ 'dbrlGatewayARN'+    -> DescribeBandwidthRateLimit+describeBandwidthRateLimit pGatewayARN_ =+    DescribeBandwidthRateLimit'+    { _dbrlGatewayARN = pGatewayARN_     } +-- | Undocumented member. dbrlGatewayARN :: Lens' DescribeBandwidthRateLimit Text-dbrlGatewayARN = lens _dbrlGatewayARN (\s a -> s { _dbrlGatewayARN = a })--data DescribeBandwidthRateLimitResponse = DescribeBandwidthRateLimitResponse-    { _dbrlrAverageDownloadRateLimitInBitsPerSec :: Maybe Nat-    , _dbrlrAverageUploadRateLimitInBitsPerSec   :: Maybe Nat-    , _dbrlrGatewayARN                           :: Maybe Text-    } deriving (Eq, Ord, Read, Show)---- | 'DescribeBandwidthRateLimitResponse' constructor.------ The fields accessible through corresponding lenses are:------ * 'dbrlrAverageDownloadRateLimitInBitsPerSec' @::@ 'Maybe' 'Natural'------ * 'dbrlrAverageUploadRateLimitInBitsPerSec' @::@ 'Maybe' 'Natural'------ * 'dbrlrGatewayARN' @::@ 'Maybe' 'Text'----describeBandwidthRateLimitResponse :: DescribeBandwidthRateLimitResponse-describeBandwidthRateLimitResponse = DescribeBandwidthRateLimitResponse-    { _dbrlrGatewayARN                           = Nothing-    , _dbrlrAverageUploadRateLimitInBitsPerSec   = Nothing-    , _dbrlrAverageDownloadRateLimitInBitsPerSec = Nothing-    }+dbrlGatewayARN = lens _dbrlGatewayARN (\ s a -> s{_dbrlGatewayARN = a}); --- | The average download bandwidth rate limit in bits per second. This field does--- not appear in the response if the download rate limit is not set.-dbrlrAverageDownloadRateLimitInBitsPerSec :: Lens' DescribeBandwidthRateLimitResponse (Maybe Natural)-dbrlrAverageDownloadRateLimitInBitsPerSec =-    lens _dbrlrAverageDownloadRateLimitInBitsPerSec-        (\s a -> s { _dbrlrAverageDownloadRateLimitInBitsPerSec = a })-            . mapping _Nat+instance AWSRequest DescribeBandwidthRateLimit where+        type Sv DescribeBandwidthRateLimit = StorageGateway+        type Rs DescribeBandwidthRateLimit =+             DescribeBandwidthRateLimitResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeBandwidthRateLimitResponse' <$>+                   (x .?> "GatewayARN") <*>+                     (x .?> "AverageUploadRateLimitInBitsPerSec")+                     <*> (x .?> "AverageDownloadRateLimitInBitsPerSec")+                     <*> (pure (fromEnum s))) --- | The average upload bandwidth rate limit in bits per second. This field does--- not appear in the response if the upload rate limit is not set.-dbrlrAverageUploadRateLimitInBitsPerSec :: Lens' DescribeBandwidthRateLimitResponse (Maybe Natural)-dbrlrAverageUploadRateLimitInBitsPerSec =-    lens _dbrlrAverageUploadRateLimitInBitsPerSec-        (\s a -> s { _dbrlrAverageUploadRateLimitInBitsPerSec = a })-            . mapping _Nat+instance ToHeaders DescribeBandwidthRateLimit where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DescribeBandwidthRateLimit"+                       :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)]) -dbrlrGatewayARN :: Lens' DescribeBandwidthRateLimitResponse (Maybe Text)-dbrlrGatewayARN = lens _dbrlrGatewayARN (\s a -> s { _dbrlrGatewayARN = a })+instance ToJSON DescribeBandwidthRateLimit where+        toJSON DescribeBandwidthRateLimit'{..}+          = object ["GatewayARN" .= _dbrlGatewayARN]  instance ToPath DescribeBandwidthRateLimit where-    toPath = const "/"+        toPath = const "/"  instance ToQuery DescribeBandwidthRateLimit where-    toQuery = const mempty+        toQuery = const mempty -instance ToHeaders DescribeBandwidthRateLimit+-- | A JSON object containing the following fields:+--+-- /See:/ 'describeBandwidthRateLimitResponse' smart constructor.+data DescribeBandwidthRateLimitResponse = DescribeBandwidthRateLimitResponse'+    { _dbrlrsGatewayARN                           :: !(Maybe Text)+    , _dbrlrsAverageUploadRateLimitInBitsPerSec   :: !(Maybe Nat)+    , _dbrlrsAverageDownloadRateLimitInBitsPerSec :: !(Maybe Nat)+    , _dbrlrsStatus                               :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic) -instance ToJSON DescribeBandwidthRateLimit where-    toJSON DescribeBandwidthRateLimit{..} = object-        [ "GatewayARN" .= _dbrlGatewayARN-        ]+-- | 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:+--+-- * 'dbrlrsGatewayARN'+--+-- * 'dbrlrsAverageUploadRateLimitInBitsPerSec'+--+-- * 'dbrlrsAverageDownloadRateLimitInBitsPerSec'+--+-- * 'dbrlrsStatus'+describeBandwidthRateLimitResponse+    :: Int -- ^ 'dbrlrsStatus'+    -> DescribeBandwidthRateLimitResponse+describeBandwidthRateLimitResponse pStatus_ =+    DescribeBandwidthRateLimitResponse'+    { _dbrlrsGatewayARN = Nothing+    , _dbrlrsAverageUploadRateLimitInBitsPerSec = Nothing+    , _dbrlrsAverageDownloadRateLimitInBitsPerSec = Nothing+    , _dbrlrsStatus = pStatus_+    } -instance AWSRequest DescribeBandwidthRateLimit where-    type Sv DescribeBandwidthRateLimit = StorageGateway-    type Rs DescribeBandwidthRateLimit = DescribeBandwidthRateLimitResponse+-- | Undocumented member.+dbrlrsGatewayARN :: Lens' DescribeBandwidthRateLimitResponse (Maybe Text)+dbrlrsGatewayARN = lens _dbrlrsGatewayARN (\ s a -> s{_dbrlrsGatewayARN = a}); -    request  = post "DescribeBandwidthRateLimit"-    response = jsonResponse+-- | The average upload bandwidth rate limit in bits per second. This field+-- does not appear in the response if the upload rate limit is not set.+dbrlrsAverageUploadRateLimitInBitsPerSec :: Lens' DescribeBandwidthRateLimitResponse (Maybe Natural)+dbrlrsAverageUploadRateLimitInBitsPerSec = lens _dbrlrsAverageUploadRateLimitInBitsPerSec (\ s a -> s{_dbrlrsAverageUploadRateLimitInBitsPerSec = a}) . mapping _Nat; -instance FromJSON DescribeBandwidthRateLimitResponse where-    parseJSON = withObject "DescribeBandwidthRateLimitResponse" $ \o -> DescribeBandwidthRateLimitResponse-        <$> o .:? "AverageDownloadRateLimitInBitsPerSec"-        <*> o .:? "AverageUploadRateLimitInBitsPerSec"-        <*> o .:? "GatewayARN"+-- | The average download bandwidth rate limit in bits per second. This field+-- does not appear in the response if the download rate limit is not set.+dbrlrsAverageDownloadRateLimitInBitsPerSec :: Lens' DescribeBandwidthRateLimitResponse (Maybe Natural)+dbrlrsAverageDownloadRateLimitInBitsPerSec = lens _dbrlrsAverageDownloadRateLimitInBitsPerSec (\ s a -> s{_dbrlrsAverageDownloadRateLimitInBitsPerSec = a}) . mapping _Nat;++-- | The response status code.+dbrlrsStatus :: Lens' DescribeBandwidthRateLimitResponse Int+dbrlrsStatus = lens _dbrlrsStatus (\ s a -> s{_dbrlrsStatus = a});

@@ -1,174 +1,190 @@-{-# LANGUAGE DataKinds                   #-}-{-# LANGUAGE DeriveGeneric               #-}-{-# LANGUAGE FlexibleInstances           #-}-{-# LANGUAGE GeneralizedNewtypeDeriving  #-}-{-# LANGUAGE LambdaCase                  #-}-{-# LANGUAGE NoImplicitPrelude           #-}-{-# LANGUAGE OverloadedStrings           #-}-{-# LANGUAGE RecordWildCards             #-}-{-# LANGUAGE TypeFamilies                #-}+{-# 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.DescribeCache--- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>--- License     : This Source Code Form is subject to the terms of---               the Mozilla Public License, v. 2.0.---               A copy of the MPL can be found in the LICENSE file or---               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Copyright   : (c) 2013-2015 Brendan Hay+-- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>--- Stability   : experimental+-- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Derived from AWS service descriptions, licensed under Apache 2.0.---- | This operation returns information about the cache of a gateway. This+-- This operation returns information about the cache of a gateway. This -- operation is supported only for the gateway-cached volume architecture. -- -- The response includes disk IDs that are configured as cache, and it -- includes the amount of cache allocated and used. ----- <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DescribeCache.html>+-- /See:/ <http://docs.aws.amazon.com/storagegateway/latest/APIReference/API_DescribeCache.html AWS API Reference> for DescribeCache. module Network.AWS.StorageGateway.DescribeCache     (-    -- * Request-      DescribeCache-    -- ** Request constructor-    , describeCache-    -- ** Request lenses+    -- * Creating a Request+      describeCache+    , DescribeCache+    -- * Request Lenses     , dcGatewayARN -    -- * Response-    , DescribeCacheResponse-    -- ** Response constructor+    -- * Destructuring the Response     , describeCacheResponse-    -- ** Response lenses-    , dcrCacheAllocatedInBytes-    , dcrCacheDirtyPercentage-    , dcrCacheHitPercentage-    , dcrCacheMissPercentage-    , dcrCacheUsedPercentage-    , dcrDiskIds-    , dcrGatewayARN+    , DescribeCacheResponse+    -- * Response Lenses+    , dcrsGatewayARN+    , dcrsDiskIds+    , dcrsCacheUsedPercentage+    , dcrsCacheHitPercentage+    , dcrsCacheMissPercentage+    , dcrsCacheAllocatedInBytes+    , dcrsCacheDirtyPercentage+    , dcrsStatus     ) where -import Network.AWS.Data (Object)-import Network.AWS.Prelude-import Network.AWS.Request.JSON-import Network.AWS.StorageGateway.Types-import qualified GHC.Exts+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product -newtype DescribeCache = DescribeCache+-- | /See:/ 'describeCache' smart constructor.+newtype DescribeCache = DescribeCache'     { _dcGatewayARN :: Text-    } deriving (Eq, Ord, Read, Show, Monoid, IsString)+    } deriving (Eq,Read,Show,Data,Typeable,Generic) --- | 'DescribeCache' constructor.------ The fields accessible through corresponding lenses are:+-- | Creates a value of 'DescribeCache' with the minimum fields required to make a request. ----- * 'dcGatewayARN' @::@ 'Text'+-- Use one of the following lenses to modify other fields as desired: ---describeCache :: Text -- ^ 'dcGatewayARN'-              -> DescribeCache-describeCache p1 = DescribeCache-    { _dcGatewayARN = p1+-- * 'dcGatewayARN'+describeCache+    :: Text -- ^ 'dcGatewayARN'+    -> DescribeCache+describeCache pGatewayARN_ =+    DescribeCache'+    { _dcGatewayARN = pGatewayARN_     } +-- | Undocumented member. dcGatewayARN :: Lens' DescribeCache Text-dcGatewayARN = lens _dcGatewayARN (\s a -> s { _dcGatewayARN = a })+dcGatewayARN = lens _dcGatewayARN (\ s a -> s{_dcGatewayARN = a}); -data DescribeCacheResponse = DescribeCacheResponse-    { _dcrCacheAllocatedInBytes :: Maybe Integer-    , _dcrCacheDirtyPercentage  :: Maybe Double-    , _dcrCacheHitPercentage    :: Maybe Double-    , _dcrCacheMissPercentage   :: Maybe Double-    , _dcrCacheUsedPercentage   :: Maybe Double-    , _dcrDiskIds               :: List "DiskIds" Text-    , _dcrGatewayARN            :: Maybe Text-    } deriving (Eq, Ord, Read, Show)+instance AWSRequest DescribeCache where+        type Sv DescribeCache = StorageGateway+        type Rs DescribeCache = DescribeCacheResponse+        request = postJSON+        response+          = receiveJSON+              (\ s h x ->+                 DescribeCacheResponse' <$>+                   (x .?> "GatewayARN") <*> (x .?> "DiskIds" .!@ mempty)+                     <*> (x .?> "CacheUsedPercentage")+                     <*> (x .?> "CacheHitPercentage")+                     <*> (x .?> "CacheMissPercentage")+                     <*> (x .?> "CacheAllocatedInBytes")+                     <*> (x .?> "CacheDirtyPercentage")+                     <*> (pure (fromEnum s))) --- | 'DescribeCacheResponse' constructor.+instance ToHeaders DescribeCache where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.DescribeCache" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON DescribeCache where+        toJSON DescribeCache'{..}+          = object ["GatewayARN" .= _dcGatewayARN]++instance ToPath DescribeCache where+        toPath = const "/"++instance ToQuery DescribeCache where+        toQuery = const mempty++-- | /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)+    , _dcrsStatus                :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeCacheResponse' with the minimum fields required to make a request. ----- The fields accessible through corresponding lenses are:+-- Use one of the following lenses to modify other fields as desired: ----- * 'dcrCacheAllocatedInBytes' @::@ 'Maybe' 'Integer'+-- * 'dcrsGatewayARN' ----- * 'dcrCacheDirtyPercentage' @::@ 'Maybe' 'Double'+-- * 'dcrsDiskIds' ----- * 'dcrCacheHitPercentage' @::@ 'Maybe' 'Double'+-- * 'dcrsCacheUsedPercentage' ----- * 'dcrCacheMissPercentage' @::@ 'Maybe' 'Double'+-- * 'dcrsCacheHitPercentage' ----- * 'dcrCacheUsedPercentage' @::@ 'Maybe' 'Double'+-- * 'dcrsCacheMissPercentage' ----- * 'dcrDiskIds' @::@ ['Text']+-- * 'dcrsCacheAllocatedInBytes' ----- * 'dcrGatewayARN' @::@ 'Maybe' 'Text'+-- * 'dcrsCacheDirtyPercentage' ---describeCacheResponse :: DescribeCacheResponse-describeCacheResponse = DescribeCacheResponse-    { _dcrGatewayARN            = Nothing-    , _dcrDiskIds               = mempty-    , _dcrCacheAllocatedInBytes = Nothing-    , _dcrCacheUsedPercentage   = Nothing-    , _dcrCacheDirtyPercentage  = Nothing-    , _dcrCacheHitPercentage    = Nothing-    , _dcrCacheMissPercentage   = Nothing+-- * 'dcrsStatus'+describeCacheResponse+    :: Int -- ^ 'dcrsStatus'+    -> DescribeCacheResponse+describeCacheResponse pStatus_ =+    DescribeCacheResponse'+    { _dcrsGatewayARN = Nothing+    , _dcrsDiskIds = Nothing+    , _dcrsCacheUsedPercentage = Nothing+    , _dcrsCacheHitPercentage = Nothing+    , _dcrsCacheMissPercentage = Nothing+    , _dcrsCacheAllocatedInBytes = Nothing+    , _dcrsCacheDirtyPercentage = Nothing+    , _dcrsStatus = pStatus_     } -dcrCacheAllocatedInBytes :: Lens' DescribeCacheResponse (Maybe Integer)-dcrCacheAllocatedInBytes =-    lens _dcrCacheAllocatedInBytes-        (\s a -> s { _dcrCacheAllocatedInBytes = a })--dcrCacheDirtyPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrCacheDirtyPercentage =-    lens _dcrCacheDirtyPercentage (\s a -> s { _dcrCacheDirtyPercentage = a })--dcrCacheHitPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrCacheHitPercentage =-    lens _dcrCacheHitPercentage (\s a -> s { _dcrCacheHitPercentage = a })--dcrCacheMissPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrCacheMissPercentage =-    lens _dcrCacheMissPercentage (\s a -> s { _dcrCacheMissPercentage = a })--dcrCacheUsedPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrCacheUsedPercentage =-    lens _dcrCacheUsedPercentage (\s a -> s { _dcrCacheUsedPercentage = a })--dcrDiskIds :: Lens' DescribeCacheResponse [Text]-dcrDiskIds = lens _dcrDiskIds (\s a -> s { _dcrDiskIds = a }) . _List--dcrGatewayARN :: Lens' DescribeCacheResponse (Maybe Text)-dcrGatewayARN = lens _dcrGatewayARN (\s a -> s { _dcrGatewayARN = a })+-- | Undocumented member.+dcrsGatewayARN :: Lens' DescribeCacheResponse (Maybe Text)+dcrsGatewayARN = lens _dcrsGatewayARN (\ s a -> s{_dcrsGatewayARN = a}); -instance ToPath DescribeCache where-    toPath = const "/"+-- | Undocumented member.+dcrsDiskIds :: Lens' DescribeCacheResponse [Text]+dcrsDiskIds = lens _dcrsDiskIds (\ s a -> s{_dcrsDiskIds = a}) . _Default . _Coerce; -instance ToQuery DescribeCache where-    toQuery = const mempty+-- | Undocumented member.+dcrsCacheUsedPercentage :: Lens' DescribeCacheResponse (Maybe Double)+dcrsCacheUsedPercentage = lens _dcrsCacheUsedPercentage (\ s a -> s{_dcrsCacheUsedPercentage = a}); -instance ToHeaders DescribeCache+-- | Undocumented member.+dcrsCacheHitPercentage :: Lens' DescribeCacheResponse (Maybe Double)+dcrsCacheHitPercentage = lens _dcrsCacheHitPercentage (\ s a -> s{_dcrsCacheHitPercentage = a}); -instance ToJSON DescribeCache where-    toJSON DescribeCache{..} = object-        [ "GatewayARN" .= _dcGatewayARN-        ]+-- | Undocumented member.+dcrsCacheMissPercentage :: Lens' DescribeCacheResponse (Maybe Double)+dcrsCacheMissPercentage = lens _dcrsCacheMissPercentage (\ s a -> s{_dcrsCacheMissPercentage = a}); -instance AWSRequest DescribeCache where-    type Sv DescribeCache = StorageGateway-    type Rs DescribeCache = DescribeCacheResponse+-- | Undocumented member.+dcrsCacheAllocatedInBytes :: Lens' DescribeCacheResponse (Maybe Integer)+dcrsCacheAllocatedInBytes = lens _dcrsCacheAllocatedInBytes (\ s a -> s{_dcrsCacheAllocatedInBytes = a}); -    request  = post "DescribeCache"-    response = jsonResponse+-- | Undocumented member.+dcrsCacheDirtyPercentage :: Lens' DescribeCacheResponse (Maybe Double)+dcrsCacheDirtyPercentage = lens _dcrsCacheDirtyPercentage (\ s a -> s{_dcrsCacheDirtyPercentage = a}); -instance FromJSON DescribeCacheResponse where-    parseJSON = withObject "DescribeCacheResponse" $ \o -> DescribeCacheResponse-        <$> o .:? "CacheAllocatedInBytes"-        <*> o .:? "CacheDirtyPercentage"-        <*> o .:? "CacheHitPercentage"-        <*> o .:? "CacheMissPercentage"-        <*> o .:? "CacheUsedPercentage"-        <*> o .:? "DiskIds" .!= mempty-        <*> o .:? "GatewayARN"+-- | The response status code.+dcrsStatus :: Lens' DescribeCacheResponse Int+dcrsStatus = lens _dcrsStatus (\ s a -> s{_dcrsStatus = a});