amazonka-storagegateway 1.5.0 → 1.6.0

raw patch · 76 files changed

+1374/−1005 lines, 76 filesdep ~amazonka-coredep ~amazonka-testPVP ok

version bump matches the API change (PVP)

Dependency ranges changed: amazonka-core, amazonka-test

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-storagegateway.cabal +6/−5
• fixture/NotifyWhenUploaded.yaml +10/−0
• fixture/NotifyWhenUploadedResponse.proto +0/−0
• gen/Network/AWS/StorageGateway.hs +13/−1
• gen/Network/AWS/StorageGateway/ActivateGateway.hs +24/−24
• gen/Network/AWS/StorageGateway/AddCache.hs +7/−7
• gen/Network/AWS/StorageGateway/AddTagsToResource.hs +6/−6
• gen/Network/AWS/StorageGateway/AddUploadBuffer.hs +7/−7
• gen/Network/AWS/StorageGateway/AddWorkingStorage.hs +7/−7
• gen/Network/AWS/StorageGateway/CancelArchival.hs +7/−7
• gen/Network/AWS/StorageGateway/CancelRetrieval.hs +7/−7
• gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs +24/−24
• gen/Network/AWS/StorageGateway/CreateNFSFileShare.hs +63/−30
• gen/Network/AWS/StorageGateway/CreateSnapshot.hs +12/−12
• gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs +16/−16
• gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs +24/−24
• gen/Network/AWS/StorageGateway/CreateTapeWithBarcode.hs +12/−12
• gen/Network/AWS/StorageGateway/CreateTapes.hs +16/−16
• gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs +7/−7
• gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs +11/−11
• gen/Network/AWS/StorageGateway/DeleteFileShare.hs +10/−10
• gen/Network/AWS/StorageGateway/DeleteGateway.hs +7/−7
• gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs +6/−6
• gen/Network/AWS/StorageGateway/DeleteTape.hs +7/−7
• gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs +6/−6
• gen/Network/AWS/StorageGateway/DeleteVolume.hs +6/−6
• gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs +11/−11
• gen/Network/AWS/StorageGateway/DescribeCache.hs +20/−20
• gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs +8/−8
• gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs +5/−5
• gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs +24/−24
• gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs +15/−15
• gen/Network/AWS/StorageGateway/DescribeNFSFileShares.hs +8/−8
• gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs +16/−16
• gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs +8/−8
• gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs +13/−13
• gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs +18/−15
• gen/Network/AWS/StorageGateway/DescribeTapes.hs +18/−18
• gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs +14/−14
• gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs +20/−20
• gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs +14/−14
• gen/Network/AWS/StorageGateway/DisableGateway.hs +6/−6
• gen/Network/AWS/StorageGateway/ListFileShares.hs +15/−15
• gen/Network/AWS/StorageGateway/ListGateways.hs +10/−10
• gen/Network/AWS/StorageGateway/ListLocalDisks.hs +9/−9
• gen/Network/AWS/StorageGateway/ListTagsForResource.hs +18/−18
• gen/Network/AWS/StorageGateway/ListTapes.hs +12/−12
• gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs +6/−6
• gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs +10/−10
• gen/Network/AWS/StorageGateway/ListVolumes.hs +15/−15
• gen/Network/AWS/StorageGateway/NotifyWhenUploaded.hs +151/−0
• gen/Network/AWS/StorageGateway/RefreshCache.hs +6/−6
• gen/Network/AWS/StorageGateway/RemoveTagsFromResource.hs +8/−8
• gen/Network/AWS/StorageGateway/ResetCache.hs +6/−6
• gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs +8/−8
• gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs +8/−8
• gen/Network/AWS/StorageGateway/SetLocalConsolePassword.hs +9/−9
• gen/Network/AWS/StorageGateway/ShutdownGateway.hs +5/−5
• gen/Network/AWS/StorageGateway/StartGateway.hs +5/−5
• gen/Network/AWS/StorageGateway/Types.hs +26/−16
• gen/Network/AWS/StorageGateway/Types/Product.hs +293/−245
• gen/Network/AWS/StorageGateway/Types/Sum.hs +49/−1
• gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs +11/−11
• gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs +17/−17
• gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs +15/−15
• gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs +5/−5
• gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs +13/−13
• gen/Network/AWS/StorageGateway/UpdateNFSFileShare.hs +57/−24
• gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs +14/−14
• gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs +10/−8
• gen/Network/AWS/StorageGateway/Waiters.hs +1/−1
• test/Main.hs +1/−1
• test/Test/AWS/Gen/StorageGateway.hs +19/−1
• test/Test/AWS/StorageGateway.hs +1/−1
• test/Test/AWS/StorageGateway/Internal.hs +1/−1

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

@@ -1,5 +1,5 @@ name:                  amazonka-storagegateway-version:               1.5.0+version:               1.6.0 synopsis:              Amazon Storage Gateway SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -7,7 +7,7 @@ license-file:          LICENSE author:                Brendan Hay maintainer:            Brendan Hay <brendan.g.hay+amazonka@gmail.com>-copyright:             Copyright (c) 2013-2017 Brendan Hay+copyright:             Copyright (c) 2013-2018 Brendan Hay category:              Network, AWS, Cloud, Distributed Computing build-type:            Simple cabal-version:         >= 1.10@@ -91,6 +91,7 @@         , Network.AWS.StorageGateway.ListVolumeInitiators         , Network.AWS.StorageGateway.ListVolumeRecoveryPoints         , Network.AWS.StorageGateway.ListVolumes+        , Network.AWS.StorageGateway.NotifyWhenUploaded         , Network.AWS.StorageGateway.RefreshCache         , Network.AWS.StorageGateway.RemoveTagsFromResource         , Network.AWS.StorageGateway.ResetCache@@ -115,7 +116,7 @@         , Network.AWS.StorageGateway.Types.Sum      build-depends:-          amazonka-core == 1.5.0.*+          amazonka-core == 1.6.0.*         , base          >= 4.7     && < 5  test-suite amazonka-storagegateway-test@@ -135,8 +136,8 @@         , Test.AWS.StorageGateway.Internal      build-depends:-          amazonka-core == 1.5.0.*-        , amazonka-test == 1.5.0.*+          amazonka-core == 1.6.0.*+        , amazonka-test == 1.6.0.*         , amazonka-storagegateway         , base         , bytestring

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

@@ -5,7 +5,7 @@  -- | -- Module      : Network.AWS.StorageGateway--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -101,6 +101,9 @@     -- ** ListTagsForResource     , module Network.AWS.StorageGateway.ListTagsForResource +    -- ** NotifyWhenUploaded+    , module Network.AWS.StorageGateway.NotifyWhenUploaded+     -- ** UpdateGatewayInformation     , module Network.AWS.StorageGateway.UpdateGatewayInformation @@ -250,6 +253,9 @@      -- * Types +    -- ** ObjectACL+    , ObjectACL (..)+     -- ** CachediSCSIVolume     , CachediSCSIVolume     , cachediSCSIVolume@@ -259,6 +265,7 @@     , cscsivVolumeARN     , cscsivVolumeProgress     , cscsivVolumeSizeInBytes+    , cscsivVolumeUsedInBytes     , cscsivCreatedDate     , cscsivVolumeId     , cscsivVolumeType@@ -322,15 +329,18 @@     , nfsfsiKMSKey     , nfsfsiGatewayARN     , nfsfsiPath+    , nfsfsiObjectACL     , nfsfsiKMSEncrypted     , nfsfsiFileShareId     , nfsfsiFileShareARN     , nfsfsiDefaultStorageClass     , nfsfsiRole     , nfsfsiSquash+    , nfsfsiRequesterPays     , nfsfsiNFSFileShareDefaults     , nfsfsiLocationARN     , nfsfsiClientList+    , nfsfsiGuessMIMETypeEnabled     , nfsfsiReadOnly      -- ** NetworkInterface@@ -350,6 +360,7 @@     , sscsivVolumeARN     , sscsivVolumeProgress     , sscsivVolumeSizeInBytes+    , sscsivVolumeUsedInBytes     , sscsivCreatedDate     , sscsivVolumeId     , sscsivVolumeDiskId@@ -485,6 +496,7 @@ import Network.AWS.StorageGateway.ListVolumeInitiators import Network.AWS.StorageGateway.ListVolumeRecoveryPoints import Network.AWS.StorageGateway.ListVolumes+import Network.AWS.StorageGateway.NotifyWhenUploaded import Network.AWS.StorageGateway.RefreshCache import Network.AWS.StorageGateway.RemoveTagsFromResource import Network.AWS.StorageGateway.ResetCache

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ActivateGateway--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Activates the gateway you previously deployed on your host. For more information, see <http://docs.aws.amazon.com/storagegateway/latest/userguide/GettingStartedActivateGateway-common.html Activate the AWS Storage Gateway> . In the activation process, you specify information such as the region you want to use for storing snapshots or tapes, the time zone for scheduled snapshots the gateway snapshot schedule window, an activation key, and a name for your gateway. The activation process also associates your gateway with your account; for more information, see 'UpdateGatewayInformation' .+-- Activates the gateway you previously deployed on your host. In the activation process, you specify information such as the region you want to use for storing snapshots or tapes, the time zone for scheduled snapshots the gateway snapshot schedule window, an activation key, and a name for your gateway. The activation process also associates your gateway with your account; for more information, see 'UpdateGatewayInformation' . -- -- module Network.AWS.StorageGateway.ActivateGateway@@ -92,13 +92,13 @@ -- -- * 'agGatewayType' - A value that defines the type of gateway to activate. The type specified is critical to all later functions of the gateway and cannot be changed after activation. The default value is @STORED@ .  Valid Values: "STORED", "CACHED", "VTL", "FILE_S3" ----- * 'agActivationKey' - Your gateway activation key. You can obtain the activation key by sending an HTTP GET request with redirects enabled to the gateway IP address (port 80). The redirect URL returned in the response provides you the activation key for your gateway in the query string parameter @activationKey@ . It may also include other activation-related parameters, however, these are merely defaults -- the arguments you pass to the @ActivateGateway@ API call determine the actual configuration of your gateway.+-- * 'agActivationKey' - Your gateway activation key. You can obtain the activation key by sending an HTTP GET request with redirects enabled to the gateway IP address (port 80). The redirect URL returned in the response provides you the activation key for your gateway in the query string parameter @activationKey@ . It may also include other activation-related parameters, however, these are merely defaults -- the arguments you pass to the @ActivateGateway@ API call determine the actual configuration of your gateway.  For more information, see https://docs.aws.amazon.com/storagegateway/latest/userguide/get-activation-key.html in the Storage Gateway User Guide. -- -- * 'agGatewayName' - The name you configured for your gateway. -- -- * 'agGatewayTimezone' - A value that indicates the time zone you want to set for the gateway. The time zone is of the format "GMT-hr:mm" or "GMT+hr:mm". For example, GMT-4:00 indicates the time is 4 hours behind GMT. GMT+2:00 indicates the time is 2 hours ahead of GMT. The time zone is used, for example, for scheduling snapshots and your gateway's maintenance schedule. ----- * 'agGatewayRegion' - A value that indicates the region where you want to store your data. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-east-2", "us-west-1", "us-west-2", "ca-central-1", "eu-west-1", "eu-central-1", "eu-west-2", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "ap-south-1", "sa-east-1"+-- * 'agGatewayRegion' - A value that indicates the region where you want to store your data. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-east-2", "us-west-1", "us-west-2", "ca-central-1", "eu-west-1", "eu-central-1", "eu-west-2", "eu-west-3", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "ap-south-1", "sa-east-1" activateGateway     :: Text -- ^ 'agActivationKey'     -> Text -- ^ 'agGatewayName'@@ -107,43 +107,43 @@     -> ActivateGateway activateGateway pActivationKey_ pGatewayName_ pGatewayTimezone_ pGatewayRegion_ =   ActivateGateway'-  { _agMediumChangerType = Nothing-  , _agTapeDriveType = Nothing-  , _agGatewayType = Nothing-  , _agActivationKey = pActivationKey_-  , _agGatewayName = pGatewayName_-  , _agGatewayTimezone = pGatewayTimezone_-  , _agGatewayRegion = pGatewayRegion_-  }+    { _agMediumChangerType = Nothing+    , _agTapeDriveType = Nothing+    , _agGatewayType = Nothing+    , _agActivationKey = pActivationKey_+    , _agGatewayName = pGatewayName_+    , _agGatewayTimezone = pGatewayTimezone_+    , _agGatewayRegion = pGatewayRegion_+    }   -- | The value that indicates the type of medium changer to use for tape gateway. This field is optional. Valid Values: "STK-L700", "AWS-Gateway-VTL" agMediumChangerType :: Lens' ActivateGateway (Maybe Text)-agMediumChangerType = lens _agMediumChangerType (\ s a -> s{_agMediumChangerType = a});+agMediumChangerType = lens _agMediumChangerType (\ s a -> s{_agMediumChangerType = a})  -- | The value that indicates the type of tape drive to use for tape gateway. This field is optional. Valid Values: "IBM-ULT3580-TD5" agTapeDriveType :: Lens' ActivateGateway (Maybe Text)-agTapeDriveType = lens _agTapeDriveType (\ s a -> s{_agTapeDriveType = a});+agTapeDriveType = lens _agTapeDriveType (\ s a -> s{_agTapeDriveType = a})  -- | A value that defines the type of gateway to activate. The type specified is critical to all later functions of the gateway and cannot be changed after activation. The default value is @STORED@ .  Valid Values: "STORED", "CACHED", "VTL", "FILE_S3" agGatewayType :: Lens' ActivateGateway (Maybe Text)-agGatewayType = lens _agGatewayType (\ s a -> s{_agGatewayType = a});+agGatewayType = lens _agGatewayType (\ s a -> s{_agGatewayType = 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.+-- | 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.  For more information, see https://docs.aws.amazon.com/storagegateway/latest/userguide/get-activation-key.html in the Storage Gateway User Guide. agActivationKey :: Lens' ActivateGateway Text-agActivationKey = lens _agActivationKey (\ s a -> s{_agActivationKey = a});+agActivationKey = lens _agActivationKey (\ s a -> s{_agActivationKey = a})  -- | The name you configured for your gateway. agGatewayName :: Lens' ActivateGateway Text-agGatewayName = lens _agGatewayName (\ s a -> s{_agGatewayName = a});+agGatewayName = lens _agGatewayName (\ s a -> s{_agGatewayName = a})  -- | A value that indicates the time zone you want to set for the gateway. The time zone is of the format "GMT-hr:mm" or "GMT+hr:mm". For example, GMT-4:00 indicates the time is 4 hours behind GMT. GMT+2:00 indicates the time is 2 hours ahead of GMT. The time zone is used, for example, for scheduling snapshots and your gateway's maintenance schedule. agGatewayTimezone :: Lens' ActivateGateway Text-agGatewayTimezone = lens _agGatewayTimezone (\ s a -> s{_agGatewayTimezone = a});+agGatewayTimezone = lens _agGatewayTimezone (\ s a -> s{_agGatewayTimezone = a}) --- | A value that indicates the region where you want to store your data. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-east-2", "us-west-1", "us-west-2", "ca-central-1", "eu-west-1", "eu-central-1", "eu-west-2", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "ap-south-1", "sa-east-1"+-- | A value that indicates the region where you want to store your data. The gateway region specified must be the same region as the region in your @Host@ header in the request. For more information about available regions and endpoints for AWS Storage Gateway, see <http://docs.aws.amazon.com/general/latest/gr/rande.html#sg_region Regions and Endpoints> in the /Amazon Web Services Glossary/ . Valid Values: "us-east-1", "us-east-2", "us-west-1", "us-west-2", "ca-central-1", "eu-west-1", "eu-central-1", "eu-west-2", "eu-west-3", "ap-northeast-1", "ap-northeast-2", "ap-southeast-1", "ap-southeast-2", "ap-south-1", "sa-east-1" agGatewayRegion :: Lens' ActivateGateway Text-agGatewayRegion = lens _agGatewayRegion (\ s a -> s{_agGatewayRegion = a});+agGatewayRegion = lens _agGatewayRegion (\ s a -> s{_agGatewayRegion = a})  instance AWSRequest ActivateGateway where         type Rs ActivateGateway = ActivateGatewayResponse@@ -209,15 +209,15 @@     -> ActivateGatewayResponse activateGatewayResponse pResponseStatus_ =   ActivateGatewayResponse'-  {_agrsGatewayARN = Nothing, _agrsResponseStatus = pResponseStatus_}+    {_agrsGatewayARN = Nothing, _agrsResponseStatus = pResponseStatus_}   -- | Undocumented member. agrsGatewayARN :: Lens' ActivateGatewayResponse (Maybe Text)-agrsGatewayARN = lens _agrsGatewayARN (\ s a -> s{_agrsGatewayARN = a});+agrsGatewayARN = lens _agrsGatewayARN (\ s a -> s{_agrsGatewayARN = a})  -- | -- | The response status code. agrsResponseStatus :: Lens' ActivateGatewayResponse Int-agrsResponseStatus = lens _agrsResponseStatus (\ s a -> s{_agrsResponseStatus = a});+agrsResponseStatus = lens _agrsResponseStatus (\ s a -> s{_agrsResponseStatus = a})  instance NFData ActivateGatewayResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.AddCache--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Configures one or more gateway local disks as cache for a gateway. This operation is only supported in the cached volume, tape and file gateway architectures (see <http://docs.aws.amazon.com/storagegateway/latest/userguide/StorageGatewayConcepts.html Storage Gateway Concepts> ).+-- Configures one or more gateway local disks as cache for a gateway. This operation is only supported in the cached volume, tape and file gateway type (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.@@ -70,11 +70,11 @@  -- | Undocumented member. acGatewayARN :: Lens' AddCache Text-acGatewayARN = lens _acGatewayARN (\ s a -> s{_acGatewayARN = a});+acGatewayARN = lens _acGatewayARN (\ s a -> s{_acGatewayARN = a})  -- | Undocumented member. acDiskIds :: Lens' AddCache [Text]-acDiskIds = lens _acDiskIds (\ s a -> s{_acDiskIds = a}) . _Coerce;+acDiskIds = lens _acDiskIds (\ s a -> s{_acDiskIds = a}) . _Coerce  instance AWSRequest AddCache where         type Rs AddCache = AddCacheResponse@@ -130,15 +130,15 @@     -> AddCacheResponse addCacheResponse pResponseStatus_ =   AddCacheResponse'-  {_acrsGatewayARN = Nothing, _acrsResponseStatus = pResponseStatus_}+    {_acrsGatewayARN = Nothing, _acrsResponseStatus = pResponseStatus_}   -- | Undocumented member. acrsGatewayARN :: Lens' AddCacheResponse (Maybe Text)-acrsGatewayARN = lens _acrsGatewayARN (\ s a -> s{_acrsGatewayARN = a});+acrsGatewayARN = lens _acrsGatewayARN (\ s a -> s{_acrsGatewayARN = a})  -- | -- | The response status code. acrsResponseStatus :: Lens' AddCacheResponse Int-acrsResponseStatus = lens _acrsResponseStatus (\ s a -> s{_acrsResponseStatus = a});+acrsResponseStatus = lens _acrsResponseStatus (\ s a -> s{_acrsResponseStatus = a})  instance NFData AddCacheResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.AddTagsToResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -86,11 +86,11 @@  -- | The Amazon Resource Name (ARN) of the resource you want to add tags to. attrResourceARN :: Lens' AddTagsToResource Text-attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a});+attrResourceARN = lens _attrResourceARN (\ s a -> s{_attrResourceARN = a})  -- | The key-value pair that represents the tag you want to add to the resource. The value can be an empty string. attrTags :: Lens' AddTagsToResource [Tag]-attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce;+attrTags = lens _attrTags (\ s a -> s{_attrTags = a}) . _Coerce  instance AWSRequest AddTagsToResource where         type Rs AddTagsToResource = AddTagsToResourceResponse@@ -151,15 +151,15 @@     -> AddTagsToResourceResponse addTagsToResourceResponse pResponseStatus_ =   AddTagsToResourceResponse'-  {_attrrsResourceARN = Nothing, _attrrsResponseStatus = pResponseStatus_}+    {_attrrsResourceARN = Nothing, _attrrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the resource you want to add tags to. attrrsResourceARN :: Lens' AddTagsToResourceResponse (Maybe Text)-attrrsResourceARN = lens _attrrsResourceARN (\ s a -> s{_attrrsResourceARN = a});+attrrsResourceARN = lens _attrrsResourceARN (\ s a -> s{_attrrsResourceARN = a})  -- | -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int-attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a});+attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a})  instance NFData AddTagsToResourceResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.AddUploadBuffer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Configures one or more gateway local disks as upload buffer for a specified gateway. This operation is supported for the stored volume, cached volume and tape gateway architectures.+-- Configures one or more gateway local disks as upload buffer for a specified gateway. This operation is supported for the stored volume, cached volume and tape gateway types. -- -- -- 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.@@ -70,11 +70,11 @@  -- | Undocumented member. aubGatewayARN :: Lens' AddUploadBuffer Text-aubGatewayARN = lens _aubGatewayARN (\ s a -> s{_aubGatewayARN = a});+aubGatewayARN = lens _aubGatewayARN (\ s a -> s{_aubGatewayARN = a})  -- | Undocumented member. aubDiskIds :: Lens' AddUploadBuffer [Text]-aubDiskIds = lens _aubDiskIds (\ s a -> s{_aubDiskIds = a}) . _Coerce;+aubDiskIds = lens _aubDiskIds (\ s a -> s{_aubDiskIds = a}) . _Coerce  instance AWSRequest AddUploadBuffer where         type Rs AddUploadBuffer = AddUploadBufferResponse@@ -131,15 +131,15 @@     -> AddUploadBufferResponse addUploadBufferResponse pResponseStatus_ =   AddUploadBufferResponse'-  {_aubrsGatewayARN = Nothing, _aubrsResponseStatus = pResponseStatus_}+    {_aubrsGatewayARN = Nothing, _aubrsResponseStatus = pResponseStatus_}   -- | Undocumented member. aubrsGatewayARN :: Lens' AddUploadBufferResponse (Maybe Text)-aubrsGatewayARN = lens _aubrsGatewayARN (\ s a -> s{_aubrsGatewayARN = a});+aubrsGatewayARN = lens _aubrsGatewayARN (\ s a -> s{_aubrsGatewayARN = a})  -- | -- | The response status code. aubrsResponseStatus :: Lens' AddUploadBufferResponse Int-aubrsResponseStatus = lens _aubrsResponseStatus (\ s a -> s{_aubrsResponseStatus = a});+aubrsResponseStatus = lens _aubrsResponseStatus (\ s a -> s{_aubrsResponseStatus = a})  instance NFData AddUploadBufferResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.AddWorkingStorage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Configures one or more gateway local disks as working storage for a gateway. This operation is only supported in the stored volume gateway architecture. This operation is deprecated in cached volume API version 20120630. Use 'AddUploadBuffer' instead.+-- Configures one or more gateway local disks as working storage for a gateway. This operation is only supported in the stored volume gateway type. This operation is deprecated in cached volume API version 20120630. Use 'AddUploadBuffer' instead. -- -- -- In the request, you specify the gateway Amazon Resource Name (ARN) to which you want to add working storage, and one or more disk IDs that you want to configure as working storage.@@ -78,11 +78,11 @@  -- | Undocumented member. awsGatewayARN :: Lens' AddWorkingStorage Text-awsGatewayARN = lens _awsGatewayARN (\ s a -> s{_awsGatewayARN = a});+awsGatewayARN = lens _awsGatewayARN (\ s a -> s{_awsGatewayARN = a})  -- | 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;+awsDiskIds = lens _awsDiskIds (\ s a -> s{_awsDiskIds = a}) . _Coerce  instance AWSRequest AddWorkingStorage where         type Rs AddWorkingStorage = AddWorkingStorageResponse@@ -143,15 +143,15 @@     -> AddWorkingStorageResponse addWorkingStorageResponse pResponseStatus_ =   AddWorkingStorageResponse'-  {_awsrsGatewayARN = Nothing, _awsrsResponseStatus = pResponseStatus_}+    {_awsrsGatewayARN = Nothing, _awsrsResponseStatus = pResponseStatus_}   -- | Undocumented member. awsrsGatewayARN :: Lens' AddWorkingStorageResponse (Maybe Text)-awsrsGatewayARN = lens _awsrsGatewayARN (\ s a -> s{_awsrsGatewayARN = a});+awsrsGatewayARN = lens _awsrsGatewayARN (\ s a -> s{_awsrsGatewayARN = a})  -- | -- | The response status code. awsrsResponseStatus :: Lens' AddWorkingStorageResponse Int-awsrsResponseStatus = lens _awsrsResponseStatus (\ s a -> s{_awsrsResponseStatus = a});+awsrsResponseStatus = lens _awsrsResponseStatus (\ s a -> s{_awsrsResponseStatus = a})  instance NFData AddWorkingStorageResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CancelArchival--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Cancels archiving of a virtual tape to the virtual tape shelf (VTS) after the archiving process is initiated. This operation is only supported in the tape gateway architecture.+-- Cancels archiving of a virtual tape to the virtual tape shelf (VTS) after the archiving process is initiated. This operation is only supported in the tape gateway type. -- -- module Network.AWS.StorageGateway.CancelArchival@@ -73,11 +73,11 @@  -- | 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})  instance AWSRequest CancelArchival where         type Rs CancelArchival = CancelArchivalResponse@@ -138,15 +138,15 @@     -> CancelArchivalResponse cancelArchivalResponse pResponseStatus_ =   CancelArchivalResponse'-  {_carsTapeARN = Nothing, _carsResponseStatus = pResponseStatus_}+    {_carsTapeARN = Nothing, _carsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the virtual tape for which archiving was canceled. carsTapeARN :: Lens' CancelArchivalResponse (Maybe Text)-carsTapeARN = lens _carsTapeARN (\ s a -> s{_carsTapeARN = a});+carsTapeARN = lens _carsTapeARN (\ s a -> s{_carsTapeARN = a})  -- | -- | The response status code. carsResponseStatus :: Lens' CancelArchivalResponse Int-carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a});+carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a})  instance NFData CancelArchivalResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CancelRetrieval--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- 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.+-- 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. This operation is only supported in the tape gateway type. -- -- module Network.AWS.StorageGateway.CancelRetrieval@@ -73,11 +73,11 @@  -- | 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})  instance AWSRequest CancelRetrieval where         type Rs CancelRetrieval = CancelRetrievalResponse@@ -138,15 +138,15 @@     -> CancelRetrievalResponse cancelRetrievalResponse pResponseStatus_ =   CancelRetrievalResponse'-  {_crrsTapeARN = Nothing, _crrsResponseStatus = pResponseStatus_}+    {_crrsTapeARN = Nothing, _crrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the virtual tape for which retrieval was canceled. crrsTapeARN :: Lens' CancelRetrievalResponse (Maybe Text)-crrsTapeARN = lens _crrsTapeARN (\ s a -> s{_crrsTapeARN = a});+crrsTapeARN = lens _crrsTapeARN (\ s a -> s{_crrsTapeARN = a})  -- | -- | The response status code. crrsResponseStatus :: Lens' CancelRetrievalResponse Int-crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});+crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a})  instance NFData CancelRetrievalResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateCachediSCSIVolume--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a cached volume on a specified cached volume gateway. This operation is only supported in the cached volume gateway architecture.+-- Creates a cached volume on a specified cached volume gateway. This operation is only supported in the cached volume gateway type. -- -- -- In the request, you must specify the gateway, size of the volume in bytes, the iSCSI target name, an IP address on which to expose the target, and a unique client token. In response, the gateway creates the volume and returns information about it. This information includes the volume Amazon Resource Name (ARN), its size, and the iSCSI target ARN that initiators can use to connect to the volume target.@@ -93,43 +93,43 @@     -> CreateCachediSCSIVolume createCachediSCSIVolume pGatewayARN_ pVolumeSizeInBytes_ pTargetName_ pNetworkInterfaceId_ pClientToken_ =   CreateCachediSCSIVolume'-  { _ccscsivSourceVolumeARN = Nothing-  , _ccscsivSnapshotId = Nothing-  , _ccscsivGatewayARN = pGatewayARN_-  , _ccscsivVolumeSizeInBytes = pVolumeSizeInBytes_-  , _ccscsivTargetName = pTargetName_-  , _ccscsivNetworkInterfaceId = pNetworkInterfaceId_-  , _ccscsivClientToken = pClientToken_-  }+    { _ccscsivSourceVolumeARN = Nothing+    , _ccscsivSnapshotId = Nothing+    , _ccscsivGatewayARN = pGatewayARN_+    , _ccscsivVolumeSizeInBytes = pVolumeSizeInBytes_+    , _ccscsivTargetName = pTargetName_+    , _ccscsivNetworkInterfaceId = pNetworkInterfaceId_+    , _ccscsivClientToken = pClientToken_+    }   -- | The ARN for an existing volume. Specifying this ARN makes the new volume into an exact copy of the specified existing volume's latest recovery point. The @VolumeSizeInBytes@ value for this new volume must be equal to or larger than the size of the existing volume, in bytes. ccscsivSourceVolumeARN :: Lens' CreateCachediSCSIVolume (Maybe Text)-ccscsivSourceVolumeARN = lens _ccscsivSourceVolumeARN (\ s a -> s{_ccscsivSourceVolumeARN = a});+ccscsivSourceVolumeARN = lens _ccscsivSourceVolumeARN (\ s a -> s{_ccscsivSourceVolumeARN = a})  -- | Undocumented member. ccscsivSnapshotId :: Lens' CreateCachediSCSIVolume (Maybe Text)-ccscsivSnapshotId = lens _ccscsivSnapshotId (\ s a -> s{_ccscsivSnapshotId = a});+ccscsivSnapshotId = lens _ccscsivSnapshotId (\ s a -> s{_ccscsivSnapshotId = a})  -- | Undocumented member. ccscsivGatewayARN :: Lens' CreateCachediSCSIVolume Text-ccscsivGatewayARN = lens _ccscsivGatewayARN (\ s a -> s{_ccscsivGatewayARN = a});+ccscsivGatewayARN = lens _ccscsivGatewayARN (\ s a -> s{_ccscsivGatewayARN = a})  -- | Undocumented member. ccscsivVolumeSizeInBytes :: Lens' CreateCachediSCSIVolume Integer-ccscsivVolumeSizeInBytes = lens _ccscsivVolumeSizeInBytes (\ s a -> s{_ccscsivVolumeSizeInBytes = a});+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})  -- | Undocumented member. ccscsivNetworkInterfaceId :: Lens' CreateCachediSCSIVolume Text-ccscsivNetworkInterfaceId = lens _ccscsivNetworkInterfaceId (\ s a -> s{_ccscsivNetworkInterfaceId = a});+ccscsivNetworkInterfaceId = lens _ccscsivNetworkInterfaceId (\ s a -> s{_ccscsivNetworkInterfaceId = a})  -- | Undocumented member. ccscsivClientToken :: Lens' CreateCachediSCSIVolume Text-ccscsivClientToken = lens _ccscsivClientToken (\ s a -> s{_ccscsivClientToken = a});+ccscsivClientToken = lens _ccscsivClientToken (\ s a -> s{_ccscsivClientToken = a})  instance AWSRequest CreateCachediSCSIVolume where         type Rs CreateCachediSCSIVolume =@@ -198,22 +198,22 @@     -> CreateCachediSCSIVolumeResponse createCachediSCSIVolumeResponse pResponseStatus_ =   CreateCachediSCSIVolumeResponse'-  { _ccscsivrsTargetARN = Nothing-  , _ccscsivrsVolumeARN = Nothing-  , _ccscsivrsResponseStatus = pResponseStatus_-  }+    { _ccscsivrsTargetARN = Nothing+    , _ccscsivrsVolumeARN = Nothing+    , _ccscsivrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. ccscsivrsTargetARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)-ccscsivrsTargetARN = lens _ccscsivrsTargetARN (\ s a -> s{_ccscsivrsTargetARN = a});+ccscsivrsTargetARN = lens _ccscsivrsTargetARN (\ s a -> s{_ccscsivrsTargetARN = a})  -- | Undocumented member. ccscsivrsVolumeARN :: Lens' CreateCachediSCSIVolumeResponse (Maybe Text)-ccscsivrsVolumeARN = lens _ccscsivrsVolumeARN (\ s a -> s{_ccscsivrsVolumeARN = a});+ccscsivrsVolumeARN = lens _ccscsivrsVolumeARN (\ s a -> s{_ccscsivrsVolumeARN = a})  -- | -- | The response status code. ccscsivrsResponseStatus :: Lens' CreateCachediSCSIVolumeResponse Int-ccscsivrsResponseStatus = lens _ccscsivrsResponseStatus (\ s a -> s{_ccscsivrsResponseStatus = a});+ccscsivrsResponseStatus = lens _ccscsivrsResponseStatus (\ s a -> s{_ccscsivrsResponseStatus = a})  instance NFData CreateCachediSCSIVolumeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateNFSFileShare--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a file share on an existing file gateway. In Storage Gateway, a file share is a file system mount point backed by Amazon S3 cloud storage. Storage Gateway exposes file shares using a Network File System (NFS) interface. This operation is only supported in the file gateway architecture.+-- Creates a file share on an existing file gateway. In Storage Gateway, a file share is a file system mount point backed by Amazon S3 cloud storage. Storage Gateway exposes file shares using a Network File System (NFS) interface. This operation is only supported in the file gateway type. -- -- -- /Important:/ File gateway requires AWS Security Token Service (AWS STS) to be activated to enable you create a file share. Make sure AWS STS is activated in the region you are creating your file gateway in. If AWS STS is not activated in the region, activate it. For information about how to activate AWS STS, see Activating and Deactivating AWS STS in an AWS Region in the AWS Identity and Access Management User Guide.@@ -32,11 +32,14 @@     , CreateNFSFileShare     -- * Request Lenses     , cnfsfsKMSKey+    , cnfsfsObjectACL     , cnfsfsKMSEncrypted     , cnfsfsDefaultStorageClass     , cnfsfsSquash+    , cnfsfsRequesterPays     , cnfsfsNFSFileShareDefaults     , cnfsfsClientList+    , cnfsfsGuessMIMETypeEnabled     , cnfsfsReadOnly     , cnfsfsClientToken     , cnfsfsGatewayARN@@ -65,11 +68,14 @@ -- /See:/ 'createNFSFileShare' smart constructor. data CreateNFSFileShare = CreateNFSFileShare'   { _cnfsfsKMSKey               :: !(Maybe Text)+  , _cnfsfsObjectACL            :: !(Maybe ObjectACL)   , _cnfsfsKMSEncrypted         :: !(Maybe Bool)   , _cnfsfsDefaultStorageClass  :: !(Maybe Text)   , _cnfsfsSquash               :: !(Maybe Text)+  , _cnfsfsRequesterPays        :: !(Maybe Bool)   , _cnfsfsNFSFileShareDefaults :: !(Maybe NFSFileShareDefaults)   , _cnfsfsClientList           :: !(Maybe (List1 Text))+  , _cnfsfsGuessMIMETypeEnabled :: !(Maybe Bool)   , _cnfsfsReadOnly             :: !(Maybe Bool)   , _cnfsfsClientToken          :: !Text   , _cnfsfsGatewayARN           :: !Text@@ -84,18 +90,24 @@ -- -- * 'cnfsfsKMSKey' - The KMS key used for Amazon S3 server side encryption. This value can only be set when KmsEncrypted is true. Optional. --+-- * 'cnfsfsObjectACL' - Sets the access control list permission for objects in the Amazon S3 bucket that a file gateway puts objects into. The default value is "private".+-- -- * 'cnfsfsKMSEncrypted' - True to use Amazon S3 server side encryption with your own AWS KMS key, or false to use a key managed by Amazon S3. Optional. -- -- * 'cnfsfsDefaultStorageClass' - The default storage class for objects put into an Amazon S3 bucket by file gateway. Possible values are S3_STANDARD or S3_STANDARD_IA. If this field is not populated, the default value S3_STANDARD is used. Optional. -- -- * 'cnfsfsSquash' - Maps a user to anonymous user. Valid options are the following:      * "RootSquash" - Only root is mapped to anonymous user.     * "NoSquash" - No one is mapped to anonymous user.     * "AllSquash" - Everyone is mapped to anonymous user. --+-- * 'cnfsfsRequesterPays' - Sets who pays the cost of the request and the data download from the Amazon S3 bucket. Set this value to true if you want the requester to pay instead of the bucket owner, and otherwise to false.+-- -- * 'cnfsfsNFSFileShareDefaults' - File share default values. Optional. -- -- * 'cnfsfsClientList' - The list of clients that are allowed to access the file gateway. The list must contain either valid IP addresses or valid CIDR blocks. ----- * 'cnfsfsReadOnly' - Sets the write status of a file share: "true" if the write status is read-only, and otherwise "false".+-- * 'cnfsfsGuessMIMETypeEnabled' - Enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, and otherwise to false. The default value is true. --+-- * 'cnfsfsReadOnly' - Sets the write status of a file share. This value is true if the write status is read-only, and otherwise false.+-- -- * 'cnfsfsClientToken' - A unique string value that you supply that is used by file gateway to ensure idempotent file share creation. -- -- * 'cnfsfsGatewayARN' - The Amazon Resource Name (ARN) of the file gateway on which you want to create a file share.@@ -111,63 +123,78 @@     -> CreateNFSFileShare createNFSFileShare pClientToken_ pGatewayARN_ pRole_ pLocationARN_ =   CreateNFSFileShare'-  { _cnfsfsKMSKey = Nothing-  , _cnfsfsKMSEncrypted = Nothing-  , _cnfsfsDefaultStorageClass = Nothing-  , _cnfsfsSquash = Nothing-  , _cnfsfsNFSFileShareDefaults = Nothing-  , _cnfsfsClientList = Nothing-  , _cnfsfsReadOnly = Nothing-  , _cnfsfsClientToken = pClientToken_-  , _cnfsfsGatewayARN = pGatewayARN_-  , _cnfsfsRole = pRole_-  , _cnfsfsLocationARN = pLocationARN_-  }+    { _cnfsfsKMSKey = Nothing+    , _cnfsfsObjectACL = Nothing+    , _cnfsfsKMSEncrypted = Nothing+    , _cnfsfsDefaultStorageClass = Nothing+    , _cnfsfsSquash = Nothing+    , _cnfsfsRequesterPays = Nothing+    , _cnfsfsNFSFileShareDefaults = Nothing+    , _cnfsfsClientList = Nothing+    , _cnfsfsGuessMIMETypeEnabled = Nothing+    , _cnfsfsReadOnly = Nothing+    , _cnfsfsClientToken = pClientToken_+    , _cnfsfsGatewayARN = pGatewayARN_+    , _cnfsfsRole = pRole_+    , _cnfsfsLocationARN = pLocationARN_+    }   -- | The KMS key used for Amazon S3 server side encryption. This value can only be set when KmsEncrypted is true. Optional. cnfsfsKMSKey :: Lens' CreateNFSFileShare (Maybe Text)-cnfsfsKMSKey = lens _cnfsfsKMSKey (\ s a -> s{_cnfsfsKMSKey = a});+cnfsfsKMSKey = lens _cnfsfsKMSKey (\ s a -> s{_cnfsfsKMSKey = a}) +-- | Sets the access control list permission for objects in the Amazon S3 bucket that a file gateway puts objects into. The default value is "private".+cnfsfsObjectACL :: Lens' CreateNFSFileShare (Maybe ObjectACL)+cnfsfsObjectACL = lens _cnfsfsObjectACL (\ s a -> s{_cnfsfsObjectACL = a})+ -- | True to use Amazon S3 server side encryption with your own AWS KMS key, or false to use a key managed by Amazon S3. Optional. cnfsfsKMSEncrypted :: Lens' CreateNFSFileShare (Maybe Bool)-cnfsfsKMSEncrypted = lens _cnfsfsKMSEncrypted (\ s a -> s{_cnfsfsKMSEncrypted = a});+cnfsfsKMSEncrypted = lens _cnfsfsKMSEncrypted (\ s a -> s{_cnfsfsKMSEncrypted = a})  -- | The default storage class for objects put into an Amazon S3 bucket by file gateway. Possible values are S3_STANDARD or S3_STANDARD_IA. If this field is not populated, the default value S3_STANDARD is used. Optional. cnfsfsDefaultStorageClass :: Lens' CreateNFSFileShare (Maybe Text)-cnfsfsDefaultStorageClass = lens _cnfsfsDefaultStorageClass (\ s a -> s{_cnfsfsDefaultStorageClass = a});+cnfsfsDefaultStorageClass = lens _cnfsfsDefaultStorageClass (\ s a -> s{_cnfsfsDefaultStorageClass = a})  -- | Maps a user to anonymous user. Valid options are the following:      * "RootSquash" - Only root is mapped to anonymous user.     * "NoSquash" - No one is mapped to anonymous user.     * "AllSquash" - Everyone is mapped to anonymous user. cnfsfsSquash :: Lens' CreateNFSFileShare (Maybe Text)-cnfsfsSquash = lens _cnfsfsSquash (\ s a -> s{_cnfsfsSquash = a});+cnfsfsSquash = lens _cnfsfsSquash (\ s a -> s{_cnfsfsSquash = a}) +-- | Sets who pays the cost of the request and the data download from the Amazon S3 bucket. Set this value to true if you want the requester to pay instead of the bucket owner, and otherwise to false.+cnfsfsRequesterPays :: Lens' CreateNFSFileShare (Maybe Bool)+cnfsfsRequesterPays = lens _cnfsfsRequesterPays (\ s a -> s{_cnfsfsRequesterPays = a})+ -- | File share default values. Optional. cnfsfsNFSFileShareDefaults :: Lens' CreateNFSFileShare (Maybe NFSFileShareDefaults)-cnfsfsNFSFileShareDefaults = lens _cnfsfsNFSFileShareDefaults (\ s a -> s{_cnfsfsNFSFileShareDefaults = a});+cnfsfsNFSFileShareDefaults = lens _cnfsfsNFSFileShareDefaults (\ s a -> s{_cnfsfsNFSFileShareDefaults = a})  -- | The list of clients that are allowed to access the file gateway. The list must contain either valid IP addresses or valid CIDR blocks. cnfsfsClientList :: Lens' CreateNFSFileShare (Maybe (NonEmpty Text))-cnfsfsClientList = lens _cnfsfsClientList (\ s a -> s{_cnfsfsClientList = a}) . mapping _List1;+cnfsfsClientList = lens _cnfsfsClientList (\ s a -> s{_cnfsfsClientList = a}) . mapping _List1 --- | Sets the write status of a file share: "true" if the write status is read-only, and otherwise "false".+-- | Enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, and otherwise to false. The default value is true.+cnfsfsGuessMIMETypeEnabled :: Lens' CreateNFSFileShare (Maybe Bool)+cnfsfsGuessMIMETypeEnabled = lens _cnfsfsGuessMIMETypeEnabled (\ s a -> s{_cnfsfsGuessMIMETypeEnabled = a})++-- | Sets the write status of a file share. This value is true if the write status is read-only, and otherwise false. cnfsfsReadOnly :: Lens' CreateNFSFileShare (Maybe Bool)-cnfsfsReadOnly = lens _cnfsfsReadOnly (\ s a -> s{_cnfsfsReadOnly = a});+cnfsfsReadOnly = lens _cnfsfsReadOnly (\ s a -> s{_cnfsfsReadOnly = a})  -- | A unique string value that you supply that is used by file gateway to ensure idempotent file share creation. cnfsfsClientToken :: Lens' CreateNFSFileShare Text-cnfsfsClientToken = lens _cnfsfsClientToken (\ s a -> s{_cnfsfsClientToken = a});+cnfsfsClientToken = lens _cnfsfsClientToken (\ s a -> s{_cnfsfsClientToken = a})  -- | The Amazon Resource Name (ARN) of the file gateway on which you want to create a file share. cnfsfsGatewayARN :: Lens' CreateNFSFileShare Text-cnfsfsGatewayARN = lens _cnfsfsGatewayARN (\ s a -> s{_cnfsfsGatewayARN = a});+cnfsfsGatewayARN = lens _cnfsfsGatewayARN (\ s a -> s{_cnfsfsGatewayARN = a})  -- | The ARN of the AWS Identity and Access Management (IAM) role that a file gateway assumes when it accesses the underlying storage. cnfsfsRole :: Lens' CreateNFSFileShare Text-cnfsfsRole = lens _cnfsfsRole (\ s a -> s{_cnfsfsRole = a});+cnfsfsRole = lens _cnfsfsRole (\ s a -> s{_cnfsfsRole = a})  -- | The ARN of the backed storage used for storing file data. cnfsfsLocationARN :: Lens' CreateNFSFileShare Text-cnfsfsLocationARN = lens _cnfsfsLocationARN (\ s a -> s{_cnfsfsLocationARN = a});+cnfsfsLocationARN = lens _cnfsfsLocationARN (\ s a -> s{_cnfsfsLocationARN = a})  instance AWSRequest CreateNFSFileShare where         type Rs CreateNFSFileShare =@@ -198,13 +225,17 @@           = object               (catMaybes                  [("KMSKey" .=) <$> _cnfsfsKMSKey,+                  ("ObjectACL" .=) <$> _cnfsfsObjectACL,                   ("KMSEncrypted" .=) <$> _cnfsfsKMSEncrypted,                   ("DefaultStorageClass" .=) <$>                     _cnfsfsDefaultStorageClass,                   ("Squash" .=) <$> _cnfsfsSquash,+                  ("RequesterPays" .=) <$> _cnfsfsRequesterPays,                   ("NFSFileShareDefaults" .=) <$>                     _cnfsfsNFSFileShareDefaults,                   ("ClientList" .=) <$> _cnfsfsClientList,+                  ("GuessMIMETypeEnabled" .=) <$>+                    _cnfsfsGuessMIMETypeEnabled,                   ("ReadOnly" .=) <$> _cnfsfsReadOnly,                   Just ("ClientToken" .= _cnfsfsClientToken),                   Just ("GatewayARN" .= _cnfsfsGatewayARN),@@ -240,15 +271,17 @@     -> CreateNFSFileShareResponse createNFSFileShareResponse pResponseStatus_ =   CreateNFSFileShareResponse'-  {_cnfsfsrsFileShareARN = Nothing, _cnfsfsrsResponseStatus = pResponseStatus_}+    { _cnfsfsrsFileShareARN = Nothing+    , _cnfsfsrsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the newly created file share. cnfsfsrsFileShareARN :: Lens' CreateNFSFileShareResponse (Maybe Text)-cnfsfsrsFileShareARN = lens _cnfsfsrsFileShareARN (\ s a -> s{_cnfsfsrsFileShareARN = a});+cnfsfsrsFileShareARN = lens _cnfsfsrsFileShareARN (\ s a -> s{_cnfsfsrsFileShareARN = a})  -- | -- | The response status code. cnfsfsrsResponseStatus :: Lens' CreateNFSFileShareResponse Int-cnfsfsrsResponseStatus = lens _cnfsfsrsResponseStatus (\ s a -> s{_cnfsfsrsResponseStatus = a});+cnfsfsrsResponseStatus = lens _cnfsfsrsResponseStatus (\ s a -> s{_cnfsfsrsResponseStatus = a})  instance NFData CreateNFSFileShareResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateSnapshot--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -23,7 +23,7 @@ -- -- AWS Storage Gateway provides the ability to back up point-in-time snapshots of your data to Amazon Simple Storage (S3) for durable off-site recovery, as well as import the data to an Amazon Elastic Block Store (EBS) volume in Amazon Elastic Compute Cloud (EC2). You can take snapshots of your gateway volume on a scheduled or ad-hoc basis. This API enables you to take ad-hoc snapshot. For more information, see <http://docs.aws.amazon.com/storagegateway/latest/userguide/managing-volumes.html#SchedulingSnapshot Editing a Snapshot Schedule> . ----- In the CreateSnapshot request you identify the volume by providing its Amazon Resource Name (ARN). You must also provide description for the snapshot. When AWS Storage Gateway takes the snapshot of specified volume, the snapshot and description appears in the AWS Storage Gateway Console. In response, AWS Storage Gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot. This operation is only supported in stored and cached volume gateway architecture.+-- In the CreateSnapshot request you identify the volume by providing its Amazon Resource Name (ARN). You must also provide description for the snapshot. When AWS Storage Gateway takes the snapshot of specified volume, the snapshot and description appears in the AWS Storage Gateway Console. In response, AWS Storage Gateway returns you a snapshot ID. You can use this snapshot ID to check the snapshot progress or later use it when you want to create a volume from a snapshot. This operation is only supported in stored and cached volume gateway type. -- -- /Important:/ Volume and snapshot IDs are changing to a longer length ID format. For more information, see the important note on the <http://docs.aws.amazon.com/storagegateway/latest/APIReference/Welcome.html Welcome> page. --@@ -82,16 +82,16 @@     -> CreateSnapshot createSnapshot pVolumeARN_ pSnapshotDescription_ =   CreateSnapshot'-  {_csVolumeARN = pVolumeARN_, _csSnapshotDescription = pSnapshotDescription_}+    {_csVolumeARN = pVolumeARN_, _csSnapshotDescription = pSnapshotDescription_}   -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes. csVolumeARN :: Lens' CreateSnapshot Text-csVolumeARN = lens _csVolumeARN (\ s a -> s{_csVolumeARN = a});+csVolumeARN = lens _csVolumeARN (\ s a -> s{_csVolumeARN = a})  -- | 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});+csSnapshotDescription = lens _csSnapshotDescription (\ s a -> s{_csSnapshotDescription = a})  instance AWSRequest CreateSnapshot where         type Rs CreateSnapshot = CreateSnapshotResponse@@ -157,22 +157,22 @@     -> CreateSnapshotResponse createSnapshotResponse pResponseStatus_ =   CreateSnapshotResponse'-  { _csrsVolumeARN = Nothing-  , _csrsSnapshotId = Nothing-  , _csrsResponseStatus = pResponseStatus_-  }+    { _csrsVolumeARN = Nothing+    , _csrsSnapshotId = Nothing+    , _csrsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the volume of which the snapshot was taken. csrsVolumeARN :: Lens' CreateSnapshotResponse (Maybe Text)-csrsVolumeARN = lens _csrsVolumeARN (\ s a -> s{_csrsVolumeARN = a});+csrsVolumeARN = lens _csrsVolumeARN (\ s a -> s{_csrsVolumeARN = a})  -- | 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});+csrsSnapshotId = lens _csrsSnapshotId (\ s a -> s{_csrsSnapshotId = a})  -- | -- | The response status code. csrsResponseStatus :: Lens' CreateSnapshotResponse Int-csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a})  instance NFData CreateSnapshotResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateSnapshotFromVolumeRecoveryPoint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Initiates a snapshot of a gateway from a volume recovery point. This operation is only supported in the cached volume gateway architecture.+-- Initiates a snapshot of a gateway from a volume recovery point. This operation is only supported in the cached volume gateway type. -- -- -- A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot. To get a list of volume recovery point for cached volume gateway, use 'ListVolumeRecoveryPoints' .@@ -71,18 +71,18 @@     -> CreateSnapshotFromVolumeRecoveryPoint createSnapshotFromVolumeRecoveryPoint pVolumeARN_ pSnapshotDescription_ =   CreateSnapshotFromVolumeRecoveryPoint'-  { _csfvrpVolumeARN = pVolumeARN_-  , _csfvrpSnapshotDescription = pSnapshotDescription_-  }+    { _csfvrpVolumeARN = pVolumeARN_+    , _csfvrpSnapshotDescription = pSnapshotDescription_+    }   -- | Undocumented member. csfvrpVolumeARN :: Lens' CreateSnapshotFromVolumeRecoveryPoint Text-csfvrpVolumeARN = lens _csfvrpVolumeARN (\ s a -> s{_csfvrpVolumeARN = a});+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})  instance AWSRequest            CreateSnapshotFromVolumeRecoveryPoint@@ -162,28 +162,28 @@     -> CreateSnapshotFromVolumeRecoveryPointResponse createSnapshotFromVolumeRecoveryPointResponse pResponseStatus_ =   CreateSnapshotFromVolumeRecoveryPointResponse'-  { _csfvrprsVolumeRecoveryPointTime = Nothing-  , _csfvrprsVolumeARN = Nothing-  , _csfvrprsSnapshotId = Nothing-  , _csfvrprsResponseStatus = pResponseStatus_-  }+    { _csfvrprsVolumeRecoveryPointTime = Nothing+    , _csfvrprsVolumeARN = Nothing+    , _csfvrprsSnapshotId = Nothing+    , _csfvrprsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. csfvrprsVolumeRecoveryPointTime :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)-csfvrprsVolumeRecoveryPointTime = lens _csfvrprsVolumeRecoveryPointTime (\ s a -> s{_csfvrprsVolumeRecoveryPointTime = a});+csfvrprsVolumeRecoveryPointTime = lens _csfvrprsVolumeRecoveryPointTime (\ s a -> s{_csfvrprsVolumeRecoveryPointTime = a})  -- | Undocumented member. csfvrprsVolumeARN :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)-csfvrprsVolumeARN = lens _csfvrprsVolumeARN (\ s a -> s{_csfvrprsVolumeARN = a});+csfvrprsVolumeARN = lens _csfvrprsVolumeARN (\ s a -> s{_csfvrprsVolumeARN = a})  -- | Undocumented member. csfvrprsSnapshotId :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse (Maybe Text)-csfvrprsSnapshotId = lens _csfvrprsSnapshotId (\ s a -> s{_csfvrprsSnapshotId = a});+csfvrprsSnapshotId = lens _csfvrprsSnapshotId (\ s a -> s{_csfvrprsSnapshotId = a})  -- | -- | The response status code. csfvrprsResponseStatus :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse Int-csfvrprsResponseStatus = lens _csfvrprsResponseStatus (\ s a -> s{_csfvrprsResponseStatus = a});+csfvrprsResponseStatus = lens _csfvrprsResponseStatus (\ s a -> s{_csfvrprsResponseStatus = a})  instance NFData            CreateSnapshotFromVolumeRecoveryPointResponse

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateStorediSCSIVolume--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a volume on a specified gateway. This operation is only supported in the stored volume gateway architecture.+-- Creates a volume on a specified gateway. This operation is only supported in the stored volume gateway type. -- -- -- 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.@@ -106,38 +106,38 @@     -> CreateStorediSCSIVolume createStorediSCSIVolume pGatewayARN_ pDiskId_ pPreserveExistingData_ pTargetName_ pNetworkInterfaceId_ =   CreateStorediSCSIVolume'-  { _csscsivSnapshotId = Nothing-  , _csscsivGatewayARN = pGatewayARN_-  , _csscsivDiskId = pDiskId_-  , _csscsivPreserveExistingData = pPreserveExistingData_-  , _csscsivTargetName = pTargetName_-  , _csscsivNetworkInterfaceId = pNetworkInterfaceId_-  }+    { _csscsivSnapshotId = Nothing+    , _csscsivGatewayARN = pGatewayARN_+    , _csscsivDiskId = pDiskId_+    , _csscsivPreserveExistingData = pPreserveExistingData_+    , _csscsivTargetName = pTargetName_+    , _csscsivNetworkInterfaceId = pNetworkInterfaceId_+    }   -- | The snapshot ID (e.g. "snap-1122aabb") of the snapshot to restore as the new stored volume. Specify this field if you want to create the iSCSI storage volume from a snapshot otherwise do not include this field. To list snapshots for your account use <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshots.html DescribeSnapshots> in the /Amazon Elastic Compute Cloud API Reference/ . csscsivSnapshotId :: Lens' CreateStorediSCSIVolume (Maybe Text)-csscsivSnapshotId = lens _csscsivSnapshotId (\ s a -> s{_csscsivSnapshotId = a});+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 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});+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});+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-2:111122223333:gateway/sgw-12A3456B/target/iqn.1997-05.com.amazon:myvolume. The target name must be unique across all volumes of a gateway. csscsivTargetName :: Lens' CreateStorediSCSIVolume Text-csscsivTargetName = lens _csscsivTargetName (\ s a -> s{_csscsivTargetName = a});+csscsivTargetName = lens _csscsivTargetName (\ s a -> s{_csscsivTargetName = 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});+csscsivNetworkInterfaceId = lens _csscsivNetworkInterfaceId (\ s a -> s{_csscsivNetworkInterfaceId = a})  instance AWSRequest CreateStorediSCSIVolume where         type Rs CreateStorediSCSIVolume =@@ -215,27 +215,27 @@     -> CreateStorediSCSIVolumeResponse createStorediSCSIVolumeResponse pResponseStatus_ =   CreateStorediSCSIVolumeResponse'-  { _csscsivrsTargetARN = Nothing-  , _csscsivrsVolumeARN = Nothing-  , _csscsivrsVolumeSizeInBytes = Nothing-  , _csscsivrsResponseStatus = pResponseStatus_-  }+    { _csscsivrsTargetARN = Nothing+    , _csscsivrsVolumeARN = Nothing+    , _csscsivrsVolumeSizeInBytes = Nothing+    , _csscsivrsResponseStatus = pResponseStatus_+    }   -- | he Amazon Resource Name (ARN) of the volume target that includes the iSCSI name that initiators can use to connect to the target. csscsivrsTargetARN :: Lens' CreateStorediSCSIVolumeResponse (Maybe Text)-csscsivrsTargetARN = lens _csscsivrsTargetARN (\ s a -> s{_csscsivrsTargetARN = a});+csscsivrsTargetARN = lens _csscsivrsTargetARN (\ s a -> s{_csscsivrsTargetARN = a})  -- | The Amazon Resource Name (ARN) of the configured volume. csscsivrsVolumeARN :: Lens' CreateStorediSCSIVolumeResponse (Maybe Text)-csscsivrsVolumeARN = lens _csscsivrsVolumeARN (\ s a -> s{_csscsivrsVolumeARN = a});+csscsivrsVolumeARN = lens _csscsivrsVolumeARN (\ s a -> s{_csscsivrsVolumeARN = a})  -- | The size of the volume in bytes. csscsivrsVolumeSizeInBytes :: Lens' CreateStorediSCSIVolumeResponse (Maybe Integer)-csscsivrsVolumeSizeInBytes = lens _csscsivrsVolumeSizeInBytes (\ s a -> s{_csscsivrsVolumeSizeInBytes = a});+csscsivrsVolumeSizeInBytes = lens _csscsivrsVolumeSizeInBytes (\ s a -> s{_csscsivrsVolumeSizeInBytes = a})  -- | -- | The response status code. csscsivrsResponseStatus :: Lens' CreateStorediSCSIVolumeResponse Int-csscsivrsResponseStatus = lens _csscsivrsResponseStatus (\ s a -> s{_csscsivrsResponseStatus = a});+csscsivrsResponseStatus = lens _csscsivrsResponseStatus (\ s a -> s{_csscsivrsResponseStatus = a})  instance NFData CreateStorediSCSIVolumeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateTapeWithBarcode--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates a virtual tape by using your own barcode. You write data to the virtual tape and then archive the tape. A barcode is unique and can not be reused if it has already been used on a tape . This applies to barcodes used on deleted tapes. This operation is only supported in the tape gateway. architecture.+-- Creates a virtual tape by using your own barcode. You write data to the virtual tape and then archive the tape. A barcode is unique and can not be reused if it has already been used on a tape . This applies to barcodes used on deleted tapes. This operation is only supported in the tape gateway type. -- -- module Network.AWS.StorageGateway.CreateTapeWithBarcode@@ -74,23 +74,23 @@     -> CreateTapeWithBarcode createTapeWithBarcode pGatewayARN_ pTapeSizeInBytes_ pTapeBarcode_ =   CreateTapeWithBarcode'-  { _ctwbGatewayARN = pGatewayARN_-  , _ctwbTapeSizeInBytes = pTapeSizeInBytes_-  , _ctwbTapeBarcode = pTapeBarcode_-  }+    { _ctwbGatewayARN = pGatewayARN_+    , _ctwbTapeSizeInBytes = pTapeSizeInBytes_+    , _ctwbTapeBarcode = pTapeBarcode_+    }   -- | The unique Amazon Resource Name (ARN) that represents the gateway to associate the virtual tape with. Use the 'ListGateways' operation to return a list of gateways for your account and region. ctwbGatewayARN :: Lens' CreateTapeWithBarcode Text-ctwbGatewayARN = lens _ctwbGatewayARN (\ s a -> s{_ctwbGatewayARN = a});+ctwbGatewayARN = lens _ctwbGatewayARN (\ s a -> s{_ctwbGatewayARN = a})  -- | The size, in bytes, of the virtual tape that you want to create. ctwbTapeSizeInBytes :: Lens' CreateTapeWithBarcode Integer-ctwbTapeSizeInBytes = lens _ctwbTapeSizeInBytes (\ s a -> s{_ctwbTapeSizeInBytes = a});+ctwbTapeSizeInBytes = lens _ctwbTapeSizeInBytes (\ s a -> s{_ctwbTapeSizeInBytes = a})  -- | The barcode that you want to assign to the tape. ctwbTapeBarcode :: Lens' CreateTapeWithBarcode Text-ctwbTapeBarcode = lens _ctwbTapeBarcode (\ s a -> s{_ctwbTapeBarcode = a});+ctwbTapeBarcode = lens _ctwbTapeBarcode (\ s a -> s{_ctwbTapeBarcode = a})  instance AWSRequest CreateTapeWithBarcode where         type Rs CreateTapeWithBarcode =@@ -153,15 +153,15 @@     -> CreateTapeWithBarcodeResponse createTapeWithBarcodeResponse pResponseStatus_ =   CreateTapeWithBarcodeResponse'-  {_ctwbrsTapeARN = Nothing, _ctwbrsResponseStatus = pResponseStatus_}+    {_ctwbrsTapeARN = Nothing, _ctwbrsResponseStatus = pResponseStatus_}   -- | A unique Amazon Resource Name (ARN) that represents the virtual tape that was created. ctwbrsTapeARN :: Lens' CreateTapeWithBarcodeResponse (Maybe Text)-ctwbrsTapeARN = lens _ctwbrsTapeARN (\ s a -> s{_ctwbrsTapeARN = a});+ctwbrsTapeARN = lens _ctwbrsTapeARN (\ s a -> s{_ctwbrsTapeARN = a})  -- | -- | The response status code. ctwbrsResponseStatus :: Lens' CreateTapeWithBarcodeResponse Int-ctwbrsResponseStatus = lens _ctwbrsResponseStatus (\ s a -> s{_ctwbrsResponseStatus = a});+ctwbrsResponseStatus = lens _ctwbrsResponseStatus (\ s a -> s{_ctwbrsResponseStatus = a})  instance NFData CreateTapeWithBarcodeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.CreateTapes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates one or more virtual tapes. You write data to the virtual tapes and then archive the tapes. This operation is only supported in the tape gateway architecture.+-- Creates one or more virtual tapes. You write data to the virtual tapes and then archive the tapes. This operation is only supported in the tape gateway type. -- -- module Network.AWS.StorageGateway.CreateTapes@@ -84,33 +84,33 @@     -> CreateTapes createTapes pGatewayARN_ pTapeSizeInBytes_ pClientToken_ pNumTapesToCreate_ pTapeBarcodePrefix_ =   CreateTapes'-  { _ctGatewayARN = pGatewayARN_-  , _ctTapeSizeInBytes = pTapeSizeInBytes_-  , _ctClientToken = pClientToken_-  , _ctNumTapesToCreate = _Nat # pNumTapesToCreate_-  , _ctTapeBarcodePrefix = pTapeBarcodePrefix_-  }+    { _ctGatewayARN = pGatewayARN_+    , _ctTapeSizeInBytes = pTapeSizeInBytes_+    , _ctClientToken = pClientToken_+    , _ctNumTapesToCreate = _Nat # pNumTapesToCreate_+    , _ctTapeBarcodePrefix = pTapeBarcodePrefix_+    }   -- | The unique Amazon Resource Name (ARN) that represents the gateway to associate the virtual tapes with. Use the 'ListGateways' operation to return a list of gateways for your account and region. ctGatewayARN :: Lens' CreateTapes Text-ctGatewayARN = lens _ctGatewayARN (\ s a -> s{_ctGatewayARN = a});+ctGatewayARN = lens _ctGatewayARN (\ s a -> s{_ctGatewayARN = a})  -- | The size, in bytes, of the virtual tapes that you want to create. ctTapeSizeInBytes :: Lens' CreateTapes Integer-ctTapeSizeInBytes = lens _ctTapeSizeInBytes (\ s a -> s{_ctTapeSizeInBytes = a});+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. ctClientToken :: Lens' CreateTapes Text-ctClientToken = lens _ctClientToken (\ s a -> s{_ctClientToken = a});+ctClientToken = lens _ctClientToken (\ s a -> s{_ctClientToken = a})  -- | The number of virtual tapes that 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 that you append to the barcode of the virtual tape you are creating. This prefix makes the barcode unique. ctTapeBarcodePrefix :: Lens' CreateTapes Text-ctTapeBarcodePrefix = lens _ctTapeBarcodePrefix (\ s a -> s{_ctTapeBarcodePrefix = a});+ctTapeBarcodePrefix = lens _ctTapeBarcodePrefix (\ s a -> s{_ctTapeBarcodePrefix = a})  instance AWSRequest CreateTapes where         type Rs CreateTapes = CreateTapesResponse@@ -175,15 +175,15 @@     -> CreateTapesResponse createTapesResponse pResponseStatus_ =   CreateTapesResponse'-  {_ctrsTapeARNs = Nothing, _ctrsResponseStatus = pResponseStatus_}+    {_ctrsTapeARNs = Nothing, _ctrsResponseStatus = pResponseStatus_}   -- | A list of unique Amazon Resource Names (ARNs) that represents the virtual tapes that were created. ctrsTapeARNs :: Lens' CreateTapesResponse [Text]-ctrsTapeARNs = lens _ctrsTapeARNs (\ s a -> s{_ctrsTapeARNs = a}) . _Default . _Coerce;+ctrsTapeARNs = lens _ctrsTapeARNs (\ s a -> s{_ctrsTapeARNs = a}) . _Default . _Coerce  -- | -- | The response status code. ctrsResponseStatus :: Lens' CreateTapesResponse Int-ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a});+ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a})  instance NFData CreateTapesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteBandwidthRateLimit--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,16 +73,16 @@     -> DeleteBandwidthRateLimit deleteBandwidthRateLimit pGatewayARN_ pBandwidthType_ =   DeleteBandwidthRateLimit'-  {_dbrlbGatewayARN = pGatewayARN_, _dbrlbBandwidthType = pBandwidthType_}+    {_dbrlbGatewayARN = pGatewayARN_, _dbrlbBandwidthType = pBandwidthType_}   -- | Undocumented member. dbrlbGatewayARN :: Lens' DeleteBandwidthRateLimit Text-dbrlbGatewayARN = lens _dbrlbGatewayARN (\ s a -> s{_dbrlbGatewayARN = a});+dbrlbGatewayARN = lens _dbrlbGatewayARN (\ s a -> s{_dbrlbGatewayARN = a})  -- | One of the BandwidthType values that indicates the gateway bandwidth rate limit to delete. Valid Values: @Upload@ , @Download@ , @All@ . dbrlbBandwidthType :: Lens' DeleteBandwidthRateLimit Text-dbrlbBandwidthType = lens _dbrlbBandwidthType (\ s a -> s{_dbrlbBandwidthType = a});+dbrlbBandwidthType = lens _dbrlbBandwidthType (\ s a -> s{_dbrlbBandwidthType = a})  instance AWSRequest DeleteBandwidthRateLimit where         type Rs DeleteBandwidthRateLimit =@@ -144,16 +144,16 @@     -> DeleteBandwidthRateLimitResponse deleteBandwidthRateLimitResponse pResponseStatus_ =   DeleteBandwidthRateLimitResponse'-  {_delrsGatewayARN = Nothing, _delrsResponseStatus = pResponseStatus_}+    {_delrsGatewayARN = Nothing, _delrsResponseStatus = pResponseStatus_}   -- | Undocumented member. delrsGatewayARN :: Lens' DeleteBandwidthRateLimitResponse (Maybe Text)-delrsGatewayARN = lens _delrsGatewayARN (\ s a -> s{_delrsGatewayARN = a});+delrsGatewayARN = lens _delrsGatewayARN (\ s a -> s{_delrsGatewayARN = a})  -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteBandwidthRateLimitResponse Int-delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a});+delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a})  instance NFData DeleteBandwidthRateLimitResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteChapCredentials--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -76,16 +76,16 @@     -> DeleteChapCredentials deleteChapCredentials pTargetARN_ pInitiatorName_ =   DeleteChapCredentials'-  {_dTargetARN = pTargetARN_, _dInitiatorName = pInitiatorName_}+    {_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});+dTargetARN = lens _dTargetARN (\ s a -> s{_dTargetARN = a})  -- | The iSCSI initiator that connects to the target. dInitiatorName :: Lens' DeleteChapCredentials Text-dInitiatorName = lens _dInitiatorName (\ s a -> s{_dInitiatorName = a});+dInitiatorName = lens _dInitiatorName (\ s a -> s{_dInitiatorName = a})  instance AWSRequest DeleteChapCredentials where         type Rs DeleteChapCredentials =@@ -151,22 +151,22 @@     -> DeleteChapCredentialsResponse deleteChapCredentialsResponse pResponseStatus_ =   DeleteChapCredentialsResponse'-  { _drsTargetARN = Nothing-  , _drsInitiatorName = Nothing-  , _drsResponseStatus = pResponseStatus_-  }+    { _drsTargetARN = Nothing+    , _drsInitiatorName = Nothing+    , _drsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the target. drsTargetARN :: Lens' DeleteChapCredentialsResponse (Maybe Text)-drsTargetARN = lens _drsTargetARN (\ s a -> s{_drsTargetARN = a});+drsTargetARN = lens _drsTargetARN (\ s a -> s{_drsTargetARN = a})  -- | The iSCSI initiator that connects to the target. drsInitiatorName :: Lens' DeleteChapCredentialsResponse (Maybe Text)-drsInitiatorName = lens _drsInitiatorName (\ s a -> s{_drsInitiatorName = a});+drsInitiatorName = lens _drsInitiatorName (\ s a -> s{_drsInitiatorName = a})  -- | -- | The response status code. drsResponseStatus :: Lens' DeleteChapCredentialsResponse Int-drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a})  instance NFData DeleteChapCredentialsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteFileShare--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes a file share from a file gateway. This operation is only supported in the file gateway architecture.+-- Deletes a file share from a file gateway. This operation is only supported in the file gateway type. -- -- module Network.AWS.StorageGateway.DeleteFileShare@@ -60,7 +60,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dfsForceDelete' - If set to true, deletes a file share immediately and aborts all data uploads to AWS. Otherwise the file share is not deleted until all data is uploaded to AWS. This process aborts the data upload process and the file share enters the FORCE_DELETING status.+-- * 'dfsForceDelete' - If this value is set to true, the operation deletes a file share immediately and aborts all data uploads to AWS. Otherwise, the file share is not deleted until all data is uploaded to AWS. This process aborts the data upload process, and the file share enters the FORCE_DELETING status. -- -- * 'dfsFileShareARN' - The Amazon Resource Name (ARN) of the file share to be deleted. deleteFileShare@@ -68,16 +68,16 @@     -> DeleteFileShare deleteFileShare pFileShareARN_ =   DeleteFileShare'-  {_dfsForceDelete = Nothing, _dfsFileShareARN = pFileShareARN_}+    {_dfsForceDelete = Nothing, _dfsFileShareARN = pFileShareARN_}  --- | If set to true, deletes a file share immediately and aborts all data uploads to AWS. Otherwise the file share is not deleted until all data is uploaded to AWS. This process aborts the data upload process and the file share enters the FORCE_DELETING status.+-- | If this value is set to true, the operation deletes a file share immediately and aborts all data uploads to AWS. Otherwise, the file share is not deleted until all data is uploaded to AWS. This process aborts the data upload process, and the file share enters the FORCE_DELETING status. dfsForceDelete :: Lens' DeleteFileShare (Maybe Bool)-dfsForceDelete = lens _dfsForceDelete (\ s a -> s{_dfsForceDelete = a});+dfsForceDelete = lens _dfsForceDelete (\ s a -> s{_dfsForceDelete = a})  -- | The Amazon Resource Name (ARN) of the file share to be deleted. dfsFileShareARN :: Lens' DeleteFileShare Text-dfsFileShareARN = lens _dfsFileShareARN (\ s a -> s{_dfsFileShareARN = a});+dfsFileShareARN = lens _dfsFileShareARN (\ s a -> s{_dfsFileShareARN = a})  instance AWSRequest DeleteFileShare where         type Rs DeleteFileShare = DeleteFileShareResponse@@ -138,15 +138,15 @@     -> DeleteFileShareResponse deleteFileShareResponse pResponseStatus_ =   DeleteFileShareResponse'-  {_dfsrsFileShareARN = Nothing, _dfsrsResponseStatus = pResponseStatus_}+    {_dfsrsFileShareARN = Nothing, _dfsrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the deleted file share. dfsrsFileShareARN :: Lens' DeleteFileShareResponse (Maybe Text)-dfsrsFileShareARN = lens _dfsrsFileShareARN (\ s a -> s{_dfsrsFileShareARN = a});+dfsrsFileShareARN = lens _dfsrsFileShareARN (\ s a -> s{_dfsrsFileShareARN = a})  -- | -- | The response status code. dfsrsResponseStatus :: Lens' DeleteFileShareResponse Int-dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a});+dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a})  instance NFData DeleteFileShareResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteGateway--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -48,7 +48,7 @@ import Network.AWS.StorageGateway.Types import Network.AWS.StorageGateway.Types.Product --- | A JSON object containing the id of the gateway to delete.+-- | A JSON object containing the ID of the gateway to delete. -- -- --@@ -71,7 +71,7 @@  -- | Undocumented member. dgGatewayARN :: Lens' DeleteGateway Text-dgGatewayARN = lens _dgGatewayARN (\ s a -> s{_dgGatewayARN = a});+dgGatewayARN = lens _dgGatewayARN (\ s a -> s{_dgGatewayARN = a})  instance AWSRequest DeleteGateway where         type Rs DeleteGateway = DeleteGatewayResponse@@ -107,7 +107,7 @@ instance ToQuery DeleteGateway where         toQuery = const mempty --- | A JSON object containing the id of the deleted gateway.+-- | A JSON object containing the ID of the deleted gateway. -- -- --@@ -130,15 +130,15 @@     -> DeleteGatewayResponse deleteGatewayResponse pResponseStatus_ =   DeleteGatewayResponse'-  {_dgrsGatewayARN = Nothing, _dgrsResponseStatus = pResponseStatus_}+    {_dgrsGatewayARN = Nothing, _dgrsResponseStatus = pResponseStatus_}   -- | Undocumented member. dgrsGatewayARN :: Lens' DeleteGatewayResponse (Maybe Text)-dgrsGatewayARN = lens _dgrsGatewayARN (\ s a -> s{_dgrsGatewayARN = a});+dgrsGatewayARN = lens _dgrsGatewayARN (\ s a -> s{_dgrsGatewayARN = a})  -- | -- | The response status code. dgrsResponseStatus :: Lens' DeleteGatewayResponse Int-dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a});+dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a})  instance NFData DeleteGatewayResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteSnapshotSchedule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Deletes a snapshot of a volume. -- ----- You can take snapshots of your gateway volumes on a scheduled or ad hoc basis. This API action 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).+-- You can take snapshots of your gateway volumes on a scheduled or ad hoc basis. This API action 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). This operation is only supported in stored and cached volume gateway types. -- module Network.AWS.StorageGateway.DeleteSnapshotSchedule     (@@ -66,7 +66,7 @@  -- | Undocumented member. dVolumeARN :: Lens' DeleteSnapshotSchedule Text-dVolumeARN = lens _dVolumeARN (\ s a -> s{_dVolumeARN = a});+dVolumeARN = lens _dVolumeARN (\ s a -> s{_dVolumeARN = a})  instance AWSRequest DeleteSnapshotSchedule where         type Rs DeleteSnapshotSchedule =@@ -122,15 +122,15 @@     -> DeleteSnapshotScheduleResponse deleteSnapshotScheduleResponse pResponseStatus_ =   DeleteSnapshotScheduleResponse'-  {_dsssrsVolumeARN = Nothing, _dsssrsResponseStatus = pResponseStatus_}+    {_dsssrsVolumeARN = Nothing, _dsssrsResponseStatus = pResponseStatus_}   -- | Undocumented member. dsssrsVolumeARN :: Lens' DeleteSnapshotScheduleResponse (Maybe Text)-dsssrsVolumeARN = lens _dsssrsVolumeARN (\ s a -> s{_dsssrsVolumeARN = a});+dsssrsVolumeARN = lens _dsssrsVolumeARN (\ s a -> s{_dsssrsVolumeARN = a})  -- | -- | The response status code. dsssrsResponseStatus :: Lens' DeleteSnapshotScheduleResponse Int-dsssrsResponseStatus = lens _dsssrsResponseStatus (\ s a -> s{_dsssrsResponseStatus = a});+dsssrsResponseStatus = lens _dsssrsResponseStatus (\ s a -> s{_dsssrsResponseStatus = a})  instance NFData DeleteSnapshotScheduleResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteTape--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified virtual tape. This operation is only supported in the tape gateway architecture.+-- Deletes the specified virtual tape. This operation is only supported in the tape gateway type. -- -- module Network.AWS.StorageGateway.DeleteTape@@ -73,11 +73,11 @@  -- | The unique Amazon Resource Name (ARN) of the gateway that the virtual tape to delete is associated with. Use the 'ListGateways' operation to return a list of gateways for your account and region. delGatewayARN :: Lens' DeleteTape Text-delGatewayARN = lens _delGatewayARN (\ s a -> s{_delGatewayARN = a});+delGatewayARN = lens _delGatewayARN (\ s a -> s{_delGatewayARN = a})  -- | The Amazon Resource Name (ARN) of the virtual tape to delete. delTapeARN :: Lens' DeleteTape Text-delTapeARN = lens _delTapeARN (\ s a -> s{_delTapeARN = a});+delTapeARN = lens _delTapeARN (\ s a -> s{_delTapeARN = a})  instance AWSRequest DeleteTape where         type Rs DeleteTape = DeleteTapeResponse@@ -137,15 +137,15 @@     -> DeleteTapeResponse deleteTapeResponse pResponseStatus_ =   DeleteTapeResponse'-  {_dtrsTapeARN = Nothing, _dtrsResponseStatus = pResponseStatus_}+    {_dtrsTapeARN = Nothing, _dtrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the deleted virtual tape. dtrsTapeARN :: Lens' DeleteTapeResponse (Maybe Text)-dtrsTapeARN = lens _dtrsTapeARN (\ s a -> s{_dtrsTapeARN = a});+dtrsTapeARN = lens _dtrsTapeARN (\ s a -> s{_dtrsTapeARN = a})  -- | -- | The response status code. dtrsResponseStatus :: Lens' DeleteTapeResponse Int-dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a})  instance NFData DeleteTapeResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteTapeArchive--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified virtual tape from the virtual tape shelf (VTS). This operation is only supported in the tape gateway architecture.+-- Deletes the specified virtual tape from the virtual tape shelf (VTS). This operation is only supported in the tape gateway type. -- -- module Network.AWS.StorageGateway.DeleteTapeArchive@@ -67,7 +67,7 @@  -- | 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})  instance AWSRequest DeleteTapeArchive where         type Rs DeleteTapeArchive = DeleteTapeArchiveResponse@@ -126,15 +126,15 @@     -> DeleteTapeArchiveResponse deleteTapeArchiveResponse pResponseStatus_ =   DeleteTapeArchiveResponse'-  {_dtatrsTapeARN = Nothing, _dtatrsResponseStatus = pResponseStatus_}+    {_dtatrsTapeARN = Nothing, _dtatrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the virtual tape that was deleted from the virtual tape shelf (VTS). dtatrsTapeARN :: Lens' DeleteTapeArchiveResponse (Maybe Text)-dtatrsTapeARN = lens _dtatrsTapeARN (\ s a -> s{_dtatrsTapeARN = a});+dtatrsTapeARN = lens _dtatrsTapeARN (\ s a -> s{_dtatrsTapeARN = a})  -- | -- | The response status code. dtatrsResponseStatus :: Lens' DeleteTapeArchiveResponse Int-dtatrsResponseStatus = lens _dtatrsResponseStatus (\ s a -> s{_dtatrsResponseStatus = a});+dtatrsResponseStatus = lens _dtatrsResponseStatus (\ s a -> s{_dtatrsResponseStatus = a})  instance NFData DeleteTapeArchiveResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DeleteVolume--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Deletes the specified storage volume that you previously created using the 'CreateCachediSCSIVolume' or 'CreateStorediSCSIVolume' API. This operation is only supported in the cached volume and stored volume architectures. For stored volume gateways, the local disk that was configured as the storage volume is not deleted. You can reuse the local disk to create another storage volume.+-- Deletes the specified storage volume that you previously created using the 'CreateCachediSCSIVolume' or 'CreateStorediSCSIVolume' API. This operation is only supported in the cached volume and stored volume types. For stored volume gateways, the local disk that was configured as the storage volume is not deleted. You can reuse the local disk to create another storage volume. -- -- -- Before you delete a 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/ .@@ -71,7 +71,7 @@  -- | 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})  instance AWSRequest DeleteVolume where         type Rs DeleteVolume = DeleteVolumeResponse@@ -130,15 +130,15 @@     -> DeleteVolumeResponse deleteVolumeResponse pResponseStatus_ =   DeleteVolumeResponse'-  {_dvrsVolumeARN = Nothing, _dvrsResponseStatus = pResponseStatus_}+    {_dvrsVolumeARN = Nothing, _dvrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the storage volume that was deleted. It is the same ARN you provided in the request. dvrsVolumeARN :: Lens' DeleteVolumeResponse (Maybe Text)-dvrsVolumeARN = lens _dvrsVolumeARN (\ s a -> s{_dvrsVolumeARN = a});+dvrsVolumeARN = lens _dvrsVolumeARN (\ s a -> s{_dvrsVolumeARN = a})  -- | -- | The response status code. dvrsResponseStatus :: Lens' DeleteVolumeResponse Int-dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a});+dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a})  instance NFData DeleteVolumeResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeBandwidthRateLimit--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@  -- | Undocumented member. dbrlGatewayARN :: Lens' DescribeBandwidthRateLimit Text-dbrlGatewayARN = lens _dbrlGatewayARN (\ s a -> s{_dbrlGatewayARN = a});+dbrlGatewayARN = lens _dbrlGatewayARN (\ s a -> s{_dbrlGatewayARN = a})  instance AWSRequest DescribeBandwidthRateLimit where         type Rs DescribeBandwidthRateLimit =@@ -141,28 +141,28 @@     -> DescribeBandwidthRateLimitResponse describeBandwidthRateLimitResponse pResponseStatus_ =   DescribeBandwidthRateLimitResponse'-  { _dbrlrsGatewayARN = Nothing-  , _dbrlrsAverageUploadRateLimitInBitsPerSec = Nothing-  , _dbrlrsAverageDownloadRateLimitInBitsPerSec = Nothing-  , _dbrlrsResponseStatus = pResponseStatus_-  }+    { _dbrlrsGatewayARN = Nothing+    , _dbrlrsAverageUploadRateLimitInBitsPerSec = Nothing+    , _dbrlrsAverageDownloadRateLimitInBitsPerSec = Nothing+    , _dbrlrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. dbrlrsGatewayARN :: Lens' DescribeBandwidthRateLimitResponse (Maybe Text)-dbrlrsGatewayARN = lens _dbrlrsGatewayARN (\ s a -> s{_dbrlrsGatewayARN = a});+dbrlrsGatewayARN = lens _dbrlrsGatewayARN (\ s a -> s{_dbrlrsGatewayARN = a})  -- | 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;+dbrlrsAverageUploadRateLimitInBitsPerSec = lens _dbrlrsAverageUploadRateLimitInBitsPerSec (\ s a -> s{_dbrlrsAverageUploadRateLimitInBitsPerSec = a}) . mapping _Nat  -- | 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;+dbrlrsAverageDownloadRateLimitInBitsPerSec = lens _dbrlrsAverageDownloadRateLimitInBitsPerSec (\ s a -> s{_dbrlrsAverageDownloadRateLimitInBitsPerSec = a}) . mapping _Nat  -- | -- | The response status code. dbrlrsResponseStatus :: Lens' DescribeBandwidthRateLimitResponse Int-dbrlrsResponseStatus = lens _dbrlrsResponseStatus (\ s a -> s{_dbrlrsResponseStatus = a});+dbrlrsResponseStatus = lens _dbrlrsResponseStatus (\ s a -> s{_dbrlrsResponseStatus = a})  instance NFData DescribeBandwidthRateLimitResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeCache--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the cache of a gateway. This operation is only supported in the cached volume,tape and file gateway architectures.+-- Returns information about the cache of a gateway. This operation is only supported in the cached volume, tape and file gateway types. -- -- -- The response includes disk IDs that are configured as cache, and it includes the amount of cache allocated and used.@@ -71,7 +71,7 @@  -- | Undocumented member. dcGatewayARN :: Lens' DescribeCache Text-dcGatewayARN = lens _dcGatewayARN (\ s a -> s{_dcGatewayARN = a});+dcGatewayARN = lens _dcGatewayARN (\ s a -> s{_dcGatewayARN = a})  instance AWSRequest DescribeCache where         type Rs DescribeCache = DescribeCacheResponse@@ -150,47 +150,47 @@     -> DescribeCacheResponse describeCacheResponse pResponseStatus_ =   DescribeCacheResponse'-  { _dcrsGatewayARN = Nothing-  , _dcrsDiskIds = Nothing-  , _dcrsCacheUsedPercentage = Nothing-  , _dcrsCacheHitPercentage = Nothing-  , _dcrsCacheMissPercentage = Nothing-  , _dcrsCacheAllocatedInBytes = Nothing-  , _dcrsCacheDirtyPercentage = Nothing-  , _dcrsResponseStatus = pResponseStatus_-  }+    { _dcrsGatewayARN = Nothing+    , _dcrsDiskIds = Nothing+    , _dcrsCacheUsedPercentage = Nothing+    , _dcrsCacheHitPercentage = Nothing+    , _dcrsCacheMissPercentage = Nothing+    , _dcrsCacheAllocatedInBytes = Nothing+    , _dcrsCacheDirtyPercentage = Nothing+    , _dcrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. dcrsGatewayARN :: Lens' DescribeCacheResponse (Maybe Text)-dcrsGatewayARN = lens _dcrsGatewayARN (\ s a -> s{_dcrsGatewayARN = a});+dcrsGatewayARN = lens _dcrsGatewayARN (\ s a -> s{_dcrsGatewayARN = a})  -- | Undocumented member. dcrsDiskIds :: Lens' DescribeCacheResponse [Text]-dcrsDiskIds = lens _dcrsDiskIds (\ s a -> s{_dcrsDiskIds = a}) . _Default . _Coerce;+dcrsDiskIds = lens _dcrsDiskIds (\ s a -> s{_dcrsDiskIds = a}) . _Default . _Coerce  -- | Undocumented member. dcrsCacheUsedPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrsCacheUsedPercentage = lens _dcrsCacheUsedPercentage (\ s a -> s{_dcrsCacheUsedPercentage = a});+dcrsCacheUsedPercentage = lens _dcrsCacheUsedPercentage (\ s a -> s{_dcrsCacheUsedPercentage = a})  -- | Undocumented member. dcrsCacheHitPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrsCacheHitPercentage = lens _dcrsCacheHitPercentage (\ s a -> s{_dcrsCacheHitPercentage = a});+dcrsCacheHitPercentage = lens _dcrsCacheHitPercentage (\ s a -> s{_dcrsCacheHitPercentage = a})  -- | Undocumented member. dcrsCacheMissPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrsCacheMissPercentage = lens _dcrsCacheMissPercentage (\ s a -> s{_dcrsCacheMissPercentage = a});+dcrsCacheMissPercentage = lens _dcrsCacheMissPercentage (\ s a -> s{_dcrsCacheMissPercentage = a})  -- | Undocumented member. dcrsCacheAllocatedInBytes :: Lens' DescribeCacheResponse (Maybe Integer)-dcrsCacheAllocatedInBytes = lens _dcrsCacheAllocatedInBytes (\ s a -> s{_dcrsCacheAllocatedInBytes = a});+dcrsCacheAllocatedInBytes = lens _dcrsCacheAllocatedInBytes (\ s a -> s{_dcrsCacheAllocatedInBytes = a})  -- | Undocumented member. dcrsCacheDirtyPercentage :: Lens' DescribeCacheResponse (Maybe Double)-dcrsCacheDirtyPercentage = lens _dcrsCacheDirtyPercentage (\ s a -> s{_dcrsCacheDirtyPercentage = a});+dcrsCacheDirtyPercentage = lens _dcrsCacheDirtyPercentage (\ s a -> s{_dcrsCacheDirtyPercentage = a})  -- | -- | The response status code. dcrsResponseStatus :: Lens' DescribeCacheResponse Int-dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a});+dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a})  instance NFData DescribeCacheResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeCachediSCSIVolumes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a description of the gateway volumes specified in the request. This operation is only supported in the cached volume gateway architecture.+-- Returns a description of the gateway volumes specified in the request. This operation is only supported in the cached volume gateway types. -- -- -- The list of gateway volumes in the request must be from one gateway. In the response Amazon Storage Gateway returns volume information sorted by volume Amazon Resource Name (ARN).@@ -65,7 +65,7 @@  -- | Undocumented member. dcscsivVolumeARNs :: Lens' DescribeCachediSCSIVolumes [Text]-dcscsivVolumeARNs = lens _dcscsivVolumeARNs (\ s a -> s{_dcscsivVolumeARNs = a}) . _Coerce;+dcscsivVolumeARNs = lens _dcscsivVolumeARNs (\ s a -> s{_dcscsivVolumeARNs = a}) . _Coerce  instance AWSRequest DescribeCachediSCSIVolumes where         type Rs DescribeCachediSCSIVolumes =@@ -127,18 +127,18 @@     -> DescribeCachediSCSIVolumesResponse describeCachediSCSIVolumesResponse pResponseStatus_ =   DescribeCachediSCSIVolumesResponse'-  { _dcscsivrsCachediSCSIVolumes = Nothing-  , _dcscsivrsResponseStatus = pResponseStatus_-  }+    { _dcscsivrsCachediSCSIVolumes = Nothing+    , _dcscsivrsResponseStatus = pResponseStatus_+    }   -- | An array of objects where each object contains metadata about one cached volume. dcscsivrsCachediSCSIVolumes :: Lens' DescribeCachediSCSIVolumesResponse [CachediSCSIVolume]-dcscsivrsCachediSCSIVolumes = lens _dcscsivrsCachediSCSIVolumes (\ s a -> s{_dcscsivrsCachediSCSIVolumes = a}) . _Default . _Coerce;+dcscsivrsCachediSCSIVolumes = lens _dcscsivrsCachediSCSIVolumes (\ s a -> s{_dcscsivrsCachediSCSIVolumes = a}) . _Default . _Coerce  -- | -- | The response status code. dcscsivrsResponseStatus :: Lens' DescribeCachediSCSIVolumesResponse Int-dcscsivrsResponseStatus = lens _dcscsivrsResponseStatus (\ s a -> s{_dcscsivrsResponseStatus = a});+dcscsivrsResponseStatus = lens _dcscsivrsResponseStatus (\ s a -> s{_dcscsivrsResponseStatus = a})  instance NFData DescribeCachediSCSIVolumesResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeChapCredentials--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -68,7 +68,7 @@  -- | The Amazon Resource Name (ARN) of the iSCSI volume target. Use the 'DescribeStorediSCSIVolumes' operation to return to retrieve the TargetARN for specified VolumeARN. dccTargetARN :: Lens' DescribeChapCredentials Text-dccTargetARN = lens _dccTargetARN (\ s a -> s{_dccTargetARN = a});+dccTargetARN = lens _dccTargetARN (\ s a -> s{_dccTargetARN = a})  instance AWSRequest DescribeChapCredentials where         type Rs DescribeChapCredentials =@@ -129,15 +129,15 @@     -> DescribeChapCredentialsResponse describeChapCredentialsResponse pResponseStatus_ =   DescribeChapCredentialsResponse'-  {_dccrsChapCredentials = Nothing, _dccrsResponseStatus = pResponseStatus_}+    {_dccrsChapCredentials = Nothing, _dccrsResponseStatus = pResponseStatus_}   -- | An array of 'ChapInfo' objects that represent CHAP credentials. Each object in the array contains CHAP credential information for one target-initiator pair. If no CHAP credentials are set, an empty array is returned. CHAP credential information is provided in a JSON object with the following fields:     * __InitiatorName__ : The iSCSI initiator that connects to the target.     * __SecretToAuthenticateInitiator__ : The secret key that the initiator (for example, the Windows client) must provide to participate in mutual CHAP with the target.     * __SecretToAuthenticateTarget__ : The secret key that the target must provide to participate in mutual CHAP with the initiator (e.g. Windows client).     * __TargetARN__ : The Amazon Resource Name (ARN) of the storage volume. dccrsChapCredentials :: Lens' DescribeChapCredentialsResponse [ChapInfo]-dccrsChapCredentials = lens _dccrsChapCredentials (\ s a -> s{_dccrsChapCredentials = a}) . _Default . _Coerce;+dccrsChapCredentials = lens _dccrsChapCredentials (\ s a -> s{_dccrsChapCredentials = a}) . _Default . _Coerce  -- | -- | The response status code. dccrsResponseStatus :: Lens' DescribeChapCredentialsResponse Int-dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a});+dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a})  instance NFData DescribeChapCredentialsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeGatewayInformation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -52,7 +52,7 @@ import Network.AWS.StorageGateway.Types import Network.AWS.StorageGateway.Types.Product --- | A JSON object containing the id of the gateway.+-- | A JSON object containing the ID of the gateway. -- -- --@@ -76,7 +76,7 @@  -- | Undocumented member. dgiGatewayARN :: Lens' DescribeGatewayInformation Text-dgiGatewayARN = lens _dgiGatewayARN (\ s a -> s{_dgiGatewayARN = a});+dgiGatewayARN = lens _dgiGatewayARN (\ s a -> s{_dgiGatewayARN = a})  instance AWSRequest DescribeGatewayInformation where         type Rs DescribeGatewayInformation =@@ -168,58 +168,58 @@     -> DescribeGatewayInformationResponse describeGatewayInformationResponse pResponseStatus_ =   DescribeGatewayInformationResponse'-  { _dgirsGatewayState = Nothing-  , _dgirsGatewayARN = Nothing-  , _dgirsGatewayNetworkInterfaces = Nothing-  , _dgirsNextUpdateAvailabilityDate = Nothing-  , _dgirsLastSoftwareUpdate = Nothing-  , _dgirsGatewayName = Nothing-  , _dgirsGatewayId = Nothing-  , _dgirsGatewayType = Nothing-  , _dgirsGatewayTimezone = Nothing-  , _dgirsResponseStatus = pResponseStatus_-  }+    { _dgirsGatewayState = Nothing+    , _dgirsGatewayARN = Nothing+    , _dgirsGatewayNetworkInterfaces = Nothing+    , _dgirsNextUpdateAvailabilityDate = Nothing+    , _dgirsLastSoftwareUpdate = Nothing+    , _dgirsGatewayName = Nothing+    , _dgirsGatewayId = Nothing+    , _dgirsGatewayType = Nothing+    , _dgirsGatewayTimezone = Nothing+    , _dgirsResponseStatus = pResponseStatus_+    }   -- | A value that indicates the operating state of the gateway. dgirsGatewayState :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsGatewayState = lens _dgirsGatewayState (\ s a -> s{_dgirsGatewayState = a});+dgirsGatewayState = lens _dgirsGatewayState (\ s a -> s{_dgirsGatewayState = a})  -- | Undocumented member. dgirsGatewayARN :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsGatewayARN = lens _dgirsGatewayARN (\ s a -> s{_dgirsGatewayARN = a});+dgirsGatewayARN = lens _dgirsGatewayARN (\ s a -> s{_dgirsGatewayARN = a})  -- | A 'NetworkInterface' array that contains descriptions of the gateway network interfaces. dgirsGatewayNetworkInterfaces :: Lens' DescribeGatewayInformationResponse [NetworkInterface]-dgirsGatewayNetworkInterfaces = lens _dgirsGatewayNetworkInterfaces (\ s a -> s{_dgirsGatewayNetworkInterfaces = a}) . _Default . _Coerce;+dgirsGatewayNetworkInterfaces = lens _dgirsGatewayNetworkInterfaces (\ s a -> s{_dgirsGatewayNetworkInterfaces = a}) . _Default . _Coerce  -- | The date on which an update to the gateway is available. This date is in the time zone of the gateway. If the gateway is not available for an update this field is not returned in the response. dgirsNextUpdateAvailabilityDate :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsNextUpdateAvailabilityDate = lens _dgirsNextUpdateAvailabilityDate (\ s a -> s{_dgirsNextUpdateAvailabilityDate = a});+dgirsNextUpdateAvailabilityDate = lens _dgirsNextUpdateAvailabilityDate (\ s a -> s{_dgirsNextUpdateAvailabilityDate = a})  -- | The date on which the last software update was applied to the gateway. If the gateway has never been updated, this field does not return a value in the response. dgirsLastSoftwareUpdate :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsLastSoftwareUpdate = lens _dgirsLastSoftwareUpdate (\ s a -> s{_dgirsLastSoftwareUpdate = a});+dgirsLastSoftwareUpdate = lens _dgirsLastSoftwareUpdate (\ s a -> s{_dgirsLastSoftwareUpdate = a})  -- | The name you configured for your gateway. dgirsGatewayName :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsGatewayName = lens _dgirsGatewayName (\ s a -> s{_dgirsGatewayName = a});+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 Resource Name (ARN), which you use as input for other operations. dgirsGatewayId :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsGatewayId = lens _dgirsGatewayId (\ s a -> s{_dgirsGatewayId = a});+dgirsGatewayId = lens _dgirsGatewayId (\ s a -> s{_dgirsGatewayId = a})  -- | The type of the gateway. dgirsGatewayType :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsGatewayType = lens _dgirsGatewayType (\ s a -> s{_dgirsGatewayType = a});+dgirsGatewayType = lens _dgirsGatewayType (\ s a -> s{_dgirsGatewayType = a})  -- | A value that indicates the time zone configured for the gateway. dgirsGatewayTimezone :: Lens' DescribeGatewayInformationResponse (Maybe Text)-dgirsGatewayTimezone = lens _dgirsGatewayTimezone (\ s a -> s{_dgirsGatewayTimezone = a});+dgirsGatewayTimezone = lens _dgirsGatewayTimezone (\ s a -> s{_dgirsGatewayTimezone = a})  -- | -- | The response status code. dgirsResponseStatus :: Lens' DescribeGatewayInformationResponse Int-dgirsResponseStatus = lens _dgirsResponseStatus (\ s a -> s{_dgirsResponseStatus = a});+dgirsResponseStatus = lens _dgirsResponseStatus (\ s a -> s{_dgirsResponseStatus = a})  instance NFData DescribeGatewayInformationResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeMaintenanceStartTime--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -72,7 +72,7 @@  -- | Undocumented member. dmstGatewayARN :: Lens' DescribeMaintenanceStartTime Text-dmstGatewayARN = lens _dmstGatewayARN (\ s a -> s{_dmstGatewayARN = a});+dmstGatewayARN = lens _dmstGatewayARN (\ s a -> s{_dmstGatewayARN = a})  instance AWSRequest DescribeMaintenanceStartTime          where@@ -159,38 +159,38 @@     -> DescribeMaintenanceStartTimeResponse describeMaintenanceStartTimeResponse pResponseStatus_ =   DescribeMaintenanceStartTimeResponse'-  { _dmstrsGatewayARN = Nothing-  , _dmstrsMinuteOfHour = Nothing-  , _dmstrsHourOfDay = Nothing-  , _dmstrsTimezone = Nothing-  , _dmstrsDayOfWeek = Nothing-  , _dmstrsResponseStatus = pResponseStatus_-  }+    { _dmstrsGatewayARN = Nothing+    , _dmstrsMinuteOfHour = Nothing+    , _dmstrsHourOfDay = Nothing+    , _dmstrsTimezone = Nothing+    , _dmstrsDayOfWeek = Nothing+    , _dmstrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. dmstrsGatewayARN :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Text)-dmstrsGatewayARN = lens _dmstrsGatewayARN (\ s a -> s{_dmstrsGatewayARN = a});+dmstrsGatewayARN = lens _dmstrsGatewayARN (\ s a -> s{_dmstrsGatewayARN = a})  -- | The minute component of the maintenance start time represented as /mm/ , where /mm/ is the minute (0 to 59). The minute of the hour is in the time zone of the gateway. dmstrsMinuteOfHour :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural)-dmstrsMinuteOfHour = lens _dmstrsMinuteOfHour (\ s a -> s{_dmstrsMinuteOfHour = a}) . mapping _Nat;+dmstrsMinuteOfHour = lens _dmstrsMinuteOfHour (\ s a -> s{_dmstrsMinuteOfHour = a}) . mapping _Nat  -- | The hour component of the maintenance start time represented as /hh/ , where /hh/ is the hour (0 to 23). The hour of the day is in the time zone of the gateway. dmstrsHourOfDay :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural)-dmstrsHourOfDay = lens _dmstrsHourOfDay (\ s a -> s{_dmstrsHourOfDay = a}) . mapping _Nat;+dmstrsHourOfDay = lens _dmstrsHourOfDay (\ s a -> s{_dmstrsHourOfDay = a}) . mapping _Nat  -- | Undocumented member. dmstrsTimezone :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Text)-dmstrsTimezone = lens _dmstrsTimezone (\ s a -> s{_dmstrsTimezone = a});+dmstrsTimezone = lens _dmstrsTimezone (\ s a -> s{_dmstrsTimezone = a})  -- | An ordinal number between 0 and 6 that represents the day of the week, where 0 represents Sunday and 6 represents Saturday. The day of week is in the time zone of the gateway. dmstrsDayOfWeek :: Lens' DescribeMaintenanceStartTimeResponse (Maybe Natural)-dmstrsDayOfWeek = lens _dmstrsDayOfWeek (\ s a -> s{_dmstrsDayOfWeek = a}) . mapping _Nat;+dmstrsDayOfWeek = lens _dmstrsDayOfWeek (\ s a -> s{_dmstrsDayOfWeek = a}) . mapping _Nat  -- | -- | The response status code. dmstrsResponseStatus :: Lens' DescribeMaintenanceStartTimeResponse Int-dmstrsResponseStatus = lens _dmstrsResponseStatus (\ s a -> s{_dmstrsResponseStatus = a});+dmstrsResponseStatus = lens _dmstrsResponseStatus (\ s a -> s{_dmstrsResponseStatus = a})  instance NFData DescribeMaintenanceStartTimeResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeNFSFileShares--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets a description for one or more file shares from a file gateway. This operation is only supported in file gateways.+-- Gets a description for one or more file shares from a file gateway. This operation is only supported in the file gateway type. -- -- module Network.AWS.StorageGateway.DescribeNFSFileShares@@ -68,7 +68,7 @@  -- | An array containing the Amazon Resource Name (ARN) of each file share to be described. dnfsfsFileShareARNList :: Lens' DescribeNFSFileShares (NonEmpty Text)-dnfsfsFileShareARNList = lens _dnfsfsFileShareARNList (\ s a -> s{_dnfsfsFileShareARNList = a}) . _List1;+dnfsfsFileShareARNList = lens _dnfsfsFileShareARNList (\ s a -> s{_dnfsfsFileShareARNList = a}) . _List1  instance AWSRequest DescribeNFSFileShares where         type Rs DescribeNFSFileShares =@@ -131,17 +131,17 @@     -> DescribeNFSFileSharesResponse describeNFSFileSharesResponse pResponseStatus_ =   DescribeNFSFileSharesResponse'-  { _dnfsfsrsNFSFileShareInfoList = Nothing-  , _dnfsfsrsResponseStatus = pResponseStatus_-  }+    { _dnfsfsrsNFSFileShareInfoList = Nothing+    , _dnfsfsrsResponseStatus = pResponseStatus_+    }   -- | An array containing a description for each requested file share. dnfsfsrsNFSFileShareInfoList :: Lens' DescribeNFSFileSharesResponse [NFSFileShareInfo]-dnfsfsrsNFSFileShareInfoList = lens _dnfsfsrsNFSFileShareInfoList (\ s a -> s{_dnfsfsrsNFSFileShareInfoList = a}) . _Default . _Coerce;+dnfsfsrsNFSFileShareInfoList = lens _dnfsfsrsNFSFileShareInfoList (\ s a -> s{_dnfsfsrsNFSFileShareInfoList = a}) . _Default . _Coerce  -- | -- | The response status code. dnfsfsrsResponseStatus :: Lens' DescribeNFSFileSharesResponse Int-dnfsfsrsResponseStatus = lens _dnfsfsrsResponseStatus (\ s a -> s{_dnfsfsrsResponseStatus = a});+dnfsfsrsResponseStatus = lens _dnfsfsrsResponseStatus (\ s a -> s{_dnfsfsrsResponseStatus = a})  instance NFData DescribeNFSFileSharesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeSnapshotSchedule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes the snapshot schedule for the specified gateway volume. The snapshot schedule information includes intervals at which snapshots are automatically initiated on the volume. This operation is only supported in the cached volume and stored volume architectures.+-- Describes the snapshot schedule for the specified gateway volume. The snapshot schedule information includes intervals at which snapshots are automatically initiated on the volume. This operation is only supported in the cached volume and stored volume types. -- -- module Network.AWS.StorageGateway.DescribeSnapshotSchedule@@ -72,7 +72,7 @@  -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes. dssVolumeARN :: Lens' DescribeSnapshotSchedule Text-dssVolumeARN = lens _dssVolumeARN (\ s a -> s{_dssVolumeARN = a});+dssVolumeARN = lens _dssVolumeARN (\ s a -> s{_dssVolumeARN = a})  instance AWSRequest DescribeSnapshotSchedule where         type Rs DescribeSnapshotSchedule =@@ -144,38 +144,38 @@     -> DescribeSnapshotScheduleResponse describeSnapshotScheduleResponse pResponseStatus_ =   DescribeSnapshotScheduleResponse'-  { _dssrsStartAt = Nothing-  , _dssrsVolumeARN = Nothing-  , _dssrsRecurrenceInHours = Nothing-  , _dssrsTimezone = Nothing-  , _dssrsDescription = Nothing-  , _dssrsResponseStatus = pResponseStatus_-  }+    { _dssrsStartAt = Nothing+    , _dssrsVolumeARN = Nothing+    , _dssrsRecurrenceInHours = Nothing+    , _dssrsTimezone = Nothing+    , _dssrsDescription = Nothing+    , _dssrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. dssrsStartAt :: Lens' DescribeSnapshotScheduleResponse (Maybe Natural)-dssrsStartAt = lens _dssrsStartAt (\ s a -> s{_dssrsStartAt = a}) . mapping _Nat;+dssrsStartAt = lens _dssrsStartAt (\ s a -> s{_dssrsStartAt = a}) . mapping _Nat  -- | Undocumented member. dssrsVolumeARN :: Lens' DescribeSnapshotScheduleResponse (Maybe Text)-dssrsVolumeARN = lens _dssrsVolumeARN (\ s a -> s{_dssrsVolumeARN = a});+dssrsVolumeARN = lens _dssrsVolumeARN (\ s a -> s{_dssrsVolumeARN = a})  -- | Undocumented member. dssrsRecurrenceInHours :: Lens' DescribeSnapshotScheduleResponse (Maybe Natural)-dssrsRecurrenceInHours = lens _dssrsRecurrenceInHours (\ s a -> s{_dssrsRecurrenceInHours = a}) . mapping _Nat;+dssrsRecurrenceInHours = lens _dssrsRecurrenceInHours (\ s a -> s{_dssrsRecurrenceInHours = a}) . mapping _Nat  -- | Undocumented member. dssrsTimezone :: Lens' DescribeSnapshotScheduleResponse (Maybe Text)-dssrsTimezone = lens _dssrsTimezone (\ s a -> s{_dssrsTimezone = a});+dssrsTimezone = lens _dssrsTimezone (\ s a -> s{_dssrsTimezone = a})  -- | Undocumented member. dssrsDescription :: Lens' DescribeSnapshotScheduleResponse (Maybe Text)-dssrsDescription = lens _dssrsDescription (\ s a -> s{_dssrsDescription = a});+dssrsDescription = lens _dssrsDescription (\ s a -> s{_dssrsDescription = a})  -- | -- | The response status code. dssrsResponseStatus :: Lens' DescribeSnapshotScheduleResponse Int-dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a})  instance NFData DescribeSnapshotScheduleResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeStorediSCSIVolumes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns the description of the gateway volumes specified in the request. The list of gateway volumes in the request must be from one gateway. In the response Amazon Storage Gateway returns volume information sorted by volume ARNs. This operation is only supported in stored volume gateway architecture.+-- Returns the description of the gateway volumes specified in the request. The list of gateway volumes in the request must be from one gateway. In the response Amazon Storage Gateway returns volume information sorted by volume ARNs. This operation is only supported in stored volume gateway type. -- -- module Network.AWS.StorageGateway.DescribeStorediSCSIVolumes@@ -67,7 +67,7 @@  -- | An array of strings where each string represents the Amazon Resource Name (ARN) of a stored volume. All of the specified stored volumes must from the same gateway. Use 'ListVolumes' to get volume ARNs for a gateway. dsscsivVolumeARNs :: Lens' DescribeStorediSCSIVolumes [Text]-dsscsivVolumeARNs = lens _dsscsivVolumeARNs (\ s a -> s{_dsscsivVolumeARNs = a}) . _Coerce;+dsscsivVolumeARNs = lens _dsscsivVolumeARNs (\ s a -> s{_dsscsivVolumeARNs = a}) . _Coerce  instance AWSRequest DescribeStorediSCSIVolumes where         type Rs DescribeStorediSCSIVolumes =@@ -125,18 +125,18 @@     -> DescribeStorediSCSIVolumesResponse describeStorediSCSIVolumesResponse pResponseStatus_ =   DescribeStorediSCSIVolumesResponse'-  { _dsscsivrsStorediSCSIVolumes = Nothing-  , _dsscsivrsResponseStatus = pResponseStatus_-  }+    { _dsscsivrsStorediSCSIVolumes = Nothing+    , _dsscsivrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. dsscsivrsStorediSCSIVolumes :: Lens' DescribeStorediSCSIVolumesResponse [StorediSCSIVolume]-dsscsivrsStorediSCSIVolumes = lens _dsscsivrsStorediSCSIVolumes (\ s a -> s{_dsscsivrsStorediSCSIVolumes = a}) . _Default . _Coerce;+dsscsivrsStorediSCSIVolumes = lens _dsscsivrsStorediSCSIVolumes (\ s a -> s{_dsscsivrsStorediSCSIVolumes = a}) . _Default . _Coerce  -- | -- | The response status code. dsscsivrsResponseStatus :: Lens' DescribeStorediSCSIVolumesResponse Int-dsscsivrsResponseStatus = lens _dsscsivrsResponseStatus (\ s a -> s{_dsscsivrsResponseStatus = a});+dsscsivrsResponseStatus = lens _dsscsivrsResponseStatus (\ s a -> s{_dsscsivrsResponseStatus = a})  instance NFData DescribeStorediSCSIVolumesResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeTapeArchives--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a description of specified virtual tapes in the virtual tape shelf (VTS). This operation is only supported in the tape gateway architecture.+-- Returns a description of specified virtual tapes in the virtual tape shelf (VTS). This operation is only supported in the tape gateway type. -- -- -- If a specific @TapeARN@ is not specified, AWS Storage Gateway returns a description of all virtual tapes found in the VTS associated with your account.@@ -77,20 +77,20 @@     :: DescribeTapeArchives describeTapeArchives =   DescribeTapeArchives'-  {_dtaMarker = Nothing, _dtaLimit = Nothing, _dtaTapeARNs = Nothing}+    {_dtaMarker = Nothing, _dtaLimit = Nothing, _dtaTapeARNs = Nothing}   -- | An opaque string that indicates the position at which to begin describing virtual tapes. dtaMarker :: Lens' DescribeTapeArchives (Maybe Text)-dtaMarker = lens _dtaMarker (\ s a -> s{_dtaMarker = a});+dtaMarker = lens _dtaMarker (\ s a -> s{_dtaMarker = a})  -- | Specifies that the number of virtual tapes descried be limited to the specified number. dtaLimit :: Lens' DescribeTapeArchives (Maybe Natural)-dtaLimit = lens _dtaLimit (\ s a -> s{_dtaLimit = a}) . mapping _Nat;+dtaLimit = lens _dtaLimit (\ s a -> s{_dtaLimit = a}) . mapping _Nat  -- | Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe. dtaTapeARNs :: Lens' DescribeTapeArchives [Text]-dtaTapeARNs = lens _dtaTapeARNs (\ s a -> s{_dtaTapeARNs = a}) . _Default . _Coerce;+dtaTapeARNs = lens _dtaTapeARNs (\ s a -> s{_dtaTapeARNs = a}) . _Default . _Coerce  instance AWSPager DescribeTapeArchives where         page rq rs@@ -165,22 +165,22 @@     -> DescribeTapeArchivesResponse describeTapeArchivesResponse pResponseStatus_ =   DescribeTapeArchivesResponse'-  { _dtarsTapeArchives = Nothing-  , _dtarsMarker = Nothing-  , _dtarsResponseStatus = pResponseStatus_-  }+    { _dtarsTapeArchives = Nothing+    , _dtarsMarker = Nothing+    , _dtarsResponseStatus = pResponseStatus_+    }   -- | An array of virtual tape objects in the virtual tape shelf (VTS). The description includes of the Amazon Resource Name(ARN) of the virtual tapes. The information returned includes the Amazon Resource Names (ARNs) of the tapes, size of the tapes, status of the tapes, progress of the description and tape barcode. dtarsTapeArchives :: Lens' DescribeTapeArchivesResponse [TapeArchive]-dtarsTapeArchives = lens _dtarsTapeArchives (\ s a -> s{_dtarsTapeArchives = a}) . _Default . _Coerce;+dtarsTapeArchives = lens _dtarsTapeArchives (\ s a -> s{_dtarsTapeArchives = a}) . _Default . _Coerce  -- | An opaque string that indicates the position at which the virtual tapes that were fetched for description ended. Use this marker in your next request to fetch the next set of virtual tapes in the virtual tape shelf (VTS). If there are no more virtual tapes to describe, this field does not appear in the response. dtarsMarker :: Lens' DescribeTapeArchivesResponse (Maybe Text)-dtarsMarker = lens _dtarsMarker (\ s a -> s{_dtarsMarker = a});+dtarsMarker = lens _dtarsMarker (\ s a -> s{_dtarsMarker = a})  -- | -- | The response status code. dtarsResponseStatus :: Lens' DescribeTapeArchivesResponse Int-dtarsResponseStatus = lens _dtarsResponseStatus (\ s a -> s{_dtarsResponseStatus = a});+dtarsResponseStatus = lens _dtarsResponseStatus (\ s a -> s{_dtarsResponseStatus = a})  instance NFData DescribeTapeArchivesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeTapeRecoveryPoints--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Returns a list of virtual tape recovery points that are available for the specified tape gateway. -- ----- A recovery point is a point-in-time view of a virtual tape at which all the data on the virtual tape is consistent. If your gateway crashes, virtual tapes that have recovery points can be recovered to a new gateway. This operation is only supported in the tape gateway architecture.+-- A recovery point is a point-in-time view of a virtual tape at which all the data on the virtual tape is consistent. If your gateway crashes, virtual tapes that have recovery points can be recovered to a new gateway. This operation is only supported in the tape gateway type. -- -- -- This operation returns paginated results.@@ -79,20 +79,23 @@     -> DescribeTapeRecoveryPoints describeTapeRecoveryPoints pGatewayARN_ =   DescribeTapeRecoveryPoints'-  {_dtrpMarker = Nothing, _dtrpLimit = Nothing, _dtrpGatewayARN = pGatewayARN_}+    { _dtrpMarker = Nothing+    , _dtrpLimit = Nothing+    , _dtrpGatewayARN = pGatewayARN_+    }   -- | An opaque string that indicates the position at which to begin describing the virtual tape recovery points. dtrpMarker :: Lens' DescribeTapeRecoveryPoints (Maybe Text)-dtrpMarker = lens _dtrpMarker (\ s a -> s{_dtrpMarker = a});+dtrpMarker = lens _dtrpMarker (\ s a -> s{_dtrpMarker = a})  -- | Specifies that the number of virtual tape recovery points that are described be limited to the specified number. dtrpLimit :: Lens' DescribeTapeRecoveryPoints (Maybe Natural)-dtrpLimit = lens _dtrpLimit (\ s a -> s{_dtrpLimit = a}) . mapping _Nat;+dtrpLimit = lens _dtrpLimit (\ s a -> s{_dtrpLimit = a}) . mapping _Nat  -- | Undocumented member. dtrpGatewayARN :: Lens' DescribeTapeRecoveryPoints Text-dtrpGatewayARN = lens _dtrpGatewayARN (\ s a -> s{_dtrpGatewayARN = a});+dtrpGatewayARN = lens _dtrpGatewayARN (\ s a -> s{_dtrpGatewayARN = a})  instance AWSPager DescribeTapeRecoveryPoints where         page rq rs@@ -171,28 +174,28 @@     -> DescribeTapeRecoveryPointsResponse describeTapeRecoveryPointsResponse pResponseStatus_ =   DescribeTapeRecoveryPointsResponse'-  { _dtrprsTapeRecoveryPointInfos = Nothing-  , _dtrprsGatewayARN = Nothing-  , _dtrprsMarker = Nothing-  , _dtrprsResponseStatus = pResponseStatus_-  }+    { _dtrprsTapeRecoveryPointInfos = Nothing+    , _dtrprsGatewayARN = Nothing+    , _dtrprsMarker = Nothing+    , _dtrprsResponseStatus = pResponseStatus_+    }   -- | An array of TapeRecoveryPointInfos that are available for the specified gateway. dtrprsTapeRecoveryPointInfos :: Lens' DescribeTapeRecoveryPointsResponse [TapeRecoveryPointInfo]-dtrprsTapeRecoveryPointInfos = lens _dtrprsTapeRecoveryPointInfos (\ s a -> s{_dtrprsTapeRecoveryPointInfos = a}) . _Default . _Coerce;+dtrprsTapeRecoveryPointInfos = lens _dtrprsTapeRecoveryPointInfos (\ s a -> s{_dtrprsTapeRecoveryPointInfos = a}) . _Default . _Coerce  -- | Undocumented member. dtrprsGatewayARN :: Lens' DescribeTapeRecoveryPointsResponse (Maybe Text)-dtrprsGatewayARN = lens _dtrprsGatewayARN (\ s a -> s{_dtrprsGatewayARN = a});+dtrprsGatewayARN = lens _dtrprsGatewayARN (\ s a -> s{_dtrprsGatewayARN = a})  -- | An opaque string that indicates the position at which the virtual tape recovery points that were listed for description ended. Use this marker in your next request to list the next set of virtual tape recovery points in the list. If there are no more recovery points to describe, this field does not appear in the response. dtrprsMarker :: Lens' DescribeTapeRecoveryPointsResponse (Maybe Text)-dtrprsMarker = lens _dtrprsMarker (\ s a -> s{_dtrprsMarker = a});+dtrprsMarker = lens _dtrprsMarker (\ s a -> s{_dtrprsMarker = a})  -- | -- | The response status code. dtrprsResponseStatus :: Lens' DescribeTapeRecoveryPointsResponse Int-dtrprsResponseStatus = lens _dtrprsResponseStatus (\ s a -> s{_dtrprsResponseStatus = a});+dtrprsResponseStatus = lens _dtrprsResponseStatus (\ s a -> s{_dtrprsResponseStatus = a})  instance NFData DescribeTapeRecoveryPointsResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeTapes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns a description of the specified Amazon Resource Name (ARN) of virtual tapes. If a @TapeARN@ is not specified, returns a description of all virtual tapes associated with the specified gateway. This operation is only supported in the tape gateway architecture.+-- Returns a description of the specified Amazon Resource Name (ARN) of virtual tapes. If a @TapeARN@ is not specified, returns a description of all virtual tapes associated with the specified gateway. This operation is only supported in the tape gateway type. -- -- --@@ -80,28 +80,28 @@     -> DescribeTapes describeTapes pGatewayARN_ =   DescribeTapes'-  { _dtMarker = Nothing-  , _dtLimit = Nothing-  , _dtTapeARNs = Nothing-  , _dtGatewayARN = pGatewayARN_-  }+    { _dtMarker = Nothing+    , _dtLimit = Nothing+    , _dtTapeARNs = Nothing+    , _dtGatewayARN = pGatewayARN_+    }   -- | A marker value, obtained in a previous call to @DescribeTapes@ . This marker indicates which page of results to retrieve.  If not specified, the first page of results is retrieved. dtMarker :: Lens' DescribeTapes (Maybe Text)-dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a});+dtMarker = lens _dtMarker (\ s a -> s{_dtMarker = a})  -- | Specifies that the number of virtual tapes described be limited to the specified number. dtLimit :: Lens' DescribeTapes (Maybe Natural)-dtLimit = lens _dtLimit (\ s a -> s{_dtLimit = a}) . mapping _Nat;+dtLimit = lens _dtLimit (\ s a -> s{_dtLimit = a}) . mapping _Nat  -- | Specifies one or more unique Amazon Resource Names (ARNs) that represent the virtual tapes you want to describe. If this parameter is not specified, Tape gateway returns a description of all virtual tapes associated with the specified gateway. dtTapeARNs :: Lens' DescribeTapes [Text]-dtTapeARNs = lens _dtTapeARNs (\ s a -> s{_dtTapeARNs = a}) . _Default . _Coerce;+dtTapeARNs = lens _dtTapeARNs (\ s a -> s{_dtTapeARNs = a}) . _Default . _Coerce  -- | Undocumented member. dtGatewayARN :: Lens' DescribeTapes Text-dtGatewayARN = lens _dtGatewayARN (\ s a -> s{_dtGatewayARN = a});+dtGatewayARN = lens _dtGatewayARN (\ s a -> s{_dtGatewayARN = a})  instance AWSPager DescribeTapes where         page rq rs@@ -175,22 +175,22 @@     -> DescribeTapesResponse describeTapesResponse pResponseStatus_ =   DescribeTapesResponse'-  { _dtsrsMarker = Nothing-  , _dtsrsTapes = Nothing-  , _dtsrsResponseStatus = pResponseStatus_-  }+    { _dtsrsMarker = Nothing+    , _dtsrsTapes = Nothing+    , _dtsrsResponseStatus = pResponseStatus_+    }   -- | An opaque string which can be used as part of a subsequent DescribeTapes call to retrieve the next page of results. If a response does not contain a marker, then there are no more results to be retrieved. dtsrsMarker :: Lens' DescribeTapesResponse (Maybe Text)-dtsrsMarker = lens _dtsrsMarker (\ s a -> s{_dtsrsMarker = a});+dtsrsMarker = lens _dtsrsMarker (\ s a -> s{_dtsrsMarker = a})  -- | An array of virtual tape descriptions. dtsrsTapes :: Lens' DescribeTapesResponse [Tape]-dtsrsTapes = lens _dtsrsTapes (\ s a -> s{_dtsrsTapes = a}) . _Default . _Coerce;+dtsrsTapes = lens _dtsrsTapes (\ s a -> s{_dtsrsTapes = a}) . _Default . _Coerce  -- | -- | The response status code. dtsrsResponseStatus :: Lens' DescribeTapesResponse Int-dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a});+dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a})  instance NFData DescribeTapesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeUploadBuffer--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the upload buffer of a gateway. This operation is supported for the stored volume, cached volume and tape gateway architectures.+-- Returns information about the upload buffer of a gateway. This operation is supported for the stored volume, cached volume and tape gateway types. -- -- -- The response includes disk IDs that are configured as upload buffer space, and it includes the amount of upload buffer space allocated and used.@@ -69,7 +69,7 @@  -- | Undocumented member. dubGatewayARN :: Lens' DescribeUploadBuffer Text-dubGatewayARN = lens _dubGatewayARN (\ s a -> s{_dubGatewayARN = a});+dubGatewayARN = lens _dubGatewayARN (\ s a -> s{_dubGatewayARN = a})  instance AWSRequest DescribeUploadBuffer where         type Rs DescribeUploadBuffer =@@ -138,32 +138,32 @@     -> DescribeUploadBufferResponse describeUploadBufferResponse pResponseStatus_ =   DescribeUploadBufferResponse'-  { _dubrsUploadBufferAllocatedInBytes = Nothing-  , _dubrsGatewayARN = Nothing-  , _dubrsDiskIds = Nothing-  , _dubrsUploadBufferUsedInBytes = Nothing-  , _dubrsResponseStatus = pResponseStatus_-  }+    { _dubrsUploadBufferAllocatedInBytes = Nothing+    , _dubrsGatewayARN = Nothing+    , _dubrsDiskIds = Nothing+    , _dubrsUploadBufferUsedInBytes = Nothing+    , _dubrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. dubrsUploadBufferAllocatedInBytes :: Lens' DescribeUploadBufferResponse (Maybe Integer)-dubrsUploadBufferAllocatedInBytes = lens _dubrsUploadBufferAllocatedInBytes (\ s a -> s{_dubrsUploadBufferAllocatedInBytes = a});+dubrsUploadBufferAllocatedInBytes = lens _dubrsUploadBufferAllocatedInBytes (\ s a -> s{_dubrsUploadBufferAllocatedInBytes = a})  -- | Undocumented member. dubrsGatewayARN :: Lens' DescribeUploadBufferResponse (Maybe Text)-dubrsGatewayARN = lens _dubrsGatewayARN (\ s a -> s{_dubrsGatewayARN = a});+dubrsGatewayARN = lens _dubrsGatewayARN (\ s a -> s{_dubrsGatewayARN = a})  -- | Undocumented member. dubrsDiskIds :: Lens' DescribeUploadBufferResponse [Text]-dubrsDiskIds = lens _dubrsDiskIds (\ s a -> s{_dubrsDiskIds = a}) . _Default . _Coerce;+dubrsDiskIds = lens _dubrsDiskIds (\ s a -> s{_dubrsDiskIds = a}) . _Default . _Coerce  -- | Undocumented member. dubrsUploadBufferUsedInBytes :: Lens' DescribeUploadBufferResponse (Maybe Integer)-dubrsUploadBufferUsedInBytes = lens _dubrsUploadBufferUsedInBytes (\ s a -> s{_dubrsUploadBufferUsedInBytes = a});+dubrsUploadBufferUsedInBytes = lens _dubrsUploadBufferUsedInBytes (\ s a -> s{_dubrsUploadBufferUsedInBytes = a})  -- | -- | The response status code. dubrsResponseStatus :: Lens' DescribeUploadBufferResponse Int-dubrsResponseStatus = lens _dubrsResponseStatus (\ s a -> s{_dubrsResponseStatus = a});+dubrsResponseStatus = lens _dubrsResponseStatus (\ s a -> s{_dubrsResponseStatus = a})  instance NFData DescribeUploadBufferResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeVTLDevices--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Returns a description of virtual tape library (VTL) devices for the specified tape gateway. In the response, AWS Storage Gateway returns VTL device information. -- ----- This operation is only supported in the tape gateway architecture.+-- This operation is only supported in the tape gateway type. -- -- -- This operation returns paginated results.@@ -83,28 +83,28 @@     -> DescribeVTLDevices describeVTLDevices pGatewayARN_ =   DescribeVTLDevices'-  { _dvtldMarker = Nothing-  , _dvtldLimit = Nothing-  , _dvtldVTLDeviceARNs = Nothing-  , _dvtldGatewayARN = pGatewayARN_-  }+    { _dvtldMarker = Nothing+    , _dvtldLimit = Nothing+    , _dvtldVTLDeviceARNs = Nothing+    , _dvtldGatewayARN = pGatewayARN_+    }   -- | An opaque string that indicates the position at which to begin describing the VTL devices. dvtldMarker :: Lens' DescribeVTLDevices (Maybe Text)-dvtldMarker = lens _dvtldMarker (\ s a -> s{_dvtldMarker = a});+dvtldMarker = lens _dvtldMarker (\ s a -> s{_dvtldMarker = a})  -- | Specifies that the number of VTL devices described be limited to the specified number. dvtldLimit :: Lens' DescribeVTLDevices (Maybe Natural)-dvtldLimit = lens _dvtldLimit (\ s a -> s{_dvtldLimit = a}) . mapping _Nat;+dvtldLimit = lens _dvtldLimit (\ s a -> s{_dvtldLimit = a}) . mapping _Nat  -- | An array of strings, where each string represents the Amazon Resource Name (ARN) of a VTL device. dvtldVTLDeviceARNs :: Lens' DescribeVTLDevices [Text]-dvtldVTLDeviceARNs = lens _dvtldVTLDeviceARNs (\ s a -> s{_dvtldVTLDeviceARNs = a}) . _Default . _Coerce;+dvtldVTLDeviceARNs = lens _dvtldVTLDeviceARNs (\ s a -> s{_dvtldVTLDeviceARNs = a}) . _Default . _Coerce  -- | Undocumented member. dvtldGatewayARN :: Lens' DescribeVTLDevices Text-dvtldGatewayARN = lens _dvtldGatewayARN (\ s a -> s{_dvtldGatewayARN = a});+dvtldGatewayARN = lens _dvtldGatewayARN (\ s a -> s{_dvtldGatewayARN = a})  instance AWSPager DescribeVTLDevices where         page rq rs@@ -184,27 +184,27 @@     -> DescribeVTLDevicesResponse describeVTLDevicesResponse pResponseStatus_ =   DescribeVTLDevicesResponse'-  { _dvtldrsVTLDevices = Nothing-  , _dvtldrsGatewayARN = Nothing-  , _dvtldrsMarker = Nothing-  , _dvtldrsResponseStatus = pResponseStatus_-  }+    { _dvtldrsVTLDevices = Nothing+    , _dvtldrsGatewayARN = Nothing+    , _dvtldrsMarker = Nothing+    , _dvtldrsResponseStatus = pResponseStatus_+    }   -- | An array of VTL device objects composed of the Amazon Resource Name(ARN) of the VTL devices. dvtldrsVTLDevices :: Lens' DescribeVTLDevicesResponse [VTLDevice]-dvtldrsVTLDevices = lens _dvtldrsVTLDevices (\ s a -> s{_dvtldrsVTLDevices = a}) . _Default . _Coerce;+dvtldrsVTLDevices = lens _dvtldrsVTLDevices (\ s a -> s{_dvtldrsVTLDevices = a}) . _Default . _Coerce  -- | Undocumented member. dvtldrsGatewayARN :: Lens' DescribeVTLDevicesResponse (Maybe Text)-dvtldrsGatewayARN = lens _dvtldrsGatewayARN (\ s a -> s{_dvtldrsGatewayARN = a});+dvtldrsGatewayARN = lens _dvtldrsGatewayARN (\ s a -> s{_dvtldrsGatewayARN = a})  -- | An opaque string that indicates the position at which the VTL devices that were fetched for description ended. Use the marker in your next request to fetch the next set of VTL devices in the list. If there are no more VTL devices to describe, this field does not appear in the response. dvtldrsMarker :: Lens' DescribeVTLDevicesResponse (Maybe Text)-dvtldrsMarker = lens _dvtldrsMarker (\ s a -> s{_dvtldrsMarker = a});+dvtldrsMarker = lens _dvtldrsMarker (\ s a -> s{_dvtldrsMarker = a})  -- | -- | The response status code. dvtldrsResponseStatus :: Lens' DescribeVTLDevicesResponse Int-dvtldrsResponseStatus = lens _dvtldrsResponseStatus (\ s a -> s{_dvtldrsResponseStatus = a});+dvtldrsResponseStatus = lens _dvtldrsResponseStatus (\ s a -> s{_dvtldrsResponseStatus = a})  instance NFData DescribeVTLDevicesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.DescribeWorkingStorage--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Returns information about the working storage of a gateway. This operation is only supported in the stored volumes gateway architecture. This operation is deprecated in cached volumes API version (20120630). Use DescribeUploadBuffer instead.+-- Returns information about the working storage of a gateway. This operation is only supported in the stored volumes gateway type. This operation is deprecated in cached volumes API version (20120630). Use DescribeUploadBuffer instead. -- -- -- The response includes disk IDs that are configured as working storage, and it includes the amount of working storage allocated and used.@@ -73,7 +73,7 @@  -- | Undocumented member. dwsGatewayARN :: Lens' DescribeWorkingStorage Text-dwsGatewayARN = lens _dwsGatewayARN (\ s a -> s{_dwsGatewayARN = a});+dwsGatewayARN = lens _dwsGatewayARN (\ s a -> s{_dwsGatewayARN = a})  instance AWSRequest DescribeWorkingStorage where         type Rs DescribeWorkingStorage =@@ -145,32 +145,32 @@     -> DescribeWorkingStorageResponse describeWorkingStorageResponse pResponseStatus_ =   DescribeWorkingStorageResponse'-  { _dwsrsGatewayARN = Nothing-  , _dwsrsDiskIds = Nothing-  , _dwsrsWorkingStorageAllocatedInBytes = Nothing-  , _dwsrsWorkingStorageUsedInBytes = Nothing-  , _dwsrsResponseStatus = pResponseStatus_-  }+    { _dwsrsGatewayARN = Nothing+    , _dwsrsDiskIds = Nothing+    , _dwsrsWorkingStorageAllocatedInBytes = Nothing+    , _dwsrsWorkingStorageUsedInBytes = Nothing+    , _dwsrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. dwsrsGatewayARN :: Lens' DescribeWorkingStorageResponse (Maybe Text)-dwsrsGatewayARN = lens _dwsrsGatewayARN (\ s a -> s{_dwsrsGatewayARN = a});+dwsrsGatewayARN = lens _dwsrsGatewayARN (\ s a -> s{_dwsrsGatewayARN = a})  -- | An array of the gateway's local disk IDs that are configured as working storage. Each local disk ID is specified as a string (minimum length of 1 and maximum length of 300). If no local disks are configured as working storage, then the DiskIds array is empty. dwsrsDiskIds :: Lens' DescribeWorkingStorageResponse [Text]-dwsrsDiskIds = lens _dwsrsDiskIds (\ s a -> s{_dwsrsDiskIds = a}) . _Default . _Coerce;+dwsrsDiskIds = lens _dwsrsDiskIds (\ s a -> s{_dwsrsDiskIds = a}) . _Default . _Coerce  -- | The total working storage in bytes allocated for the gateway. If no working storage is configured for the gateway, this field returns 0. dwsrsWorkingStorageAllocatedInBytes :: Lens' DescribeWorkingStorageResponse (Maybe Integer)-dwsrsWorkingStorageAllocatedInBytes = lens _dwsrsWorkingStorageAllocatedInBytes (\ s a -> s{_dwsrsWorkingStorageAllocatedInBytes = a});+dwsrsWorkingStorageAllocatedInBytes = lens _dwsrsWorkingStorageAllocatedInBytes (\ s a -> s{_dwsrsWorkingStorageAllocatedInBytes = a})  -- | The total working storage in bytes in use by the gateway. If no working storage is configured for the gateway, this field returns 0. dwsrsWorkingStorageUsedInBytes :: Lens' DescribeWorkingStorageResponse (Maybe Integer)-dwsrsWorkingStorageUsedInBytes = lens _dwsrsWorkingStorageUsedInBytes (\ s a -> s{_dwsrsWorkingStorageUsedInBytes = a});+dwsrsWorkingStorageUsedInBytes = lens _dwsrsWorkingStorageUsedInBytes (\ s a -> s{_dwsrsWorkingStorageUsedInBytes = a})  -- | -- | The response status code. dwsrsResponseStatus :: Lens' DescribeWorkingStorageResponse Int-dwsrsResponseStatus = lens _dwsrsResponseStatus (\ s a -> s{_dwsrsResponseStatus = a});+dwsrsResponseStatus = lens _dwsrsResponseStatus (\ s a -> s{_dwsrsResponseStatus = a})  instance NFData DescribeWorkingStorageResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.DisableGateway--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Disables a tape gateway when the gateway is no longer functioning. For example, if your gateway VM is damaged, you can disable the gateway so you can recover virtual tapes. -- ----- Use this operation for a tape gateway that is not reachable or not functioning. This operation is only supported in the tape gateway architectures.+-- Use this operation for a tape gateway that is not reachable or not functioning. This operation is only supported in the tape gateway type. -- -- /Important:/ Once a gateway is disabled it cannot be enabled. --@@ -71,7 +71,7 @@  -- | Undocumented member. dGatewayARN :: Lens' DisableGateway Text-dGatewayARN = lens _dGatewayARN (\ s a -> s{_dGatewayARN = a});+dGatewayARN = lens _dGatewayARN (\ s a -> s{_dGatewayARN = a})  instance AWSRequest DisableGateway where         type Rs DisableGateway = DisableGatewayResponse@@ -130,15 +130,15 @@     -> DisableGatewayResponse disableGatewayResponse pResponseStatus_ =   DisableGatewayResponse'-  {_disrsGatewayARN = Nothing, _disrsResponseStatus = pResponseStatus_}+    {_disrsGatewayARN = Nothing, _disrsResponseStatus = pResponseStatus_}   -- | The unique Amazon Resource Name of the disabled gateway. disrsGatewayARN :: Lens' DisableGatewayResponse (Maybe Text)-disrsGatewayARN = lens _disrsGatewayARN (\ s a -> s{_disrsGatewayARN = a});+disrsGatewayARN = lens _disrsGatewayARN (\ s a -> s{_disrsGatewayARN = a})  -- | -- | The response status code. disrsResponseStatus :: Lens' DisableGatewayResponse Int-disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});+disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a})  instance NFData DisableGatewayResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ListFileShares--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Gets a list of the file shares for a specific file gateway, or the list of file shares that belong to the calling user account. This operation is only supported in the file gateway architecture.+-- Gets a list of the file shares for a specific file gateway, or the list of file shares that belong to the calling user account. This operation is only supported in the file gateway type. -- -- module Network.AWS.StorageGateway.ListFileShares@@ -73,20 +73,20 @@     :: ListFileShares listFileShares =   ListFileShares'-  {_lfsGatewayARN = Nothing, _lfsMarker = Nothing, _lfsLimit = Nothing}+    {_lfsGatewayARN = Nothing, _lfsMarker = Nothing, _lfsLimit = Nothing}   -- | The Amazon resource Name (ARN) of the gateway whose file shares you want to list. If this field is not present, all file shares under your account are listed. lfsGatewayARN :: Lens' ListFileShares (Maybe Text)-lfsGatewayARN = lens _lfsGatewayARN (\ s a -> s{_lfsGatewayARN = a});+lfsGatewayARN = lens _lfsGatewayARN (\ s a -> s{_lfsGatewayARN = a})  -- | Opaque pagination token returned from a previous ListFileShares operation. If present, @Marker@ specifies where to continue the list from after a previous call to ListFileShares. Optional. lfsMarker :: Lens' ListFileShares (Maybe Text)-lfsMarker = lens _lfsMarker (\ s a -> s{_lfsMarker = a});+lfsMarker = lens _lfsMarker (\ s a -> s{_lfsMarker = a})  -- | The maximum number of file shares to return in the response. The value must be an integer with a value greater than zero. Optional. lfsLimit :: Lens' ListFileShares (Maybe Natural)-lfsLimit = lens _lfsLimit (\ s a -> s{_lfsLimit = a}) . mapping _Nat;+lfsLimit = lens _lfsLimit (\ s a -> s{_lfsLimit = a}) . mapping _Nat  instance AWSRequest ListFileShares where         type Rs ListFileShares = ListFileSharesResponse@@ -157,27 +157,27 @@     -> ListFileSharesResponse listFileSharesResponse pResponseStatus_ =   ListFileSharesResponse'-  { _lfsrsFileShareInfoList = Nothing-  , _lfsrsMarker = Nothing-  , _lfsrsNextMarker = Nothing-  , _lfsrsResponseStatus = pResponseStatus_-  }+    { _lfsrsFileShareInfoList = Nothing+    , _lfsrsMarker = Nothing+    , _lfsrsNextMarker = Nothing+    , _lfsrsResponseStatus = pResponseStatus_+    }   -- | An array of information about the file gateway's file shares. lfsrsFileShareInfoList :: Lens' ListFileSharesResponse [FileShareInfo]-lfsrsFileShareInfoList = lens _lfsrsFileShareInfoList (\ s a -> s{_lfsrsFileShareInfoList = a}) . _Default . _Coerce;+lfsrsFileShareInfoList = lens _lfsrsFileShareInfoList (\ s a -> s{_lfsrsFileShareInfoList = a}) . _Default . _Coerce  -- | If the request includes @Marker@ , the response returns that value in this field. lfsrsMarker :: Lens' ListFileSharesResponse (Maybe Text)-lfsrsMarker = lens _lfsrsMarker (\ s a -> s{_lfsrsMarker = a});+lfsrsMarker = lens _lfsrsMarker (\ s a -> s{_lfsrsMarker = a})  -- | If a value is present, there are more file shares to return. In a subsequent request, use @NextMarker@ as the value for @Marker@ to retrieve the next set of file shares. lfsrsNextMarker :: Lens' ListFileSharesResponse (Maybe Text)-lfsrsNextMarker = lens _lfsrsNextMarker (\ s a -> s{_lfsrsNextMarker = a});+lfsrsNextMarker = lens _lfsrsNextMarker (\ s a -> s{_lfsrsNextMarker = a})  -- | -- | The response status code. lfsrsResponseStatus :: Lens' ListFileSharesResponse Int-lfsrsResponseStatus = lens _lfsrsResponseStatus (\ s a -> s{_lfsrsResponseStatus = a});+lfsrsResponseStatus = lens _lfsrsResponseStatus (\ s a -> s{_lfsrsResponseStatus = a})  instance NFData ListFileSharesResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.ListGateways--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -84,11 +84,11 @@  -- | An opaque string that indicates the position at which to begin the returned list of gateways. lgMarker :: Lens' ListGateways (Maybe Text)-lgMarker = lens _lgMarker (\ s a -> s{_lgMarker = a});+lgMarker = lens _lgMarker (\ s a -> s{_lgMarker = a})  -- | Specifies that the list of gateways returned be limited to the specified number of items. lgLimit :: Lens' ListGateways (Maybe Natural)-lgLimit = lens _lgLimit (\ s a -> s{_lgLimit = a}) . mapping _Nat;+lgLimit = lens _lgLimit (\ s a -> s{_lgLimit = a}) . mapping _Nat  instance AWSPager ListGateways where         page rq rs@@ -156,22 +156,22 @@     -> ListGatewaysResponse listGatewaysResponse pResponseStatus_ =   ListGatewaysResponse'-  { _lgrsMarker = Nothing-  , _lgrsGateways = Nothing-  , _lgrsResponseStatus = pResponseStatus_-  }+    { _lgrsMarker = Nothing+    , _lgrsGateways = Nothing+    , _lgrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. lgrsMarker :: Lens' ListGatewaysResponse (Maybe Text)-lgrsMarker = lens _lgrsMarker (\ s a -> s{_lgrsMarker = a});+lgrsMarker = lens _lgrsMarker (\ s a -> s{_lgrsMarker = a})  -- | Undocumented member. lgrsGateways :: Lens' ListGatewaysResponse [GatewayInfo]-lgrsGateways = lens _lgrsGateways (\ s a -> s{_lgrsGateways = a}) . _Default . _Coerce;+lgrsGateways = lens _lgrsGateways (\ s a -> s{_lgrsGateways = a}) . _Default . _Coerce  -- | -- | The response status code. lgrsResponseStatus :: Lens' ListGatewaysResponse Int-lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a});+lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a})  instance NFData ListGatewaysResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.ListLocalDisks--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@  -- | Undocumented member. lldGatewayARN :: Lens' ListLocalDisks Text-lldGatewayARN = lens _lldGatewayARN (\ s a -> s{_lldGatewayARN = a});+lldGatewayARN = lens _lldGatewayARN (\ s a -> s{_lldGatewayARN = a})  instance AWSRequest ListLocalDisks where         type Rs ListLocalDisks = ListLocalDisksResponse@@ -129,22 +129,22 @@     -> ListLocalDisksResponse listLocalDisksResponse pResponseStatus_ =   ListLocalDisksResponse'-  { _lldrsGatewayARN = Nothing-  , _lldrsDisks = Nothing-  , _lldrsResponseStatus = pResponseStatus_-  }+    { _lldrsGatewayARN = Nothing+    , _lldrsDisks = Nothing+    , _lldrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. lldrsGatewayARN :: Lens' ListLocalDisksResponse (Maybe Text)-lldrsGatewayARN = lens _lldrsGatewayARN (\ s a -> s{_lldrsGatewayARN = a});+lldrsGatewayARN = lens _lldrsGatewayARN (\ s a -> s{_lldrsGatewayARN = a})  -- | Undocumented member. lldrsDisks :: Lens' ListLocalDisksResponse [Disk]-lldrsDisks = lens _lldrsDisks (\ s a -> s{_lldrsDisks = a}) . _Default . _Coerce;+lldrsDisks = lens _lldrsDisks (\ s a -> s{_lldrsDisks = a}) . _Default . _Coerce  -- | -- | The response status code. lldrsResponseStatus :: Lens' ListLocalDisksResponse Int-lldrsResponseStatus = lens _lldrsResponseStatus (\ s a -> s{_lldrsResponseStatus = a});+lldrsResponseStatus = lens _lldrsResponseStatus (\ s a -> s{_lldrsResponseStatus = a})  instance NFData ListLocalDisksResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ListTagsForResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the tags that have been added to the specified resource. This operation is only supported in the cached volume, stored volume and tape gateway architecture.+-- Lists the tags that have been added to the specified resource. This operation is only supported in the cached volume, stored volume and tape gateway type. -- -- module Network.AWS.StorageGateway.ListTagsForResource@@ -74,23 +74,23 @@     -> ListTagsForResource listTagsForResource pResourceARN_ =   ListTagsForResource'-  { _ltfrMarker = Nothing-  , _ltfrLimit = Nothing-  , _ltfrResourceARN = pResourceARN_-  }+    { _ltfrMarker = Nothing+    , _ltfrLimit = Nothing+    , _ltfrResourceARN = pResourceARN_+    }   -- | An opaque string that indicates the position at which to begin returning the list of tags. ltfrMarker :: Lens' ListTagsForResource (Maybe Text)-ltfrMarker = lens _ltfrMarker (\ s a -> s{_ltfrMarker = a});+ltfrMarker = lens _ltfrMarker (\ s a -> s{_ltfrMarker = a})  -- | Specifies that the list of tags returned be limited to the specified number of items. ltfrLimit :: Lens' ListTagsForResource (Maybe Natural)-ltfrLimit = lens _ltfrLimit (\ s a -> s{_ltfrLimit = a}) . mapping _Nat;+ltfrLimit = lens _ltfrLimit (\ s a -> s{_ltfrLimit = a}) . mapping _Nat  -- | The Amazon Resource Name (ARN) of the resource for which you want to list tags. ltfrResourceARN :: Lens' ListTagsForResource Text-ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a});+ltfrResourceARN = lens _ltfrResourceARN (\ s a -> s{_ltfrResourceARN = a})  instance AWSRequest ListTagsForResource where         type Rs ListTagsForResource =@@ -161,27 +161,27 @@     -> ListTagsForResourceResponse listTagsForResourceResponse pResponseStatus_ =   ListTagsForResourceResponse'-  { _ltfrrsResourceARN = Nothing-  , _ltfrrsMarker = Nothing-  , _ltfrrsTags = Nothing-  , _ltfrrsResponseStatus = pResponseStatus_-  }+    { _ltfrrsResourceARN = Nothing+    , _ltfrrsMarker = Nothing+    , _ltfrrsTags = Nothing+    , _ltfrrsResponseStatus = pResponseStatus_+    }   -- | he Amazon Resource Name (ARN) of the resource for which you want to list tags. ltfrrsResourceARN :: Lens' ListTagsForResourceResponse (Maybe Text)-ltfrrsResourceARN = lens _ltfrrsResourceARN (\ s a -> s{_ltfrrsResourceARN = a});+ltfrrsResourceARN = lens _ltfrrsResourceARN (\ s a -> s{_ltfrrsResourceARN = a})  -- | An opaque string that indicates the position at which to stop returning the list of tags. ltfrrsMarker :: Lens' ListTagsForResourceResponse (Maybe Text)-ltfrrsMarker = lens _ltfrrsMarker (\ s a -> s{_ltfrrsMarker = a});+ltfrrsMarker = lens _ltfrrsMarker (\ s a -> s{_ltfrrsMarker = a})  -- | An array that contains the tags for the specified resource. ltfrrsTags :: Lens' ListTagsForResourceResponse [Tag]-ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}) . _Default . _Coerce;+ltfrrsTags = lens _ltfrrsTags (\ s a -> s{_ltfrrsTags = a}) . _Default . _Coerce  -- | -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int-ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a});+ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a})  instance NFData ListTagsForResourceResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.ListTapes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Lists virtual tapes in your virtual tape library (VTL) and your virtual tape shelf (VTS). You specify the tapes to list by specifying one or more tape Amazon Resource Names (ARNs). If you don't specify a tape ARN, the operation lists all virtual tapes in both your VTL and VTS. -- ----- This operation supports pagination. By default, the operation returns a maximum of up to 100 tapes. You can optionally specify the @Limit@ parameter in the body to limit the number of tapes in the response. If the number of tapes returned in the response is truncated, the response includes a @Marker@ element that you can use in your subsequent request to retrieve the next set of tapes. This operation is only supported in the tape gateway architecture.+-- This operation supports pagination. By default, the operation returns a maximum of up to 100 tapes. You can optionally specify the @Limit@ parameter in the body to limit the number of tapes in the response. If the number of tapes returned in the response is truncated, the response includes a @Marker@ element that you can use in your subsequent request to retrieve the next set of tapes. This operation is only supported in the tape gateway type. -- module Network.AWS.StorageGateway.ListTapes     (@@ -86,15 +86,15 @@  -- | 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});+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;+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;+ltTapeARNs = lens _ltTapeARNs (\ s a -> s{_ltTapeARNs = a}) . _Default . _Coerce  instance AWSRequest ListTapes where         type Rs ListTapes = ListTapesResponse@@ -165,22 +165,22 @@     -> ListTapesResponse listTapesResponse pResponseStatus_ =   ListTapesResponse'-  { _ltrsMarker = Nothing-  , _ltrsTapeInfos = Nothing-  , _ltrsResponseStatus = pResponseStatus_-  }+    { _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});+ltrsMarker = lens _ltrsMarker (\ s a -> s{_ltrsMarker = a})  -- | Undocumented member. ltrsTapeInfos :: Lens' ListTapesResponse [TapeInfo]-ltrsTapeInfos = lens _ltrsTapeInfos (\ s a -> s{_ltrsTapeInfos = a}) . _Default . _Coerce;+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});+ltrsResponseStatus = lens _ltrsResponseStatus (\ s a -> s{_ltrsResponseStatus = a})  instance NFData ListTapesResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ListVolumeInitiators--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists iSCSI initiators that are connected to a volume. You can use this operation to determine whether a volume is being used or not. This operation is only supported in the cached volume and stored volume gateway architecture.+-- Lists iSCSI initiators that are connected to a volume. You can use this operation to determine whether a volume is being used or not. This operation is only supported in the cached volume and stored volume gateway types. -- -- module Network.AWS.StorageGateway.ListVolumeInitiators@@ -68,7 +68,7 @@  -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes for the gateway. lviVolumeARN :: Lens' ListVolumeInitiators Text-lviVolumeARN = lens _lviVolumeARN (\ s a -> s{_lviVolumeARN = a});+lviVolumeARN = lens _lviVolumeARN (\ s a -> s{_lviVolumeARN = a})  instance AWSRequest ListVolumeInitiators where         type Rs ListVolumeInitiators =@@ -129,15 +129,15 @@     -> ListVolumeInitiatorsResponse listVolumeInitiatorsResponse pResponseStatus_ =   ListVolumeInitiatorsResponse'-  {_lvirsInitiators = Nothing, _lvirsResponseStatus = pResponseStatus_}+    {_lvirsInitiators = Nothing, _lvirsResponseStatus = pResponseStatus_}   -- | The host names and port numbers of all iSCSI initiators that are connected to the gateway. lvirsInitiators :: Lens' ListVolumeInitiatorsResponse [Text]-lvirsInitiators = lens _lvirsInitiators (\ s a -> s{_lvirsInitiators = a}) . _Default . _Coerce;+lvirsInitiators = lens _lvirsInitiators (\ s a -> s{_lvirsInitiators = a}) . _Default . _Coerce  -- | -- | The response status code. lvirsResponseStatus :: Lens' ListVolumeInitiatorsResponse Int-lvirsResponseStatus = lens _lvirsResponseStatus (\ s a -> s{_lvirsResponseStatus = a});+lvirsResponseStatus = lens _lvirsResponseStatus (\ s a -> s{_lvirsResponseStatus = a})  instance NFData ListVolumeInitiatorsResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ListVolumeRecoveryPoints--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Lists the recovery points for a specified gateway. This operation is only supported in the cached volume gateway architecture.+-- Lists the recovery points for a specified gateway. This operation is only supported in the cached volume gateway type. -- -- -- Each cache volume has one recovery point. A volume recovery point is a point in time at which all data of the volume is consistent and from which you can create a snapshot or clone a new cached volume from a source volume. To create a snapshot from a volume recovery point use the 'CreateSnapshotFromVolumeRecoveryPoint' operation.@@ -67,7 +67,7 @@  -- | Undocumented member. lvrpGatewayARN :: Lens' ListVolumeRecoveryPoints Text-lvrpGatewayARN = lens _lvrpGatewayARN (\ s a -> s{_lvrpGatewayARN = a});+lvrpGatewayARN = lens _lvrpGatewayARN (\ s a -> s{_lvrpGatewayARN = a})  instance AWSRequest ListVolumeRecoveryPoints where         type Rs ListVolumeRecoveryPoints =@@ -128,23 +128,23 @@     -> ListVolumeRecoveryPointsResponse listVolumeRecoveryPointsResponse pResponseStatus_ =   ListVolumeRecoveryPointsResponse'-  { _lvrprsVolumeRecoveryPointInfos = Nothing-  , _lvrprsGatewayARN = Nothing-  , _lvrprsResponseStatus = pResponseStatus_-  }+    { _lvrprsVolumeRecoveryPointInfos = Nothing+    , _lvrprsGatewayARN = Nothing+    , _lvrprsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. lvrprsVolumeRecoveryPointInfos :: Lens' ListVolumeRecoveryPointsResponse [VolumeRecoveryPointInfo]-lvrprsVolumeRecoveryPointInfos = lens _lvrprsVolumeRecoveryPointInfos (\ s a -> s{_lvrprsVolumeRecoveryPointInfos = a}) . _Default . _Coerce;+lvrprsVolumeRecoveryPointInfos = lens _lvrprsVolumeRecoveryPointInfos (\ s a -> s{_lvrprsVolumeRecoveryPointInfos = a}) . _Default . _Coerce  -- | Undocumented member. lvrprsGatewayARN :: Lens' ListVolumeRecoveryPointsResponse (Maybe Text)-lvrprsGatewayARN = lens _lvrprsGatewayARN (\ s a -> s{_lvrprsGatewayARN = a});+lvrprsGatewayARN = lens _lvrprsGatewayARN (\ s a -> s{_lvrprsGatewayARN = a})  -- | -- | The response status code. lvrprsResponseStatus :: Lens' ListVolumeRecoveryPointsResponse Int-lvrprsResponseStatus = lens _lvrprsResponseStatus (\ s a -> s{_lvrprsResponseStatus = a});+lvrprsResponseStatus = lens _lvrprsResponseStatus (\ s a -> s{_lvrprsResponseStatus = a})  instance NFData ListVolumeRecoveryPointsResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.ListVolumes--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -21,7 +21,7 @@ -- Lists the iSCSI stored volumes of a gateway. Results are sorted by volume ARN. The response includes only the volume ARNs. If you want additional volume information, use the 'DescribeStorediSCSIVolumes' or the 'DescribeCachediSCSIVolumes' API. -- ----- The operation supports pagination. By default, the operation returns a maximum of up to 100 volumes. You can optionally specify the @Limit@ field in the body to limit the number of volumes in the response. If the number of volumes returned in the response is truncated, the response includes a Marker field. You can use this Marker value in your subsequent request to retrieve the next set of volumes. This operation is only supported in the cached volume and stored volume gateway architectures.+-- The operation supports pagination. By default, the operation returns a maximum of up to 100 volumes. You can optionally specify the @Limit@ field in the body to limit the number of volumes in the response. If the number of volumes returned in the response is truncated, the response includes a Marker field. You can use this Marker value in your subsequent request to retrieve the next set of volumes. This operation is only supported in the cached volume and stored volume gateway types. -- -- -- This operation returns paginated results.@@ -84,20 +84,20 @@     :: ListVolumes listVolumes =   ListVolumes'-  {_lvGatewayARN = Nothing, _lvMarker = Nothing, _lvLimit = Nothing}+    {_lvGatewayARN = Nothing, _lvMarker = Nothing, _lvLimit = Nothing}   -- | Undocumented member. lvGatewayARN :: Lens' ListVolumes (Maybe Text)-lvGatewayARN = lens _lvGatewayARN (\ s a -> s{_lvGatewayARN = a});+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});+lvMarker = lens _lvMarker (\ s a -> s{_lvMarker = a})  -- | Specifies that the list of volumes returned be limited to the specified number of items. lvLimit :: Lens' ListVolumes (Maybe Natural)-lvLimit = lens _lvLimit (\ s a -> s{_lvLimit = a}) . mapping _Nat;+lvLimit = lens _lvLimit (\ s a -> s{_lvLimit = a}) . mapping _Nat  instance AWSPager ListVolumes where         page rq rs@@ -170,27 +170,27 @@     -> ListVolumesResponse listVolumesResponse pResponseStatus_ =   ListVolumesResponse'-  { _lvrsGatewayARN = Nothing-  , _lvrsMarker = Nothing-  , _lvrsVolumeInfos = Nothing-  , _lvrsResponseStatus = pResponseStatus_-  }+    { _lvrsGatewayARN = Nothing+    , _lvrsMarker = Nothing+    , _lvrsVolumeInfos = Nothing+    , _lvrsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. lvrsGatewayARN :: Lens' ListVolumesResponse (Maybe Text)-lvrsGatewayARN = lens _lvrsGatewayARN (\ s a -> s{_lvrsGatewayARN = a});+lvrsGatewayARN = lens _lvrsGatewayARN (\ s a -> s{_lvrsGatewayARN = a})  -- | Undocumented member. lvrsMarker :: Lens' ListVolumesResponse (Maybe Text)-lvrsMarker = lens _lvrsMarker (\ s a -> s{_lvrsMarker = a});+lvrsMarker = lens _lvrsMarker (\ s a -> s{_lvrsMarker = a})  -- | Undocumented member. lvrsVolumeInfos :: Lens' ListVolumesResponse [VolumeInfo]-lvrsVolumeInfos = lens _lvrsVolumeInfos (\ s a -> s{_lvrsVolumeInfos = a}) . _Default . _Coerce;+lvrsVolumeInfos = lens _lvrsVolumeInfos (\ s a -> s{_lvrsVolumeInfos = a}) . _Default . _Coerce  -- | -- | The response status code. lvrsResponseStatus :: Lens' ListVolumesResponse Int-lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a});+lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a})  instance NFData ListVolumesResponse where

@@ -0,0 +1,151 @@+{-# 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.NotifyWhenUploaded+-- Copyright   : (c) 2013-2018 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Sends you notification through CloudWatch Events when all files written to your NFS file share have been uploaded to Amazon S3.+--+--+-- AWS Storage Gateway can send a notification through Amazon CloudWatch Events when all files written to your file share up to that point in time have been uploaded to Amazon S3. These files include files written to the NFS file share up to the time that you make a request for notification. When the upload is done, Storage Gateway sends you notification through an Amazon CloudWatch Event. You can configure CloudWatch Events to send the notification through event targets such as Amazon SNS or AWS Lambda function. This operation is only supported in the file gateway type.+--+-- For more information, see Getting File Upload Notification in the Storage Gateway User Guide (https://docs.aws.amazon.com/storagegateway/latest/userguide/monitoring-file-gateway.html#get-upload-notification).+--+module Network.AWS.StorageGateway.NotifyWhenUploaded+    (+    -- * Creating a Request+      notifyWhenUploaded+    , NotifyWhenUploaded+    -- * Request Lenses+    , nwuFileShareARN++    -- * Destructuring the Response+    , notifyWhenUploadedResponse+    , NotifyWhenUploadedResponse+    -- * Response Lenses+    , nwursFileShareARN+    , nwursNotificationId+    , nwursResponseStatus+    ) where++import Network.AWS.Lens+import Network.AWS.Prelude+import Network.AWS.Request+import Network.AWS.Response+import Network.AWS.StorageGateway.Types+import Network.AWS.StorageGateway.Types.Product++-- | /See:/ 'notifyWhenUploaded' smart constructor.+newtype NotifyWhenUploaded = NotifyWhenUploaded'+  { _nwuFileShareARN :: Text+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NotifyWhenUploaded' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nwuFileShareARN' - Undocumented member.+notifyWhenUploaded+    :: Text -- ^ 'nwuFileShareARN'+    -> NotifyWhenUploaded+notifyWhenUploaded pFileShareARN_ =+  NotifyWhenUploaded' {_nwuFileShareARN = pFileShareARN_}+++-- | Undocumented member.+nwuFileShareARN :: Lens' NotifyWhenUploaded Text+nwuFileShareARN = lens _nwuFileShareARN (\ s a -> s{_nwuFileShareARN = a})++instance AWSRequest NotifyWhenUploaded where+        type Rs NotifyWhenUploaded =+             NotifyWhenUploadedResponse+        request = postJSON storageGateway+        response+          = receiveJSON+              (\ s h x ->+                 NotifyWhenUploadedResponse' <$>+                   (x .?> "FileShareARN") <*> (x .?> "NotificationId")+                     <*> (pure (fromEnum s)))++instance Hashable NotifyWhenUploaded where++instance NFData NotifyWhenUploaded where++instance ToHeaders NotifyWhenUploaded where+        toHeaders+          = const+              (mconcat+                 ["X-Amz-Target" =#+                    ("StorageGateway_20130630.NotifyWhenUploaded" ::+                       ByteString),+                  "Content-Type" =#+                    ("application/x-amz-json-1.1" :: ByteString)])++instance ToJSON NotifyWhenUploaded where+        toJSON NotifyWhenUploaded'{..}+          = object+              (catMaybes+                 [Just ("FileShareARN" .= _nwuFileShareARN)])++instance ToPath NotifyWhenUploaded where+        toPath = const "/"++instance ToQuery NotifyWhenUploaded where+        toQuery = const mempty++-- | /See:/ 'notifyWhenUploadedResponse' smart constructor.+data NotifyWhenUploadedResponse = NotifyWhenUploadedResponse'+  { _nwursFileShareARN   :: !(Maybe Text)+  , _nwursNotificationId :: !(Maybe Text)+  , _nwursResponseStatus :: !Int+  } deriving (Eq, Read, Show, Data, Typeable, Generic)+++-- | Creates a value of 'NotifyWhenUploadedResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'nwursFileShareARN' - Undocumented member.+--+-- * 'nwursNotificationId' - Undocumented member.+--+-- * 'nwursResponseStatus' - -- | The response status code.+notifyWhenUploadedResponse+    :: Int -- ^ 'nwursResponseStatus'+    -> NotifyWhenUploadedResponse+notifyWhenUploadedResponse pResponseStatus_ =+  NotifyWhenUploadedResponse'+    { _nwursFileShareARN = Nothing+    , _nwursNotificationId = Nothing+    , _nwursResponseStatus = pResponseStatus_+    }+++-- | Undocumented member.+nwursFileShareARN :: Lens' NotifyWhenUploadedResponse (Maybe Text)+nwursFileShareARN = lens _nwursFileShareARN (\ s a -> s{_nwursFileShareARN = a})++-- | Undocumented member.+nwursNotificationId :: Lens' NotifyWhenUploadedResponse (Maybe Text)+nwursNotificationId = lens _nwursNotificationId (\ s a -> s{_nwursNotificationId = a})++-- | -- | The response status code.+nwursResponseStatus :: Lens' NotifyWhenUploadedResponse Int+nwursResponseStatus = lens _nwursResponseStatus (\ s a -> s{_nwursResponseStatus = a})++instance NFData NotifyWhenUploadedResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.RefreshCache--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Refreshes the cache for the specified file share. This operation finds objects in the Amazon S3 bucket that were added, removed or replaced since the gateway last listed the bucket's contents and cached the results.+-- Refreshes the cache for the specified file share. This operation finds objects in the Amazon S3 bucket that were added, removed or replaced since the gateway last listed the bucket's contents and cached the results. This operation is only supported in the file gateway type. -- -- module Network.AWS.StorageGateway.RefreshCache@@ -63,7 +63,7 @@  -- | Undocumented member. rcFileShareARN :: Lens' RefreshCache Text-rcFileShareARN = lens _rcFileShareARN (\ s a -> s{_rcFileShareARN = a});+rcFileShareARN = lens _rcFileShareARN (\ s a -> s{_rcFileShareARN = a})  instance AWSRequest RefreshCache where         type Rs RefreshCache = RefreshCacheResponse@@ -119,15 +119,15 @@     -> RefreshCacheResponse refreshCacheResponse pResponseStatus_ =   RefreshCacheResponse'-  {_rcrsFileShareARN = Nothing, _rcrsResponseStatus = pResponseStatus_}+    {_rcrsFileShareARN = Nothing, _rcrsResponseStatus = pResponseStatus_}   -- | Undocumented member. rcrsFileShareARN :: Lens' RefreshCacheResponse (Maybe Text)-rcrsFileShareARN = lens _rcrsFileShareARN (\ s a -> s{_rcrsFileShareARN = a});+rcrsFileShareARN = lens _rcrsFileShareARN (\ s a -> s{_rcrsFileShareARN = a})  -- | -- | The response status code. rcrsResponseStatus :: Lens' RefreshCacheResponse Int-rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a});+rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a})  instance NFData RefreshCacheResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.RemoveTagsFromResource--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Removes one or more tags from the specified resource. This operation is only supported in the cached volume, stored volume and tape gateway architectures.+-- Removes one or more tags from the specified resource. This operation is only supported in the cached volume, stored volume and tape gateway types. -- -- module Network.AWS.StorageGateway.RemoveTagsFromResource@@ -68,16 +68,16 @@     -> RemoveTagsFromResource removeTagsFromResource pResourceARN_ =   RemoveTagsFromResource'-  {_rtfrResourceARN = pResourceARN_, _rtfrTagKeys = mempty}+    {_rtfrResourceARN = pResourceARN_, _rtfrTagKeys = mempty}   -- | The Amazon Resource Name (ARN) of the resource you want to remove the tags from. rtfrResourceARN :: Lens' RemoveTagsFromResource Text-rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a});+rtfrResourceARN = lens _rtfrResourceARN (\ s a -> s{_rtfrResourceARN = a})  -- | The keys of the tags you want to remove from the specified resource. A tag is composed of a key/value pair. rtfrTagKeys :: Lens' RemoveTagsFromResource [Text]-rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce;+rtfrTagKeys = lens _rtfrTagKeys (\ s a -> s{_rtfrTagKeys = a}) . _Coerce  instance AWSRequest RemoveTagsFromResource where         type Rs RemoveTagsFromResource =@@ -139,15 +139,15 @@     -> RemoveTagsFromResourceResponse removeTagsFromResourceResponse pResponseStatus_ =   RemoveTagsFromResourceResponse'-  {_rtfrrsResourceARN = Nothing, _rtfrrsResponseStatus = pResponseStatus_}+    {_rtfrrsResourceARN = Nothing, _rtfrrsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the resource that the tags were removed from. rtfrrsResourceARN :: Lens' RemoveTagsFromResourceResponse (Maybe Text)-rtfrrsResourceARN = lens _rtfrrsResourceARN (\ s a -> s{_rtfrrsResourceARN = a});+rtfrrsResourceARN = lens _rtfrrsResourceARN (\ s a -> s{_rtfrrsResourceARN = a})  -- | -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int-rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a});+rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a})  instance NFData RemoveTagsFromResourceResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.ResetCache--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Resets all cache disks that have encountered a error and makes the disks available for reconfiguration as cache storage. If your cache disk encounters a error, the gateway prevents read and write operations on virtual tapes in the gateway. For example, an error can occur when a disk is corrupted or removed from the gateway. When a cache is reset, the gateway loses its cache storage. At this point you can reconfigure the disks as cache disks. This operation is only supported in the cached volume,tape and file gateway architectures.+-- Resets all cache disks that have encountered a error and makes the disks available for reconfiguration as cache storage. If your cache disk encounters a error, the gateway prevents read and write operations on virtual tapes in the gateway. For example, an error can occur when a disk is corrupted or removed from the gateway. When a cache is reset, the gateway loses its cache storage. At this point you can reconfigure the disks as cache disks. This operation is only supported in the cached volume and tape types. -- -- -- /Important:/ If the cache disk you are resetting contains data that has not been uploaded to Amazon S3 yet, that data can be lost. After you reset cache disks, there will be no configured cache disks left in the gateway, so you must configure at least one new cache disk for your gateway to function properly.@@ -65,7 +65,7 @@  -- | Undocumented member. rcGatewayARN :: Lens' ResetCache Text-rcGatewayARN = lens _rcGatewayARN (\ s a -> s{_rcGatewayARN = a});+rcGatewayARN = lens _rcGatewayARN (\ s a -> s{_rcGatewayARN = a})  instance AWSRequest ResetCache where         type Rs ResetCache = ResetCacheResponse@@ -119,15 +119,15 @@     -> ResetCacheResponse resetCacheResponse pResponseStatus_ =   ResetCacheResponse'-  {_rrsGatewayARN = Nothing, _rrsResponseStatus = pResponseStatus_}+    {_rrsGatewayARN = Nothing, _rrsResponseStatus = pResponseStatus_}   -- | Undocumented member. rrsGatewayARN :: Lens' ResetCacheResponse (Maybe Text)-rrsGatewayARN = lens _rrsGatewayARN (\ s a -> s{_rrsGatewayARN = a});+rrsGatewayARN = lens _rrsGatewayARN (\ s a -> s{_rrsGatewayARN = a})  -- | -- | The response status code. rrsResponseStatus :: Lens' ResetCacheResponse Int-rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a});+rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a})  instance NFData ResetCacheResponse where

@@ -12,16 +12,16 @@  -- | -- Module      : Network.AWS.StorageGateway.RetrieveTapeArchive--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves an archived virtual tape from the virtual tape shelf (VTS) to a tape gateway. Virtual tapes archived in the VTS are not associated with any gateway. However after a tape is retrieved, it is associated with a gateway, even though it is also listed in the VTS, that is, archive. This operation is only supported in the tape gateway architecture.+-- Retrieves an archived virtual tape from the virtual tape shelf (VTS) to a tape gateway. Virtual tapes archived in the VTS are not associated with any gateway. However after a tape is retrieved, it is associated with a gateway, even though it is also listed in the VTS, that is, archive. This operation is only supported in the tape gateway type. -- ----- Once a tape is successfully retrieved to a gateway, it cannot be retrieved again to another gateway. You must archive the tape again before you can retrieve it to another gateway. This operation is only supported in the tape gateway architecture.+-- Once a tape is successfully retrieved to a gateway, it cannot be retrieved again to another gateway. You must archive the tape again before you can retrieve it to another gateway. This operation is only supported in the tape gateway type. -- module Network.AWS.StorageGateway.RetrieveTapeArchive     (@@ -75,11 +75,11 @@  -- | The Amazon Resource Name (ARN) of the virtual tape you want to retrieve from the virtual tape shelf (VTS). rtaTapeARN :: Lens' RetrieveTapeArchive Text-rtaTapeARN = lens _rtaTapeARN (\ s a -> s{_rtaTapeARN = a});+rtaTapeARN = lens _rtaTapeARN (\ s a -> s{_rtaTapeARN = a})  -- | The Amazon Resource Name (ARN) of the gateway you want to retrieve the virtual tape to. Use the 'ListGateways' operation to return a list of gateways for your account and region. You retrieve archived virtual tapes to only one gateway and the gateway must be a tape gateway. rtaGatewayARN :: Lens' RetrieveTapeArchive Text-rtaGatewayARN = lens _rtaGatewayARN (\ s a -> s{_rtaGatewayARN = a});+rtaGatewayARN = lens _rtaGatewayARN (\ s a -> s{_rtaGatewayARN = a})  instance AWSRequest RetrieveTapeArchive where         type Rs RetrieveTapeArchive =@@ -141,15 +141,15 @@     -> RetrieveTapeArchiveResponse retrieveTapeArchiveResponse pResponseStatus_ =   RetrieveTapeArchiveResponse'-  {_rtarsTapeARN = Nothing, _rtarsResponseStatus = pResponseStatus_}+    {_rtarsTapeARN = Nothing, _rtarsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the retrieved virtual tape. rtarsTapeARN :: Lens' RetrieveTapeArchiveResponse (Maybe Text)-rtarsTapeARN = lens _rtarsTapeARN (\ s a -> s{_rtarsTapeARN = a});+rtarsTapeARN = lens _rtarsTapeARN (\ s a -> s{_rtarsTapeARN = a})  -- | -- | The response status code. rtarsResponseStatus :: Lens' RetrieveTapeArchiveResponse Int-rtarsResponseStatus = lens _rtarsResponseStatus (\ s a -> s{_rtarsResponseStatus = a});+rtarsResponseStatus = lens _rtarsResponseStatus (\ s a -> s{_rtarsResponseStatus = a})  instance NFData RetrieveTapeArchiveResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Retrieves the recovery point for the specified virtual tape. This operation is only supported in the tape gateway architecture.+-- Retrieves the recovery point for the specified virtual tape. This operation is only supported in the tape gateway type. -- -- -- A recovery point is a point in time view of a virtual tape at which all the data on the tape is consistent. If your gateway crashes, virtual tapes that have recovery points can be recovered to a new gateway.@@ -71,16 +71,16 @@     -> RetrieveTapeRecoveryPoint retrieveTapeRecoveryPoint pTapeARN_ pGatewayARN_ =   RetrieveTapeRecoveryPoint'-  {_rtrpTapeARN = pTapeARN_, _rtrpGatewayARN = pGatewayARN_}+    {_rtrpTapeARN = pTapeARN_, _rtrpGatewayARN = pGatewayARN_}   -- | The Amazon Resource Name (ARN) of the virtual tape for which you want to retrieve the recovery point. rtrpTapeARN :: Lens' RetrieveTapeRecoveryPoint Text-rtrpTapeARN = lens _rtrpTapeARN (\ s a -> s{_rtrpTapeARN = a});+rtrpTapeARN = lens _rtrpTapeARN (\ s a -> s{_rtrpTapeARN = a})  -- | Undocumented member. rtrpGatewayARN :: Lens' RetrieveTapeRecoveryPoint Text-rtrpGatewayARN = lens _rtrpGatewayARN (\ s a -> s{_rtrpGatewayARN = a});+rtrpGatewayARN = lens _rtrpGatewayARN (\ s a -> s{_rtrpGatewayARN = a})  instance AWSRequest RetrieveTapeRecoveryPoint where         type Rs RetrieveTapeRecoveryPoint =@@ -142,16 +142,16 @@     -> RetrieveTapeRecoveryPointResponse retrieveTapeRecoveryPointResponse pResponseStatus_ =   RetrieveTapeRecoveryPointResponse'-  {_rtrprsTapeARN = Nothing, _rtrprsResponseStatus = pResponseStatus_}+    {_rtrprsTapeARN = Nothing, _rtrprsResponseStatus = pResponseStatus_}   -- | The Amazon Resource Name (ARN) of the virtual tape for which the recovery point was retrieved. rtrprsTapeARN :: Lens' RetrieveTapeRecoveryPointResponse (Maybe Text)-rtrprsTapeARN = lens _rtrprsTapeARN (\ s a -> s{_rtrprsTapeARN = a});+rtrprsTapeARN = lens _rtrprsTapeARN (\ s a -> s{_rtrprsTapeARN = a})  -- | -- | The response status code. rtrprsResponseStatus :: Lens' RetrieveTapeRecoveryPointResponse Int-rtrprsResponseStatus = lens _rtrprsResponseStatus (\ s a -> s{_rtrprsResponseStatus = a});+rtrprsResponseStatus = lens _rtrprsResponseStatus (\ s a -> s{_rtrprsResponseStatus = a})  instance NFData RetrieveTapeRecoveryPointResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.SetLocalConsolePassword--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,18 +69,18 @@     -> SetLocalConsolePassword setLocalConsolePassword pGatewayARN_ pLocalConsolePassword_ =   SetLocalConsolePassword'-  { _slcpGatewayARN = pGatewayARN_-  , _slcpLocalConsolePassword = _Sensitive # pLocalConsolePassword_-  }+    { _slcpGatewayARN = pGatewayARN_+    , _slcpLocalConsolePassword = _Sensitive # pLocalConsolePassword_+    }   -- | Undocumented member. slcpGatewayARN :: Lens' SetLocalConsolePassword Text-slcpGatewayARN = lens _slcpGatewayARN (\ s a -> s{_slcpGatewayARN = a});+slcpGatewayARN = lens _slcpGatewayARN (\ s a -> s{_slcpGatewayARN = a})  -- | The password you want to set for your VM local console. slcpLocalConsolePassword :: Lens' SetLocalConsolePassword Text-slcpLocalConsolePassword = lens _slcpLocalConsolePassword (\ s a -> s{_slcpLocalConsolePassword = a}) . _Sensitive;+slcpLocalConsolePassword = lens _slcpLocalConsolePassword (\ s a -> s{_slcpLocalConsolePassword = a}) . _Sensitive  instance AWSRequest SetLocalConsolePassword where         type Rs SetLocalConsolePassword =@@ -140,15 +140,15 @@     -> SetLocalConsolePasswordResponse setLocalConsolePasswordResponse pResponseStatus_ =   SetLocalConsolePasswordResponse'-  {_slcprsGatewayARN = Nothing, _slcprsResponseStatus = pResponseStatus_}+    {_slcprsGatewayARN = Nothing, _slcprsResponseStatus = pResponseStatus_}   -- | Undocumented member. slcprsGatewayARN :: Lens' SetLocalConsolePasswordResponse (Maybe Text)-slcprsGatewayARN = lens _slcprsGatewayARN (\ s a -> s{_slcprsGatewayARN = a});+slcprsGatewayARN = lens _slcprsGatewayARN (\ s a -> s{_slcprsGatewayARN = a})  -- | -- | The response status code. slcprsResponseStatus :: Lens' SetLocalConsolePasswordResponse Int-slcprsResponseStatus = lens _slcprsResponseStatus (\ s a -> s{_slcprsResponseStatus = a});+slcprsResponseStatus = lens _slcprsResponseStatus (\ s a -> s{_slcprsResponseStatus = a})  instance NFData SetLocalConsolePasswordResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.ShutdownGateway--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -73,7 +73,7 @@  -- | Undocumented member. sGatewayARN :: Lens' ShutdownGateway Text-sGatewayARN = lens _sGatewayARN (\ s a -> s{_sGatewayARN = a});+sGatewayARN = lens _sGatewayARN (\ s a -> s{_sGatewayARN = a})  instance AWSRequest ShutdownGateway where         type Rs ShutdownGateway = ShutdownGatewayResponse@@ -132,15 +132,15 @@     -> ShutdownGatewayResponse shutdownGatewayResponse pResponseStatus_ =   ShutdownGatewayResponse'-  {_srsGatewayARN = Nothing, _srsResponseStatus = pResponseStatus_}+    {_srsGatewayARN = Nothing, _srsResponseStatus = pResponseStatus_}   -- | Undocumented member. srsGatewayARN :: Lens' ShutdownGatewayResponse (Maybe Text)-srsGatewayARN = lens _srsGatewayARN (\ s a -> s{_srsGatewayARN = a});+srsGatewayARN = lens _srsGatewayARN (\ s a -> s{_srsGatewayARN = a})  -- | -- | The response status code. srsResponseStatus :: Lens' ShutdownGatewayResponse Int-srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a});+srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a})  instance NFData ShutdownGatewayResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.StartGateway--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,7 +69,7 @@  -- | Undocumented member. sgGatewayARN :: Lens' StartGateway Text-sgGatewayARN = lens _sgGatewayARN (\ s a -> s{_sgGatewayARN = a});+sgGatewayARN = lens _sgGatewayARN (\ s a -> s{_sgGatewayARN = a})  instance AWSRequest StartGateway where         type Rs StartGateway = StartGatewayResponse@@ -128,15 +128,15 @@     -> StartGatewayResponse startGatewayResponse pResponseStatus_ =   StartGatewayResponse'-  {_sgrsGatewayARN = Nothing, _sgrsResponseStatus = pResponseStatus_}+    {_sgrsGatewayARN = Nothing, _sgrsResponseStatus = pResponseStatus_}   -- | Undocumented member. sgrsGatewayARN :: Lens' StartGatewayResponse (Maybe Text)-sgrsGatewayARN = lens _sgrsGatewayARN (\ s a -> s{_sgrsGatewayARN = a});+sgrsGatewayARN = lens _sgrsGatewayARN (\ s a -> s{_sgrsGatewayARN = a})  -- | -- | The response status code. sgrsResponseStatus :: Lens' StartGatewayResponse Int-sgrsResponseStatus = lens _sgrsResponseStatus (\ s a -> s{_sgrsResponseStatus = a});+sgrsResponseStatus = lens _sgrsResponseStatus (\ s a -> s{_sgrsResponseStatus = a})  instance NFData StartGatewayResponse where

@@ -4,7 +4,7 @@  -- | -- Module      : Network.AWS.StorageGateway.Types--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -20,6 +20,9 @@     , _ServiceUnavailableError     , _InternalServerError +    -- * ObjectACL+    , ObjectACL (..)+     -- * CachediSCSIVolume     , CachediSCSIVolume     , cachediSCSIVolume@@ -29,6 +32,7 @@     , cscsivVolumeARN     , cscsivVolumeProgress     , cscsivVolumeSizeInBytes+    , cscsivVolumeUsedInBytes     , cscsivCreatedDate     , cscsivVolumeId     , cscsivVolumeType@@ -92,15 +96,18 @@     , nfsfsiKMSKey     , nfsfsiGatewayARN     , nfsfsiPath+    , nfsfsiObjectACL     , nfsfsiKMSEncrypted     , nfsfsiFileShareId     , nfsfsiFileShareARN     , nfsfsiDefaultStorageClass     , nfsfsiRole     , nfsfsiSquash+    , nfsfsiRequesterPays     , nfsfsiNFSFileShareDefaults     , nfsfsiLocationARN     , nfsfsiClientList+    , nfsfsiGuessMIMETypeEnabled     , nfsfsiReadOnly      -- * NetworkInterface@@ -120,6 +127,7 @@     , sscsivVolumeARN     , sscsivVolumeProgress     , sscsivVolumeSizeInBytes+    , sscsivVolumeUsedInBytes     , sscsivCreatedDate     , sscsivVolumeId     , sscsivVolumeDiskId@@ -219,24 +227,24 @@ storageGateway :: Service storageGateway =   Service-  { _svcAbbrev = "StorageGateway"-  , _svcSigner = v4-  , _svcPrefix = "storagegateway"-  , _svcVersion = "2013-06-30"-  , _svcEndpoint = defaultEndpoint storageGateway-  , _svcTimeout = Just 70-  , _svcCheck = statusSuccess-  , _svcError = parseJSONError "StorageGateway"-  , _svcRetry = retry-  }+    { _svcAbbrev = "StorageGateway"+    , _svcSigner = v4+    , _svcPrefix = "storagegateway"+    , _svcVersion = "2013-06-30"+    , _svcEndpoint = defaultEndpoint storageGateway+    , _svcTimeout = Just 70+    , _svcCheck = statusSuccess+    , _svcError = parseJSONError "StorageGateway"+    , _svcRetry = retry+    }   where     retry =       Exponential-      { _retryBase = 5.0e-2-      , _retryGrowth = 2-      , _retryAttempts = 5-      , _retryCheck = check-      }+        { _retryBase = 5.0e-2+        , _retryGrowth = 2+        , _retryAttempts = 5+        , _retryCheck = check+        }     check e       | has (hasCode "ThrottledException" . hasStatus 400) e =         Just "throttled_exception"@@ -245,6 +253,8 @@         Just "throttling_exception"       | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling"       | has (hasStatus 504) e = Just "gateway_timeout"+      | has (hasCode "RequestThrottledException" . hasStatus 400) e =+        Just "request_throttled_exception"       | has (hasStatus 502) e = Just "bad_gateway"       | has (hasStatus 503) e = Just "service_unavailable"       | has (hasStatus 500) e = Just "general_server_error"

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.StorageGateway.Types.Product--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -33,6 +33,7 @@   , _cscsivVolumeARN             :: !(Maybe Text)   , _cscsivVolumeProgress        :: !(Maybe Double)   , _cscsivVolumeSizeInBytes     :: !(Maybe Integer)+  , _cscsivVolumeUsedInBytes     :: !(Maybe Integer)   , _cscsivCreatedDate           :: !(Maybe POSIX)   , _cscsivVolumeId              :: !(Maybe Text)   , _cscsivVolumeType            :: !(Maybe Text)@@ -55,6 +56,8 @@ -- -- * 'cscsivVolumeSizeInBytes' - The size, in bytes, of the volume capacity. --+-- * 'cscsivVolumeUsedInBytes' - The size of the data stored on the volume in bytes.+-- -- * 'cscsivCreatedDate' - The date the volume was created. Volumes created prior to March 28, 2017 don’t have this time stamp. -- -- * 'cscsivVolumeId' - The unique identifier of the volume, e.g. vol-AE4B946D.@@ -64,53 +67,58 @@     :: CachediSCSIVolume cachediSCSIVolume =   CachediSCSIVolume'-  { _cscsivVolumeiSCSIAttributes = Nothing-  , _cscsivVolumeStatus = Nothing-  , _cscsivSourceSnapshotId = Nothing-  , _cscsivVolumeARN = Nothing-  , _cscsivVolumeProgress = Nothing-  , _cscsivVolumeSizeInBytes = Nothing-  , _cscsivCreatedDate = Nothing-  , _cscsivVolumeId = Nothing-  , _cscsivVolumeType = Nothing-  }+    { _cscsivVolumeiSCSIAttributes = Nothing+    , _cscsivVolumeStatus = Nothing+    , _cscsivSourceSnapshotId = Nothing+    , _cscsivVolumeARN = Nothing+    , _cscsivVolumeProgress = Nothing+    , _cscsivVolumeSizeInBytes = Nothing+    , _cscsivVolumeUsedInBytes = Nothing+    , _cscsivCreatedDate = Nothing+    , _cscsivVolumeId = Nothing+    , _cscsivVolumeType = Nothing+    }   -- | An 'VolumeiSCSIAttributes' object that represents a collection of iSCSI attributes for one stored volume. cscsivVolumeiSCSIAttributes :: Lens' CachediSCSIVolume (Maybe VolumeiSCSIAttributes)-cscsivVolumeiSCSIAttributes = lens _cscsivVolumeiSCSIAttributes (\ s a -> s{_cscsivVolumeiSCSIAttributes = a});+cscsivVolumeiSCSIAttributes = lens _cscsivVolumeiSCSIAttributes (\ s a -> s{_cscsivVolumeiSCSIAttributes = a})  -- | One of the VolumeStatus values that indicates the state of the storage volume. cscsivVolumeStatus :: Lens' CachediSCSIVolume (Maybe Text)-cscsivVolumeStatus = lens _cscsivVolumeStatus (\ s a -> s{_cscsivVolumeStatus = a});+cscsivVolumeStatus = lens _cscsivVolumeStatus (\ s a -> s{_cscsivVolumeStatus = a})  -- | If the cached volume was created from a snapshot, this field contains the snapshot ID used, e.g. snap-78e22663. Otherwise, this field is not included. cscsivSourceSnapshotId :: Lens' CachediSCSIVolume (Maybe Text)-cscsivSourceSnapshotId = lens _cscsivSourceSnapshotId (\ s a -> s{_cscsivSourceSnapshotId = a});+cscsivSourceSnapshotId = lens _cscsivSourceSnapshotId (\ s a -> s{_cscsivSourceSnapshotId = a})  -- | The Amazon Resource Name (ARN) of the storage volume. cscsivVolumeARN :: Lens' CachediSCSIVolume (Maybe Text)-cscsivVolumeARN = lens _cscsivVolumeARN (\ s a -> s{_cscsivVolumeARN = a});+cscsivVolumeARN = lens _cscsivVolumeARN (\ s a -> s{_cscsivVolumeARN = a})  -- | Represents the percentage complete if the volume is restoring or bootstrapping that represents the percent of data transferred. This field does not appear in the response if the cached volume is not restoring or bootstrapping. cscsivVolumeProgress :: Lens' CachediSCSIVolume (Maybe Double)-cscsivVolumeProgress = lens _cscsivVolumeProgress (\ s a -> s{_cscsivVolumeProgress = a});+cscsivVolumeProgress = lens _cscsivVolumeProgress (\ s a -> s{_cscsivVolumeProgress = a})  -- | The size, in bytes, of the volume capacity. cscsivVolumeSizeInBytes :: Lens' CachediSCSIVolume (Maybe Integer)-cscsivVolumeSizeInBytes = lens _cscsivVolumeSizeInBytes (\ s a -> s{_cscsivVolumeSizeInBytes = a});+cscsivVolumeSizeInBytes = lens _cscsivVolumeSizeInBytes (\ s a -> s{_cscsivVolumeSizeInBytes = a}) +-- | The size of the data stored on the volume in bytes.+cscsivVolumeUsedInBytes :: Lens' CachediSCSIVolume (Maybe Integer)+cscsivVolumeUsedInBytes = lens _cscsivVolumeUsedInBytes (\ s a -> s{_cscsivVolumeUsedInBytes = a})+ -- | The date the volume was created. Volumes created prior to March 28, 2017 don’t have this time stamp. cscsivCreatedDate :: Lens' CachediSCSIVolume (Maybe UTCTime)-cscsivCreatedDate = lens _cscsivCreatedDate (\ s a -> s{_cscsivCreatedDate = a}) . mapping _Time;+cscsivCreatedDate = lens _cscsivCreatedDate (\ s a -> s{_cscsivCreatedDate = a}) . mapping _Time  -- | The unique identifier of the volume, e.g. vol-AE4B946D. cscsivVolumeId :: Lens' CachediSCSIVolume (Maybe Text)-cscsivVolumeId = lens _cscsivVolumeId (\ s a -> s{_cscsivVolumeId = a});+cscsivVolumeId = lens _cscsivVolumeId (\ s a -> s{_cscsivVolumeId = a})  -- | One of the VolumeType enumeration values that describes the type of the volume. cscsivVolumeType :: Lens' CachediSCSIVolume (Maybe Text)-cscsivVolumeType = lens _cscsivVolumeType (\ s a -> s{_cscsivVolumeType = a});+cscsivVolumeType = lens _cscsivVolumeType (\ s a -> s{_cscsivVolumeType = a})  instance FromJSON CachediSCSIVolume where         parseJSON@@ -123,6 +131,7 @@                      <*> (x .:? "VolumeARN")                      <*> (x .:? "VolumeProgress")                      <*> (x .:? "VolumeSizeInBytes")+                     <*> (x .:? "VolumeUsedInBytes")                      <*> (x .:? "CreatedDate")                      <*> (x .:? "VolumeId")                      <*> (x .:? "VolumeType"))@@ -159,28 +168,28 @@     :: ChapInfo chapInfo =   ChapInfo'-  { _ciTargetARN = Nothing-  , _ciSecretToAuthenticateInitiator = Nothing-  , _ciInitiatorName = Nothing-  , _ciSecretToAuthenticateTarget = Nothing-  }+    { _ciTargetARN = Nothing+    , _ciSecretToAuthenticateInitiator = Nothing+    , _ciInitiatorName = Nothing+    , _ciSecretToAuthenticateTarget = Nothing+    }   -- | The Amazon Resource Name (ARN) of the volume. Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-). ciTargetARN :: Lens' ChapInfo (Maybe Text)-ciTargetARN = lens _ciTargetARN (\ s a -> s{_ciTargetARN = a});+ciTargetARN = lens _ciTargetARN (\ s a -> s{_ciTargetARN = a})  -- | The secret key that the initiator (for example, the Windows client) must provide to participate in mutual CHAP with the target. ciSecretToAuthenticateInitiator :: Lens' ChapInfo (Maybe Text)-ciSecretToAuthenticateInitiator = lens _ciSecretToAuthenticateInitiator (\ s a -> s{_ciSecretToAuthenticateInitiator = a});+ciSecretToAuthenticateInitiator = lens _ciSecretToAuthenticateInitiator (\ s a -> s{_ciSecretToAuthenticateInitiator = a})  -- | The iSCSI initiator that connects to the target. ciInitiatorName :: Lens' ChapInfo (Maybe Text)-ciInitiatorName = lens _ciInitiatorName (\ s a -> s{_ciInitiatorName = a});+ciInitiatorName = lens _ciInitiatorName (\ s a -> s{_ciInitiatorName = a})  -- | The secret key that the target must provide to participate in mutual CHAP with the initiator (e.g. Windows client). ciSecretToAuthenticateTarget :: Lens' ChapInfo (Maybe Text)-ciSecretToAuthenticateTarget = lens _ciSecretToAuthenticateTarget (\ s a -> s{_ciSecretToAuthenticateTarget = a});+ciSecretToAuthenticateTarget = lens _ciSecretToAuthenticateTarget (\ s a -> s{_ciSecretToAuthenticateTarget = a})  instance FromJSON ChapInfo where         parseJSON@@ -224,28 +233,28 @@     :: DeviceiSCSIAttributes deviceiSCSIAttributes =   DeviceiSCSIAttributes'-  { _dscsiaTargetARN = Nothing-  , _dscsiaChapEnabled = Nothing-  , _dscsiaNetworkInterfaceId = Nothing-  , _dscsiaNetworkInterfacePort = Nothing-  }+    { _dscsiaTargetARN = Nothing+    , _dscsiaChapEnabled = Nothing+    , _dscsiaNetworkInterfaceId = Nothing+    , _dscsiaNetworkInterfacePort = Nothing+    }   -- | Specifies the unique Amazon Resource Name(ARN) that encodes the iSCSI qualified name(iqn) of a tape drive or media changer target. dscsiaTargetARN :: Lens' DeviceiSCSIAttributes (Maybe Text)-dscsiaTargetARN = lens _dscsiaTargetARN (\ s a -> s{_dscsiaTargetARN = a});+dscsiaTargetARN = lens _dscsiaTargetARN (\ s a -> s{_dscsiaTargetARN = a})  -- | Indicates whether mutual CHAP is enabled for the iSCSI target. dscsiaChapEnabled :: Lens' DeviceiSCSIAttributes (Maybe Bool)-dscsiaChapEnabled = lens _dscsiaChapEnabled (\ s a -> s{_dscsiaChapEnabled = a});+dscsiaChapEnabled = lens _dscsiaChapEnabled (\ s a -> s{_dscsiaChapEnabled = a})  -- | The network interface identifier of the VTL device. dscsiaNetworkInterfaceId :: Lens' DeviceiSCSIAttributes (Maybe Text)-dscsiaNetworkInterfaceId = lens _dscsiaNetworkInterfaceId (\ s a -> s{_dscsiaNetworkInterfaceId = a});+dscsiaNetworkInterfaceId = lens _dscsiaNetworkInterfaceId (\ s a -> s{_dscsiaNetworkInterfaceId = a})  -- | The port used to communicate with iSCSI VTL device targets. dscsiaNetworkInterfacePort :: Lens' DeviceiSCSIAttributes (Maybe Int)-dscsiaNetworkInterfacePort = lens _dscsiaNetworkInterfacePort (\ s a -> s{_dscsiaNetworkInterfacePort = a});+dscsiaNetworkInterfacePort = lens _dscsiaNetworkInterfacePort (\ s a -> s{_dscsiaNetworkInterfacePort = a})  instance FromJSON DeviceiSCSIAttributes where         parseJSON@@ -293,43 +302,43 @@     :: Disk disk =   Disk'-  { _dDiskAllocationResource = Nothing-  , _dDiskAllocationType = Nothing-  , _dDiskNode = Nothing-  , _dDiskPath = Nothing-  , _dDiskSizeInBytes = Nothing-  , _dDiskStatus = Nothing-  , _dDiskId = Nothing-  }+    { _dDiskAllocationResource = Nothing+    , _dDiskAllocationType = Nothing+    , _dDiskNode = Nothing+    , _dDiskPath = Nothing+    , _dDiskSizeInBytes = Nothing+    , _dDiskStatus = Nothing+    , _dDiskId = Nothing+    }   -- | Undocumented member. dDiskAllocationResource :: Lens' Disk (Maybe Text)-dDiskAllocationResource = lens _dDiskAllocationResource (\ s a -> s{_dDiskAllocationResource = a});+dDiskAllocationResource = lens _dDiskAllocationResource (\ s a -> s{_dDiskAllocationResource = a})  -- | Undocumented member. dDiskAllocationType :: Lens' Disk (Maybe Text)-dDiskAllocationType = lens _dDiskAllocationType (\ s a -> s{_dDiskAllocationType = a});+dDiskAllocationType = lens _dDiskAllocationType (\ s a -> s{_dDiskAllocationType = a})  -- | Undocumented member. dDiskNode :: Lens' Disk (Maybe Text)-dDiskNode = lens _dDiskNode (\ s a -> s{_dDiskNode = a});+dDiskNode = lens _dDiskNode (\ s a -> s{_dDiskNode = a})  -- | Undocumented member. dDiskPath :: Lens' Disk (Maybe Text)-dDiskPath = lens _dDiskPath (\ s a -> s{_dDiskPath = a});+dDiskPath = lens _dDiskPath (\ s a -> s{_dDiskPath = a})  -- | Undocumented member. dDiskSizeInBytes :: Lens' Disk (Maybe Integer)-dDiskSizeInBytes = lens _dDiskSizeInBytes (\ s a -> s{_dDiskSizeInBytes = a});+dDiskSizeInBytes = lens _dDiskSizeInBytes (\ s a -> s{_dDiskSizeInBytes = a})  -- | Undocumented member. dDiskStatus :: Lens' Disk (Maybe Text)-dDiskStatus = lens _dDiskStatus (\ s a -> s{_dDiskStatus = a});+dDiskStatus = lens _dDiskStatus (\ s a -> s{_dDiskStatus = a})  -- | Undocumented member. dDiskId :: Lens' Disk (Maybe Text)-dDiskId = lens _dDiskId (\ s a -> s{_dDiskId = a});+dDiskId = lens _dDiskId (\ s a -> s{_dDiskId = a})  instance FromJSON Disk where         parseJSON@@ -376,28 +385,28 @@     :: FileShareInfo fileShareInfo =   FileShareInfo'-  { _fsiFileShareStatus = Nothing-  , _fsiGatewayARN = Nothing-  , _fsiFileShareId = Nothing-  , _fsiFileShareARN = Nothing-  }+    { _fsiFileShareStatus = Nothing+    , _fsiGatewayARN = Nothing+    , _fsiFileShareId = Nothing+    , _fsiFileShareARN = Nothing+    }   -- | Undocumented member. fsiFileShareStatus :: Lens' FileShareInfo (Maybe Text)-fsiFileShareStatus = lens _fsiFileShareStatus (\ s a -> s{_fsiFileShareStatus = a});+fsiFileShareStatus = lens _fsiFileShareStatus (\ s a -> s{_fsiFileShareStatus = a})  -- | Undocumented member. fsiGatewayARN :: Lens' FileShareInfo (Maybe Text)-fsiGatewayARN = lens _fsiGatewayARN (\ s a -> s{_fsiGatewayARN = a});+fsiGatewayARN = lens _fsiGatewayARN (\ s a -> s{_fsiGatewayARN = a})  -- | Undocumented member. fsiFileShareId :: Lens' FileShareInfo (Maybe Text)-fsiFileShareId = lens _fsiFileShareId (\ s a -> s{_fsiFileShareId = a});+fsiFileShareId = lens _fsiFileShareId (\ s a -> s{_fsiFileShareId = a})  -- | Undocumented member. fsiFileShareARN :: Lens' FileShareInfo (Maybe Text)-fsiFileShareARN = lens _fsiFileShareARN (\ s a -> s{_fsiFileShareARN = a});+fsiFileShareARN = lens _fsiFileShareARN (\ s a -> s{_fsiFileShareARN = a})  instance FromJSON FileShareInfo where         parseJSON@@ -443,33 +452,33 @@     :: GatewayInfo gatewayInfo =   GatewayInfo'-  { _giGatewayARN = Nothing-  , _giGatewayOperationalState = Nothing-  , _giGatewayName = Nothing-  , _giGatewayId = Nothing-  , _giGatewayType = Nothing-  }+    { _giGatewayARN = Nothing+    , _giGatewayOperationalState = Nothing+    , _giGatewayName = Nothing+    , _giGatewayId = Nothing+    , _giGatewayType = Nothing+    }   -- | 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});+giGatewayARN = lens _giGatewayARN (\ s a -> s{_giGatewayARN = a})  -- | The state of the gateway. Valid Values: DISABLED or ACTIVE giGatewayOperationalState :: Lens' GatewayInfo (Maybe Text)-giGatewayOperationalState = lens _giGatewayOperationalState (\ s a -> s{_giGatewayOperationalState = a});+giGatewayOperationalState = lens _giGatewayOperationalState (\ s a -> s{_giGatewayOperationalState = a})  -- | The name of the gateway. giGatewayName :: Lens' GatewayInfo (Maybe Text)-giGatewayName = lens _giGatewayName (\ s a -> s{_giGatewayName = a});+giGatewayName = lens _giGatewayName (\ s a -> s{_giGatewayName = 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. giGatewayId :: Lens' GatewayInfo (Maybe Text)-giGatewayId = lens _giGatewayId (\ s a -> s{_giGatewayId = a});+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});+giGatewayType = lens _giGatewayType (\ s a -> s{_giGatewayType = a})  instance FromJSON GatewayInfo where         parseJSON@@ -486,7 +495,7 @@  instance NFData GatewayInfo where --- | Describes file share default values. Files and folders stored as Amazon S3 objects in S3 buckets don't, by default, have Unix file permissions assigned to them. Upon discovery in an S3 bucket by Storage Gateway, the S3 objects that represent files and folders are assigned these default Unix permissions. This operation is only supported in the file gateway architecture.+-- | Describes file share default values. Files and folders stored as Amazon S3 objects in S3 buckets don't, by default, have Unix file permissions assigned to them. Upon discovery in an S3 bucket by Storage Gateway, the S3 objects that represent files and folders are assigned these default Unix permissions. This operation is only supported in the file gateway type. -- -- --@@ -514,28 +523,28 @@     :: NFSFileShareDefaults nFSFileShareDefaults =   NFSFileShareDefaults'-  { _nfsfsdFileMode = Nothing-  , _nfsfsdOwnerId = Nothing-  , _nfsfsdDirectoryMode = Nothing-  , _nfsfsdGroupId = Nothing-  }+    { _nfsfsdFileMode = Nothing+    , _nfsfsdOwnerId = Nothing+    , _nfsfsdDirectoryMode = Nothing+    , _nfsfsdGroupId = Nothing+    }   -- | The Unix file mode in the form "nnnn". For example, "0666" represents the default file mode inside the file share. The default value is 0666. nfsfsdFileMode :: Lens' NFSFileShareDefaults (Maybe Text)-nfsfsdFileMode = lens _nfsfsdFileMode (\ s a -> s{_nfsfsdFileMode = a});+nfsfsdFileMode = lens _nfsfsdFileMode (\ s a -> s{_nfsfsdFileMode = a})  -- | The default owner ID for files in the file share (unless the files have another owner ID specified). The default value is nfsnobody. nfsfsdOwnerId :: Lens' NFSFileShareDefaults (Maybe Natural)-nfsfsdOwnerId = lens _nfsfsdOwnerId (\ s a -> s{_nfsfsdOwnerId = a}) . mapping _Nat;+nfsfsdOwnerId = lens _nfsfsdOwnerId (\ s a -> s{_nfsfsdOwnerId = a}) . mapping _Nat  -- | The Unix directory mode in the form "nnnn". For example, "0666" represents the default access mode for all directories inside the file share. The default value is 0777. nfsfsdDirectoryMode :: Lens' NFSFileShareDefaults (Maybe Text)-nfsfsdDirectoryMode = lens _nfsfsdDirectoryMode (\ s a -> s{_nfsfsdDirectoryMode = a});+nfsfsdDirectoryMode = lens _nfsfsdDirectoryMode (\ s a -> s{_nfsfsdDirectoryMode = a})  -- | The default group ID for the file share (unless the files have another group ID specified). The default value is nfsnobody. nfsfsdGroupId :: Lens' NFSFileShareDefaults (Maybe Natural)-nfsfsdGroupId = lens _nfsfsdGroupId (\ s a -> s{_nfsfsdGroupId = a}) . mapping _Nat;+nfsfsdGroupId = lens _nfsfsdGroupId (\ s a -> s{_nfsfsdGroupId = a}) . mapping _Nat  instance FromJSON NFSFileShareDefaults where         parseJSON@@ -569,15 +578,18 @@   , _nfsfsiKMSKey               :: !(Maybe Text)   , _nfsfsiGatewayARN           :: !(Maybe Text)   , _nfsfsiPath                 :: !(Maybe Text)+  , _nfsfsiObjectACL            :: !(Maybe ObjectACL)   , _nfsfsiKMSEncrypted         :: !(Maybe Bool)   , _nfsfsiFileShareId          :: !(Maybe Text)   , _nfsfsiFileShareARN         :: !(Maybe Text)   , _nfsfsiDefaultStorageClass  :: !(Maybe Text)   , _nfsfsiRole                 :: !(Maybe Text)   , _nfsfsiSquash               :: !(Maybe Text)+  , _nfsfsiRequesterPays        :: !(Maybe Bool)   , _nfsfsiNFSFileShareDefaults :: !(Maybe NFSFileShareDefaults)   , _nfsfsiLocationARN          :: !(Maybe Text)   , _nfsfsiClientList           :: !(Maybe (List1 Text))+  , _nfsfsiGuessMIMETypeEnabled :: !(Maybe Bool)   , _nfsfsiReadOnly             :: !(Maybe Bool)   } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -594,6 +606,8 @@ -- -- * 'nfsfsiPath' - Undocumented member. --+-- * 'nfsfsiObjectACL' - Undocumented member.+-- -- * 'nfsfsiKMSEncrypted' - True to use Amazon S3 server side encryption with your own KMS key, or false to use a key managed by Amazon S3. Optional. -- -- * 'nfsfsiFileShareId' - Undocumented member.@@ -606,89 +620,108 @@ -- -- * 'nfsfsiSquash' - Undocumented member. --+-- * 'nfsfsiRequesterPays' - Sets who pays the cost of the request and the data download from the Amazon S3 bucket. Set this value to true if you want the requester to pay instead of the bucket owner, and otherwise to false.+-- -- * 'nfsfsiNFSFileShareDefaults' - Undocumented member. -- -- * 'nfsfsiLocationARN' - Undocumented member. -- -- * 'nfsfsiClientList' - Undocumented member. ----- * 'nfsfsiReadOnly' - Undocumented member.+-- * 'nfsfsiGuessMIMETypeEnabled' - Enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, and otherwise to false. The default value is true.+--+-- * 'nfsfsiReadOnly' - Sets the write status of a file share. This value is true if the write status is read-only, and otherwise false. nFSFileShareInfo     :: NFSFileShareInfo nFSFileShareInfo =   NFSFileShareInfo'-  { _nfsfsiFileShareStatus = Nothing-  , _nfsfsiKMSKey = Nothing-  , _nfsfsiGatewayARN = Nothing-  , _nfsfsiPath = Nothing-  , _nfsfsiKMSEncrypted = Nothing-  , _nfsfsiFileShareId = Nothing-  , _nfsfsiFileShareARN = Nothing-  , _nfsfsiDefaultStorageClass = Nothing-  , _nfsfsiRole = Nothing-  , _nfsfsiSquash = Nothing-  , _nfsfsiNFSFileShareDefaults = Nothing-  , _nfsfsiLocationARN = Nothing-  , _nfsfsiClientList = Nothing-  , _nfsfsiReadOnly = Nothing-  }+    { _nfsfsiFileShareStatus = Nothing+    , _nfsfsiKMSKey = Nothing+    , _nfsfsiGatewayARN = Nothing+    , _nfsfsiPath = Nothing+    , _nfsfsiObjectACL = Nothing+    , _nfsfsiKMSEncrypted = Nothing+    , _nfsfsiFileShareId = Nothing+    , _nfsfsiFileShareARN = Nothing+    , _nfsfsiDefaultStorageClass = Nothing+    , _nfsfsiRole = Nothing+    , _nfsfsiSquash = Nothing+    , _nfsfsiRequesterPays = Nothing+    , _nfsfsiNFSFileShareDefaults = Nothing+    , _nfsfsiLocationARN = Nothing+    , _nfsfsiClientList = Nothing+    , _nfsfsiGuessMIMETypeEnabled = Nothing+    , _nfsfsiReadOnly = Nothing+    }   -- | Undocumented member. nfsfsiFileShareStatus :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiFileShareStatus = lens _nfsfsiFileShareStatus (\ s a -> s{_nfsfsiFileShareStatus = a});+nfsfsiFileShareStatus = lens _nfsfsiFileShareStatus (\ s a -> s{_nfsfsiFileShareStatus = a})  -- | Undocumented member. nfsfsiKMSKey :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiKMSKey = lens _nfsfsiKMSKey (\ s a -> s{_nfsfsiKMSKey = a});+nfsfsiKMSKey = lens _nfsfsiKMSKey (\ s a -> s{_nfsfsiKMSKey = a})  -- | Undocumented member. nfsfsiGatewayARN :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiGatewayARN = lens _nfsfsiGatewayARN (\ s a -> s{_nfsfsiGatewayARN = a});+nfsfsiGatewayARN = lens _nfsfsiGatewayARN (\ s a -> s{_nfsfsiGatewayARN = a})  -- | Undocumented member. nfsfsiPath :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiPath = lens _nfsfsiPath (\ s a -> s{_nfsfsiPath = a});+nfsfsiPath = lens _nfsfsiPath (\ s a -> s{_nfsfsiPath = a}) +-- | Undocumented member.+nfsfsiObjectACL :: Lens' NFSFileShareInfo (Maybe ObjectACL)+nfsfsiObjectACL = lens _nfsfsiObjectACL (\ s a -> s{_nfsfsiObjectACL = a})+ -- | True to use Amazon S3 server side encryption with your own KMS key, or false to use a key managed by Amazon S3. Optional. nfsfsiKMSEncrypted :: Lens' NFSFileShareInfo (Maybe Bool)-nfsfsiKMSEncrypted = lens _nfsfsiKMSEncrypted (\ s a -> s{_nfsfsiKMSEncrypted = a});+nfsfsiKMSEncrypted = lens _nfsfsiKMSEncrypted (\ s a -> s{_nfsfsiKMSEncrypted = a})  -- | Undocumented member. nfsfsiFileShareId :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiFileShareId = lens _nfsfsiFileShareId (\ s a -> s{_nfsfsiFileShareId = a});+nfsfsiFileShareId = lens _nfsfsiFileShareId (\ s a -> s{_nfsfsiFileShareId = a})  -- | Undocumented member. nfsfsiFileShareARN :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiFileShareARN = lens _nfsfsiFileShareARN (\ s a -> s{_nfsfsiFileShareARN = a});+nfsfsiFileShareARN = lens _nfsfsiFileShareARN (\ s a -> s{_nfsfsiFileShareARN = a})  -- | The default storage class for objects put into an Amazon S3 bucket by file gateway. Possible values are S3_STANDARD or S3_STANDARD_IA. If this field is not populated, the default value S3_STANDARD is used. Optional. nfsfsiDefaultStorageClass :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiDefaultStorageClass = lens _nfsfsiDefaultStorageClass (\ s a -> s{_nfsfsiDefaultStorageClass = a});+nfsfsiDefaultStorageClass = lens _nfsfsiDefaultStorageClass (\ s a -> s{_nfsfsiDefaultStorageClass = a})  -- | Undocumented member. nfsfsiRole :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiRole = lens _nfsfsiRole (\ s a -> s{_nfsfsiRole = a});+nfsfsiRole = lens _nfsfsiRole (\ s a -> s{_nfsfsiRole = a})  -- | Undocumented member. nfsfsiSquash :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiSquash = lens _nfsfsiSquash (\ s a -> s{_nfsfsiSquash = a});+nfsfsiSquash = lens _nfsfsiSquash (\ s a -> s{_nfsfsiSquash = a}) +-- | Sets who pays the cost of the request and the data download from the Amazon S3 bucket. Set this value to true if you want the requester to pay instead of the bucket owner, and otherwise to false.+nfsfsiRequesterPays :: Lens' NFSFileShareInfo (Maybe Bool)+nfsfsiRequesterPays = lens _nfsfsiRequesterPays (\ s a -> s{_nfsfsiRequesterPays = a})+ -- | Undocumented member. nfsfsiNFSFileShareDefaults :: Lens' NFSFileShareInfo (Maybe NFSFileShareDefaults)-nfsfsiNFSFileShareDefaults = lens _nfsfsiNFSFileShareDefaults (\ s a -> s{_nfsfsiNFSFileShareDefaults = a});+nfsfsiNFSFileShareDefaults = lens _nfsfsiNFSFileShareDefaults (\ s a -> s{_nfsfsiNFSFileShareDefaults = a})  -- | Undocumented member. nfsfsiLocationARN :: Lens' NFSFileShareInfo (Maybe Text)-nfsfsiLocationARN = lens _nfsfsiLocationARN (\ s a -> s{_nfsfsiLocationARN = a});+nfsfsiLocationARN = lens _nfsfsiLocationARN (\ s a -> s{_nfsfsiLocationARN = a})  -- | Undocumented member. nfsfsiClientList :: Lens' NFSFileShareInfo (Maybe (NonEmpty Text))-nfsfsiClientList = lens _nfsfsiClientList (\ s a -> s{_nfsfsiClientList = a}) . mapping _List1;+nfsfsiClientList = lens _nfsfsiClientList (\ s a -> s{_nfsfsiClientList = a}) . mapping _List1 --- | Undocumented member.+-- | Enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, and otherwise to false. The default value is true.+nfsfsiGuessMIMETypeEnabled :: Lens' NFSFileShareInfo (Maybe Bool)+nfsfsiGuessMIMETypeEnabled = lens _nfsfsiGuessMIMETypeEnabled (\ s a -> s{_nfsfsiGuessMIMETypeEnabled = a})++-- | Sets the write status of a file share. This value is true if the write status is read-only, and otherwise false. nfsfsiReadOnly :: Lens' NFSFileShareInfo (Maybe Bool)-nfsfsiReadOnly = lens _nfsfsiReadOnly (\ s a -> s{_nfsfsiReadOnly = a});+nfsfsiReadOnly = lens _nfsfsiReadOnly (\ s a -> s{_nfsfsiReadOnly = a})  instance FromJSON NFSFileShareInfo where         parseJSON@@ -698,15 +731,18 @@                    (x .:? "FileShareStatus") <*> (x .:? "KMSKey") <*>                      (x .:? "GatewayARN")                      <*> (x .:? "Path")+                     <*> (x .:? "ObjectACL")                      <*> (x .:? "KMSEncrypted")                      <*> (x .:? "FileShareId")                      <*> (x .:? "FileShareARN")                      <*> (x .:? "DefaultStorageClass")                      <*> (x .:? "Role")                      <*> (x .:? "Squash")+                     <*> (x .:? "RequesterPays")                      <*> (x .:? "NFSFileShareDefaults")                      <*> (x .:? "LocationARN")                      <*> (x .:? "ClientList")+                     <*> (x .:? "GuessMIMETypeEnabled")                      <*> (x .:? "ReadOnly"))  instance Hashable NFSFileShareInfo where@@ -738,20 +774,23 @@     :: NetworkInterface networkInterface =   NetworkInterface'-  {_niIPv6Address = Nothing, _niMACAddress = Nothing, _niIPv4Address = Nothing}+    { _niIPv6Address = Nothing+    , _niMACAddress = Nothing+    , _niIPv4Address = Nothing+    }   -- | The Internet Protocol version 6 (IPv6) address of the interface. /Currently not supported/ . niIPv6Address :: Lens' NetworkInterface (Maybe Text)-niIPv6Address = lens _niIPv6Address (\ s a -> s{_niIPv6Address = a});+niIPv6Address = lens _niIPv6Address (\ s a -> s{_niIPv6Address = a})  -- | The Media Access Control (MAC) address of the interface. niMACAddress :: Lens' NetworkInterface (Maybe Text)-niMACAddress = lens _niMACAddress (\ s a -> s{_niMACAddress = a});+niMACAddress = lens _niMACAddress (\ s a -> s{_niMACAddress = a})  -- | The Internet Protocol version 4 (IPv4) address of the interface. niIPv4Address :: Lens' NetworkInterface (Maybe Text)-niIPv4Address = lens _niIPv4Address (\ s a -> s{_niIPv4Address = a});+niIPv4Address = lens _niIPv4Address (\ s a -> s{_niIPv4Address = a})  instance FromJSON NetworkInterface where         parseJSON@@ -778,6 +817,7 @@   , _sscsivVolumeARN             :: !(Maybe Text)   , _sscsivVolumeProgress        :: !(Maybe Double)   , _sscsivVolumeSizeInBytes     :: !(Maybe Integer)+  , _sscsivVolumeUsedInBytes     :: !(Maybe Integer)   , _sscsivCreatedDate           :: !(Maybe POSIX)   , _sscsivVolumeId              :: !(Maybe Text)   , _sscsivVolumeDiskId          :: !(Maybe Text)@@ -803,6 +843,8 @@ -- -- * 'sscsivVolumeSizeInBytes' - The size of the volume in bytes. --+-- * 'sscsivVolumeUsedInBytes' - The size of the data stored on the volume in bytes.+-- -- * 'sscsivCreatedDate' - The date the volume was created. Volumes created prior to March 28, 2017 don’t have this time stamp. -- -- * 'sscsivVolumeId' - The unique identifier of the volume, e.g. vol-AE4B946D.@@ -814,63 +856,68 @@     :: StorediSCSIVolume storediSCSIVolume =   StorediSCSIVolume'-  { _sscsivVolumeiSCSIAttributes = Nothing-  , _sscsivVolumeStatus = Nothing-  , _sscsivSourceSnapshotId = Nothing-  , _sscsivPreservedExistingData = Nothing-  , _sscsivVolumeARN = Nothing-  , _sscsivVolumeProgress = Nothing-  , _sscsivVolumeSizeInBytes = Nothing-  , _sscsivCreatedDate = Nothing-  , _sscsivVolumeId = Nothing-  , _sscsivVolumeDiskId = Nothing-  , _sscsivVolumeType = Nothing-  }+    { _sscsivVolumeiSCSIAttributes = Nothing+    , _sscsivVolumeStatus = Nothing+    , _sscsivSourceSnapshotId = Nothing+    , _sscsivPreservedExistingData = Nothing+    , _sscsivVolumeARN = Nothing+    , _sscsivVolumeProgress = Nothing+    , _sscsivVolumeSizeInBytes = Nothing+    , _sscsivVolumeUsedInBytes = Nothing+    , _sscsivCreatedDate = Nothing+    , _sscsivVolumeId = Nothing+    , _sscsivVolumeDiskId = Nothing+    , _sscsivVolumeType = Nothing+    }   -- | An 'VolumeiSCSIAttributes' object that represents a collection of iSCSI attributes for one stored volume. sscsivVolumeiSCSIAttributes :: Lens' StorediSCSIVolume (Maybe VolumeiSCSIAttributes)-sscsivVolumeiSCSIAttributes = lens _sscsivVolumeiSCSIAttributes (\ s a -> s{_sscsivVolumeiSCSIAttributes = a});+sscsivVolumeiSCSIAttributes = lens _sscsivVolumeiSCSIAttributes (\ s a -> s{_sscsivVolumeiSCSIAttributes = a})  -- | One of the VolumeStatus values that indicates the state of the storage volume. sscsivVolumeStatus :: Lens' StorediSCSIVolume (Maybe Text)-sscsivVolumeStatus = lens _sscsivVolumeStatus (\ s a -> s{_sscsivVolumeStatus = a});+sscsivVolumeStatus = lens _sscsivVolumeStatus (\ s a -> s{_sscsivVolumeStatus = a})  -- | If the stored volume was created from a snapshot, this field contains the snapshot ID used, e.g. snap-78e22663. Otherwise, this field is not included. sscsivSourceSnapshotId :: Lens' StorediSCSIVolume (Maybe Text)-sscsivSourceSnapshotId = lens _sscsivSourceSnapshotId (\ s a -> s{_sscsivSourceSnapshotId = a});+sscsivSourceSnapshotId = lens _sscsivSourceSnapshotId (\ s a -> s{_sscsivSourceSnapshotId = a})  -- | Indicates if when the stored volume was created, existing data on the underlying local disk was preserved. Valid Values: true, false sscsivPreservedExistingData :: Lens' StorediSCSIVolume (Maybe Bool)-sscsivPreservedExistingData = lens _sscsivPreservedExistingData (\ s a -> s{_sscsivPreservedExistingData = a});+sscsivPreservedExistingData = lens _sscsivPreservedExistingData (\ s a -> s{_sscsivPreservedExistingData = a})  -- | The Amazon Resource Name (ARN) of the storage volume. sscsivVolumeARN :: Lens' StorediSCSIVolume (Maybe Text)-sscsivVolumeARN = lens _sscsivVolumeARN (\ s a -> s{_sscsivVolumeARN = a});+sscsivVolumeARN = lens _sscsivVolumeARN (\ s a -> s{_sscsivVolumeARN = a})  -- | Represents the percentage complete if the volume is restoring or bootstrapping that represents the percent of data transferred. This field does not appear in the response if the stored volume is not restoring or bootstrapping. sscsivVolumeProgress :: Lens' StorediSCSIVolume (Maybe Double)-sscsivVolumeProgress = lens _sscsivVolumeProgress (\ s a -> s{_sscsivVolumeProgress = a});+sscsivVolumeProgress = lens _sscsivVolumeProgress (\ s a -> s{_sscsivVolumeProgress = a})  -- | The size of the volume in bytes. sscsivVolumeSizeInBytes :: Lens' StorediSCSIVolume (Maybe Integer)-sscsivVolumeSizeInBytes = lens _sscsivVolumeSizeInBytes (\ s a -> s{_sscsivVolumeSizeInBytes = a});+sscsivVolumeSizeInBytes = lens _sscsivVolumeSizeInBytes (\ s a -> s{_sscsivVolumeSizeInBytes = a}) +-- | The size of the data stored on the volume in bytes.+sscsivVolumeUsedInBytes :: Lens' StorediSCSIVolume (Maybe Integer)+sscsivVolumeUsedInBytes = lens _sscsivVolumeUsedInBytes (\ s a -> s{_sscsivVolumeUsedInBytes = a})+ -- | The date the volume was created. Volumes created prior to March 28, 2017 don’t have this time stamp. sscsivCreatedDate :: Lens' StorediSCSIVolume (Maybe UTCTime)-sscsivCreatedDate = lens _sscsivCreatedDate (\ s a -> s{_sscsivCreatedDate = a}) . mapping _Time;+sscsivCreatedDate = lens _sscsivCreatedDate (\ s a -> s{_sscsivCreatedDate = a}) . mapping _Time  -- | The unique identifier of the volume, e.g. vol-AE4B946D. sscsivVolumeId :: Lens' StorediSCSIVolume (Maybe Text)-sscsivVolumeId = lens _sscsivVolumeId (\ s a -> s{_sscsivVolumeId = a});+sscsivVolumeId = lens _sscsivVolumeId (\ s a -> s{_sscsivVolumeId = a})  -- | The ID of the local disk that was specified in the 'CreateStorediSCSIVolume' operation. sscsivVolumeDiskId :: Lens' StorediSCSIVolume (Maybe Text)-sscsivVolumeDiskId = lens _sscsivVolumeDiskId (\ s a -> s{_sscsivVolumeDiskId = a});+sscsivVolumeDiskId = lens _sscsivVolumeDiskId (\ s a -> s{_sscsivVolumeDiskId = a})  -- | One of the VolumeType enumeration values describing the type of the volume. sscsivVolumeType :: Lens' StorediSCSIVolume (Maybe Text)-sscsivVolumeType = lens _sscsivVolumeType (\ s a -> s{_sscsivVolumeType = a});+sscsivVolumeType = lens _sscsivVolumeType (\ s a -> s{_sscsivVolumeType = a})  instance FromJSON StorediSCSIVolume where         parseJSON@@ -884,6 +931,7 @@                      <*> (x .:? "VolumeARN")                      <*> (x .:? "VolumeProgress")                      <*> (x .:? "VolumeSizeInBytes")+                     <*> (x .:? "VolumeUsedInBytes")                      <*> (x .:? "CreatedDate")                      <*> (x .:? "VolumeId")                      <*> (x .:? "VolumeDiskId")@@ -916,11 +964,11 @@  -- | Undocumented member. tagKey :: Lens' Tag Text-tagKey = lens _tagKey (\ s a -> s{_tagKey = a});+tagKey = lens _tagKey (\ s a -> s{_tagKey = a})  -- | Undocumented member. tagValue :: Lens' Tag Text-tagValue = lens _tagValue (\ s a -> s{_tagValue = a});+tagValue = lens _tagValue (\ s a -> s{_tagValue = a})  instance FromJSON Tag where         parseJSON@@ -971,55 +1019,55 @@ -- -- * 'tVTLDevice' - The virtual tape library (VTL) device that the virtual tape is associated with. ----- * 'tTapeUsedInBytes' - The size, in bytes, of data written to the virtual tape.+-- * 'tTapeUsedInBytes' - The size, in bytes, of data stored on the virtual tape. -- -- * 'tTapeCreatedDate' - The date the virtual tape was created. tape     :: Tape tape =   Tape'-  { _tTapeBarcode = Nothing-  , _tTapeStatus = Nothing-  , _tTapeARN = Nothing-  , _tProgress = Nothing-  , _tTapeSizeInBytes = Nothing-  , _tVTLDevice = Nothing-  , _tTapeUsedInBytes = Nothing-  , _tTapeCreatedDate = Nothing-  }+    { _tTapeBarcode = Nothing+    , _tTapeStatus = Nothing+    , _tTapeARN = Nothing+    , _tProgress = Nothing+    , _tTapeSizeInBytes = Nothing+    , _tVTLDevice = Nothing+    , _tTapeUsedInBytes = Nothing+    , _tTapeCreatedDate = Nothing+    }   -- | The barcode that identifies a specific virtual tape. tTapeBarcode :: Lens' Tape (Maybe Text)-tTapeBarcode = lens _tTapeBarcode (\ s a -> s{_tTapeBarcode = a});+tTapeBarcode = lens _tTapeBarcode (\ s a -> s{_tTapeBarcode = a})  -- | The current state of the virtual tape. tTapeStatus :: Lens' Tape (Maybe Text)-tTapeStatus = lens _tTapeStatus (\ s a -> s{_tTapeStatus = a});+tTapeStatus = lens _tTapeStatus (\ s a -> s{_tTapeStatus = a})  -- | The Amazon Resource Name (ARN) of the virtual tape. tTapeARN :: Lens' Tape (Maybe Text)-tTapeARN = lens _tTapeARN (\ s a -> s{_tTapeARN = a});+tTapeARN = lens _tTapeARN (\ s a -> s{_tTapeARN = a})  -- | For archiving virtual tapes, indicates how much data remains to be uploaded before archiving is complete. Range: 0 (not started) to 100 (complete). tProgress :: Lens' Tape (Maybe Double)-tProgress = lens _tProgress (\ s a -> s{_tProgress = a});+tProgress = lens _tProgress (\ s a -> s{_tProgress = a})  -- | The size, in bytes, of the virtual tape capacity. tTapeSizeInBytes :: Lens' Tape (Maybe Integer)-tTapeSizeInBytes = lens _tTapeSizeInBytes (\ s a -> s{_tTapeSizeInBytes = a});+tTapeSizeInBytes = lens _tTapeSizeInBytes (\ s a -> s{_tTapeSizeInBytes = a})  -- | The virtual tape library (VTL) device that the virtual tape is associated with. tVTLDevice :: Lens' Tape (Maybe Text)-tVTLDevice = lens _tVTLDevice (\ s a -> s{_tVTLDevice = a});+tVTLDevice = lens _tVTLDevice (\ s a -> s{_tVTLDevice = a}) --- | The size, in bytes, of data written to the virtual tape.+-- | The size, in bytes, of data stored on the virtual tape. tTapeUsedInBytes :: Lens' Tape (Maybe Integer)-tTapeUsedInBytes = lens _tTapeUsedInBytes (\ s a -> s{_tTapeUsedInBytes = a});+tTapeUsedInBytes = lens _tTapeUsedInBytes (\ s a -> s{_tTapeUsedInBytes = a})  -- | The date the virtual tape was created. tTapeCreatedDate :: Lens' Tape (Maybe UTCTime)-tTapeCreatedDate = lens _tTapeCreatedDate (\ s a -> s{_tTapeCreatedDate = a}) . mapping _Time;+tTapeCreatedDate = lens _tTapeCreatedDate (\ s a -> s{_tTapeCreatedDate = a}) . mapping _Time  instance FromJSON Tape where         parseJSON@@ -1069,7 +1117,7 @@ -- -- * 'taCompletionTime' - The time that the archiving of the virtual tape was completed. The string format of the completion time is in the ISO8601 extended YYYY-MM-DD'T'HH:MM:SS'Z' format. ----- * 'taTapeUsedInBytes' - The size, in bytes, of data written to the virtual tape.+-- * 'taTapeUsedInBytes' - The size, in bytes, of data stored on the virtual tape. -- -- * 'taTapeCreatedDate' - Undocumented member. --@@ -1078,48 +1126,48 @@     :: TapeArchive tapeArchive =   TapeArchive'-  { _taTapeBarcode = Nothing-  , _taTapeStatus = Nothing-  , _taTapeARN = Nothing-  , _taTapeSizeInBytes = Nothing-  , _taCompletionTime = Nothing-  , _taTapeUsedInBytes = Nothing-  , _taTapeCreatedDate = Nothing-  , _taRetrievedTo = Nothing-  }+    { _taTapeBarcode = Nothing+    , _taTapeStatus = Nothing+    , _taTapeARN = Nothing+    , _taTapeSizeInBytes = Nothing+    , _taCompletionTime = Nothing+    , _taTapeUsedInBytes = Nothing+    , _taTapeCreatedDate = Nothing+    , _taRetrievedTo = Nothing+    }   -- | The barcode that identifies the archived virtual tape. taTapeBarcode :: Lens' TapeArchive (Maybe Text)-taTapeBarcode = lens _taTapeBarcode (\ s a -> s{_taTapeBarcode = a});+taTapeBarcode = lens _taTapeBarcode (\ s a -> s{_taTapeBarcode = a})  -- | The current state of the archived virtual tape. taTapeStatus :: Lens' TapeArchive (Maybe Text)-taTapeStatus = lens _taTapeStatus (\ s a -> s{_taTapeStatus = a});+taTapeStatus = lens _taTapeStatus (\ s a -> s{_taTapeStatus = a})  -- | The Amazon Resource Name (ARN) of an archived virtual tape. taTapeARN :: Lens' TapeArchive (Maybe Text)-taTapeARN = lens _taTapeARN (\ s a -> s{_taTapeARN = a});+taTapeARN = lens _taTapeARN (\ s a -> s{_taTapeARN = a})  -- | The size, in bytes, of the archived virtual tape. taTapeSizeInBytes :: Lens' TapeArchive (Maybe Integer)-taTapeSizeInBytes = lens _taTapeSizeInBytes (\ s a -> s{_taTapeSizeInBytes = a});+taTapeSizeInBytes = lens _taTapeSizeInBytes (\ s a -> s{_taTapeSizeInBytes = a})  -- | The time that the archiving of the virtual tape was completed. The string format of the completion time is in the ISO8601 extended YYYY-MM-DD'T'HH:MM:SS'Z' format. taCompletionTime :: Lens' TapeArchive (Maybe UTCTime)-taCompletionTime = lens _taCompletionTime (\ s a -> s{_taCompletionTime = a}) . mapping _Time;+taCompletionTime = lens _taCompletionTime (\ s a -> s{_taCompletionTime = a}) . mapping _Time --- | The size, in bytes, of data written to the virtual tape.+-- | The size, in bytes, of data stored on the virtual tape. taTapeUsedInBytes :: Lens' TapeArchive (Maybe Integer)-taTapeUsedInBytes = lens _taTapeUsedInBytes (\ s a -> s{_taTapeUsedInBytes = a});+taTapeUsedInBytes = lens _taTapeUsedInBytes (\ s a -> s{_taTapeUsedInBytes = a})  -- | Undocumented member. taTapeCreatedDate :: Lens' TapeArchive (Maybe UTCTime)-taTapeCreatedDate = lens _taTapeCreatedDate (\ s a -> s{_taTapeCreatedDate = a}) . mapping _Time;+taTapeCreatedDate = lens _taTapeCreatedDate (\ s a -> s{_taTapeCreatedDate = a}) . mapping _Time  -- | The Amazon Resource Name (ARN) of the tape gateway that the virtual tape is being retrieved to. The virtual tape is retrieved from the virtual tape shelf (VTS). taRetrievedTo :: Lens' TapeArchive (Maybe Text)-taRetrievedTo = lens _taRetrievedTo (\ s a -> s{_taRetrievedTo = a});+taRetrievedTo = lens _taRetrievedTo (\ s a -> s{_taRetrievedTo = a})  instance FromJSON TapeArchive where         parseJSON@@ -1169,33 +1217,33 @@     :: TapeInfo tapeInfo =   TapeInfo'-  { _tiTapeBarcode = Nothing-  , _tiTapeStatus = Nothing-  , _tiTapeARN = Nothing-  , _tiGatewayARN = Nothing-  , _tiTapeSizeInBytes = Nothing-  }+    { _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});+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});+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});+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});+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});+tiTapeSizeInBytes = lens _tiTapeSizeInBytes (\ s a -> s{_tiTapeSizeInBytes = a})  instance FromJSON TapeInfo where         parseJSON@@ -1239,28 +1287,28 @@     :: TapeRecoveryPointInfo tapeRecoveryPointInfo =   TapeRecoveryPointInfo'-  { _trpiTapeStatus = Nothing-  , _trpiTapeRecoveryPointTime = Nothing-  , _trpiTapeARN = Nothing-  , _trpiTapeSizeInBytes = Nothing-  }+    { _trpiTapeStatus = Nothing+    , _trpiTapeRecoveryPointTime = Nothing+    , _trpiTapeARN = Nothing+    , _trpiTapeSizeInBytes = Nothing+    }   -- | Undocumented member. trpiTapeStatus :: Lens' TapeRecoveryPointInfo (Maybe Text)-trpiTapeStatus = lens _trpiTapeStatus (\ s a -> s{_trpiTapeStatus = a});+trpiTapeStatus = lens _trpiTapeStatus (\ s a -> s{_trpiTapeStatus = a})  -- | The time when the point-in-time view of the virtual tape was replicated for later recovery. The string format of the tape recovery point time is in the ISO8601 extended YYYY-MM-DD'T'HH:MM:SS'Z' format. trpiTapeRecoveryPointTime :: Lens' TapeRecoveryPointInfo (Maybe UTCTime)-trpiTapeRecoveryPointTime = lens _trpiTapeRecoveryPointTime (\ s a -> s{_trpiTapeRecoveryPointTime = a}) . mapping _Time;+trpiTapeRecoveryPointTime = lens _trpiTapeRecoveryPointTime (\ s a -> s{_trpiTapeRecoveryPointTime = a}) . mapping _Time  -- | The Amazon Resource Name (ARN) of the virtual tape. trpiTapeARN :: Lens' TapeRecoveryPointInfo (Maybe Text)-trpiTapeARN = lens _trpiTapeARN (\ s a -> s{_trpiTapeARN = a});+trpiTapeARN = lens _trpiTapeARN (\ s a -> s{_trpiTapeARN = a})  -- | The size, in bytes, of the virtual tapes to recover. trpiTapeSizeInBytes :: Lens' TapeRecoveryPointInfo (Maybe Integer)-trpiTapeSizeInBytes = lens _trpiTapeSizeInBytes (\ s a -> s{_trpiTapeSizeInBytes = a});+trpiTapeSizeInBytes = lens _trpiTapeSizeInBytes (\ s a -> s{_trpiTapeSizeInBytes = a})  instance FromJSON TapeRecoveryPointInfo where         parseJSON@@ -1307,33 +1355,33 @@     :: VTLDevice vTLDevice =   VTLDevice'-  { _vtldDeviceiSCSIAttributes = Nothing-  , _vtldVTLDeviceVendor = Nothing-  , _vtldVTLDeviceARN = Nothing-  , _vtldVTLDeviceType = Nothing-  , _vtldVTLDeviceProductIdentifier = Nothing-  }+    { _vtldDeviceiSCSIAttributes = Nothing+    , _vtldVTLDeviceVendor = Nothing+    , _vtldVTLDeviceARN = Nothing+    , _vtldVTLDeviceType = Nothing+    , _vtldVTLDeviceProductIdentifier = Nothing+    }   -- | A list of iSCSI information about a VTL device. vtldDeviceiSCSIAttributes :: Lens' VTLDevice (Maybe DeviceiSCSIAttributes)-vtldDeviceiSCSIAttributes = lens _vtldDeviceiSCSIAttributes (\ s a -> s{_vtldDeviceiSCSIAttributes = a});+vtldDeviceiSCSIAttributes = lens _vtldDeviceiSCSIAttributes (\ s a -> s{_vtldDeviceiSCSIAttributes = a})  -- | Undocumented member. vtldVTLDeviceVendor :: Lens' VTLDevice (Maybe Text)-vtldVTLDeviceVendor = lens _vtldVTLDeviceVendor (\ s a -> s{_vtldVTLDeviceVendor = a});+vtldVTLDeviceVendor = lens _vtldVTLDeviceVendor (\ s a -> s{_vtldVTLDeviceVendor = a})  -- | Specifies the unique Amazon Resource Name (ARN) of the device (tape drive or media changer). vtldVTLDeviceARN :: Lens' VTLDevice (Maybe Text)-vtldVTLDeviceARN = lens _vtldVTLDeviceARN (\ s a -> s{_vtldVTLDeviceARN = a});+vtldVTLDeviceARN = lens _vtldVTLDeviceARN (\ s a -> s{_vtldVTLDeviceARN = a})  -- | Undocumented member. vtldVTLDeviceType :: Lens' VTLDevice (Maybe Text)-vtldVTLDeviceType = lens _vtldVTLDeviceType (\ s a -> s{_vtldVTLDeviceType = a});+vtldVTLDeviceType = lens _vtldVTLDeviceType (\ s a -> s{_vtldVTLDeviceType = a})  -- | Undocumented member. vtldVTLDeviceProductIdentifier :: Lens' VTLDevice (Maybe Text)-vtldVTLDeviceProductIdentifier = lens _vtldVTLDeviceProductIdentifier (\ s a -> s{_vtldVTLDeviceProductIdentifier = a});+vtldVTLDeviceProductIdentifier = lens _vtldVTLDeviceProductIdentifier (\ s a -> s{_vtldVTLDeviceProductIdentifier = a})  instance FromJSON VTLDevice where         parseJSON@@ -1384,38 +1432,38 @@     :: VolumeInfo volumeInfo =   VolumeInfo'-  { _viGatewayARN = Nothing-  , _viVolumeARN = Nothing-  , _viVolumeSizeInBytes = Nothing-  , _viVolumeId = Nothing-  , _viGatewayId = Nothing-  , _viVolumeType = 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});+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-2: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});+viVolumeARN = lens _viVolumeARN (\ s a -> s{_viVolumeARN = a})  -- | The size of the volume in bytes. Valid Values: 50 to 500 lowercase letters, numbers, periods (.), and hyphens (-). viVolumeSizeInBytes :: Lens' VolumeInfo (Maybe Integer)-viVolumeSizeInBytes = lens _viVolumeSizeInBytes (\ s a -> s{_viVolumeSizeInBytes = a});+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});+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});+viGatewayId = lens _viGatewayId (\ s a -> s{_viGatewayId = a})  -- | Undocumented member. viVolumeType :: Lens' VolumeInfo (Maybe Text)-viVolumeType = lens _viVolumeType (\ s a -> s{_viVolumeType = a});+viVolumeType = lens _viVolumeType (\ s a -> s{_viVolumeType = a})  instance FromJSON VolumeInfo where         parseJSON@@ -1456,28 +1504,28 @@     :: VolumeRecoveryPointInfo volumeRecoveryPointInfo =   VolumeRecoveryPointInfo'-  { _vrpiVolumeRecoveryPointTime = Nothing-  , _vrpiVolumeARN = Nothing-  , _vrpiVolumeSizeInBytes = Nothing-  , _vrpiVolumeUsageInBytes = Nothing-  }+    { _vrpiVolumeRecoveryPointTime = Nothing+    , _vrpiVolumeARN = Nothing+    , _vrpiVolumeSizeInBytes = Nothing+    , _vrpiVolumeUsageInBytes = Nothing+    }   -- | Undocumented member. vrpiVolumeRecoveryPointTime :: Lens' VolumeRecoveryPointInfo (Maybe Text)-vrpiVolumeRecoveryPointTime = lens _vrpiVolumeRecoveryPointTime (\ s a -> s{_vrpiVolumeRecoveryPointTime = a});+vrpiVolumeRecoveryPointTime = lens _vrpiVolumeRecoveryPointTime (\ s a -> s{_vrpiVolumeRecoveryPointTime = a})  -- | Undocumented member. vrpiVolumeARN :: Lens' VolumeRecoveryPointInfo (Maybe Text)-vrpiVolumeARN = lens _vrpiVolumeARN (\ s a -> s{_vrpiVolumeARN = a});+vrpiVolumeARN = lens _vrpiVolumeARN (\ s a -> s{_vrpiVolumeARN = a})  -- | Undocumented member. vrpiVolumeSizeInBytes :: Lens' VolumeRecoveryPointInfo (Maybe Integer)-vrpiVolumeSizeInBytes = lens _vrpiVolumeSizeInBytes (\ s a -> s{_vrpiVolumeSizeInBytes = a});+vrpiVolumeSizeInBytes = lens _vrpiVolumeSizeInBytes (\ s a -> s{_vrpiVolumeSizeInBytes = a})  -- | Undocumented member. vrpiVolumeUsageInBytes :: Lens' VolumeRecoveryPointInfo (Maybe Integer)-vrpiVolumeUsageInBytes = lens _vrpiVolumeUsageInBytes (\ s a -> s{_vrpiVolumeUsageInBytes = a});+vrpiVolumeUsageInBytes = lens _vrpiVolumeUsageInBytes (\ s a -> s{_vrpiVolumeUsageInBytes = a})  instance FromJSON VolumeRecoveryPointInfo where         parseJSON@@ -1524,33 +1572,33 @@     :: VolumeiSCSIAttributes volumeiSCSIAttributes =   VolumeiSCSIAttributes'-  { _vscsiaLunNumber = Nothing-  , _vscsiaTargetARN = Nothing-  , _vscsiaChapEnabled = Nothing-  , _vscsiaNetworkInterfaceId = Nothing-  , _vscsiaNetworkInterfacePort = Nothing-  }+    { _vscsiaLunNumber = Nothing+    , _vscsiaTargetARN = Nothing+    , _vscsiaChapEnabled = Nothing+    , _vscsiaNetworkInterfaceId = Nothing+    , _vscsiaNetworkInterfacePort = Nothing+    }   -- | The logical disk number. vscsiaLunNumber :: Lens' VolumeiSCSIAttributes (Maybe Natural)-vscsiaLunNumber = lens _vscsiaLunNumber (\ s a -> s{_vscsiaLunNumber = a}) . mapping _Nat;+vscsiaLunNumber = lens _vscsiaLunNumber (\ s a -> s{_vscsiaLunNumber = a}) . mapping _Nat  -- | The Amazon Resource Name (ARN) of the volume target. vscsiaTargetARN :: Lens' VolumeiSCSIAttributes (Maybe Text)-vscsiaTargetARN = lens _vscsiaTargetARN (\ s a -> s{_vscsiaTargetARN = a});+vscsiaTargetARN = lens _vscsiaTargetARN (\ s a -> s{_vscsiaTargetARN = a})  -- | Indicates whether mutual CHAP is enabled for the iSCSI target. vscsiaChapEnabled :: Lens' VolumeiSCSIAttributes (Maybe Bool)-vscsiaChapEnabled = lens _vscsiaChapEnabled (\ s a -> s{_vscsiaChapEnabled = a});+vscsiaChapEnabled = lens _vscsiaChapEnabled (\ s a -> s{_vscsiaChapEnabled = a})  -- | The network interface identifier. vscsiaNetworkInterfaceId :: Lens' VolumeiSCSIAttributes (Maybe Text)-vscsiaNetworkInterfaceId = lens _vscsiaNetworkInterfaceId (\ s a -> s{_vscsiaNetworkInterfaceId = a});+vscsiaNetworkInterfaceId = lens _vscsiaNetworkInterfaceId (\ s a -> s{_vscsiaNetworkInterfaceId = a})  -- | The port used to communicate with iSCSI targets. vscsiaNetworkInterfacePort :: Lens' VolumeiSCSIAttributes (Maybe Int)-vscsiaNetworkInterfacePort = lens _vscsiaNetworkInterfacePort (\ s a -> s{_vscsiaNetworkInterfacePort = a});+vscsiaNetworkInterfacePort = lens _vscsiaNetworkInterfacePort (\ s a -> s{_vscsiaNetworkInterfacePort = a})  instance FromJSON VolumeiSCSIAttributes where         parseJSON

@@ -9,7 +9,7 @@  -- | -- Module      : Network.AWS.StorageGateway.Types.Sum--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -18,3 +18,51 @@ module Network.AWS.StorageGateway.Types.Sum where  import Network.AWS.Prelude++-- | Sets the access control list permission for objects in the S3 bucket that a file gateway puts objects into. The default value is "private".+--+--+data ObjectACL+  = AWSExecRead+  | AuthenticatedRead+  | BucketOwnerFullControl+  | BucketOwnerRead+  | Private+  | PublicRead+  | PublicReadWrite+  deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic)+++instance FromText ObjectACL where+    parser = takeLowerText >>= \case+        "aws-exec-read" -> pure AWSExecRead+        "authenticated-read" -> pure AuthenticatedRead+        "bucket-owner-full-control" -> pure BucketOwnerFullControl+        "bucket-owner-read" -> pure BucketOwnerRead+        "private" -> pure Private+        "public-read" -> pure PublicRead+        "public-read-write" -> pure PublicReadWrite+        e -> fromTextError $ "Failure parsing ObjectACL from value: '" <> e+           <> "'. Accepted values: aws-exec-read, authenticated-read, bucket-owner-full-control, bucket-owner-read, private, public-read, public-read-write"++instance ToText ObjectACL where+    toText = \case+        AWSExecRead -> "aws-exec-read"+        AuthenticatedRead -> "authenticated-read"+        BucketOwnerFullControl -> "bucket-owner-full-control"+        BucketOwnerRead -> "bucket-owner-read"+        Private -> "private"+        PublicRead -> "public-read"+        PublicReadWrite -> "public-read-write"++instance Hashable     ObjectACL+instance NFData       ObjectACL+instance ToByteString ObjectACL+instance ToQuery      ObjectACL+instance ToHeader     ObjectACL++instance ToJSON ObjectACL where+    toJSON = toJSONText++instance FromJSON ObjectACL where+    parseJSON = parseJSONText "ObjectACL"

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateBandwidthRateLimit--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -82,23 +82,23 @@     -> UpdateBandwidthRateLimit updateBandwidthRateLimit pGatewayARN_ =   UpdateBandwidthRateLimit'-  { _ubrlAverageUploadRateLimitInBitsPerSec = Nothing-  , _ubrlAverageDownloadRateLimitInBitsPerSec = Nothing-  , _ubrlGatewayARN = pGatewayARN_-  }+    { _ubrlAverageUploadRateLimitInBitsPerSec = Nothing+    , _ubrlAverageDownloadRateLimitInBitsPerSec = Nothing+    , _ubrlGatewayARN = pGatewayARN_+    }   -- | The average upload bandwidth rate limit in bits per second. ubrlAverageUploadRateLimitInBitsPerSec :: Lens' UpdateBandwidthRateLimit (Maybe Natural)-ubrlAverageUploadRateLimitInBitsPerSec = lens _ubrlAverageUploadRateLimitInBitsPerSec (\ s a -> s{_ubrlAverageUploadRateLimitInBitsPerSec = a}) . mapping _Nat;+ubrlAverageUploadRateLimitInBitsPerSec = lens _ubrlAverageUploadRateLimitInBitsPerSec (\ s a -> s{_ubrlAverageUploadRateLimitInBitsPerSec = a}) . mapping _Nat  -- | The average download bandwidth rate limit in bits per second. ubrlAverageDownloadRateLimitInBitsPerSec :: Lens' UpdateBandwidthRateLimit (Maybe Natural)-ubrlAverageDownloadRateLimitInBitsPerSec = lens _ubrlAverageDownloadRateLimitInBitsPerSec (\ s a -> s{_ubrlAverageDownloadRateLimitInBitsPerSec = a}) . mapping _Nat;+ubrlAverageDownloadRateLimitInBitsPerSec = lens _ubrlAverageDownloadRateLimitInBitsPerSec (\ s a -> s{_ubrlAverageDownloadRateLimitInBitsPerSec = a}) . mapping _Nat  -- | Undocumented member. ubrlGatewayARN :: Lens' UpdateBandwidthRateLimit Text-ubrlGatewayARN = lens _ubrlGatewayARN (\ s a -> s{_ubrlGatewayARN = a});+ubrlGatewayARN = lens _ubrlGatewayARN (\ s a -> s{_ubrlGatewayARN = a})  instance AWSRequest UpdateBandwidthRateLimit where         type Rs UpdateBandwidthRateLimit =@@ -163,16 +163,16 @@     -> UpdateBandwidthRateLimitResponse updateBandwidthRateLimitResponse pResponseStatus_ =   UpdateBandwidthRateLimitResponse'-  {_ubrlrsGatewayARN = Nothing, _ubrlrsResponseStatus = pResponseStatus_}+    {_ubrlrsGatewayARN = Nothing, _ubrlrsResponseStatus = pResponseStatus_}   -- | Undocumented member. ubrlrsGatewayARN :: Lens' UpdateBandwidthRateLimitResponse (Maybe Text)-ubrlrsGatewayARN = lens _ubrlrsGatewayARN (\ s a -> s{_ubrlrsGatewayARN = a});+ubrlrsGatewayARN = lens _ubrlrsGatewayARN (\ s a -> s{_ubrlrsGatewayARN = a})  -- | -- | The response status code. ubrlrsResponseStatus :: Lens' UpdateBandwidthRateLimitResponse Int-ubrlrsResponseStatus = lens _ubrlrsResponseStatus (\ s a -> s{_ubrlrsResponseStatus = a});+ubrlrsResponseStatus = lens _ubrlrsResponseStatus (\ s a -> s{_ubrlrsResponseStatus = a})  instance NFData UpdateBandwidthRateLimitResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateChapCredentials--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -91,28 +91,28 @@     -> UpdateChapCredentials updateChapCredentials pTargetARN_ pSecretToAuthenticateInitiator_ pInitiatorName_ =   UpdateChapCredentials'-  { _uccSecretToAuthenticateTarget = Nothing-  , _uccTargetARN = pTargetARN_-  , _uccSecretToAuthenticateInitiator = pSecretToAuthenticateInitiator_-  , _uccInitiatorName = pInitiatorName_-  }+    { _uccSecretToAuthenticateTarget = Nothing+    , _uccTargetARN = pTargetARN_+    , _uccSecretToAuthenticateInitiator = pSecretToAuthenticateInitiator_+    , _uccInitiatorName = pInitiatorName_+    }   -- | The secret key that the target must provide to participate in mutual CHAP with the initiator (e.g. Windows client). Byte constraints: Minimum bytes of 12. Maximum bytes of 16. uccSecretToAuthenticateTarget :: Lens' UpdateChapCredentials (Maybe Text)-uccSecretToAuthenticateTarget = lens _uccSecretToAuthenticateTarget (\ s a -> s{_uccSecretToAuthenticateTarget = a});+uccSecretToAuthenticateTarget = lens _uccSecretToAuthenticateTarget (\ s a -> s{_uccSecretToAuthenticateTarget = a})  -- | The Amazon Resource Name (ARN) of the iSCSI volume target. Use the 'DescribeStorediSCSIVolumes' operation to return the TargetARN for specified VolumeARN. uccTargetARN :: Lens' UpdateChapCredentials Text-uccTargetARN = lens _uccTargetARN (\ s a -> s{_uccTargetARN = a});+uccTargetARN = lens _uccTargetARN (\ s a -> s{_uccTargetARN = a})  -- | The secret key that the initiator (for example, the Windows client) must provide to participate in mutual CHAP with the target. uccSecretToAuthenticateInitiator :: Lens' UpdateChapCredentials Text-uccSecretToAuthenticateInitiator = lens _uccSecretToAuthenticateInitiator (\ s a -> s{_uccSecretToAuthenticateInitiator = a});+uccSecretToAuthenticateInitiator = lens _uccSecretToAuthenticateInitiator (\ s a -> s{_uccSecretToAuthenticateInitiator = a})  -- | The iSCSI initiator that connects to the target. uccInitiatorName :: Lens' UpdateChapCredentials Text-uccInitiatorName = lens _uccInitiatorName (\ s a -> s{_uccInitiatorName = a});+uccInitiatorName = lens _uccInitiatorName (\ s a -> s{_uccInitiatorName = a})  instance AWSRequest UpdateChapCredentials where         type Rs UpdateChapCredentials =@@ -183,22 +183,22 @@     -> UpdateChapCredentialsResponse updateChapCredentialsResponse pResponseStatus_ =   UpdateChapCredentialsResponse'-  { _uccrsTargetARN = Nothing-  , _uccrsInitiatorName = Nothing-  , _uccrsResponseStatus = pResponseStatus_-  }+    { _uccrsTargetARN = Nothing+    , _uccrsInitiatorName = Nothing+    , _uccrsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the target. This is the same target specified in the request. uccrsTargetARN :: Lens' UpdateChapCredentialsResponse (Maybe Text)-uccrsTargetARN = lens _uccrsTargetARN (\ s a -> s{_uccrsTargetARN = a});+uccrsTargetARN = lens _uccrsTargetARN (\ s a -> s{_uccrsTargetARN = a})  -- | The iSCSI initiator that connects to the target. This is the same initiator name specified in the request. uccrsInitiatorName :: Lens' UpdateChapCredentialsResponse (Maybe Text)-uccrsInitiatorName = lens _uccrsInitiatorName (\ s a -> s{_uccrsInitiatorName = a});+uccrsInitiatorName = lens _uccrsInitiatorName (\ s a -> s{_uccrsInitiatorName = a})  -- | -- | The response status code. uccrsResponseStatus :: Lens' UpdateChapCredentialsResponse Int-uccrsResponseStatus = lens _uccrsResponseStatus (\ s a -> s{_uccrsResponseStatus = a});+uccrsResponseStatus = lens _uccrsResponseStatus (\ s a -> s{_uccrsResponseStatus = a})  instance NFData UpdateChapCredentialsResponse where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateGatewayInformation--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -69,23 +69,23 @@     -> UpdateGatewayInformation updateGatewayInformation pGatewayARN_ =   UpdateGatewayInformation'-  { _ugiGatewayName = Nothing-  , _ugiGatewayTimezone = Nothing-  , _ugiGatewayARN = pGatewayARN_-  }+    { _ugiGatewayName = Nothing+    , _ugiGatewayTimezone = Nothing+    , _ugiGatewayARN = pGatewayARN_+    }   -- | Undocumented member. ugiGatewayName :: Lens' UpdateGatewayInformation (Maybe Text)-ugiGatewayName = lens _ugiGatewayName (\ s a -> s{_ugiGatewayName = a});+ugiGatewayName = lens _ugiGatewayName (\ s a -> s{_ugiGatewayName = a})  -- | Undocumented member. ugiGatewayTimezone :: Lens' UpdateGatewayInformation (Maybe Text)-ugiGatewayTimezone = lens _ugiGatewayTimezone (\ s a -> s{_ugiGatewayTimezone = a});+ugiGatewayTimezone = lens _ugiGatewayTimezone (\ s a -> s{_ugiGatewayTimezone = a})  -- | Undocumented member. ugiGatewayARN :: Lens' UpdateGatewayInformation Text-ugiGatewayARN = lens _ugiGatewayARN (\ s a -> s{_ugiGatewayARN = a});+ugiGatewayARN = lens _ugiGatewayARN (\ s a -> s{_ugiGatewayARN = a})  instance AWSRequest UpdateGatewayInformation where         type Rs UpdateGatewayInformation =@@ -152,23 +152,23 @@     -> UpdateGatewayInformationResponse updateGatewayInformationResponse pResponseStatus_ =   UpdateGatewayInformationResponse'-  { _ugirsGatewayARN = Nothing-  , _ugirsGatewayName = Nothing-  , _ugirsResponseStatus = pResponseStatus_-  }+    { _ugirsGatewayARN = Nothing+    , _ugirsGatewayName = Nothing+    , _ugirsResponseStatus = pResponseStatus_+    }   -- | Undocumented member. ugirsGatewayARN :: Lens' UpdateGatewayInformationResponse (Maybe Text)-ugirsGatewayARN = lens _ugirsGatewayARN (\ s a -> s{_ugirsGatewayARN = a});+ugirsGatewayARN = lens _ugirsGatewayARN (\ s a -> s{_ugirsGatewayARN = a})  -- | Undocumented member. ugirsGatewayName :: Lens' UpdateGatewayInformationResponse (Maybe Text)-ugirsGatewayName = lens _ugirsGatewayName (\ s a -> s{_ugirsGatewayName = a});+ugirsGatewayName = lens _ugirsGatewayName (\ s a -> s{_ugirsGatewayName = a})  -- | -- | The response status code. ugirsResponseStatus :: Lens' UpdateGatewayInformationResponse Int-ugirsResponseStatus = lens _ugirsResponseStatus (\ s a -> s{_ugirsResponseStatus = a});+ugirsResponseStatus = lens _ugirsResponseStatus (\ s a -> s{_ugirsResponseStatus = a})  instance NFData UpdateGatewayInformationResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateGatewaySoftwareNow--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -70,7 +70,7 @@  -- | Undocumented member. ugsnGatewayARN :: Lens' UpdateGatewaySoftwareNow Text-ugsnGatewayARN = lens _ugsnGatewayARN (\ s a -> s{_ugsnGatewayARN = a});+ugsnGatewayARN = lens _ugsnGatewayARN (\ s a -> s{_ugsnGatewayARN = a})  instance AWSRequest UpdateGatewaySoftwareNow where         type Rs UpdateGatewaySoftwareNow =@@ -130,16 +130,16 @@     -> UpdateGatewaySoftwareNowResponse updateGatewaySoftwareNowResponse pResponseStatus_ =   UpdateGatewaySoftwareNowResponse'-  {_ugsnrsGatewayARN = Nothing, _ugsnrsResponseStatus = pResponseStatus_}+    {_ugsnrsGatewayARN = Nothing, _ugsnrsResponseStatus = pResponseStatus_}   -- | Undocumented member. ugsnrsGatewayARN :: Lens' UpdateGatewaySoftwareNowResponse (Maybe Text)-ugsnrsGatewayARN = lens _ugsnrsGatewayARN (\ s a -> s{_ugsnrsGatewayARN = a});+ugsnrsGatewayARN = lens _ugsnrsGatewayARN (\ s a -> s{_ugsnrsGatewayARN = a})  -- | -- | The response status code. ugsnrsResponseStatus :: Lens' UpdateGatewaySoftwareNowResponse Int-ugsnrsResponseStatus = lens _ugsnrsResponseStatus (\ s a -> s{_ugsnrsResponseStatus = a});+ugsnrsResponseStatus = lens _ugsnrsResponseStatus (\ s a -> s{_ugsnrsResponseStatus = a})  instance NFData UpdateGatewaySoftwareNowResponse          where

@@ -12,7 +12,7 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateMaintenanceStartTime--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -87,28 +87,28 @@     -> UpdateMaintenanceStartTime updateMaintenanceStartTime pGatewayARN_ pHourOfDay_ pMinuteOfHour_ pDayOfWeek_ =   UpdateMaintenanceStartTime'-  { _umstGatewayARN = pGatewayARN_-  , _umstHourOfDay = _Nat # pHourOfDay_-  , _umstMinuteOfHour = _Nat # pMinuteOfHour_-  , _umstDayOfWeek = _Nat # pDayOfWeek_-  }+    { _umstGatewayARN = pGatewayARN_+    , _umstHourOfDay = _Nat # pHourOfDay_+    , _umstMinuteOfHour = _Nat # pMinuteOfHour_+    , _umstDayOfWeek = _Nat # pDayOfWeek_+    }   -- | Undocumented member. umstGatewayARN :: Lens' UpdateMaintenanceStartTime Text-umstGatewayARN = lens _umstGatewayARN (\ s a -> s{_umstGatewayARN = a});+umstGatewayARN = lens _umstGatewayARN (\ s a -> s{_umstGatewayARN = a})  -- | The hour component of the maintenance start time represented as /hh/ , where /hh/ is the hour (00 to 23). The hour of the day is in the time zone of the gateway. umstHourOfDay :: Lens' UpdateMaintenanceStartTime Natural-umstHourOfDay = lens _umstHourOfDay (\ s a -> s{_umstHourOfDay = a}) . _Nat;+umstHourOfDay = lens _umstHourOfDay (\ s a -> s{_umstHourOfDay = a}) . _Nat  -- | The minute component of the maintenance start time represented as /mm/ , where /mm/ is the minute (00 to 59). The minute of the hour is in the time zone of the gateway. umstMinuteOfHour :: Lens' UpdateMaintenanceStartTime Natural-umstMinuteOfHour = lens _umstMinuteOfHour (\ s a -> s{_umstMinuteOfHour = a}) . _Nat;+umstMinuteOfHour = lens _umstMinuteOfHour (\ s a -> s{_umstMinuteOfHour = a}) . _Nat  -- | The maintenance start time day of the week represented as an ordinal number from 0 to 6, where 0 represents Sunday and 6 Saturday. umstDayOfWeek :: Lens' UpdateMaintenanceStartTime Natural-umstDayOfWeek = lens _umstDayOfWeek (\ s a -> s{_umstDayOfWeek = a}) . _Nat;+umstDayOfWeek = lens _umstDayOfWeek (\ s a -> s{_umstDayOfWeek = a}) . _Nat  instance AWSRequest UpdateMaintenanceStartTime where         type Rs UpdateMaintenanceStartTime =@@ -172,16 +172,16 @@     -> UpdateMaintenanceStartTimeResponse updateMaintenanceStartTimeResponse pResponseStatus_ =   UpdateMaintenanceStartTimeResponse'-  {_umstrsGatewayARN = Nothing, _umstrsResponseStatus = pResponseStatus_}+    {_umstrsGatewayARN = Nothing, _umstrsResponseStatus = pResponseStatus_}   -- | Undocumented member. umstrsGatewayARN :: Lens' UpdateMaintenanceStartTimeResponse (Maybe Text)-umstrsGatewayARN = lens _umstrsGatewayARN (\ s a -> s{_umstrsGatewayARN = a});+umstrsGatewayARN = lens _umstrsGatewayARN (\ s a -> s{_umstrsGatewayARN = a})  -- | -- | The response status code. umstrsResponseStatus :: Lens' UpdateMaintenanceStartTimeResponse Int-umstrsResponseStatus = lens _umstrsResponseStatus (\ s a -> s{_umstrsResponseStatus = a});+umstrsResponseStatus = lens _umstrsResponseStatus (\ s a -> s{_umstrsResponseStatus = a})  instance NFData UpdateMaintenanceStartTimeResponse          where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateNFSFileShare--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates a file share. This operation is only supported in the file gateway architecture.+-- Updates a file share. This operation is only supported in the file gateway type. -- -- -- Updates the following file share setting:@@ -42,11 +42,14 @@     , UpdateNFSFileShare     -- * Request Lenses     , unfsfsKMSKey+    , unfsfsObjectACL     , unfsfsKMSEncrypted     , unfsfsDefaultStorageClass     , unfsfsSquash+    , unfsfsRequesterPays     , unfsfsNFSFileShareDefaults     , unfsfsClientList+    , unfsfsGuessMIMETypeEnabled     , unfsfsReadOnly     , unfsfsFileShareARN @@ -72,11 +75,14 @@ -- /See:/ 'updateNFSFileShare' smart constructor. data UpdateNFSFileShare = UpdateNFSFileShare'   { _unfsfsKMSKey               :: !(Maybe Text)+  , _unfsfsObjectACL            :: !(Maybe ObjectACL)   , _unfsfsKMSEncrypted         :: !(Maybe Bool)   , _unfsfsDefaultStorageClass  :: !(Maybe Text)   , _unfsfsSquash               :: !(Maybe Text)+  , _unfsfsRequesterPays        :: !(Maybe Bool)   , _unfsfsNFSFileShareDefaults :: !(Maybe NFSFileShareDefaults)   , _unfsfsClientList           :: !(Maybe (List1 Text))+  , _unfsfsGuessMIMETypeEnabled :: !(Maybe Bool)   , _unfsfsReadOnly             :: !(Maybe Bool)   , _unfsfsFileShareARN         :: !Text   } deriving (Eq, Read, Show, Data, Typeable, Generic)@@ -88,66 +94,87 @@ -- -- * 'unfsfsKMSKey' - The KMS key used for Amazon S3 server side encryption. This value can only be set when KmsEncrypted is true. Optional. --+-- * 'unfsfsObjectACL' - Sets the access control list permission for objects in the S3 bucket that a file gateway puts objects into. The default value is "private".+-- -- * 'unfsfsKMSEncrypted' - True to use Amazon S3 server side encryption with your own AWS KMS key, or false to use a key managed by Amazon S3. Optional. -- -- * 'unfsfsDefaultStorageClass' - The default storage class for objects put into an Amazon S3 bucket by a file gateway. Possible values are S3_STANDARD or S3_STANDARD_IA. If this field is not populated, the default value S3_STANDARD is used. Optional. -- -- * 'unfsfsSquash' - The user mapped to anonymous user. Valid options are the following:     * "RootSquash" - Only root is mapped to anonymous user.     * "NoSquash" - No one is mapped to anonymous user     * "AllSquash" - Everyone is mapped to anonymous user. --+-- * 'unfsfsRequesterPays' - Sets who pays the cost of the request and the data download from the Amazon S3 bucket. Set this value to true if you want the requester to pay instead of the bucket owner, and otherwise to false.+-- -- * 'unfsfsNFSFileShareDefaults' - The default values for the file share. Optional. -- -- * 'unfsfsClientList' - The list of clients that are allowed to access the file gateway. The list must contain either valid IP addresses or valid CIDR blocks. ----- * 'unfsfsReadOnly' - Sets the write status of a file share: "true" if the write status is read-only, otherwise "false".+-- * 'unfsfsGuessMIMETypeEnabled' - Enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, and otherwise to false. The default value is true. --+-- * 'unfsfsReadOnly' - Sets the write status of a file share. This value is true if the write status is read-only, and otherwise false.+-- -- * 'unfsfsFileShareARN' - The Amazon Resource Name (ARN) of the file share to be updated. updateNFSFileShare     :: Text -- ^ 'unfsfsFileShareARN'     -> UpdateNFSFileShare updateNFSFileShare pFileShareARN_ =   UpdateNFSFileShare'-  { _unfsfsKMSKey = Nothing-  , _unfsfsKMSEncrypted = Nothing-  , _unfsfsDefaultStorageClass = Nothing-  , _unfsfsSquash = Nothing-  , _unfsfsNFSFileShareDefaults = Nothing-  , _unfsfsClientList = Nothing-  , _unfsfsReadOnly = Nothing-  , _unfsfsFileShareARN = pFileShareARN_-  }+    { _unfsfsKMSKey = Nothing+    , _unfsfsObjectACL = Nothing+    , _unfsfsKMSEncrypted = Nothing+    , _unfsfsDefaultStorageClass = Nothing+    , _unfsfsSquash = Nothing+    , _unfsfsRequesterPays = Nothing+    , _unfsfsNFSFileShareDefaults = Nothing+    , _unfsfsClientList = Nothing+    , _unfsfsGuessMIMETypeEnabled = Nothing+    , _unfsfsReadOnly = Nothing+    , _unfsfsFileShareARN = pFileShareARN_+    }   -- | The KMS key used for Amazon S3 server side encryption. This value can only be set when KmsEncrypted is true. Optional. unfsfsKMSKey :: Lens' UpdateNFSFileShare (Maybe Text)-unfsfsKMSKey = lens _unfsfsKMSKey (\ s a -> s{_unfsfsKMSKey = a});+unfsfsKMSKey = lens _unfsfsKMSKey (\ s a -> s{_unfsfsKMSKey = a}) +-- | Sets the access control list permission for objects in the S3 bucket that a file gateway puts objects into. The default value is "private".+unfsfsObjectACL :: Lens' UpdateNFSFileShare (Maybe ObjectACL)+unfsfsObjectACL = lens _unfsfsObjectACL (\ s a -> s{_unfsfsObjectACL = a})+ -- | True to use Amazon S3 server side encryption with your own AWS KMS key, or false to use a key managed by Amazon S3. Optional. unfsfsKMSEncrypted :: Lens' UpdateNFSFileShare (Maybe Bool)-unfsfsKMSEncrypted = lens _unfsfsKMSEncrypted (\ s a -> s{_unfsfsKMSEncrypted = a});+unfsfsKMSEncrypted = lens _unfsfsKMSEncrypted (\ s a -> s{_unfsfsKMSEncrypted = a})  -- | The default storage class for objects put into an Amazon S3 bucket by a file gateway. Possible values are S3_STANDARD or S3_STANDARD_IA. If this field is not populated, the default value S3_STANDARD is used. Optional. unfsfsDefaultStorageClass :: Lens' UpdateNFSFileShare (Maybe Text)-unfsfsDefaultStorageClass = lens _unfsfsDefaultStorageClass (\ s a -> s{_unfsfsDefaultStorageClass = a});+unfsfsDefaultStorageClass = lens _unfsfsDefaultStorageClass (\ s a -> s{_unfsfsDefaultStorageClass = a})  -- | The user mapped to anonymous user. Valid options are the following:     * "RootSquash" - Only root is mapped to anonymous user.     * "NoSquash" - No one is mapped to anonymous user     * "AllSquash" - Everyone is mapped to anonymous user. unfsfsSquash :: Lens' UpdateNFSFileShare (Maybe Text)-unfsfsSquash = lens _unfsfsSquash (\ s a -> s{_unfsfsSquash = a});+unfsfsSquash = lens _unfsfsSquash (\ s a -> s{_unfsfsSquash = a}) +-- | Sets who pays the cost of the request and the data download from the Amazon S3 bucket. Set this value to true if you want the requester to pay instead of the bucket owner, and otherwise to false.+unfsfsRequesterPays :: Lens' UpdateNFSFileShare (Maybe Bool)+unfsfsRequesterPays = lens _unfsfsRequesterPays (\ s a -> s{_unfsfsRequesterPays = a})+ -- | The default values for the file share. Optional. unfsfsNFSFileShareDefaults :: Lens' UpdateNFSFileShare (Maybe NFSFileShareDefaults)-unfsfsNFSFileShareDefaults = lens _unfsfsNFSFileShareDefaults (\ s a -> s{_unfsfsNFSFileShareDefaults = a});+unfsfsNFSFileShareDefaults = lens _unfsfsNFSFileShareDefaults (\ s a -> s{_unfsfsNFSFileShareDefaults = a})  -- | The list of clients that are allowed to access the file gateway. The list must contain either valid IP addresses or valid CIDR blocks. unfsfsClientList :: Lens' UpdateNFSFileShare (Maybe (NonEmpty Text))-unfsfsClientList = lens _unfsfsClientList (\ s a -> s{_unfsfsClientList = a}) . mapping _List1;+unfsfsClientList = lens _unfsfsClientList (\ s a -> s{_unfsfsClientList = a}) . mapping _List1 --- | Sets the write status of a file share: "true" if the write status is read-only, otherwise "false".+-- | Enables guessing of the MIME type for uploaded objects based on file extensions. Set this value to true to enable MIME type guessing, and otherwise to false. The default value is true.+unfsfsGuessMIMETypeEnabled :: Lens' UpdateNFSFileShare (Maybe Bool)+unfsfsGuessMIMETypeEnabled = lens _unfsfsGuessMIMETypeEnabled (\ s a -> s{_unfsfsGuessMIMETypeEnabled = a})++-- | Sets the write status of a file share. This value is true if the write status is read-only, and otherwise false. unfsfsReadOnly :: Lens' UpdateNFSFileShare (Maybe Bool)-unfsfsReadOnly = lens _unfsfsReadOnly (\ s a -> s{_unfsfsReadOnly = a});+unfsfsReadOnly = lens _unfsfsReadOnly (\ s a -> s{_unfsfsReadOnly = a})  -- | The Amazon Resource Name (ARN) of the file share to be updated. unfsfsFileShareARN :: Lens' UpdateNFSFileShare Text-unfsfsFileShareARN = lens _unfsfsFileShareARN (\ s a -> s{_unfsfsFileShareARN = a});+unfsfsFileShareARN = lens _unfsfsFileShareARN (\ s a -> s{_unfsfsFileShareARN = a})  instance AWSRequest UpdateNFSFileShare where         type Rs UpdateNFSFileShare =@@ -178,13 +205,17 @@           = object               (catMaybes                  [("KMSKey" .=) <$> _unfsfsKMSKey,+                  ("ObjectACL" .=) <$> _unfsfsObjectACL,                   ("KMSEncrypted" .=) <$> _unfsfsKMSEncrypted,                   ("DefaultStorageClass" .=) <$>                     _unfsfsDefaultStorageClass,                   ("Squash" .=) <$> _unfsfsSquash,+                  ("RequesterPays" .=) <$> _unfsfsRequesterPays,                   ("NFSFileShareDefaults" .=) <$>                     _unfsfsNFSFileShareDefaults,                   ("ClientList" .=) <$> _unfsfsClientList,+                  ("GuessMIMETypeEnabled" .=) <$>+                    _unfsfsGuessMIMETypeEnabled,                   ("ReadOnly" .=) <$> _unfsfsReadOnly,                   Just ("FileShareARN" .= _unfsfsFileShareARN)]) @@ -217,15 +248,17 @@     -> UpdateNFSFileShareResponse updateNFSFileShareResponse pResponseStatus_ =   UpdateNFSFileShareResponse'-  {_unfsfsrsFileShareARN = Nothing, _unfsfsrsResponseStatus = pResponseStatus_}+    { _unfsfsrsFileShareARN = Nothing+    , _unfsfsrsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the updated file share. unfsfsrsFileShareARN :: Lens' UpdateNFSFileShareResponse (Maybe Text)-unfsfsrsFileShareARN = lens _unfsfsrsFileShareARN (\ s a -> s{_unfsfsrsFileShareARN = a});+unfsfsrsFileShareARN = lens _unfsfsrsFileShareARN (\ s a -> s{_unfsfsrsFileShareARN = a})  -- | -- | The response status code. unfsfsrsResponseStatus :: Lens' UpdateNFSFileShareResponse Int-unfsfsrsResponseStatus = lens _unfsfsrsResponseStatus (\ s a -> s{_unfsfsrsResponseStatus = a});+unfsfsrsResponseStatus = lens _unfsfsrsResponseStatus (\ s a -> s{_unfsfsrsResponseStatus = a})  instance NFData UpdateNFSFileShareResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateSnapshotSchedule--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates a snapshot schedule configured for a gateway volume. This operation is only supported in the cached volume and stored volume gateway architectures.+-- Updates a snapshot schedule configured for a gateway volume. This operation is only supported in the cached volume and stored volume gateway types. -- -- -- The default snapshot schedule for volume is once every 24 hours, starting at the creation time of the volume. You can use this API to change the snapshot schedule configured for the volume.@@ -92,28 +92,28 @@     -> UpdateSnapshotSchedule updateSnapshotSchedule pVolumeARN_ pStartAt_ pRecurrenceInHours_ =   UpdateSnapshotSchedule'-  { _ussDescription = Nothing-  , _ussVolumeARN = pVolumeARN_-  , _ussStartAt = _Nat # pStartAt_-  , _ussRecurrenceInHours = _Nat # pRecurrenceInHours_-  }+    { _ussDescription = Nothing+    , _ussVolumeARN = pVolumeARN_+    , _ussStartAt = _Nat # pStartAt_+    , _ussRecurrenceInHours = _Nat # pRecurrenceInHours_+    }   -- | Optional description of the snapshot that overwrites the existing description. ussDescription :: Lens' UpdateSnapshotSchedule (Maybe Text)-ussDescription = lens _ussDescription (\ s a -> s{_ussDescription = a});+ussDescription = lens _ussDescription (\ s a -> s{_ussDescription = a})  -- | The Amazon Resource Name (ARN) of the volume. Use the 'ListVolumes' operation to return a list of gateway volumes. ussVolumeARN :: Lens' UpdateSnapshotSchedule Text-ussVolumeARN = lens _ussVolumeARN (\ s a -> s{_ussVolumeARN = a});+ussVolumeARN = lens _ussVolumeARN (\ s a -> s{_ussVolumeARN = a})  -- | The hour of the day at which the snapshot schedule begins represented as /hh/ , where /hh/ is the hour (0 to 23). The hour of the day is in the time zone of the gateway. ussStartAt :: Lens' UpdateSnapshotSchedule Natural-ussStartAt = lens _ussStartAt (\ s a -> s{_ussStartAt = a}) . _Nat;+ussStartAt = lens _ussStartAt (\ s a -> s{_ussStartAt = a}) . _Nat  -- | Frequency of snapshots. Specify the number of hours between snapshots. ussRecurrenceInHours :: Lens' UpdateSnapshotSchedule Natural-ussRecurrenceInHours = lens _ussRecurrenceInHours (\ s a -> s{_ussRecurrenceInHours = a}) . _Nat;+ussRecurrenceInHours = lens _ussRecurrenceInHours (\ s a -> s{_ussRecurrenceInHours = a}) . _Nat  instance AWSRequest UpdateSnapshotSchedule where         type Rs UpdateSnapshotSchedule =@@ -177,15 +177,15 @@     -> UpdateSnapshotScheduleResponse updateSnapshotScheduleResponse pResponseStatus_ =   UpdateSnapshotScheduleResponse'-  {_ussrsVolumeARN = Nothing, _ussrsResponseStatus = pResponseStatus_}+    {_ussrsVolumeARN = Nothing, _ussrsResponseStatus = pResponseStatus_}   -- | ussrsVolumeARN :: Lens' UpdateSnapshotScheduleResponse (Maybe Text)-ussrsVolumeARN = lens _ussrsVolumeARN (\ s a -> s{_ussrsVolumeARN = a});+ussrsVolumeARN = lens _ussrsVolumeARN (\ s a -> s{_ussrsVolumeARN = a})  -- | -- | The response status code. ussrsResponseStatus :: Lens' UpdateSnapshotScheduleResponse Int-ussrsResponseStatus = lens _ussrsResponseStatus (\ s a -> s{_ussrsResponseStatus = a});+ussrsResponseStatus = lens _ussrsResponseStatus (\ s a -> s{_ussrsResponseStatus = a})  instance NFData UpdateSnapshotScheduleResponse where

@@ -12,13 +12,13 @@  -- | -- Module      : Network.AWS.StorageGateway.UpdateVTLDeviceType--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Updates the type of medium changer in a tape gateway. When you activate a tape gateway, you select a medium changer type for the tape gateway. This operation enables you to select a different type of medium changer after a tape gateway is activated. This operation is only supported in the tape gateway architecture.+-- Updates the type of medium changer in a tape gateway. When you activate a tape gateway, you select a medium changer type for the tape gateway. This operation enables you to select a different type of medium changer after a tape gateway is activated. This operation is only supported in the tape gateway type. -- -- module Network.AWS.StorageGateway.UpdateVTLDeviceType@@ -65,16 +65,16 @@     -> UpdateVTLDeviceType updateVTLDeviceType pVTLDeviceARN_ pDeviceType_ =   UpdateVTLDeviceType'-  {_uvtldtVTLDeviceARN = pVTLDeviceARN_, _uvtldtDeviceType = pDeviceType_}+    {_uvtldtVTLDeviceARN = pVTLDeviceARN_, _uvtldtDeviceType = pDeviceType_}   -- | The Amazon Resource Name (ARN) of the medium changer you want to select. uvtldtVTLDeviceARN :: Lens' UpdateVTLDeviceType Text-uvtldtVTLDeviceARN = lens _uvtldtVTLDeviceARN (\ s a -> s{_uvtldtVTLDeviceARN = a});+uvtldtVTLDeviceARN = lens _uvtldtVTLDeviceARN (\ s a -> s{_uvtldtVTLDeviceARN = a})  -- | The type of medium changer you want to select. Valid Values: "STK-L700", "AWS-Gateway-VTL" uvtldtDeviceType :: Lens' UpdateVTLDeviceType Text-uvtldtDeviceType = lens _uvtldtDeviceType (\ s a -> s{_uvtldtDeviceType = a});+uvtldtDeviceType = lens _uvtldtDeviceType (\ s a -> s{_uvtldtDeviceType = a})  instance AWSRequest UpdateVTLDeviceType where         type Rs UpdateVTLDeviceType =@@ -136,15 +136,17 @@     -> UpdateVTLDeviceTypeResponse updateVTLDeviceTypeResponse pResponseStatus_ =   UpdateVTLDeviceTypeResponse'-  {_uvtldtrsVTLDeviceARN = Nothing, _uvtldtrsResponseStatus = pResponseStatus_}+    { _uvtldtrsVTLDeviceARN = Nothing+    , _uvtldtrsResponseStatus = pResponseStatus_+    }   -- | The Amazon Resource Name (ARN) of the medium changer you have selected. uvtldtrsVTLDeviceARN :: Lens' UpdateVTLDeviceTypeResponse (Maybe Text)-uvtldtrsVTLDeviceARN = lens _uvtldtrsVTLDeviceARN (\ s a -> s{_uvtldtrsVTLDeviceARN = a});+uvtldtrsVTLDeviceARN = lens _uvtldtrsVTLDeviceARN (\ s a -> s{_uvtldtrsVTLDeviceARN = a})  -- | -- | The response status code. uvtldtrsResponseStatus :: Lens' UpdateVTLDeviceTypeResponse Int-uvtldtrsResponseStatus = lens _uvtldtrsResponseStatus (\ s a -> s{_uvtldtrsResponseStatus = a});+uvtldtrsResponseStatus = lens _uvtldtrsResponseStatus (\ s a -> s{_uvtldtrsResponseStatus = a})  instance NFData UpdateVTLDeviceTypeResponse where

@@ -7,7 +7,7 @@  -- | -- Module      : Network.AWS.StorageGateway.Waiters--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -2,7 +2,7 @@  -- | -- Module      : Main--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated

@@ -5,7 +5,7 @@  -- | -- Module      : Test.AWS.Gen.StorageGateway--- Copyright   : (c) 2013-2017 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- License     : Mozilla Public License, v. 2.0. -- Maintainer  : Brendan Hay <brendan.g.hay+amazonka@gmail.com> -- Stability   : auto-generated@@ -67,6 +67,9 @@ --         , requestListTagsForResource $ --             listTagsForResource --+--         , requestNotifyWhenUploaded $+--             notifyWhenUploaded+-- --         , requestUpdateGatewayInformation $ --             updateGatewayInformation --@@ -256,6 +259,9 @@ --         , responseListTagsForResource $ --             listTagsForResourceResponse --+--         , responseNotifyWhenUploaded $+--             notifyWhenUploadedResponse+-- --         , responseUpdateGatewayInformation $ --             updateGatewayInformationResponse --@@ -473,6 +479,11 @@     "ListTagsForResource"     "fixture/ListTagsForResource.yaml" +requestNotifyWhenUploaded :: NotifyWhenUploaded -> TestTree+requestNotifyWhenUploaded = req+    "NotifyWhenUploaded"+    "fixture/NotifyWhenUploaded.yaml"+ requestUpdateGatewayInformation :: UpdateGatewayInformation -> TestTree requestUpdateGatewayInformation = req     "UpdateGatewayInformation"@@ -810,6 +821,13 @@     "fixture/ListTagsForResourceResponse.proto"     storageGateway     (Proxy :: Proxy ListTagsForResource)++responseNotifyWhenUploaded :: NotifyWhenUploadedResponse -> TestTree+responseNotifyWhenUploaded = res+    "NotifyWhenUploadedResponse"+    "fixture/NotifyWhenUploadedResponse.proto"+    storageGateway+    (Proxy :: Proxy NotifyWhenUploaded)  responseUpdateGatewayInformation :: UpdateGatewayInformationResponse -> TestTree responseUpdateGatewayInformation = res

@@ -1,7 +1,7 @@ {-# LANGUAGE OverloadedStrings #-}  -- Module      : Test.AWS.StorageGateway--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- 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

@@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-}  -- Module      : Test.AWS.StorageGateway.Internal--- Copyright   : (c) 2013-2016 Brendan Hay+-- Copyright   : (c) 2013-2018 Brendan Hay -- 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