amazonka-ec2 1.2.0.2 → 1.3.0

raw patch · 137 files changed

+16156/−16049 lines, 137 filesdep ~amazonka-coredep ~amazonka-ec2dep ~amazonka-testPVP ok

version bump matches the API change (PVP)

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ec2.cabal +5/−5
• gen/Network/AWS/EC2.hs +341/−336
• gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs +8/−8
• gen/Network/AWS/EC2/AllocateAddress.hs +11/−11
• gen/Network/AWS/EC2/AssociateAddress.hs +9/−9
• gen/Network/AWS/EC2/AssociateRouteTable.hs +9/−9
• gen/Network/AWS/EC2/AttachClassicLinkVPC.hs +9/−9
• gen/Network/AWS/EC2/AttachNetworkInterface.hs +9/−9
• gen/Network/AWS/EC2/AttachVPNGateway.hs +9/−9
• gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs +10/−10
• gen/Network/AWS/EC2/BundleInstance.hs +9/−9
• gen/Network/AWS/EC2/CancelBundleTask.hs +9/−9
• gen/Network/AWS/EC2/CancelImportTask.hs +11/−11
• gen/Network/AWS/EC2/CancelReservedInstancesListing.hs +8/−8
• gen/Network/AWS/EC2/CancelSpotFleetRequests.hs +8/−8
• gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs +8/−8
• gen/Network/AWS/EC2/ConfirmProductInstance.hs +10/−10
• gen/Network/AWS/EC2/CopyImage.hs +19/−19
• gen/Network/AWS/EC2/CopySnapshot.hs +39/−38
• gen/Network/AWS/EC2/CreateCustomerGateway.hs +8/−8
• gen/Network/AWS/EC2/CreateDHCPOptions.hs +9/−9
• gen/Network/AWS/EC2/CreateFlowLogs.hs +11/−11
• gen/Network/AWS/EC2/CreateImage.hs +19/−19
• gen/Network/AWS/EC2/CreateInstanceExportTask.hs +9/−9
• gen/Network/AWS/EC2/CreateInternetGateway.hs +8/−8
• gen/Network/AWS/EC2/CreateKeyPair.hs +8/−8
• gen/Network/AWS/EC2/CreateNetworkACL.hs +9/−9
• gen/Network/AWS/EC2/CreateNetworkInterface.hs +31/−32
• gen/Network/AWS/EC2/CreateReservedInstancesListing.hs +8/−8
• gen/Network/AWS/EC2/CreateRoute.hs +21/−21
• gen/Network/AWS/EC2/CreateRouteTable.hs +9/−9
• gen/Network/AWS/EC2/CreateSecurityGroup.hs +9/−9
• gen/Network/AWS/EC2/CreateSnapshot.hs +12/−13
• gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs +8/−8
• gen/Network/AWS/EC2/CreateSubnet.hs +9/−9
• gen/Network/AWS/EC2/CreateVPC.hs +9/−9
• gen/Network/AWS/EC2/CreateVPCEndpoint.hs +10/−10
• gen/Network/AWS/EC2/CreateVPCPeeringConnection.hs +8/−8
• gen/Network/AWS/EC2/CreateVPNConnection.hs +9/−9
• gen/Network/AWS/EC2/CreateVPNGateway.hs +9/−9
• gen/Network/AWS/EC2/DeleteFlowLogs.hs +9/−9
• gen/Network/AWS/EC2/DeleteVPCEndpoints.hs +9/−9
• gen/Network/AWS/EC2/DeleteVPCPeeringConnection.hs +9/−9
• gen/Network/AWS/EC2/DescribeAccountAttributes.hs +8/−8
• gen/Network/AWS/EC2/DescribeAddresses.hs +35/−35
• gen/Network/AWS/EC2/DescribeAvailabilityZones.hs +8/−8
• gen/Network/AWS/EC2/DescribeBundleTasks.hs +9/−9
• gen/Network/AWS/EC2/DescribeClassicLinkInstances.hs +10/−10
• gen/Network/AWS/EC2/DescribeConversionTasks.hs +20/−20
• gen/Network/AWS/EC2/DescribeCustomerGateways.hs +8/−8
• gen/Network/AWS/EC2/DescribeDHCPOptions.hs +9/−9
• gen/Network/AWS/EC2/DescribeExportTasks.hs +9/−9
• gen/Network/AWS/EC2/DescribeFlowLogs.hs +20/−20
• gen/Network/AWS/EC2/DescribeImageAttribute.hs +18/−18
• gen/Network/AWS/EC2/DescribeImages.hs +9/−9
• gen/Network/AWS/EC2/DescribeImportImageTasks.hs +23/−23
• gen/Network/AWS/EC2/DescribeImportSnapshotTasks.hs +8/−8
• gen/Network/AWS/EC2/DescribeInstanceAttribute.hs +27/−27
• gen/Network/AWS/EC2/DescribeInstanceStatus.hs +8/−8
• gen/Network/AWS/EC2/DescribeInstances.hs +10/−10
• gen/Network/AWS/EC2/DescribeInternetGateways.hs +8/−8
• gen/Network/AWS/EC2/DescribeKeyPairs.hs +9/−9
• gen/Network/AWS/EC2/DescribeMovingAddresses.hs +20/−20
• gen/Network/AWS/EC2/DescribeNetworkACLs.hs +22/−22
• gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs +8/−8
• gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs +8/−8
• gen/Network/AWS/EC2/DescribePlacementGroups.hs +23/−23
• gen/Network/AWS/EC2/DescribePrefixLists.hs +20/−21
• gen/Network/AWS/EC2/DescribeRegions.hs +9/−9
• gen/Network/AWS/EC2/DescribeReservedInstances.hs +20/−20
• gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs +8/−8
• gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs +8/−8
• gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs +31/−31
• gen/Network/AWS/EC2/DescribeRouteTables.hs +9/−9
• gen/Network/AWS/EC2/DescribeSecurityGroups.hs +25/−25
• gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs +8/−8
• gen/Network/AWS/EC2/DescribeSnapshots.hs +10/−10
• gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs +8/−8
• gen/Network/AWS/EC2/DescribeSpotFleetInstances.hs +8/−8
• gen/Network/AWS/EC2/DescribeSpotFleetRequestHistory.hs +8/−8
• gen/Network/AWS/EC2/DescribeSpotFleetRequests.hs +8/−8
• gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs +8/−8
• gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs +8/−8
• gen/Network/AWS/EC2/DescribeSubnets.hs +9/−9
• gen/Network/AWS/EC2/DescribeTags.hs +10/−10
• gen/Network/AWS/EC2/DescribeVPCAttribute.hs +8/−8
• gen/Network/AWS/EC2/DescribeVPCClassicLink.hs +9/−9
• gen/Network/AWS/EC2/DescribeVPCEndpointServices.hs +10/−10
• gen/Network/AWS/EC2/DescribeVPCEndpoints.hs +10/−10
• gen/Network/AWS/EC2/DescribeVPCPeeringConnections.hs +8/−8
• gen/Network/AWS/EC2/DescribeVPCs.hs +9/−9
• gen/Network/AWS/EC2/DescribeVPNConnections.hs +8/−8
• gen/Network/AWS/EC2/DescribeVPNGateways.hs +22/−22
• gen/Network/AWS/EC2/DescribeVolumeAttribute.hs +23/−23
• gen/Network/AWS/EC2/DescribeVolumeStatus.hs +8/−8
• gen/Network/AWS/EC2/DescribeVolumes.hs +10/−10
• gen/Network/AWS/EC2/DetachClassicLinkVPC.hs +9/−9
• gen/Network/AWS/EC2/DisableVPCClassicLink.hs +9/−9
• gen/Network/AWS/EC2/EnableVPCClassicLink.hs +9/−9
• gen/Network/AWS/EC2/GetConsoleOutput.hs +11/−11
• gen/Network/AWS/EC2/GetPasswordData.hs +11/−11
• gen/Network/AWS/EC2/ImportImage.hs +32/−22
• gen/Network/AWS/EC2/ImportInstance.hs +18/−19
• gen/Network/AWS/EC2/ImportKeyPair.hs +8/−8
• gen/Network/AWS/EC2/ImportSnapshot.hs +19/−19
• gen/Network/AWS/EC2/ImportVolume.hs +20/−20
• gen/Network/AWS/EC2/ModifyImageAttribute.hs +12/−13
• gen/Network/AWS/EC2/ModifyInstanceAttribute.hs +44/−44
• gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs +10/−10
• gen/Network/AWS/EC2/ModifyReservedInstances.hs +8/−8
• gen/Network/AWS/EC2/ModifySnapshotAttribute.hs +12/−12
• gen/Network/AWS/EC2/ModifyVPCEndpoint.hs +9/−9
• gen/Network/AWS/EC2/MonitorInstances.hs +8/−8
• gen/Network/AWS/EC2/MoveAddressToVPC.hs +21/−11
• gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs +8/−8
• gen/Network/AWS/EC2/RegisterImage.hs +40/−32
• gen/Network/AWS/EC2/RejectVPCPeeringConnection.hs +9/−9
• gen/Network/AWS/EC2/ReplaceNetworkACLAssociation.hs +8/−8
• gen/Network/AWS/EC2/ReplaceRoute.hs +12/−12
• gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs +8/−8
• gen/Network/AWS/EC2/ReportInstanceStatus.hs +11/−10
• gen/Network/AWS/EC2/RequestSpotFleet.hs +13/−9
• gen/Network/AWS/EC2/RequestSpotInstances.hs +31/−31
• gen/Network/AWS/EC2/RestoreAddressToClassic.hs +21/−11
• gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs +10/−10
• gen/Network/AWS/EC2/RunInstances.hs +53/−46
• gen/Network/AWS/EC2/StartInstances.hs +8/−8
• gen/Network/AWS/EC2/StopInstances.hs +8/−8
• gen/Network/AWS/EC2/TerminateInstances.hs +12/−12
• gen/Network/AWS/EC2/Types.hs +64/−59
• gen/Network/AWS/EC2/Types/Product.hs +10624/−10595
• gen/Network/AWS/EC2/Types/Sum.hs +106/−84
• gen/Network/AWS/EC2/UnmonitorInstances.hs +8/−8
• gen/Network/AWS/EC2/Waiters.hs +67/−67
• test/Test/AWS/EC2.hs +1/−1
• test/Test/AWS/Gen/EC2.hs +3285/−3285

@@ -8,7 +8,7 @@  ## Version -`1.2.0.2`+`1.3.0`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ec2-version:               1.2.0.2+version:               1.3.0 synopsis:              Amazon Elastic Compute Cloud SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -236,7 +236,7 @@         , Network.AWS.EC2.Types.Sum      build-depends:-          amazonka-core == 1.2.0.*+          amazonka-core == 1.3.0.*         , base          >= 4.7     && < 5  test-suite amazonka-ec2-test@@ -256,9 +256,9 @@         , Test.AWS.EC2.Internal      build-depends:-          amazonka-core == 1.2.0.*-        , amazonka-test == 1.2.0.*-        , amazonka-ec2 == 1.2.0.*+          amazonka-core == 1.3.0.*+        , amazonka-test == 1.3.0.*+        , amazonka-ec2 == 1.3.0.*         , base         , bytestring         , lens

@@ -48,12 +48,12 @@     -- ** ConversionTaskCompleted     , conversionTaskCompleted -    -- ** ConversionTaskDeleted-    , conversionTaskDeleted-     -- ** InstanceStopped     , instanceStopped +    -- ** ConversionTaskDeleted+    , conversionTaskDeleted+     -- ** PasswordDataAvailable     , passwordDataAvailable @@ -63,12 +63,12 @@     -- ** SpotInstanceRequestFulfilled     , spotInstanceRequestFulfilled -    -- ** ExportTaskCompleted-    , exportTaskCompleted-     -- ** VPCAvailable     , vpcAvailable +    -- ** ExportTaskCompleted+    , exportTaskCompleted+     -- ** VPNConnectionAvailable     , vpnConnectionAvailable @@ -84,89 +84,89 @@     -- ** VPNConnectionDeleted     , vpnConnectionDeleted -    -- ** ImageAvailable-    , imageAvailable-     -- ** ConversionTaskCancelled     , conversionTaskCancelled -    -- ** InstanceExists-    , instanceExists--    -- ** VolumeAvailable-    , volumeAvailable+    -- ** ImageAvailable+    , imageAvailable      -- ** SnapshotCompleted     , snapshotCompleted +    -- ** InstanceExists+    , instanceExists+     -- ** InstanceStatusOK     , instanceStatusOK +    -- ** VolumeAvailable+    , volumeAvailable+     -- * Operations     -- $operations -    -- ** DetachNetworkInterface-    , module Network.AWS.EC2.DetachNetworkInterface+    -- ** ImportInstance+    , module Network.AWS.EC2.ImportInstance -    -- ** DeleteVPCEndpoints-    , module Network.AWS.EC2.DeleteVPCEndpoints+    -- ** RevokeSecurityGroupEgress+    , module Network.AWS.EC2.RevokeSecurityGroupEgress +    -- ** CreateVPNGateway+    , module Network.AWS.EC2.CreateVPNGateway++    -- ** CreateNetworkACL+    , module Network.AWS.EC2.CreateNetworkACL+     -- ** DeleteKeyPair     , module Network.AWS.EC2.DeleteKeyPair -    -- ** DeleteFlowLogs-    , module Network.AWS.EC2.DeleteFlowLogs-     -- ** DescribeTags (Paginated)     , module Network.AWS.EC2.DescribeTags -    -- ** RevokeSecurityGroupEgress-    , module Network.AWS.EC2.RevokeSecurityGroupEgress--    -- ** CreateVPNGateway-    , module Network.AWS.EC2.CreateVPNGateway+    -- ** DetachNetworkInterface+    , module Network.AWS.EC2.DetachNetworkInterface      -- ** DetachInternetGateway     , module Network.AWS.EC2.DetachInternetGateway -    -- ** CreateNetworkACL-    , module Network.AWS.EC2.CreateNetworkACL+    -- ** DeleteVPCEndpoints+    , module Network.AWS.EC2.DeleteVPCEndpoints -    -- ** ImportInstance-    , module Network.AWS.EC2.ImportInstance+    -- ** DeleteFlowLogs+    , module Network.AWS.EC2.DeleteFlowLogs      -- ** DescribeVPCClassicLink     , module Network.AWS.EC2.DescribeVPCClassicLink -    -- ** DeleteVPNConnection-    , module Network.AWS.EC2.DeleteVPNConnection--    -- ** AuthorizeSecurityGroupEgress-    , module Network.AWS.EC2.AuthorizeSecurityGroupEgress+    -- ** ModifySubnetAttribute+    , module Network.AWS.EC2.ModifySubnetAttribute -    -- ** DescribeBundleTasks-    , module Network.AWS.EC2.DescribeBundleTasks+    -- ** DetachVolume+    , module Network.AWS.EC2.DetachVolume -    -- ** CreateInternetGateway-    , module Network.AWS.EC2.CreateInternetGateway+    -- ** CancelBundleTask+    , module Network.AWS.EC2.CancelBundleTask      -- ** ReleaseAddress     , module Network.AWS.EC2.ReleaseAddress -    -- ** CancelBundleTask-    , module Network.AWS.EC2.CancelBundleTask+    -- ** CreateInternetGateway+    , module Network.AWS.EC2.CreateInternetGateway -    -- ** ModifyNetworkInterfaceAttribute-    , module Network.AWS.EC2.ModifyNetworkInterfaceAttribute+    -- ** DeleteVPNConnection+    , module Network.AWS.EC2.DeleteVPNConnection -    -- ** ModifySubnetAttribute-    , module Network.AWS.EC2.ModifySubnetAttribute+    -- ** DescribeBundleTasks+    , module Network.AWS.EC2.DescribeBundleTasks +    -- ** AuthorizeSecurityGroupEgress+    , module Network.AWS.EC2.AuthorizeSecurityGroupEgress+     -- ** DeregisterImage     , module Network.AWS.EC2.DeregisterImage -    -- ** DetachVolume-    , module Network.AWS.EC2.DetachVolume+    -- ** ModifyNetworkInterfaceAttribute+    , module Network.AWS.EC2.ModifyNetworkInterfaceAttribute      -- ** CancelReservedInstancesListing     , module Network.AWS.EC2.CancelReservedInstancesListing@@ -177,215 +177,206 @@     -- ** CancelSpotFleetRequests     , module Network.AWS.EC2.CancelSpotFleetRequests -    -- ** DescribeDHCPOptions-    , module Network.AWS.EC2.DescribeDHCPOptions-     -- ** DescribeSpotPriceHistory (Paginated)     , module Network.AWS.EC2.DescribeSpotPriceHistory -    -- ** StopInstances-    , module Network.AWS.EC2.StopInstances+    -- ** DescribeDHCPOptions+    , module Network.AWS.EC2.DescribeDHCPOptions      -- ** ImportImage     , module Network.AWS.EC2.ImportImage -    -- ** DeleteNetworkACLEntry-    , module Network.AWS.EC2.DeleteNetworkACLEntry+    -- ** StopInstances+    , module Network.AWS.EC2.StopInstances +    -- ** DescribeInternetGateways+    , module Network.AWS.EC2.DescribeInternetGateways+     -- ** DisableVPCClassicLink     , module Network.AWS.EC2.DisableVPCClassicLink -    -- ** AuthorizeSecurityGroupIngress-    , module Network.AWS.EC2.AuthorizeSecurityGroupIngress-     -- ** BundleInstance     , module Network.AWS.EC2.BundleInstance -    -- ** DescribeVPCEndpointServices-    , module Network.AWS.EC2.DescribeVPCEndpointServices+    -- ** DescribeNetworkInterfaces+    , module Network.AWS.EC2.DescribeNetworkInterfaces      -- ** ReplaceNetworkACLAssociation     , module Network.AWS.EC2.ReplaceNetworkACLAssociation -    -- ** CreateVPCPeeringConnection-    , module Network.AWS.EC2.CreateVPCPeeringConnection--    -- ** ResetSnapshotAttribute-    , module Network.AWS.EC2.ResetSnapshotAttribute-     -- ** DescribeAddresses     , module Network.AWS.EC2.DescribeAddresses -    -- ** DescribeInternetGateways-    , module Network.AWS.EC2.DescribeInternetGateways+    -- ** DescribeSnapshotAttribute+    , module Network.AWS.EC2.DescribeSnapshotAttribute      -- ** ReplaceRoute     , module Network.AWS.EC2.ReplaceRoute -    -- ** CreateTags-    , module Network.AWS.EC2.CreateTags+    -- ** DescribeVPCEndpointServices+    , module Network.AWS.EC2.DescribeVPCEndpointServices +    -- ** AuthorizeSecurityGroupIngress+    , module Network.AWS.EC2.AuthorizeSecurityGroupIngress++    -- ** CreateVPCPeeringConnection+    , module Network.AWS.EC2.CreateVPCPeeringConnection+     -- ** DescribeSubnets     , module Network.AWS.EC2.DescribeSubnets -    -- ** DescribeNetworkInterfaces-    , module Network.AWS.EC2.DescribeNetworkInterfaces+    -- ** CreateTags+    , module Network.AWS.EC2.CreateTags      -- ** PurchaseReservedInstancesOffering     , module Network.AWS.EC2.PurchaseReservedInstancesOffering -    -- ** DescribeSnapshotAttribute-    , module Network.AWS.EC2.DescribeSnapshotAttribute+    -- ** DeleteNetworkACLEntry+    , module Network.AWS.EC2.DeleteNetworkACLEntry -    -- ** CreateCustomerGateway-    , module Network.AWS.EC2.CreateCustomerGateway+    -- ** ResetSnapshotAttribute+    , module Network.AWS.EC2.ResetSnapshotAttribute -    -- ** AttachInternetGateway-    , module Network.AWS.EC2.AttachInternetGateway+    -- ** DescribeVPNConnections+    , module Network.AWS.EC2.DescribeVPNConnections -    -- ** DeleteTags-    , module Network.AWS.EC2.DeleteTags+    -- ** DeleteRoute+    , module Network.AWS.EC2.DeleteRoute      -- ** ReplaceNetworkACLEntry     , module Network.AWS.EC2.ReplaceNetworkACLEntry +    -- ** DescribeVPCEndpoints+    , module Network.AWS.EC2.DescribeVPCEndpoints+     -- ** ResetInstanceAttribute     , module Network.AWS.EC2.ResetInstanceAttribute -    -- ** DeleteRoute-    , module Network.AWS.EC2.DeleteRoute--    -- ** DescribeVPNConnections-    , module Network.AWS.EC2.DescribeVPNConnections--    -- ** DescribeFlowLogs-    , module Network.AWS.EC2.DescribeFlowLogs+    -- ** AttachNetworkInterface+    , module Network.AWS.EC2.AttachNetworkInterface -    -- ** DeleteSecurityGroup-    , module Network.AWS.EC2.DeleteSecurityGroup+    -- ** DescribeInstanceStatus (Paginated)+    , module Network.AWS.EC2.DescribeInstanceStatus -    -- ** DescribeReservedInstancesOfferings (Paginated)-    , module Network.AWS.EC2.DescribeReservedInstancesOfferings+    -- ** ImportKeyPair+    , module Network.AWS.EC2.ImportKeyPair -    -- ** DeleteVPCPeeringConnection-    , module Network.AWS.EC2.DeleteVPCPeeringConnection+    -- ** DeleteTags+    , module Network.AWS.EC2.DeleteTags -    -- ** DescribeVPCEndpoints-    , module Network.AWS.EC2.DescribeVPCEndpoints+    -- ** ConfirmProductInstance+    , module Network.AWS.EC2.ConfirmProductInstance      -- ** DescribeInstanceAttribute     , module Network.AWS.EC2.DescribeInstanceAttribute -    -- ** ConfirmProductInstance-    , module Network.AWS.EC2.ConfirmProductInstance+    -- ** DescribeReservedInstancesOfferings (Paginated)+    , module Network.AWS.EC2.DescribeReservedInstancesOfferings -    -- ** ImportKeyPair-    , module Network.AWS.EC2.ImportKeyPair+    -- ** CreateCustomerGateway+    , module Network.AWS.EC2.CreateCustomerGateway -    -- ** AttachNetworkInterface-    , module Network.AWS.EC2.AttachNetworkInterface+    -- ** DeleteSecurityGroup+    , module Network.AWS.EC2.DeleteSecurityGroup -    -- ** DescribeInstanceStatus (Paginated)-    , module Network.AWS.EC2.DescribeInstanceStatus+    -- ** DeleteVPCPeeringConnection+    , module Network.AWS.EC2.DeleteVPCPeeringConnection -    -- ** CancelConversionTask-    , module Network.AWS.EC2.CancelConversionTask+    -- ** AttachInternetGateway+    , module Network.AWS.EC2.AttachInternetGateway -    -- ** ReportInstanceStatus-    , module Network.AWS.EC2.ReportInstanceStatus+    -- ** DescribeFlowLogs+    , module Network.AWS.EC2.DescribeFlowLogs +    -- ** RunInstances+    , module Network.AWS.EC2.RunInstances+     -- ** AssociateDHCPOptions     , module Network.AWS.EC2.AssociateDHCPOptions +    -- ** DescribeReservedInstances+    , module Network.AWS.EC2.DescribeReservedInstances+     -- ** DescribeVPCs     , module Network.AWS.EC2.DescribeVPCs -    -- ** RequestSpotInstances-    , module Network.AWS.EC2.RequestSpotInstances--    -- ** ModifyImageAttribute-    , module Network.AWS.EC2.ModifyImageAttribute--    -- ** DescribeReservedInstances-    , module Network.AWS.EC2.DescribeReservedInstances+    -- ** DescribeConversionTasks+    , module Network.AWS.EC2.DescribeConversionTasks      -- ** AllocateAddress     , module Network.AWS.EC2.AllocateAddress -    -- ** RunInstances-    , module Network.AWS.EC2.RunInstances+    -- ** CancelConversionTask+    , module Network.AWS.EC2.CancelConversionTask +    -- ** ModifyImageAttribute+    , module Network.AWS.EC2.ModifyImageAttribute+     -- ** CreateRouteTable     , module Network.AWS.EC2.CreateRouteTable +    -- ** ReportInstanceStatus+    , module Network.AWS.EC2.ReportInstanceStatus+     -- ** AttachVolume     , module Network.AWS.EC2.AttachVolume -    -- ** DescribeConversionTasks-    , module Network.AWS.EC2.DescribeConversionTasks--    -- ** RejectVPCPeeringConnection-    , module Network.AWS.EC2.RejectVPCPeeringConnection--    -- ** RevokeSecurityGroupIngress-    , module Network.AWS.EC2.RevokeSecurityGroupIngress+    -- ** RequestSpotInstances+    , module Network.AWS.EC2.RequestSpotInstances      -- ** DescribeVolumes     , module Network.AWS.EC2.DescribeVolumes +    -- ** RejectVPCPeeringConnection+    , module Network.AWS.EC2.RejectVPCPeeringConnection+     -- ** DeleteVPNConnectionRoute     , module Network.AWS.EC2.DeleteVPNConnectionRoute -    -- ** ModifyReservedInstances-    , module Network.AWS.EC2.ModifyReservedInstances+    -- ** ModifyVPCEndpoint+    , module Network.AWS.EC2.ModifyVPCEndpoint      -- ** RegisterImage     , module Network.AWS.EC2.RegisterImage -    -- ** ModifyVPCEndpoint-    , module Network.AWS.EC2.ModifyVPCEndpoint--    -- ** DeleteVPNGateway-    , module Network.AWS.EC2.DeleteVPNGateway+    -- ** RevokeSecurityGroupIngress+    , module Network.AWS.EC2.RevokeSecurityGroupIngress -    -- ** CreateVPC-    , module Network.AWS.EC2.CreateVPC+    -- ** ModifyReservedInstances+    , module Network.AWS.EC2.ModifyReservedInstances -    -- ** DescribeMovingAddresses-    , module Network.AWS.EC2.DescribeMovingAddresses+    -- ** CreateFlowLogs+    , module Network.AWS.EC2.CreateFlowLogs -    -- ** DescribeVolumeAttribute-    , module Network.AWS.EC2.DescribeVolumeAttribute+    -- ** DescribeSpotFleetRequests+    , module Network.AWS.EC2.DescribeSpotFleetRequests      -- ** MoveAddressToVPC     , module Network.AWS.EC2.MoveAddressToVPC -    -- ** GetPasswordData-    , module Network.AWS.EC2.GetPasswordData+    -- ** DeleteNetworkACL+    , module Network.AWS.EC2.DeleteNetworkACL -    -- ** CreateFlowLogs-    , module Network.AWS.EC2.CreateFlowLogs+    -- ** DeleteVPNGateway+    , module Network.AWS.EC2.DeleteVPNGateway      -- ** DescribeImportImageTasks     , module Network.AWS.EC2.DescribeImportImageTasks -    -- ** DeleteNetworkACL-    , module Network.AWS.EC2.DeleteNetworkACL--    -- ** DescribeSpotFleetRequests-    , module Network.AWS.EC2.DescribeSpotFleetRequests+    -- ** DescribeVolumeAttribute+    , module Network.AWS.EC2.DescribeVolumeAttribute -    -- ** CopySnapshot-    , module Network.AWS.EC2.CopySnapshot+    -- ** DescribeMovingAddresses+    , module Network.AWS.EC2.DescribeMovingAddresses -    -- ** ModifyVolumeAttribute-    , module Network.AWS.EC2.ModifyVolumeAttribute+    -- ** GetPasswordData+    , module Network.AWS.EC2.GetPasswordData -    -- ** DescribeVPCAttribute-    , module Network.AWS.EC2.DescribeVPCAttribute+    -- ** CreateVPC+    , module Network.AWS.EC2.CreateVPC -    -- ** CreateVolume-    , module Network.AWS.EC2.CreateVolume+    -- ** CopySnapshot+    , module Network.AWS.EC2.CopySnapshot      -- ** DisassociateAddress     , module Network.AWS.EC2.DisassociateAddress@@ -393,102 +384,111 @@     -- ** DeleteVPC     , module Network.AWS.EC2.DeleteVPC -    -- ** DescribePrefixLists-    , module Network.AWS.EC2.DescribePrefixLists-     -- ** CreateInstanceExportTask     , module Network.AWS.EC2.CreateInstanceExportTask +    -- ** DescribeVPCAttribute+    , module Network.AWS.EC2.DescribeVPCAttribute++    -- ** CreateVolume+    , module Network.AWS.EC2.CreateVolume++    -- ** ModifyVolumeAttribute+    , module Network.AWS.EC2.ModifyVolumeAttribute+     -- ** DescribeSpotDatafeedSubscription     , module Network.AWS.EC2.DescribeSpotDatafeedSubscription -    -- ** DetachVPNGateway-    , module Network.AWS.EC2.DetachVPNGateway--    -- ** DescribeExportTasks-    , module Network.AWS.EC2.DescribeExportTasks+    -- ** DescribePrefixLists+    , module Network.AWS.EC2.DescribePrefixLists      -- ** DeletePlacementGroup     , module Network.AWS.EC2.DeletePlacementGroup +    -- ** RequestSpotFleet+    , module Network.AWS.EC2.RequestSpotFleet+     -- ** CreateSubnet     , module Network.AWS.EC2.CreateSubnet -    -- ** EnableVolumeIO-    , module Network.AWS.EC2.EnableVolumeIO+    -- ** CreateNetworkInterface+    , module Network.AWS.EC2.CreateNetworkInterface -    -- ** CancelExportTask-    , module Network.AWS.EC2.CancelExportTask+    -- ** DescribeSecurityGroups+    , module Network.AWS.EC2.DescribeSecurityGroups -    -- ** RequestSpotFleet-    , module Network.AWS.EC2.RequestSpotFleet+    -- ** DescribeExportTasks+    , module Network.AWS.EC2.DescribeExportTasks +    -- ** DetachVPNGateway+    , module Network.AWS.EC2.DetachVPNGateway++    -- ** EnableVolumeIO+    , module Network.AWS.EC2.EnableVolumeIO+     -- ** DescribeInstances (Paginated)     , module Network.AWS.EC2.DescribeInstances -    -- ** DescribeSecurityGroups-    , module Network.AWS.EC2.DescribeSecurityGroups-     -- ** DescribeVPCPeeringConnections     , module Network.AWS.EC2.DescribeVPCPeeringConnections -    -- ** CreateNetworkInterface-    , module Network.AWS.EC2.CreateNetworkInterface+    -- ** CancelExportTask+    , module Network.AWS.EC2.CancelExportTask -    -- ** AssociateAddress-    , module Network.AWS.EC2.AssociateAddress+    -- ** DeleteNetworkInterface+    , module Network.AWS.EC2.DeleteNetworkInterface +    -- ** ReplaceRouteTableAssociation+    , module Network.AWS.EC2.ReplaceRouteTableAssociation+     -- ** StartInstances     , module Network.AWS.EC2.StartInstances -    -- ** DescribeCustomerGateways-    , module Network.AWS.EC2.DescribeCustomerGateways--    -- ** ResetNetworkInterfaceAttribute-    , module Network.AWS.EC2.ResetNetworkInterfaceAttribute--    -- ** CreateVPNConnection-    , module Network.AWS.EC2.CreateVPNConnection+    -- ** CreatePlacementGroup+    , module Network.AWS.EC2.CreatePlacementGroup      -- ** DescribeSnapshots (Paginated)     , module Network.AWS.EC2.DescribeSnapshots -    -- ** CreatePlacementGroup-    , module Network.AWS.EC2.CreatePlacementGroup--    -- ** ReplaceRouteTableAssociation-    , module Network.AWS.EC2.ReplaceRouteTableAssociation+    -- ** AssociateAddress+    , module Network.AWS.EC2.AssociateAddress      -- ** DescribeNetworkInterfaceAttribute     , module Network.AWS.EC2.DescribeNetworkInterfaceAttribute -    -- ** DescribeReservedInstancesListings-    , module Network.AWS.EC2.DescribeReservedInstancesListings--    -- ** DeleteNetworkInterface-    , module Network.AWS.EC2.DeleteNetworkInterface+    -- ** ResetNetworkInterfaceAttribute+    , module Network.AWS.EC2.ResetNetworkInterfaceAttribute      -- ** DeleteInternetGateway     , module Network.AWS.EC2.DeleteInternetGateway -    -- ** DeleteSubnet-    , module Network.AWS.EC2.DeleteSubnet+    -- ** DescribeReservedInstancesListings+    , module Network.AWS.EC2.DescribeReservedInstancesListings -    -- ** CreateVPCEndpoint-    , module Network.AWS.EC2.CreateVPCEndpoint+    -- ** CreateVPNConnection+    , module Network.AWS.EC2.CreateVPNConnection      -- ** DescribeImportSnapshotTasks     , module Network.AWS.EC2.DescribeImportSnapshotTasks +    -- ** DescribeCustomerGateways+    , module Network.AWS.EC2.DescribeCustomerGateways++    -- ** DeleteSubnet+    , module Network.AWS.EC2.DeleteSubnet+     -- ** CopyImage     , module Network.AWS.EC2.CopyImage -    -- ** DisassociateRouteTable-    , module Network.AWS.EC2.DisassociateRouteTable+    -- ** CreateVPCEndpoint+    , module Network.AWS.EC2.CreateVPCEndpoint      -- ** UnmonitorInstances     , module Network.AWS.EC2.UnmonitorInstances +    -- ** CreateSecurityGroup+    , module Network.AWS.EC2.CreateSecurityGroup+     -- ** ImportVolume     , module Network.AWS.EC2.ImportVolume @@ -498,65 +498,68 @@     -- ** CreateSpotDatafeedSubscription     , module Network.AWS.EC2.CreateSpotDatafeedSubscription -    -- ** AssignPrivateIPAddresses-    , module Network.AWS.EC2.AssignPrivateIPAddresses+    -- ** CancelSpotInstanceRequests+    , module Network.AWS.EC2.CancelSpotInstanceRequests +    -- ** CreateRoute+    , module Network.AWS.EC2.CreateRoute+     -- ** DeleteSnapshot     , module Network.AWS.EC2.DeleteSnapshot -    -- ** DeleteCustomerGateway-    , module Network.AWS.EC2.DeleteCustomerGateway+    -- ** AssignPrivateIPAddresses+    , module Network.AWS.EC2.AssignPrivateIPAddresses      -- ** ModifyInstanceAttribute     , module Network.AWS.EC2.ModifyInstanceAttribute -    -- ** CreateSecurityGroup-    , module Network.AWS.EC2.CreateSecurityGroup+    -- ** DeleteCustomerGateway+    , module Network.AWS.EC2.DeleteCustomerGateway -    -- ** CancelSpotInstanceRequests-    , module Network.AWS.EC2.CancelSpotInstanceRequests+    -- ** DisassociateRouteTable+    , module Network.AWS.EC2.DisassociateRouteTable -    -- ** CreateRoute-    , module Network.AWS.EC2.CreateRoute+    -- ** DeleteSpotDatafeedSubscription+    , module Network.AWS.EC2.DeleteSpotDatafeedSubscription -    -- ** CreateNetworkACLEntry-    , module Network.AWS.EC2.CreateNetworkACLEntry+    -- ** EnableVPCClassicLink+    , module Network.AWS.EC2.EnableVPCClassicLink -    -- ** ModifySnapshotAttribute-    , module Network.AWS.EC2.ModifySnapshotAttribute+    -- ** DescribePlacementGroups+    , module Network.AWS.EC2.DescribePlacementGroups      -- ** EnableVGWRoutePropagation     , module Network.AWS.EC2.EnableVGWRoutePropagation -    -- ** CreateSnapshot-    , module Network.AWS.EC2.CreateSnapshot-     -- ** DescribeSpotFleetRequestHistory     , module Network.AWS.EC2.DescribeSpotFleetRequestHistory -    -- ** DeleteSpotDatafeedSubscription-    , module Network.AWS.EC2.DeleteSpotDatafeedSubscription+    -- ** ModifySnapshotAttribute+    , module Network.AWS.EC2.ModifySnapshotAttribute -    -- ** DescribePlacementGroups-    , module Network.AWS.EC2.DescribePlacementGroups+    -- ** CreateSnapshot+    , module Network.AWS.EC2.CreateSnapshot +    -- ** CreateNetworkACLEntry+    , module Network.AWS.EC2.CreateNetworkACLEntry+     -- ** CreateReservedInstancesListing     , module Network.AWS.EC2.CreateReservedInstancesListing -    -- ** EnableVPCClassicLink-    , module Network.AWS.EC2.EnableVPCClassicLink+    -- ** AttachVPNGateway+    , module Network.AWS.EC2.AttachVPNGateway -    -- ** DescribeKeyPairs-    , module Network.AWS.EC2.DescribeKeyPairs+    -- ** CreateDHCPOptions+    , module Network.AWS.EC2.CreateDHCPOptions +    -- ** DescribeAccountAttributes+    , module Network.AWS.EC2.DescribeAccountAttributes+     -- ** RebootInstances     , module Network.AWS.EC2.RebootInstances -    -- ** AttachVPNGateway-    , module Network.AWS.EC2.AttachVPNGateway--    -- ** CreateVPNConnectionRoute-    , module Network.AWS.EC2.CreateVPNConnectionRoute+    -- ** CreateImage+    , module Network.AWS.EC2.CreateImage      -- ** DescribeClassicLinkInstances     , module Network.AWS.EC2.DescribeClassicLinkInstances@@ -564,92 +567,89 @@     -- ** TerminateInstances     , module Network.AWS.EC2.TerminateInstances -    -- ** CreateDHCPOptions-    , module Network.AWS.EC2.CreateDHCPOptions+    -- ** DescribeKeyPairs+    , module Network.AWS.EC2.DescribeKeyPairs +    -- ** CreateVPNConnectionRoute+    , module Network.AWS.EC2.CreateVPNConnectionRoute+     -- ** AssociateRouteTable     , module Network.AWS.EC2.AssociateRouteTable -    -- ** CreateImage-    , module Network.AWS.EC2.CreateImage+    -- ** DescribeVPNGateways+    , module Network.AWS.EC2.DescribeVPNGateways -    -- ** DescribeAccountAttributes-    , module Network.AWS.EC2.DescribeAccountAttributes+    -- ** GetConsoleOutput+    , module Network.AWS.EC2.GetConsoleOutput +    -- ** DescribeImageAttribute+    , module Network.AWS.EC2.DescribeImageAttribute++    -- ** DeleteRouteTable+    , module Network.AWS.EC2.DeleteRouteTable+     -- ** ResetImageAttribute     , module Network.AWS.EC2.ResetImageAttribute -    -- ** DescribeNetworkACLs-    , module Network.AWS.EC2.DescribeNetworkACLs--    -- ** CancelImportTask-    , module Network.AWS.EC2.CancelImportTask+    -- ** DescribeReservedInstancesModifications (Paginated)+    , module Network.AWS.EC2.DescribeReservedInstancesModifications -    -- ** GetConsoleOutput-    , module Network.AWS.EC2.GetConsoleOutput+    -- ** DescribeSpotInstanceRequests+    , module Network.AWS.EC2.DescribeSpotInstanceRequests      -- ** UnassignPrivateIPAddresses     , module Network.AWS.EC2.UnassignPrivateIPAddresses -    -- ** DeleteRouteTable-    , module Network.AWS.EC2.DeleteRouteTable--    -- ** DescribeImageAttribute-    , module Network.AWS.EC2.DescribeImageAttribute-     -- ** DeleteDHCPOptions     , module Network.AWS.EC2.DeleteDHCPOptions -    -- ** DescribeVPNGateways-    , module Network.AWS.EC2.DescribeVPNGateways+    -- ** DescribeNetworkACLs+    , module Network.AWS.EC2.DescribeNetworkACLs +    -- ** CancelImportTask+    , module Network.AWS.EC2.CancelImportTask+     -- ** DetachClassicLinkVPC     , module Network.AWS.EC2.DetachClassicLinkVPC -    -- ** DescribeReservedInstancesModifications (Paginated)-    , module Network.AWS.EC2.DescribeReservedInstancesModifications--    -- ** DescribeSpotInstanceRequests-    , module Network.AWS.EC2.DescribeSpotInstanceRequests+    -- ** DescribeRegions+    , module Network.AWS.EC2.DescribeRegions      -- ** MonitorInstances     , module Network.AWS.EC2.MonitorInstances -    -- ** DescribeRegions-    , module Network.AWS.EC2.DescribeRegions--    -- ** ModifyVPCAttribute-    , module Network.AWS.EC2.ModifyVPCAttribute+    -- ** AcceptVPCPeeringConnection+    , module Network.AWS.EC2.AcceptVPCPeeringConnection -    -- ** DescribeSpotFleetInstances-    , module Network.AWS.EC2.DescribeSpotFleetInstances+    -- ** ImportSnapshot+    , module Network.AWS.EC2.ImportSnapshot      -- ** DescribeVolumeStatus (Paginated)     , module Network.AWS.EC2.DescribeVolumeStatus -    -- ** DeleteVolume-    , module Network.AWS.EC2.DeleteVolume+    -- ** DescribeRouteTables+    , module Network.AWS.EC2.DescribeRouteTables +    -- ** DescribeAvailabilityZones+    , module Network.AWS.EC2.DescribeAvailabilityZones++    -- ** ModifyVPCAttribute+    , module Network.AWS.EC2.ModifyVPCAttribute+     -- ** DescribeImages     , module Network.AWS.EC2.DescribeImages -    -- ** CreateKeyPair-    , module Network.AWS.EC2.CreateKeyPair-     -- ** RestoreAddressToClassic     , module Network.AWS.EC2.RestoreAddressToClassic -    -- ** DescribeAvailabilityZones-    , module Network.AWS.EC2.DescribeAvailabilityZones--    -- ** ImportSnapshot-    , module Network.AWS.EC2.ImportSnapshot+    -- ** CreateKeyPair+    , module Network.AWS.EC2.CreateKeyPair -    -- ** AcceptVPCPeeringConnection-    , module Network.AWS.EC2.AcceptVPCPeeringConnection+    -- ** DeleteVolume+    , module Network.AWS.EC2.DeleteVolume -    -- ** DescribeRouteTables-    , module Network.AWS.EC2.DescribeRouteTables+    -- ** DescribeSpotFleetInstances+    , module Network.AWS.EC2.DescribeSpotFleetInstances      -- * Types @@ -764,6 +764,9 @@     -- ** OfferingTypeValues     , OfferingTypeValues (..) +    -- ** OperationType+    , OperationType (..)+     -- ** PermissionGroup     , PermissionGroup (..) @@ -905,8 +908,8 @@     -- ** Address     , Address     , address-    , aInstanceId     , aAssociationId+    , aInstanceId     , aNetworkInterfaceOwnerId     , aAllocationId     , aDomain@@ -927,8 +930,8 @@     -- ** AvailabilityZone     , AvailabilityZone     , availabilityZone-    , azRegionName     , azState+    , azRegionName     , azZoneName     , azMessages @@ -1096,8 +1099,8 @@     -- ** EBSInstanceBlockDevice     , EBSInstanceBlockDevice     , ebsInstanceBlockDevice-    , eibdDeleteOnTermination     , eibdStatus+    , eibdDeleteOnTermination     , eibdVolumeId     , eibdAttachTime @@ -1155,8 +1158,8 @@     , flTrafficType     , flDeliverLogsStatus     , flDeliverLogsErrorMessage-    , flDeliverLogsPermissionARN     , flLogGroupName+    , flDeliverLogsPermissionARN     , flFlowLogId      -- ** GroupIdentifier@@ -1218,8 +1221,8 @@     , iCreationDate     , iProductCodes     , iStateReason-    , iBlockDeviceMappings     , iDescription+    , iBlockDeviceMappings     , iTags     , iImageId     , iImageLocation@@ -1235,8 +1238,8 @@     -- ** ImageDiskContainer     , ImageDiskContainer     , imageDiskContainer-    , idcURL     , idcFormat+    , idcURL     , idcDeviceName     , idcUserBucket     , idcDescription@@ -1263,12 +1266,12 @@     , iilsAdditionalInfo     , iilsGroupNames     , iilsSubnetId-    , iilsGroupIds     , iilsInstanceType+    , iilsGroupIds     , iilsUserData     , iilsMonitoring-    , iilsInstanceInitiatedShutdownBehavior     , iilsPrivateIPAddress+    , iilsInstanceInitiatedShutdownBehavior     , iilsArchitecture     , iilsPlacement @@ -1316,17 +1319,17 @@     , insClientToken     , insSourceDestCheck     , insVPCId-    , insNetworkInterfaces     , insKeyName+    , insNetworkInterfaces     , insRAMDiskId-    , insKernelId     , insSubnetId+    , insKernelId     , insRootDeviceName-    , insEBSOptimized     , insSRIOVNetSupport+    , insEBSOptimized     , insStateTransitionReason-    , insIAMInstanceProfile     , insInstanceLifecycle+    , insIAMInstanceProfile     , insPrivateIPAddress     , insProductCodes     , insSpotInstanceRequestId@@ -1371,8 +1374,8 @@     -- ** InstanceExportDetails     , InstanceExportDetails     , instanceExportDetails-    , iedInstanceId     , iedTargetEnvironment+    , iedInstanceId      -- ** InstanceMonitoring     , InstanceMonitoring@@ -1383,15 +1386,15 @@     -- ** InstanceNetworkInterface     , InstanceNetworkInterface     , instanceNetworkInterface-    , iniPrivateIPAddresses-    , iniStatus     , iniGroups+    , iniStatus+    , iniPrivateIPAddresses     , iniSourceDestCheck     , iniVPCId     , iniNetworkInterfaceId     , iniSubnetId-    , iniAttachment     , iniMACAddress+    , iniAttachment     , iniOwnerId     , iniPrivateIPAddress     , iniPrivateDNSName@@ -1408,8 +1411,8 @@     -- ** InstanceNetworkInterfaceAttachment     , InstanceNetworkInterfaceAttachment     , instanceNetworkInterfaceAttachment-    , iniaDeleteOnTermination     , iniaStatus+    , iniaDeleteOnTermination     , iniaAttachmentId     , iniaAttachTime     , iniaDeviceIndex@@ -1417,16 +1420,16 @@     -- ** InstanceNetworkInterfaceSpecification     , InstanceNetworkInterfaceSpecification     , instanceNetworkInterfaceSpecification+    , inisGroups     , inisPrivateIPAddresses     , inisDeleteOnTermination-    , inisGroups     , inisAssociatePublicIPAddress     , inisNetworkInterfaceId     , inisSubnetId     , inisPrivateIPAddress     , inisSecondaryPrivateIPAddressCount-    , inisDeviceIndex     , inisDescription+    , inisDeviceIndex      -- ** InstancePrivateIPAddress     , InstancePrivateIPAddress@@ -1454,8 +1457,8 @@     , instanceStatus     , isInstanceId     , isSystemStatus-    , isAvailabilityZone     , isEvents+    , isAvailabilityZone     , isInstanceStatus     , isInstanceState @@ -1515,19 +1518,19 @@     , LaunchSpecification     , launchSpecification     , lsSecurityGroups-    , lsNetworkInterfaces     , lsKeyName+    , lsNetworkInterfaces     , lsRAMDiskId-    , lsKernelId     , lsSubnetId+    , lsKernelId     , lsInstanceType     , lsEBSOptimized     , lsUserData     , lsMonitoring     , lsIAMInstanceProfile     , lsImageId-    , lsBlockDeviceMappings     , lsAddressingType+    , lsBlockDeviceMappings     , lsPlacement      -- ** Monitoring@@ -1548,8 +1551,8 @@     , naNetworkACLId     , naVPCId     , naAssociations-    , naIsDefault     , naTags+    , naIsDefault      -- ** NetworkACLAssociation     , NetworkACLAssociation@@ -1572,17 +1575,17 @@     -- ** NetworkInterface     , NetworkInterface     , networkInterface-    , niPrivateIPAddresses-    , niStatus     , niGroups+    , niStatus+    , niPrivateIPAddresses     , niSourceDestCheck-    , niTagSet     , niVPCId+    , niTagSet     , niRequesterManaged     , niNetworkInterfaceId     , niSubnetId-    , niAttachment     , niMACAddress+    , niAttachment     , niOwnerId     , niAvailabilityZone     , niPrivateIPAddress@@ -1604,8 +1607,8 @@     , NetworkInterfaceAttachment     , networkInterfaceAttachment     , niaInstanceId-    , niaDeleteOnTermination     , niaStatus+    , niaDeleteOnTermination     , niaAttachmentId     , niaInstanceOwnerId     , niaAttachTime@@ -1704,8 +1707,8 @@     -- ** RecurringCharge     , RecurringCharge     , recurringCharge-    , rcFrequency     , rcAmount+    , rcFrequency      -- ** RegionInfo     , RegionInfo@@ -1718,19 +1721,19 @@     , requestSpotLaunchSpecification     , rslsSecurityGroupIds     , rslsSecurityGroups-    , rslsNetworkInterfaces     , rslsKeyName+    , rslsNetworkInterfaces     , rslsRAMDiskId-    , rslsKernelId     , rslsSubnetId+    , rslsKernelId     , rslsInstanceType     , rslsEBSOptimized     , rslsUserData     , rslsMonitoring     , rslsIAMInstanceProfile     , rslsImageId-    , rslsBlockDeviceMappings     , rslsAddressingType+    , rslsBlockDeviceMappings     , rslsPlacement      -- ** Reservation@@ -1757,14 +1760,14 @@     , riProductDescription     , riStart     , riInstanceType-    , riAvailabilityZone     , riEnd+    , riAvailabilityZone+    , riRecurringCharges     , riOfferingType     , riUsagePrice-    , riRecurringCharges-    , riInstanceTenancy     , riFixedPrice     , riReservedInstancesId+    , riInstanceTenancy     , riDuration     , riTags @@ -1791,9 +1794,9 @@     , rilPriceSchedules     , rilStatusMessage     , rilReservedInstancesId+    , rilTags     , rilInstanceCounts     , rilReservedInstancesListingId-    , rilTags      -- ** ReservedInstancesModification     , ReservedInstancesModification@@ -1823,20 +1826,20 @@     , rioInstanceType     , rioAvailabilityZone     , rioPricingDetails+    , rioRecurringCharges     , rioOfferingType     , rioUsagePrice-    , rioRecurringCharges-    , rioReservedInstancesOfferingId-    , rioInstanceTenancy     , rioFixedPrice+    , rioInstanceTenancy+    , rioReservedInstancesOfferingId     , rioDuration      -- ** Route     , Route     , route+    , rVPCPeeringConnectionId     , rInstanceId     , rOrigin-    , rVPCPeeringConnectionId     , rState     , rNetworkInterfaceId     , rGatewayId@@ -1847,8 +1850,8 @@     -- ** RouteTable     , RouteTable     , routeTable-    , rtRoutes     , rtRouteTableId+    , rtRoutes     , rtVPCId     , rtPropagatingVGWs     , rtAssociations@@ -1909,20 +1912,20 @@     , snapshotDetail     , sdStatus     , sdProgress-    , sdURL     , sdFormat+    , sdURL     , sdDeviceName+    , sdStatusMessage     , sdUserBucket     , sdDiskImageSize-    , sdStatusMessage     , sdDescription     , sdSnapshotId      -- ** SnapshotDiskContainer     , SnapshotDiskContainer     , snapshotDiskContainer-    , sdcURL     , sdcFormat+    , sdcURL     , sdcUserBucket     , sdcDescription @@ -1931,11 +1934,11 @@     , snapshotTaskDetail     , stdStatus     , stdProgress-    , stdURL     , stdFormat+    , stdURL+    , stdStatusMessage     , stdUserBucket     , stdDiskImageSize-    , stdStatusMessage     , stdDescription     , stdSnapshotId @@ -1952,19 +1955,21 @@     , SpotFleetLaunchSpecification     , spotFleetLaunchSpecification     , sflsSecurityGroups-    , sflsNetworkInterfaces+    , sflsSpotPrice+    , sflsWeightedCapacity     , sflsKeyName+    , sflsNetworkInterfaces     , sflsRAMDiskId-    , sflsKernelId     , sflsSubnetId+    , sflsKernelId     , sflsInstanceType     , sflsEBSOptimized     , sflsUserData     , sflsMonitoring     , sflsIAMInstanceProfile     , sflsImageId-    , sflsBlockDeviceMappings     , sflsAddressingType+    , sflsBlockDeviceMappings     , sflsPlacement      -- ** SpotFleetMonitoring@@ -1999,17 +2004,17 @@     , sirState     , sirProductDescription     , sirSpotPrice-    , sirAvailabilityZoneGroup     , sirLaunchSpecification+    , sirAvailabilityZoneGroup     , sirLaunchedAvailabilityZone     , sirValidUntil-    , sirFault     , sirLaunchGroup+    , sirFault     , sirSpotInstanceRequestId     , sirType     , sirValidFrom-    , sirTags     , sirCreateTime+    , sirTags      -- ** SpotInstanceStateFault     , SpotInstanceStateFault@@ -2149,8 +2154,8 @@     -- ** VPCEndpoint     , VPCEndpoint     , vpcEndpoint-    , vePolicyDocument     , veState+    , vePolicyDocument     , veVPCId     , veCreationTimestamp     , veServiceName@@ -2160,8 +2165,8 @@     -- ** VPCPeeringConnection     , VPCPeeringConnection     , vpcPeeringConnection-    , vpcpcStatus     , vpcpcVPCPeeringConnectionId+    , vpcpcStatus     , vpcpcAccepterVPCInfo     , vpcpcRequesterVPCInfo     , vpcpcExpirationTime@@ -2183,14 +2188,14 @@     -- ** VPNConnection     , VPNConnection     , vpnConnection+    , vcCustomerGatewayConfiguration     , vcRoutes     , vcVPNGatewayId     , vcOptions-    , vcVGWTelemetry     , vcTags+    , vcVGWTelemetry     , vcVPNConnectionId     , vcCustomerGatewayId-    , vcCustomerGatewayConfiguration     , vcState     , vcType @@ -2207,8 +2212,8 @@     -- ** VPNGateway     , VPNGateway     , vpnGateway-    , vgVPCAttachments     , vgState+    , vgVPCAttachments     , vgVPNGatewayId     , vgAvailabilityZone     , vgType@@ -2286,8 +2291,8 @@     , volumeStatusItem     , vsiVolumeStatus     , vsiActions-    , vsiAvailabilityZone     , vsiEvents+    , vsiAvailabilityZone     , vsiVolumeId     ) where 

@@ -39,7 +39,7 @@     , AcceptVPCPeeringConnectionResponse     -- * Response Lenses     , avpcrsVPCPeeringConnection-    , avpcrsStatus+    , avpcrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -110,7 +110,7 @@ -- | /See:/ 'acceptVPCPeeringConnectionResponse' smart constructor. data AcceptVPCPeeringConnectionResponse = AcceptVPCPeeringConnectionResponse'     { _avpcrsVPCPeeringConnection :: !(Maybe VPCPeeringConnection)-    , _avpcrsStatus               :: !Int+    , _avpcrsResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AcceptVPCPeeringConnectionResponse' with the minimum fields required to make a request.@@ -119,14 +119,14 @@ -- -- * 'avpcrsVPCPeeringConnection' ----- * 'avpcrsStatus'+-- * 'avpcrsResponseStatus' acceptVPCPeeringConnectionResponse-    :: Int -- ^ 'avpcrsStatus'+    :: Int -- ^ 'avpcrsResponseStatus'     -> AcceptVPCPeeringConnectionResponse-acceptVPCPeeringConnectionResponse pStatus_ =+acceptVPCPeeringConnectionResponse pResponseStatus_ =     AcceptVPCPeeringConnectionResponse'     { _avpcrsVPCPeeringConnection = Nothing-    , _avpcrsStatus = pStatus_+    , _avpcrsResponseStatus = pResponseStatus_     }  -- | Information about the VPC peering connection.@@ -134,5 +134,5 @@ avpcrsVPCPeeringConnection = lens _avpcrsVPCPeeringConnection (\ s a -> s{_avpcrsVPCPeeringConnection = a});  -- | The response status code.-avpcrsStatus :: Lens' AcceptVPCPeeringConnectionResponse Int-avpcrsStatus = lens _avpcrsStatus (\ s a -> s{_avpcrsStatus = a});+avpcrsResponseStatus :: Lens' AcceptVPCPeeringConnectionResponse Int+avpcrsResponseStatus = lens _avpcrsResponseStatus (\ s a -> s{_avpcrsResponseStatus = a});

@@ -42,7 +42,7 @@     , aarsAllocationId     , aarsDomain     , aarsPublicIP-    , aarsStatus+    , aarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -111,10 +111,10 @@  -- | /See:/ 'allocateAddressResponse' smart constructor. data AllocateAddressResponse = AllocateAddressResponse'-    { _aarsAllocationId :: !(Maybe Text)-    , _aarsDomain       :: !(Maybe DomainType)-    , _aarsPublicIP     :: !(Maybe Text)-    , _aarsStatus       :: !Int+    { _aarsAllocationId   :: !(Maybe Text)+    , _aarsDomain         :: !(Maybe DomainType)+    , _aarsPublicIP       :: !(Maybe Text)+    , _aarsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AllocateAddressResponse' with the minimum fields required to make a request.@@ -127,16 +127,16 @@ -- -- * 'aarsPublicIP' ----- * 'aarsStatus'+-- * 'aarsResponseStatus' allocateAddressResponse-    :: Int -- ^ 'aarsStatus'+    :: Int -- ^ 'aarsResponseStatus'     -> AllocateAddressResponse-allocateAddressResponse pStatus_ =+allocateAddressResponse pResponseStatus_ =     AllocateAddressResponse'     { _aarsAllocationId = Nothing     , _aarsDomain = Nothing     , _aarsPublicIP = Nothing-    , _aarsStatus = pStatus_+    , _aarsResponseStatus = pResponseStatus_     }  -- | [EC2-VPC] The ID that AWS assigns to represent the allocation of the@@ -154,5 +154,5 @@ aarsPublicIP = lens _aarsPublicIP (\ s a -> s{_aarsPublicIP = a});  -- | The response status code.-aarsStatus :: Lens' AllocateAddressResponse Int-aarsStatus = lens _aarsStatus (\ s a -> s{_aarsStatus = a});+aarsResponseStatus :: Lens' AllocateAddressResponse Int+aarsResponseStatus = lens _aarsResponseStatus (\ s a -> s{_aarsResponseStatus = a});

@@ -59,7 +59,7 @@     , AssociateAddressResponse     -- * Response Lenses     , arsAssociationId-    , arsStatus+    , arsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -179,8 +179,8 @@  -- | /See:/ 'associateAddressResponse' smart constructor. data AssociateAddressResponse = AssociateAddressResponse'-    { _arsAssociationId :: !(Maybe Text)-    , _arsStatus        :: !Int+    { _arsAssociationId  :: !(Maybe Text)+    , _arsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AssociateAddressResponse' with the minimum fields required to make a request.@@ -189,14 +189,14 @@ -- -- * 'arsAssociationId' ----- * 'arsStatus'+-- * 'arsResponseStatus' associateAddressResponse-    :: Int -- ^ 'arsStatus'+    :: Int -- ^ 'arsResponseStatus'     -> AssociateAddressResponse-associateAddressResponse pStatus_ =+associateAddressResponse pResponseStatus_ =     AssociateAddressResponse'     { _arsAssociationId = Nothing-    , _arsStatus = pStatus_+    , _arsResponseStatus = pResponseStatus_     }  -- | [EC2-VPC] The ID that represents the association of the Elastic IP@@ -205,5 +205,5 @@ arsAssociationId = lens _arsAssociationId (\ s a -> s{_arsAssociationId = a});  -- | The response status code.-arsStatus :: Lens' AssociateAddressResponse Int-arsStatus = lens _arsStatus (\ s a -> s{_arsStatus = a});+arsResponseStatus :: Lens' AssociateAddressResponse Int+arsResponseStatus = lens _arsResponseStatus (\ s a -> s{_arsResponseStatus = a});

@@ -45,7 +45,7 @@     , AssociateRouteTableResponse     -- * Response Lenses     , artrsAssociationId-    , artrsStatus+    , artrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -122,8 +122,8 @@  -- | /See:/ 'associateRouteTableResponse' smart constructor. data AssociateRouteTableResponse = AssociateRouteTableResponse'-    { _artrsAssociationId :: !(Maybe Text)-    , _artrsStatus        :: !Int+    { _artrsAssociationId  :: !(Maybe Text)+    , _artrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AssociateRouteTableResponse' with the minimum fields required to make a request.@@ -132,14 +132,14 @@ -- -- * 'artrsAssociationId' ----- * 'artrsStatus'+-- * 'artrsResponseStatus' associateRouteTableResponse-    :: Int -- ^ 'artrsStatus'+    :: Int -- ^ 'artrsResponseStatus'     -> AssociateRouteTableResponse-associateRouteTableResponse pStatus_ =+associateRouteTableResponse pResponseStatus_ =     AssociateRouteTableResponse'     { _artrsAssociationId = Nothing-    , _artrsStatus = pStatus_+    , _artrsResponseStatus = pResponseStatus_     }  -- | The route table association ID (needed to disassociate the route table).@@ -147,5 +147,5 @@ artrsAssociationId = lens _artrsAssociationId (\ s a -> s{_artrsAssociationId = a});  -- | The response status code.-artrsStatus :: Lens' AssociateRouteTableResponse Int-artrsStatus = lens _artrsStatus (\ s a -> s{_artrsStatus = a});+artrsResponseStatus :: Lens' AssociateRouteTableResponse Int+artrsResponseStatus = lens _artrsResponseStatus (\ s a -> s{_artrsResponseStatus = a});

@@ -49,7 +49,7 @@     , AttachClassicLinkVPCResponse     -- * Response Lenses     , aclvrsReturn-    , aclvrsStatus+    , aclvrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -138,8 +138,8 @@  -- | /See:/ 'attachClassicLinkVPCResponse' smart constructor. data AttachClassicLinkVPCResponse = AttachClassicLinkVPCResponse'-    { _aclvrsReturn :: !(Maybe Bool)-    , _aclvrsStatus :: !Int+    { _aclvrsReturn         :: !(Maybe Bool)+    , _aclvrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AttachClassicLinkVPCResponse' with the minimum fields required to make a request.@@ -148,14 +148,14 @@ -- -- * 'aclvrsReturn' ----- * 'aclvrsStatus'+-- * 'aclvrsResponseStatus' attachClassicLinkVPCResponse-    :: Int -- ^ 'aclvrsStatus'+    :: Int -- ^ 'aclvrsResponseStatus'     -> AttachClassicLinkVPCResponse-attachClassicLinkVPCResponse pStatus_ =+attachClassicLinkVPCResponse pResponseStatus_ =     AttachClassicLinkVPCResponse'     { _aclvrsReturn = Nothing-    , _aclvrsStatus = pStatus_+    , _aclvrsResponseStatus = pResponseStatus_     }  -- | Returns 'true' if the request succeeds; otherwise, it returns an error.@@ -163,5 +163,5 @@ aclvrsReturn = lens _aclvrsReturn (\ s a -> s{_aclvrsReturn = a});  -- | The response status code.-aclvrsStatus :: Lens' AttachClassicLinkVPCResponse Int-aclvrsStatus = lens _aclvrsStatus (\ s a -> s{_aclvrsStatus = a});+aclvrsResponseStatus :: Lens' AttachClassicLinkVPCResponse Int+aclvrsResponseStatus = lens _aclvrsResponseStatus (\ s a -> s{_aclvrsResponseStatus = a});

@@ -37,7 +37,7 @@     , AttachNetworkInterfaceResponse     -- * Response Lenses     , anirsAttachmentId-    , anirsStatus+    , anirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -126,8 +126,8 @@  -- | /See:/ 'attachNetworkInterfaceResponse' smart constructor. data AttachNetworkInterfaceResponse = AttachNetworkInterfaceResponse'-    { _anirsAttachmentId :: !(Maybe Text)-    , _anirsStatus       :: !Int+    { _anirsAttachmentId   :: !(Maybe Text)+    , _anirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AttachNetworkInterfaceResponse' with the minimum fields required to make a request.@@ -136,14 +136,14 @@ -- -- * 'anirsAttachmentId' ----- * 'anirsStatus'+-- * 'anirsResponseStatus' attachNetworkInterfaceResponse-    :: Int -- ^ 'anirsStatus'+    :: Int -- ^ 'anirsResponseStatus'     -> AttachNetworkInterfaceResponse-attachNetworkInterfaceResponse pStatus_ =+attachNetworkInterfaceResponse pResponseStatus_ =     AttachNetworkInterfaceResponse'     { _anirsAttachmentId = Nothing-    , _anirsStatus = pStatus_+    , _anirsResponseStatus = pResponseStatus_     }  -- | The ID of the network interface attachment.@@ -151,5 +151,5 @@ anirsAttachmentId = lens _anirsAttachmentId (\ s a -> s{_anirsAttachmentId = a});  -- | The response status code.-anirsStatus :: Lens' AttachNetworkInterfaceResponse Int-anirsStatus = lens _anirsStatus (\ s a -> s{_anirsStatus = a});+anirsResponseStatus :: Lens' AttachNetworkInterfaceResponse Int+anirsResponseStatus = lens _anirsResponseStatus (\ s a -> s{_anirsResponseStatus = a});

@@ -38,7 +38,7 @@     , AttachVPNGatewayResponse     -- * Response Lenses     , avgrsVPCAttachment-    , avgrsStatus+    , avgrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -115,8 +115,8 @@  -- | /See:/ 'attachVPNGatewayResponse' smart constructor. data AttachVPNGatewayResponse = AttachVPNGatewayResponse'-    { _avgrsVPCAttachment :: !(Maybe VPCAttachment)-    , _avgrsStatus        :: !Int+    { _avgrsVPCAttachment  :: !(Maybe VPCAttachment)+    , _avgrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'AttachVPNGatewayResponse' with the minimum fields required to make a request.@@ -125,14 +125,14 @@ -- -- * 'avgrsVPCAttachment' ----- * 'avgrsStatus'+-- * 'avgrsResponseStatus' attachVPNGatewayResponse-    :: Int -- ^ 'avgrsStatus'+    :: Int -- ^ 'avgrsResponseStatus'     -> AttachVPNGatewayResponse-attachVPNGatewayResponse pStatus_ =+attachVPNGatewayResponse pResponseStatus_ =     AttachVPNGatewayResponse'     { _avgrsVPCAttachment = Nothing-    , _avgrsStatus = pStatus_+    , _avgrsResponseStatus = pResponseStatus_     }  -- | Information about the attachment.@@ -140,5 +140,5 @@ avgrsVPCAttachment = lens _avgrsVPCAttachment (\ s a -> s{_avgrsVPCAttachment = a});  -- | The response status code.-avgrsStatus :: Lens' AttachVPNGatewayResponse Int-avgrsStatus = lens _avgrsStatus (\ s a -> s{_avgrsStatus = a});+avgrsResponseStatus :: Lens' AttachVPNGatewayResponse Int+avgrsResponseStatus = lens _avgrsResponseStatus (\ s a -> s{_avgrsResponseStatus = a});

@@ -53,8 +53,8 @@     , asgiGroupId     , asgiToPort     , asgiCIdRIP-    , asgiGroupName     , asgiSourceSecurityGroupOwnerId+    , asgiGroupName     , asgiSourceSecurityGroupName     , asgiDryRun @@ -77,8 +77,8 @@     , _asgiGroupId                    :: !(Maybe Text)     , _asgiToPort                     :: !(Maybe Int)     , _asgiCIdRIP                     :: !(Maybe Text)-    , _asgiGroupName                  :: !(Maybe Text)     , _asgiSourceSecurityGroupOwnerId :: !(Maybe Text)+    , _asgiGroupName                  :: !(Maybe Text)     , _asgiSourceSecurityGroupName    :: !(Maybe Text)     , _asgiDryRun                     :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -99,10 +99,10 @@ -- -- * 'asgiCIdRIP' ----- * 'asgiGroupName'--- -- * 'asgiSourceSecurityGroupOwnerId' --+-- * 'asgiGroupName'+-- -- * 'asgiSourceSecurityGroupName' -- -- * 'asgiDryRun'@@ -116,8 +116,8 @@     , _asgiGroupId = Nothing     , _asgiToPort = Nothing     , _asgiCIdRIP = Nothing-    , _asgiGroupName = Nothing     , _asgiSourceSecurityGroupOwnerId = Nothing+    , _asgiGroupName = Nothing     , _asgiSourceSecurityGroupName = Nothing     , _asgiDryRun = Nothing     }@@ -153,10 +153,6 @@ asgiCIdRIP :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) asgiCIdRIP = lens _asgiCIdRIP (\ s a -> s{_asgiCIdRIP = a}); --- | [EC2-Classic, default VPC] The name of the security group.-asgiGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)-asgiGroupName = lens _asgiGroupName (\ s a -> s{_asgiGroupName = a});- -- | [EC2-Classic, default VPC] The AWS account number for the source -- security group. For EC2-VPC, the source security group must be in the -- same VPC. You can\'t specify this parameter in combination with the@@ -168,6 +164,10 @@ asgiSourceSecurityGroupOwnerId :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) asgiSourceSecurityGroupOwnerId = lens _asgiSourceSecurityGroupOwnerId (\ s a -> s{_asgiSourceSecurityGroupOwnerId = a}); +-- | [EC2-Classic, default VPC] The name of the security group.+asgiGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text)+asgiGroupName = lens _asgiGroupName (\ s a -> s{_asgiGroupName = a});+ -- | [EC2-Classic, default VPC] The name of the source security group. You -- can\'t specify this parameter in combination with the following -- parameters: the CIDR IP address range, the start of the port range, the@@ -210,9 +210,9 @@                "IpProtocol" =: _asgiIPProtocol,                "GroupId" =: _asgiGroupId, "ToPort" =: _asgiToPort,                "CidrIp" =: _asgiCIdRIP,-               "GroupName" =: _asgiGroupName,                "SourceSecurityGroupOwnerId" =:                  _asgiSourceSecurityGroupOwnerId,+               "GroupName" =: _asgiGroupName,                "SourceSecurityGroupName" =:                  _asgiSourceSecurityGroupName,                "DryRun" =: _asgiDryRun]

@@ -45,7 +45,7 @@     , BundleInstanceResponse     -- * Response Lenses     , birsBundleTask-    , birsStatus+    , birsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -130,8 +130,8 @@  -- | /See:/ 'bundleInstanceResponse' smart constructor. data BundleInstanceResponse = BundleInstanceResponse'-    { _birsBundleTask :: !(Maybe BundleTask)-    , _birsStatus     :: !Int+    { _birsBundleTask     :: !(Maybe BundleTask)+    , _birsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'BundleInstanceResponse' with the minimum fields required to make a request.@@ -140,14 +140,14 @@ -- -- * 'birsBundleTask' ----- * 'birsStatus'+-- * 'birsResponseStatus' bundleInstanceResponse-    :: Int -- ^ 'birsStatus'+    :: Int -- ^ 'birsResponseStatus'     -> BundleInstanceResponse-bundleInstanceResponse pStatus_ =+bundleInstanceResponse pResponseStatus_ =     BundleInstanceResponse'     { _birsBundleTask = Nothing-    , _birsStatus = pStatus_+    , _birsResponseStatus = pResponseStatus_     }  -- | Information about the bundle task.@@ -155,5 +155,5 @@ birsBundleTask = lens _birsBundleTask (\ s a -> s{_birsBundleTask = a});  -- | The response status code.-birsStatus :: Lens' BundleInstanceResponse Int-birsStatus = lens _birsStatus (\ s a -> s{_birsStatus = a});+birsResponseStatus :: Lens' BundleInstanceResponse Int+birsResponseStatus = lens _birsResponseStatus (\ s a -> s{_birsResponseStatus = a});

@@ -36,7 +36,7 @@     , CancelBundleTaskResponse     -- * Response Lenses     , cbtrsBundleTask-    , cbtrsStatus+    , cbtrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -102,8 +102,8 @@  -- | /See:/ 'cancelBundleTaskResponse' smart constructor. data CancelBundleTaskResponse = CancelBundleTaskResponse'-    { _cbtrsBundleTask :: !(Maybe BundleTask)-    , _cbtrsStatus     :: !Int+    { _cbtrsBundleTask     :: !(Maybe BundleTask)+    , _cbtrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CancelBundleTaskResponse' with the minimum fields required to make a request.@@ -112,14 +112,14 @@ -- -- * 'cbtrsBundleTask' ----- * 'cbtrsStatus'+-- * 'cbtrsResponseStatus' cancelBundleTaskResponse-    :: Int -- ^ 'cbtrsStatus'+    :: Int -- ^ 'cbtrsResponseStatus'     -> CancelBundleTaskResponse-cancelBundleTaskResponse pStatus_ =+cancelBundleTaskResponse pResponseStatus_ =     CancelBundleTaskResponse'     { _cbtrsBundleTask = Nothing-    , _cbtrsStatus = pStatus_+    , _cbtrsResponseStatus = pResponseStatus_     }  -- | Information about the bundle task.@@ -127,5 +127,5 @@ cbtrsBundleTask = lens _cbtrsBundleTask (\ s a -> s{_cbtrsBundleTask = a});  -- | The response status code.-cbtrsStatus :: Lens' CancelBundleTaskResponse Int-cbtrsStatus = lens _cbtrsStatus (\ s a -> s{_cbtrsStatus = a});+cbtrsResponseStatus :: Lens' CancelBundleTaskResponse Int+cbtrsResponseStatus = lens _cbtrsResponseStatus (\ s a -> s{_cbtrsResponseStatus = a});

@@ -38,7 +38,7 @@     , citrsState     , citrsImportTaskId     , citrsPreviousState-    , citrsStatus+    , citrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -115,10 +115,10 @@  -- | /See:/ 'cancelImportTaskResponse' smart constructor. data CancelImportTaskResponse = CancelImportTaskResponse'-    { _citrsState         :: !(Maybe Text)-    , _citrsImportTaskId  :: !(Maybe Text)-    , _citrsPreviousState :: !(Maybe Text)-    , _citrsStatus        :: !Int+    { _citrsState          :: !(Maybe Text)+    , _citrsImportTaskId   :: !(Maybe Text)+    , _citrsPreviousState  :: !(Maybe Text)+    , _citrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CancelImportTaskResponse' with the minimum fields required to make a request.@@ -131,16 +131,16 @@ -- -- * 'citrsPreviousState' ----- * 'citrsStatus'+-- * 'citrsResponseStatus' cancelImportTaskResponse-    :: Int -- ^ 'citrsStatus'+    :: Int -- ^ 'citrsResponseStatus'     -> CancelImportTaskResponse-cancelImportTaskResponse pStatus_ =+cancelImportTaskResponse pResponseStatus_ =     CancelImportTaskResponse'     { _citrsState = Nothing     , _citrsImportTaskId = Nothing     , _citrsPreviousState = Nothing-    , _citrsStatus = pStatus_+    , _citrsResponseStatus = pResponseStatus_     }  -- | The current state of the task being canceled.@@ -156,5 +156,5 @@ citrsPreviousState = lens _citrsPreviousState (\ s a -> s{_citrsPreviousState = a});  -- | The response status code.-citrsStatus :: Lens' CancelImportTaskResponse Int-citrsStatus = lens _citrsStatus (\ s a -> s{_citrsStatus = a});+citrsResponseStatus :: Lens' CancelImportTaskResponse Int+citrsResponseStatus = lens _citrsResponseStatus (\ s a -> s{_citrsResponseStatus = a});

@@ -39,7 +39,7 @@     , CancelReservedInstancesListingResponse     -- * Response Lenses     , crilrsReservedInstancesListings-    , crilrsStatus+    , crilrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -102,7 +102,7 @@ -- | /See:/ 'cancelReservedInstancesListingResponse' smart constructor. data CancelReservedInstancesListingResponse = CancelReservedInstancesListingResponse'     { _crilrsReservedInstancesListings :: !(Maybe [ReservedInstancesListing])-    , _crilrsStatus                    :: !Int+    , _crilrsResponseStatus            :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CancelReservedInstancesListingResponse' with the minimum fields required to make a request.@@ -111,14 +111,14 @@ -- -- * 'crilrsReservedInstancesListings' ----- * 'crilrsStatus'+-- * 'crilrsResponseStatus' cancelReservedInstancesListingResponse-    :: Int -- ^ 'crilrsStatus'+    :: Int -- ^ 'crilrsResponseStatus'     -> CancelReservedInstancesListingResponse-cancelReservedInstancesListingResponse pStatus_ =+cancelReservedInstancesListingResponse pResponseStatus_ =     CancelReservedInstancesListingResponse'     { _crilrsReservedInstancesListings = Nothing-    , _crilrsStatus = pStatus_+    , _crilrsResponseStatus = pResponseStatus_     }  -- | The Reserved Instance listing.@@ -126,5 +126,5 @@ crilrsReservedInstancesListings = lens _crilrsReservedInstancesListings (\ s a -> s{_crilrsReservedInstancesListings = a}) . _Default . _Coerce;  -- | The response status code.-crilrsStatus :: Lens' CancelReservedInstancesListingResponse Int-crilrsStatus = lens _crilrsStatus (\ s a -> s{_crilrsStatus = a});+crilrsResponseStatus :: Lens' CancelReservedInstancesListingResponse Int+crilrsResponseStatus = lens _crilrsResponseStatus (\ s a -> s{_crilrsResponseStatus = a});

@@ -37,7 +37,7 @@     -- * Response Lenses     , csfrrsSuccessfulFleetRequests     , csfrrsUnsuccessfulFleetRequests-    , csfrrsStatus+    , csfrrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -128,7 +128,7 @@ data CancelSpotFleetRequestsResponse = CancelSpotFleetRequestsResponse'     { _csfrrsSuccessfulFleetRequests   :: !(Maybe [CancelSpotFleetRequestsSuccessItem])     , _csfrrsUnsuccessfulFleetRequests :: !(Maybe [CancelSpotFleetRequestsErrorItem])-    , _csfrrsStatus                    :: !Int+    , _csfrrsResponseStatus            :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CancelSpotFleetRequestsResponse' with the minimum fields required to make a request.@@ -139,15 +139,15 @@ -- -- * 'csfrrsUnsuccessfulFleetRequests' ----- * 'csfrrsStatus'+-- * 'csfrrsResponseStatus' cancelSpotFleetRequestsResponse-    :: Int -- ^ 'csfrrsStatus'+    :: Int -- ^ 'csfrrsResponseStatus'     -> CancelSpotFleetRequestsResponse-cancelSpotFleetRequestsResponse pStatus_ =+cancelSpotFleetRequestsResponse pResponseStatus_ =     CancelSpotFleetRequestsResponse'     { _csfrrsSuccessfulFleetRequests = Nothing     , _csfrrsUnsuccessfulFleetRequests = Nothing-    , _csfrrsStatus = pStatus_+    , _csfrrsResponseStatus = pResponseStatus_     }  -- | Information about the Spot fleet requests that are successfully@@ -161,5 +161,5 @@ csfrrsUnsuccessfulFleetRequests = lens _csfrrsUnsuccessfulFleetRequests (\ s a -> s{_csfrrsUnsuccessfulFleetRequests = a}) . _Default . _Coerce;  -- | The response status code.-csfrrsStatus :: Lens' CancelSpotFleetRequestsResponse Int-csfrrsStatus = lens _csfrrsStatus (\ s a -> s{_csfrrsStatus = a});+csfrrsResponseStatus :: Lens' CancelSpotFleetRequestsResponse Int+csfrrsResponseStatus = lens _csfrrsResponseStatus (\ s a -> s{_csfrrsResponseStatus = a});

@@ -44,7 +44,7 @@     , CancelSpotInstanceRequestsResponse     -- * Response Lenses     , csirrsCancelledSpotInstanceRequests-    , csirrsStatus+    , csirrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -120,7 +120,7 @@ -- /See:/ 'cancelSpotInstanceRequestsResponse' smart constructor. data CancelSpotInstanceRequestsResponse = CancelSpotInstanceRequestsResponse'     { _csirrsCancelledSpotInstanceRequests :: !(Maybe [CancelledSpotInstanceRequest])-    , _csirrsStatus                        :: !Int+    , _csirrsResponseStatus                :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CancelSpotInstanceRequestsResponse' with the minimum fields required to make a request.@@ -129,14 +129,14 @@ -- -- * 'csirrsCancelledSpotInstanceRequests' ----- * 'csirrsStatus'+-- * 'csirrsResponseStatus' cancelSpotInstanceRequestsResponse-    :: Int -- ^ 'csirrsStatus'+    :: Int -- ^ 'csirrsResponseStatus'     -> CancelSpotInstanceRequestsResponse-cancelSpotInstanceRequestsResponse pStatus_ =+cancelSpotInstanceRequestsResponse pResponseStatus_ =     CancelSpotInstanceRequestsResponse'     { _csirrsCancelledSpotInstanceRequests = Nothing-    , _csirrsStatus = pStatus_+    , _csirrsResponseStatus = pResponseStatus_     }  -- | One or more Spot Instance requests.@@ -144,5 +144,5 @@ csirrsCancelledSpotInstanceRequests = lens _csirrsCancelledSpotInstanceRequests (\ s a -> s{_csirrsCancelledSpotInstanceRequests = a}) . _Default . _Coerce;  -- | The response status code.-csirrsStatus :: Lens' CancelSpotInstanceRequestsResponse Int-csirrsStatus = lens _csirrsStatus (\ s a -> s{_csirrsStatus = a});+csirrsResponseStatus :: Lens' CancelSpotInstanceRequestsResponse Int+csirrsResponseStatus = lens _csirrsResponseStatus (\ s a -> s{_csirrsResponseStatus = a});

@@ -40,7 +40,7 @@     -- * Response Lenses     , cpirsReturn     , cpirsOwnerId-    , cpirsStatus+    , cpirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -120,9 +120,9 @@  -- | /See:/ 'confirmProductInstanceResponse' smart constructor. data ConfirmProductInstanceResponse = ConfirmProductInstanceResponse'-    { _cpirsReturn  :: !(Maybe Bool)-    , _cpirsOwnerId :: !(Maybe Text)-    , _cpirsStatus  :: !Int+    { _cpirsReturn         :: !(Maybe Bool)+    , _cpirsOwnerId        :: !(Maybe Text)+    , _cpirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'ConfirmProductInstanceResponse' with the minimum fields required to make a request.@@ -133,15 +133,15 @@ -- -- * 'cpirsOwnerId' ----- * 'cpirsStatus'+-- * 'cpirsResponseStatus' confirmProductInstanceResponse-    :: Int -- ^ 'cpirsStatus'+    :: Int -- ^ 'cpirsResponseStatus'     -> ConfirmProductInstanceResponse-confirmProductInstanceResponse pStatus_ =+confirmProductInstanceResponse pResponseStatus_ =     ConfirmProductInstanceResponse'     { _cpirsReturn = Nothing     , _cpirsOwnerId = Nothing-    , _cpirsStatus = pStatus_+    , _cpirsResponseStatus = pResponseStatus_     }  -- | The return value of the request. Returns 'true' if the specified product@@ -156,5 +156,5 @@ cpirsOwnerId = lens _cpirsOwnerId (\ s a -> s{_cpirsOwnerId = a});  -- | The response status code.-cpirsStatus :: Lens' ConfirmProductInstanceResponse Int-cpirsStatus = lens _cpirsStatus (\ s a -> s{_cpirsStatus = a});+cpirsResponseStatus :: Lens' ConfirmProductInstanceResponse Int+cpirsResponseStatus = lens _cpirsResponseStatus (\ s a -> s{_cpirsResponseStatus = a});

@@ -35,8 +35,8 @@     , CopyImage     -- * Request Lenses     , ciClientToken-    , ciDryRun     , ciDescription+    , ciDryRun     , ciSourceRegion     , ciSourceImageId     , ciName@@ -46,7 +46,7 @@     , CopyImageResponse     -- * Response Lenses     , coprsImageId-    , coprsStatus+    , coprsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -58,8 +58,8 @@ -- | /See:/ 'copyImage' smart constructor. data CopyImage = CopyImage'     { _ciClientToken   :: !(Maybe Text)-    , _ciDryRun        :: !(Maybe Bool)     , _ciDescription   :: !(Maybe Text)+    , _ciDryRun        :: !(Maybe Bool)     , _ciSourceRegion  :: !Text     , _ciSourceImageId :: !Text     , _ciName          :: !Text@@ -71,10 +71,10 @@ -- -- * 'ciClientToken' ----- * 'ciDryRun'--- -- * 'ciDescription' --+-- * 'ciDryRun'+-- -- * 'ciSourceRegion' -- -- * 'ciSourceImageId'@@ -88,8 +88,8 @@ copyImage pSourceRegion_ pSourceImageId_ pName_ =     CopyImage'     { _ciClientToken = Nothing-    , _ciDryRun = Nothing     , _ciDescription = Nothing+    , _ciDryRun = Nothing     , _ciSourceRegion = pSourceRegion_     , _ciSourceImageId = pSourceImageId_     , _ciName = pName_@@ -102,6 +102,10 @@ ciClientToken :: Lens' CopyImage (Maybe Text) ciClientToken = lens _ciClientToken (\ s a -> s{_ciClientToken = a}); +-- | A description for the new AMI in the destination region.+ciDescription :: Lens' CopyImage (Maybe Text)+ciDescription = lens _ciDescription (\ s a -> s{_ciDescription = a});+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -109,10 +113,6 @@ ciDryRun :: Lens' CopyImage (Maybe Bool) ciDryRun = lens _ciDryRun (\ s a -> s{_ciDryRun = a}); --- | A description for the new AMI in the destination region.-ciDescription :: Lens' CopyImage (Maybe Text)-ciDescription = lens _ciDescription (\ s a -> s{_ciDescription = a});- -- | The name of the region that contains the AMI to copy. ciSourceRegion :: Lens' CopyImage Text ciSourceRegion = lens _ciSourceRegion (\ s a -> s{_ciSourceRegion = a});@@ -146,16 +146,16 @@               ["Action" =: ("CopyImage" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),                "ClientToken" =: _ciClientToken,-               "DryRun" =: _ciDryRun,                "Description" =: _ciDescription,+               "DryRun" =: _ciDryRun,                "SourceRegion" =: _ciSourceRegion,                "SourceImageId" =: _ciSourceImageId,                "Name" =: _ciName]  -- | /See:/ 'copyImageResponse' smart constructor. data CopyImageResponse = CopyImageResponse'-    { _coprsImageId :: !(Maybe Text)-    , _coprsStatus  :: !Int+    { _coprsImageId        :: !(Maybe Text)+    , _coprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CopyImageResponse' with the minimum fields required to make a request.@@ -164,14 +164,14 @@ -- -- * 'coprsImageId' ----- * 'coprsStatus'+-- * 'coprsResponseStatus' copyImageResponse-    :: Int -- ^ 'coprsStatus'+    :: Int -- ^ 'coprsResponseStatus'     -> CopyImageResponse-copyImageResponse pStatus_ =+copyImageResponse pResponseStatus_ =     CopyImageResponse'     { _coprsImageId = Nothing-    , _coprsStatus = pStatus_+    , _coprsResponseStatus = pResponseStatus_     }  -- | The ID of the new AMI.@@ -179,5 +179,5 @@ coprsImageId = lens _coprsImageId (\ s a -> s{_coprsImageId = a});  -- | The response status code.-coprsStatus :: Lens' CopyImageResponse Int-coprsStatus = lens _coprsStatus (\ s a -> s{_coprsStatus = a});+coprsResponseStatus :: Lens' CopyImageResponse Int+coprsResponseStatus = lens _coprsResponseStatus (\ s a -> s{_coprsResponseStatus = a});

@@ -42,12 +42,12 @@       copySnapshot     , CopySnapshot     -- * Request Lenses-    , csEncrypted     , csPresignedURL+    , csEncrypted     , csDestinationRegion     , csKMSKeyId-    , csDryRun     , csDescription+    , csDryRun     , csSourceRegion     , csSourceSnapshotId @@ -56,7 +56,7 @@     , CopySnapshotResponse     -- * Response Lenses     , csrsSnapshotId-    , csrsStatus+    , csrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -67,12 +67,12 @@  -- | /See:/ 'copySnapshot' smart constructor. data CopySnapshot = CopySnapshot'-    { _csEncrypted         :: !(Maybe Bool)-    , _csPresignedURL      :: !(Maybe Text)+    { _csPresignedURL      :: !(Maybe Text)+    , _csEncrypted         :: !(Maybe Bool)     , _csDestinationRegion :: !(Maybe Text)     , _csKMSKeyId          :: !(Maybe Text)-    , _csDryRun            :: !(Maybe Bool)     , _csDescription       :: !(Maybe Text)+    , _csDryRun            :: !(Maybe Bool)     , _csSourceRegion      :: !Text     , _csSourceSnapshotId  :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -81,18 +81,18 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csEncrypted'--- -- * 'csPresignedURL' --+-- * 'csEncrypted'+-- -- * 'csDestinationRegion' -- -- * 'csKMSKeyId' ----- * 'csDryRun'--- -- * 'csDescription' --+-- * 'csDryRun'+-- -- * 'csSourceRegion' -- -- * 'csSourceSnapshotId'@@ -102,27 +102,16 @@     -> CopySnapshot copySnapshot pSourceRegion_ pSourceSnapshotId_ =     CopySnapshot'-    { _csEncrypted = Nothing-    , _csPresignedURL = Nothing+    { _csPresignedURL = Nothing+    , _csEncrypted = Nothing     , _csDestinationRegion = Nothing     , _csKMSKeyId = Nothing-    , _csDryRun = Nothing     , _csDescription = Nothing+    , _csDryRun = Nothing     , _csSourceRegion = pSourceRegion_     , _csSourceSnapshotId = pSourceSnapshotId_     } --- | Specifies whether the destination snapshot should be encrypted. There is--- no way to create an unencrypted snapshot copy from an encrypted--- snapshot; however, you can encrypt a copy of an unencrypted snapshot--- with this flag. The default CMK for EBS is used unless a non-default AWS--- Key Management Service (AWS KMS) CMK is specified with 'KmsKeyId'. For--- more information, see--- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBS Encryption>--- in the /Amazon Elastic Compute Cloud User Guide/.-csEncrypted :: Lens' CopySnapshot (Maybe Bool)-csEncrypted = lens _csEncrypted (\ s a -> s{_csEncrypted = a});- -- | The pre-signed URL that facilitates copying an encrypted snapshot. This -- parameter is only required when copying an encrypted snapshot with the -- Amazon EC2 Query API; it is available as an optional parameter in all@@ -139,6 +128,17 @@ csPresignedURL :: Lens' CopySnapshot (Maybe Text) csPresignedURL = lens _csPresignedURL (\ s a -> s{_csPresignedURL = a}); +-- | Specifies whether the destination snapshot should be encrypted. There is+-- no way to create an unencrypted snapshot copy from an encrypted+-- snapshot; however, you can encrypt a copy of an unencrypted snapshot+-- with this flag. The default CMK for EBS is used unless a non-default AWS+-- Key Management Service (AWS KMS) CMK is specified with 'KmsKeyId'. For+-- more information, see+-- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBS Encryption>+-- in the /Amazon Elastic Compute Cloud User Guide/.+csEncrypted :: Lens' CopySnapshot (Maybe Bool)+csEncrypted = lens _csEncrypted (\ s a -> s{_csEncrypted = a});+ -- | The destination region to use in the 'PresignedUrl' parameter of a -- snapshot copy operation. This parameter is only valid for specifying the -- destination region in a 'PresignedUrl' parameter, where it is required.@@ -163,6 +163,10 @@ csKMSKeyId :: Lens' CopySnapshot (Maybe Text) csKMSKeyId = lens _csKMSKeyId (\ s a -> s{_csKMSKeyId = a}); +-- | A description for the EBS snapshot.+csDescription :: Lens' CopySnapshot (Maybe Text)+csDescription = lens _csDescription (\ s a -> s{_csDescription = a});+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -170,10 +174,6 @@ csDryRun :: Lens' CopySnapshot (Maybe Bool) csDryRun = lens _csDryRun (\ s a -> s{_csDryRun = a}); --- | A description for the EBS snapshot.-csDescription :: Lens' CopySnapshot (Maybe Text)-csDescription = lens _csDescription (\ s a -> s{_csDescription = a});- -- | The ID of the region that contains the snapshot to be copied. csSourceRegion :: Lens' CopySnapshot Text csSourceRegion = lens _csSourceRegion (\ s a -> s{_csSourceRegion = a});@@ -202,18 +202,19 @@           = mconcat               ["Action" =: ("CopySnapshot" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),-               "Encrypted" =: _csEncrypted,                "PresignedUrl" =: _csPresignedURL,+               "Encrypted" =: _csEncrypted,                "DestinationRegion" =: _csDestinationRegion,-               "KmsKeyId" =: _csKMSKeyId, "DryRun" =: _csDryRun,+               "KmsKeyId" =: _csKMSKeyId,                "Description" =: _csDescription,+               "DryRun" =: _csDryRun,                "SourceRegion" =: _csSourceRegion,                "SourceSnapshotId" =: _csSourceSnapshotId]  -- | /See:/ 'copySnapshotResponse' smart constructor. data CopySnapshotResponse = CopySnapshotResponse'-    { _csrsSnapshotId :: !(Maybe Text)-    , _csrsStatus     :: !Int+    { _csrsSnapshotId     :: !(Maybe Text)+    , _csrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CopySnapshotResponse' with the minimum fields required to make a request.@@ -222,14 +223,14 @@ -- -- * 'csrsSnapshotId' ----- * 'csrsStatus'+-- * 'csrsResponseStatus' copySnapshotResponse-    :: Int -- ^ 'csrsStatus'+    :: Int -- ^ 'csrsResponseStatus'     -> CopySnapshotResponse-copySnapshotResponse pStatus_ =+copySnapshotResponse pResponseStatus_ =     CopySnapshotResponse'     { _csrsSnapshotId = Nothing-    , _csrsStatus = pStatus_+    , _csrsResponseStatus = pResponseStatus_     }  -- | The ID of the new snapshot.@@ -237,5 +238,5 @@ csrsSnapshotId = lens _csrsSnapshotId (\ s a -> s{_csrsSnapshotId = a});  -- | The response status code.-csrsStatus :: Lens' CopySnapshotResponse Int-csrsStatus = lens _csrsStatus (\ s a -> s{_csrsStatus = a});+csrsResponseStatus :: Lens' CopySnapshotResponse Int+csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a});

@@ -63,7 +63,7 @@     , CreateCustomerGatewayResponse     -- * Response Lenses     , ccgrsCustomerGateway-    , ccgrsStatus+    , ccgrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -154,7 +154,7 @@ -- | /See:/ 'createCustomerGatewayResponse' smart constructor. data CreateCustomerGatewayResponse = CreateCustomerGatewayResponse'     { _ccgrsCustomerGateway :: !(Maybe CustomerGateway)-    , _ccgrsStatus          :: !Int+    , _ccgrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateCustomerGatewayResponse' with the minimum fields required to make a request.@@ -163,14 +163,14 @@ -- -- * 'ccgrsCustomerGateway' ----- * 'ccgrsStatus'+-- * 'ccgrsResponseStatus' createCustomerGatewayResponse-    :: Int -- ^ 'ccgrsStatus'+    :: Int -- ^ 'ccgrsResponseStatus'     -> CreateCustomerGatewayResponse-createCustomerGatewayResponse pStatus_ =+createCustomerGatewayResponse pResponseStatus_ =     CreateCustomerGatewayResponse'     { _ccgrsCustomerGateway = Nothing-    , _ccgrsStatus = pStatus_+    , _ccgrsResponseStatus = pResponseStatus_     }  -- | Information about the customer gateway.@@ -178,5 +178,5 @@ ccgrsCustomerGateway = lens _ccgrsCustomerGateway (\ s a -> s{_ccgrsCustomerGateway = a});  -- | The response status code.-ccgrsStatus :: Lens' CreateCustomerGatewayResponse Int-ccgrsStatus = lens _ccgrsStatus (\ s a -> s{_ccgrsStatus = a});+ccgrsResponseStatus :: Lens' CreateCustomerGatewayResponse Int+ccgrsResponseStatus = lens _ccgrsResponseStatus (\ s a -> s{_ccgrsResponseStatus = a});

@@ -73,7 +73,7 @@     , CreateDHCPOptionsResponse     -- * Response Lenses     , cdorsDHCPOptions-    , cdorsStatus+    , cdorsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -140,8 +140,8 @@  -- | /See:/ 'createDHCPOptionsResponse' smart constructor. data CreateDHCPOptionsResponse = CreateDHCPOptionsResponse'-    { _cdorsDHCPOptions :: !(Maybe DHCPOptions)-    , _cdorsStatus      :: !Int+    { _cdorsDHCPOptions    :: !(Maybe DHCPOptions)+    , _cdorsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateDHCPOptionsResponse' with the minimum fields required to make a request.@@ -150,14 +150,14 @@ -- -- * 'cdorsDHCPOptions' ----- * 'cdorsStatus'+-- * 'cdorsResponseStatus' createDHCPOptionsResponse-    :: Int -- ^ 'cdorsStatus'+    :: Int -- ^ 'cdorsResponseStatus'     -> CreateDHCPOptionsResponse-createDHCPOptionsResponse pStatus_ =+createDHCPOptionsResponse pResponseStatus_ =     CreateDHCPOptionsResponse'     { _cdorsDHCPOptions = Nothing-    , _cdorsStatus = pStatus_+    , _cdorsResponseStatus = pResponseStatus_     }  -- | A set of DHCP options.@@ -165,5 +165,5 @@ cdorsDHCPOptions = lens _cdorsDHCPOptions (\ s a -> s{_cdorsDHCPOptions = a});  -- | The response status code.-cdorsStatus :: Lens' CreateDHCPOptionsResponse Int-cdorsStatus = lens _cdorsStatus (\ s a -> s{_cdorsStatus = a});+cdorsResponseStatus :: Lens' CreateDHCPOptionsResponse Int+cdorsResponseStatus = lens _cdorsResponseStatus (\ s a -> s{_cdorsResponseStatus = a});

@@ -50,7 +50,7 @@     , cflrsUnsuccessful     , cflrsClientToken     , cflrsFlowLogIds-    , cflrsStatus+    , cflrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -163,10 +163,10 @@  -- | /See:/ 'createFlowLogsResponse' smart constructor. data CreateFlowLogsResponse = CreateFlowLogsResponse'-    { _cflrsUnsuccessful :: !(Maybe [UnsuccessfulItem])-    , _cflrsClientToken  :: !(Maybe Text)-    , _cflrsFlowLogIds   :: !(Maybe [Text])-    , _cflrsStatus       :: !Int+    { _cflrsUnsuccessful   :: !(Maybe [UnsuccessfulItem])+    , _cflrsClientToken    :: !(Maybe Text)+    , _cflrsFlowLogIds     :: !(Maybe [Text])+    , _cflrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateFlowLogsResponse' with the minimum fields required to make a request.@@ -179,16 +179,16 @@ -- -- * 'cflrsFlowLogIds' ----- * 'cflrsStatus'+-- * 'cflrsResponseStatus' createFlowLogsResponse-    :: Int -- ^ 'cflrsStatus'+    :: Int -- ^ 'cflrsResponseStatus'     -> CreateFlowLogsResponse-createFlowLogsResponse pStatus_ =+createFlowLogsResponse pResponseStatus_ =     CreateFlowLogsResponse'     { _cflrsUnsuccessful = Nothing     , _cflrsClientToken = Nothing     , _cflrsFlowLogIds = Nothing-    , _cflrsStatus = pStatus_+    , _cflrsResponseStatus = pResponseStatus_     }  -- | Information about the flow logs that could not be created successfully.@@ -205,5 +205,5 @@ cflrsFlowLogIds = lens _cflrsFlowLogIds (\ s a -> s{_cflrsFlowLogIds = a}) . _Default . _Coerce;  -- | The response status code.-cflrsStatus :: Lens' CreateFlowLogsResponse Int-cflrsStatus = lens _cflrsStatus (\ s a -> s{_cflrsStatus = a});+cflrsResponseStatus :: Lens' CreateFlowLogsResponse Int+cflrsResponseStatus = lens _cflrsResponseStatus (\ s a -> s{_cflrsResponseStatus = a});

@@ -39,9 +39,9 @@     , CreateImage     -- * Request Lenses     , ciiNoReboot+    , ciiDescription     , ciiBlockDeviceMappings     , ciiDryRun-    , ciiDescription     , ciiInstanceId     , ciiName @@ -50,7 +50,7 @@     , CreateImageResponse     -- * Response Lenses     , cirsImageId-    , cirsStatus+    , cirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -62,9 +62,9 @@ -- | /See:/ 'createImage' smart constructor. data CreateImage = CreateImage'     { _ciiNoReboot            :: !(Maybe Bool)+    , _ciiDescription         :: !(Maybe Text)     , _ciiBlockDeviceMappings :: !(Maybe [BlockDeviceMapping])     , _ciiDryRun              :: !(Maybe Bool)-    , _ciiDescription         :: !(Maybe Text)     , _ciiInstanceId          :: !Text     , _ciiName                :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -75,12 +75,12 @@ -- -- * 'ciiNoReboot' --+-- * 'ciiDescription'+-- -- * 'ciiBlockDeviceMappings' -- -- * 'ciiDryRun' ----- * 'ciiDescription'--- -- * 'ciiInstanceId' -- -- * 'ciiName'@@ -91,9 +91,9 @@ createImage pInstanceId_ pName_ =     CreateImage'     { _ciiNoReboot = Nothing+    , _ciiDescription = Nothing     , _ciiBlockDeviceMappings = Nothing     , _ciiDryRun = Nothing-    , _ciiDescription = Nothing     , _ciiInstanceId = pInstanceId_     , _ciiName = pName_     }@@ -107,6 +107,10 @@ ciiNoReboot :: Lens' CreateImage (Maybe Bool) ciiNoReboot = lens _ciiNoReboot (\ s a -> s{_ciiNoReboot = a}); +-- | A description for the new image.+ciiDescription :: Lens' CreateImage (Maybe Text)+ciiDescription = lens _ciiDescription (\ s a -> s{_ciiDescription = a});+ -- | Information about one or more block device mappings. ciiBlockDeviceMappings :: Lens' CreateImage [BlockDeviceMapping] ciiBlockDeviceMappings = lens _ciiBlockDeviceMappings (\ s a -> s{_ciiBlockDeviceMappings = a}) . _Default . _Coerce;@@ -118,10 +122,6 @@ ciiDryRun :: Lens' CreateImage (Maybe Bool) ciiDryRun = lens _ciiDryRun (\ s a -> s{_ciiDryRun = a}); --- | A description for the new image.-ciiDescription :: Lens' CreateImage (Maybe Text)-ciiDescription = lens _ciiDescription (\ s a -> s{_ciiDescription = a});- -- | The ID of the instance. ciiInstanceId :: Lens' CreateImage Text ciiInstanceId = lens _ciiInstanceId (\ s a -> s{_ciiInstanceId = a});@@ -155,17 +155,17 @@               ["Action" =: ("CreateImage" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),                "NoReboot" =: _ciiNoReboot,+               "Description" =: _ciiDescription,                toQuery                  (toQueryList "BlockDeviceMapping" <$>                     _ciiBlockDeviceMappings),                "DryRun" =: _ciiDryRun,-               "Description" =: _ciiDescription,                "InstanceId" =: _ciiInstanceId, "Name" =: _ciiName]  -- | /See:/ 'createImageResponse' smart constructor. data CreateImageResponse = CreateImageResponse'-    { _cirsImageId :: !(Maybe Text)-    , _cirsStatus  :: !Int+    { _cirsImageId        :: !(Maybe Text)+    , _cirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateImageResponse' with the minimum fields required to make a request.@@ -174,14 +174,14 @@ -- -- * 'cirsImageId' ----- * 'cirsStatus'+-- * 'cirsResponseStatus' createImageResponse-    :: Int -- ^ 'cirsStatus'+    :: Int -- ^ 'cirsResponseStatus'     -> CreateImageResponse-createImageResponse pStatus_ =+createImageResponse pResponseStatus_ =     CreateImageResponse'     { _cirsImageId = Nothing-    , _cirsStatus = pStatus_+    , _cirsResponseStatus = pResponseStatus_     }  -- | The ID of the new AMI.@@ -189,5 +189,5 @@ cirsImageId = lens _cirsImageId (\ s a -> s{_cirsImageId = a});  -- | The response status code.-cirsStatus :: Lens' CreateImageResponse Int-cirsStatus = lens _cirsStatus (\ s a -> s{_cirsStatus = a});+cirsResponseStatus :: Lens' CreateImageResponse Int+cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a});

@@ -42,7 +42,7 @@     , CreateInstanceExportTaskResponse     -- * Response Lenses     , cietrsExportTask-    , cietrsStatus+    , cietrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -127,8 +127,8 @@  -- | /See:/ 'createInstanceExportTaskResponse' smart constructor. data CreateInstanceExportTaskResponse = CreateInstanceExportTaskResponse'-    { _cietrsExportTask :: !(Maybe ExportTask)-    , _cietrsStatus     :: !Int+    { _cietrsExportTask     :: !(Maybe ExportTask)+    , _cietrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateInstanceExportTaskResponse' with the minimum fields required to make a request.@@ -137,14 +137,14 @@ -- -- * 'cietrsExportTask' ----- * 'cietrsStatus'+-- * 'cietrsResponseStatus' createInstanceExportTaskResponse-    :: Int -- ^ 'cietrsStatus'+    :: Int -- ^ 'cietrsResponseStatus'     -> CreateInstanceExportTaskResponse-createInstanceExportTaskResponse pStatus_ =+createInstanceExportTaskResponse pResponseStatus_ =     CreateInstanceExportTaskResponse'     { _cietrsExportTask = Nothing-    , _cietrsStatus = pStatus_+    , _cietrsResponseStatus = pResponseStatus_     }  -- | Information about the instance export task.@@ -152,5 +152,5 @@ cietrsExportTask = lens _cietrsExportTask (\ s a -> s{_cietrsExportTask = a});  -- | The response status code.-cietrsStatus :: Lens' CreateInstanceExportTaskResponse Int-cietrsStatus = lens _cietrsStatus (\ s a -> s{_cietrsStatus = a});+cietrsResponseStatus :: Lens' CreateInstanceExportTaskResponse Int+cietrsResponseStatus = lens _cietrsResponseStatus (\ s a -> s{_cietrsResponseStatus = a});

@@ -38,7 +38,7 @@     , CreateInternetGatewayResponse     -- * Response Lenses     , cigrsInternetGateway-    , cigrsStatus+    , cigrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -97,7 +97,7 @@ -- | /See:/ 'createInternetGatewayResponse' smart constructor. data CreateInternetGatewayResponse = CreateInternetGatewayResponse'     { _cigrsInternetGateway :: !(Maybe InternetGateway)-    , _cigrsStatus          :: !Int+    , _cigrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateInternetGatewayResponse' with the minimum fields required to make a request.@@ -106,14 +106,14 @@ -- -- * 'cigrsInternetGateway' ----- * 'cigrsStatus'+-- * 'cigrsResponseStatus' createInternetGatewayResponse-    :: Int -- ^ 'cigrsStatus'+    :: Int -- ^ 'cigrsResponseStatus'     -> CreateInternetGatewayResponse-createInternetGatewayResponse pStatus_ =+createInternetGatewayResponse pResponseStatus_ =     CreateInternetGatewayResponse'     { _cigrsInternetGateway = Nothing-    , _cigrsStatus = pStatus_+    , _cigrsResponseStatus = pResponseStatus_     }  -- | Information about the Internet gateway.@@ -121,5 +121,5 @@ cigrsInternetGateway = lens _cigrsInternetGateway (\ s a -> s{_cigrsInternetGateway = a});  -- | The response status code.-cigrsStatus :: Lens' CreateInternetGatewayResponse Int-cigrsStatus = lens _cigrsStatus (\ s a -> s{_cigrsStatus = a});+cigrsResponseStatus :: Lens' CreateInternetGatewayResponse Int+cigrsResponseStatus = lens _cigrsResponseStatus (\ s a -> s{_cigrsResponseStatus = a});

@@ -48,7 +48,7 @@     , createKeyPairResponse     , CreateKeyPairResponse     -- * Response Lenses-    , ckprsStatus+    , ckprsResponseStatus     , ckprsKeyName     , ckprsKeyFingerprint     , ckprsKeyMaterial@@ -123,7 +123,7 @@ -- -- /See:/ 'createKeyPairResponse' smart constructor. data CreateKeyPairResponse = CreateKeyPairResponse'-    { _ckprsStatus         :: !Int+    { _ckprsResponseStatus :: !Int     , _ckprsKeyName        :: !Text     , _ckprsKeyFingerprint :: !Text     , _ckprsKeyMaterial    :: !Text@@ -133,7 +133,7 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ckprsStatus'+-- * 'ckprsResponseStatus' -- -- * 'ckprsKeyName' --@@ -141,22 +141,22 @@ -- -- * 'ckprsKeyMaterial' createKeyPairResponse-    :: Int -- ^ 'ckprsStatus'+    :: Int -- ^ 'ckprsResponseStatus'     -> Text -- ^ 'ckprsKeyName'     -> Text -- ^ 'ckprsKeyFingerprint'     -> Text -- ^ 'ckprsKeyMaterial'     -> CreateKeyPairResponse-createKeyPairResponse pStatus_ pKeyName_ pKeyFingerprint_ pKeyMaterial_ =+createKeyPairResponse pResponseStatus_ pKeyName_ pKeyFingerprint_ pKeyMaterial_ =     CreateKeyPairResponse'-    { _ckprsStatus = pStatus_+    { _ckprsResponseStatus = pResponseStatus_     , _ckprsKeyName = pKeyName_     , _ckprsKeyFingerprint = pKeyFingerprint_     , _ckprsKeyMaterial = pKeyMaterial_     }  -- | The response status code.-ckprsStatus :: Lens' CreateKeyPairResponse Int-ckprsStatus = lens _ckprsStatus (\ s a -> s{_ckprsStatus = a});+ckprsResponseStatus :: Lens' CreateKeyPairResponse Int+ckprsResponseStatus = lens _ckprsResponseStatus (\ s a -> s{_ckprsResponseStatus = a});  -- | The name of the key pair. ckprsKeyName :: Lens' CreateKeyPairResponse Text

@@ -41,7 +41,7 @@     , CreateNetworkACLResponse     -- * Response Lenses     , cnarsNetworkACL-    , cnarsStatus+    , cnarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -107,8 +107,8 @@  -- | /See:/ 'createNetworkACLResponse' smart constructor. data CreateNetworkACLResponse = CreateNetworkACLResponse'-    { _cnarsNetworkACL :: !(Maybe NetworkACL)-    , _cnarsStatus     :: !Int+    { _cnarsNetworkACL     :: !(Maybe NetworkACL)+    , _cnarsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateNetworkACLResponse' with the minimum fields required to make a request.@@ -117,14 +117,14 @@ -- -- * 'cnarsNetworkACL' ----- * 'cnarsStatus'+-- * 'cnarsResponseStatus' createNetworkACLResponse-    :: Int -- ^ 'cnarsStatus'+    :: Int -- ^ 'cnarsResponseStatus'     -> CreateNetworkACLResponse-createNetworkACLResponse pStatus_ =+createNetworkACLResponse pResponseStatus_ =     CreateNetworkACLResponse'     { _cnarsNetworkACL = Nothing-    , _cnarsStatus = pStatus_+    , _cnarsResponseStatus = pResponseStatus_     }  -- | Information about the network ACL.@@ -132,5 +132,5 @@ cnarsNetworkACL = lens _cnarsNetworkACL (\ s a -> s{_cnarsNetworkACL = a});  -- | The response status code.-cnarsStatus :: Lens' CreateNetworkACLResponse Int-cnarsStatus = lens _cnarsStatus (\ s a -> s{_cnarsStatus = a});+cnarsResponseStatus :: Lens' CreateNetworkACLResponse Int+cnarsResponseStatus = lens _cnarsResponseStatus (\ s a -> s{_cnarsResponseStatus = a});

@@ -31,12 +31,12 @@       createNetworkInterface     , CreateNetworkInterface     -- * Request Lenses-    , cniPrivateIPAddresses     , cniGroups+    , cniPrivateIPAddresses     , cniPrivateIPAddress     , cniSecondaryPrivateIPAddressCount-    , cniDryRun     , cniDescription+    , cniDryRun     , cniSubnetId      -- * Destructuring the Response@@ -44,7 +44,7 @@     , CreateNetworkInterfaceResponse     -- * Response Lenses     , cnirsNetworkInterface-    , cnirsStatus+    , cnirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -55,12 +55,12 @@  -- | /See:/ 'createNetworkInterface' smart constructor. data CreateNetworkInterface = CreateNetworkInterface'-    { _cniPrivateIPAddresses             :: !(Maybe [PrivateIPAddressSpecification])-    , _cniGroups                         :: !(Maybe [Text])+    { _cniGroups                         :: !(Maybe [Text])+    , _cniPrivateIPAddresses             :: !(Maybe [PrivateIPAddressSpecification])     , _cniPrivateIPAddress               :: !(Maybe Text)     , _cniSecondaryPrivateIPAddressCount :: !(Maybe Int)-    , _cniDryRun                         :: !(Maybe Bool)     , _cniDescription                    :: !(Maybe Text)+    , _cniDryRun                         :: !(Maybe Bool)     , _cniSubnetId                       :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -68,41 +68,41 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'cniPrivateIPAddresses'--- -- * 'cniGroups' --+-- * 'cniPrivateIPAddresses'+-- -- * 'cniPrivateIPAddress' -- -- * 'cniSecondaryPrivateIPAddressCount' ----- * 'cniDryRun'--- -- * 'cniDescription' --+-- * 'cniDryRun'+-- -- * 'cniSubnetId' createNetworkInterface     :: Text -- ^ 'cniSubnetId'     -> CreateNetworkInterface createNetworkInterface pSubnetId_ =     CreateNetworkInterface'-    { _cniPrivateIPAddresses = Nothing-    , _cniGroups = Nothing+    { _cniGroups = Nothing+    , _cniPrivateIPAddresses = Nothing     , _cniPrivateIPAddress = Nothing     , _cniSecondaryPrivateIPAddressCount = Nothing-    , _cniDryRun = Nothing     , _cniDescription = Nothing+    , _cniDryRun = Nothing     , _cniSubnetId = pSubnetId_     } --- | One or more private IP addresses.-cniPrivateIPAddresses :: Lens' CreateNetworkInterface [PrivateIPAddressSpecification]-cniPrivateIPAddresses = lens _cniPrivateIPAddresses (\ s a -> s{_cniPrivateIPAddresses = a}) . _Default . _Coerce;- -- | The IDs of one or more security groups. cniGroups :: Lens' CreateNetworkInterface [Text] cniGroups = lens _cniGroups (\ s a -> s{_cniGroups = a}) . _Default . _Coerce; +-- | One or more private IP addresses.+cniPrivateIPAddresses :: Lens' CreateNetworkInterface [PrivateIPAddressSpecification]+cniPrivateIPAddresses = lens _cniPrivateIPAddresses (\ s a -> s{_cniPrivateIPAddresses = a}) . _Default . _Coerce;+ -- | The primary private IP address of the network interface. If you don\'t -- specify an IP address, Amazon EC2 selects one for you from the subnet -- range. If you specify an IP address, you cannot indicate any IP@@ -124,6 +124,10 @@ cniSecondaryPrivateIPAddressCount :: Lens' CreateNetworkInterface (Maybe Int) cniSecondaryPrivateIPAddressCount = lens _cniSecondaryPrivateIPAddressCount (\ s a -> s{_cniSecondaryPrivateIPAddressCount = a}); +-- | A description for the network interface.+cniDescription :: Lens' CreateNetworkInterface (Maybe Text)+cniDescription = lens _cniDescription (\ s a -> s{_cniDescription = a});+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -131,10 +135,6 @@ cniDryRun :: Lens' CreateNetworkInterface (Maybe Bool) cniDryRun = lens _cniDryRun (\ s a -> s{_cniDryRun = a}); --- | A description for the network interface.-cniDescription :: Lens' CreateNetworkInterface (Maybe Text)-cniDescription = lens _cniDescription (\ s a -> s{_cniDescription = a});- -- | The ID of the subnet to associate with the network interface. cniSubnetId :: Lens' CreateNetworkInterface Text cniSubnetId = lens _cniSubnetId (\ s a -> s{_cniSubnetId = a});@@ -162,21 +162,20 @@                  ("CreateNetworkInterface" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),                toQuery+                 (toQueryList "SecurityGroupId" <$> _cniGroups),+               toQuery                  (toQueryList "PrivateIpAddresses" <$>                     _cniPrivateIPAddresses),-               toQuery-                 (toQueryList "SecurityGroupId" <$> _cniGroups),                "PrivateIpAddress" =: _cniPrivateIPAddress,                "SecondaryPrivateIpAddressCount" =:                  _cniSecondaryPrivateIPAddressCount,-               "DryRun" =: _cniDryRun,                "Description" =: _cniDescription,-               "SubnetId" =: _cniSubnetId]+               "DryRun" =: _cniDryRun, "SubnetId" =: _cniSubnetId]  -- | /See:/ 'createNetworkInterfaceResponse' smart constructor. data CreateNetworkInterfaceResponse = CreateNetworkInterfaceResponse'     { _cnirsNetworkInterface :: !(Maybe NetworkInterface)-    , _cnirsStatus           :: !Int+    , _cnirsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateNetworkInterfaceResponse' with the minimum fields required to make a request.@@ -185,14 +184,14 @@ -- -- * 'cnirsNetworkInterface' ----- * 'cnirsStatus'+-- * 'cnirsResponseStatus' createNetworkInterfaceResponse-    :: Int -- ^ 'cnirsStatus'+    :: Int -- ^ 'cnirsResponseStatus'     -> CreateNetworkInterfaceResponse-createNetworkInterfaceResponse pStatus_ =+createNetworkInterfaceResponse pResponseStatus_ =     CreateNetworkInterfaceResponse'     { _cnirsNetworkInterface = Nothing-    , _cnirsStatus = pStatus_+    , _cnirsResponseStatus = pResponseStatus_     }  -- | Information about the network interface.@@ -200,5 +199,5 @@ cnirsNetworkInterface = lens _cnirsNetworkInterface (\ s a -> s{_cnirsNetworkInterface = a});  -- | The response status code.-cnirsStatus :: Lens' CreateNetworkInterfaceResponse Int-cnirsStatus = lens _cnirsStatus (\ s a -> s{_cnirsStatus = a});+cnirsResponseStatus :: Lens' CreateNetworkInterfaceResponse Int+cnirsResponseStatus = lens _cnirsResponseStatus (\ s a -> s{_cnirsResponseStatus = a});

@@ -58,7 +58,7 @@     , CreateReservedInstancesListingResponse     -- * Response Lenses     , crersReservedInstancesListings-    , crersStatus+    , crersResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -156,7 +156,7 @@ -- | /See:/ 'createReservedInstancesListingResponse' smart constructor. data CreateReservedInstancesListingResponse = CreateReservedInstancesListingResponse'     { _crersReservedInstancesListings :: !(Maybe [ReservedInstancesListing])-    , _crersStatus                    :: !Int+    , _crersResponseStatus            :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateReservedInstancesListingResponse' with the minimum fields required to make a request.@@ -165,14 +165,14 @@ -- -- * 'crersReservedInstancesListings' ----- * 'crersStatus'+-- * 'crersResponseStatus' createReservedInstancesListingResponse-    :: Int -- ^ 'crersStatus'+    :: Int -- ^ 'crersResponseStatus'     -> CreateReservedInstancesListingResponse-createReservedInstancesListingResponse pStatus_ =+createReservedInstancesListingResponse pResponseStatus_ =     CreateReservedInstancesListingResponse'     { _crersReservedInstancesListings = Nothing-    , _crersStatus = pStatus_+    , _crersResponseStatus = pResponseStatus_     }  -- | Information about the Reserved Instances listing.@@ -180,5 +180,5 @@ crersReservedInstancesListings = lens _crersReservedInstancesListings (\ s a -> s{_crersReservedInstancesListings = a}) . _Default . _Coerce;  -- | The response status code.-crersStatus :: Lens' CreateReservedInstancesListingResponse Int-crersStatus = lens _crersStatus (\ s a -> s{_crersStatus = a});+crersResponseStatus :: Lens' CreateReservedInstancesListingResponse Int+crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a});

@@ -48,8 +48,8 @@       createRoute     , CreateRoute     -- * Request Lenses-    , crInstanceId     , crVPCPeeringConnectionId+    , crInstanceId     , crNetworkInterfaceId     , crGatewayId     , crDryRun@@ -61,7 +61,7 @@     , CreateRouteResponse     -- * Response Lenses     , crrsReturn-    , crrsStatus+    , crrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -72,8 +72,8 @@  -- | /See:/ 'createRoute' smart constructor. data CreateRoute = CreateRoute'-    { _crInstanceId             :: !(Maybe Text)-    , _crVPCPeeringConnectionId :: !(Maybe Text)+    { _crVPCPeeringConnectionId :: !(Maybe Text)+    , _crInstanceId             :: !(Maybe Text)     , _crNetworkInterfaceId     :: !(Maybe Text)     , _crGatewayId              :: !(Maybe Text)     , _crDryRun                 :: !(Maybe Bool)@@ -85,10 +85,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'crInstanceId'--- -- * 'crVPCPeeringConnectionId' --+-- * 'crInstanceId'+-- -- * 'crNetworkInterfaceId' -- -- * 'crGatewayId'@@ -104,8 +104,8 @@     -> CreateRoute createRoute pRouteTableId_ pDestinationCIdRBlock_ =     CreateRoute'-    { _crInstanceId = Nothing-    , _crVPCPeeringConnectionId = Nothing+    { _crVPCPeeringConnectionId = Nothing+    , _crInstanceId = Nothing     , _crNetworkInterfaceId = Nothing     , _crGatewayId = Nothing     , _crDryRun = Nothing@@ -113,15 +113,15 @@     , _crDestinationCIdRBlock = pDestinationCIdRBlock_     } +-- | The ID of a VPC peering connection.+crVPCPeeringConnectionId :: Lens' CreateRoute (Maybe Text)+crVPCPeeringConnectionId = lens _crVPCPeeringConnectionId (\ s a -> s{_crVPCPeeringConnectionId = a});+ -- | The ID of a NAT instance in your VPC. The operation fails if you specify -- an instance ID unless exactly one network interface is attached. crInstanceId :: Lens' CreateRoute (Maybe Text) crInstanceId = lens _crInstanceId (\ s a -> s{_crInstanceId = a}); --- | The ID of a VPC peering connection.-crVPCPeeringConnectionId :: Lens' CreateRoute (Maybe Text)-crVPCPeeringConnectionId = lens _crVPCPeeringConnectionId (\ s a -> s{_crVPCPeeringConnectionId = a});- -- | The ID of a network interface. crNetworkInterfaceId :: Lens' CreateRoute (Maybe Text) crNetworkInterfaceId = lens _crNetworkInterfaceId (\ s a -> s{_crNetworkInterfaceId = a});@@ -167,9 +167,9 @@           = mconcat               ["Action" =: ("CreateRoute" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),-               "InstanceId" =: _crInstanceId,                "VpcPeeringConnectionId" =:                  _crVPCPeeringConnectionId,+               "InstanceId" =: _crInstanceId,                "NetworkInterfaceId" =: _crNetworkInterfaceId,                "GatewayId" =: _crGatewayId, "DryRun" =: _crDryRun,                "RouteTableId" =: _crRouteTableId,@@ -177,8 +177,8 @@  -- | /See:/ 'createRouteResponse' smart constructor. data CreateRouteResponse = CreateRouteResponse'-    { _crrsReturn :: !(Maybe Bool)-    , _crrsStatus :: !Int+    { _crrsReturn         :: !(Maybe Bool)+    , _crrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateRouteResponse' with the minimum fields required to make a request.@@ -187,14 +187,14 @@ -- -- * 'crrsReturn' ----- * 'crrsStatus'+-- * 'crrsResponseStatus' createRouteResponse-    :: Int -- ^ 'crrsStatus'+    :: Int -- ^ 'crrsResponseStatus'     -> CreateRouteResponse-createRouteResponse pStatus_ =+createRouteResponse pResponseStatus_ =     CreateRouteResponse'     { _crrsReturn = Nothing-    , _crrsStatus = pStatus_+    , _crrsResponseStatus = pResponseStatus_     }  -- | Returns 'true' if the request succeeds; otherwise, it returns an error.@@ -202,5 +202,5 @@ crrsReturn = lens _crrsReturn (\ s a -> s{_crrsReturn = a});  -- | The response status code.-crrsStatus :: Lens' CreateRouteResponse Int-crrsStatus = lens _crrsStatus (\ s a -> s{_crrsStatus = a});+crrsResponseStatus :: Lens' CreateRouteResponse Int+crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a});

@@ -40,7 +40,7 @@     , CreateRouteTableResponse     -- * Response Lenses     , crtrsRouteTable-    , crtrsStatus+    , crtrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -106,8 +106,8 @@  -- | /See:/ 'createRouteTableResponse' smart constructor. data CreateRouteTableResponse = CreateRouteTableResponse'-    { _crtrsRouteTable :: !(Maybe RouteTable)-    , _crtrsStatus     :: !Int+    { _crtrsRouteTable     :: !(Maybe RouteTable)+    , _crtrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateRouteTableResponse' with the minimum fields required to make a request.@@ -116,14 +116,14 @@ -- -- * 'crtrsRouteTable' ----- * 'crtrsStatus'+-- * 'crtrsResponseStatus' createRouteTableResponse-    :: Int -- ^ 'crtrsStatus'+    :: Int -- ^ 'crtrsResponseStatus'     -> CreateRouteTableResponse-createRouteTableResponse pStatus_ =+createRouteTableResponse pResponseStatus_ =     CreateRouteTableResponse'     { _crtrsRouteTable = Nothing-    , _crtrsStatus = pStatus_+    , _crtrsResponseStatus = pResponseStatus_     }  -- | Information about the route table.@@ -131,5 +131,5 @@ crtrsRouteTable = lens _crtrsRouteTable (\ s a -> s{_crtrsRouteTable = a});  -- | The response status code.-crtrsStatus :: Lens' CreateRouteTableResponse Int-crtrsStatus = lens _crtrsStatus (\ s a -> s{_crtrsStatus = a});+crtrsResponseStatus :: Lens' CreateRouteTableResponse Int+crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a});

@@ -64,7 +64,7 @@     , createSecurityGroupResponse     , CreateSecurityGroupResponse     -- * Response Lenses-    , csgrsStatus+    , csgrsResponseStatus     , csgrsGroupId     ) where @@ -165,30 +165,30 @@  -- | /See:/ 'createSecurityGroupResponse' smart constructor. data CreateSecurityGroupResponse = CreateSecurityGroupResponse'-    { _csgrsStatus  :: !Int-    , _csgrsGroupId :: !Text+    { _csgrsResponseStatus :: !Int+    , _csgrsGroupId        :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateSecurityGroupResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'csgrsStatus'+-- * 'csgrsResponseStatus' -- -- * 'csgrsGroupId' createSecurityGroupResponse-    :: Int -- ^ 'csgrsStatus'+    :: Int -- ^ 'csgrsResponseStatus'     -> Text -- ^ 'csgrsGroupId'     -> CreateSecurityGroupResponse-createSecurityGroupResponse pStatus_ pGroupId_ =+createSecurityGroupResponse pResponseStatus_ pGroupId_ =     CreateSecurityGroupResponse'-    { _csgrsStatus = pStatus_+    { _csgrsResponseStatus = pResponseStatus_     , _csgrsGroupId = pGroupId_     }  -- | The response status code.-csgrsStatus :: Lens' CreateSecurityGroupResponse Int-csgrsStatus = lens _csgrsStatus (\ s a -> s{_csgrsStatus = a});+csgrsResponseStatus :: Lens' CreateSecurityGroupResponse Int+csgrsResponseStatus = lens _csgrsResponseStatus (\ s a -> s{_csgrsResponseStatus = a});  -- | The ID of the security group. csgrsGroupId :: Lens' CreateSecurityGroupResponse Text

@@ -57,8 +57,8 @@       createSnapshot     , CreateSnapshot     -- * Request Lenses-    , ccDryRun     , ccDescription+    , ccDryRun     , ccVolumeId      -- * Destructuring the Response@@ -87,8 +87,8 @@  -- | /See:/ 'createSnapshot' smart constructor. data CreateSnapshot = CreateSnapshot'-    { _ccDryRun      :: !(Maybe Bool)-    , _ccDescription :: !(Maybe Text)+    { _ccDescription :: !(Maybe Text)+    , _ccDryRun      :: !(Maybe Bool)     , _ccVolumeId    :: !Text     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -96,21 +96,25 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'ccDryRun'--- -- * 'ccDescription' --+-- * 'ccDryRun'+-- -- * 'ccVolumeId' createSnapshot     :: Text -- ^ 'ccVolumeId'     -> CreateSnapshot createSnapshot pVolumeId_ =     CreateSnapshot'-    { _ccDryRun = Nothing-    , _ccDescription = Nothing+    { _ccDescription = Nothing+    , _ccDryRun = Nothing     , _ccVolumeId = pVolumeId_     } +-- | A description for the snapshot.+ccDescription :: Lens' CreateSnapshot (Maybe Text)+ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a});+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -118,10 +122,6 @@ ccDryRun :: Lens' CreateSnapshot (Maybe Bool) ccDryRun = lens _ccDryRun (\ s a -> s{_ccDryRun = a}); --- | A description for the snapshot.-ccDescription :: Lens' CreateSnapshot (Maybe Text)-ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a});- -- | The ID of the EBS volume. ccVolumeId :: Lens' CreateSnapshot Text ccVolumeId = lens _ccVolumeId (\ s a -> s{_ccVolumeId = a});@@ -142,6 +142,5 @@           = mconcat               ["Action" =: ("CreateSnapshot" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),-               "DryRun" =: _ccDryRun,                "Description" =: _ccDescription,-               "VolumeId" =: _ccVolumeId]+               "DryRun" =: _ccDryRun, "VolumeId" =: _ccVolumeId]

@@ -40,7 +40,7 @@     , CreateSpotDatafeedSubscriptionResponse     -- * Response Lenses     , csdsrsSpotDatafeedSubscription-    , csdsrsStatus+    , csdsrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -125,7 +125,7 @@ -- /See:/ 'createSpotDatafeedSubscriptionResponse' smart constructor. data CreateSpotDatafeedSubscriptionResponse = CreateSpotDatafeedSubscriptionResponse'     { _csdsrsSpotDatafeedSubscription :: !(Maybe SpotDatafeedSubscription)-    , _csdsrsStatus                   :: !Int+    , _csdsrsResponseStatus           :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateSpotDatafeedSubscriptionResponse' with the minimum fields required to make a request.@@ -134,14 +134,14 @@ -- -- * 'csdsrsSpotDatafeedSubscription' ----- * 'csdsrsStatus'+-- * 'csdsrsResponseStatus' createSpotDatafeedSubscriptionResponse-    :: Int -- ^ 'csdsrsStatus'+    :: Int -- ^ 'csdsrsResponseStatus'     -> CreateSpotDatafeedSubscriptionResponse-createSpotDatafeedSubscriptionResponse pStatus_ =+createSpotDatafeedSubscriptionResponse pResponseStatus_ =     CreateSpotDatafeedSubscriptionResponse'     { _csdsrsSpotDatafeedSubscription = Nothing-    , _csdsrsStatus = pStatus_+    , _csdsrsResponseStatus = pResponseStatus_     }  -- | The Spot Instance data feed subscription.@@ -149,5 +149,5 @@ csdsrsSpotDatafeedSubscription = lens _csdsrsSpotDatafeedSubscription (\ s a -> s{_csdsrsSpotDatafeedSubscription = a});  -- | The response status code.-csdsrsStatus :: Lens' CreateSpotDatafeedSubscriptionResponse Int-csdsrsStatus = lens _csdsrsStatus (\ s a -> s{_csdsrsStatus = a});+csdsrsResponseStatus :: Lens' CreateSpotDatafeedSubscriptionResponse Int+csdsrsResponseStatus = lens _csdsrsResponseStatus (\ s a -> s{_csdsrsResponseStatus = a});

@@ -63,7 +63,7 @@     , CreateSubnetResponse     -- * Response Lenses     , crsSubnet-    , crsStatus+    , crsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -151,8 +151,8 @@  -- | /See:/ 'createSubnetResponse' smart constructor. data CreateSubnetResponse = CreateSubnetResponse'-    { _crsSubnet :: !(Maybe Subnet)-    , _crsStatus :: !Int+    { _crsSubnet         :: !(Maybe Subnet)+    , _crsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateSubnetResponse' with the minimum fields required to make a request.@@ -161,14 +161,14 @@ -- -- * 'crsSubnet' ----- * 'crsStatus'+-- * 'crsResponseStatus' createSubnetResponse-    :: Int -- ^ 'crsStatus'+    :: Int -- ^ 'crsResponseStatus'     -> CreateSubnetResponse-createSubnetResponse pStatus_ =+createSubnetResponse pResponseStatus_ =     CreateSubnetResponse'     { _crsSubnet = Nothing-    , _crsStatus = pStatus_+    , _crsResponseStatus = pResponseStatus_     }  -- | Information about the subnet.@@ -176,5 +176,5 @@ crsSubnet = lens _crsSubnet (\ s a -> s{_crsSubnet = a});  -- | The response status code.-crsStatus :: Lens' CreateSubnetResponse Int-crsStatus = lens _crsStatus (\ s a -> s{_crsStatus = a});+crsResponseStatus :: Lens' CreateSubnetResponse Int+crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a});

@@ -48,7 +48,7 @@     , CreateVPCResponse     -- * Response Lenses     , cvrsVPC-    , cvrsStatus+    , cvrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -131,8 +131,8 @@  -- | /See:/ 'createVPCResponse' smart constructor. data CreateVPCResponse = CreateVPCResponse'-    { _cvrsVPC    :: !(Maybe VPC)-    , _cvrsStatus :: !Int+    { _cvrsVPC            :: !(Maybe VPC)+    , _cvrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateVPCResponse' with the minimum fields required to make a request.@@ -141,14 +141,14 @@ -- -- * 'cvrsVPC' ----- * 'cvrsStatus'+-- * 'cvrsResponseStatus' createVPCResponse-    :: Int -- ^ 'cvrsStatus'+    :: Int -- ^ 'cvrsResponseStatus'     -> CreateVPCResponse-createVPCResponse pStatus_ =+createVPCResponse pResponseStatus_ =     CreateVPCResponse'     { _cvrsVPC = Nothing-    , _cvrsStatus = pStatus_+    , _cvrsResponseStatus = pResponseStatus_     }  -- | Information about the VPC.@@ -156,5 +156,5 @@ cvrsVPC = lens _cvrsVPC (\ s a -> s{_cvrsVPC = a});  -- | The response status code.-cvrsStatus :: Lens' CreateVPCResponse Int-cvrsStatus = lens _cvrsStatus (\ s a -> s{_cvrsStatus = a});+cvrsResponseStatus :: Lens' CreateVPCResponse Int+cvrsResponseStatus = lens _cvrsResponseStatus (\ s a -> s{_cvrsResponseStatus = a});

@@ -46,7 +46,7 @@     -- * Response Lenses     , cversClientToken     , cversVPCEndpoint-    , cversStatus+    , cversResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -159,9 +159,9 @@  -- | /See:/ 'createVPCEndpointResponse' smart constructor. data CreateVPCEndpointResponse = CreateVPCEndpointResponse'-    { _cversClientToken :: !(Maybe Text)-    , _cversVPCEndpoint :: !(Maybe VPCEndpoint)-    , _cversStatus      :: !Int+    { _cversClientToken    :: !(Maybe Text)+    , _cversVPCEndpoint    :: !(Maybe VPCEndpoint)+    , _cversResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateVPCEndpointResponse' with the minimum fields required to make a request.@@ -172,15 +172,15 @@ -- -- * 'cversVPCEndpoint' ----- * 'cversStatus'+-- * 'cversResponseStatus' createVPCEndpointResponse-    :: Int -- ^ 'cversStatus'+    :: Int -- ^ 'cversResponseStatus'     -> CreateVPCEndpointResponse-createVPCEndpointResponse pStatus_ =+createVPCEndpointResponse pResponseStatus_ =     CreateVPCEndpointResponse'     { _cversClientToken = Nothing     , _cversVPCEndpoint = Nothing-    , _cversStatus = pStatus_+    , _cversResponseStatus = pResponseStatus_     }  -- | Unique, case-sensitive identifier you provide to ensure the idempotency@@ -193,5 +193,5 @@ cversVPCEndpoint = lens _cversVPCEndpoint (\ s a -> s{_cversVPCEndpoint = a});  -- | The response status code.-cversStatus :: Lens' CreateVPCEndpointResponse Int-cversStatus = lens _cversStatus (\ s a -> s{_cversStatus = a});+cversResponseStatus :: Lens' CreateVPCEndpointResponse Int+cversResponseStatus = lens _cversResponseStatus (\ s a -> s{_cversResponseStatus = a});

@@ -48,7 +48,7 @@     , CreateVPCPeeringConnectionResponse     -- * Response Lenses     , cvpcrsVPCPeeringConnection-    , cvpcrsStatus+    , cvpcrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -138,7 +138,7 @@ -- | /See:/ 'createVPCPeeringConnectionResponse' smart constructor. data CreateVPCPeeringConnectionResponse = CreateVPCPeeringConnectionResponse'     { _cvpcrsVPCPeeringConnection :: !(Maybe VPCPeeringConnection)-    , _cvpcrsStatus               :: !Int+    , _cvpcrsResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateVPCPeeringConnectionResponse' with the minimum fields required to make a request.@@ -147,14 +147,14 @@ -- -- * 'cvpcrsVPCPeeringConnection' ----- * 'cvpcrsStatus'+-- * 'cvpcrsResponseStatus' createVPCPeeringConnectionResponse-    :: Int -- ^ 'cvpcrsStatus'+    :: Int -- ^ 'cvpcrsResponseStatus'     -> CreateVPCPeeringConnectionResponse-createVPCPeeringConnectionResponse pStatus_ =+createVPCPeeringConnectionResponse pResponseStatus_ =     CreateVPCPeeringConnectionResponse'     { _cvpcrsVPCPeeringConnection = Nothing-    , _cvpcrsStatus = pStatus_+    , _cvpcrsResponseStatus = pResponseStatus_     }  -- | Information about the VPC peering connection.@@ -162,5 +162,5 @@ cvpcrsVPCPeeringConnection = lens _cvpcrsVPCPeeringConnection (\ s a -> s{_cvpcrsVPCPeeringConnection = a});  -- | The response status code.-cvpcrsStatus :: Lens' CreateVPCPeeringConnectionResponse Int-cvpcrsStatus = lens _cvpcrsStatus (\ s a -> s{_cvpcrsStatus = a});+cvpcrsResponseStatus :: Lens' CreateVPCPeeringConnectionResponse Int+cvpcrsResponseStatus = lens _cvpcrsResponseStatus (\ s a -> s{_cvpcrsResponseStatus = a});

@@ -54,7 +54,7 @@     , CreateVPNConnectionResponse     -- * Response Lenses     , cvcrsVPNConnection-    , cvcrsStatus+    , cvcrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -154,8 +154,8 @@  -- | /See:/ 'createVPNConnectionResponse' smart constructor. data CreateVPNConnectionResponse = CreateVPNConnectionResponse'-    { _cvcrsVPNConnection :: !(Maybe VPNConnection)-    , _cvcrsStatus        :: !Int+    { _cvcrsVPNConnection  :: !(Maybe VPNConnection)+    , _cvcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateVPNConnectionResponse' with the minimum fields required to make a request.@@ -164,14 +164,14 @@ -- -- * 'cvcrsVPNConnection' ----- * 'cvcrsStatus'+-- * 'cvcrsResponseStatus' createVPNConnectionResponse-    :: Int -- ^ 'cvcrsStatus'+    :: Int -- ^ 'cvcrsResponseStatus'     -> CreateVPNConnectionResponse-createVPNConnectionResponse pStatus_ =+createVPNConnectionResponse pResponseStatus_ =     CreateVPNConnectionResponse'     { _cvcrsVPNConnection = Nothing-    , _cvcrsStatus = pStatus_+    , _cvcrsResponseStatus = pResponseStatus_     }  -- | Information about the VPN connection.@@ -179,5 +179,5 @@ cvcrsVPNConnection = lens _cvcrsVPNConnection (\ s a -> s{_cvcrsVPNConnection = a});  -- | The response status code.-cvcrsStatus :: Lens' CreateVPNConnectionResponse Int-cvcrsStatus = lens _cvcrsStatus (\ s a -> s{_cvcrsStatus = a});+cvcrsResponseStatus :: Lens' CreateVPNConnectionResponse Int+cvcrsResponseStatus = lens _cvcrsResponseStatus (\ s a -> s{_cvcrsResponseStatus = a});

@@ -42,7 +42,7 @@     , CreateVPNGatewayResponse     -- * Response Lenses     , cvgrsVPNGateway-    , cvgrsStatus+    , cvgrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -117,8 +117,8 @@  -- | /See:/ 'createVPNGatewayResponse' smart constructor. data CreateVPNGatewayResponse = CreateVPNGatewayResponse'-    { _cvgrsVPNGateway :: !(Maybe VPNGateway)-    , _cvgrsStatus     :: !Int+    { _cvgrsVPNGateway     :: !(Maybe VPNGateway)+    , _cvgrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'CreateVPNGatewayResponse' with the minimum fields required to make a request.@@ -127,14 +127,14 @@ -- -- * 'cvgrsVPNGateway' ----- * 'cvgrsStatus'+-- * 'cvgrsResponseStatus' createVPNGatewayResponse-    :: Int -- ^ 'cvgrsStatus'+    :: Int -- ^ 'cvgrsResponseStatus'     -> CreateVPNGatewayResponse-createVPNGatewayResponse pStatus_ =+createVPNGatewayResponse pResponseStatus_ =     CreateVPNGatewayResponse'     { _cvgrsVPNGateway = Nothing-    , _cvgrsStatus = pStatus_+    , _cvgrsResponseStatus = pResponseStatus_     }  -- | Information about the virtual private gateway.@@ -142,5 +142,5 @@ cvgrsVPNGateway = lens _cvgrsVPNGateway (\ s a -> s{_cvgrsVPNGateway = a});  -- | The response status code.-cvgrsStatus :: Lens' CreateVPNGatewayResponse Int-cvgrsStatus = lens _cvgrsStatus (\ s a -> s{_cvgrsStatus = a});+cvgrsResponseStatus :: Lens' CreateVPNGatewayResponse Int+cvgrsResponseStatus = lens _cvgrsResponseStatus (\ s a -> s{_cvgrsResponseStatus = a});

@@ -34,7 +34,7 @@     , DeleteFlowLogsResponse     -- * Response Lenses     , dflrsUnsuccessful-    , dflrsStatus+    , dflrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -90,8 +90,8 @@  -- | /See:/ 'deleteFlowLogsResponse' smart constructor. data DeleteFlowLogsResponse = DeleteFlowLogsResponse'-    { _dflrsUnsuccessful :: !(Maybe [UnsuccessfulItem])-    , _dflrsStatus       :: !Int+    { _dflrsUnsuccessful   :: !(Maybe [UnsuccessfulItem])+    , _dflrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteFlowLogsResponse' with the minimum fields required to make a request.@@ -100,14 +100,14 @@ -- -- * 'dflrsUnsuccessful' ----- * 'dflrsStatus'+-- * 'dflrsResponseStatus' deleteFlowLogsResponse-    :: Int -- ^ 'dflrsStatus'+    :: Int -- ^ 'dflrsResponseStatus'     -> DeleteFlowLogsResponse-deleteFlowLogsResponse pStatus_ =+deleteFlowLogsResponse pResponseStatus_ =     DeleteFlowLogsResponse'     { _dflrsUnsuccessful = Nothing-    , _dflrsStatus = pStatus_+    , _dflrsResponseStatus = pResponseStatus_     }  -- | Information about the flow logs that could not be deleted successfully.@@ -115,5 +115,5 @@ dflrsUnsuccessful = lens _dflrsUnsuccessful (\ s a -> s{_dflrsUnsuccessful = a}) . _Default . _Coerce;  -- | The response status code.-dflrsStatus :: Lens' DeleteFlowLogsResponse Int-dflrsStatus = lens _dflrsStatus (\ s a -> s{_dflrsStatus = a});+dflrsResponseStatus :: Lens' DeleteFlowLogsResponse Int+dflrsResponseStatus = lens _dflrsResponseStatus (\ s a -> s{_dflrsResponseStatus = a});

@@ -37,7 +37,7 @@     , DeleteVPCEndpointsResponse     -- * Response Lenses     , dversUnsuccessful-    , dversStatus+    , dversResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -106,8 +106,8 @@  -- | /See:/ 'deleteVPCEndpointsResponse' smart constructor. data DeleteVPCEndpointsResponse = DeleteVPCEndpointsResponse'-    { _dversUnsuccessful :: !(Maybe [UnsuccessfulItem])-    , _dversStatus       :: !Int+    { _dversUnsuccessful   :: !(Maybe [UnsuccessfulItem])+    , _dversResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteVPCEndpointsResponse' with the minimum fields required to make a request.@@ -116,14 +116,14 @@ -- -- * 'dversUnsuccessful' ----- * 'dversStatus'+-- * 'dversResponseStatus' deleteVPCEndpointsResponse-    :: Int -- ^ 'dversStatus'+    :: Int -- ^ 'dversResponseStatus'     -> DeleteVPCEndpointsResponse-deleteVPCEndpointsResponse pStatus_ =+deleteVPCEndpointsResponse pResponseStatus_ =     DeleteVPCEndpointsResponse'     { _dversUnsuccessful = Nothing-    , _dversStatus = pStatus_+    , _dversResponseStatus = pResponseStatus_     }  -- | Information about the endpoints that were not successfully deleted.@@ -131,5 +131,5 @@ dversUnsuccessful = lens _dversUnsuccessful (\ s a -> s{_dversUnsuccessful = a}) . _Default . _Coerce;  -- | The response status code.-dversStatus :: Lens' DeleteVPCEndpointsResponse Int-dversStatus = lens _dversStatus (\ s a -> s{_dversStatus = a});+dversResponseStatus :: Lens' DeleteVPCEndpointsResponse Int+dversResponseStatus = lens _dversResponseStatus (\ s a -> s{_dversResponseStatus = a});

@@ -38,7 +38,7 @@     , DeleteVPCPeeringConnectionResponse     -- * Response Lenses     , dvpcrsReturn-    , dvpcrsStatus+    , dvpcrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -108,8 +108,8 @@  -- | /See:/ 'deleteVPCPeeringConnectionResponse' smart constructor. data DeleteVPCPeeringConnectionResponse = DeleteVPCPeeringConnectionResponse'-    { _dvpcrsReturn :: !(Maybe Bool)-    , _dvpcrsStatus :: !Int+    { _dvpcrsReturn         :: !(Maybe Bool)+    , _dvpcrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DeleteVPCPeeringConnectionResponse' with the minimum fields required to make a request.@@ -118,14 +118,14 @@ -- -- * 'dvpcrsReturn' ----- * 'dvpcrsStatus'+-- * 'dvpcrsResponseStatus' deleteVPCPeeringConnectionResponse-    :: Int -- ^ 'dvpcrsStatus'+    :: Int -- ^ 'dvpcrsResponseStatus'     -> DeleteVPCPeeringConnectionResponse-deleteVPCPeeringConnectionResponse pStatus_ =+deleteVPCPeeringConnectionResponse pResponseStatus_ =     DeleteVPCPeeringConnectionResponse'     { _dvpcrsReturn = Nothing-    , _dvpcrsStatus = pStatus_+    , _dvpcrsResponseStatus = pResponseStatus_     }  -- | Returns 'true' if the request succeeds; otherwise, it returns an error.@@ -133,5 +133,5 @@ dvpcrsReturn = lens _dvpcrsReturn (\ s a -> s{_dvpcrsReturn = a});  -- | The response status code.-dvpcrsStatus :: Lens' DeleteVPCPeeringConnectionResponse Int-dvpcrsStatus = lens _dvpcrsStatus (\ s a -> s{_dvpcrsStatus = a});+dvpcrsResponseStatus :: Lens' DeleteVPCPeeringConnectionResponse Int+dvpcrsResponseStatus = lens _dvpcrsResponseStatus (\ s a -> s{_dvpcrsResponseStatus = a});

@@ -55,7 +55,7 @@     , DescribeAccountAttributesResponse     -- * Response Lenses     , daarsAccountAttributes-    , daarsStatus+    , daarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -127,7 +127,7 @@ -- | /See:/ 'describeAccountAttributesResponse' smart constructor. data DescribeAccountAttributesResponse = DescribeAccountAttributesResponse'     { _daarsAccountAttributes :: !(Maybe [AccountAttribute])-    , _daarsStatus            :: !Int+    , _daarsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeAccountAttributesResponse' with the minimum fields required to make a request.@@ -136,14 +136,14 @@ -- -- * 'daarsAccountAttributes' ----- * 'daarsStatus'+-- * 'daarsResponseStatus' describeAccountAttributesResponse-    :: Int -- ^ 'daarsStatus'+    :: Int -- ^ 'daarsResponseStatus'     -> DescribeAccountAttributesResponse-describeAccountAttributesResponse pStatus_ =+describeAccountAttributesResponse pResponseStatus_ =     DescribeAccountAttributesResponse'     { _daarsAccountAttributes = Nothing-    , _daarsStatus = pStatus_+    , _daarsResponseStatus = pResponseStatus_     }  -- | Information about one or more account attributes.@@ -151,5 +151,5 @@ daarsAccountAttributes = lens _daarsAccountAttributes (\ s a -> s{_daarsAccountAttributes = a}) . _Default . _Coerce;  -- | The response status code.-daarsStatus :: Lens' DescribeAccountAttributesResponse Int-daarsStatus = lens _daarsStatus (\ s a -> s{_daarsStatus = a});+daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int+daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a});

@@ -32,17 +32,17 @@       describeAddresses     , DescribeAddresses     -- * Request Lenses-    , daPublicIPs     , daFilters-    , daDryRun+    , daPublicIPs     , daAllocationIds+    , daDryRun      -- * Destructuring the Response     , describeAddressesResponse     , DescribeAddressesResponse     -- * Response Lenses     , darsAddresses-    , darsStatus+    , darsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -53,39 +53,33 @@  -- | /See:/ 'describeAddresses' smart constructor. data DescribeAddresses = DescribeAddresses'-    { _daPublicIPs     :: !(Maybe [Text])-    , _daFilters       :: !(Maybe [Filter])-    , _daDryRun        :: !(Maybe Bool)+    { _daFilters       :: !(Maybe [Filter])+    , _daPublicIPs     :: !(Maybe [Text])     , _daAllocationIds :: !(Maybe [Text])+    , _daDryRun        :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeAddresses' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'daPublicIPs'--- -- * 'daFilters' ----- * 'daDryRun'+-- * 'daPublicIPs' -- -- * 'daAllocationIds'+--+-- * 'daDryRun' describeAddresses     :: DescribeAddresses describeAddresses =     DescribeAddresses'-    { _daPublicIPs = Nothing-    , _daFilters = Nothing-    , _daDryRun = Nothing+    { _daFilters = Nothing+    , _daPublicIPs = Nothing     , _daAllocationIds = Nothing+    , _daDryRun = Nothing     } --- | [EC2-Classic] One or more Elastic IP addresses.------ Default: Describes all your Elastic IP addresses.-daPublicIPs :: Lens' DescribeAddresses [Text]-daPublicIPs = lens _daPublicIPs (\ s a -> s{_daPublicIPs = a}) . _Default . _Coerce;- -- | One or more filters. Filter names and values are case-sensitive. -- -- -   'allocation-id' - [EC2-VPC] The allocation ID for the address.@@ -111,12 +105,11 @@ daFilters :: Lens' DescribeAddresses [Filter] daFilters = lens _daFilters (\ s a -> s{_daFilters = a}) . _Default . _Coerce; --- | Checks whether you have the required permissions for the action, without--- actually making the request, and provides an error response. If you have--- the required permissions, the error response is 'DryRunOperation'.--- Otherwise, it is 'UnauthorizedOperation'.-daDryRun :: Lens' DescribeAddresses (Maybe Bool)-daDryRun = lens _daDryRun (\ s a -> s{_daDryRun = a});+-- | [EC2-Classic] One or more Elastic IP addresses.+--+-- Default: Describes all your Elastic IP addresses.+daPublicIPs :: Lens' DescribeAddresses [Text]+daPublicIPs = lens _daPublicIPs (\ s a -> s{_daPublicIPs = a}) . _Default . _Coerce;  -- | [EC2-VPC] One or more allocation IDs. --@@ -124,6 +117,13 @@ daAllocationIds :: Lens' DescribeAddresses [Text] daAllocationIds = lens _daAllocationIds (\ s a -> s{_daAllocationIds = a}) . _Default . _Coerce; +-- | Checks whether you have the required permissions for the action, without+-- actually making the request, and provides an error response. If you have+-- the required permissions, the error response is 'DryRunOperation'.+-- Otherwise, it is 'UnauthorizedOperation'.+daDryRun :: Lens' DescribeAddresses (Maybe Bool)+daDryRun = lens _daDryRun (\ s a -> s{_daDryRun = a});+ instance AWSRequest DescribeAddresses where         type Rs DescribeAddresses = DescribeAddressesResponse         request = postQuery eC2@@ -146,16 +146,16 @@           = mconcat               ["Action" =: ("DescribeAddresses" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),-               toQuery (toQueryList "PublicIp" <$> _daPublicIPs),                toQuery (toQueryList "Filter" <$> _daFilters),-               "DryRun" =: _daDryRun,+               toQuery (toQueryList "PublicIp" <$> _daPublicIPs),                toQuery-                 (toQueryList "AllocationId" <$> _daAllocationIds)]+                 (toQueryList "AllocationId" <$> _daAllocationIds),+               "DryRun" =: _daDryRun]  -- | /See:/ 'describeAddressesResponse' smart constructor. data DescribeAddressesResponse = DescribeAddressesResponse'-    { _darsAddresses :: !(Maybe [Address])-    , _darsStatus    :: !Int+    { _darsAddresses      :: !(Maybe [Address])+    , _darsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeAddressesResponse' with the minimum fields required to make a request.@@ -164,14 +164,14 @@ -- -- * 'darsAddresses' ----- * 'darsStatus'+-- * 'darsResponseStatus' describeAddressesResponse-    :: Int -- ^ 'darsStatus'+    :: Int -- ^ 'darsResponseStatus'     -> DescribeAddressesResponse-describeAddressesResponse pStatus_ =+describeAddressesResponse pResponseStatus_ =     DescribeAddressesResponse'     { _darsAddresses = Nothing-    , _darsStatus = pStatus_+    , _darsResponseStatus = pResponseStatus_     }  -- | Information about one or more Elastic IP addresses.@@ -179,5 +179,5 @@ darsAddresses = lens _darsAddresses (\ s a -> s{_darsAddresses = a}) . _Default . _Coerce;  -- | The response status code.-darsStatus :: Lens' DescribeAddressesResponse Int-darsStatus = lens _darsStatus (\ s a -> s{_darsStatus = a});+darsResponseStatus :: Lens' DescribeAddressesResponse Int+darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a});

@@ -44,7 +44,7 @@     , DescribeAvailabilityZonesResponse     -- * Response Lenses     , dazrsAvailabilityZones-    , dazrsStatus+    , dazrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -136,7 +136,7 @@ -- | /See:/ 'describeAvailabilityZonesResponse' smart constructor. data DescribeAvailabilityZonesResponse = DescribeAvailabilityZonesResponse'     { _dazrsAvailabilityZones :: !(Maybe [AvailabilityZone])-    , _dazrsStatus            :: !Int+    , _dazrsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeAvailabilityZonesResponse' with the minimum fields required to make a request.@@ -145,14 +145,14 @@ -- -- * 'dazrsAvailabilityZones' ----- * 'dazrsStatus'+-- * 'dazrsResponseStatus' describeAvailabilityZonesResponse-    :: Int -- ^ 'dazrsStatus'+    :: Int -- ^ 'dazrsResponseStatus'     -> DescribeAvailabilityZonesResponse-describeAvailabilityZonesResponse pStatus_ =+describeAvailabilityZonesResponse pResponseStatus_ =     DescribeAvailabilityZonesResponse'     { _dazrsAvailabilityZones = Nothing-    , _dazrsStatus = pStatus_+    , _dazrsResponseStatus = pResponseStatus_     }  -- | Information about one or more Availability Zones.@@ -160,5 +160,5 @@ dazrsAvailabilityZones = lens _dazrsAvailabilityZones (\ s a -> s{_dazrsAvailabilityZones = a}) . _Default . _Coerce;  -- | The response status code.-dazrsStatus :: Lens' DescribeAvailabilityZonesResponse Int-dazrsStatus = lens _dazrsStatus (\ s a -> s{_dazrsStatus = a});+dazrsResponseStatus :: Lens' DescribeAvailabilityZonesResponse Int+dazrsResponseStatus = lens _dazrsResponseStatus (\ s a -> s{_dazrsResponseStatus = a});

@@ -41,7 +41,7 @@     , DescribeBundleTasksResponse     -- * Response Lenses     , dbtrsBundleTasks-    , dbtrsStatus+    , dbtrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -145,8 +145,8 @@  -- | /See:/ 'describeBundleTasksResponse' smart constructor. data DescribeBundleTasksResponse = DescribeBundleTasksResponse'-    { _dbtrsBundleTasks :: !(Maybe [BundleTask])-    , _dbtrsStatus      :: !Int+    { _dbtrsBundleTasks    :: !(Maybe [BundleTask])+    , _dbtrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeBundleTasksResponse' with the minimum fields required to make a request.@@ -155,14 +155,14 @@ -- -- * 'dbtrsBundleTasks' ----- * 'dbtrsStatus'+-- * 'dbtrsResponseStatus' describeBundleTasksResponse-    :: Int -- ^ 'dbtrsStatus'+    :: Int -- ^ 'dbtrsResponseStatus'     -> DescribeBundleTasksResponse-describeBundleTasksResponse pStatus_ =+describeBundleTasksResponse pResponseStatus_ =     DescribeBundleTasksResponse'     { _dbtrsBundleTasks = Nothing-    , _dbtrsStatus = pStatus_+    , _dbtrsResponseStatus = pResponseStatus_     }  -- | Information about one or more bundle tasks.@@ -170,5 +170,5 @@ dbtrsBundleTasks = lens _dbtrsBundleTasks (\ s a -> s{_dbtrsBundleTasks = a}) . _Default . _Coerce;  -- | The response status code.-dbtrsStatus :: Lens' DescribeBundleTasksResponse Int-dbtrsStatus = lens _dbtrsStatus (\ s a -> s{_dbtrsStatus = a});+dbtrsResponseStatus :: Lens' DescribeBundleTasksResponse Int+dbtrsResponseStatus = lens _dbtrsResponseStatus (\ s a -> s{_dbtrsResponseStatus = a});

@@ -42,7 +42,7 @@     -- * Response Lenses     , dclirsNextToken     , dclirsInstances-    , dclirsStatus+    , dclirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -173,9 +173,9 @@  -- | /See:/ 'describeClassicLinkInstancesResponse' smart constructor. data DescribeClassicLinkInstancesResponse = DescribeClassicLinkInstancesResponse'-    { _dclirsNextToken :: !(Maybe Text)-    , _dclirsInstances :: !(Maybe [ClassicLinkInstance])-    , _dclirsStatus    :: !Int+    { _dclirsNextToken      :: !(Maybe Text)+    , _dclirsInstances      :: !(Maybe [ClassicLinkInstance])+    , _dclirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeClassicLinkInstancesResponse' with the minimum fields required to make a request.@@ -186,15 +186,15 @@ -- -- * 'dclirsInstances' ----- * 'dclirsStatus'+-- * 'dclirsResponseStatus' describeClassicLinkInstancesResponse-    :: Int -- ^ 'dclirsStatus'+    :: Int -- ^ 'dclirsResponseStatus'     -> DescribeClassicLinkInstancesResponse-describeClassicLinkInstancesResponse pStatus_ =+describeClassicLinkInstancesResponse pResponseStatus_ =     DescribeClassicLinkInstancesResponse'     { _dclirsNextToken = Nothing     , _dclirsInstances = Nothing-    , _dclirsStatus = pStatus_+    , _dclirsResponseStatus = pResponseStatus_     }  -- | The token to use to retrieve the next page of results. This value is@@ -207,5 +207,5 @@ dclirsInstances = lens _dclirsInstances (\ s a -> s{_dclirsInstances = a}) . _Default . _Coerce;  -- | The response status code.-dclirsStatus :: Lens' DescribeClassicLinkInstancesResponse Int-dclirsStatus = lens _dclirsStatus (\ s a -> s{_dclirsStatus = a});+dclirsResponseStatus :: Lens' DescribeClassicLinkInstancesResponse Int+dclirsResponseStatus = lens _dclirsResponseStatus (\ s a -> s{_dclirsResponseStatus = a});

@@ -30,8 +30,8 @@       describeConversionTasks     , DescribeConversionTasks     -- * Request Lenses-    , dctConversionTaskIds     , dctFilters+    , dctConversionTaskIds     , dctDryRun      -- * Destructuring the Response@@ -39,7 +39,7 @@     , DescribeConversionTasksResponse     -- * Response Lenses     , dctrsConversionTasks-    , dctrsStatus+    , dctrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -50,8 +50,8 @@  -- | /See:/ 'describeConversionTasks' smart constructor. data DescribeConversionTasks = DescribeConversionTasks'-    { _dctConversionTaskIds :: !(Maybe [Text])-    , _dctFilters           :: !(Maybe [Filter])+    { _dctFilters           :: !(Maybe [Filter])+    , _dctConversionTaskIds :: !(Maybe [Text])     , _dctDryRun            :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -59,28 +59,28 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dctConversionTaskIds'--- -- * 'dctFilters' --+-- * 'dctConversionTaskIds'+-- -- * 'dctDryRun' describeConversionTasks     :: DescribeConversionTasks describeConversionTasks =     DescribeConversionTasks'-    { _dctConversionTaskIds = Nothing-    , _dctFilters = Nothing+    { _dctFilters = Nothing+    , _dctConversionTaskIds = Nothing     , _dctDryRun = Nothing     } --- | One or more conversion task IDs.-dctConversionTaskIds :: Lens' DescribeConversionTasks [Text]-dctConversionTaskIds = lens _dctConversionTaskIds (\ s a -> s{_dctConversionTaskIds = a}) . _Default . _Coerce;- -- | One or more filters. dctFilters :: Lens' DescribeConversionTasks [Filter] dctFilters = lens _dctFilters (\ s a -> s{_dctFilters = a}) . _Default . _Coerce; +-- | One or more conversion task IDs.+dctConversionTaskIds :: Lens' DescribeConversionTasks [Text]+dctConversionTaskIds = lens _dctConversionTaskIds (\ s a -> s{_dctConversionTaskIds = a}) . _Default . _Coerce;+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -112,16 +112,16 @@               ["Action" =:                  ("DescribeConversionTasks" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),+               toQuery (toQueryList "Filter" <$> _dctFilters),                toQuery                  (toQueryList "ConversionTaskId" <$>                     _dctConversionTaskIds),-               toQuery (toQueryList "Filter" <$> _dctFilters),                "DryRun" =: _dctDryRun]  -- | /See:/ 'describeConversionTasksResponse' smart constructor. data DescribeConversionTasksResponse = DescribeConversionTasksResponse'     { _dctrsConversionTasks :: !(Maybe [ConversionTask])-    , _dctrsStatus          :: !Int+    , _dctrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeConversionTasksResponse' with the minimum fields required to make a request.@@ -130,14 +130,14 @@ -- -- * 'dctrsConversionTasks' ----- * 'dctrsStatus'+-- * 'dctrsResponseStatus' describeConversionTasksResponse-    :: Int -- ^ 'dctrsStatus'+    :: Int -- ^ 'dctrsResponseStatus'     -> DescribeConversionTasksResponse-describeConversionTasksResponse pStatus_ =+describeConversionTasksResponse pResponseStatus_ =     DescribeConversionTasksResponse'     { _dctrsConversionTasks = Nothing-    , _dctrsStatus = pStatus_+    , _dctrsResponseStatus = pResponseStatus_     }  -- | Information about the conversion tasks.@@ -145,5 +145,5 @@ dctrsConversionTasks = lens _dctrsConversionTasks (\ s a -> s{_dctrsConversionTasks = a}) . _Default . _Coerce;  -- | The response status code.-dctrsStatus :: Lens' DescribeConversionTasksResponse Int-dctrsStatus = lens _dctrsStatus (\ s a -> s{_dctrsStatus = a});+dctrsResponseStatus :: Lens' DescribeConversionTasksResponse Int+dctrsResponseStatus = lens _dctrsResponseStatus (\ s a -> s{_dctrsResponseStatus = a});

@@ -40,7 +40,7 @@     , DescribeCustomerGatewaysResponse     -- * Response Lenses     , dcgrsCustomerGateways-    , dcgrsStatus+    , dcgrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -153,7 +153,7 @@ -- | /See:/ 'describeCustomerGatewaysResponse' smart constructor. data DescribeCustomerGatewaysResponse = DescribeCustomerGatewaysResponse'     { _dcgrsCustomerGateways :: !(Maybe [CustomerGateway])-    , _dcgrsStatus           :: !Int+    , _dcgrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeCustomerGatewaysResponse' with the minimum fields required to make a request.@@ -162,14 +162,14 @@ -- -- * 'dcgrsCustomerGateways' ----- * 'dcgrsStatus'+-- * 'dcgrsResponseStatus' describeCustomerGatewaysResponse-    :: Int -- ^ 'dcgrsStatus'+    :: Int -- ^ 'dcgrsResponseStatus'     -> DescribeCustomerGatewaysResponse-describeCustomerGatewaysResponse pStatus_ =+describeCustomerGatewaysResponse pResponseStatus_ =     DescribeCustomerGatewaysResponse'     { _dcgrsCustomerGateways = Nothing-    , _dcgrsStatus = pStatus_+    , _dcgrsResponseStatus = pResponseStatus_     }  -- | Information about one or more customer gateways.@@ -177,5 +177,5 @@ dcgrsCustomerGateways = lens _dcgrsCustomerGateways (\ s a -> s{_dcgrsCustomerGateways = a}) . _Default . _Coerce;  -- | The response status code.-dcgrsStatus :: Lens' DescribeCustomerGatewaysResponse Int-dcgrsStatus = lens _dcgrsStatus (\ s a -> s{_dcgrsStatus = a});+dcgrsResponseStatus :: Lens' DescribeCustomerGatewaysResponse Int+dcgrsResponseStatus = lens _dcgrsResponseStatus (\ s a -> s{_dcgrsResponseStatus = a});

@@ -40,7 +40,7 @@     , DescribeDHCPOptionsResponse     -- * Response Lenses     , ddorsDHCPOptions-    , ddorsStatus+    , ddorsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -142,8 +142,8 @@  -- | /See:/ 'describeDHCPOptionsResponse' smart constructor. data DescribeDHCPOptionsResponse = DescribeDHCPOptionsResponse'-    { _ddorsDHCPOptions :: !(Maybe [DHCPOptions])-    , _ddorsStatus      :: !Int+    { _ddorsDHCPOptions    :: !(Maybe [DHCPOptions])+    , _ddorsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeDHCPOptionsResponse' with the minimum fields required to make a request.@@ -152,14 +152,14 @@ -- -- * 'ddorsDHCPOptions' ----- * 'ddorsStatus'+-- * 'ddorsResponseStatus' describeDHCPOptionsResponse-    :: Int -- ^ 'ddorsStatus'+    :: Int -- ^ 'ddorsResponseStatus'     -> DescribeDHCPOptionsResponse-describeDHCPOptionsResponse pStatus_ =+describeDHCPOptionsResponse pResponseStatus_ =     DescribeDHCPOptionsResponse'     { _ddorsDHCPOptions = Nothing-    , _ddorsStatus = pStatus_+    , _ddorsResponseStatus = pResponseStatus_     }  -- | Information about one or more DHCP options sets.@@ -167,5 +167,5 @@ ddorsDHCPOptions = lens _ddorsDHCPOptions (\ s a -> s{_ddorsDHCPOptions = a}) . _Default . _Coerce;  -- | The response status code.-ddorsStatus :: Lens' DescribeDHCPOptionsResponse Int-ddorsStatus = lens _ddorsStatus (\ s a -> s{_ddorsStatus = a});+ddorsResponseStatus :: Lens' DescribeDHCPOptionsResponse Int+ddorsResponseStatus = lens _ddorsResponseStatus (\ s a -> s{_ddorsResponseStatus = a});

@@ -34,7 +34,7 @@     , DescribeExportTasksResponse     -- * Response Lenses     , detrsExportTasks-    , detrsStatus+    , detrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -92,8 +92,8 @@  -- | /See:/ 'describeExportTasksResponse' smart constructor. data DescribeExportTasksResponse = DescribeExportTasksResponse'-    { _detrsExportTasks :: !(Maybe [ExportTask])-    , _detrsStatus      :: !Int+    { _detrsExportTasks    :: !(Maybe [ExportTask])+    , _detrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeExportTasksResponse' with the minimum fields required to make a request.@@ -102,14 +102,14 @@ -- -- * 'detrsExportTasks' ----- * 'detrsStatus'+-- * 'detrsResponseStatus' describeExportTasksResponse-    :: Int -- ^ 'detrsStatus'+    :: Int -- ^ 'detrsResponseStatus'     -> DescribeExportTasksResponse-describeExportTasksResponse pStatus_ =+describeExportTasksResponse pResponseStatus_ =     DescribeExportTasksResponse'     { _detrsExportTasks = Nothing-    , _detrsStatus = pStatus_+    , _detrsResponseStatus = pResponseStatus_     }  -- | Information about the export tasks.@@ -117,5 +117,5 @@ detrsExportTasks = lens _detrsExportTasks (\ s a -> s{_detrsExportTasks = a}) . _Default . _Coerce;  -- | The response status code.-detrsStatus :: Lens' DescribeExportTasksResponse Int-detrsStatus = lens _detrsStatus (\ s a -> s{_detrsStatus = a});+detrsResponseStatus :: Lens' DescribeExportTasksResponse Int+detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a});

@@ -30,8 +30,8 @@     , DescribeFlowLogs     -- * Request Lenses     , dNextToken-    , dFilter     , dFlowLogIds+    , dFilter     , dMaxResults      -- * Destructuring the Response@@ -40,7 +40,7 @@     -- * Response Lenses     , dflsrsNextToken     , dflsrsFlowLogs-    , dflsrsStatus+    , dflsrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -52,8 +52,8 @@ -- | /See:/ 'describeFlowLogs' smart constructor. data DescribeFlowLogs = DescribeFlowLogs'     { _dNextToken  :: !(Maybe Text)-    , _dFilter     :: !(Maybe [Filter])     , _dFlowLogIds :: !(Maybe [Text])+    , _dFilter     :: !(Maybe [Filter])     , _dMaxResults :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -63,18 +63,18 @@ -- -- * 'dNextToken' ----- * 'dFilter'--- -- * 'dFlowLogIds' --+-- * 'dFilter'+-- -- * 'dMaxResults' describeFlowLogs     :: DescribeFlowLogs describeFlowLogs =     DescribeFlowLogs'     { _dNextToken = Nothing-    , _dFilter = Nothing     , _dFlowLogIds = Nothing+    , _dFilter = Nothing     , _dMaxResults = Nothing     } @@ -82,6 +82,10 @@ dNextToken :: Lens' DescribeFlowLogs (Maybe Text) dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a}); +-- | One or more flow log IDs.+dFlowLogIds :: Lens' DescribeFlowLogs [Text]+dFlowLogIds = lens _dFlowLogIds (\ s a -> s{_dFlowLogIds = a}) . _Default . _Coerce;+ -- | One or more filters. -- -- -   'deliver-log-status' - The status of the logs delivery ('SUCCESS' |@@ -98,10 +102,6 @@ dFilter :: Lens' DescribeFlowLogs [Filter] dFilter = lens _dFilter (\ s a -> s{_dFilter = a}) . _Default . _Coerce; --- | One or more flow log IDs.-dFlowLogIds :: Lens' DescribeFlowLogs [Text]-dFlowLogIds = lens _dFlowLogIds (\ s a -> s{_dFlowLogIds = a}) . _Default . _Coerce;- -- | The maximum number of results to return for the request in a single -- page. The remaining results can be seen by sending another request with -- the returned 'NextToken' value. This value can be between 5 and 1000; if@@ -135,15 +135,15 @@               ["Action" =: ("DescribeFlowLogs" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),                "NextToken" =: _dNextToken,-               toQuery (toQueryList "Filter" <$> _dFilter),                toQuery (toQueryList "FlowLogId" <$> _dFlowLogIds),+               toQuery (toQueryList "Filter" <$> _dFilter),                "MaxResults" =: _dMaxResults]  -- | /See:/ 'describeFlowLogsResponse' smart constructor. data DescribeFlowLogsResponse = DescribeFlowLogsResponse'-    { _dflsrsNextToken :: !(Maybe Text)-    , _dflsrsFlowLogs  :: !(Maybe [FlowLog])-    , _dflsrsStatus    :: !Int+    { _dflsrsNextToken      :: !(Maybe Text)+    , _dflsrsFlowLogs       :: !(Maybe [FlowLog])+    , _dflsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeFlowLogsResponse' with the minimum fields required to make a request.@@ -154,15 +154,15 @@ -- -- * 'dflsrsFlowLogs' ----- * 'dflsrsStatus'+-- * 'dflsrsResponseStatus' describeFlowLogsResponse-    :: Int -- ^ 'dflsrsStatus'+    :: Int -- ^ 'dflsrsResponseStatus'     -> DescribeFlowLogsResponse-describeFlowLogsResponse pStatus_ =+describeFlowLogsResponse pResponseStatus_ =     DescribeFlowLogsResponse'     { _dflsrsNextToken = Nothing     , _dflsrsFlowLogs = Nothing-    , _dflsrsStatus = pStatus_+    , _dflsrsResponseStatus = pResponseStatus_     }  -- | The token to use to retrieve the next page of results. This value is@@ -175,5 +175,5 @@ dflsrsFlowLogs = lens _dflsrsFlowLogs (\ s a -> s{_dflsrsFlowLogs = a}) . _Default . _Coerce;  -- | The response status code.-dflsrsStatus :: Lens' DescribeFlowLogsResponse Int-dflsrsStatus = lens _dflsrsStatus (\ s a -> s{_dflsrsStatus = a});+dflsrsResponseStatus :: Lens' DescribeFlowLogsResponse Int+dflsrsResponseStatus = lens _dflsrsResponseStatus (\ s a -> s{_dflsrsResponseStatus = a});

@@ -42,9 +42,9 @@     , diarsSRIOVNetSupport     , diarsImageId     , diarsProductCodes-    , diarsBlockDeviceMappings     , diarsDescription-    , diarsStatus+    , diarsBlockDeviceMappings+    , diarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -117,10 +117,10 @@                      <*>                      (x .@? "productCodes" .!@ mempty >>=                         may (parseXMLList "item"))+                     <*> (x .@? "description")                      <*>                      (x .@? "blockDeviceMapping" .!@ mempty >>=                         may (parseXMLList "item"))-                     <*> (x .@? "description")                      <*> (pure (fromEnum s)))  instance ToHeaders DescribeImageAttribute where@@ -148,9 +148,9 @@     , _diarsSRIOVNetSupport     :: !(Maybe AttributeValue)     , _diarsImageId             :: !(Maybe Text)     , _diarsProductCodes        :: !(Maybe [ProductCode])-    , _diarsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping])     , _diarsDescription         :: !(Maybe AttributeValue)-    , _diarsStatus              :: !Int+    , _diarsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping])+    , _diarsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeImageAttributeResponse' with the minimum fields required to make a request.@@ -169,15 +169,15 @@ -- -- * 'diarsProductCodes' ----- * 'diarsBlockDeviceMappings'--- -- * 'diarsDescription' ----- * 'diarsStatus'+-- * 'diarsBlockDeviceMappings'+--+-- * 'diarsResponseStatus' describeImageAttributeResponse-    :: Int -- ^ 'diarsStatus'+    :: Int -- ^ 'diarsResponseStatus'     -> DescribeImageAttributeResponse-describeImageAttributeResponse pStatus_ =+describeImageAttributeResponse pResponseStatus_ =     DescribeImageAttributeResponse'     { _diarsLaunchPermissions = Nothing     , _diarsRAMDiskId = Nothing@@ -185,9 +185,9 @@     , _diarsSRIOVNetSupport = Nothing     , _diarsImageId = Nothing     , _diarsProductCodes = Nothing-    , _diarsBlockDeviceMappings = Nothing     , _diarsDescription = Nothing-    , _diarsStatus = pStatus_+    , _diarsBlockDeviceMappings = Nothing+    , _diarsResponseStatus = pResponseStatus_     }  -- | One or more launch permissions.@@ -214,14 +214,14 @@ diarsProductCodes :: Lens' DescribeImageAttributeResponse [ProductCode] diarsProductCodes = lens _diarsProductCodes (\ s a -> s{_diarsProductCodes = a}) . _Default . _Coerce; --- | One or more block device mapping entries.-diarsBlockDeviceMappings :: Lens' DescribeImageAttributeResponse [BlockDeviceMapping]-diarsBlockDeviceMappings = lens _diarsBlockDeviceMappings (\ s a -> s{_diarsBlockDeviceMappings = a}) . _Default . _Coerce;- -- | A description for the AMI. diarsDescription :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue) diarsDescription = lens _diarsDescription (\ s a -> s{_diarsDescription = a}); +-- | One or more block device mapping entries.+diarsBlockDeviceMappings :: Lens' DescribeImageAttributeResponse [BlockDeviceMapping]+diarsBlockDeviceMappings = lens _diarsBlockDeviceMappings (\ s a -> s{_diarsBlockDeviceMappings = a}) . _Default . _Coerce;+ -- | The response status code.-diarsStatus :: Lens' DescribeImageAttributeResponse Int-diarsStatus = lens _diarsStatus (\ s a -> s{_diarsStatus = a});+diarsResponseStatus :: Lens' DescribeImageAttributeResponse Int+diarsResponseStatus = lens _diarsResponseStatus (\ s a -> s{_diarsResponseStatus = a});

@@ -44,7 +44,7 @@     , DescribeImagesResponse     -- * Response Lenses     , desrsImages-    , desrsStatus+    , desrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -228,8 +228,8 @@  -- | /See:/ 'describeImagesResponse' smart constructor. data DescribeImagesResponse = DescribeImagesResponse'-    { _desrsImages :: !(Maybe [Image])-    , _desrsStatus :: !Int+    { _desrsImages         :: !(Maybe [Image])+    , _desrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeImagesResponse' with the minimum fields required to make a request.@@ -238,14 +238,14 @@ -- -- * 'desrsImages' ----- * 'desrsStatus'+-- * 'desrsResponseStatus' describeImagesResponse-    :: Int -- ^ 'desrsStatus'+    :: Int -- ^ 'desrsResponseStatus'     -> DescribeImagesResponse-describeImagesResponse pStatus_ =+describeImagesResponse pResponseStatus_ =     DescribeImagesResponse'     { _desrsImages = Nothing-    , _desrsStatus = pStatus_+    , _desrsResponseStatus = pResponseStatus_     }  -- | Information about one or more images.@@ -253,5 +253,5 @@ desrsImages = lens _desrsImages (\ s a -> s{_desrsImages = a}) . _Default . _Coerce;  -- | The response status code.-desrsStatus :: Lens' DescribeImagesResponse Int-desrsStatus = lens _desrsStatus (\ s a -> s{_desrsStatus = a});+desrsResponseStatus :: Lens' DescribeImagesResponse Int+desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a});

@@ -38,9 +38,9 @@     , describeImportImageTasksResponse     , DescribeImportImageTasksResponse     -- * Response Lenses-    , diitrsImportImageTasks     , diitrsNextToken-    , diitrsStatus+    , diitrsImportImageTasks+    , diitrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -113,9 +113,9 @@           = receiveXML               (\ s h x ->                  DescribeImportImageTasksResponse' <$>-                   (x .@? "importImageTaskSet" .!@ mempty >>=-                      may (parseXMLList "item"))-                     <*> (x .@? "nextToken")+                   (x .@? "nextToken") <*>+                     (x .@? "importImageTaskSet" .!@ mempty >>=+                        may (parseXMLList "item"))                      <*> (pure (fromEnum s)))  instance ToHeaders DescribeImportImageTasks where@@ -139,40 +139,40 @@  -- | /See:/ 'describeImportImageTasksResponse' smart constructor. data DescribeImportImageTasksResponse = DescribeImportImageTasksResponse'-    { _diitrsImportImageTasks :: !(Maybe [ImportImageTask])-    , _diitrsNextToken        :: !(Maybe Text)-    , _diitrsStatus           :: !Int+    { _diitrsNextToken        :: !(Maybe Text)+    , _diitrsImportImageTasks :: !(Maybe [ImportImageTask])+    , _diitrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeImportImageTasksResponse' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: ----- * 'diitrsImportImageTasks'--- -- * 'diitrsNextToken' ----- * 'diitrsStatus'+-- * 'diitrsImportImageTasks'+--+-- * 'diitrsResponseStatus' describeImportImageTasksResponse-    :: Int -- ^ 'diitrsStatus'+    :: Int -- ^ 'diitrsResponseStatus'     -> DescribeImportImageTasksResponse-describeImportImageTasksResponse pStatus_ =+describeImportImageTasksResponse pResponseStatus_ =     DescribeImportImageTasksResponse'-    { _diitrsImportImageTasks = Nothing-    , _diitrsNextToken = Nothing-    , _diitrsStatus = pStatus_+    { _diitrsNextToken = Nothing+    , _diitrsImportImageTasks = Nothing+    , _diitrsResponseStatus = pResponseStatus_     } --- | A list of zero or more import image tasks that are currently active or--- were completed or canceled in the previous 7 days.-diitrsImportImageTasks :: Lens' DescribeImportImageTasksResponse [ImportImageTask]-diitrsImportImageTasks = lens _diitrsImportImageTasks (\ s a -> s{_diitrsImportImageTasks = a}) . _Default . _Coerce;- -- | The token to use to get the next page of results. This value is 'null' -- when there are no more results to return. diitrsNextToken :: Lens' DescribeImportImageTasksResponse (Maybe Text) diitrsNextToken = lens _diitrsNextToken (\ s a -> s{_diitrsNextToken = a}); +-- | A list of zero or more import image tasks that are currently active or+-- were completed or canceled in the previous 7 days.+diitrsImportImageTasks :: Lens' DescribeImportImageTasksResponse [ImportImageTask]+diitrsImportImageTasks = lens _diitrsImportImageTasks (\ s a -> s{_diitrsImportImageTasks = a}) . _Default . _Coerce;+ -- | The response status code.-diitrsStatus :: Lens' DescribeImportImageTasksResponse Int-diitrsStatus = lens _diitrsStatus (\ s a -> s{_diitrsStatus = a});+diitrsResponseStatus :: Lens' DescribeImportImageTasksResponse Int+diitrsResponseStatus = lens _diitrsResponseStatus (\ s a -> s{_diitrsResponseStatus = a});

@@ -39,7 +39,7 @@     -- * Response Lenses     , distrsNextToken     , distrsImportSnapshotTasks-    , distrsStatus+    , distrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -140,7 +140,7 @@ data DescribeImportSnapshotTasksResponse = DescribeImportSnapshotTasksResponse'     { _distrsNextToken           :: !(Maybe Text)     , _distrsImportSnapshotTasks :: !(Maybe [ImportSnapshotTask])-    , _distrsStatus              :: !Int+    , _distrsResponseStatus      :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeImportSnapshotTasksResponse' with the minimum fields required to make a request.@@ -151,15 +151,15 @@ -- -- * 'distrsImportSnapshotTasks' ----- * 'distrsStatus'+-- * 'distrsResponseStatus' describeImportSnapshotTasksResponse-    :: Int -- ^ 'distrsStatus'+    :: Int -- ^ 'distrsResponseStatus'     -> DescribeImportSnapshotTasksResponse-describeImportSnapshotTasksResponse pStatus_ =+describeImportSnapshotTasksResponse pResponseStatus_ =     DescribeImportSnapshotTasksResponse'     { _distrsNextToken = Nothing     , _distrsImportSnapshotTasks = Nothing-    , _distrsStatus = pStatus_+    , _distrsResponseStatus = pResponseStatus_     }  -- | The token to use to get the next page of results. This value is 'null'@@ -173,5 +173,5 @@ distrsImportSnapshotTasks = lens _distrsImportSnapshotTasks (\ s a -> s{_distrsImportSnapshotTasks = a}) . _Default . _Coerce;  -- | The response status code.-distrsStatus :: Lens' DescribeImportSnapshotTasksResponse Int-distrsStatus = lens _distrsStatus (\ s a -> s{_distrsStatus = a});+distrsResponseStatus :: Lens' DescribeImportSnapshotTasksResponse Int+distrsResponseStatus = lens _distrsResponseStatus (\ s a -> s{_distrsResponseStatus = a});

@@ -46,15 +46,15 @@     , drsDisableAPITermination     , drsRAMDiskId     , drsKernelId-    , drsInstanceType     , drsRootDeviceName+    , drsInstanceType+    , drsSRIOVNetSupport     , drsEBSOptimized     , drsUserData-    , drsSRIOVNetSupport     , drsInstanceInitiatedShutdownBehavior     , drsProductCodes     , drsBlockDeviceMappings-    , drsStatus+    , drsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -120,11 +120,11 @@                      <*> (x .@? "disableApiTermination")                      <*> (x .@? "ramdisk")                      <*> (x .@? "kernel")-                     <*> (x .@? "instanceType")                      <*> (x .@? "rootDeviceName")+                     <*> (x .@? "instanceType")+                     <*> (x .@? "sriovNetSupport")                      <*> (x .@? "ebsOptimized")                      <*> (x .@? "userData")-                     <*> (x .@? "sriovNetSupport")                      <*> (x .@? "instanceInitiatedShutdownBehavior")                      <*>                      (x .@? "productCodes" .!@ mempty >>=@@ -160,15 +160,15 @@     , _drsDisableAPITermination             :: !(Maybe AttributeBooleanValue)     , _drsRAMDiskId                         :: !(Maybe AttributeValue)     , _drsKernelId                          :: !(Maybe AttributeValue)-    , _drsInstanceType                      :: !(Maybe AttributeValue)     , _drsRootDeviceName                    :: !(Maybe AttributeValue)+    , _drsInstanceType                      :: !(Maybe AttributeValue)+    , _drsSRIOVNetSupport                   :: !(Maybe AttributeValue)     , _drsEBSOptimized                      :: !(Maybe AttributeBooleanValue)     , _drsUserData                          :: !(Maybe AttributeValue)-    , _drsSRIOVNetSupport                   :: !(Maybe AttributeValue)     , _drsInstanceInitiatedShutdownBehavior :: !(Maybe AttributeValue)     , _drsProductCodes                      :: !(Maybe [ProductCode])     , _drsBlockDeviceMappings               :: !(Maybe [InstanceBlockDeviceMapping])-    , _drsStatus                            :: !Int+    , _drsResponseStatus                    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeInstanceAttributeResponse' with the minimum fields required to make a request.@@ -187,27 +187,27 @@ -- -- * 'drsKernelId' --+-- * 'drsRootDeviceName'+-- -- * 'drsInstanceType' ----- * 'drsRootDeviceName'+-- * 'drsSRIOVNetSupport' -- -- * 'drsEBSOptimized' -- -- * 'drsUserData' ----- * 'drsSRIOVNetSupport'--- -- * 'drsInstanceInitiatedShutdownBehavior' -- -- * 'drsProductCodes' -- -- * 'drsBlockDeviceMappings' ----- * 'drsStatus'+-- * 'drsResponseStatus' describeInstanceAttributeResponse-    :: Int -- ^ 'drsStatus'+    :: Int -- ^ 'drsResponseStatus'     -> DescribeInstanceAttributeResponse-describeInstanceAttributeResponse pStatus_ =+describeInstanceAttributeResponse pResponseStatus_ =     DescribeInstanceAttributeResponse'     { _drsInstanceId = Nothing     , _drsGroups = Nothing@@ -215,15 +215,15 @@     , _drsDisableAPITermination = Nothing     , _drsRAMDiskId = Nothing     , _drsKernelId = Nothing-    , _drsInstanceType = Nothing     , _drsRootDeviceName = Nothing+    , _drsInstanceType = Nothing+    , _drsSRIOVNetSupport = Nothing     , _drsEBSOptimized = Nothing     , _drsUserData = Nothing-    , _drsSRIOVNetSupport = Nothing     , _drsInstanceInitiatedShutdownBehavior = Nothing     , _drsProductCodes = Nothing     , _drsBlockDeviceMappings = Nothing-    , _drsStatus = pStatus_+    , _drsResponseStatus = pResponseStatus_     }  -- | The ID of the instance.@@ -253,15 +253,19 @@ drsKernelId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) drsKernelId = lens _drsKernelId (\ s a -> s{_drsKernelId = a}); --- | The instance type.-drsInstanceType :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)-drsInstanceType = lens _drsInstanceType (\ s a -> s{_drsInstanceType = a});- -- | The name of the root device (for example, '\/dev\/sda1' or -- '\/dev\/xvda'). drsRootDeviceName :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) drsRootDeviceName = lens _drsRootDeviceName (\ s a -> s{_drsRootDeviceName = a}); +-- | The instance type.+drsInstanceType :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+drsInstanceType = lens _drsInstanceType (\ s a -> s{_drsInstanceType = a});++-- | Undocumented member.+drsSRIOVNetSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)+drsSRIOVNetSupport = lens _drsSRIOVNetSupport (\ s a -> s{_drsSRIOVNetSupport = a});+ -- | Indicates whether the instance is optimized for EBS I\/O. drsEBSOptimized :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) drsEBSOptimized = lens _drsEBSOptimized (\ s a -> s{_drsEBSOptimized = a});@@ -270,10 +274,6 @@ drsUserData :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) drsUserData = lens _drsUserData (\ s a -> s{_drsUserData = a}); --- | Undocumented member.-drsSRIOVNetSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue)-drsSRIOVNetSupport = lens _drsSRIOVNetSupport (\ s a -> s{_drsSRIOVNetSupport = a});- -- | Indicates whether an instance stops or terminates when you initiate -- shutdown from the instance (using the operating system command for -- system shutdown).@@ -289,5 +289,5 @@ drsBlockDeviceMappings = lens _drsBlockDeviceMappings (\ s a -> s{_drsBlockDeviceMappings = a}) . _Default . _Coerce;  -- | The response status code.-drsStatus :: Lens' DescribeInstanceAttributeResponse Int-drsStatus = lens _drsStatus (\ s a -> s{_drsStatus = a});+drsResponseStatus :: Lens' DescribeInstanceAttributeResponse Int+drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a});

@@ -65,7 +65,7 @@     -- * Response Lenses     , disrsInstanceStatuses     , disrsNextToken-    , disrsStatus+    , disrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -236,7 +236,7 @@ data DescribeInstanceStatusResponse = DescribeInstanceStatusResponse'     { _disrsInstanceStatuses :: !(Maybe [InstanceStatus])     , _disrsNextToken        :: !(Maybe Text)-    , _disrsStatus           :: !Int+    , _disrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeInstanceStatusResponse' with the minimum fields required to make a request.@@ -247,15 +247,15 @@ -- -- * 'disrsNextToken' ----- * 'disrsStatus'+-- * 'disrsResponseStatus' describeInstanceStatusResponse-    :: Int -- ^ 'disrsStatus'+    :: Int -- ^ 'disrsResponseStatus'     -> DescribeInstanceStatusResponse-describeInstanceStatusResponse pStatus_ =+describeInstanceStatusResponse pResponseStatus_ =     DescribeInstanceStatusResponse'     { _disrsInstanceStatuses = Nothing     , _disrsNextToken = Nothing-    , _disrsStatus = pStatus_+    , _disrsResponseStatus = pResponseStatus_     }  -- | One or more instance status descriptions.@@ -268,5 +268,5 @@ disrsNextToken = lens _disrsNextToken (\ s a -> s{_disrsNextToken = a});  -- | The response status code.-disrsStatus :: Lens' DescribeInstanceStatusResponse Int-disrsStatus = lens _disrsStatus (\ s a -> s{_disrsStatus = a});+disrsResponseStatus :: Lens' DescribeInstanceStatusResponse Int+disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a});

@@ -51,7 +51,7 @@     -- * Response Lenses     , dirsNextToken     , dirsReservations-    , dirsStatus+    , dirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -407,9 +407,9 @@  -- | /See:/ 'describeInstancesResponse' smart constructor. data DescribeInstancesResponse = DescribeInstancesResponse'-    { _dirsNextToken    :: !(Maybe Text)-    , _dirsReservations :: !(Maybe [Reservation])-    , _dirsStatus       :: !Int+    { _dirsNextToken      :: !(Maybe Text)+    , _dirsReservations   :: !(Maybe [Reservation])+    , _dirsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeInstancesResponse' with the minimum fields required to make a request.@@ -420,15 +420,15 @@ -- -- * 'dirsReservations' ----- * 'dirsStatus'+-- * 'dirsResponseStatus' describeInstancesResponse-    :: Int -- ^ 'dirsStatus'+    :: Int -- ^ 'dirsResponseStatus'     -> DescribeInstancesResponse-describeInstancesResponse pStatus_ =+describeInstancesResponse pResponseStatus_ =     DescribeInstancesResponse'     { _dirsNextToken = Nothing     , _dirsReservations = Nothing-    , _dirsStatus = pStatus_+    , _dirsResponseStatus = pResponseStatus_     }  -- | The token to use to retrieve the next page of results. This value is@@ -441,5 +441,5 @@ dirsReservations = lens _dirsReservations (\ s a -> s{_dirsReservations = a}) . _Default . _Coerce;  -- | The response status code.-dirsStatus :: Lens' DescribeInstancesResponse Int-dirsStatus = lens _dirsStatus (\ s a -> s{_dirsStatus = a});+dirsResponseStatus :: Lens' DescribeInstancesResponse Int+dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a});

@@ -36,7 +36,7 @@     , DescribeInternetGatewaysResponse     -- * Response Lenses     , digrsInternetGateways-    , digrsStatus+    , digrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -143,7 +143,7 @@ -- | /See:/ 'describeInternetGatewaysResponse' smart constructor. data DescribeInternetGatewaysResponse = DescribeInternetGatewaysResponse'     { _digrsInternetGateways :: !(Maybe [InternetGateway])-    , _digrsStatus           :: !Int+    , _digrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeInternetGatewaysResponse' with the minimum fields required to make a request.@@ -152,14 +152,14 @@ -- -- * 'digrsInternetGateways' ----- * 'digrsStatus'+-- * 'digrsResponseStatus' describeInternetGatewaysResponse-    :: Int -- ^ 'digrsStatus'+    :: Int -- ^ 'digrsResponseStatus'     -> DescribeInternetGatewaysResponse-describeInternetGatewaysResponse pStatus_ =+describeInternetGatewaysResponse pResponseStatus_ =     DescribeInternetGatewaysResponse'     { _digrsInternetGateways = Nothing-    , _digrsStatus = pStatus_+    , _digrsResponseStatus = pResponseStatus_     }  -- | Information about one or more Internet gateways.@@ -167,5 +167,5 @@ digrsInternetGateways = lens _digrsInternetGateways (\ s a -> s{_digrsInternetGateways = a}) . _Default . _Coerce;  -- | The response status code.-digrsStatus :: Lens' DescribeInternetGatewaysResponse Int-digrsStatus = lens _digrsStatus (\ s a -> s{_digrsStatus = a});+digrsResponseStatus :: Lens' DescribeInternetGatewaysResponse Int+digrsResponseStatus = lens _digrsResponseStatus (\ s a -> s{_digrsResponseStatus = a});

@@ -40,7 +40,7 @@     , DescribeKeyPairsResponse     -- * Response Lenses     , dkprsKeyPairs-    , dkprsStatus+    , dkprsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -124,8 +124,8 @@  -- | /See:/ 'describeKeyPairsResponse' smart constructor. data DescribeKeyPairsResponse = DescribeKeyPairsResponse'-    { _dkprsKeyPairs :: !(Maybe [KeyPairInfo])-    , _dkprsStatus   :: !Int+    { _dkprsKeyPairs       :: !(Maybe [KeyPairInfo])+    , _dkprsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeKeyPairsResponse' with the minimum fields required to make a request.@@ -134,14 +134,14 @@ -- -- * 'dkprsKeyPairs' ----- * 'dkprsStatus'+-- * 'dkprsResponseStatus' describeKeyPairsResponse-    :: Int -- ^ 'dkprsStatus'+    :: Int -- ^ 'dkprsResponseStatus'     -> DescribeKeyPairsResponse-describeKeyPairsResponse pStatus_ =+describeKeyPairsResponse pResponseStatus_ =     DescribeKeyPairsResponse'     { _dkprsKeyPairs = Nothing-    , _dkprsStatus = pStatus_+    , _dkprsResponseStatus = pResponseStatus_     }  -- | Information about one or more key pairs.@@ -149,5 +149,5 @@ dkprsKeyPairs = lens _dkprsKeyPairs (\ s a -> s{_dkprsKeyPairs = a}) . _Default . _Coerce;  -- | The response status code.-dkprsStatus :: Lens' DescribeKeyPairsResponse Int-dkprsStatus = lens _dkprsStatus (\ s a -> s{_dkprsStatus = a});+dkprsResponseStatus :: Lens' DescribeKeyPairsResponse Int+dkprsResponseStatus = lens _dkprsResponseStatus (\ s a -> s{_dkprsResponseStatus = a});

@@ -30,8 +30,8 @@       describeMovingAddresses     , DescribeMovingAddresses     -- * Request Lenses-    , dmaPublicIPs     , dmaFilters+    , dmaPublicIPs     , dmaNextToken     , dmaDryRun     , dmaMaxResults@@ -42,7 +42,7 @@     -- * Response Lenses     , dmarsMovingAddressStatuses     , dmarsNextToken-    , dmarsStatus+    , dmarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -53,8 +53,8 @@  -- | /See:/ 'describeMovingAddresses' smart constructor. data DescribeMovingAddresses = DescribeMovingAddresses'-    { _dmaPublicIPs  :: !(Maybe [Text])-    , _dmaFilters    :: !(Maybe [Filter])+    { _dmaFilters    :: !(Maybe [Filter])+    , _dmaPublicIPs  :: !(Maybe [Text])     , _dmaNextToken  :: !(Maybe Text)     , _dmaDryRun     :: !(Maybe Bool)     , _dmaMaxResults :: !(Maybe Int)@@ -64,10 +64,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dmaPublicIPs'--- -- * 'dmaFilters' --+-- * 'dmaPublicIPs'+-- -- * 'dmaNextToken' -- -- * 'dmaDryRun'@@ -77,17 +77,13 @@     :: DescribeMovingAddresses describeMovingAddresses =     DescribeMovingAddresses'-    { _dmaPublicIPs = Nothing-    , _dmaFilters = Nothing+    { _dmaFilters = Nothing+    , _dmaPublicIPs = Nothing     , _dmaNextToken = Nothing     , _dmaDryRun = Nothing     , _dmaMaxResults = Nothing     } --- | One or more Elastic IP addresses.-dmaPublicIPs :: Lens' DescribeMovingAddresses [Text]-dmaPublicIPs = lens _dmaPublicIPs (\ s a -> s{_dmaPublicIPs = a}) . _Default . _Coerce;- -- | One or more filters. -- -- -   'moving-status' - The status of the Elastic IP address@@ -96,6 +92,10 @@ dmaFilters :: Lens' DescribeMovingAddresses [Filter] dmaFilters = lens _dmaFilters (\ s a -> s{_dmaFilters = a}) . _Default . _Coerce; +-- | One or more Elastic IP addresses.+dmaPublicIPs :: Lens' DescribeMovingAddresses [Text]+dmaPublicIPs = lens _dmaPublicIPs (\ s a -> s{_dmaPublicIPs = a}) . _Default . _Coerce;+ -- | The token to use to retrieve the next page of results. dmaNextToken :: Lens' DescribeMovingAddresses (Maybe Text) dmaNextToken = lens _dmaNextToken (\ s a -> s{_dmaNextToken = a});@@ -142,8 +142,8 @@               ["Action" =:                  ("DescribeMovingAddresses" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),-               toQuery (toQueryList "PublicIp" <$> _dmaPublicIPs),                toQuery (toQueryList "Filter" <$> _dmaFilters),+               toQuery (toQueryList "PublicIp" <$> _dmaPublicIPs),                "NextToken" =: _dmaNextToken, "DryRun" =: _dmaDryRun,                "MaxResults" =: _dmaMaxResults] @@ -151,7 +151,7 @@ data DescribeMovingAddressesResponse = DescribeMovingAddressesResponse'     { _dmarsMovingAddressStatuses :: !(Maybe [MovingAddressStatus])     , _dmarsNextToken             :: !(Maybe Text)-    , _dmarsStatus                :: !Int+    , _dmarsResponseStatus        :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeMovingAddressesResponse' with the minimum fields required to make a request.@@ -162,15 +162,15 @@ -- -- * 'dmarsNextToken' ----- * 'dmarsStatus'+-- * 'dmarsResponseStatus' describeMovingAddressesResponse-    :: Int -- ^ 'dmarsStatus'+    :: Int -- ^ 'dmarsResponseStatus'     -> DescribeMovingAddressesResponse-describeMovingAddressesResponse pStatus_ =+describeMovingAddressesResponse pResponseStatus_ =     DescribeMovingAddressesResponse'     { _dmarsMovingAddressStatuses = Nothing     , _dmarsNextToken = Nothing-    , _dmarsStatus = pStatus_+    , _dmarsResponseStatus = pResponseStatus_     }  -- | The status for each Elastic IP address.@@ -183,5 +183,5 @@ dmarsNextToken = lens _dmarsNextToken (\ s a -> s{_dmarsNextToken = a});  -- | The response status code.-dmarsStatus :: Lens' DescribeMovingAddressesResponse Int-dmarsStatus = lens _dmarsStatus (\ s a -> s{_dmarsStatus = a});+dmarsResponseStatus :: Lens' DescribeMovingAddressesResponse Int+dmarsResponseStatus = lens _dmarsResponseStatus (\ s a -> s{_dmarsResponseStatus = a});

@@ -32,15 +32,15 @@     , DescribeNetworkACLs     -- * Request Lenses     , dnaclFilters-    , dnaclDryRun     , dnaclNetworkACLIds+    , dnaclDryRun      -- * Destructuring the Response     , describeNetworkACLsResponse     , DescribeNetworkACLsResponse     -- * Response Lenses     , dnarsNetworkACLs-    , dnarsStatus+    , dnarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -52,8 +52,8 @@ -- | /See:/ 'describeNetworkACLs' smart constructor. data DescribeNetworkACLs = DescribeNetworkACLs'     { _dnaclFilters       :: !(Maybe [Filter])-    , _dnaclDryRun        :: !(Maybe Bool)     , _dnaclNetworkACLIds :: !(Maybe [Text])+    , _dnaclDryRun        :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeNetworkACLs' with the minimum fields required to make a request.@@ -62,16 +62,16 @@ -- -- * 'dnaclFilters' ----- * 'dnaclDryRun'--- -- * 'dnaclNetworkACLIds'+--+-- * 'dnaclDryRun' describeNetworkACLs     :: DescribeNetworkACLs describeNetworkACLs =     DescribeNetworkACLs'     { _dnaclFilters = Nothing-    , _dnaclDryRun = Nothing     , _dnaclNetworkACLIds = Nothing+    , _dnaclDryRun = Nothing     }  -- | One or more filters.@@ -133,6 +133,12 @@ dnaclFilters :: Lens' DescribeNetworkACLs [Filter] dnaclFilters = lens _dnaclFilters (\ s a -> s{_dnaclFilters = a}) . _Default . _Coerce; +-- | One or more network ACL IDs.+--+-- Default: Describes all your network ACLs.+dnaclNetworkACLIds :: Lens' DescribeNetworkACLs [Text]+dnaclNetworkACLIds = lens _dnaclNetworkACLIds (\ s a -> s{_dnaclNetworkACLIds = a}) . _Default . _Coerce;+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -140,12 +146,6 @@ dnaclDryRun :: Lens' DescribeNetworkACLs (Maybe Bool) dnaclDryRun = lens _dnaclDryRun (\ s a -> s{_dnaclDryRun = a}); --- | One or more network ACL IDs.------ Default: Describes all your network ACLs.-dnaclNetworkACLIds :: Lens' DescribeNetworkACLs [Text]-dnaclNetworkACLIds = lens _dnaclNetworkACLIds (\ s a -> s{_dnaclNetworkACLIds = a}) . _Default . _Coerce;- instance AWSRequest DescribeNetworkACLs where         type Rs DescribeNetworkACLs =              DescribeNetworkACLsResponse@@ -170,14 +170,14 @@               ["Action" =: ("DescribeNetworkAcls" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),                toQuery (toQueryList "Filter" <$> _dnaclFilters),-               "DryRun" =: _dnaclDryRun,                toQuery-                 (toQueryList "NetworkAclId" <$> _dnaclNetworkACLIds)]+                 (toQueryList "NetworkAclId" <$> _dnaclNetworkACLIds),+               "DryRun" =: _dnaclDryRun]  -- | /See:/ 'describeNetworkACLsResponse' smart constructor. data DescribeNetworkACLsResponse = DescribeNetworkACLsResponse'-    { _dnarsNetworkACLs :: !(Maybe [NetworkACL])-    , _dnarsStatus      :: !Int+    { _dnarsNetworkACLs    :: !(Maybe [NetworkACL])+    , _dnarsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeNetworkACLsResponse' with the minimum fields required to make a request.@@ -186,14 +186,14 @@ -- -- * 'dnarsNetworkACLs' ----- * 'dnarsStatus'+-- * 'dnarsResponseStatus' describeNetworkACLsResponse-    :: Int -- ^ 'dnarsStatus'+    :: Int -- ^ 'dnarsResponseStatus'     -> DescribeNetworkACLsResponse-describeNetworkACLsResponse pStatus_ =+describeNetworkACLsResponse pResponseStatus_ =     DescribeNetworkACLsResponse'     { _dnarsNetworkACLs = Nothing-    , _dnarsStatus = pStatus_+    , _dnarsResponseStatus = pResponseStatus_     }  -- | Information about one or more network ACLs.@@ -201,5 +201,5 @@ dnarsNetworkACLs = lens _dnarsNetworkACLs (\ s a -> s{_dnarsNetworkACLs = a}) . _Default . _Coerce;  -- | The response status code.-dnarsStatus :: Lens' DescribeNetworkACLsResponse Int-dnarsStatus = lens _dnarsStatus (\ s a -> s{_dnarsStatus = a});+dnarsResponseStatus :: Lens' DescribeNetworkACLsResponse Int+dnarsResponseStatus = lens _dnarsResponseStatus (\ s a -> s{_dnarsResponseStatus = a});

@@ -41,7 +41,7 @@     , dniarsNetworkInterfaceId     , dniarsAttachment     , dniarsDescription-    , dniarsStatus+    , dniarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -134,7 +134,7 @@     , _dniarsNetworkInterfaceId :: !(Maybe Text)     , _dniarsAttachment         :: !(Maybe NetworkInterfaceAttachment)     , _dniarsDescription        :: !(Maybe AttributeValue)-    , _dniarsStatus             :: !Int+    , _dniarsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeNetworkInterfaceAttributeResponse' with the minimum fields required to make a request.@@ -151,18 +151,18 @@ -- -- * 'dniarsDescription' ----- * 'dniarsStatus'+-- * 'dniarsResponseStatus' describeNetworkInterfaceAttributeResponse-    :: Int -- ^ 'dniarsStatus'+    :: Int -- ^ 'dniarsResponseStatus'     -> DescribeNetworkInterfaceAttributeResponse-describeNetworkInterfaceAttributeResponse pStatus_ =+describeNetworkInterfaceAttributeResponse pResponseStatus_ =     DescribeNetworkInterfaceAttributeResponse'     { _dniarsGroups = Nothing     , _dniarsSourceDestCheck = Nothing     , _dniarsNetworkInterfaceId = Nothing     , _dniarsAttachment = Nothing     , _dniarsDescription = Nothing-    , _dniarsStatus = pStatus_+    , _dniarsResponseStatus = pResponseStatus_     }  -- | The security groups associated with the network interface.@@ -186,5 +186,5 @@ dniarsDescription = lens _dniarsDescription (\ s a -> s{_dniarsDescription = a});  -- | The response status code.-dniarsStatus :: Lens' DescribeNetworkInterfaceAttributeResponse Int-dniarsStatus = lens _dniarsStatus (\ s a -> s{_dniarsStatus = a});+dniarsResponseStatus :: Lens' DescribeNetworkInterfaceAttributeResponse Int+dniarsResponseStatus = lens _dniarsResponseStatus (\ s a -> s{_dniarsResponseStatus = a});

@@ -36,7 +36,7 @@     , DescribeNetworkInterfacesResponse     -- * Response Lenses     , dnirsNetworkInterfaces-    , dnirsStatus+    , dnirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -227,7 +227,7 @@ -- | /See:/ 'describeNetworkInterfacesResponse' smart constructor. data DescribeNetworkInterfacesResponse = DescribeNetworkInterfacesResponse'     { _dnirsNetworkInterfaces :: !(Maybe [NetworkInterface])-    , _dnirsStatus            :: !Int+    , _dnirsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeNetworkInterfacesResponse' with the minimum fields required to make a request.@@ -236,14 +236,14 @@ -- -- * 'dnirsNetworkInterfaces' ----- * 'dnirsStatus'+-- * 'dnirsResponseStatus' describeNetworkInterfacesResponse-    :: Int -- ^ 'dnirsStatus'+    :: Int -- ^ 'dnirsResponseStatus'     -> DescribeNetworkInterfacesResponse-describeNetworkInterfacesResponse pStatus_ =+describeNetworkInterfacesResponse pResponseStatus_ =     DescribeNetworkInterfacesResponse'     { _dnirsNetworkInterfaces = Nothing-    , _dnirsStatus = pStatus_+    , _dnirsResponseStatus = pResponseStatus_     }  -- | Information about one or more network interfaces.@@ -251,5 +251,5 @@ dnirsNetworkInterfaces = lens _dnirsNetworkInterfaces (\ s a -> s{_dnirsNetworkInterfaces = a}) . _Default . _Coerce;  -- | The response status code.-dnirsStatus :: Lens' DescribeNetworkInterfacesResponse Int-dnirsStatus = lens _dnirsStatus (\ s a -> s{_dnirsStatus = a});+dnirsResponseStatus :: Lens' DescribeNetworkInterfacesResponse Int+dnirsResponseStatus = lens _dnirsResponseStatus (\ s a -> s{_dnirsResponseStatus = a});

@@ -30,8 +30,8 @@       describePlacementGroups     , DescribePlacementGroups     -- * Request Lenses-    , dpgsGroupNames     , dpgsFilters+    , dpgsGroupNames     , dpgsDryRun      -- * Destructuring the Response@@ -39,7 +39,7 @@     , DescribePlacementGroupsResponse     -- * Response Lenses     , dpgrsPlacementGroups-    , dpgrsStatus+    , dpgrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -50,8 +50,8 @@  -- | /See:/ 'describePlacementGroups' smart constructor. data DescribePlacementGroups = DescribePlacementGroups'-    { _dpgsGroupNames :: !(Maybe [Text])-    , _dpgsFilters    :: !(Maybe [Filter])+    { _dpgsFilters    :: !(Maybe [Filter])+    , _dpgsGroupNames :: !(Maybe [Text])     , _dpgsDryRun     :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -59,27 +59,20 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dpgsGroupNames'--- -- * 'dpgsFilters' --+-- * 'dpgsGroupNames'+-- -- * 'dpgsDryRun' describePlacementGroups     :: DescribePlacementGroups describePlacementGroups =     DescribePlacementGroups'-    { _dpgsGroupNames = Nothing-    , _dpgsFilters = Nothing+    { _dpgsFilters = Nothing+    , _dpgsGroupNames = Nothing     , _dpgsDryRun = Nothing     } --- | One or more placement group names.------ Default: Describes all your placement groups, or only those otherwise--- specified.-dpgsGroupNames :: Lens' DescribePlacementGroups [Text]-dpgsGroupNames = lens _dpgsGroupNames (\ s a -> s{_dpgsGroupNames = a}) . _Default . _Coerce;- -- | One or more filters. -- -- -   'group-name' - The name of the placement group.@@ -92,6 +85,13 @@ dpgsFilters :: Lens' DescribePlacementGroups [Filter] dpgsFilters = lens _dpgsFilters (\ s a -> s{_dpgsFilters = a}) . _Default . _Coerce; +-- | One or more placement group names.+--+-- Default: Describes all your placement groups, or only those otherwise+-- specified.+dpgsGroupNames :: Lens' DescribePlacementGroups [Text]+dpgsGroupNames = lens _dpgsGroupNames (\ s a -> s{_dpgsGroupNames = a}) . _Default . _Coerce;+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -123,15 +123,15 @@               ["Action" =:                  ("DescribePlacementGroups" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),+               toQuery (toQueryList "Filter" <$> _dpgsFilters),                toQuery                  (toQueryList "GroupName" <$> _dpgsGroupNames),-               toQuery (toQueryList "Filter" <$> _dpgsFilters),                "DryRun" =: _dpgsDryRun]  -- | /See:/ 'describePlacementGroupsResponse' smart constructor. data DescribePlacementGroupsResponse = DescribePlacementGroupsResponse'     { _dpgrsPlacementGroups :: !(Maybe [PlacementGroup])-    , _dpgrsStatus          :: !Int+    , _dpgrsResponseStatus  :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribePlacementGroupsResponse' with the minimum fields required to make a request.@@ -140,14 +140,14 @@ -- -- * 'dpgrsPlacementGroups' ----- * 'dpgrsStatus'+-- * 'dpgrsResponseStatus' describePlacementGroupsResponse-    :: Int -- ^ 'dpgrsStatus'+    :: Int -- ^ 'dpgrsResponseStatus'     -> DescribePlacementGroupsResponse-describePlacementGroupsResponse pStatus_ =+describePlacementGroupsResponse pResponseStatus_ =     DescribePlacementGroupsResponse'     { _dpgrsPlacementGroups = Nothing-    , _dpgrsStatus = pStatus_+    , _dpgrsResponseStatus = pResponseStatus_     }  -- | One or more placement groups.@@ -155,5 +155,5 @@ dpgrsPlacementGroups = lens _dpgrsPlacementGroups (\ s a -> s{_dpgrsPlacementGroups = a}) . _Default . _Coerce;  -- | The response status code.-dpgrsStatus :: Lens' DescribePlacementGroupsResponse Int-dpgrsStatus = lens _dpgrsStatus (\ s a -> s{_dpgrsStatus = a});+dpgrsResponseStatus :: Lens' DescribePlacementGroupsResponse Int+dpgrsResponseStatus = lens _dpgrsResponseStatus (\ s a -> s{_dpgrsResponseStatus = a});

@@ -32,8 +32,8 @@     , DescribePrefixLists     -- * Request Lenses     , dplFilters-    , dplNextToken     , dplPrefixListIds+    , dplNextToken     , dplDryRun     , dplMaxResults @@ -43,7 +43,7 @@     -- * Response Lenses     , dplrsNextToken     , dplrsPrefixLists-    , dplrsStatus+    , dplrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -55,8 +55,8 @@ -- | /See:/ 'describePrefixLists' smart constructor. data DescribePrefixLists = DescribePrefixLists'     { _dplFilters       :: !(Maybe [Filter])-    , _dplNextToken     :: !(Maybe Text)     , _dplPrefixListIds :: !(Maybe [Text])+    , _dplNextToken     :: !(Maybe Text)     , _dplDryRun        :: !(Maybe Bool)     , _dplMaxResults    :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -67,10 +67,10 @@ -- -- * 'dplFilters' ----- * 'dplNextToken'--- -- * 'dplPrefixListIds' --+-- * 'dplNextToken'+-- -- * 'dplDryRun' -- -- * 'dplMaxResults'@@ -79,8 +79,8 @@ describePrefixLists =     DescribePrefixLists'     { _dplFilters = Nothing-    , _dplNextToken = Nothing     , _dplPrefixListIds = Nothing+    , _dplNextToken = Nothing     , _dplDryRun = Nothing     , _dplMaxResults = Nothing     }@@ -94,15 +94,15 @@ dplFilters :: Lens' DescribePrefixLists [Filter] dplFilters = lens _dplFilters (\ s a -> s{_dplFilters = a}) . _Default . _Coerce; +-- | One or more prefix list IDs.+dplPrefixListIds :: Lens' DescribePrefixLists [Text]+dplPrefixListIds = lens _dplPrefixListIds (\ s a -> s{_dplPrefixListIds = a}) . _Default . _Coerce;+ -- | The token for the next set of items to return. (You received this token -- from a prior call.) dplNextToken :: Lens' DescribePrefixLists (Maybe Text) dplNextToken = lens _dplNextToken (\ s a -> s{_dplNextToken = a}); --- | One or more prefix list IDs.-dplPrefixListIds :: Lens' DescribePrefixLists [Text]-dplPrefixListIds = lens _dplPrefixListIds (\ s a -> s{_dplPrefixListIds = a}) . _Default . _Coerce;- -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -144,17 +144,16 @@               ["Action" =: ("DescribePrefixLists" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),                toQuery (toQueryList "Filter" <$> _dplFilters),-               "NextToken" =: _dplNextToken,                toQuery                  (toQueryList "PrefixListId" <$> _dplPrefixListIds),-               "DryRun" =: _dplDryRun,+               "NextToken" =: _dplNextToken, "DryRun" =: _dplDryRun,                "MaxResults" =: _dplMaxResults]  -- | /See:/ 'describePrefixListsResponse' smart constructor. data DescribePrefixListsResponse = DescribePrefixListsResponse'-    { _dplrsNextToken   :: !(Maybe Text)-    , _dplrsPrefixLists :: !(Maybe [PrefixList])-    , _dplrsStatus      :: !Int+    { _dplrsNextToken      :: !(Maybe Text)+    , _dplrsPrefixLists    :: !(Maybe [PrefixList])+    , _dplrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribePrefixListsResponse' with the minimum fields required to make a request.@@ -165,15 +164,15 @@ -- -- * 'dplrsPrefixLists' ----- * 'dplrsStatus'+-- * 'dplrsResponseStatus' describePrefixListsResponse-    :: Int -- ^ 'dplrsStatus'+    :: Int -- ^ 'dplrsResponseStatus'     -> DescribePrefixListsResponse-describePrefixListsResponse pStatus_ =+describePrefixListsResponse pResponseStatus_ =     DescribePrefixListsResponse'     { _dplrsNextToken = Nothing     , _dplrsPrefixLists = Nothing-    , _dplrsStatus = pStatus_+    , _dplrsResponseStatus = pResponseStatus_     }  -- | The token to use when requesting the next set of items. If there are no@@ -186,5 +185,5 @@ dplrsPrefixLists = lens _dplrsPrefixLists (\ s a -> s{_dplrsPrefixLists = a}) . _Default . _Coerce;  -- | The response status code.-dplrsStatus :: Lens' DescribePrefixListsResponse Int-dplrsStatus = lens _dplrsStatus (\ s a -> s{_dplrsStatus = a});+dplrsResponseStatus :: Lens' DescribePrefixListsResponse Int+dplrsResponseStatus = lens _dplrsResponseStatus (\ s a -> s{_dplrsResponseStatus = a});

@@ -39,7 +39,7 @@     , DescribeRegionsResponse     -- * Response Lenses     , drrsRegions-    , drrsStatus+    , drrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -123,8 +123,8 @@  -- | /See:/ 'describeRegionsResponse' smart constructor. data DescribeRegionsResponse = DescribeRegionsResponse'-    { _drrsRegions :: !(Maybe [RegionInfo])-    , _drrsStatus  :: !Int+    { _drrsRegions        :: !(Maybe [RegionInfo])+    , _drrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeRegionsResponse' with the minimum fields required to make a request.@@ -133,14 +133,14 @@ -- -- * 'drrsRegions' ----- * 'drrsStatus'+-- * 'drrsResponseStatus' describeRegionsResponse-    :: Int -- ^ 'drrsStatus'+    :: Int -- ^ 'drrsResponseStatus'     -> DescribeRegionsResponse-describeRegionsResponse pStatus_ =+describeRegionsResponse pResponseStatus_ =     DescribeRegionsResponse'     { _drrsRegions = Nothing-    , _drrsStatus = pStatus_+    , _drrsResponseStatus = pResponseStatus_     }  -- | Information about one or more regions.@@ -148,5 +148,5 @@ drrsRegions = lens _drrsRegions (\ s a -> s{_drrsRegions = a}) . _Default . _Coerce;  -- | The response status code.-drrsStatus :: Lens' DescribeRegionsResponse Int-drrsStatus = lens _drrsStatus (\ s a -> s{_drrsStatus = a});+drrsResponseStatus :: Lens' DescribeRegionsResponse Int+drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a});

@@ -32,8 +32,8 @@     , DescribeReservedInstances     -- * Request Lenses     , driFilters-    , driOfferingType     , driReservedInstancesIds+    , driOfferingType     , driDryRun      -- * Destructuring the Response@@ -41,7 +41,7 @@     , DescribeReservedInstancesResponse     -- * Response Lenses     , drirsReservedInstances-    , drirsStatus+    , drirsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -53,8 +53,8 @@ -- | /See:/ 'describeReservedInstances' smart constructor. data DescribeReservedInstances = DescribeReservedInstances'     { _driFilters              :: !(Maybe [Filter])-    , _driOfferingType         :: !(Maybe OfferingTypeValues)     , _driReservedInstancesIds :: !(Maybe [Text])+    , _driOfferingType         :: !(Maybe OfferingTypeValues)     , _driDryRun               :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -64,18 +64,18 @@ -- -- * 'driFilters' ----- * 'driOfferingType'--- -- * 'driReservedInstancesIds' --+-- * 'driOfferingType'+-- -- * 'driDryRun' describeReservedInstances     :: DescribeReservedInstances describeReservedInstances =     DescribeReservedInstances'     { _driFilters = Nothing-    , _driOfferingType = Nothing     , _driReservedInstancesIds = Nothing+    , _driOfferingType = Nothing     , _driDryRun = Nothing     } @@ -138,12 +138,6 @@ driFilters :: Lens' DescribeReservedInstances [Filter] driFilters = lens _driFilters (\ s a -> s{_driFilters = a}) . _Default . _Coerce; --- | The Reserved Instance offering type. If you are using tools that predate--- the 2011-11-01 API version, you only have access to the--- 'Medium Utilization' Reserved Instance offering type.-driOfferingType :: Lens' DescribeReservedInstances (Maybe OfferingTypeValues)-driOfferingType = lens _driOfferingType (\ s a -> s{_driOfferingType = a});- -- | One or more Reserved Instance IDs. -- -- Default: Describes all your Reserved Instances, or only those otherwise@@ -151,6 +145,12 @@ driReservedInstancesIds :: Lens' DescribeReservedInstances [Text] driReservedInstancesIds = lens _driReservedInstancesIds (\ s a -> s{_driReservedInstancesIds = a}) . _Default . _Coerce; +-- | The Reserved Instance offering type. If you are using tools that predate+-- the 2011-11-01 API version, you only have access to the+-- 'Medium Utilization' Reserved Instance offering type.+driOfferingType :: Lens' DescribeReservedInstances (Maybe OfferingTypeValues)+driOfferingType = lens _driOfferingType (\ s a -> s{_driOfferingType = a});+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -183,16 +183,16 @@                  ("DescribeReservedInstances" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),                toQuery (toQueryList "Filter" <$> _driFilters),-               "OfferingType" =: _driOfferingType,                toQuery                  (toQueryList "ReservedInstancesId" <$>                     _driReservedInstancesIds),+               "OfferingType" =: _driOfferingType,                "DryRun" =: _driDryRun]  -- | /See:/ 'describeReservedInstancesResponse' smart constructor. data DescribeReservedInstancesResponse = DescribeReservedInstancesResponse'     { _drirsReservedInstances :: !(Maybe [ReservedInstances])-    , _drirsStatus            :: !Int+    , _drirsResponseStatus    :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReservedInstancesResponse' with the minimum fields required to make a request.@@ -201,14 +201,14 @@ -- -- * 'drirsReservedInstances' ----- * 'drirsStatus'+-- * 'drirsResponseStatus' describeReservedInstancesResponse-    :: Int -- ^ 'drirsStatus'+    :: Int -- ^ 'drirsResponseStatus'     -> DescribeReservedInstancesResponse-describeReservedInstancesResponse pStatus_ =+describeReservedInstancesResponse pResponseStatus_ =     DescribeReservedInstancesResponse'     { _drirsReservedInstances = Nothing-    , _drirsStatus = pStatus_+    , _drirsResponseStatus = pResponseStatus_     }  -- | A list of Reserved Instances.@@ -216,5 +216,5 @@ drirsReservedInstances = lens _drirsReservedInstances (\ s a -> s{_drirsReservedInstances = a}) . _Default . _Coerce;  -- | The response status code.-drirsStatus :: Lens' DescribeReservedInstancesResponse Int-drirsStatus = lens _drirsStatus (\ s a -> s{_drirsStatus = a});+drirsResponseStatus :: Lens' DescribeReservedInstancesResponse Int+drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a});

@@ -59,7 +59,7 @@     , DescribeReservedInstancesListingsResponse     -- * Response Lenses     , drilrsReservedInstancesListings-    , drilrsStatus+    , drilrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -152,7 +152,7 @@ -- | /See:/ 'describeReservedInstancesListingsResponse' smart constructor. data DescribeReservedInstancesListingsResponse = DescribeReservedInstancesListingsResponse'     { _drilrsReservedInstancesListings :: !(Maybe [ReservedInstancesListing])-    , _drilrsStatus                    :: !Int+    , _drilrsResponseStatus            :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReservedInstancesListingsResponse' with the minimum fields required to make a request.@@ -161,14 +161,14 @@ -- -- * 'drilrsReservedInstancesListings' ----- * 'drilrsStatus'+-- * 'drilrsResponseStatus' describeReservedInstancesListingsResponse-    :: Int -- ^ 'drilrsStatus'+    :: Int -- ^ 'drilrsResponseStatus'     -> DescribeReservedInstancesListingsResponse-describeReservedInstancesListingsResponse pStatus_ =+describeReservedInstancesListingsResponse pResponseStatus_ =     DescribeReservedInstancesListingsResponse'     { _drilrsReservedInstancesListings = Nothing-    , _drilrsStatus = pStatus_+    , _drilrsResponseStatus = pResponseStatus_     }  -- | Information about the Reserved Instance listing.@@ -176,5 +176,5 @@ drilrsReservedInstancesListings = lens _drilrsReservedInstancesListings (\ s a -> s{_drilrsReservedInstancesListings = a}) . _Default . _Coerce;  -- | The response status code.-drilrsStatus :: Lens' DescribeReservedInstancesListingsResponse Int-drilrsStatus = lens _drilrsStatus (\ s a -> s{_drilrsStatus = a});+drilrsResponseStatus :: Lens' DescribeReservedInstancesListingsResponse Int+drilrsResponseStatus = lens _drilrsResponseStatus (\ s a -> s{_drilrsResponseStatus = a});

@@ -46,7 +46,7 @@     -- * Response Lenses     , drimrsNextToken     , drimrsReservedInstancesModifications-    , drimrsStatus+    , drimrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -179,7 +179,7 @@ data DescribeReservedInstancesModificationsResponse = DescribeReservedInstancesModificationsResponse'     { _drimrsNextToken                      :: !(Maybe Text)     , _drimrsReservedInstancesModifications :: !(Maybe [ReservedInstancesModification])-    , _drimrsStatus                         :: !Int+    , _drimrsResponseStatus                 :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReservedInstancesModificationsResponse' with the minimum fields required to make a request.@@ -190,15 +190,15 @@ -- -- * 'drimrsReservedInstancesModifications' ----- * 'drimrsStatus'+-- * 'drimrsResponseStatus' describeReservedInstancesModificationsResponse-    :: Int -- ^ 'drimrsStatus'+    :: Int -- ^ 'drimrsResponseStatus'     -> DescribeReservedInstancesModificationsResponse-describeReservedInstancesModificationsResponse pStatus_ =+describeReservedInstancesModificationsResponse pResponseStatus_ =     DescribeReservedInstancesModificationsResponse'     { _drimrsNextToken = Nothing     , _drimrsReservedInstancesModifications = Nothing-    , _drimrsStatus = pStatus_+    , _drimrsResponseStatus = pResponseStatus_     }  -- | The token to use to retrieve the next page of results. This value is@@ -211,5 +211,5 @@ drimrsReservedInstancesModifications = lens _drimrsReservedInstancesModifications (\ s a -> s{_drimrsReservedInstancesModifications = a}) . _Default . _Coerce;  -- | The response status code.-drimrsStatus :: Lens' DescribeReservedInstancesModificationsResponse Int-drimrsStatus = lens _drimrsStatus (\ s a -> s{_drimrsStatus = a});+drimrsResponseStatus :: Lens' DescribeReservedInstancesModificationsResponse Int+drimrsResponseStatus = lens _drimrsResponseStatus (\ s a -> s{_drimrsResponseStatus = a});

@@ -39,8 +39,8 @@     -- * Request Lenses     , drioMaxDuration     , drioProductDescription-    , drioIncludeMarketplace     , drioFilters+    , drioIncludeMarketplace     , drioInstanceType     , drioNextToken     , drioMinDuration@@ -48,9 +48,9 @@     , drioOfferingType     , drioReservedInstancesOfferingIds     , drioInstanceTenancy+    , drioMaxInstanceCount     , drioDryRun     , drioMaxResults-    , drioMaxInstanceCount      -- * Destructuring the Response     , describeReservedInstancesOfferingsResponse@@ -58,7 +58,7 @@     -- * Response Lenses     , driorsNextToken     , driorsReservedInstancesOfferings-    , driorsStatus+    , driorsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -72,8 +72,8 @@ data DescribeReservedInstancesOfferings = DescribeReservedInstancesOfferings'     { _drioMaxDuration                  :: !(Maybe Integer)     , _drioProductDescription           :: !(Maybe RIProductDescription)-    , _drioIncludeMarketplace           :: !(Maybe Bool)     , _drioFilters                      :: !(Maybe [Filter])+    , _drioIncludeMarketplace           :: !(Maybe Bool)     , _drioInstanceType                 :: !(Maybe InstanceType)     , _drioNextToken                    :: !(Maybe Text)     , _drioMinDuration                  :: !(Maybe Integer)@@ -81,9 +81,9 @@     , _drioOfferingType                 :: !(Maybe OfferingTypeValues)     , _drioReservedInstancesOfferingIds :: !(Maybe [Text])     , _drioInstanceTenancy              :: !(Maybe Tenancy)+    , _drioMaxInstanceCount             :: !(Maybe Int)     , _drioDryRun                       :: !(Maybe Bool)     , _drioMaxResults                   :: !(Maybe Int)-    , _drioMaxInstanceCount             :: !(Maybe Int)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReservedInstancesOfferings' with the minimum fields required to make a request.@@ -94,10 +94,10 @@ -- -- * 'drioProductDescription' ----- * 'drioIncludeMarketplace'--- -- * 'drioFilters' --+-- * 'drioIncludeMarketplace'+-- -- * 'drioInstanceType' -- -- * 'drioNextToken'@@ -112,19 +112,19 @@ -- -- * 'drioInstanceTenancy' --+-- * 'drioMaxInstanceCount'+-- -- * 'drioDryRun' -- -- * 'drioMaxResults'------ * 'drioMaxInstanceCount' describeReservedInstancesOfferings     :: DescribeReservedInstancesOfferings describeReservedInstancesOfferings =     DescribeReservedInstancesOfferings'     { _drioMaxDuration = Nothing     , _drioProductDescription = Nothing-    , _drioIncludeMarketplace = Nothing     , _drioFilters = Nothing+    , _drioIncludeMarketplace = Nothing     , _drioInstanceType = Nothing     , _drioNextToken = Nothing     , _drioMinDuration = Nothing@@ -132,9 +132,9 @@     , _drioOfferingType = Nothing     , _drioReservedInstancesOfferingIds = Nothing     , _drioInstanceTenancy = Nothing+    , _drioMaxInstanceCount = Nothing     , _drioDryRun = Nothing     , _drioMaxResults = Nothing-    , _drioMaxInstanceCount = Nothing     }  -- | The maximum duration (in seconds) to filter when searching for@@ -149,10 +149,6 @@ drioProductDescription :: Lens' DescribeReservedInstancesOfferings (Maybe RIProductDescription) drioProductDescription = lens _drioProductDescription (\ s a -> s{_drioProductDescription = a}); --- | Include Marketplace offerings in the response.-drioIncludeMarketplace :: Lens' DescribeReservedInstancesOfferings (Maybe Bool)-drioIncludeMarketplace = lens _drioIncludeMarketplace (\ s a -> s{_drioIncludeMarketplace = a});- -- | One or more filters. -- -- -   'availability-zone' - The Availability Zone where the Reserved@@ -195,6 +191,10 @@ drioFilters :: Lens' DescribeReservedInstancesOfferings [Filter] drioFilters = lens _drioFilters (\ s a -> s{_drioFilters = a}) . _Default . _Coerce; +-- | Include Marketplace offerings in the response.+drioIncludeMarketplace :: Lens' DescribeReservedInstancesOfferings (Maybe Bool)+drioIncludeMarketplace = lens _drioIncludeMarketplace (\ s a -> s{_drioIncludeMarketplace = a});+ -- | The instance type on which the Reserved Instance can be used. For more -- information, see -- <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Types>@@ -235,6 +235,12 @@ drioInstanceTenancy :: Lens' DescribeReservedInstancesOfferings (Maybe Tenancy) drioInstanceTenancy = lens _drioInstanceTenancy (\ s a -> s{_drioInstanceTenancy = a}); +-- | The maximum number of instances to filter when searching for offerings.+--+-- Default: 20+drioMaxInstanceCount :: Lens' DescribeReservedInstancesOfferings (Maybe Int)+drioMaxInstanceCount = lens _drioMaxInstanceCount (\ s a -> s{_drioMaxInstanceCount = a});+ -- | Checks whether you have the required permissions for the action, without -- actually making the request, and provides an error response. If you have -- the required permissions, the error response is 'DryRunOperation'.@@ -251,12 +257,6 @@ drioMaxResults :: Lens' DescribeReservedInstancesOfferings (Maybe Int) drioMaxResults = lens _drioMaxResults (\ s a -> s{_drioMaxResults = a}); --- | The maximum number of instances to filter when searching for offerings.------ Default: 20-drioMaxInstanceCount :: Lens' DescribeReservedInstancesOfferings (Maybe Int)-drioMaxInstanceCount = lens _drioMaxInstanceCount (\ s a -> s{_drioMaxInstanceCount = a});- instance AWSPager DescribeReservedInstancesOfferings          where         page rq rs@@ -297,8 +297,8 @@                "Version" =: ("2015-04-15" :: ByteString),                "MaxDuration" =: _drioMaxDuration,                "ProductDescription" =: _drioProductDescription,-               "IncludeMarketplace" =: _drioIncludeMarketplace,                toQuery (toQueryList "Filter" <$> _drioFilters),+               "IncludeMarketplace" =: _drioIncludeMarketplace,                "InstanceType" =: _drioInstanceType,                "NextToken" =: _drioNextToken,                "MinDuration" =: _drioMinDuration,@@ -308,15 +308,15 @@                  (toQueryList "ReservedInstancesOfferingId" <$>                     _drioReservedInstancesOfferingIds),                "InstanceTenancy" =: _drioInstanceTenancy,+               "MaxInstanceCount" =: _drioMaxInstanceCount,                "DryRun" =: _drioDryRun,-               "MaxResults" =: _drioMaxResults,-               "MaxInstanceCount" =: _drioMaxInstanceCount]+               "MaxResults" =: _drioMaxResults]  -- | /See:/ 'describeReservedInstancesOfferingsResponse' smart constructor. data DescribeReservedInstancesOfferingsResponse = DescribeReservedInstancesOfferingsResponse'     { _driorsNextToken                  :: !(Maybe Text)     , _driorsReservedInstancesOfferings :: !(Maybe [ReservedInstancesOffering])-    , _driorsStatus                     :: !Int+    , _driorsResponseStatus             :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeReservedInstancesOfferingsResponse' with the minimum fields required to make a request.@@ -327,15 +327,15 @@ -- -- * 'driorsReservedInstancesOfferings' ----- * 'driorsStatus'+-- * 'driorsResponseStatus' describeReservedInstancesOfferingsResponse-    :: Int -- ^ 'driorsStatus'+    :: Int -- ^ 'driorsResponseStatus'     -> DescribeReservedInstancesOfferingsResponse-describeReservedInstancesOfferingsResponse pStatus_ =+describeReservedInstancesOfferingsResponse pResponseStatus_ =     DescribeReservedInstancesOfferingsResponse'     { _driorsNextToken = Nothing     , _driorsReservedInstancesOfferings = Nothing-    , _driorsStatus = pStatus_+    , _driorsResponseStatus = pResponseStatus_     }  -- | The token to use to retrieve the next page of results. This value is@@ -348,5 +348,5 @@ driorsReservedInstancesOfferings = lens _driorsReservedInstancesOfferings (\ s a -> s{_driorsReservedInstancesOfferings = a}) . _Default . _Coerce;  -- | The response status code.-driorsStatus :: Lens' DescribeReservedInstancesOfferingsResponse Int-driorsStatus = lens _driorsStatus (\ s a -> s{_driorsStatus = a});+driorsResponseStatus :: Lens' DescribeReservedInstancesOfferingsResponse Int+driorsResponseStatus = lens _driorsResponseStatus (\ s a -> s{_driorsResponseStatus = a});

@@ -45,7 +45,7 @@     , DescribeRouteTablesResponse     -- * Response Lenses     , drtrsRouteTables-    , drtrsStatus+    , drtrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -185,8 +185,8 @@  -- | /See:/ 'describeRouteTablesResponse' smart constructor. data DescribeRouteTablesResponse = DescribeRouteTablesResponse'-    { _drtrsRouteTables :: !(Maybe [RouteTable])-    , _drtrsStatus      :: !Int+    { _drtrsRouteTables    :: !(Maybe [RouteTable])+    , _drtrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeRouteTablesResponse' with the minimum fields required to make a request.@@ -195,14 +195,14 @@ -- -- * 'drtrsRouteTables' ----- * 'drtrsStatus'+-- * 'drtrsResponseStatus' describeRouteTablesResponse-    :: Int -- ^ 'drtrsStatus'+    :: Int -- ^ 'drtrsResponseStatus'     -> DescribeRouteTablesResponse-describeRouteTablesResponse pStatus_ =+describeRouteTablesResponse pResponseStatus_ =     DescribeRouteTablesResponse'     { _drtrsRouteTables = Nothing-    , _drtrsStatus = pStatus_+    , _drtrsResponseStatus = pResponseStatus_     }  -- | Information about one or more route tables.@@ -210,5 +210,5 @@ drtrsRouteTables = lens _drtrsRouteTables (\ s a -> s{_drtrsRouteTables = a}) . _Default . _Coerce;  -- | The response status code.-drtrsStatus :: Lens' DescribeRouteTablesResponse Int-drtrsStatus = lens _drtrsStatus (\ s a -> s{_drtrsStatus = a});+drtrsResponseStatus :: Lens' DescribeRouteTablesResponse Int+drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a});

@@ -34,8 +34,8 @@       describeSecurityGroups     , DescribeSecurityGroups     -- * Request Lenses-    , dsgsGroupNames     , dsgsFilters+    , dsgsGroupNames     , dsgsGroupIds     , dsgsDryRun @@ -44,7 +44,7 @@     , DescribeSecurityGroupsResponse     -- * Response Lenses     , dsgrsSecurityGroups-    , dsgrsStatus+    , dsgrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -55,8 +55,8 @@  -- | /See:/ 'describeSecurityGroups' smart constructor. data DescribeSecurityGroups = DescribeSecurityGroups'-    { _dsgsGroupNames :: !(Maybe [Text])-    , _dsgsFilters    :: !(Maybe [Filter])+    { _dsgsFilters    :: !(Maybe [Filter])+    , _dsgsGroupNames :: !(Maybe [Text])     , _dsgsGroupIds   :: !(Maybe [Text])     , _dsgsDryRun     :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -65,10 +65,10 @@ -- -- Use one of the following lenses to modify other fields as desired: ----- * 'dsgsGroupNames'--- -- * 'dsgsFilters' --+-- * 'dsgsGroupNames'+-- -- * 'dsgsGroupIds' -- -- * 'dsgsDryRun'@@ -76,21 +76,12 @@     :: DescribeSecurityGroups describeSecurityGroups =     DescribeSecurityGroups'-    { _dsgsGroupNames = Nothing-    , _dsgsFilters = Nothing+    { _dsgsFilters = Nothing+    , _dsgsGroupNames = Nothing     , _dsgsGroupIds = Nothing     , _dsgsDryRun = Nothing     } --- | [EC2-Classic and default VPC only] One or more security group names. You--- can specify either the security group name or the security group ID. For--- security groups in a nondefault VPC, use the 'group-name' filter to--- describe security groups by name.------ Default: Describes all your security groups.-dsgsGroupNames :: Lens' DescribeSecurityGroups [Text]-dsgsGroupNames = lens _dsgsGroupNames (\ s a -> s{_dsgsGroupNames = a}) . _Default . _Coerce;- -- | One or more filters. -- -- -   'description' - The description of the security group.@@ -135,6 +126,15 @@ dsgsFilters :: Lens' DescribeSecurityGroups [Filter] dsgsFilters = lens _dsgsFilters (\ s a -> s{_dsgsFilters = a}) . _Default . _Coerce; +-- | [EC2-Classic and default VPC only] One or more security group names. You+-- can specify either the security group name or the security group ID. For+-- security groups in a nondefault VPC, use the 'group-name' filter to+-- describe security groups by name.+--+-- Default: Describes all your security groups.+dsgsGroupNames :: Lens' DescribeSecurityGroups [Text]+dsgsGroupNames = lens _dsgsGroupNames (\ s a -> s{_dsgsGroupNames = a}) . _Default . _Coerce;+ -- | One or more security group IDs. Required for security groups in a -- nondefault VPC. --@@ -173,16 +173,16 @@               ["Action" =:                  ("DescribeSecurityGroups" :: ByteString),                "Version" =: ("2015-04-15" :: ByteString),+               toQuery (toQueryList "Filter" <$> _dsgsFilters),                toQuery                  (toQueryList "GroupName" <$> _dsgsGroupNames),-               toQuery (toQueryList "Filter" <$> _dsgsFilters),                toQuery (toQueryList "GroupId" <$> _dsgsGroupIds),                "DryRun" =: _dsgsDryRun]  -- | /See:/ 'describeSecurityGroupsResponse' smart constructor. data DescribeSecurityGroupsResponse = DescribeSecurityGroupsResponse'     { _dsgrsSecurityGroups :: !(Maybe [SecurityGroup])-    , _dsgrsStatus         :: !Int+    , _dsgrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSecurityGroupsResponse' with the minimum fields required to make a request.@@ -191,14 +191,14 @@ -- -- * 'dsgrsSecurityGroups' ----- * 'dsgrsStatus'+-- * 'dsgrsResponseStatus' describeSecurityGroupsResponse-    :: Int -- ^ 'dsgrsStatus'+    :: Int -- ^ 'dsgrsResponseStatus'     -> DescribeSecurityGroupsResponse-describeSecurityGroupsResponse pStatus_ =+describeSecurityGroupsResponse pResponseStatus_ =     DescribeSecurityGroupsResponse'     { _dsgrsSecurityGroups = Nothing-    , _dsgrsStatus = pStatus_+    , _dsgrsResponseStatus = pResponseStatus_     }  -- | Information about one or more security groups.@@ -206,5 +206,5 @@ dsgrsSecurityGroups = lens _dsgrsSecurityGroups (\ s a -> s{_dsgrsSecurityGroups = a}) . _Default . _Coerce;  -- | The response status code.-dsgrsStatus :: Lens' DescribeSecurityGroupsResponse Int-dsgrsStatus = lens _dsgrsStatus (\ s a -> s{_dsgrsStatus = a});+dsgrsResponseStatus :: Lens' DescribeSecurityGroupsResponse Int+dsgrsResponseStatus = lens _dsgrsResponseStatus (\ s a -> s{_dsgrsResponseStatus = a});

@@ -43,7 +43,7 @@     , dsarsCreateVolumePermissions     , dsarsProductCodes     , dsarsSnapshotId-    , dsarsStatus+    , dsarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -131,7 +131,7 @@     { _dsarsCreateVolumePermissions :: !(Maybe [CreateVolumePermission])     , _dsarsProductCodes            :: !(Maybe [ProductCode])     , _dsarsSnapshotId              :: !(Maybe Text)-    , _dsarsStatus                  :: !Int+    , _dsarsResponseStatus          :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSnapshotAttributeResponse' with the minimum fields required to make a request.@@ -144,16 +144,16 @@ -- -- * 'dsarsSnapshotId' ----- * 'dsarsStatus'+-- * 'dsarsResponseStatus' describeSnapshotAttributeResponse-    :: Int -- ^ 'dsarsStatus'+    :: Int -- ^ 'dsarsResponseStatus'     -> DescribeSnapshotAttributeResponse-describeSnapshotAttributeResponse pStatus_ =+describeSnapshotAttributeResponse pResponseStatus_ =     DescribeSnapshotAttributeResponse'     { _dsarsCreateVolumePermissions = Nothing     , _dsarsProductCodes = Nothing     , _dsarsSnapshotId = Nothing-    , _dsarsStatus = pStatus_+    , _dsarsResponseStatus = pResponseStatus_     }  -- | A list of permissions for creating volumes from the snapshot.@@ -169,5 +169,5 @@ dsarsSnapshotId = lens _dsarsSnapshotId (\ s a -> s{_dsarsSnapshotId = a});  -- | The response status code.-dsarsStatus :: Lens' DescribeSnapshotAttributeResponse Int-dsarsStatus = lens _dsarsStatus (\ s a -> s{_dsarsStatus = a});+dsarsResponseStatus :: Lens' DescribeSnapshotAttributeResponse Int+dsarsResponseStatus = lens _dsarsResponseStatus (\ s a -> s{_dsarsResponseStatus = a});

@@ -89,7 +89,7 @@     -- * Response Lenses     , dssrsNextToken     , dssrsSnapshots-    , dssrsStatus+    , dssrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -266,9 +266,9 @@  -- | /See:/ 'describeSnapshotsResponse' smart constructor. data DescribeSnapshotsResponse = DescribeSnapshotsResponse'-    { _dssrsNextToken :: !(Maybe Text)-    , _dssrsSnapshots :: !(Maybe [Snapshot])-    , _dssrsStatus    :: !Int+    { _dssrsNextToken      :: !(Maybe Text)+    , _dssrsSnapshots      :: !(Maybe [Snapshot])+    , _dssrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSnapshotsResponse' with the minimum fields required to make a request.@@ -279,15 +279,15 @@ -- -- * 'dssrsSnapshots' ----- * 'dssrsStatus'+-- * 'dssrsResponseStatus' describeSnapshotsResponse-    :: Int -- ^ 'dssrsStatus'+    :: Int -- ^ 'dssrsResponseStatus'     -> DescribeSnapshotsResponse-describeSnapshotsResponse pStatus_ =+describeSnapshotsResponse pResponseStatus_ =     DescribeSnapshotsResponse'     { _dssrsNextToken = Nothing     , _dssrsSnapshots = Nothing-    , _dssrsStatus = pStatus_+    , _dssrsResponseStatus = pResponseStatus_     }  -- | The 'NextToken' value to include in a future 'DescribeSnapshots'@@ -302,5 +302,5 @@ dssrsSnapshots = lens _dssrsSnapshots (\ s a -> s{_dssrsSnapshots = a}) . _Default . _Coerce;  -- | The response status code.-dssrsStatus :: Lens' DescribeSnapshotsResponse Int-dssrsStatus = lens _dssrsStatus (\ s a -> s{_dssrsStatus = a});+dssrsResponseStatus :: Lens' DescribeSnapshotsResponse Int+dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a});

@@ -36,7 +36,7 @@     , DescribeSpotDatafeedSubscriptionResponse     -- * Response Lenses     , dsdsrsSpotDatafeedSubscription-    , dsdsrsStatus+    , dsdsrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -105,7 +105,7 @@ -- /See:/ 'describeSpotDatafeedSubscriptionResponse' smart constructor. data DescribeSpotDatafeedSubscriptionResponse = DescribeSpotDatafeedSubscriptionResponse'     { _dsdsrsSpotDatafeedSubscription :: !(Maybe SpotDatafeedSubscription)-    , _dsdsrsStatus                   :: !Int+    , _dsdsrsResponseStatus           :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSpotDatafeedSubscriptionResponse' with the minimum fields required to make a request.@@ -114,14 +114,14 @@ -- -- * 'dsdsrsSpotDatafeedSubscription' ----- * 'dsdsrsStatus'+-- * 'dsdsrsResponseStatus' describeSpotDatafeedSubscriptionResponse-    :: Int -- ^ 'dsdsrsStatus'+    :: Int -- ^ 'dsdsrsResponseStatus'     -> DescribeSpotDatafeedSubscriptionResponse-describeSpotDatafeedSubscriptionResponse pStatus_ =+describeSpotDatafeedSubscriptionResponse pResponseStatus_ =     DescribeSpotDatafeedSubscriptionResponse'     { _dsdsrsSpotDatafeedSubscription = Nothing-    , _dsdsrsStatus = pStatus_+    , _dsdsrsResponseStatus = pResponseStatus_     }  -- | The Spot Instance data feed subscription.@@ -129,5 +129,5 @@ dsdsrsSpotDatafeedSubscription = lens _dsdsrsSpotDatafeedSubscription (\ s a -> s{_dsdsrsSpotDatafeedSubscription = a});  -- | The response status code.-dsdsrsStatus :: Lens' DescribeSpotDatafeedSubscriptionResponse Int-dsdsrsStatus = lens _dsdsrsStatus (\ s a -> s{_dsdsrsStatus = a});+dsdsrsResponseStatus :: Lens' DescribeSpotDatafeedSubscriptionResponse Int+dsdsrsResponseStatus = lens _dsdsrsResponseStatus (\ s a -> s{_dsdsrsResponseStatus = a});

@@ -37,7 +37,7 @@     , DescribeSpotFleetInstancesResponse     -- * Response Lenses     , dsfirsNextToken-    , dsfirsStatus+    , dsfirsResponseStatus     , dsfirsSpotFleetRequestId     , dsfirsActiveInstances     ) where@@ -138,7 +138,7 @@ -- /See:/ 'describeSpotFleetInstancesResponse' smart constructor. data DescribeSpotFleetInstancesResponse = DescribeSpotFleetInstancesResponse'     { _dsfirsNextToken          :: !(Maybe Text)-    , _dsfirsStatus             :: !Int+    , _dsfirsResponseStatus     :: !Int     , _dsfirsSpotFleetRequestId :: !Text     , _dsfirsActiveInstances    :: ![ActiveInstance]     } deriving (Eq,Read,Show,Data,Typeable,Generic)@@ -149,19 +149,19 @@ -- -- * 'dsfirsNextToken' ----- * 'dsfirsStatus'+-- * 'dsfirsResponseStatus' -- -- * 'dsfirsSpotFleetRequestId' -- -- * 'dsfirsActiveInstances' describeSpotFleetInstancesResponse-    :: Int -- ^ 'dsfirsStatus'+    :: Int -- ^ 'dsfirsResponseStatus'     -> Text -- ^ 'dsfirsSpotFleetRequestId'     -> DescribeSpotFleetInstancesResponse-describeSpotFleetInstancesResponse pStatus_ pSpotFleetRequestId_ =+describeSpotFleetInstancesResponse pResponseStatus_ pSpotFleetRequestId_ =     DescribeSpotFleetInstancesResponse'     { _dsfirsNextToken = Nothing-    , _dsfirsStatus = pStatus_+    , _dsfirsResponseStatus = pResponseStatus_     , _dsfirsSpotFleetRequestId = pSpotFleetRequestId_     , _dsfirsActiveInstances = mempty     }@@ -172,8 +172,8 @@ dsfirsNextToken = lens _dsfirsNextToken (\ s a -> s{_dsfirsNextToken = a});  -- | The response status code.-dsfirsStatus :: Lens' DescribeSpotFleetInstancesResponse Int-dsfirsStatus = lens _dsfirsStatus (\ s a -> s{_dsfirsStatus = a});+dsfirsResponseStatus :: Lens' DescribeSpotFleetInstancesResponse Int+dsfirsResponseStatus = lens _dsfirsResponseStatus (\ s a -> s{_dsfirsResponseStatus = a});  -- | The ID of the Spot fleet request. dsfirsSpotFleetRequestId :: Lens' DescribeSpotFleetInstancesResponse Text

@@ -44,7 +44,7 @@     , DescribeSpotFleetRequestHistoryResponse     -- * Response Lenses     , dsfrhrsNextToken-    , dsfrhrsStatus+    , dsfrhrsResponseStatus     , dsfrhrsSpotFleetRequestId     , dsfrhrsStartTime     , dsfrhrsLastEvaluatedTime@@ -172,7 +172,7 @@ -- /See:/ 'describeSpotFleetRequestHistoryResponse' smart constructor. data DescribeSpotFleetRequestHistoryResponse = DescribeSpotFleetRequestHistoryResponse'     { _dsfrhrsNextToken          :: !(Maybe Text)-    , _dsfrhrsStatus             :: !Int+    , _dsfrhrsResponseStatus     :: !Int     , _dsfrhrsSpotFleetRequestId :: !Text     , _dsfrhrsStartTime          :: !ISO8601     , _dsfrhrsLastEvaluatedTime  :: !ISO8601@@ -185,7 +185,7 @@ -- -- * 'dsfrhrsNextToken' ----- * 'dsfrhrsStatus'+-- * 'dsfrhrsResponseStatus' -- -- * 'dsfrhrsSpotFleetRequestId' --@@ -195,15 +195,15 @@ -- -- * 'dsfrhrsHistoryRecords' describeSpotFleetRequestHistoryResponse-    :: Int -- ^ 'dsfrhrsStatus'+    :: Int -- ^ 'dsfrhrsResponseStatus'     -> Text -- ^ 'dsfrhrsSpotFleetRequestId'     -> UTCTime -- ^ 'dsfrhrsStartTime'     -> UTCTime -- ^ 'dsfrhrsLastEvaluatedTime'     -> DescribeSpotFleetRequestHistoryResponse-describeSpotFleetRequestHistoryResponse pStatus_ pSpotFleetRequestId_ pStartTime_ pLastEvaluatedTime_ =+describeSpotFleetRequestHistoryResponse pResponseStatus_ pSpotFleetRequestId_ pStartTime_ pLastEvaluatedTime_ =     DescribeSpotFleetRequestHistoryResponse'     { _dsfrhrsNextToken = Nothing-    , _dsfrhrsStatus = pStatus_+    , _dsfrhrsResponseStatus = pResponseStatus_     , _dsfrhrsSpotFleetRequestId = pSpotFleetRequestId_     , _dsfrhrsStartTime = _Time # pStartTime_     , _dsfrhrsLastEvaluatedTime = _Time # pLastEvaluatedTime_@@ -216,8 +216,8 @@ dsfrhrsNextToken = lens _dsfrhrsNextToken (\ s a -> s{_dsfrhrsNextToken = a});  -- | The response status code.-dsfrhrsStatus :: Lens' DescribeSpotFleetRequestHistoryResponse Int-dsfrhrsStatus = lens _dsfrhrsStatus (\ s a -> s{_dsfrhrsStatus = a});+dsfrhrsResponseStatus :: Lens' DescribeSpotFleetRequestHistoryResponse Int+dsfrhrsResponseStatus = lens _dsfrhrsResponseStatus (\ s a -> s{_dsfrhrsResponseStatus = a});  -- | The ID of the Spot fleet request. dsfrhrsSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistoryResponse Text

@@ -37,7 +37,7 @@     , DescribeSpotFleetRequestsResponse     -- * Response Lenses     , dsfrrsNextToken-    , dsfrrsStatus+    , dsfrrsResponseStatus     , dsfrrsSpotFleetRequestConfigs     ) where @@ -136,7 +136,7 @@ -- /See:/ 'describeSpotFleetRequestsResponse' smart constructor. data DescribeSpotFleetRequestsResponse = DescribeSpotFleetRequestsResponse'     { _dsfrrsNextToken               :: !(Maybe Text)-    , _dsfrrsStatus                  :: !Int+    , _dsfrrsResponseStatus          :: !Int     , _dsfrrsSpotFleetRequestConfigs :: ![SpotFleetRequestConfig]     } deriving (Eq,Read,Show,Data,Typeable,Generic) @@ -146,16 +146,16 @@ -- -- * 'dsfrrsNextToken' ----- * 'dsfrrsStatus'+-- * 'dsfrrsResponseStatus' -- -- * 'dsfrrsSpotFleetRequestConfigs' describeSpotFleetRequestsResponse-    :: Int -- ^ 'dsfrrsStatus'+    :: Int -- ^ 'dsfrrsResponseStatus'     -> DescribeSpotFleetRequestsResponse-describeSpotFleetRequestsResponse pStatus_ =+describeSpotFleetRequestsResponse pResponseStatus_ =     DescribeSpotFleetRequestsResponse'     { _dsfrrsNextToken = Nothing-    , _dsfrrsStatus = pStatus_+    , _dsfrrsResponseStatus = pResponseStatus_     , _dsfrrsSpotFleetRequestConfigs = mempty     } @@ -165,8 +165,8 @@ dsfrrsNextToken = lens _dsfrrsNextToken (\ s a -> s{_dsfrrsNextToken = a});  -- | The response status code.-dsfrrsStatus :: Lens' DescribeSpotFleetRequestsResponse Int-dsfrrsStatus = lens _dsfrrsStatus (\ s a -> s{_dsfrrsStatus = a});+dsfrrsResponseStatus :: Lens' DescribeSpotFleetRequestsResponse Int+dsfrrsResponseStatus = lens _dsfrrsResponseStatus (\ s a -> s{_dsfrrsResponseStatus = a});  -- | Information about the configuration of your Spot fleet. dsfrrsSpotFleetRequestConfigs :: Lens' DescribeSpotFleetRequestsResponse [SpotFleetRequestConfig]

@@ -49,7 +49,7 @@     , DescribeSpotInstanceRequestsResponse     -- * Response Lenses     , dsirrsSpotInstanceRequests-    , dsirrsStatus+    , dsirrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -254,7 +254,7 @@ -- /See:/ 'describeSpotInstanceRequestsResponse' smart constructor. data DescribeSpotInstanceRequestsResponse = DescribeSpotInstanceRequestsResponse'     { _dsirrsSpotInstanceRequests :: !(Maybe [SpotInstanceRequest])-    , _dsirrsStatus               :: !Int+    , _dsirrsResponseStatus       :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSpotInstanceRequestsResponse' with the minimum fields required to make a request.@@ -263,14 +263,14 @@ -- -- * 'dsirrsSpotInstanceRequests' ----- * 'dsirrsStatus'+-- * 'dsirrsResponseStatus' describeSpotInstanceRequestsResponse-    :: Int -- ^ 'dsirrsStatus'+    :: Int -- ^ 'dsirrsResponseStatus'     -> DescribeSpotInstanceRequestsResponse-describeSpotInstanceRequestsResponse pStatus_ =+describeSpotInstanceRequestsResponse pResponseStatus_ =     DescribeSpotInstanceRequestsResponse'     { _dsirrsSpotInstanceRequests = Nothing-    , _dsirrsStatus = pStatus_+    , _dsirrsResponseStatus = pResponseStatus_     }  -- | One or more Spot Instance requests.@@ -278,5 +278,5 @@ dsirrsSpotInstanceRequests = lens _dsirrsSpotInstanceRequests (\ s a -> s{_dsirrsSpotInstanceRequests = a}) . _Default . _Coerce;  -- | The response status code.-dsirrsStatus :: Lens' DescribeSpotInstanceRequestsResponse Int-dsirrsStatus = lens _dsirrsStatus (\ s a -> s{_dsirrsStatus = a});+dsirrsResponseStatus :: Lens' DescribeSpotInstanceRequestsResponse Int+dsirrsResponseStatus = lens _dsirrsResponseStatus (\ s a -> s{_dsirrsResponseStatus = a});

@@ -55,7 +55,7 @@     -- * Response Lenses     , dsphrsNextToken     , dsphrsSpotPriceHistory-    , dsphrsStatus+    , dsphrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -232,7 +232,7 @@ data DescribeSpotPriceHistoryResponse = DescribeSpotPriceHistoryResponse'     { _dsphrsNextToken        :: !(Maybe Text)     , _dsphrsSpotPriceHistory :: !(Maybe [SpotPrice])-    , _dsphrsStatus           :: !Int+    , _dsphrsResponseStatus   :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSpotPriceHistoryResponse' with the minimum fields required to make a request.@@ -243,15 +243,15 @@ -- -- * 'dsphrsSpotPriceHistory' ----- * 'dsphrsStatus'+-- * 'dsphrsResponseStatus' describeSpotPriceHistoryResponse-    :: Int -- ^ 'dsphrsStatus'+    :: Int -- ^ 'dsphrsResponseStatus'     -> DescribeSpotPriceHistoryResponse-describeSpotPriceHistoryResponse pStatus_ =+describeSpotPriceHistoryResponse pResponseStatus_ =     DescribeSpotPriceHistoryResponse'     { _dsphrsNextToken = Nothing     , _dsphrsSpotPriceHistory = Nothing-    , _dsphrsStatus = pStatus_+    , _dsphrsResponseStatus = pResponseStatus_     }  -- | The token required to retrieve the next set of results. This value is@@ -264,5 +264,5 @@ dsphrsSpotPriceHistory = lens _dsphrsSpotPriceHistory (\ s a -> s{_dsphrsSpotPriceHistory = a}) . _Default . _Coerce;  -- | The response status code.-dsphrsStatus :: Lens' DescribeSpotPriceHistoryResponse Int-dsphrsStatus = lens _dsphrsStatus (\ s a -> s{_dsphrsStatus = a});+dsphrsResponseStatus :: Lens' DescribeSpotPriceHistoryResponse Int+dsphrsResponseStatus = lens _dsphrsResponseStatus (\ s a -> s{_dsphrsResponseStatus = a});

@@ -40,7 +40,7 @@     , DescribeSubnetsResponse     -- * Response Lenses     , dsrsSubnets-    , dsrsStatus+    , dsrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -155,8 +155,8 @@  -- | /See:/ 'describeSubnetsResponse' smart constructor. data DescribeSubnetsResponse = DescribeSubnetsResponse'-    { _dsrsSubnets :: !(Maybe [Subnet])-    , _dsrsStatus  :: !Int+    { _dsrsSubnets        :: !(Maybe [Subnet])+    , _dsrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeSubnetsResponse' with the minimum fields required to make a request.@@ -165,14 +165,14 @@ -- -- * 'dsrsSubnets' ----- * 'dsrsStatus'+-- * 'dsrsResponseStatus' describeSubnetsResponse-    :: Int -- ^ 'dsrsStatus'+    :: Int -- ^ 'dsrsResponseStatus'     -> DescribeSubnetsResponse-describeSubnetsResponse pStatus_ =+describeSubnetsResponse pResponseStatus_ =     DescribeSubnetsResponse'     { _dsrsSubnets = Nothing-    , _dsrsStatus = pStatus_+    , _dsrsResponseStatus = pResponseStatus_     }  -- | Information about one or more subnets.@@ -180,5 +180,5 @@ dsrsSubnets = lens _dsrsSubnets (\ s a -> s{_dsrsSubnets = a}) . _Default . _Coerce;  -- | The response status code.-dsrsStatus :: Lens' DescribeSubnetsResponse Int-dsrsStatus = lens _dsrsStatus (\ s a -> s{_dsrsStatus = a});+dsrsResponseStatus :: Lens' DescribeSubnetsResponse Int+dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a});

@@ -44,7 +44,7 @@     -- * Response Lenses     , dtrsNextToken     , dtrsTags-    , dtrsStatus+    , dtrsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -156,9 +156,9 @@  -- | /See:/ 'describeTagsResponse' smart constructor. data DescribeTagsResponse = DescribeTagsResponse'-    { _dtrsNextToken :: !(Maybe Text)-    , _dtrsTags      :: !(Maybe [TagDescription])-    , _dtrsStatus    :: !Int+    { _dtrsNextToken      :: !(Maybe Text)+    , _dtrsTags           :: !(Maybe [TagDescription])+    , _dtrsResponseStatus :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeTagsResponse' with the minimum fields required to make a request.@@ -169,15 +169,15 @@ -- -- * 'dtrsTags' ----- * 'dtrsStatus'+-- * 'dtrsResponseStatus' describeTagsResponse-    :: Int -- ^ 'dtrsStatus'+    :: Int -- ^ 'dtrsResponseStatus'     -> DescribeTagsResponse-describeTagsResponse pStatus_ =+describeTagsResponse pResponseStatus_ =     DescribeTagsResponse'     { _dtrsNextToken = Nothing     , _dtrsTags = Nothing-    , _dtrsStatus = pStatus_+    , _dtrsResponseStatus = pResponseStatus_     }  -- | The token to use to retrieve the next page of results. This value is@@ -190,5 +190,5 @@ dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce;  -- | The response status code.-dtrsStatus :: Lens' DescribeTagsResponse Int-dtrsStatus = lens _dtrsStatus (\ s a -> s{_dtrsStatus = a});+dtrsResponseStatus :: Lens' DescribeTagsResponse Int+dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a});

@@ -39,7 +39,7 @@     , dvpcarsEnableDNSHostnames     , dvpcarsEnableDNSSupport     , dvpcarsVPCId-    , dvpcarsStatus+    , dvpcarsResponseStatus     ) where  import           Network.AWS.EC2.Types@@ -121,7 +121,7 @@     { _dvpcarsEnableDNSHostnames :: !(Maybe AttributeBooleanValue)     , _dvpcarsEnableDNSSupport   :: !(Maybe AttributeBooleanValue)     , _dvpcarsVPCId              :: !(Maybe Text)-    , _dvpcarsStatus             :: !Int+    , _dvpcarsResponseStatus     :: !Int     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'DescribeVPCAttributeResponse' with the minimum fields required to make a request.@@ -134,16 +134,16 @@ -- -- * 'dvpcarsVPCId' ----- * 'dvpcarsStatus'+-- * 'dvpcarsResponseStatus' describeVPCAttributeResponse-    :: Int -- ^ 'dvpcarsStatus'+    :: Int -- ^ 'dvpcarsResponseStatus'     -> DescribeVPCAttributeResponse-describeVPCAttributeResponse pStatus_ =+describeVPCAttributeResponse pResponseStatus_ =     DescribeVPCAttributeResponse'     { _dvpcarsEnableDNSHostnames = Nothing     , _dvpcarsEnableDNSSupport = Nothing     , _dvpcarsVPCId = Nothing-    , _dvpcarsStatus = pStatus_+    , _dvpcarsResponseStatus = pResponseStatus_     }  -- | Indicates whether the instances launched in the VPC get DNS hostnames.@@ -164,5 +164,5 @@ dvpcarsVPCId = lens _dvpcarsVPCId (\ s a -> s{_dvpcarsVPCId = a});  -- | The response status code.-dvpcarsStatus :: Lens' DescribeVPCAttributeResponse Int-dvpcarsStatus = lens _dvpcarsStatus (\ s a -> s{_dvpcarsStatus = a});+dvpcarsResponseStatus :: Lens' DescribeVPCAttributeResponse Int+dvpcarsResponseStatus = lens _dvpcarsResponseStatus (\ s a -> s{_dvpcarsResponseStatus = a});