amazonka-storagegateway 1.4.3 → 1.4.4

raw patch · 21 files changed

+516/−48 lines, 21 filesdep ~amazonka-coredep ~amazonka-storagegatewaydep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +32/−2
• amazonka-storagegateway.cabal +38/−7
• gen/Network/AWS/StorageGateway.hs +33/−1
• gen/Network/AWS/StorageGateway/ActivateGateway.hs +10/−3
• gen/Network/AWS/StorageGateway/AddWorkingStorage.hs +1/−0
• gen/Network/AWS/StorageGateway/CreateSnapshot.hs +4/−0
• gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs +7/−2
• gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs +2/−0
• gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs +1/−1
• gen/Network/AWS/StorageGateway/ListGateways.hs +2/−0
• gen/Network/AWS/StorageGateway/ListTapes.hs +178/−0
• gen/Network/AWS/StorageGateway/ListVolumes.hs +18/−17
• gen/Network/AWS/StorageGateway/Types.hs +16/−2
• gen/Network/AWS/StorageGateway/Types/Product.hs +141/−11
• gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs +2/−0
• gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs +4/−0
• gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs +3/−0
• gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs +5/−1
• gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs +1/−1
• src/.gitkeep +0/−0
• test/Test/AWS/Gen/StorageGateway.hs +18/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description@@ -20,12 +20,42 @@ 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 s and endpoints available for use with AWS Storage Gateway. -AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in lowercase. You must change your resource ID to lowercase to use it with the EC2 API. For example, in Storage Gateway the ID for a volume might be vol-1122AABB. When you use this ID with the EC2 API, you must change it to vol-1122aabb. Otherwise, the EC2 API might not behave as expected.+AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in lowercase. You must change your resource ID to lowercase to use it with the EC2 API. For example, in Storage Gateway the ID for a volume might be +    @+    vol-1122AABB+    @+    . When you use this ID with the EC2 API, you must change it to +    @+    vol-1122aabb+    @+    . Otherwise, the EC2 API might not behave as expected.++IDs for Storage Gateway volumes and Amazon EBS snapshots created from gateway volumes are changing to a longer format. Starting in December 2016, all new volumes and snapshots will be created with a 17-character string. Starting in April 2016, you will be able to use these longer IDs so you can test your systems with the new format. For more information, see <https://aws.amazon.com/ec2/faqs/#longer-ids Longer EC2 and EBS Resource IDs>.++For example, a volume ARN with the longer volume ID format will look like this:+++    @+    arn:aws:storagegateway:us-west-2:111122223333:gateway\/sgw-12A3456B\/volume\/vol-1122AABBCCDDEEFFG+    @+    .++A snapshot ID with the longer ID format will look like this: +    @+    snap-78e226633445566ee+    @+    .++For more information, see <https://forums.aws.amazon.com/ann.jspa?annID=3557 Announcement: Heads-up – Longer AWS Storage Gateway volume and snapshot IDs coming in 2016>.  Documentation is available via [Hackage](http://hackage.haskell.org/package/amazonka-storagegateway) and the [AWS API Reference](https://aws.amazon.com/documentation/).

@@ -1,5 +1,5 @@ name:                  amazonka-storagegateway-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Storage Gateway SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -11,7 +11,7 @@ category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10-extra-source-files:    README.md fixture/*.yaml fixture/*.proto+extra-source-files:    README.md fixture/*.yaml fixture/*.proto src/.gitkeep description:     AWS Storage Gateway Service @@ -20,13 +20,43 @@     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 s and endpoints available for use with AWS Storage Gateway. -    AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in lowercase. You must change your resource ID to lowercase to use it with the EC2 API. For example, in Storage Gateway the ID for a volume might be vol-1122AABB. When you use this ID with the EC2 API, you must change it to vol-1122aabb. Otherwise, the EC2 API might not behave as expected.+    AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in lowercase. You must change your resource ID to lowercase to use it with the EC2 API. For example, in Storage Gateway the ID for a volume might be +    @+    vol-1122AABB+    @+    . When you use this ID with the EC2 API, you must change it to +    @+    vol-1122aabb+    @+    . Otherwise, the EC2 API might not behave as expected.++    IDs for Storage Gateway volumes and Amazon EBS snapshots created from gateway volumes are changing to a longer format. Starting in December 2016, all new volumes and snapshots will be created with a 17-character string. Starting in April 2016, you will be able to use these longer IDs so you can test your systems with the new format. For more information, see <https://aws.amazon.com/ec2/faqs/#longer-ids Longer EC2 and EBS Resource IDs>.++    For example, a volume ARN with the longer volume ID format will look like this:++    +    @+    arn:aws:storagegateway:us-west-2:111122223333:gateway\/sgw-12A3456B\/volume\/vol-1122AABBCCDDEEFFG+    @     .++    A snapshot ID with the longer ID format will look like this: +    @+    snap-78e226633445566ee+    @+    .++    For more information, see <https://forums.aws.amazon.com/ann.jspa?annID=3557 Announcement: Heads-up – Longer AWS Storage Gateway volume and snapshot IDs coming in 2016>.+    .     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.@@ -91,6 +121,7 @@         , Network.AWS.StorageGateway.ListGateways         , Network.AWS.StorageGateway.ListLocalDisks         , Network.AWS.StorageGateway.ListTagsForResource+        , Network.AWS.StorageGateway.ListTapes         , Network.AWS.StorageGateway.ListVolumeInitiators         , Network.AWS.StorageGateway.ListVolumeRecoveryPoints         , Network.AWS.StorageGateway.ListVolumes@@ -116,7 +147,7 @@         , Network.AWS.StorageGateway.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-storagegateway-test@@ -136,9 +167,9 @@         , Test.AWS.StorageGateway.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-storagegateway == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-storagegateway == 1.4.4.*         , base         , bytestring         , tasty

@@ -18,12 +18,26 @@ -- 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 s and endpoints available for use with AWS Storage Gateway. ----- AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in lowercase. You must change your resource ID to lowercase to use it with the EC2 API. For example, in Storage Gateway the ID for a volume might be vol-1122AABB. When you use this ID with the EC2 API, you must change it to vol-1122aabb. Otherwise, the EC2 API might not behave as expected.+-- AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in lowercase. You must change your resource ID to lowercase to use it with the EC2 API. For example, in Storage Gateway the ID for a volume might be 'vol-1122AABB'. When you use this ID with the EC2 API, you must change it to 'vol-1122aabb'. Otherwise, the EC2 API might not behave as expected.+--+-- IDs for Storage Gateway volumes and Amazon EBS snapshots created from gateway volumes are changing to a longer format. Starting in December 2016, all new volumes and snapshots will be created with a 17-character string. Starting in April 2016, you will be able to use these longer IDs so you can test your systems with the new format. For more information, see <https://aws.amazon.com/ec2/faqs/#longer-ids Longer EC2 and EBS Resource IDs>.+--+-- For example, a volume ARN with the longer volume ID format will look like this:+--+-- 'arn:aws:storagegateway:us-west-2:111122223333:gateway\/sgw-12A3456B\/volume\/vol-1122AABBCCDDEEFFG'.+--+-- A snapshot ID with the longer ID format will look like this: 'snap-78e226633445566ee'.+--+-- For more information, see <https://forums.aws.amazon.com/ann.jspa?annID=3557 Announcement: Heads-up – Longer AWS Storage Gateway volume and snapshot IDs coming in 2016>. module Network.AWS.StorageGateway     (     -- * Service Configuration@@ -173,6 +187,9 @@     -- ** ListVolumeRecoveryPoints     , module Network.AWS.StorageGateway.ListVolumeRecoveryPoints +    -- ** ListTapes+    , module Network.AWS.StorageGateway.ListTapes+     -- ** ResetCache     , module Network.AWS.StorageGateway.ResetCache @@ -256,6 +273,7 @@     , giGatewayARN     , giGatewayOperationalState     , giGatewayName+    , giGatewayId     , giGatewayType      -- ** NetworkInterface@@ -305,6 +323,15 @@     , taCompletionTime     , taRetrievedTo +    -- ** TapeInfo+    , TapeInfo+    , tapeInfo+    , tiTapeBarcode+    , tiTapeStatus+    , tiTapeARN+    , tiGatewayARN+    , tiTapeSizeInBytes+     -- ** TapeRecoveryPointInfo     , TapeRecoveryPointInfo     , tapeRecoveryPointInfo@@ -325,7 +352,11 @@     -- ** VolumeInfo     , VolumeInfo     , volumeInfo+    , viGatewayARN     , viVolumeARN+    , viVolumeSizeInBytes+    , viVolumeId+    , viGatewayId     , viVolumeType      -- ** VolumeRecoveryPointInfo@@ -384,6 +415,7 @@ import           Network.AWS.StorageGateway.ListGateways import           Network.AWS.StorageGateway.ListLocalDisks import           Network.AWS.StorageGateway.ListTagsForResource+import           Network.AWS.StorageGateway.ListTapes import           Network.AWS.StorageGateway.ListVolumeInitiators import           Network.AWS.StorageGateway.ListVolumeRecoveryPoints import           Network.AWS.StorageGateway.ListVolumes

@@ -53,13 +53,20 @@ -- | A JSON object containing one or more of the following fields: -- -- -   < ActivateGatewayInput>ActivationKey>+-- -- -   < ActivateGatewayInput>GatewayName>+-- -- -   < ActivateGatewayInput>GatewayRegion>+-- -- -   < ActivateGatewayInput>GatewayTimezone>+-- -- -   < ActivateGatewayInput>GatewayType>+-- -- -   < ActivateGatewayInput>TapeDriveType>+-- -- -   < ActivateGatewayInput>MediumChangerType> --+-- -- /See:/ 'activateGateway' smart constructor. data ActivateGateway = ActivateGateway'     { _agMediumChangerType :: !(Maybe Text)@@ -107,13 +114,13 @@  -- | 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\"+-- Valid Values: \"STK-L700\", \"AWS-Gateway-VTL\" agMediumChangerType :: Lens' ActivateGateway (Maybe Text) agMediumChangerType = lens _agMediumChangerType (\ s a -> s{_agMediumChangerType = a});  -- | The value that indicates the type of tape drive to use for gateway-VTL. This field is optional. ----- /Valid Values/: \"IBM-ULT3580-TD5\"+-- Valid Values: \"IBM-ULT3580-TD5\" agTapeDriveType :: Lens' ActivateGateway (Maybe Text) agTapeDriveType = lens _agTapeDriveType (\ s a -> s{_agTapeDriveType = a}); @@ -135,7 +142,7 @@  -- | A value that indicates the region where you want to store the snapshot backups. The gateway region specified must be the same region as the region in your 'Host' header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/. ----- /Valid Values/: \"us-east-1\", \"us-west-1\", \"us-west-2\", \"eu-west-1\", \"eu-central-1\", \"ap-northeast-1\", \"ap-southeast-1\", \"ap-southeast-2\", \"sa-east-1\"+-- Valid Values: \"us-east-1\", \"us-west-1\", \"us-west-2\", \"eu-west-1\", \"eu-central-1\", \"ap-northeast-1\", \"ap-northeast-2\", \"ap-southeast-1\", \"ap-southeast-2\", \"sa-east-1\" agGatewayRegion :: Lens' ActivateGateway Text agGatewayRegion = lens _agGatewayRegion (\ s a -> s{_agGatewayRegion = a}); 

@@ -51,6 +51,7 @@ -- -- -   < AddWorkingStorageInput>DiskIds> --+-- -- /See:/ 'addWorkingStorage' smart constructor. data AddWorkingStorage = AddWorkingStorage'     { _awsGatewayARN :: !Text

@@ -25,6 +25,8 @@ -- 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. -- -- To list or delete a snapshot, you must use the Amazon EC2 API. For more information, see DescribeSnapshots or DeleteSnapshot in the <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/API_Operations.html EC2 API reference>.+--+-- Volume and snapshot IDs are changing to a longer length ID format. For more information, see the important note on the <http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html Welcome> page. module Network.AWS.StorageGateway.CreateSnapshot     (     -- * Creating a Request@@ -53,7 +55,9 @@ -- | A JSON object containing one or more of the following fields: -- -- -   < CreateSnapshotInput>SnapshotDescription>+-- -- -   < CreateSnapshotInput>VolumeARN>+-- -- -- /See:/ 'createSnapshot' smart constructor. data CreateSnapshot = CreateSnapshot'

@@ -56,11 +56,16 @@ -- | A JSON object containing one or more of the following fields: -- -- -   < CreateStorediSCSIVolumeInput>DiskId>+-- -- -   < CreateStorediSCSIVolumeInput>NetworkInterfaceId>+-- -- -   < CreateStorediSCSIVolumeInput>PreserveExistingData>+-- -- -   < CreateStorediSCSIVolumeInput>SnapshotId>+-- -- -   < CreateStorediSCSIVolumeInput>TargetName> --+-- -- /See:/ 'createStorediSCSIVolume' smart constructor. data CreateStorediSCSIVolume = CreateStorediSCSIVolume'     { _csscsivSnapshotId           :: !(Maybe Text)@@ -117,7 +122,7 @@  -- | 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+-- Valid Values: true, false csscsivPreserveExistingData :: Lens' CreateStorediSCSIVolume Bool csscsivPreserveExistingData = lens _csscsivPreserveExistingData (\ s a -> s{_csscsivPreserveExistingData = a}); @@ -127,7 +132,7 @@  -- | 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.+-- Valid Values: A valid IP address. csscsivNetworkInterfaceId :: Lens' CreateStorediSCSIVolume Text csscsivNetworkInterfaceId = lens _csscsivNetworkInterfaceId (\ s a -> s{_csscsivNetworkInterfaceId = a}); 

@@ -47,7 +47,9 @@ -- | A JSON object containing one or more of the following fields: -- -- -   < DeleteChapCredentialsInput>InitiatorName>+-- -- -   < DeleteChapCredentialsInput>TargetARN>+-- -- -- /See:/ 'deleteChapCredentials' smart constructor. data DeleteChapCredentials = DeleteChapCredentials'

@@ -197,7 +197,7 @@ dgirsGatewayName :: Lens' DescribeGatewayInformationResponse (Maybe Text) dgirsGatewayName = lens _dgirsGatewayName (\ s a -> s{_dgirsGatewayName = a}); --- | The unique identifier assigned to your gateway during activation. This id becomes part of the gateway Amazon Resources Name (ARN) which you use as input for other operations.+-- | The unique identifier assigned to your gateway during activation. This ID becomes part of the gateway Amazon Resource Name (ARN), which you use as input for other operations. dgirsGatewayId :: Lens' DescribeGatewayInformationResponse (Maybe Text) dgirsGatewayId = lens _dgirsGatewayId (\ s a -> s{_dgirsGatewayId = a}); 

@@ -54,7 +54,9 @@ -- | A JSON object containing zero or more of the following fields: -- -- -   < ListGatewaysInput>Limit>+-- -- -   < ListGatewaysInput>Marker>+-- -- -- /See:/ 'listGateways' smart constructor. data ListGateways = ListGateways'

@@ -0,0 +1,178 @@+{-# 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.ListTapes+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Lists virtual tapes in your virtual tape library (VTL) and your virtual tape shelf (VTS). You specify the tapes to list by specifying one or more tape Amazon Resource Names (ARNs). If you don\'t specify a tape ARN, the operation lists all virtual tapes in both your VTL and VTS.+--+-- This operation supports pagination. By default, the operation returns a maximum of up to 100 tapes. You can optionally specify the 'Limit' parameter in the body to limit the number of tapes in the response. If the number of tapes returned in the response is truncated, the response includes a 'Marker' element that you can use in your subsequent request to retrieve the next set of tapes.+module Network.AWS.StorageGateway.ListTapes+    (+    -- * Creating a Request+      listTapes+    , ListTapes+    -- * Request Lenses+    , ltMarker+    , ltLimit+    , ltTapeARNs++    -- * Destructuring the Response+    , listTapesResponse+    , ListTapesResponse+    -- * Response Lenses+    , ltrsMarker+    , ltrsTapeInfos+    , ltrsResponseStatus+    ) where++import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response+import           Network.AWS.StorageGateway.Types+import           Network.AWS.StorageGateway.Types.Product++-- | A JSON object that contains one or more of the following fields:+--+-- -   < ListTapesInput>Limit>+--+-- -   < ListTapesInput>Marker>+--+-- -   < ListTapesInput>TapeARNs>+--+--+-- /See:/ 'listTapes' smart constructor.+data ListTapes = ListTapes'+    { _ltMarker   :: !(Maybe Text)+    , _ltLimit    :: !(Maybe Nat)+    , _ltTapeARNs :: !(Maybe [Text])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListTapes' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltMarker'+--+-- * 'ltLimit'+--+-- * 'ltTapeARNs'+listTapes+    :: ListTapes+listTapes =+    ListTapes'+    { _ltMarker = Nothing+    , _ltLimit = Nothing+    , _ltTapeARNs = Nothing+    }++-- | A string that indicates the position at which to begin the returned list of tapes.+ltMarker :: Lens' ListTapes (Maybe Text)+ltMarker = lens _ltMarker (\ s a -> s{_ltMarker = a});++-- | An optional number limit for the tapes in the list returned by this call.+ltLimit :: Lens' ListTapes (Maybe Natural)+ltLimit = lens _ltLimit (\ s a -> s{_ltLimit = a}) . mapping _Nat;++-- | Undocumented member.+ltTapeARNs :: Lens' ListTapes [Text]+ltTapeARNs = lens _ltTapeARNs (\ s a -> s{_ltTapeARNs = a}) . _Default . _Coerce;++instance AWSRequest ListTapes where+        type Rs ListTapes = ListTapesResponse+        request = postJSON storageGateway+        response+          = receiveJSON+              (\ s h x ->+                 ListTapesResponse' <$>+                   (x .?> "Marker") <*> (x .?> "TapeInfos" .!@ mempty)+                     <*> (pure (fromEnum s)))++instance Hashable ListTapes++instance NFData ListTapes++instance ToHeaders ListTapes where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.ListTapes" :: ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON ListTapes where+        toJSON ListTapes'{..}+          = object+              (catMaybes+                 [("Marker" .=) <$> _ltMarker,+                  ("Limit" .=) <$> _ltLimit,+                  ("TapeARNs" .=) <$> _ltTapeARNs])++instance ToPath ListTapes where+        toPath = const "/"++instance ToQuery ListTapes where+        toQuery = const mempty++-- | A JSON object containing the following fields:+--+-- -   < ListTapesOutput>Marker>+--+-- -   < ListTapesOutput>VolumeInfos>+--+--+-- /See:/ 'listTapesResponse' smart constructor.+data ListTapesResponse = ListTapesResponse'+    { _ltrsMarker         :: !(Maybe Text)+    , _ltrsTapeInfos      :: !(Maybe [TapeInfo])+    , _ltrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ListTapesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ltrsMarker'+--+-- * 'ltrsTapeInfos'+--+-- * 'ltrsResponseStatus'+listTapesResponse+    :: Int -- ^ 'ltrsResponseStatus'+    -> ListTapesResponse+listTapesResponse pResponseStatus_ =+    ListTapesResponse'+    { _ltrsMarker = Nothing+    , _ltrsTapeInfos = Nothing+    , _ltrsResponseStatus = pResponseStatus_+    }++-- | A string that indicates the position at which to begin returning the next list of tapes. Use the marker in your next request to continue pagination of tapes. If there are no more tapes to list, this element does not appear in the response body.+ltrsMarker :: Lens' ListTapesResponse (Maybe Text)+ltrsMarker = lens _ltrsMarker (\ s a -> s{_ltrsMarker = a});++-- | Undocumented member.+ltrsTapeInfos :: Lens' ListTapesResponse [TapeInfo]+ltrsTapeInfos = lens _ltrsTapeInfos (\ s a -> s{_ltrsTapeInfos = a}) . _Default . _Coerce;++-- | The response status code.+ltrsResponseStatus :: Lens' ListTapesResponse Int+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a});++instance NFData ListTapesResponse

@@ -29,9 +29,9 @@       listVolumes     , ListVolumes     -- * Request Lenses+    , lvGatewayARN     , lvMarker     , lvLimit-    , lvGatewayARN      -- * Destructuring the Response     , listVolumesResponse@@ -54,34 +54,39 @@ -- | A JSON object that contains one or more of the following fields: -- -- -   < ListVolumesInput>Limit>+-- -- -   < ListVolumesInput>Marker> --+-- -- /See:/ 'listVolumes' smart constructor. data ListVolumes = ListVolumes'-    { _lvMarker     :: !(Maybe Text)+    { _lvGatewayARN :: !(Maybe Text)+    , _lvMarker     :: !(Maybe Text)     , _lvLimit      :: !(Maybe Nat)-    , _lvGatewayARN :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ListVolumes' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'lvGatewayARN'+-- -- * 'lvMarker' -- -- * 'lvLimit'------ * 'lvGatewayARN' listVolumes-    :: Text -- ^ 'lvGatewayARN'-    -> ListVolumes-listVolumes pGatewayARN_ =+    :: ListVolumes+listVolumes =     ListVolumes'-    { _lvMarker = Nothing+    { _lvGatewayARN = Nothing+    , _lvMarker = Nothing     , _lvLimit = Nothing-    , _lvGatewayARN = pGatewayARN_     } +-- | Undocumented member.+lvGatewayARN :: Lens' ListVolumes (Maybe Text)+lvGatewayARN = lens _lvGatewayARN (\ s a -> s{_lvGatewayARN = a});+ -- | A string that indicates the position at which to begin the returned list of volumes. Obtain the marker from the response of a previous List iSCSI Volumes request. lvMarker :: Lens' ListVolumes (Maybe Text) lvMarker = lens _lvMarker (\ s a -> s{_lvMarker = a});@@ -90,10 +95,6 @@ lvLimit :: Lens' ListVolumes (Maybe Natural) lvLimit = lens _lvLimit (\ s a -> s{_lvLimit = a}) . mapping _Nat; --- | Undocumented member.-lvGatewayARN :: Lens' ListVolumes Text-lvGatewayARN = lens _lvGatewayARN (\ s a -> s{_lvGatewayARN = a});- instance AWSPager ListVolumes where         page rq rs           | stop (rs ^. lvrsMarker) = Nothing@@ -130,9 +131,9 @@         toJSON ListVolumes'{..}           = object               (catMaybes-                 [("Marker" .=) <$> _lvMarker,-                  ("Limit" .=) <$> _lvLimit,-                  Just ("GatewayARN" .= _lvGatewayARN)])+                 [("GatewayARN" .=) <$> _lvGatewayARN,+                  ("Marker" .=) <$> _lvMarker,+                  ("Limit" .=) <$> _lvLimit])  instance ToPath ListVolumes where         toPath = const "/"

@@ -64,6 +64,7 @@     , giGatewayARN     , giGatewayOperationalState     , giGatewayName+    , giGatewayId     , giGatewayType      -- * NetworkInterface@@ -113,6 +114,15 @@     , taCompletionTime     , taRetrievedTo +    -- * TapeInfo+    , TapeInfo+    , tapeInfo+    , tiTapeBarcode+    , tiTapeStatus+    , tiTapeARN+    , tiGatewayARN+    , tiTapeSizeInBytes+     -- * TapeRecoveryPointInfo     , TapeRecoveryPointInfo     , tapeRecoveryPointInfo@@ -133,7 +143,11 @@     -- * VolumeInfo     , VolumeInfo     , volumeInfo+    , viGatewayARN     , viVolumeARN+    , viVolumeSizeInBytes+    , viVolumeId+    , viGatewayId     , viVolumeType      -- * VolumeRecoveryPointInfo@@ -194,11 +208,11 @@       | has (hasStatus 509) e = Just "limit_exceeded"       | otherwise = Nothing --- | An exception occurred because an invalid gateway request was issued to the service. See the error and message fields for more information.+-- | An exception occurred because an invalid gateway request was issued to the service. For more information, see the error and message fields. _InvalidGatewayRequestException :: AsError a => Getting (First ServiceError) a ServiceError _InvalidGatewayRequestException =     _ServiceError . hasCode "InvalidGatewayRequestException" --- | An internal server error has occurred during the request. See the error and message fields for more information.+-- | An internal server error has occurred during the request. For more information, see the error and message fields. _InternalServerError :: AsError a => Getting (First ServiceError) a ServiceError _InternalServerError = _ServiceError . hasCode "InternalServerError"

@@ -149,7 +149,7 @@  -- | The Amazon Resource Name (ARN) of the volume. ----- /Valid Values/: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-).+-- Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-). ciTargetARN :: Lens' ChapInfo (Maybe Text) ciTargetARN = lens _ciTargetARN (\ s a -> s{_ciTargetARN = a}); @@ -325,11 +325,14 @@  instance NFData Disk --- | /See:/ 'gatewayInfo' smart constructor.+-- | Describes a gateway object.+--+-- /See:/ 'gatewayInfo' smart constructor. data GatewayInfo = GatewayInfo'     { _giGatewayARN              :: !(Maybe Text)     , _giGatewayOperationalState :: !(Maybe Text)     , _giGatewayName             :: !(Maybe Text)+    , _giGatewayId               :: !(Maybe Text)     , _giGatewayType             :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -343,6 +346,8 @@ -- -- * 'giGatewayName' --+-- * 'giGatewayId'+-- -- * 'giGatewayType' gatewayInfo     :: GatewayInfo@@ -351,22 +356,29 @@     { _giGatewayARN = Nothing     , _giGatewayOperationalState = Nothing     , _giGatewayName = Nothing+    , _giGatewayId = Nothing     , _giGatewayType = Nothing     } --- | Undocumented member.+-- | The Amazon Resource Name (ARN) of the gateway. Use the < ListGateways> operation to return a list of gateways for your account and region. giGatewayARN :: Lens' GatewayInfo (Maybe Text) giGatewayARN = lens _giGatewayARN (\ s a -> s{_giGatewayARN = a}); --- | Undocumented member.+-- | The state of the gateway.+--+-- Valid Values: DISABLED or ACTIVE giGatewayOperationalState :: Lens' GatewayInfo (Maybe Text) giGatewayOperationalState = lens _giGatewayOperationalState (\ s a -> s{_giGatewayOperationalState = a}); --- | Undocumented member.+-- | The name of the gateway. giGatewayName :: Lens' GatewayInfo (Maybe Text) giGatewayName = lens _giGatewayName (\ s a -> s{_giGatewayName = a}); --- | Undocumented member.+-- | The unique identifier assigned to your gateway during activation. This ID becomes part of the gateway Amazon Resource Name (ARN), which you use as input for other operations.+giGatewayId :: Lens' GatewayInfo (Maybe Text)+giGatewayId = lens _giGatewayId (\ s a -> s{_giGatewayId = a});++-- | The type of the gateway. giGatewayType :: Lens' GatewayInfo (Maybe Text) giGatewayType = lens _giGatewayType (\ s a -> s{_giGatewayType = a}); @@ -378,6 +390,7 @@                    (x .:? "GatewayARN") <*>                      (x .:? "GatewayOperationalState")                      <*> (x .:? "GatewayName")+                     <*> (x .:? "GatewayId")                      <*> (x .:? "GatewayType"))  instance Hashable GatewayInfo@@ -759,6 +772,75 @@  instance NFData TapeArchive +-- | Describes a virtual tape.+--+-- /See:/ 'tapeInfo' smart constructor.+data TapeInfo = TapeInfo'+    { _tiTapeBarcode     :: !(Maybe Text)+    , _tiTapeStatus      :: !(Maybe Text)+    , _tiTapeARN         :: !(Maybe Text)+    , _tiGatewayARN      :: !(Maybe Text)+    , _tiTapeSizeInBytes :: !(Maybe Integer)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'TapeInfo' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'tiTapeBarcode'+--+-- * 'tiTapeStatus'+--+-- * 'tiTapeARN'+--+-- * 'tiGatewayARN'+--+-- * 'tiTapeSizeInBytes'+tapeInfo+    :: TapeInfo+tapeInfo =+    TapeInfo'+    { _tiTapeBarcode = Nothing+    , _tiTapeStatus = Nothing+    , _tiTapeARN = Nothing+    , _tiGatewayARN = Nothing+    , _tiTapeSizeInBytes = Nothing+    }++-- | The barcode that identifies a specific virtual tape.+tiTapeBarcode :: Lens' TapeInfo (Maybe Text)+tiTapeBarcode = lens _tiTapeBarcode (\ s a -> s{_tiTapeBarcode = a});++-- | The status of the tape.+tiTapeStatus :: Lens' TapeInfo (Maybe Text)+tiTapeStatus = lens _tiTapeStatus (\ s a -> s{_tiTapeStatus = a});++-- | The Amazon Resource Name (ARN) of a virtual tape.+tiTapeARN :: Lens' TapeInfo (Maybe Text)+tiTapeARN = lens _tiTapeARN (\ s a -> s{_tiTapeARN = a});++-- | The Amazon Resource Name (ARN) of the gateway. Use the < ListGateways> operation to return a list of gateways for your account and region.+tiGatewayARN :: Lens' TapeInfo (Maybe Text)+tiGatewayARN = lens _tiGatewayARN (\ s a -> s{_tiGatewayARN = a});++-- | The size, in bytes, of a virtual tape.+tiTapeSizeInBytes :: Lens' TapeInfo (Maybe Integer)+tiTapeSizeInBytes = lens _tiTapeSizeInBytes (\ s a -> s{_tiTapeSizeInBytes = a});++instance FromJSON TapeInfo where+        parseJSON+          = withObject "TapeInfo"+              (\ x ->+                 TapeInfo' <$>+                   (x .:? "TapeBarcode") <*> (x .:? "TapeStatus") <*>+                     (x .:? "TapeARN")+                     <*> (x .:? "GatewayARN")+                     <*> (x .:? "TapeSizeInBytes"))++instance Hashable TapeInfo++instance NFData TapeInfo+ -- | Describes a recovery point. -- -- /See:/ 'tapeRecoveryPointInfo' smart constructor.@@ -892,31 +974,75 @@  instance NFData VTLDevice --- | /See:/ 'volumeInfo' smart constructor.+-- | Describes a storage volume object.+--+-- /See:/ 'volumeInfo' smart constructor. data VolumeInfo = VolumeInfo'-    { _viVolumeARN  :: !(Maybe Text)-    , _viVolumeType :: !(Maybe Text)+    { _viGatewayARN        :: !(Maybe Text)+    , _viVolumeARN         :: !(Maybe Text)+    , _viVolumeSizeInBytes :: !(Maybe Integer)+    , _viVolumeId          :: !(Maybe Text)+    , _viGatewayId         :: !(Maybe Text)+    , _viVolumeType        :: !(Maybe Text)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'VolumeInfo' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'viGatewayARN'+-- -- * 'viVolumeARN' --+-- * 'viVolumeSizeInBytes'+--+-- * 'viVolumeId'+--+-- * 'viGatewayId'+-- -- * 'viVolumeType' volumeInfo     :: VolumeInfo volumeInfo =     VolumeInfo'-    { _viVolumeARN = Nothing+    { _viGatewayARN = Nothing+    , _viVolumeARN = Nothing+    , _viVolumeSizeInBytes = Nothing+    , _viVolumeId = Nothing+    , _viGatewayId = Nothing     , _viVolumeType = Nothing     }  -- | Undocumented member.+viGatewayARN :: Lens' VolumeInfo (Maybe Text)+viGatewayARN = lens _viGatewayARN (\ s a -> s{_viGatewayARN = a});++-- | The Amazon Resource Name (ARN) for the storage volume. For example, the following is a valid ARN:+--+-- 'arn:aws:storagegateway:us-east-1:111122223333:gateway\/sgw-12A3456B\/volume\/vol-1122AABB'+--+-- Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-). viVolumeARN :: Lens' VolumeInfo (Maybe Text) viVolumeARN = lens _viVolumeARN (\ s a -> s{_viVolumeARN = a}); +-- | The size, in bytes, of the volume.+--+-- Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-).+viVolumeSizeInBytes :: Lens' VolumeInfo (Maybe Integer)+viVolumeSizeInBytes = lens _viVolumeSizeInBytes (\ s a -> s{_viVolumeSizeInBytes = a});++-- | The unique identifier assigned to the volume. This ID becomes part of the volume Amazon Resource Name (ARN), which you use as input for other operations.+--+-- Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-).+viVolumeId :: Lens' VolumeInfo (Maybe Text)+viVolumeId = lens _viVolumeId (\ s a -> s{_viVolumeId = a});++-- | The unique identifier assigned to your gateway during activation. This ID becomes part of the gateway Amazon Resource Name (ARN), which you use as input for other operations.+--+-- Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-).+viGatewayId :: Lens' VolumeInfo (Maybe Text)+viGatewayId = lens _viGatewayId (\ s a -> s{_viGatewayId = a});+ -- | Undocumented member. viVolumeType :: Lens' VolumeInfo (Maybe Text) viVolumeType = lens _viVolumeType (\ s a -> s{_viVolumeType = a});@@ -926,7 +1052,11 @@           = withObject "VolumeInfo"               (\ x ->                  VolumeInfo' <$>-                   (x .:? "VolumeARN") <*> (x .:? "VolumeType"))+                   (x .:? "GatewayARN") <*> (x .:? "VolumeARN") <*>+                     (x .:? "VolumeSizeInBytes")+                     <*> (x .:? "VolumeId")+                     <*> (x .:? "GatewayId")+                     <*> (x .:? "VolumeType"))  instance Hashable VolumeInfo 

@@ -51,7 +51,9 @@ -- | A JSON object containing one or more of the following fields: -- -- -   < UpdateBandwidthRateLimitInput>AverageDownloadRateLimitInBitsPerSec>+-- -- -   < UpdateBandwidthRateLimitInput>AverageUploadRateLimitInBitsPerSec>+-- -- -- /See:/ 'updateBandwidthRateLimit' smart constructor. data UpdateBandwidthRateLimit = UpdateBandwidthRateLimit'

@@ -51,9 +51,13 @@ -- | A JSON object containing one or more of the following fields: -- -- -   < UpdateChapCredentialsInput>InitiatorName>+-- -- -   < UpdateChapCredentialsInput>SecretToAuthenticateInitiator>+-- -- -   < UpdateChapCredentialsInput>SecretToAuthenticateTarget>+-- -- -   < UpdateChapCredentialsInput>TargetARN>+-- -- -- /See:/ 'updateChapCredentials' smart constructor. data UpdateChapCredentials = UpdateChapCredentials'

@@ -48,8 +48,11 @@ -- | A JSON object containing the following fields: -- -- -   < UpdateMaintenanceStartTimeInput>DayOfWeek>+-- -- -   < UpdateMaintenanceStartTimeInput>HourOfDay>+-- -- -   < UpdateMaintenanceStartTimeInput>MinuteOfHour>+-- -- -- /See:/ 'updateMaintenanceStartTime' smart constructor. data UpdateMaintenanceStartTime = UpdateMaintenanceStartTime'

@@ -52,10 +52,14 @@ -- | A JSON object containing one or more of the following fields: -- -- -   < UpdateSnapshotScheduleInput>Description>+-- -- -   < UpdateSnapshotScheduleInput>RecurrenceInHours>+-- -- -   < UpdateSnapshotScheduleInput>StartAt>+-- -- -   < UpdateSnapshotScheduleInput>VolumeARN> --+-- -- /See:/ 'updateSnapshotSchedule' smart constructor. data UpdateSnapshotSchedule = UpdateSnapshotSchedule'     { _ussDescription       :: !(Maybe Text)@@ -167,7 +171,7 @@     , _ussrsResponseStatus = pResponseStatus_     } --- | Undocumented member.+-- | ussrsVolumeARN :: Lens' UpdateSnapshotScheduleResponse (Maybe Text) ussrsVolumeARN = lens _ussrsVolumeARN (\ s a -> s{_ussrsVolumeARN = a}); 

@@ -72,7 +72,7 @@  -- | The type of medium changer you want to select. ----- /Valid Values/: \"STK-L700\", \"AWS-Gateway-VTL\"+-- Valid Values: \"STK-L700\", \"AWS-Gateway-VTL\" uvtldtDeviceType :: Lens' UpdateVTLDeviceType Text uvtldtDeviceType = lens _uvtldtDeviceType (\ s a -> s{_uvtldtDeviceType = a}); 

@@ -157,6 +157,9 @@ --         , requestListVolumeRecoveryPoints $ --             listVolumeRecoveryPoints --+--         , requestListTapes $+--             listTapes+-- --         , requestResetCache $ --             resetCache --@@ -325,6 +328,9 @@ --         , responseListVolumeRecoveryPoints $ --             listVolumeRecoveryPointsResponse --+--         , responseListTapes $+--             listTapesResponse+-- --         , responseResetCache $ --             resetCacheResponse --@@ -581,6 +587,11 @@     "ListVolumeRecoveryPoints"     "fixture/ListVolumeRecoveryPoints.yaml" +requestListTapes :: ListTapes -> TestTree+requestListTapes = req+    "ListTapes"+    "fixture/ListTapes.yaml"+ requestResetCache :: ResetCache -> TestTree requestResetCache = req     "ResetCache"@@ -943,6 +954,13 @@     "fixture/ListVolumeRecoveryPointsResponse.proto"     storageGateway     (Proxy :: Proxy ListVolumeRecoveryPoints)++responseListTapes :: ListTapesResponse -> TestTree+responseListTapes = res+    "ListTapesResponse"+    "fixture/ListTapesResponse.proto"+    storageGateway+    (Proxy :: Proxy ListTapes)  responseResetCache :: ResetCacheResponse -> TestTree responseResetCache = res