diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.4.0` +`1.4.1` ## Description @@ -38,8 +38,8 @@ operations, their request parameters, response elements, possible errors, and examples of requests and responses. - : - Provides a list of each of the regions and endpoints available for - use with AWS Storage Gateway. + Provides a list of each of the s and endpoints available for use + with AWS Storage Gateway. AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in diff --git a/amazonka-storagegateway.cabal b/amazonka-storagegateway.cabal --- a/amazonka-storagegateway.cabal +++ b/amazonka-storagegateway.cabal @@ -1,5 +1,5 @@ name: amazonka-storagegateway -version: 1.4.0 +version: 1.4.1 synopsis: Amazon Storage Gateway SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -38,8 +38,8 @@ operations, their request parameters, response elements, possible errors, and examples of requests and responses. - : - Provides a list of each of the regions and endpoints available for - use with AWS Storage Gateway. + Provides a list of each of the s and endpoints available for use + with AWS Storage Gateway. AWS Storage Gateway resource IDs are in uppercase. When you use these resource IDs with the Amazon EC2 API, EC2 expects resource IDs in @@ -119,6 +119,7 @@ , Network.AWS.StorageGateway.ResetCache , Network.AWS.StorageGateway.RetrieveTapeArchive , Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint + , Network.AWS.StorageGateway.SetLocalConsolePassword , Network.AWS.StorageGateway.ShutdownGateway , Network.AWS.StorageGateway.StartGateway , Network.AWS.StorageGateway.Types @@ -136,7 +137,7 @@ , Network.AWS.StorageGateway.Types.Sum build-depends: - amazonka-core == 1.4.0.* + amazonka-core == 1.4.1.* , base >= 4.7 && < 5 test-suite amazonka-storagegateway-test @@ -156,9 +157,9 @@ , Test.AWS.StorageGateway.Internal build-depends: - amazonka-core == 1.4.0.* - , amazonka-test == 1.4.0.* - , amazonka-storagegateway == 1.4.0.* + amazonka-core == 1.4.1.* + , amazonka-test == 1.4.1.* + , amazonka-storagegateway == 1.4.1.* , base , bytestring , tasty diff --git a/fixture/SetLocalConsolePassword.yaml b/fixture/SetLocalConsolePassword.yaml new file mode 100644 --- /dev/null +++ b/fixture/SetLocalConsolePassword.yaml diff --git a/fixture/SetLocalConsolePasswordResponse.proto b/fixture/SetLocalConsolePasswordResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/SetLocalConsolePasswordResponse.proto diff --git a/gen/Network/AWS/StorageGateway.hs b/gen/Network/AWS/StorageGateway.hs --- a/gen/Network/AWS/StorageGateway.hs +++ b/gen/Network/AWS/StorageGateway.hs @@ -36,8 +36,8 @@ -- operations, their request parameters, response elements, possible -- errors, and examples of requests and responses. -- - : --- Provides a list of each of the regions and endpoints available for --- use with AWS Storage Gateway. +-- Provides a list of each of the s and endpoints available for use +-- with AWS Storage Gateway. -- -- AWS Storage Gateway resource IDs are in uppercase. When you use these -- resource IDs with the Amazon EC2 API, EC2 expects resource IDs in @@ -74,6 +74,9 @@ -- ** DescribeChapCredentials , module Network.AWS.StorageGateway.DescribeChapCredentials + -- ** SetLocalConsolePassword + , module Network.AWS.StorageGateway.SetLocalConsolePassword + -- ** CreateTapes , module Network.AWS.StorageGateway.CreateTapes @@ -409,6 +412,7 @@ import Network.AWS.StorageGateway.ResetCache import Network.AWS.StorageGateway.RetrieveTapeArchive import Network.AWS.StorageGateway.RetrieveTapeRecoveryPoint +import Network.AWS.StorageGateway.SetLocalConsolePassword import Network.AWS.StorageGateway.ShutdownGateway import Network.AWS.StorageGateway.StartGateway import Network.AWS.StorageGateway.Types diff --git a/gen/Network/AWS/StorageGateway/ActivateGateway.hs b/gen/Network/AWS/StorageGateway/ActivateGateway.hs --- a/gen/Network/AWS/StorageGateway/ActivateGateway.hs +++ b/gen/Network/AWS/StorageGateway/ActivateGateway.hs @@ -18,15 +18,14 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation activates the gateway you previously deployed on your --- host. For more information, see +-- Activates the gateway you previously deployed on your host. For more +-- information, see -- . --- In the activation process, you specify information such as the region --- you want to use for storing snapshots, the time zone for scheduled --- snapshots the gateway snapshot schedule window, an activation key, and a --- name for your gateway. The activation process also associates your --- gateway with your account; for more information, see --- < UpdateGatewayInformation>. +-- In the activation process, you specify information such as the you want +-- to use for storing snapshots, the time zone for scheduled snapshots the +-- gateway snapshot schedule window, an activation key, and a name for your +-- gateway. The activation process also associates your gateway with your +-- account; for more information, see < UpdateGatewayInformation>. -- -- You must turn on the gateway VM before you can activate your gateway. module Network.AWS.StorageGateway.ActivateGateway @@ -178,6 +177,8 @@ instance Hashable ActivateGateway +instance NFData ActivateGateway + instance ToHeaders ActivateGateway where toHeaders = const @@ -211,7 +212,7 @@ -- account, gateway name, and region. This ARN is used to reference the -- gateway in other API operations as well as resource-based authorization. -- --- For Gateways activated prior to September 02, 2015 the gateway ARN +-- For gateways activated prior to September 02, 2015 the gateway ARN -- contains the gateway name rather than the gateway id. Changing the name -- of the gateway has no effect on the gateway ARN. -- @@ -244,3 +245,5 @@ -- | The response status code. agrsResponseStatus :: Lens' ActivateGatewayResponse Int agrsResponseStatus = lens _agrsResponseStatus (\ s a -> s{_agrsResponseStatus = a}); + +instance NFData ActivateGatewayResponse diff --git a/gen/Network/AWS/StorageGateway/AddCache.hs b/gen/Network/AWS/StorageGateway/AddCache.hs --- a/gen/Network/AWS/StorageGateway/AddCache.hs +++ b/gen/Network/AWS/StorageGateway/AddCache.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation configures one or more gateway local disks as cache for a --- cached-volume gateway. This operation is supported only for the --- gateway-cached volume architecture (see +-- Configures one or more gateway local disks as cache for a cached-volume +-- gateway. This operation is supported only for the gateway-cached volume +-- architecture (see -- ). -- -- In the request, you specify the gateway Amazon Resource Name (ARN) to @@ -91,6 +91,8 @@ instance Hashable AddCache +instance NFData AddCache + instance ToHeaders AddCache where toHeaders = const @@ -142,3 +144,5 @@ -- | The response status code. acrsResponseStatus :: Lens' AddCacheResponse Int acrsResponseStatus = lens _acrsResponseStatus (\ s a -> s{_acrsResponseStatus = a}); + +instance NFData AddCacheResponse diff --git a/gen/Network/AWS/StorageGateway/AddTagsToResource.hs b/gen/Network/AWS/StorageGateway/AddTagsToResource.hs --- a/gen/Network/AWS/StorageGateway/AddTagsToResource.hs +++ b/gen/Network/AWS/StorageGateway/AddTagsToResource.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation adds one or more tags to the specified resource. You use --- tags to add metadata to resources, which you can use to categorize these --- resources. For example, you can categorize resources by purpose, owner, +-- Adds one or more tags to the specified resource. You use tags to add +-- metadata to resources, which you can use to categorize these resources. +-- For example, you can categorize resources by purpose, owner, -- environment, or team. Each tag consists of a key and a value, which you -- define. You can add tags to the following AWS Storage Gateway resources: -- @@ -104,6 +104,8 @@ instance Hashable AddTagsToResource +instance NFData AddTagsToResource + instance ToHeaders AddTagsToResource where toHeaders = const @@ -158,3 +160,5 @@ -- | The response status code. attrrsResponseStatus :: Lens' AddTagsToResourceResponse Int attrrsResponseStatus = lens _attrrsResponseStatus (\ s a -> s{_attrrsResponseStatus = a}); + +instance NFData AddTagsToResourceResponse diff --git a/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs b/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs --- a/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs +++ b/gen/Network/AWS/StorageGateway/AddUploadBuffer.hs @@ -18,8 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation configures one or more gateway local disks as upload --- buffer for a specified gateway. This operation is supported for both the +-- Configures one or more gateway local disks as upload buffer for a +-- specified gateway. This operation is supported for both the -- gateway-stored and gateway-cached volume architectures. -- -- In the request, you specify the gateway Amazon Resource Name (ARN) to @@ -90,6 +90,8 @@ instance Hashable AddUploadBuffer +instance NFData AddUploadBuffer + instance ToHeaders AddUploadBuffer where toHeaders = const @@ -142,3 +144,5 @@ -- | The response status code. aubrsResponseStatus :: Lens' AddUploadBufferResponse Int aubrsResponseStatus = lens _aubrsResponseStatus (\ s a -> s{_aubrsResponseStatus = a}); + +instance NFData AddUploadBufferResponse diff --git a/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs b/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs --- a/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs +++ b/gen/Network/AWS/StorageGateway/AddWorkingStorage.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation configures one or more gateway local disks as working --- storage for a gateway. This operation is supported only for the --- gateway-stored volume architecture. This operation is deprecated method --- in cached-volumes API version (20120630). Use AddUploadBuffer instead. +-- Configures one or more gateway local disks as working storage for a +-- gateway. This operation is supported only for the gateway-stored volume +-- architecture. This operation is deprecated in cached-volumes API version +-- 20120630. Use < AddUploadBuffer> instead. -- -- Working storage is also referred to as upload buffer. You can also use -- the < AddUploadBuffer> operation to add upload buffer to a stored-volume @@ -101,6 +101,8 @@ instance Hashable AddWorkingStorage +instance NFData AddWorkingStorage + instance ToHeaders AddWorkingStorage where toHeaders = const @@ -156,3 +158,5 @@ -- | The response status code. awsrsResponseStatus :: Lens' AddWorkingStorageResponse Int awsrsResponseStatus = lens _awsrsResponseStatus (\ s a -> s{_awsrsResponseStatus = a}); + +instance NFData AddWorkingStorageResponse diff --git a/gen/Network/AWS/StorageGateway/CancelArchival.hs b/gen/Network/AWS/StorageGateway/CancelArchival.hs --- a/gen/Network/AWS/StorageGateway/CancelArchival.hs +++ b/gen/Network/AWS/StorageGateway/CancelArchival.hs @@ -89,6 +89,8 @@ instance Hashable CancelArchival +instance NFData CancelArchival + instance ToHeaders CancelArchival where toHeaders = const @@ -144,3 +146,5 @@ -- | The response status code. carsResponseStatus :: Lens' CancelArchivalResponse Int carsResponseStatus = lens _carsResponseStatus (\ s a -> s{_carsResponseStatus = a}); + +instance NFData CancelArchivalResponse diff --git a/gen/Network/AWS/StorageGateway/CancelRetrieval.hs b/gen/Network/AWS/StorageGateway/CancelRetrieval.hs --- a/gen/Network/AWS/StorageGateway/CancelRetrieval.hs +++ b/gen/Network/AWS/StorageGateway/CancelRetrieval.hs @@ -90,6 +90,8 @@ instance Hashable CancelRetrieval +instance NFData CancelRetrieval + instance ToHeaders CancelRetrieval where toHeaders = const @@ -145,3 +147,5 @@ -- | The response status code. crrsResponseStatus :: Lens' CancelRetrievalResponse Int crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a}); + +instance NFData CancelRetrievalResponse diff --git a/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs b/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs --- a/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs +++ b/gen/Network/AWS/StorageGateway/CreateCachediSCSIVolume.hs @@ -18,9 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation creates a cached volume on a specified cached gateway. --- This operation is supported only for the gateway-cached volume --- architecture. +-- Creates a cached volume on a specified cached gateway. This operation is +-- supported only for the gateway-cached volume architecture. -- -- Cache storage must be allocated to the gateway before you can create a -- cached volume. Use the < AddCache> operation to add cache storage to a @@ -140,6 +139,8 @@ instance Hashable CreateCachediSCSIVolume +instance NFData CreateCachediSCSIVolume + instance ToHeaders CreateCachediSCSIVolume where toHeaders = const @@ -206,3 +207,5 @@ -- | The response status code. ccscsivrsResponseStatus :: Lens' CreateCachediSCSIVolumeResponse Int ccscsivrsResponseStatus = lens _ccscsivrsResponseStatus (\ s a -> s{_ccscsivrsResponseStatus = a}); + +instance NFData CreateCachediSCSIVolumeResponse diff --git a/gen/Network/AWS/StorageGateway/CreateSnapshot.hs b/gen/Network/AWS/StorageGateway/CreateSnapshot.hs --- a/gen/Network/AWS/StorageGateway/CreateSnapshot.hs +++ b/gen/Network/AWS/StorageGateway/CreateSnapshot.hs @@ -18,7 +18,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation initiates a snapshot of a volume. +-- Initiates a snapshot of a volume. -- -- AWS Storage Gateway provides the ability to back up point-in-time -- snapshots of your data to Amazon Simple Storage (S3) for durable @@ -116,6 +116,8 @@ instance Hashable CreateSnapshot +instance NFData CreateSnapshot + instance ToHeaders CreateSnapshot where toHeaders = const @@ -183,3 +185,5 @@ -- | The response status code. csrsResponseStatus :: Lens' CreateSnapshotResponse Int csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); + +instance NFData CreateSnapshotResponse diff --git a/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs b/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs --- a/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs +++ b/gen/Network/AWS/StorageGateway/CreateSnapshotFromVolumeRecoveryPoint.hs @@ -18,9 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation initiates a snapshot of a gateway from a volume recovery --- point. This operation is supported only for the gateway-cached volume --- architecture (see ). +-- Initiates a snapshot of a gateway from a volume recovery point. This +-- operation is supported only for the gateway-cached volume architecture. -- -- A volume recovery point is a point in time at which all data of the -- volume is consistent and from which you can create a snapshot. To get a @@ -112,6 +111,8 @@ instance Hashable CreateSnapshotFromVolumeRecoveryPoint +instance NFData CreateSnapshotFromVolumeRecoveryPoint + instance ToHeaders CreateSnapshotFromVolumeRecoveryPoint where toHeaders @@ -186,3 +187,6 @@ -- | The response status code. csfvrprsResponseStatus :: Lens' CreateSnapshotFromVolumeRecoveryPointResponse Int csfvrprsResponseStatus = lens _csfvrprsResponseStatus (\ s a -> s{_csfvrprsResponseStatus = a}); + +instance NFData + CreateSnapshotFromVolumeRecoveryPointResponse diff --git a/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs b/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs --- a/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs +++ b/gen/Network/AWS/StorageGateway/CreateStorediSCSIVolume.hs @@ -18,8 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation creates a volume on a specified gateway. This operation --- is supported only for the gateway-stored volume architecture. +-- Creates a volume on a specified gateway. This operation is supported +-- only for the gateway-stored volume architecture. -- -- The size of the volume to create is inferred from the disk size. You can -- choose to preserve existing data on the disk, create volume from an @@ -169,6 +169,8 @@ instance Hashable CreateStorediSCSIVolume +instance NFData CreateStorediSCSIVolume + instance ToHeaders CreateStorediSCSIVolume where toHeaders = const @@ -248,3 +250,5 @@ -- | The response status code. csscsivrsResponseStatus :: Lens' CreateStorediSCSIVolumeResponse Int csscsivrsResponseStatus = lens _csscsivrsResponseStatus (\ s a -> s{_csscsivrsResponseStatus = a}); + +instance NFData CreateStorediSCSIVolumeResponse diff --git a/gen/Network/AWS/StorageGateway/CreateTapeWithBarcode.hs b/gen/Network/AWS/StorageGateway/CreateTapeWithBarcode.hs --- a/gen/Network/AWS/StorageGateway/CreateTapeWithBarcode.hs +++ b/gen/Network/AWS/StorageGateway/CreateTapeWithBarcode.hs @@ -107,6 +107,8 @@ instance Hashable CreateTapeWithBarcode +instance NFData CreateTapeWithBarcode + instance ToHeaders CreateTapeWithBarcode where toHeaders = const @@ -163,3 +165,5 @@ -- | The response status code. ctwbrsResponseStatus :: Lens' CreateTapeWithBarcodeResponse Int ctwbrsResponseStatus = lens _ctwbrsResponseStatus (\ s a -> s{_ctwbrsResponseStatus = a}); + +instance NFData CreateTapeWithBarcodeResponse diff --git a/gen/Network/AWS/StorageGateway/CreateTapes.hs b/gen/Network/AWS/StorageGateway/CreateTapes.hs --- a/gen/Network/AWS/StorageGateway/CreateTapes.hs +++ b/gen/Network/AWS/StorageGateway/CreateTapes.hs @@ -135,6 +135,8 @@ instance Hashable CreateTapes +instance NFData CreateTapes + instance ToHeaders CreateTapes where toHeaders = const @@ -193,3 +195,5 @@ -- | The response status code. ctrsResponseStatus :: Lens' CreateTapesResponse Int ctrsResponseStatus = lens _ctrsResponseStatus (\ s a -> s{_ctrsResponseStatus = a}); + +instance NFData CreateTapesResponse diff --git a/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs b/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs --- a/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs +++ b/gen/Network/AWS/StorageGateway/DeleteBandwidthRateLimit.hs @@ -18,11 +18,11 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation deletes the bandwidth rate limits of a gateway. You can --- delete either the upload and download bandwidth rate limit, or you can --- delete both. If you delete only one of the limits, the other limit --- remains unchanged. To specify which gateway to work with, use the Amazon --- Resource Name (ARN) of the gateway in your request. +-- Deletes the bandwidth rate limits of a gateway. You can delete either +-- the upload and download bandwidth rate limit, or you can delete both. If +-- you delete only one of the limits, the other limit remains unchanged. To +-- specify which gateway to work with, use the Amazon Resource Name (ARN) +-- of the gateway in your request. module Network.AWS.StorageGateway.DeleteBandwidthRateLimit ( -- * Creating a Request @@ -90,6 +90,8 @@ instance Hashable DeleteBandwidthRateLimit +instance NFData DeleteBandwidthRateLimit + instance ToHeaders DeleteBandwidthRateLimit where toHeaders = const @@ -145,3 +147,5 @@ -- | The response status code. delrsResponseStatus :: Lens' DeleteBandwidthRateLimitResponse Int delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); + +instance NFData DeleteBandwidthRateLimitResponse diff --git a/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs b/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs --- a/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs +++ b/gen/Network/AWS/StorageGateway/DeleteChapCredentials.hs @@ -18,8 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation deletes Challenge-Handshake Authentication Protocol --- (CHAP) credentials for a specified iSCSI target and initiator pair. +-- Deletes Challenge-Handshake Authentication Protocol (CHAP) credentials +-- for a specified iSCSI target and initiator pair. module Network.AWS.StorageGateway.DeleteChapCredentials ( -- * Creating a Request @@ -96,6 +96,8 @@ instance Hashable DeleteChapCredentials +instance NFData DeleteChapCredentials + instance ToHeaders DeleteChapCredentials where toHeaders = const @@ -158,3 +160,5 @@ -- | The response status code. drsResponseStatus :: Lens' DeleteChapCredentialsResponse Int drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); + +instance NFData DeleteChapCredentialsResponse diff --git a/gen/Network/AWS/StorageGateway/DeleteGateway.hs b/gen/Network/AWS/StorageGateway/DeleteGateway.hs --- a/gen/Network/AWS/StorageGateway/DeleteGateway.hs +++ b/gen/Network/AWS/StorageGateway/DeleteGateway.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation deletes a gateway. To specify which gateway to delete, --- use the Amazon Resource Name (ARN) of the gateway in your request. The --- operation deletes the gateway; however, it does not delete the gateway --- virtual machine (VM) from your host computer. +-- Deletes a gateway. To specify which gateway to delete, use the Amazon +-- Resource Name (ARN) of the gateway in your request. The operation +-- deletes the gateway; however, it does not delete the gateway virtual +-- machine (VM) from your host computer. -- -- After you delete a gateway, you cannot reactivate it. Completed -- snapshots of the gateway volumes are not deleted upon deleting the @@ -94,6 +94,8 @@ instance Hashable DeleteGateway +instance NFData DeleteGateway + instance ToHeaders DeleteGateway where toHeaders = const @@ -146,3 +148,5 @@ -- | The response status code. dgrsResponseStatus :: Lens' DeleteGatewayResponse Int dgrsResponseStatus = lens _dgrsResponseStatus (\ s a -> s{_dgrsResponseStatus = a}); + +instance NFData DeleteGatewayResponse diff --git a/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs b/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs --- a/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs +++ b/gen/Network/AWS/StorageGateway/DeleteSnapshotSchedule.hs @@ -18,11 +18,11 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation deletes a snapshot of a volume. +-- Deletes a snapshot of a volume. -- --- You can take snapshots of your gateway volumes on a scheduled or ad-hoc --- basis. This API enables you to delete a snapshot schedule for a volume. --- For more information, see +-- 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 -- . -- In the 'DeleteSnapshotSchedule' request, you identify the volume by -- providing its Amazon Resource Name (ARN). @@ -86,6 +86,8 @@ instance Hashable DeleteSnapshotSchedule +instance NFData DeleteSnapshotSchedule + instance ToHeaders DeleteSnapshotSchedule where toHeaders = const @@ -136,3 +138,5 @@ -- | The response status code. dsssrsResponseStatus :: Lens' DeleteSnapshotScheduleResponse Int dsssrsResponseStatus = lens _dsssrsResponseStatus (\ s a -> s{_dsssrsResponseStatus = a}); + +instance NFData DeleteSnapshotScheduleResponse diff --git a/gen/Network/AWS/StorageGateway/DeleteTape.hs b/gen/Network/AWS/StorageGateway/DeleteTape.hs --- a/gen/Network/AWS/StorageGateway/DeleteTape.hs +++ b/gen/Network/AWS/StorageGateway/DeleteTape.hs @@ -89,6 +89,8 @@ instance Hashable DeleteTape +instance NFData DeleteTape + instance ToHeaders DeleteTape where toHeaders = const @@ -142,3 +144,5 @@ -- | The response status code. dtrsResponseStatus :: Lens' DeleteTapeResponse Int dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); + +instance NFData DeleteTapeResponse diff --git a/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs b/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs --- a/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs +++ b/gen/Network/AWS/StorageGateway/DeleteTapeArchive.hs @@ -78,6 +78,8 @@ instance Hashable DeleteTapeArchive +instance NFData DeleteTapeArchive + instance ToHeaders DeleteTapeArchive where toHeaders = const @@ -131,3 +133,5 @@ -- | The response status code. dtatrsResponseStatus :: Lens' DeleteTapeArchiveResponse Int dtatrsResponseStatus = lens _dtatrsResponseStatus (\ s a -> s{_dtatrsResponseStatus = a}); + +instance NFData DeleteTapeArchiveResponse diff --git a/gen/Network/AWS/StorageGateway/DeleteVolume.hs b/gen/Network/AWS/StorageGateway/DeleteVolume.hs --- a/gen/Network/AWS/StorageGateway/DeleteVolume.hs +++ b/gen/Network/AWS/StorageGateway/DeleteVolume.hs @@ -18,11 +18,11 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation deletes the specified gateway volume that you previously --- created using the < CreateCachediSCSIVolume> or --- < CreateStorediSCSIVolume> API. For gateway-stored volumes, the local --- disk that was configured as the storage volume is not deleted. You can --- reuse the local disk to create another storage volume. +-- Deletes the specified gateway volume that you previously created using +-- the < CreateCachediSCSIVolume> or < CreateStorediSCSIVolume> API. For +-- gateway-stored volumes, the local disk that was configured as the +-- storage volume is not deleted. You can reuse the local disk to create +-- another storage volume. -- -- Before you delete a gateway volume, make sure there are no iSCSI -- connections to the volume you are deleting. You should also make sure @@ -93,6 +93,8 @@ instance Hashable DeleteVolume +instance NFData DeleteVolume + instance ToHeaders DeleteVolume where toHeaders = const @@ -146,3 +148,5 @@ -- | The response status code. dvrsResponseStatus :: Lens' DeleteVolumeResponse Int dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a}); + +instance NFData DeleteVolumeResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs b/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs --- a/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs +++ b/gen/Network/AWS/StorageGateway/DescribeBandwidthRateLimit.hs @@ -18,9 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns the bandwidth rate limits of a gateway. By --- default, these limits are not set, which means no bandwidth rate --- limiting is in effect. +-- Returns the bandwidth rate limits of a gateway. By default, these limits +-- are not set, which means no bandwidth rate limiting is in effect. -- -- This operation only returns a value for a bandwidth rate limit only if -- the limit is set. If no limits are set for the gateway, then this @@ -91,6 +90,8 @@ instance Hashable DescribeBandwidthRateLimit +instance NFData DescribeBandwidthRateLimit + instance ToHeaders DescribeBandwidthRateLimit where toHeaders = const @@ -161,3 +162,5 @@ -- | The response status code. dbrlrsResponseStatus :: Lens' DescribeBandwidthRateLimitResponse Int dbrlrsResponseStatus = lens _dbrlrsResponseStatus (\ s a -> s{_dbrlrsResponseStatus = a}); + +instance NFData DescribeBandwidthRateLimitResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeCache.hs b/gen/Network/AWS/StorageGateway/DescribeCache.hs --- a/gen/Network/AWS/StorageGateway/DescribeCache.hs +++ b/gen/Network/AWS/StorageGateway/DescribeCache.hs @@ -18,8 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns information about the cache of a gateway. This --- operation is supported only for the gateway-cached volume architecture. +-- Returns information about the cache of a gateway. This operation is +-- supported only for the gateway-cached volume architecture. -- -- The response includes disk IDs that are configured as cache, and it -- includes the amount of cache allocated and used. @@ -91,6 +91,8 @@ instance Hashable DescribeCache +instance NFData DescribeCache + instance ToHeaders DescribeCache where toHeaders = const @@ -189,3 +191,5 @@ -- | The response status code. dcrsResponseStatus :: Lens' DescribeCacheResponse Int dcrsResponseStatus = lens _dcrsResponseStatus (\ s a -> s{_dcrsResponseStatus = a}); + +instance NFData DescribeCacheResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs b/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs --- a/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs +++ b/gen/Network/AWS/StorageGateway/DescribeCachediSCSIVolumes.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns a description of the gateway volumes specified in --- the request. This operation is supported only for the gateway-cached --- volume architecture. +-- Returns a description of the gateway volumes specified in the request. +-- This operation is supported only for the gateway-cached volume +-- architecture. -- -- The list of gateway volumes in the request must be from one gateway. In -- the response Amazon Storage Gateway returns volume information sorted by @@ -82,6 +82,8 @@ instance Hashable DescribeCachediSCSIVolumes +instance NFData DescribeCachediSCSIVolumes + instance ToHeaders DescribeCachediSCSIVolumes where toHeaders = const @@ -136,3 +138,5 @@ -- | The response status code. dcscsivrsResponseStatus :: Lens' DescribeCachediSCSIVolumesResponse Int dcscsivrsResponseStatus = lens _dcscsivrsResponseStatus (\ s a -> s{_dcscsivrsResponseStatus = a}); + +instance NFData DescribeCachediSCSIVolumesResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs b/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs --- a/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs +++ b/gen/Network/AWS/StorageGateway/DescribeChapCredentials.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns an array of Challenge-Handshake Authentication --- Protocol (CHAP) credentials information for a specified iSCSI target, --- one for each target-initiator pair. +-- Returns an array of Challenge-Handshake Authentication Protocol (CHAP) +-- credentials information for a specified iSCSI target, one for each +-- target-initiator pair. module Network.AWS.StorageGateway.DescribeChapCredentials ( -- * Creating a Request @@ -84,6 +84,8 @@ instance Hashable DescribeChapCredentials +instance NFData DescribeChapCredentials + instance ToHeaders DescribeChapCredentials where toHeaders = const @@ -153,3 +155,5 @@ -- | The response status code. dccrsResponseStatus :: Lens' DescribeChapCredentialsResponse Int dccrsResponseStatus = lens _dccrsResponseStatus (\ s a -> s{_dccrsResponseStatus = a}); + +instance NFData DescribeChapCredentialsResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs b/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs --- a/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs +++ b/gen/Network/AWS/StorageGateway/DescribeGatewayInformation.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns metadata about a gateway such as its name, --- network interfaces, configured time zone, and the state (whether the --- gateway is running or not). To specify which gateway to describe, use --- the Amazon Resource Name (ARN) of the gateway in your request. +-- Returns metadata about a gateway such as its name, network interfaces, +-- configured time zone, and the state (whether the gateway is running or +-- not). To specify which gateway to describe, use the Amazon Resource Name +-- (ARN) of the gateway in your request. module Network.AWS.StorageGateway.DescribeGatewayInformation ( -- * Creating a Request @@ -97,6 +97,8 @@ instance Hashable DescribeGatewayInformation +instance NFData DescribeGatewayInformation + instance ToHeaders DescribeGatewayInformation where toHeaders = const @@ -220,3 +222,5 @@ -- | The response status code. dgirsResponseStatus :: Lens' DescribeGatewayInformationResponse Int dgirsResponseStatus = lens _dgirsResponseStatus (\ s a -> s{_dgirsResponseStatus = a}); + +instance NFData DescribeGatewayInformationResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs b/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs --- a/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs +++ b/gen/Network/AWS/StorageGateway/DescribeMaintenanceStartTime.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns your gateway\'s weekly maintenance start time --- including the day and time of the week. Note that values are in terms of --- the gateway\'s time zone. +-- Returns your gateway\'s weekly maintenance start time including the day +-- and time of the week. Note that values are in terms of the gateway\'s +-- time zone. module Network.AWS.StorageGateway.DescribeMaintenanceStartTime ( -- * Creating a Request @@ -89,6 +89,8 @@ instance Hashable DescribeMaintenanceStartTime +instance NFData DescribeMaintenanceStartTime + instance ToHeaders DescribeMaintenanceStartTime where toHeaders = const @@ -171,3 +173,5 @@ -- | The response status code. dmstrsResponseStatus :: Lens' DescribeMaintenanceStartTimeResponse Int dmstrsResponseStatus = lens _dmstrsResponseStatus (\ s a -> s{_dmstrsResponseStatus = a}); + +instance NFData DescribeMaintenanceStartTimeResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs b/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs --- a/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs +++ b/gen/Network/AWS/StorageGateway/DescribeSnapshotSchedule.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation describes the snapshot schedule for the specified gateway --- volume. The snapshot schedule information includes intervals at which --- snapshots are automatically initiated on the volume. +-- Describes the snapshot schedule for the specified gateway volume. The +-- snapshot schedule information includes intervals at which snapshots are +-- automatically initiated on the volume. module Network.AWS.StorageGateway.DescribeSnapshotSchedule ( -- * Creating a Request @@ -90,6 +90,8 @@ instance Hashable DescribeSnapshotSchedule +instance NFData DescribeSnapshotSchedule + instance ToHeaders DescribeSnapshotSchedule where toHeaders = const @@ -172,3 +174,5 @@ -- | The response status code. dssrsResponseStatus :: Lens' DescribeSnapshotScheduleResponse Int dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); + +instance NFData DescribeSnapshotScheduleResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs b/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs --- a/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs +++ b/gen/Network/AWS/StorageGateway/DescribeStorediSCSIVolumes.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns the description of the gateway volumes specified --- in the request. The list of gateway volumes in the request must be from --- one gateway. In the response Amazon Storage Gateway returns volume --- information sorted by volume ARNs. +-- Returns the description of the gateway volumes specified in the request. +-- The list of gateway volumes in the request must be from one gateway. In +-- the response Amazon Storage Gateway returns volume information sorted by +-- volume ARNs. module Network.AWS.StorageGateway.DescribeStorediSCSIVolumes ( -- * Creating a Request @@ -45,7 +45,7 @@ import Network.AWS.StorageGateway.Types import Network.AWS.StorageGateway.Types.Product --- | A JSON Object containing a list of +-- | A JSON object containing a list of -- < DescribeStorediSCSIVolumesInput$VolumeARNs>. -- -- /See:/ 'describeStorediSCSIVolumes' smart constructor. @@ -85,6 +85,8 @@ instance Hashable DescribeStorediSCSIVolumes +instance NFData DescribeStorediSCSIVolumes + instance ToHeaders DescribeStorediSCSIVolumes where toHeaders = const @@ -136,3 +138,5 @@ -- | The response status code. dsscsivrsResponseStatus :: Lens' DescribeStorediSCSIVolumesResponse Int dsscsivrsResponseStatus = lens _dsscsivrsResponseStatus (\ s a -> s{_dsscsivrsResponseStatus = a}); + +instance NFData DescribeStorediSCSIVolumesResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs b/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs --- a/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs +++ b/gen/Network/AWS/StorageGateway/DescribeTapeArchives.hs @@ -116,6 +116,8 @@ instance Hashable DescribeTapeArchives +instance NFData DescribeTapeArchives + instance ToHeaders DescribeTapeArchives where toHeaders = const @@ -187,3 +189,5 @@ -- | The response status code. dtarsResponseStatus :: Lens' DescribeTapeArchivesResponse Int dtarsResponseStatus = lens _dtarsResponseStatus (\ s a -> s{_dtarsResponseStatus = a}); + +instance NFData DescribeTapeArchivesResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs b/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs --- a/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs +++ b/gen/Network/AWS/StorageGateway/DescribeTapeRecoveryPoints.hs @@ -21,7 +21,7 @@ -- Returns a list of virtual tape recovery points that are available for -- the specified gateway-VTL. -- --- A recovery point is a point in time view of a virtual tape at which all +-- 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. @@ -119,6 +119,8 @@ instance Hashable DescribeTapeRecoveryPoints +instance NFData DescribeTapeRecoveryPoints + instance ToHeaders DescribeTapeRecoveryPoints where toHeaders = const @@ -196,3 +198,5 @@ -- | The response status code. dtrprsResponseStatus :: Lens' DescribeTapeRecoveryPointsResponse Int dtrprsResponseStatus = lens _dtrprsResponseStatus (\ s a -> s{_dtrprsResponseStatus = a}); + +instance NFData DescribeTapeRecoveryPointsResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeTapes.hs b/gen/Network/AWS/StorageGateway/DescribeTapes.hs --- a/gen/Network/AWS/StorageGateway/DescribeTapes.hs +++ b/gen/Network/AWS/StorageGateway/DescribeTapes.hs @@ -127,6 +127,8 @@ instance Hashable DescribeTapes +instance NFData DescribeTapes + instance ToHeaders DescribeTapes where toHeaders = const @@ -195,3 +197,5 @@ -- | The response status code. dtsrsResponseStatus :: Lens' DescribeTapesResponse Int dtsrsResponseStatus = lens _dtsrsResponseStatus (\ s a -> s{_dtsrsResponseStatus = a}); + +instance NFData DescribeTapesResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs b/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs --- a/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs +++ b/gen/Network/AWS/StorageGateway/DescribeUploadBuffer.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns information about the upload buffer of a gateway. --- This operation is supported for both the gateway-stored and --- gateway-cached volume architectures. +-- Returns information about the upload buffer of a gateway. This operation +-- is supported for both the gateway-stored and gateway-cached volume +-- architectures. -- -- The response includes disk IDs that are configured as upload buffer -- space, and it includes the amount of upload buffer space allocated and @@ -89,6 +89,8 @@ instance Hashable DescribeUploadBuffer +instance NFData DescribeUploadBuffer + instance ToHeaders DescribeUploadBuffer where toHeaders = const @@ -163,3 +165,5 @@ -- | The response status code. dubrsResponseStatus :: Lens' DescribeUploadBufferResponse Int dubrsResponseStatus = lens _dubrsResponseStatus (\ s a -> s{_dubrsResponseStatus = a}); + +instance NFData DescribeUploadBufferResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs b/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs --- a/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs +++ b/gen/Network/AWS/StorageGateway/DescribeVTLDevices.hs @@ -131,6 +131,8 @@ instance Hashable DescribeVTLDevices +instance NFData DescribeVTLDevices + instance ToHeaders DescribeVTLDevices where toHeaders = const @@ -208,3 +210,5 @@ -- | The response status code. dvtldrsResponseStatus :: Lens' DescribeVTLDevicesResponse Int dvtldrsResponseStatus = lens _dvtldrsResponseStatus (\ s a -> s{_dvtldrsResponseStatus = a}); + +instance NFData DescribeVTLDevicesResponse diff --git a/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs b/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs --- a/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs +++ b/gen/Network/AWS/StorageGateway/DescribeWorkingStorage.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns information about the working storage of a --- gateway. This operation is supported only for the gateway-stored volume --- architecture. This operation is deprecated in cached-volumes API version --- (20120630). Use DescribeUploadBuffer instead. +-- Returns information about the working storage of a gateway. This +-- operation is supported only for the gateway-stored volume architecture. +-- This operation is deprecated in cached-volumes API version (20120630). +-- Use DescribeUploadBuffer instead. -- -- Working storage is also referred to as upload buffer. You can also use -- the DescribeUploadBuffer operation to add upload buffer to a @@ -94,6 +94,8 @@ instance Hashable DescribeWorkingStorage +instance NFData DescribeWorkingStorage + instance ToHeaders DescribeWorkingStorage where toHeaders = const @@ -175,3 +177,5 @@ -- | The response status code. dwsrsResponseStatus :: Lens' DescribeWorkingStorageResponse Int dwsrsResponseStatus = lens _dwsrsResponseStatus (\ s a -> s{_dwsrsResponseStatus = a}); + +instance NFData DescribeWorkingStorageResponse diff --git a/gen/Network/AWS/StorageGateway/DisableGateway.hs b/gen/Network/AWS/StorageGateway/DisableGateway.hs --- a/gen/Network/AWS/StorageGateway/DisableGateway.hs +++ b/gen/Network/AWS/StorageGateway/DisableGateway.hs @@ -84,6 +84,8 @@ instance Hashable DisableGateway +instance NFData DisableGateway + instance ToHeaders DisableGateway where toHeaders = const @@ -136,3 +138,5 @@ -- | The response status code. disrsResponseStatus :: Lens' DisableGatewayResponse Int disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a}); + +instance NFData DisableGatewayResponse diff --git a/gen/Network/AWS/StorageGateway/ListGateways.hs b/gen/Network/AWS/StorageGateway/ListGateways.hs --- a/gen/Network/AWS/StorageGateway/ListGateways.hs +++ b/gen/Network/AWS/StorageGateway/ListGateways.hs @@ -18,16 +18,16 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation lists gateways owned by an AWS account in a region --- specified in the request. The returned list is ordered by gateway Amazon --- Resource Name (ARN). +-- Lists gateways owned by an AWS account in a region specified in the +-- request. The returned list is ordered by gateway Amazon Resource Name +-- (ARN). -- -- By default, the operation returns a maximum of 100 gateways. This -- operation supports pagination that allows you to optionally reduce the -- number of gateways returned in a response. -- --- If you have more gateways than are returned in a response-that is, the --- response returns only a truncated list of your gateways-the response +-- If you have more gateways than are returned in a response (that is, the +-- response returns only a truncated list of your gateways), the response -- contains a marker that you can specify in your next request to fetch the -- next page of gateways. -- @@ -113,6 +113,8 @@ instance Hashable ListGateways +instance NFData ListGateways + instance ToHeaders ListGateways where toHeaders = const @@ -173,3 +175,5 @@ -- | The response status code. lgrsResponseStatus :: Lens' ListGatewaysResponse Int lgrsResponseStatus = lens _lgrsResponseStatus (\ s a -> s{_lgrsResponseStatus = a}); + +instance NFData ListGatewaysResponse diff --git a/gen/Network/AWS/StorageGateway/ListLocalDisks.hs b/gen/Network/AWS/StorageGateway/ListLocalDisks.hs --- a/gen/Network/AWS/StorageGateway/ListLocalDisks.hs +++ b/gen/Network/AWS/StorageGateway/ListLocalDisks.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation returns a list of the gateway\'s local disks. To specify --- which gateway to describe, you use the Amazon Resource Name (ARN) of the --- gateway in the body of the request. +-- Returns a list of the gateway\'s local disks. To specify which gateway +-- to describe, you use the Amazon Resource Name (ARN) of the gateway in +-- the body of the request. -- -- The request returns a list of all disks, specifying which are configured -- as working storage, cache storage, or stored volume or not configured at @@ -88,6 +88,8 @@ instance Hashable ListLocalDisks +instance NFData ListLocalDisks + instance ToHeaders ListLocalDisks where toHeaders = const @@ -146,3 +148,5 @@ -- | The response status code. lldrsResponseStatus :: Lens' ListLocalDisksResponse Int lldrsResponseStatus = lens _lldrsResponseStatus (\ s a -> s{_lldrsResponseStatus = a}); + +instance NFData ListLocalDisksResponse diff --git a/gen/Network/AWS/StorageGateway/ListTagsForResource.hs b/gen/Network/AWS/StorageGateway/ListTagsForResource.hs --- a/gen/Network/AWS/StorageGateway/ListTagsForResource.hs +++ b/gen/Network/AWS/StorageGateway/ListTagsForResource.hs @@ -18,8 +18,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation lists the tags that have been added to the specified --- resource. +-- Lists the tags that have been added to the specified resource. module Network.AWS.StorageGateway.ListTagsForResource ( -- * Creating a Request @@ -104,6 +103,8 @@ instance Hashable ListTagsForResource +instance NFData ListTagsForResource + instance ToHeaders ListTagsForResource where toHeaders = const @@ -177,3 +178,5 @@ -- | The response status code. ltfrrsResponseStatus :: Lens' ListTagsForResourceResponse Int ltfrrsResponseStatus = lens _ltfrrsResponseStatus (\ s a -> s{_ltfrrsResponseStatus = a}); + +instance NFData ListTagsForResourceResponse diff --git a/gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs b/gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs --- a/gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs +++ b/gen/Network/AWS/StorageGateway/ListVolumeInitiators.hs @@ -18,9 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation lists iSCSI initiators that are connected to a volume. --- You can use this operation to determine whether a volume is being used --- or not. +-- Lists iSCSI initiators that are connected to a volume. You can use this +-- operation to determine whether a volume is being used or not. module Network.AWS.StorageGateway.ListVolumeInitiators ( -- * Creating a Request @@ -82,6 +81,8 @@ instance Hashable ListVolumeInitiators +instance NFData ListVolumeInitiators + instance ToHeaders ListVolumeInitiators where toHeaders = const @@ -135,3 +136,5 @@ -- | The response status code. lvirsResponseStatus :: Lens' ListVolumeInitiatorsResponse Int lvirsResponseStatus = lens _lvirsResponseStatus (\ s a -> s{_lvirsResponseStatus = a}); + +instance NFData ListVolumeInitiatorsResponse diff --git a/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs b/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs --- a/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs +++ b/gen/Network/AWS/StorageGateway/ListVolumeRecoveryPoints.hs @@ -18,8 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation lists the recovery points for a specified gateway. This --- operation is supported only for the gateway-cached volume architecture. +-- Lists the recovery points for a specified gateway. This operation is +-- supported only for the gateway-cached volume architecture. -- -- Each gateway-cached volume has one recovery point. A volume recovery -- point is a point in time at which all data of the volume is consistent @@ -86,6 +86,8 @@ instance Hashable ListVolumeRecoveryPoints +instance NFData ListVolumeRecoveryPoints + instance ToHeaders ListVolumeRecoveryPoints where toHeaders = const @@ -144,3 +146,5 @@ -- | The response status code. lvrprsResponseStatus :: Lens' ListVolumeRecoveryPointsResponse Int lvrprsResponseStatus = lens _lvrprsResponseStatus (\ s a -> s{_lvrprsResponseStatus = a}); + +instance NFData ListVolumeRecoveryPointsResponse diff --git a/gen/Network/AWS/StorageGateway/ListVolumes.hs b/gen/Network/AWS/StorageGateway/ListVolumes.hs --- a/gen/Network/AWS/StorageGateway/ListVolumes.hs +++ b/gen/Network/AWS/StorageGateway/ListVolumes.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation lists the iSCSI stored volumes of a gateway. Results are --- sorted by volume ARN. The response includes only the volume ARNs. If you --- want additional volume information, use the --- < DescribeStorediSCSIVolumes> API. +-- Lists the iSCSI stored volumes of a gateway. Results are sorted by +-- volume ARN. The response includes only the volume ARNs. If you want +-- additional volume information, use the < DescribeStorediSCSIVolumes> +-- API. -- -- The operation supports pagination. By default, the operation returns a -- maximum of up to 100 volumes. You can optionally specify the 'Limit' @@ -125,6 +125,8 @@ instance Hashable ListVolumes +instance NFData ListVolumes + instance ToHeaders ListVolumes where toHeaders = const @@ -194,3 +196,5 @@ -- | The response status code. lvrsResponseStatus :: Lens' ListVolumesResponse Int lvrsResponseStatus = lens _lvrsResponseStatus (\ s a -> s{_lvrsResponseStatus = a}); + +instance NFData ListVolumesResponse diff --git a/gen/Network/AWS/StorageGateway/RemoveTagsFromResource.hs b/gen/Network/AWS/StorageGateway/RemoveTagsFromResource.hs --- a/gen/Network/AWS/StorageGateway/RemoveTagsFromResource.hs +++ b/gen/Network/AWS/StorageGateway/RemoveTagsFromResource.hs @@ -18,7 +18,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation removes one or more tags from the specified resource. +-- Removes one or more tags from the specified resource. module Network.AWS.StorageGateway.RemoveTagsFromResource ( -- * Creating a Request @@ -89,6 +89,8 @@ instance Hashable RemoveTagsFromResource +instance NFData RemoveTagsFromResource + instance ToHeaders RemoveTagsFromResource where toHeaders = const @@ -144,3 +146,5 @@ -- | The response status code. rtfrrsResponseStatus :: Lens' RemoveTagsFromResourceResponse Int rtfrrsResponseStatus = lens _rtfrrsResponseStatus (\ s a -> s{_rtfrrsResponseStatus = a}); + +instance NFData RemoveTagsFromResourceResponse diff --git a/gen/Network/AWS/StorageGateway/ResetCache.hs b/gen/Network/AWS/StorageGateway/ResetCache.hs --- a/gen/Network/AWS/StorageGateway/ResetCache.hs +++ b/gen/Network/AWS/StorageGateway/ResetCache.hs @@ -18,13 +18,13 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation resets all cache disks that have encountered a error and --- makes the disks available for reconfiguration as cache storage. If your --- cache disk encounters a error, the gateway prevents read and write --- operations on virtual tapes in the gateway. For example, an error can --- occur when a disk is corrupted or removed from the gateway. When a cache --- is reset, the gateway loses its cache storage. At this point you can --- reconfigure the disks as cache disks. +-- Resets all cache disks that have encountered a error and makes the disks +-- available for reconfiguration as cache storage. If your cache disk +-- encounters a error, the gateway prevents read and write operations on +-- virtual tapes in the gateway. For example, an error can occur when a +-- disk is corrupted or removed from the gateway. When a cache is reset, +-- the gateway loses its cache storage. At this point you can reconfigure +-- the disks as cache disks. -- -- 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 @@ -87,6 +87,8 @@ instance Hashable ResetCache +instance NFData ResetCache + instance ToHeaders ResetCache where toHeaders = const @@ -136,3 +138,5 @@ -- | The response status code. rcrsResponseStatus :: Lens' ResetCacheResponse Int rcrsResponseStatus = lens _rcrsResponseStatus (\ s a -> s{_rcrsResponseStatus = a}); + +instance NFData ResetCacheResponse diff --git a/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs b/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs --- a/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs +++ b/gen/Network/AWS/StorageGateway/RetrieveTapeArchive.hs @@ -101,6 +101,8 @@ instance Hashable RetrieveTapeArchive +instance NFData RetrieveTapeArchive + instance ToHeaders RetrieveTapeArchive where toHeaders = const @@ -155,3 +157,5 @@ -- | The response status code. rtarsResponseStatus :: Lens' RetrieveTapeArchiveResponse Int rtarsResponseStatus = lens _rtarsResponseStatus (\ s a -> s{_rtarsResponseStatus = a}); + +instance NFData RetrieveTapeArchiveResponse diff --git a/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs b/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs --- a/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs +++ b/gen/Network/AWS/StorageGateway/RetrieveTapeRecoveryPoint.hs @@ -97,6 +97,8 @@ instance Hashable RetrieveTapeRecoveryPoint +instance NFData RetrieveTapeRecoveryPoint + instance ToHeaders RetrieveTapeRecoveryPoint where toHeaders = const @@ -152,3 +154,5 @@ -- | The response status code. rtrprsResponseStatus :: Lens' RetrieveTapeRecoveryPointResponse Int rtrprsResponseStatus = lens _rtrprsResponseStatus (\ s a -> s{_rtrprsResponseStatus = a}); + +instance NFData RetrieveTapeRecoveryPointResponse diff --git a/gen/Network/AWS/StorageGateway/SetLocalConsolePassword.hs b/gen/Network/AWS/StorageGateway/SetLocalConsolePassword.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/StorageGateway/SetLocalConsolePassword.hs @@ -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.SetLocalConsolePassword +-- Copyright : (c) 2013-2016 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Sets the password for your VM local console. When you log in to the +-- local console for the first time, you log in to the VM with the default +-- credentials. We recommend that you set a new password. You don\'t need +-- to know the default password to set a new password. +module Network.AWS.StorageGateway.SetLocalConsolePassword + ( + -- * Creating a Request + setLocalConsolePassword + , SetLocalConsolePassword + -- * Request Lenses + , slcpGatewayARN + , slcpLocalConsolePassword + + -- * Destructuring the Response + , setLocalConsolePasswordResponse + , SetLocalConsolePasswordResponse + -- * Response Lenses + , slcprsGatewayARN + , slcprsResponseStatus + ) where + +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response +import Network.AWS.StorageGateway.Types +import Network.AWS.StorageGateway.Types.Product + +-- | SetLocalConsolePasswordInput +-- +-- /See:/ 'setLocalConsolePassword' smart constructor. +data SetLocalConsolePassword = SetLocalConsolePassword' + { _slcpGatewayARN :: !Text + , _slcpLocalConsolePassword :: !(Sensitive Text) + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'SetLocalConsolePassword' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'slcpGatewayARN' +-- +-- * 'slcpLocalConsolePassword' +setLocalConsolePassword + :: Text -- ^ 'slcpGatewayARN' + -> Text -- ^ 'slcpLocalConsolePassword' + -> SetLocalConsolePassword +setLocalConsolePassword pGatewayARN_ pLocalConsolePassword_ = + SetLocalConsolePassword' + { _slcpGatewayARN = pGatewayARN_ + , _slcpLocalConsolePassword = _Sensitive # pLocalConsolePassword_ + } + +-- | Undocumented member. +slcpGatewayARN :: Lens' SetLocalConsolePassword Text +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; + +instance AWSRequest SetLocalConsolePassword where + type Rs SetLocalConsolePassword = + SetLocalConsolePasswordResponse + request = postJSON storageGateway + response + = receiveJSON + (\ s h x -> + SetLocalConsolePasswordResponse' <$> + (x .?> "GatewayARN") <*> (pure (fromEnum s))) + +instance Hashable SetLocalConsolePassword + +instance NFData SetLocalConsolePassword + +instance ToHeaders SetLocalConsolePassword where + toHeaders + = const + (mconcat + ["X-Amz-Target" =# + ("StorageGateway_20130630.SetLocalConsolePassword" :: + ByteString), + "Content-Type" =# + ("application/x-amz-json-1.1" :: ByteString)]) + +instance ToJSON SetLocalConsolePassword where + toJSON SetLocalConsolePassword'{..} + = object + (catMaybes + [Just ("GatewayARN" .= _slcpGatewayARN), + Just + ("LocalConsolePassword" .= + _slcpLocalConsolePassword)]) + +instance ToPath SetLocalConsolePassword where + toPath = const "/" + +instance ToQuery SetLocalConsolePassword where + toQuery = const mempty + +-- | /See:/ 'setLocalConsolePasswordResponse' smart constructor. +data SetLocalConsolePasswordResponse = SetLocalConsolePasswordResponse' + { _slcprsGatewayARN :: !(Maybe Text) + , _slcprsResponseStatus :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'SetLocalConsolePasswordResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'slcprsGatewayARN' +-- +-- * 'slcprsResponseStatus' +setLocalConsolePasswordResponse + :: Int -- ^ 'slcprsResponseStatus' + -> SetLocalConsolePasswordResponse +setLocalConsolePasswordResponse pResponseStatus_ = + SetLocalConsolePasswordResponse' + { _slcprsGatewayARN = Nothing + , _slcprsResponseStatus = pResponseStatus_ + } + +-- | Undocumented member. +slcprsGatewayARN :: Lens' SetLocalConsolePasswordResponse (Maybe Text) +slcprsGatewayARN = lens _slcprsGatewayARN (\ s a -> s{_slcprsGatewayARN = a}); + +-- | The response status code. +slcprsResponseStatus :: Lens' SetLocalConsolePasswordResponse Int +slcprsResponseStatus = lens _slcprsResponseStatus (\ s a -> s{_slcprsResponseStatus = a}); + +instance NFData SetLocalConsolePasswordResponse diff --git a/gen/Network/AWS/StorageGateway/ShutdownGateway.hs b/gen/Network/AWS/StorageGateway/ShutdownGateway.hs --- a/gen/Network/AWS/StorageGateway/ShutdownGateway.hs +++ b/gen/Network/AWS/StorageGateway/ShutdownGateway.hs @@ -18,9 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation shuts down a gateway. To specify which gateway to shut --- down, use the Amazon Resource Name (ARN) of the gateway in the body of --- your request. +-- Shuts down a gateway. To specify which gateway to shut down, use the +-- Amazon Resource Name (ARN) of the gateway in the body of your request. -- -- The operation shuts down the gateway service component running in the -- storage gateway\'s virtual machine (VM) and not the VM. @@ -100,6 +99,8 @@ instance Hashable ShutdownGateway +instance NFData ShutdownGateway + instance ToHeaders ShutdownGateway where toHeaders = const @@ -152,3 +153,5 @@ -- | The response status code. srsResponseStatus :: Lens' ShutdownGatewayResponse Int srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); + +instance NFData ShutdownGatewayResponse diff --git a/gen/Network/AWS/StorageGateway/StartGateway.hs b/gen/Network/AWS/StorageGateway/StartGateway.hs --- a/gen/Network/AWS/StorageGateway/StartGateway.hs +++ b/gen/Network/AWS/StorageGateway/StartGateway.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation starts a gateway that you previously shut down (see --- < ShutdownGateway>). After the gateway starts, you can then make other --- API calls, your applications can read from or write to the gateway\'s --- storage volumes and you will be able to take snapshot backups. +-- Starts a gateway that you previously shut down (see < ShutdownGateway>). +-- After the gateway starts, you can then make other API calls, your +-- applications can read from or write to the gateway\'s storage volumes +-- and you will be able to take snapshot backups. -- -- When you make a request, you will get a 200 OK success response -- immediately. However, it might take some time for the gateway to be @@ -89,6 +89,8 @@ instance Hashable StartGateway +instance NFData StartGateway + instance ToHeaders StartGateway where toHeaders = const @@ -141,3 +143,5 @@ -- | The response status code. sgrsResponseStatus :: Lens' StartGatewayResponse Int sgrsResponseStatus = lens _sgrsResponseStatus (\ s a -> s{_sgrsResponseStatus = a}); + +instance NFData StartGatewayResponse diff --git a/gen/Network/AWS/StorageGateway/Types.hs b/gen/Network/AWS/StorageGateway/Types.hs --- a/gen/Network/AWS/StorageGateway/Types.hs +++ b/gen/Network/AWS/StorageGateway/Types.hs @@ -187,6 +187,8 @@ | has (hasCode "ThrottlingException" . hasStatus 400) e = Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" + | has (hasStatus 504) e = Just "gateway_timeout" + | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error" | has (hasStatus 509) e = Just "limit_exceeded" diff --git a/gen/Network/AWS/StorageGateway/Types/Product.hs b/gen/Network/AWS/StorageGateway/Types/Product.hs --- a/gen/Network/AWS/StorageGateway/Types/Product.hs +++ b/gen/Network/AWS/StorageGateway/Types/Product.hs @@ -114,6 +114,8 @@ instance Hashable CachediSCSIVolume +instance NFData CachediSCSIVolume + -- | Describes Challenge-Handshake Authentication Protocol (CHAP) information -- that supports authentication between your gateway and iSCSI initiators. -- @@ -179,6 +181,8 @@ instance Hashable ChapInfo +instance NFData ChapInfo + -- | Lists iSCSI information about a VTL device. -- -- /See:/ 'deviceiSCSIAttributes' smart constructor. @@ -238,6 +242,8 @@ instance Hashable DeviceiSCSIAttributes +instance NFData DeviceiSCSIAttributes + -- | /See:/ 'disk' smart constructor. data Disk = Disk' { _dDiskAllocationResource :: !(Maybe Text) @@ -322,6 +328,8 @@ instance Hashable Disk +instance NFData Disk + -- | /See:/ 'gatewayInfo' smart constructor. data GatewayInfo = GatewayInfo' { _giGatewayARN :: !(Maybe Text) @@ -379,6 +387,8 @@ instance Hashable GatewayInfo +instance NFData GatewayInfo + -- | Describes a gateway\'s network interface. -- -- /See:/ 'networkInterface' smart constructor. @@ -431,6 +441,8 @@ instance Hashable NetworkInterface +instance NFData NetworkInterface + -- | /See:/ 'storediSCSIVolume' smart constructor. data StorediSCSIVolume = StorediSCSIVolume' { _sscsivVolumeiSCSIAttributes :: !(Maybe VolumeiSCSIAttributes) @@ -542,6 +554,8 @@ instance Hashable StorediSCSIVolume +instance NFData StorediSCSIVolume + -- | /See:/ 'tag' smart constructor. data Tag = Tag' { _tagKey :: !Text @@ -580,6 +594,8 @@ instance Hashable Tag +instance NFData Tag + instance ToJSON Tag where toJSON Tag'{..} = object @@ -667,6 +683,8 @@ instance Hashable Tape +instance NFData Tape + -- | Represents a virtual tape that is archived in the virtual tape shelf -- (VTS). -- @@ -750,6 +768,8 @@ instance Hashable TapeArchive +instance NFData TapeArchive + -- | Describes a recovery point. -- -- /See:/ 'tapeRecoveryPointInfo' smart constructor. @@ -813,6 +833,8 @@ instance Hashable TapeRecoveryPointInfo +instance NFData TapeRecoveryPointInfo + -- | Represents a device object associated with a gateway-VTL. -- -- /See:/ 'vTLDevice' smart constructor. @@ -882,6 +904,8 @@ instance Hashable VTLDevice +instance NFData VTLDevice + -- | /See:/ 'volumeInfo' smart constructor. data VolumeInfo = VolumeInfo' { _viVolumeARN :: !(Maybe Text) @@ -920,6 +944,8 @@ instance Hashable VolumeInfo +instance NFData VolumeInfo + -- | /See:/ 'volumeRecoveryPointInfo' smart constructor. data VolumeRecoveryPointInfo = VolumeRecoveryPointInfo' { _vrpiVolumeRecoveryPointTime :: !(Maybe Text) @@ -977,6 +1003,8 @@ instance Hashable VolumeRecoveryPointInfo +instance NFData VolumeRecoveryPointInfo + -- | Lists iSCSI information about a volume. -- -- /See:/ 'volumeiSCSIAttributes' smart constructor. @@ -1043,3 +1071,5 @@ <*> (x .:? "NetworkInterfacePort")) instance Hashable VolumeiSCSIAttributes + +instance NFData VolumeiSCSIAttributes diff --git a/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs b/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs --- a/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs +++ b/gen/Network/AWS/StorageGateway/UpdateBandwidthRateLimit.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation updates the bandwidth rate limits of a gateway. You can --- update both the upload and download bandwidth rate limit or specify only --- one of the two. If you don\'t set a bandwidth rate limit, the existing --- rate limit remains. +-- Updates the bandwidth rate limits of a gateway. You can update both the +-- upload and download bandwidth rate limit or specify only one of the two. +-- If you don\'t set a bandwidth rate limit, the existing rate limit +-- remains. -- -- By default, a gateway\'s bandwidth rate limits are not set. If you -- don\'t set any limit, the gateway does not have any limitations on its @@ -110,6 +110,8 @@ instance Hashable UpdateBandwidthRateLimit +instance NFData UpdateBandwidthRateLimit + instance ToHeaders UpdateBandwidthRateLimit where toHeaders = const @@ -168,3 +170,5 @@ -- | The response status code. ubrlrsResponseStatus :: Lens' UpdateBandwidthRateLimitResponse Int ubrlrsResponseStatus = lens _ubrlrsResponseStatus (\ s a -> s{_ubrlrsResponseStatus = a}); + +instance NFData UpdateBandwidthRateLimitResponse diff --git a/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs b/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs --- a/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs +++ b/gen/Network/AWS/StorageGateway/UpdateChapCredentials.hs @@ -18,10 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation updates the Challenge-Handshake Authentication Protocol --- (CHAP) credentials for a specified iSCSI target. By default, a gateway --- does not have CHAP enabled; however, for added security, you might use --- it. +-- Updates the Challenge-Handshake Authentication Protocol (CHAP) +-- credentials for a specified iSCSI target. By default, a gateway does not +-- have CHAP enabled; however, for added security, you might use it. -- -- When you update CHAP credentials, all existing connections on the target -- are closed and initiators must reconnect with the new credentials. @@ -130,6 +129,8 @@ instance Hashable UpdateChapCredentials +instance NFData UpdateChapCredentials + instance ToHeaders UpdateChapCredentials where toHeaders = const @@ -199,3 +200,5 @@ -- | The response status code. uccrsResponseStatus :: Lens' UpdateChapCredentialsResponse Int uccrsResponseStatus = lens _uccrsResponseStatus (\ s a -> s{_uccrsResponseStatus = a}); + +instance NFData UpdateChapCredentialsResponse diff --git a/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs b/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs --- a/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs +++ b/gen/Network/AWS/StorageGateway/UpdateGatewayInformation.hs @@ -18,12 +18,12 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation updates a gateway\'s metadata, which includes the --- gateway\'s name and time zone. To specify which gateway to update, use --- the Amazon Resource Name (ARN) of the gateway in your request. +-- Updates a gateway\'s metadata, which includes the gateway\'s name and +-- time zone. To specify which gateway to update, use the Amazon Resource +-- Name (ARN) of the gateway in your request. -- --- For Gateways activated after September 02, 2015, the gateway\'s ARN --- contains the gateway id rather than the gateway name. However changing +-- For Gateways activated after September 2, 2015, the gateway\'s ARN +-- contains the gateway ID rather than the gateway name. However, changing -- the name of the gateway has no effect on the gateway\'s ARN. module Network.AWS.StorageGateway.UpdateGatewayInformation ( @@ -102,6 +102,8 @@ instance Hashable UpdateGatewayInformation +instance NFData UpdateGatewayInformation + instance ToHeaders UpdateGatewayInformation where toHeaders = const @@ -165,3 +167,5 @@ -- | The response status code. ugirsResponseStatus :: Lens' UpdateGatewayInformationResponse Int ugirsResponseStatus = lens _ugirsResponseStatus (\ s a -> s{_ugirsResponseStatus = a}); + +instance NFData UpdateGatewayInformationResponse diff --git a/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs b/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs --- a/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs +++ b/gen/Network/AWS/StorageGateway/UpdateGatewaySoftwareNow.hs @@ -18,8 +18,8 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation updates the gateway virtual machine (VM) software. The --- request immediately triggers the software update. +-- Updates the gateway virtual machine (VM) software. The request +-- immediately triggers the software update. -- -- When you make this request, you get a '200 OK' success response -- immediately. However, it might take some time for the update to @@ -93,6 +93,8 @@ instance Hashable UpdateGatewaySoftwareNow +instance NFData UpdateGatewaySoftwareNow + instance ToHeaders UpdateGatewaySoftwareNow where toHeaders = const @@ -145,3 +147,5 @@ -- | The response status code. ugsnrsResponseStatus :: Lens' UpdateGatewaySoftwareNowResponse Int ugsnrsResponseStatus = lens _ugsnrsResponseStatus (\ s a -> s{_ugsnrsResponseStatus = a}); + +instance NFData UpdateGatewaySoftwareNowResponse diff --git a/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs b/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs --- a/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs +++ b/gen/Network/AWS/StorageGateway/UpdateMaintenanceStartTime.hs @@ -18,9 +18,9 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation updates a gateway\'s weekly maintenance start time --- information, including day and time of the week. The maintenance time is --- the time in your gateway\'s time zone. +-- Updates a gateway\'s weekly maintenance start time information, +-- including day and time of the week. The maintenance time is the time in +-- your gateway\'s time zone. module Network.AWS.StorageGateway.UpdateMaintenanceStartTime ( -- * Creating a Request @@ -118,6 +118,8 @@ instance Hashable UpdateMaintenanceStartTime +instance NFData UpdateMaintenanceStartTime + instance ToHeaders UpdateMaintenanceStartTime where toHeaders = const @@ -175,3 +177,5 @@ -- | The response status code. umstrsResponseStatus :: Lens' UpdateMaintenanceStartTimeResponse Int umstrsResponseStatus = lens _umstrsResponseStatus (\ s a -> s{_umstrsResponseStatus = a}); + +instance NFData UpdateMaintenanceStartTimeResponse diff --git a/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs b/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs --- a/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs +++ b/gen/Network/AWS/StorageGateway/UpdateSnapshotSchedule.hs @@ -18,8 +18,7 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation updates a snapshot schedule configured for a gateway --- volume. +-- Updates a snapshot schedule configured for a gateway volume. -- -- 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 @@ -126,6 +125,8 @@ instance Hashable UpdateSnapshotSchedule +instance NFData UpdateSnapshotSchedule + instance ToHeaders UpdateSnapshotSchedule where toHeaders = const @@ -182,3 +183,5 @@ -- | The response status code. ussrsResponseStatus :: Lens' UpdateSnapshotScheduleResponse Int ussrsResponseStatus = lens _ussrsResponseStatus (\ s a -> s{_ussrsResponseStatus = a}); + +instance NFData UpdateSnapshotScheduleResponse diff --git a/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs b/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs --- a/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs +++ b/gen/Network/AWS/StorageGateway/UpdateVTLDeviceType.hs @@ -18,10 +18,10 @@ -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- This operation updates the type of medium changer in a gateway-VTL. When --- you activate a gateway-VTL, you select a medium changer type for the --- gateway-VTL. This operation enables you to select a different type of --- medium changer after a gateway-VTL is activated. +-- Updates the type of medium changer in a gateway-VTL. When you activate a +-- gateway-VTL, you select a medium changer type for the gateway-VTL. This +-- operation enables you to select a different type of medium changer after +-- a gateway-VTL is activated. module Network.AWS.StorageGateway.UpdateVTLDeviceType ( -- * Creating a Request @@ -46,9 +46,7 @@ import Network.AWS.StorageGateway.Types import Network.AWS.StorageGateway.Types.Product --- | UpdateVTLDeviceTypeInput --- --- /See:/ 'updateVTLDeviceType' smart constructor. +-- | /See:/ 'updateVTLDeviceType' smart constructor. data UpdateVTLDeviceType = UpdateVTLDeviceType' { _uvtldtVTLDeviceARN :: !Text , _uvtldtDeviceType :: !Text @@ -93,6 +91,8 @@ instance Hashable UpdateVTLDeviceType +instance NFData UpdateVTLDeviceType + instance ToHeaders UpdateVTLDeviceType where toHeaders = const @@ -147,3 +147,5 @@ -- | The response status code. uvtldtrsResponseStatus :: Lens' UpdateVTLDeviceTypeResponse Int uvtldtrsResponseStatus = lens _uvtldtrsResponseStatus (\ s a -> s{_uvtldtrsResponseStatus = a}); + +instance NFData UpdateVTLDeviceTypeResponse diff --git a/test/Test/AWS/Gen/StorageGateway.hs b/test/Test/AWS/Gen/StorageGateway.hs --- a/test/Test/AWS/Gen/StorageGateway.hs +++ b/test/Test/AWS/Gen/StorageGateway.hs @@ -37,6 +37,9 @@ -- , testDescribeChapCredentials $ -- describeChapCredentials -- +-- , testSetLocalConsolePassword $ +-- setLocalConsolePassword +-- -- , testCreateTapes $ -- createTapes -- @@ -202,6 +205,9 @@ -- , testDescribeChapCredentialsResponse $ -- describeChapCredentialsResponse -- +-- , testSetLocalConsolePasswordResponse $ +-- setLocalConsolePasswordResponse +-- -- , testCreateTapesResponse $ -- createTapesResponse -- @@ -375,6 +381,11 @@ "DescribeChapCredentials" "fixture/DescribeChapCredentials.yaml" +testSetLocalConsolePassword :: SetLocalConsolePassword -> TestTree +testSetLocalConsolePassword = req + "SetLocalConsolePassword" + "fixture/SetLocalConsolePassword.yaml" + testCreateTapes :: CreateTapes -> TestTree testCreateTapes = req "CreateTapes" @@ -652,6 +663,13 @@ "fixture/DescribeChapCredentialsResponse.proto" storageGateway (Proxy :: Proxy DescribeChapCredentials) + +testSetLocalConsolePasswordResponse :: SetLocalConsolePasswordResponse -> TestTree +testSetLocalConsolePasswordResponse = res + "SetLocalConsolePasswordResponse" + "fixture/SetLocalConsolePasswordResponse.proto" + storageGateway + (Proxy :: Proxy SetLocalConsolePassword) testCreateTapesResponse :: CreateTapesResponse -> TestTree testCreateTapesResponse = res