amazonka-ec2 1.4.3 → 1.4.4

raw patch · 234 files changed

+3207/−420 lines, 234 filesdep ~amazonka-coredep ~amazonka-ec2dep ~amazonka-testPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

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

API changes (from Hackage documentation)

Files

• README.md +1/−1
• amazonka-ec2.cabal +14/−5
• fixture/CopySnapshot.yaml +3/−3
• fixture/DescribeHostReservationOfferings.yaml +0/−0
• fixture/DescribeHostReservationOfferingsResponse.proto +0/−0
• fixture/DescribeHostReservations.yaml +0/−0
• fixture/DescribeHostReservationsResponse.proto +0/−0
• fixture/DescribeIdentityIdFormat.yaml +0/−0
• fixture/DescribeIdentityIdFormatResponse.proto +0/−0
• fixture/DescribeImages.yaml +3/−3
• fixture/DescribeInstances.yaml +3/−3
• fixture/DescribeVolumes.yaml +3/−3
• fixture/GetHostReservationPurchasePreview.yaml +0/−0
• fixture/GetHostReservationPurchasePreviewResponse.proto +0/−0
• fixture/ModifyIdentityIdFormat.yaml +0/−0
• fixture/ModifyIdentityIdFormatResponse.proto +0/−0
• fixture/PurchaseHostReservation.yaml +0/−0
• fixture/PurchaseHostReservationResponse.proto +0/−0
• gen/Network/AWS/EC2.hs +135/−2
• gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs +1/−1
• gen/Network/AWS/EC2/AllocateAddress.hs +1/−1
• gen/Network/AWS/EC2/AllocateHosts.hs +7/−7
• gen/Network/AWS/EC2/AssignPrivateIPAddresses.hs +1/−1
• gen/Network/AWS/EC2/AssociateAddress.hs +1/−1
• gen/Network/AWS/EC2/AssociateDHCPOptions.hs +1/−1
• gen/Network/AWS/EC2/AssociateRouteTable.hs +1/−1
• gen/Network/AWS/EC2/AttachClassicLinkVPC.hs +1/−1
• gen/Network/AWS/EC2/AttachInternetGateway.hs +1/−1
• gen/Network/AWS/EC2/AttachNetworkInterface.hs +1/−1
• gen/Network/AWS/EC2/AttachVPNGateway.hs +1/−1
• gen/Network/AWS/EC2/AttachVolume.hs +1/−1
• gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs +1/−1
• gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs +2/−2
• gen/Network/AWS/EC2/BundleInstance.hs +1/−1
• gen/Network/AWS/EC2/CancelBundleTask.hs +1/−1
• gen/Network/AWS/EC2/CancelConversionTask.hs +2/−2
• gen/Network/AWS/EC2/CancelExportTask.hs +1/−1
• gen/Network/AWS/EC2/CancelImportTask.hs +1/−1
• gen/Network/AWS/EC2/CancelReservedInstancesListing.hs +1/−1
• gen/Network/AWS/EC2/CancelSpotFleetRequests.hs +1/−1
• gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs +1/−1
• gen/Network/AWS/EC2/ConfirmProductInstance.hs +1/−1
• gen/Network/AWS/EC2/CopyImage.hs +1/−1
• gen/Network/AWS/EC2/CopySnapshot.hs +6/−2
• gen/Network/AWS/EC2/CreateCustomerGateway.hs +1/−1
• gen/Network/AWS/EC2/CreateDHCPOptions.hs +3/−3
• gen/Network/AWS/EC2/CreateFlowLogs.hs +3/−1
• gen/Network/AWS/EC2/CreateImage.hs +1/−1
• gen/Network/AWS/EC2/CreateInstanceExportTask.hs +2/−2
• gen/Network/AWS/EC2/CreateInternetGateway.hs +1/−1
• gen/Network/AWS/EC2/CreateKeyPair.hs +1/−1
• gen/Network/AWS/EC2/CreateNatGateway.hs +1/−1
• gen/Network/AWS/EC2/CreateNetworkACL.hs +1/−1
• gen/Network/AWS/EC2/CreateNetworkACLEntry.hs +2/−2
• gen/Network/AWS/EC2/CreateNetworkInterface.hs +1/−1
• gen/Network/AWS/EC2/CreatePlacementGroup.hs +1/−1
• gen/Network/AWS/EC2/CreateReservedInstancesListing.hs +1/−1
• gen/Network/AWS/EC2/CreateRoute.hs +1/−1
• gen/Network/AWS/EC2/CreateRouteTable.hs +1/−1
• gen/Network/AWS/EC2/CreateSecurityGroup.hs +3/−3
• gen/Network/AWS/EC2/CreateSnapshot.hs +1/−1
• gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs +1/−1
• gen/Network/AWS/EC2/CreateSubnet.hs +1/−1
• gen/Network/AWS/EC2/CreateTags.hs +2/−2
• gen/Network/AWS/EC2/CreateVPC.hs +1/−1
• gen/Network/AWS/EC2/CreateVPCEndpoint.hs +2/−2
• gen/Network/AWS/EC2/CreateVPCPeeringConnection.hs +1/−1
• gen/Network/AWS/EC2/CreateVPNConnection.hs +1/−1
• gen/Network/AWS/EC2/CreateVPNConnectionRoute.hs +1/−1
• gen/Network/AWS/EC2/CreateVPNGateway.hs +1/−1
• gen/Network/AWS/EC2/CreateVolume.hs +1/−1
• gen/Network/AWS/EC2/DeleteCustomerGateway.hs +1/−1
• gen/Network/AWS/EC2/DeleteDHCPOptions.hs +1/−1
• gen/Network/AWS/EC2/DeleteFlowLogs.hs +1/−1
• gen/Network/AWS/EC2/DeleteInternetGateway.hs +1/−1
• gen/Network/AWS/EC2/DeleteKeyPair.hs +1/−1
• gen/Network/AWS/EC2/DeleteNatGateway.hs +1/−1
• gen/Network/AWS/EC2/DeleteNetworkACL.hs +1/−1
• gen/Network/AWS/EC2/DeleteNetworkACLEntry.hs +1/−1
• gen/Network/AWS/EC2/DeleteNetworkInterface.hs +1/−1
• gen/Network/AWS/EC2/DeletePlacementGroup.hs +1/−1
• gen/Network/AWS/EC2/DeleteRoute.hs +1/−1
• gen/Network/AWS/EC2/DeleteRouteTable.hs +1/−1
• gen/Network/AWS/EC2/DeleteSecurityGroup.hs +1/−1
• gen/Network/AWS/EC2/DeleteSnapshot.hs +1/−1
• gen/Network/AWS/EC2/DeleteSpotDatafeedSubscription.hs +1/−1
• gen/Network/AWS/EC2/DeleteSubnet.hs +1/−1
• gen/Network/AWS/EC2/DeleteTags.hs +1/−1
• gen/Network/AWS/EC2/DeleteVPC.hs +1/−1
• gen/Network/AWS/EC2/DeleteVPCEndpoints.hs +1/−1
• gen/Network/AWS/EC2/DeleteVPCPeeringConnection.hs +1/−1
• gen/Network/AWS/EC2/DeleteVPNConnection.hs +1/−1
• gen/Network/AWS/EC2/DeleteVPNConnectionRoute.hs +1/−1
• gen/Network/AWS/EC2/DeleteVPNGateway.hs +1/−1
• gen/Network/AWS/EC2/DeleteVolume.hs +1/−1
• gen/Network/AWS/EC2/DeregisterImage.hs +1/−1
• gen/Network/AWS/EC2/DescribeAccountAttributes.hs +1/−1
• gen/Network/AWS/EC2/DescribeAddresses.hs +1/−1
• gen/Network/AWS/EC2/DescribeAvailabilityZones.hs +1/−1
• gen/Network/AWS/EC2/DescribeBundleTasks.hs +1/−1
• gen/Network/AWS/EC2/DescribeClassicLinkInstances.hs +1/−1
• gen/Network/AWS/EC2/DescribeConversionTasks.hs +2/−2
• gen/Network/AWS/EC2/DescribeCustomerGateways.hs +1/−1
• gen/Network/AWS/EC2/DescribeDHCPOptions.hs +1/−1
• gen/Network/AWS/EC2/DescribeExportTasks.hs +1/−1
• gen/Network/AWS/EC2/DescribeFlowLogs.hs +1/−1
• gen/Network/AWS/EC2/DescribeHostReservationOfferings.hs +198/−0
• gen/Network/AWS/EC2/DescribeHostReservations.hs +175/−0
• gen/Network/AWS/EC2/DescribeHosts.hs +8/−8
• gen/Network/AWS/EC2/DescribeIdFormat.hs +2/−2
• gen/Network/AWS/EC2/DescribeIdentityIdFormat.hs +145/−0
• gen/Network/AWS/EC2/DescribeImageAttribute.hs +2/−2
• gen/Network/AWS/EC2/DescribeImages.hs +3/−3
• gen/Network/AWS/EC2/DescribeImportImageTasks.hs +1/−1
• gen/Network/AWS/EC2/DescribeImportSnapshotTasks.hs +1/−1
• gen/Network/AWS/EC2/DescribeInstanceAttribute.hs +15/−3
• gen/Network/AWS/EC2/DescribeInstanceStatus.hs +1/−1
• gen/Network/AWS/EC2/DescribeInstances.hs +6/−4
• gen/Network/AWS/EC2/DescribeInternetGateways.hs +1/−1
• gen/Network/AWS/EC2/DescribeKeyPairs.hs +1/−1
• gen/Network/AWS/EC2/DescribeMovingAddresses.hs +1/−1
• gen/Network/AWS/EC2/DescribeNatGateways.hs +1/−1
• gen/Network/AWS/EC2/DescribeNetworkACLs.hs +1/−1
• gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs +1/−1
• gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs +1/−1
• gen/Network/AWS/EC2/DescribePlacementGroups.hs +1/−1
• gen/Network/AWS/EC2/DescribePrefixLists.hs +1/−1
• gen/Network/AWS/EC2/DescribeRegions.hs +1/−1
• gen/Network/AWS/EC2/DescribeReservedInstances.hs +1/−1
• gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs +1/−1
• gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs +1/−1
• gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs +1/−1
• gen/Network/AWS/EC2/DescribeRouteTables.hs +1/−1
• gen/Network/AWS/EC2/DescribeScheduledInstanceAvailability.hs +1/−1
• gen/Network/AWS/EC2/DescribeScheduledInstances.hs +1/−1
• gen/Network/AWS/EC2/DescribeSecurityGroupReferences.hs +140/−0
• gen/Network/AWS/EC2/DescribeSecurityGroups.hs +1/−1
• gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs +1/−1
• gen/Network/AWS/EC2/DescribeSnapshots.hs +3/−3
• gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs +1/−1
• gen/Network/AWS/EC2/DescribeSpotFleetInstances.hs +1/−1
• gen/Network/AWS/EC2/DescribeSpotFleetRequestHistory.hs +1/−1
• gen/Network/AWS/EC2/DescribeSpotFleetRequests.hs +12/−1
• gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs +1/−1
• gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs +1/−1
• gen/Network/AWS/EC2/DescribeStaleSecurityGroups.hs +167/−0
• gen/Network/AWS/EC2/DescribeSubnets.hs +1/−1
• gen/Network/AWS/EC2/DescribeTags.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPCAttribute.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPCClassicLink.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPCClassicLinkDNSSupport.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPCEndpointServices.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPCEndpoints.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPCPeeringConnections.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPCs.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPNConnections.hs +1/−1
• gen/Network/AWS/EC2/DescribeVPNGateways.hs +1/−1
• gen/Network/AWS/EC2/DescribeVolumeAttribute.hs +1/−1
• gen/Network/AWS/EC2/DescribeVolumeStatus.hs +1/−1
• gen/Network/AWS/EC2/DescribeVolumes.hs +1/−1
• gen/Network/AWS/EC2/DetachClassicLinkVPC.hs +1/−1
• gen/Network/AWS/EC2/DetachInternetGateway.hs +1/−1
• gen/Network/AWS/EC2/DetachNetworkInterface.hs +1/−1
• gen/Network/AWS/EC2/DetachVPNGateway.hs +1/−1
• gen/Network/AWS/EC2/DetachVolume.hs +2/−4
• gen/Network/AWS/EC2/DisableVGWRoutePropagation.hs +1/−1
• gen/Network/AWS/EC2/DisableVPCClassicLink.hs +1/−1
• gen/Network/AWS/EC2/DisableVPCClassicLinkDNSSupport.hs +1/−1
• gen/Network/AWS/EC2/DisassociateAddress.hs +1/−1
• gen/Network/AWS/EC2/DisassociateRouteTable.hs +1/−1
• gen/Network/AWS/EC2/EnableVGWRoutePropagation.hs +1/−1
• gen/Network/AWS/EC2/EnableVPCClassicLink.hs +1/−1
• gen/Network/AWS/EC2/EnableVPCClassicLinkDNSSupport.hs +1/−1
• gen/Network/AWS/EC2/EnableVolumeIO.hs +1/−1
• gen/Network/AWS/EC2/GetConsoleOutput.hs +2/−2
• gen/Network/AWS/EC2/GetConsoleScreenshot.hs +159/−0
• gen/Network/AWS/EC2/GetHostReservationPurchasePreview.hs +174/−0
• gen/Network/AWS/EC2/GetPasswordData.hs +1/−1
• gen/Network/AWS/EC2/ImportImage.hs +3/−3
• gen/Network/AWS/EC2/ImportInstance.hs +2/−2
• gen/Network/AWS/EC2/ImportKeyPair.hs +1/−1
• gen/Network/AWS/EC2/ImportSnapshot.hs +1/−1
• gen/Network/AWS/EC2/ImportVolume.hs +2/−2
• gen/Network/AWS/EC2/ModifyHosts.hs +5/−5
• gen/Network/AWS/EC2/ModifyIdFormat.hs +4/−4
• gen/Network/AWS/EC2/ModifyIdentityIdFormat.hs +130/−0
• gen/Network/AWS/EC2/ModifyImageAttribute.hs +3/−1
• gen/Network/AWS/EC2/ModifyInstanceAttribute.hs +16/−4
• gen/Network/AWS/EC2/ModifyInstancePlacement.hs +3/−3
• gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs +1/−1
• gen/Network/AWS/EC2/ModifyReservedInstances.hs +1/−1
• gen/Network/AWS/EC2/ModifySnapshotAttribute.hs +3/−3
• gen/Network/AWS/EC2/ModifySpotFleetRequest.hs +1/−1
• gen/Network/AWS/EC2/ModifySubnetAttribute.hs +1/−1
• gen/Network/AWS/EC2/ModifyVPCAttribute.hs +1/−1
• gen/Network/AWS/EC2/ModifyVPCEndpoint.hs +1/−1
• gen/Network/AWS/EC2/ModifyVPCPeeringConnectionOptions.hs +4/−2
• gen/Network/AWS/EC2/ModifyVolumeAttribute.hs +1/−1
• gen/Network/AWS/EC2/MonitorInstances.hs +1/−1
• gen/Network/AWS/EC2/MoveAddressToVPC.hs +2/−2
• gen/Network/AWS/EC2/PurchaseHostReservation.hs +207/−0
• gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs +1/−1
• gen/Network/AWS/EC2/PurchaseScheduledInstances.hs +1/−1
• gen/Network/AWS/EC2/RebootInstances.hs +1/−1
• gen/Network/AWS/EC2/RegisterImage.hs +15/−3
• gen/Network/AWS/EC2/RejectVPCPeeringConnection.hs +1/−1
• gen/Network/AWS/EC2/ReleaseAddress.hs +1/−1
• gen/Network/AWS/EC2/ReleaseHosts.hs +7/−7
• gen/Network/AWS/EC2/ReplaceNetworkACLAssociation.hs +1/−1
• gen/Network/AWS/EC2/ReplaceNetworkACLEntry.hs +1/−1
• gen/Network/AWS/EC2/ReplaceRoute.hs +1/−1
• gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs +1/−1
• gen/Network/AWS/EC2/ReportInstanceStatus.hs +1/−1
• gen/Network/AWS/EC2/RequestSpotFleet.hs +1/−1
• gen/Network/AWS/EC2/RequestSpotInstances.hs +1/−1
• gen/Network/AWS/EC2/ResetImageAttribute.hs +1/−1
• gen/Network/AWS/EC2/ResetInstanceAttribute.hs +5/−3
• gen/Network/AWS/EC2/ResetNetworkInterfaceAttribute.hs +1/−1
• gen/Network/AWS/EC2/ResetSnapshotAttribute.hs +1/−1
• gen/Network/AWS/EC2/RestoreAddressToClassic.hs +2/−2
• gen/Network/AWS/EC2/RevokeSecurityGroupEgress.hs +1/−1
• gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs +1/−1
• gen/Network/AWS/EC2/RunInstances.hs +6/−2
• gen/Network/AWS/EC2/RunScheduledInstances.hs +2/−2
• gen/Network/AWS/EC2/StartInstances.hs +1/−1
• gen/Network/AWS/EC2/StopInstances.hs +2/−2
• gen/Network/AWS/EC2/TerminateInstances.hs +1/−1
• gen/Network/AWS/EC2/Types.hs +100/−3
• gen/Network/AWS/EC2/Types/Product.hs +771/−77
• gen/Network/AWS/EC2/Types/Sum.hs +177/−43
• gen/Network/AWS/EC2/UnassignPrivateIPAddresses.hs +1/−1
• gen/Network/AWS/EC2/UnmonitorInstances.hs +1/−1
• gen/Network/AWS/EC2/Waiters.hs +2/−2
• test/Test/AWS/Gen/EC2.hs +162/−0

@@ -8,7 +8,7 @@  ## Version -`1.4.3`+`1.4.4`   ## Description

@@ -1,5 +1,5 @@ name:                  amazonka-ec2-version:               1.4.3+version:               1.4.4 synopsis:              Amazon Elastic Compute Cloud SDK. homepage:              https://github.com/brendanhay/amazonka bug-reports:           https://github.com/brendanhay/amazonka/issues@@ -130,8 +130,11 @@         , Network.AWS.EC2.DescribeDHCPOptions         , Network.AWS.EC2.DescribeExportTasks         , Network.AWS.EC2.DescribeFlowLogs+        , Network.AWS.EC2.DescribeHostReservationOfferings+        , Network.AWS.EC2.DescribeHostReservations         , Network.AWS.EC2.DescribeHosts         , Network.AWS.EC2.DescribeIdFormat+        , Network.AWS.EC2.DescribeIdentityIdFormat         , Network.AWS.EC2.DescribeImageAttribute         , Network.AWS.EC2.DescribeImages         , Network.AWS.EC2.DescribeImportImageTasks@@ -156,6 +159,7 @@         , Network.AWS.EC2.DescribeRouteTables         , Network.AWS.EC2.DescribeScheduledInstanceAvailability         , Network.AWS.EC2.DescribeScheduledInstances+        , Network.AWS.EC2.DescribeSecurityGroupReferences         , Network.AWS.EC2.DescribeSecurityGroups         , Network.AWS.EC2.DescribeSnapshotAttribute         , Network.AWS.EC2.DescribeSnapshots@@ -165,6 +169,7 @@         , Network.AWS.EC2.DescribeSpotFleetRequests         , Network.AWS.EC2.DescribeSpotInstanceRequests         , Network.AWS.EC2.DescribeSpotPriceHistory+        , Network.AWS.EC2.DescribeStaleSecurityGroups         , Network.AWS.EC2.DescribeSubnets         , Network.AWS.EC2.DescribeTags         , Network.AWS.EC2.DescribeVPCAttribute@@ -194,6 +199,8 @@         , Network.AWS.EC2.EnableVPCClassicLinkDNSSupport         , Network.AWS.EC2.EnableVolumeIO         , Network.AWS.EC2.GetConsoleOutput+        , Network.AWS.EC2.GetConsoleScreenshot+        , Network.AWS.EC2.GetHostReservationPurchasePreview         , Network.AWS.EC2.GetPasswordData         , Network.AWS.EC2.ImportImage         , Network.AWS.EC2.ImportInstance@@ -202,6 +209,7 @@         , Network.AWS.EC2.ImportVolume         , Network.AWS.EC2.ModifyHosts         , Network.AWS.EC2.ModifyIdFormat+        , Network.AWS.EC2.ModifyIdentityIdFormat         , Network.AWS.EC2.ModifyImageAttribute         , Network.AWS.EC2.ModifyInstanceAttribute         , Network.AWS.EC2.ModifyInstancePlacement@@ -216,6 +224,7 @@         , Network.AWS.EC2.ModifyVolumeAttribute         , Network.AWS.EC2.MonitorInstances         , Network.AWS.EC2.MoveAddressToVPC+        , Network.AWS.EC2.PurchaseHostReservation         , Network.AWS.EC2.PurchaseReservedInstancesOffering         , Network.AWS.EC2.PurchaseScheduledInstances         , Network.AWS.EC2.RebootInstances@@ -253,7 +262,7 @@         , Network.AWS.EC2.Types.Sum      build-depends:-          amazonka-core == 1.4.3.*+          amazonka-core == 1.4.4.*         , base          >= 4.7     && < 5  test-suite amazonka-ec2-test@@ -273,9 +282,9 @@         , Test.AWS.EC2.Internal      build-depends:-          amazonka-core == 1.4.3.*-        , amazonka-test == 1.4.3.*-        , amazonka-ec2 == 1.4.3.*+          amazonka-core == 1.4.4.*+        , amazonka-test == 1.4.4.*+        , amazonka-ec2 == 1.4.4.*         , base         , bytestring         , tasty

@@ -1,10 +1,10 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=e5bf40eb013cc315fd1082dea1ffa9d46e6eeea59dcf260dcbec18ef8a229e67+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=62cc6620dcf0a8bdf5cf05e1656dfe9dcc17f4d0bd166b83c8a0dc8d7954e3f2   Host:                  ec2.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8-  X-Amz-Content-SHA256:  1a58190ece713714bc47cc72c5cc20ded47dfe2824e1c73cf3fe68f5824f8dd4+  X-Amz-Content-SHA256:  ee57386c8e0aab5d1c9fbdd3eea25513e132552eb912cbb2b60c7a8fcfc760d9   X-Amz-Date:            20091028T223200Z body:-  Action=CopySnapshot&Description=My_snapshot&SourceRegion=us-west-1&SourceSnapshotId=snap-1a2b3c4d&Version=2015-10-01+  Action=CopySnapshot&Description=My_snapshot&SourceRegion=us-west-1&SourceSnapshotId=snap-1a2b3c4d&Version=2016-04-01

@@ -1,10 +1,10 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=ebaff8e1ce437ed31de2059b4f38524aab94d158b2739a0c3d751e5b9ae022ea+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=ea8f58598dce54698495a7f261ab5b680e73ec6e9613402f0a96637ed126ed08   Host:                  ec2.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8-  X-Amz-Content-SHA256:  43769959351330e944b6850bb27670a87dfcc6081765215c80a608a67793073c+  X-Amz-Content-SHA256:  01c42f59e20a5f3190f9f0e8ae4cfb7f43629324ebd3dc6f6790e14e956dcfec   X-Amz-Date:            20091028T223200Z body:-  Action=DescribeImages&Filter.1.Name=is-public&Filter.1.Value.1=true&Filter.2.Name=architecture&Filter.2.Value.1=x86_64&Filter.3.Name=platform&Filter.3.Value.1=windows&Version=2015-10-01+  Action=DescribeImages&Filter.1.Name=is-public&Filter.1.Value.1=true&Filter.2.Name=architecture&Filter.2.Value.1=x86_64&Filter.3.Name=platform&Filter.3.Value.1=windows&Version=2016-04-01

@@ -1,10 +1,10 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=475f54403cd083ff13fd7ba62954a5af97c7d706246c4da9631af8ca6ff763b8+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=4147fd530af8dd5e89743523e077f60fcc101620e44cb9c0220bc2cafa3c202a   Host:                  ec2.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8-  X-Amz-Content-SHA256:  8446b307aaad90c0400a32a0e0f4d7839726c86af985d3284f5e9ee1c041c4ba+  X-Amz-Content-SHA256:  d0ba373064877624eb8db3f772ea5ccac7a65f498eda10103d4a8fe984fb64bc   X-Amz-Date:            20091028T223200Z body:-  Action=DescribeInstances&Filter.1.Name=instance-type&Filter.1.Value.1=m1.small&Filter.1.Value.2=m1.large&Filter.2.Name=block-device-mapping.status&Filter.2.Value.1=attached&InstanceId.1=i-foo&InstanceId.2=i-bar&InstanceId.3=i-baz&Version=2015-10-01+  Action=DescribeInstances&Filter.1.Name=instance-type&Filter.1.Value.1=m1.small&Filter.1.Value.2=m1.large&Filter.2.Name=block-device-mapping.status&Filter.2.Value.1=attached&InstanceId.1=i-foo&InstanceId.2=i-bar&InstanceId.3=i-baz&Version=2016-04-01

@@ -1,10 +1,10 @@ --- method: POST headers:-  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=e118d8ebf72e54043d55c94cde8d59d7d76140337733c9105ae0fa39c45b45ee+  Authorization:         AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=740f1e4fafcf032b5f6f28f05a9b0669379602ca8167f433196cb0b49e3edda4   Host:                  ec2.us-east-1.amazonaws.com   Content-Type:          application/x-www-form-urlencoded; charset=utf-8-  X-Amz-Content-SHA256:  a98743a8daba897037142a2229e0db501af78d6ab080f2ddf7acdeeff5fc5bca+  X-Amz-Content-SHA256:  a93c2b78aa5af6ca356b358b67389be5a62246da855e823bb771b65fcdbd2464   X-Amz-Date:            20091028T223200Z body:-  Action=DescribeVolumes&Filter.1.Name=tag%3AName&Filter.1.Value.1=octopus&Filter.2.Name=tag%3ARole&Filter.2.Value.1=database&Filter.2.Value.2=server&Version=2015-10-01&VolumeId.1=foo&VolumeId.2=bar&VolumeId.3=baz+  Action=DescribeVolumes&Filter.1.Name=tag%3AName&Filter.1.Value.1=octopus&Filter.2.Name=tag%3ARole&Filter.2.Value.1=database&Filter.2.Value.2=server&Version=2016-04-01&VolumeId.1=foo&VolumeId.2=bar&VolumeId.3=baz

@@ -124,6 +124,9 @@     -- ** DeleteKeyPair     , module Network.AWS.EC2.DeleteKeyPair +    -- ** DescribeSecurityGroupReferences+    , module Network.AWS.EC2.DescribeSecurityGroupReferences+     -- ** DescribeTags (Paginated)     , module Network.AWS.EC2.DescribeTags @@ -223,6 +226,9 @@     -- ** DescribeSnapshotAttribute     , module Network.AWS.EC2.DescribeSnapshotAttribute +    -- ** DescribeIdentityIdFormat+    , module Network.AWS.EC2.DescribeIdentityIdFormat+     -- ** ReplaceRoute     , module Network.AWS.EC2.ReplaceRoute @@ -265,6 +271,9 @@     -- ** ResetInstanceAttribute     , module Network.AWS.EC2.ResetInstanceAttribute +    -- ** ModifyIdentityIdFormat+    , module Network.AWS.EC2.ModifyIdentityIdFormat+     -- ** AttachNetworkInterface     , module Network.AWS.EC2.AttachNetworkInterface @@ -346,6 +355,9 @@     -- ** RequestSpotInstances     , module Network.AWS.EC2.RequestSpotInstances +    -- ** DescribeHostReservationOfferings+    , module Network.AWS.EC2.DescribeHostReservationOfferings+     -- ** DescribeVolumes (Paginated)     , module Network.AWS.EC2.DescribeVolumes @@ -367,6 +379,9 @@     -- ** RevokeSecurityGroupIngress     , module Network.AWS.EC2.RevokeSecurityGroupIngress +    -- ** DescribeHostReservations+    , module Network.AWS.EC2.DescribeHostReservations+     -- ** EnableVPCClassicLinkDNSSupport     , module Network.AWS.EC2.EnableVPCClassicLinkDNSSupport @@ -379,7 +394,7 @@     -- ** CreateFlowLogs     , module Network.AWS.EC2.CreateFlowLogs -    -- ** DescribeSpotFleetRequests+    -- ** DescribeSpotFleetRequests (Paginated)     , module Network.AWS.EC2.DescribeSpotFleetRequests      -- ** MoveAddressToVPC@@ -463,6 +478,9 @@     -- ** DetachVPNGateway     , module Network.AWS.EC2.DetachVPNGateway +    -- ** GetHostReservationPurchasePreview+    , module Network.AWS.EC2.GetHostReservationPurchasePreview+     -- ** EnableVolumeIO     , module Network.AWS.EC2.EnableVolumeIO @@ -568,6 +586,9 @@     -- ** DisassociateRouteTable     , module Network.AWS.EC2.DisassociateRouteTable +    -- ** GetConsoleScreenshot+    , module Network.AWS.EC2.GetConsoleScreenshot+     -- ** DeleteSpotDatafeedSubscription     , module Network.AWS.EC2.DeleteSpotDatafeedSubscription @@ -577,6 +598,9 @@     -- ** DescribePlacementGroups     , module Network.AWS.EC2.DescribePlacementGroups +    -- ** DescribeStaleSecurityGroups+    , module Network.AWS.EC2.DescribeStaleSecurityGroups+     -- ** PurchaseScheduledInstances     , module Network.AWS.EC2.PurchaseScheduledInstances @@ -613,6 +637,9 @@     -- ** RebootInstances     , module Network.AWS.EC2.RebootInstances +    -- ** PurchaseHostReservation+    , module Network.AWS.EC2.PurchaseHostReservation+     -- ** CreateImage     , module Network.AWS.EC2.CreateImage @@ -720,6 +747,9 @@     -- ** AccountAttributeName     , AccountAttributeName (..) +    -- ** ActivityStatus+    , ActivityStatus (..)+     -- ** AddressStatus     , AddressStatus (..) @@ -792,6 +822,9 @@     -- ** ExportTaskState     , ExportTaskState (..) +    -- ** FleetType+    , FleetType (..)+     -- ** FlowLogsResourceType     , FlowLogsResourceType (..) @@ -855,6 +888,9 @@     -- ** OperationType     , OperationType (..) +    -- ** PaymentOption+    , PaymentOption (..)+     -- ** PermissionGroup     , PermissionGroup (..) @@ -882,6 +918,9 @@     -- ** ReportStatusType     , ReportStatusType (..) +    -- ** ReservationState+    , ReservationState (..)+     -- ** ReservedInstanceState     , ReservedInstanceState (..) @@ -1294,6 +1333,17 @@     , hiInstanceId     , hiInstanceType +    -- ** HostOffering+    , HostOffering+    , hostOffering+    , hoInstanceFamily+    , hoCurrencyCode+    , hoHourlyPrice+    , hoUpfrontPrice+    , hoOfferingId+    , hoDuration+    , hoPaymentOption+     -- ** HostProperties     , HostProperties     , hostProperties@@ -1302,6 +1352,23 @@     , hpCores     , hpSockets +    -- ** HostReservation+    , HostReservation+    , hostReservation+    , hrState+    , hrInstanceFamily+    , hrCurrencyCode+    , hrHostReservationId+    , hrStart+    , hrHourlyPrice+    , hrCount+    , hrUpfrontPrice+    , hrEnd+    , hrHostIdSet+    , hrOfferingId+    , hrDuration+    , hrPaymentOption+     -- ** IAMInstanceProfile     , IAMInstanceProfile     , iamInstanceProfile@@ -1346,6 +1413,7 @@     , Image     , image     , iPlatform+    , iEnaSupport     , iImageOwnerAlias     , iRAMDiskId     , iKernelId@@ -1451,6 +1519,7 @@     , insPlatform     , insSecurityGroups     , insClientToken+    , insEnaSupport     , insSourceDestCheck     , insVPCId     , insKeyName@@ -1695,6 +1764,7 @@     , ngNatGatewayId     , ngSubnetId     , ngDeleteTime+    , ngProvisionedBandwidth     , ngNatGatewayAddresses     , ngCreateTime @@ -1802,12 +1872,14 @@     , peeringConnectionOptions     , pcoAllowEgressFromLocalVPCToRemoteClassicLink     , pcoAllowEgressFromLocalClassicLinkToRemoteVPC+    , pcoAllowDNSResolutionFromRemoteVPC      -- ** PeeringConnectionOptionsRequest     , PeeringConnectionOptionsRequest     , peeringConnectionOptionsRequest-    , pcorAllowEgressFromLocalClassicLinkToRemoteVPC     , pcorAllowEgressFromLocalVPCToRemoteClassicLink+    , pcorAllowEgressFromLocalClassicLinkToRemoteVPC+    , pcorAllowDNSResolutionFromRemoteVPC      -- ** Placement     , Placement@@ -1881,6 +1953,27 @@     , propagatingVGW     , pvGatewayId +    -- ** ProvisionedBandwidth+    , ProvisionedBandwidth+    , provisionedBandwidth+    , pbStatus+    , pbRequested+    , pbProvisioned+    , pbRequestTime+    , pbProvisionTime++    -- ** Purchase+    , Purchase+    , purchase+    , pInstanceFamily+    , pCurrencyCode+    , pHostReservationId+    , pHourlyPrice+    , pUpfrontPrice+    , pHostIdSet+    , pDuration+    , pPaymentOption+     -- ** PurchaseRequest     , PurchaseRequest     , purchaseRequest@@ -2202,6 +2295,13 @@     , sgGroupName     , sgDescription +    -- ** SecurityGroupReference+    , SecurityGroupReference+    , securityGroupReference+    , sgrVPCPeeringConnectionId+    , sgrGroupId+    , sgrReferencingVPCId+     -- ** SlotDateTimeRangeRequest     , SlotDateTimeRangeRequest     , slotDateTimeRangeRequest@@ -2305,6 +2405,7 @@     -- ** SpotFleetRequestConfig     , SpotFleetRequestConfig     , spotFleetRequestConfig+    , sfrcActivityStatus     , sfrcSpotFleetRequestId     , sfrcSpotFleetRequestState     , sfrcSpotFleetRequestConfig@@ -2317,6 +2418,8 @@     , sfrcdExcessCapacityTerminationPolicy     , sfrcdValidUntil     , sfrcdTerminateInstancesWithExpiration+    , sfrcdFulfilledCapacity+    , sfrcdType     , sfrcdValidFrom     , sfrcdAllocationStrategy     , sfrcdSpotPrice@@ -2374,6 +2477,26 @@     , sAvailabilityZone     , sTimestamp +    -- ** StaleIPPermission+    , StaleIPPermission+    , staleIPPermission+    , sipFromPort+    , sipUserIdGroupPairs+    , sipPrefixListIds+    , sipIPProtocol+    , sipToPort+    , sipIPRanges++    -- ** StaleSecurityGroup+    , StaleSecurityGroup+    , staleSecurityGroup+    , ssgVPCId+    , ssgGroupName+    , ssgStaleIPPermissionsEgress+    , ssgStaleIPPermissions+    , ssgDescription+    , ssgGroupId+     -- ** StateReason     , StateReason     , stateReason@@ -2510,6 +2633,7 @@     , vpcPeeringConnectionOptionsDescription     , vpcodAllowEgressFromLocalVPCToRemoteClassicLink     , vpcodAllowEgressFromLocalClassicLinkToRemoteVPC+    , vpcodAllowDNSResolutionFromRemoteVPC      -- ** VPCPeeringConnectionStateReason     , VPCPeeringConnectionStateReason@@ -2723,7 +2847,10 @@ import           Network.AWS.EC2.DescribeDHCPOptions import           Network.AWS.EC2.DescribeExportTasks import           Network.AWS.EC2.DescribeFlowLogs+import           Network.AWS.EC2.DescribeHostReservationOfferings+import           Network.AWS.EC2.DescribeHostReservations import           Network.AWS.EC2.DescribeHosts+import           Network.AWS.EC2.DescribeIdentityIdFormat import           Network.AWS.EC2.DescribeIdFormat import           Network.AWS.EC2.DescribeImageAttribute import           Network.AWS.EC2.DescribeImages@@ -2749,6 +2876,7 @@ import           Network.AWS.EC2.DescribeRouteTables import           Network.AWS.EC2.DescribeScheduledInstanceAvailability import           Network.AWS.EC2.DescribeScheduledInstances+import           Network.AWS.EC2.DescribeSecurityGroupReferences import           Network.AWS.EC2.DescribeSecurityGroups import           Network.AWS.EC2.DescribeSnapshotAttribute import           Network.AWS.EC2.DescribeSnapshots@@ -2758,6 +2886,7 @@ import           Network.AWS.EC2.DescribeSpotFleetRequests import           Network.AWS.EC2.DescribeSpotInstanceRequests import           Network.AWS.EC2.DescribeSpotPriceHistory+import           Network.AWS.EC2.DescribeStaleSecurityGroups import           Network.AWS.EC2.DescribeSubnets import           Network.AWS.EC2.DescribeTags import           Network.AWS.EC2.DescribeVolumeAttribute@@ -2787,6 +2916,8 @@ import           Network.AWS.EC2.EnableVPCClassicLink import           Network.AWS.EC2.EnableVPCClassicLinkDNSSupport import           Network.AWS.EC2.GetConsoleOutput+import           Network.AWS.EC2.GetConsoleScreenshot+import           Network.AWS.EC2.GetHostReservationPurchasePreview import           Network.AWS.EC2.GetPasswordData import           Network.AWS.EC2.ImportImage import           Network.AWS.EC2.ImportInstance@@ -2795,6 +2926,7 @@ import           Network.AWS.EC2.ImportVolume import           Network.AWS.EC2.Internal import           Network.AWS.EC2.ModifyHosts+import           Network.AWS.EC2.ModifyIdentityIdFormat import           Network.AWS.EC2.ModifyIdFormat import           Network.AWS.EC2.ModifyImageAttribute import           Network.AWS.EC2.ModifyInstanceAttribute@@ -2810,6 +2942,7 @@ import           Network.AWS.EC2.ModifyVPCPeeringConnectionOptions import           Network.AWS.EC2.MonitorInstances import           Network.AWS.EC2.MoveAddressToVPC+import           Network.AWS.EC2.PurchaseHostReservation import           Network.AWS.EC2.PurchaseReservedInstancesOffering import           Network.AWS.EC2.PurchaseScheduledInstances import           Network.AWS.EC2.RebootInstances

@@ -100,7 +100,7 @@           = mconcat               ["Action" =:                  ("AcceptVpcPeeringConnection" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpcPeeringConnectionId" =:                  _avpcVPCPeeringConnectionId,                "DryRun" =: _avpcDryRun]

@@ -105,7 +105,7 @@         toQuery AllocateAddress'{..}           = mconcat               ["Action" =: ("AllocateAddress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Domain" =: _aaDomain, "DryRun" =: _aaDryRun]  -- | Contains the output of AllocateAddress.

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Allocates a Dedicated host to your account. At minimum you need to specify the instance size type, Availability Zone, and quantity of hosts you want to allocate.+-- Allocates a Dedicated Host to your account. At minimum you need to specify the instance size type, Availability Zone, and quantity of hosts you want to allocate. module Network.AWS.EC2.AllocateHosts     (     -- * Creating a Request@@ -88,21 +88,21 @@ ahClientToken :: Lens' AllocateHosts (Maybe Text) ahClientToken = lens _ahClientToken (\ s a -> s{_ahClientToken = a}); --- | This is enabled by default. This property allows instances to be automatically placed onto available Dedicated hosts, when you are launching instances without specifying a host ID.+-- | This is enabled by default. This property allows instances to be automatically placed onto available Dedicated Hosts, when you are launching instances without specifying a host ID. -- -- Default: Enabled ahAutoPlacement :: Lens' AllocateHosts (Maybe AutoPlacement) ahAutoPlacement = lens _ahAutoPlacement (\ s a -> s{_ahAutoPlacement = a}); --- | Specify the instance type that you want your Dedicated hosts to be configured for. When you specify the instance type, that is the only instance type that you can launch onto that host.+-- | Specify the instance type that you want your Dedicated Hosts to be configured for. When you specify the instance type, that is the only instance type that you can launch onto that host. ahInstanceType :: Lens' AllocateHosts Text ahInstanceType = lens _ahInstanceType (\ s a -> s{_ahInstanceType = a}); --- | The number of Dedicated hosts you want to allocate to your account with these parameters.+-- | The number of Dedicated Hosts you want to allocate to your account with these parameters. ahQuantity :: Lens' AllocateHosts Int ahQuantity = lens _ahQuantity (\ s a -> s{_ahQuantity = a}); --- | The Availability Zone for the Dedicated hosts.+-- | The Availability Zone for the Dedicated Hosts. ahAvailabilityZone :: Lens' AllocateHosts Text ahAvailabilityZone = lens _ahAvailabilityZone (\ s a -> s{_ahAvailabilityZone = a}); @@ -131,7 +131,7 @@         toQuery AllocateHosts'{..}           = mconcat               ["Action" =: ("AllocateHosts" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ClientToken" =: _ahClientToken,                "AutoPlacement" =: _ahAutoPlacement,                "InstanceType" =: _ahInstanceType,@@ -162,7 +162,7 @@     , _ahrsResponseStatus = pResponseStatus_     } --- | The ID of the allocated Dedicated host. This is used when you want to launch an instance onto a specific host.+-- | The ID of the allocated Dedicated Host. This is used when you want to launch an instance onto a specific host. ahrsHostIds :: Lens' AllocateHostsResponse [Text] ahrsHostIds = lens _ahrsHostIds (\ s a -> s{_ahrsHostIds = a}) . _Default . _Coerce; 

@@ -116,7 +116,7 @@           = mconcat               ["Action" =:                  ("AssignPrivateIpAddresses" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "PrivateIpAddress" <$>                     _apiaPrivateIPAddresses),

@@ -150,7 +150,7 @@         toQuery AssociateAddress'{..}           = mconcat               ["Action" =: ("AssociateAddress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "InstanceId" =: _aasInstanceId,                "AllocationId" =: _aasAllocationId,                "NetworkInterfaceId" =: _aasNetworkInterfaceId,

@@ -106,7 +106,7 @@         toQuery AssociateDHCPOptions'{..}           = mconcat               ["Action" =: ("AssociateDhcpOptions" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _adoDryRun,                "DhcpOptionsId" =: _adoDHCPOptionsId,                "VpcId" =: _adoVPCId]

@@ -111,7 +111,7 @@         toQuery AssociateRouteTable'{..}           = mconcat               ["Action" =: ("AssociateRouteTable" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _artDryRun, "SubnetId" =: _artSubnetId,                "RouteTableId" =: _artRouteTableId] 

@@ -122,7 +122,7 @@         toQuery AttachClassicLinkVPC'{..}           = mconcat               ["Action" =: ("AttachClassicLinkVpc" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _aclvDryRun,                "InstanceId" =: _aclvInstanceId,                "VpcId" =: _aclvVPCId,

@@ -102,7 +102,7 @@         toQuery AttachInternetGateway'{..}           = mconcat               ["Action" =: ("AttachInternetGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _aigDryRun,                "InternetGatewayId" =: _aigInternetGatewayId,                "VpcId" =: _aigVPCId]

@@ -120,7 +120,7 @@           = mconcat               ["Action" =:                  ("AttachNetworkInterface" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _aniDryRun,                "NetworkInterfaceId" =: _aniNetworkInterfaceId,                "InstanceId" =: _aniInstanceId,

@@ -108,7 +108,7 @@         toQuery AttachVPNGateway'{..}           = mconcat               ["Action" =: ("AttachVpnGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _avgDryRun,                "VpnGatewayId" =: _avgVPNGatewayId,                "VpcId" =: _avgVPCId]

@@ -136,6 +136,6 @@         toQuery AttachVolume'{..}           = mconcat               ["Action" =: ("AttachVolume" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _avDryRun, "VolumeId" =: _avVolumeId,                "InstanceId" =: _avInstanceId, "Device" =: _avDevice]

@@ -164,7 +164,7 @@           = mconcat               ["Action" =:                  ("AuthorizeSecurityGroupEgress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "FromPort" =: _asgeFromPort,                toQuery                  (toQueryList "IpPermissions" <$> _asgeIPPermissions),

@@ -121,7 +121,7 @@ asgiIPPermissions :: Lens' AuthorizeSecurityGroupIngress [IPPermission] asgiIPPermissions = lens _asgiIPPermissions (\ s a -> s{_asgiIPPermissions = a}) . _Default . _Coerce; --- | The IP protocol name ('tcp', 'udp', 'icmp') or number (see <http://www.iana.org/assignments/protocol-numbers/protocol-numbers.xhtml Protocol Numbers>). (VPC only) Use '-1' to specify all.+-- | The IP protocol name ('tcp', 'udp', 'icmp') or number (see <http://www.iana.org/assignments/protocol-numbers/protocol-numbers.xhtml Protocol Numbers>). (VPC only) Use '-1' to specify all traffic. If you specify '-1', traffic on all ports is allowed, regardless of any ports you specify. asgiIPProtocol :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) asgiIPProtocol = lens _asgiIPProtocol (\ s a -> s{_asgiIPProtocol = a}); @@ -177,7 +177,7 @@           = mconcat               ["Action" =:                  ("AuthorizeSecurityGroupIngress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "FromPort" =: _asgiFromPort,                toQuery                  (toQueryList "IpPermissions" <$> _asgiIPPermissions),

@@ -120,7 +120,7 @@         toQuery BundleInstance'{..}           = mconcat               ["Action" =: ("BundleInstance" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _biDryRun, "InstanceId" =: _biInstanceId,                "Storage" =: _biStorage] 

@@ -98,7 +98,7 @@         toQuery CancelBundleTask'{..}           = mconcat               ["Action" =: ("CancelBundleTask" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _cbtDryRun, "BundleId" =: _cbtBundleId]  -- | Contains the output of CancelBundleTask.

@@ -20,7 +20,7 @@ -- -- Cancels an active conversion task. The task can be the import of an instance or volume. The action removes all artifacts of the conversion, including a partially uploaded volume or instance. If the conversion is complete or is in the process of transferring the final disk image, the command fails and returns an exception. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/UploadingYourInstancesandVolumes.html Using the Command Line Tools to Import Your Virtual Machine to Amazon EC2> in the /Amazon Elastic Compute Cloud User Guide/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/CommandLineReference/ec2-cli-vmimport-export.html Importing a Virtual Machine Using the Amazon EC2 CLI>. module Network.AWS.EC2.CancelConversionTask     (     -- * Creating a Request@@ -103,7 +103,7 @@         toQuery CancelConversionTask'{..}           = mconcat               ["Action" =: ("CancelConversionTask" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ReasonMessage" =: _cctReasonMessage,                "DryRun" =: _cctDryRun,                "ConversionTaskId" =: _cctConversionTaskId]

@@ -82,7 +82,7 @@         toQuery CancelExportTask'{..}           = mconcat               ["Action" =: ("CancelExportTask" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ExportTaskId" =: _cetExportTaskId]  -- | /See:/ 'cancelExportTaskResponse' smart constructor.

@@ -110,7 +110,7 @@         toQuery CancelImportTask'{..}           = mconcat               ["Action" =: ("CancelImportTask" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "CancelReason" =: _citCancelReason,                "ImportTaskId" =: _citImportTaskId,                "DryRun" =: _citDryRun]

@@ -97,7 +97,7 @@           = mconcat               ["Action" =:                  ("CancelReservedInstancesListing" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ReservedInstancesListingId" =:                  _crilReservedInstancesListingId] 

@@ -117,7 +117,7 @@           = mconcat               ["Action" =:                  ("CancelSpotFleetRequests" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _csfrDryRun,                toQueryList "SpotFleetRequestId"                  _csfrSpotFleetRequestIds,

@@ -103,7 +103,7 @@           = mconcat               ["Action" =:                  ("CancelSpotInstanceRequests" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _csirDryRun,                toQueryList "SpotInstanceRequestId"                  _csirSpotInstanceRequestIds]

@@ -112,7 +112,7 @@           = mconcat               ["Action" =:                  ("ConfirmProductInstance" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _cpiDryRun,                "ProductCode" =: _cpiProductCode,                "InstanceId" =: _cpiInstanceId]

@@ -156,7 +156,7 @@         toQuery CopyImage'{..}           = mconcat               ["Action" =: ("CopyImage" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ClientToken" =: _ciClientToken,                "Encrypted" =: _ciEncrypted,                "KmsKeyId" =: _ciKMSKeyId,

@@ -22,6 +22,10 @@ -- -- Copies of encrypted EBS snapshots remain encrypted. Copies of unencrypted snapshots remain unencrypted, unless the 'Encrypted' flag is specified during the snapshot copy operation. By default, encrypted snapshot copies use the default AWS Key Management Service (AWS KMS) customer master key (CMK); however, you can specify a non-default CMK with the 'KmsKeyId' parameter. --+-- To copy an encrypted snapshot that has been shared from another account, you must have permissions for the CMK used to encrypt the snapshot.+--+-- Snapshots created by the CopySnapshot action have an arbitrary volume ID that should not be used for any purpose.+-- -- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-copy-snapshot.html Copying an Amazon EBS Snapshot> in the /Amazon Elastic Compute Cloud User Guide/. module Network.AWS.EC2.CopySnapshot     (@@ -106,7 +110,7 @@ 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/.+-- | Specifies whether the destination snapshot should be encrypted. You can encrypt a copy of an unencrypted snapshot using this flag, but you cannot use it to create an unencrypted copy from an encrypted snapshot. Your 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}); @@ -159,7 +163,7 @@         toQuery CopySnapshot'{..}           = mconcat               ["Action" =: ("CopySnapshot" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "PresignedUrl" =: _csPresignedURL,                "Encrypted" =: _csEncrypted,                "DestinationRegion" =: _csDestinationRegion,

@@ -129,7 +129,7 @@         toQuery CreateCustomerGateway'{..}           = mconcat               ["Action" =: ("CreateCustomerGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _ccgDryRun, "Type" =: _ccgType,                "IpAddress" =: _ccgPublicIP, "BgpAsn" =: _ccgBGPASN] 

@@ -20,9 +20,9 @@ -- -- Creates a set of DHCP options for your VPC. After creating the set, you must associate it with the VPC, causing all existing and new instances that you launch in the VPC to use this set of DHCP options. The following are the individual DHCP options you can specify. For more information about the options, see <http://www.ietf.org/rfc/rfc2132.txt RFC 2132>. ----- -   'domain-name-servers' - The IP addresses of up to four domain name servers, or AmazonProvidedDNS. The default DHCP option set specifies AmazonProvidedDNS. If specifying more than one domain name server, specify the IP addresses in a single parameter, separated by commas.+-- -   'domain-name-servers' - The IP addresses of up to four domain name servers, or AmazonProvidedDNS. The default DHCP option set specifies AmazonProvidedDNS. If specifying more than one domain name server, specify the IP addresses in a single parameter, separated by commas. If you want your instance to receive a custom DNS hostname as specified in 'domain-name', you must set 'domain-name-servers' to a custom DNS server. ----- -   'domain-name' - If you\'re using AmazonProvidedDNS in \"us-east-1\", specify \"ec2.internal\". If you\'re using AmazonProvidedDNS in another region, specify \"region.compute.internal\" (for example, \"ap-northeast-1.compute.internal\"). Otherwise, specify a domain name (for example, \"MyCompany.com\"). __Important__: Some Linux operating systems accept multiple domain names separated by spaces. However, Windows and other Linux operating systems treat the value as a single domain, which results in unexpected behavior. If your DHCP options set is associated with a VPC that has instances with multiple operating systems, specify only one domain name.+-- -   'domain-name' - If you\'re using AmazonProvidedDNS in \"us-east-1\", specify \"ec2.internal\". If you\'re using AmazonProvidedDNS in another region, specify \"region.compute.internal\" (for example, \"ap-northeast-1.compute.internal\"). Otherwise, specify a domain name (for example, \"MyCompany.com\"). This value is used to complete unqualified DNS hostnames. __Important__: Some Linux operating systems accept multiple domain names separated by spaces. However, Windows and other Linux operating systems treat the value as a single domain, which results in unexpected behavior. If your DHCP options set is associated with a VPC that has instances with multiple operating systems, specify only one domain name. -- -- -   'ntp-servers' - The IP addresses of up to four Network Time Protocol (NTP) servers. --@@ -109,7 +109,7 @@         toQuery CreateDHCPOptions'{..}           = mconcat               ["Action" =: ("CreateDhcpOptions" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _cdoDryRun,                toQueryList "DhcpConfiguration"                  _cdoDHCPConfigurations]

@@ -99,6 +99,8 @@ cflClientToken = lens _cflClientToken (\ s a -> s{_cflClientToken = a});  -- | One or more subnet, network interface, or VPC IDs.+--+-- Constraints: Maximum of 1000 resources cflResourceIds :: Lens' CreateFlowLogs [Text] cflResourceIds = lens _cflResourceIds (\ s a -> s{_cflResourceIds = a}) . _Coerce; @@ -147,7 +149,7 @@         toQuery CreateFlowLogs'{..}           = mconcat               ["Action" =: ("CreateFlowLogs" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ClientToken" =: _cflClientToken,                toQueryList "ResourceId" _cflResourceIds,                "ResourceType" =: _cflResourceType,

@@ -141,7 +141,7 @@         toQuery CreateImage'{..}           = mconcat               ["Action" =: ("CreateImage" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NoReboot" =: _ciiNoReboot,                "Description" =: _ciiDescription,                toQuery

@@ -20,7 +20,7 @@ -- -- Exports a running or stopped instance to an S3 bucket. ----- For information about the supported operating systems, image formats, and known limitations for the types of instances you can export, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ExportingEC2Instances.html Exporting EC2 Instances> in the /Amazon Elastic Compute Cloud User Guide/.+-- For information about the supported operating systems, image formats, and known limitations for the types of instances you can export, see <http://docs.aws.amazon.com/vm-import/latest/userguide/vmexport.html Exporting an Instance as a VM Using VM Import\/Export> in the /VM Import\/Export User Guide/. module Network.AWS.EC2.CreateInstanceExportTask     (     -- * Creating a Request@@ -120,7 +120,7 @@           = mconcat               ["Action" =:                  ("CreateInstanceExportTask" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "TargetEnvironment" =: _cietTargetEnvironment,                "ExportToS3" =: _cietExportToS3Task,                "Description" =: _cietDescription,

@@ -91,7 +91,7 @@         toQuery CreateInternetGateway'{..}           = mconcat               ["Action" =: ("CreateInternetGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _cigDryRun]  -- | Contains the output of CreateInternetGateway.

@@ -110,7 +110,7 @@         toQuery CreateKeyPair'{..}           = mconcat               ["Action" =: ("CreateKeyPair" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _ckpDryRun, "KeyName" =: _ckpKeyName]  -- | Describes a key pair.

@@ -112,7 +112,7 @@         toQuery CreateNatGateway'{..}           = mconcat               ["Action" =: ("CreateNatGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ClientToken" =: _cngClientToken,                "SubnetId" =: _cngSubnetId,                "AllocationId" =: _cngAllocationId]

@@ -100,7 +100,7 @@         toQuery CreateNetworkACL'{..}           = mconcat               ["Action" =: ("CreateNetworkAcl" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _cnaDryRun, "VpcId" =: _cnaVPCId]  -- | Contains the output of CreateNetworkAcl.

@@ -128,7 +128,7 @@  -- | The rule number for the entry (for example, 100). ACL entries are processed in ascending order by rule number. ----- Constraints: Positive integer from 1 to 32766+-- Constraints: Positive integer from 1 to 32766. The range 32767 to 65535 is reserved for internal use. cnaeRuleNumber :: Lens' CreateNetworkACLEntry Int cnaeRuleNumber = lens _cnaeRuleNumber (\ s a -> s{_cnaeRuleNumber = a}); @@ -168,7 +168,7 @@         toQuery CreateNetworkACLEntry'{..}           = mconcat               ["Action" =: ("CreateNetworkAclEntry" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Icmp" =: _cnaeICMPTypeCode,                "PortRange" =: _cnaePortRange,                "DryRun" =: _cnaeDryRun,

@@ -149,7 +149,7 @@           = mconcat               ["Action" =:                  ("CreateNetworkInterface" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "SecurityGroupId" <$> _cniGroups),                toQuery

@@ -106,7 +106,7 @@         toQuery CreatePlacementGroup'{..}           = mconcat               ["Action" =: ("CreatePlacementGroup" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _cpgDryRun, "GroupName" =: _cpgGroupName,                "Strategy" =: _cpgStrategy] 

@@ -130,7 +130,7 @@           = mconcat               ["Action" =:                  ("CreateReservedInstancesListing" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ReservedInstancesId" =: _crilReservedInstancesId,                "InstanceCount" =: _crilInstanceCount,                toQueryList "PriceSchedules" _crilPriceSchedules,

@@ -165,7 +165,7 @@         toQuery CreateRoute'{..}           = mconcat               ["Action" =: ("CreateRoute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpcPeeringConnectionId" =:                  _crVPCPeeringConnectionId,                "InstanceId" =: _crInstanceId,

@@ -100,7 +100,7 @@         toQuery CreateRouteTable'{..}           = mconcat               ["Action" =: ("CreateRouteTable" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _crtDryRun, "VpcId" =: _crtVPCId]  -- | Contains the output of CreateRouteTable.

@@ -104,7 +104,7 @@ -- -- Constraints for EC2-Classic: ASCII characters ----- Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:\/()#,\'[]+=&;{}!>*+-- Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:\/()#,\'[]+=&;{}!>* csgGroupName :: Lens' CreateSecurityGroup Text csgGroupName = lens _csgGroupName (\ s a -> s{_csgGroupName = a}); @@ -114,7 +114,7 @@ -- -- Constraints for EC2-Classic: ASCII characters ----- Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:\/()#,\'[]+=&;{}!>*+-- Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:\/()#,\'[]+=&;{}!>* csgDescription :: Lens' CreateSecurityGroup Text csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a}); @@ -142,7 +142,7 @@         toQuery CreateSecurityGroup'{..}           = mconcat               ["Action" =: ("CreateSecurityGroup" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpcId" =: _csgVPCId, "DryRun" =: _csgDryRun,                "GroupName" =: _csgGroupName,                "GroupDescription" =: _csgDescription]

@@ -125,6 +125,6 @@         toQuery CreateSnapshot'{..}           = mconcat               ["Action" =: ("CreateSnapshot" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Description" =: _ccDescription,                "DryRun" =: _ccDryRun, "VolumeId" =: _ccVolumeId]

@@ -112,7 +112,7 @@           = mconcat               ["Action" =:                  ("CreateSpotDatafeedSubscription" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Prefix" =: _csdsPrefix, "DryRun" =: _csdsDryRun,                "Bucket" =: _csdsBucket] 

@@ -129,7 +129,7 @@         toQuery CreateSubnet'{..}           = mconcat               ["Action" =: ("CreateSubnet" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "AvailabilityZone" =: _cssAvailabilityZone,                "DryRun" =: _cssDryRun, "VpcId" =: _cssVPCId,                "CidrBlock" =: _cssCIdRBlock]

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Adds or overwrites one or more tags for the specified Amazon EC2 resource or resources. Each resource can have a maximum of 10 tags. Each tag consists of a key and optional value. Tag keys must be unique per resource.+-- Adds or overwrites one or more tags for the specified Amazon EC2 resource or resources. Each resource can have a maximum of 50 tags. Each tag consists of a key and optional value. Tag keys must be unique per resource. -- -- For more information about tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Resources> in the /Amazon Elastic Compute Cloud User Guide/. For more information about creating IAM policies that control users\' access to resources based on tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-supported-iam-actions-resources.html Supported Resource-Level Permissions for Amazon EC2 API Actions> in the /Amazon Elastic Compute Cloud User Guide/. module Network.AWS.EC2.CreateTags@@ -101,7 +101,7 @@         toQuery CreateTags'{..}           = mconcat               ["Action" =: ("CreateTags" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _cDryRun,                toQueryList "ResourceId" _cResources,                toQueryList "Tag" _cTags]

@@ -117,7 +117,7 @@         toQuery CreateVPC'{..}           = mconcat               ["Action" =: ("CreateVpc" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "InstanceTenancy" =: _cvInstanceTenancy,                "DryRun" =: _cvDryRun, "CidrBlock" =: _cvCIdRBlock] 

@@ -111,7 +111,7 @@ cveVPCId :: Lens' CreateVPCEndpoint Text cveVPCId = lens _cveVPCId (\ s a -> s{_cveVPCId = a}); --- | The AWS service name, in the form 'com.amazonaws.region.service'. To get a list of available services, use the < DescribeVpcEndpointServices> request.+-- | The AWS service name, in the form 'com.amazonaws.region.service '. To get a list of available services, use the < DescribeVpcEndpointServices> request. cveServiceName :: Lens' CreateVPCEndpoint Text cveServiceName = lens _cveServiceName (\ s a -> s{_cveServiceName = a}); @@ -139,7 +139,7 @@         toQuery CreateVPCEndpoint'{..}           = mconcat               ["Action" =: ("CreateVpcEndpoint" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "PolicyDocument" =: _cvePolicyDocument,                "ClientToken" =: _cveClientToken,                "DryRun" =: _cveDryRun,

@@ -124,7 +124,7 @@           = mconcat               ["Action" =:                  ("CreateVpcPeeringConnection" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "PeerVpcId" =: _cvpcPeerVPCId, "VpcId" =: _cvpcVPCId,                "PeerOwnerId" =: _cvpcPeerOwnerId,                "DryRun" =: _cvpcDryRun]

@@ -140,7 +140,7 @@         toQuery CreateVPNConnection'{..}           = mconcat               ["Action" =: ("CreateVpnConnection" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Options" =: _cvcOptions, "DryRun" =: _cvcDryRun,                "Type" =: _cvcType,                "CustomerGatewayId" =: _cvcCustomerGatewayId,

@@ -97,7 +97,7 @@           = mconcat               ["Action" =:                  ("CreateVpnConnectionRoute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpnConnectionId" =: _cvcrVPNConnectionId,                "DestinationCidrBlock" =: _cvcrDestinationCIdRBlock] 

@@ -109,7 +109,7 @@         toQuery CreateVPNGateway'{..}           = mconcat               ["Action" =: ("CreateVpnGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "AvailabilityZone" =: _cvgAvailabilityZone,                "DryRun" =: _cvgDryRun, "Type" =: _cvgType] 

@@ -172,7 +172,7 @@         toQuery CreateVolume'{..}           = mconcat               ["Action" =: ("CreateVolume" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Size" =: _creSize, "Iops" =: _creIOPS,                "Encrypted" =: _creEncrypted,                "KmsKeyId" =: _creKMSKeyId,

@@ -92,7 +92,7 @@         toQuery DeleteCustomerGateway'{..}           = mconcat               ["Action" =: ("DeleteCustomerGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dcgcDryRun,                "CustomerGatewayId" =: _dcgcCustomerGatewayId] 

@@ -91,7 +91,7 @@         toQuery DeleteDHCPOptions'{..}           = mconcat               ["Action" =: ("DeleteDhcpOptions" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _ddhcpoDryRun,                "DhcpOptionsId" =: _ddhcpoDHCPOptionsId] 

@@ -90,7 +90,7 @@         toQuery DeleteFlowLogs'{..}           = mconcat               ["Action" =: ("DeleteFlowLogs" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQueryList "FlowLogId" _dflFlowLogIds]  -- | Contains the output of DeleteFlowLogs.

@@ -92,7 +92,7 @@         toQuery DeleteInternetGateway'{..}           = mconcat               ["Action" =: ("DeleteInternetGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _digiDryRun,                "InternetGatewayId" =: _digiInternetGatewayId] 

@@ -91,7 +91,7 @@         toQuery DeleteKeyPair'{..}           = mconcat               ["Action" =: ("DeleteKeyPair" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dkpDryRun, "KeyName" =: _dkpKeyName]  -- | /See:/ 'deleteKeyPairResponse' smart constructor.

@@ -89,7 +89,7 @@         toQuery DeleteNatGateway'{..}           = mconcat               ["Action" =: ("DeleteNatGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NatGatewayId" =: _dngNatGatewayId]  -- | Contains the output of DeleteNatGateway.

@@ -91,7 +91,7 @@         toQuery DeleteNetworkACL'{..}           = mconcat               ["Action" =: ("DeleteNetworkAcl" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dnaDryRun,                "NetworkAclId" =: _dnaNetworkACLId] 

@@ -112,7 +112,7 @@         toQuery DeleteNetworkACLEntry'{..}           = mconcat               ["Action" =: ("DeleteNetworkAclEntry" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dnaeDryRun,                "NetworkAclId" =: _dnaeNetworkACLId,                "RuleNumber" =: _dnaeRuleNumber,

@@ -94,7 +94,7 @@           = mconcat               ["Action" =:                  ("DeleteNetworkInterface" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dninDryRun,                "NetworkInterfaceId" =: _dninNetworkInterfaceId] 

@@ -92,7 +92,7 @@         toQuery DeletePlacementGroup'{..}           = mconcat               ["Action" =: ("DeletePlacementGroup" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dpgDryRun, "GroupName" =: _dpgGroupName]  -- | /See:/ 'deletePlacementGroupResponse' smart constructor.

@@ -101,7 +101,7 @@         toQuery DeleteRoute'{..}           = mconcat               ["Action" =: ("DeleteRoute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _drDryRun,                "RouteTableId" =: _drRouteTableId,                "DestinationCidrBlock" =: _drDestinationCIdRBlock]

@@ -91,7 +91,7 @@         toQuery DeleteRouteTable'{..}           = mconcat               ["Action" =: ("DeleteRouteTable" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _drtrDryRun,                "RouteTableId" =: _drtrRouteTableId] 

@@ -102,7 +102,7 @@         toQuery DeleteSecurityGroup'{..}           = mconcat               ["Action" =: ("DeleteSecurityGroup" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "GroupId" =: _dsgGroupId,                "GroupName" =: _dsgGroupName, "DryRun" =: _dsgDryRun] 

@@ -97,7 +97,7 @@         toQuery DeleteSnapshot'{..}           = mconcat               ["Action" =: ("DeleteSnapshot" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _deleDryRun,                "SnapshotId" =: _deleSnapshotId] 

@@ -86,7 +86,7 @@           = mconcat               ["Action" =:                  ("DeleteSpotDatafeedSubscription" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dsdssDryRun]  -- | /See:/ 'deleteSpotDatafeedSubscriptionResponse' smart constructor.

@@ -91,7 +91,7 @@         toQuery DeleteSubnet'{..}           = mconcat               ["Action" =: ("DeleteSubnet" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _ddDryRun, "SubnetId" =: _ddSubnetId]  -- | /See:/ 'deleteSubnetResponse' smart constructor.

@@ -101,7 +101,7 @@         toQuery DeleteTags'{..}           = mconcat               ["Action" =: ("DeleteTags" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dtsDryRun,                toQuery (toQueryList "Tag" <$> _dtsTags),                toQueryList "ResourceId" _dtsResources]

@@ -91,7 +91,7 @@         toQuery DeleteVPC'{..}           = mconcat               ["Action" =: ("DeleteVpc" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _delDryRun, "VpcId" =: _delVPCId]  -- | /See:/ 'deleteVPCResponse' smart constructor.

@@ -100,7 +100,7 @@         toQuery DeleteVPCEndpoints'{..}           = mconcat               ["Action" =: ("DeleteVpcEndpoints" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dveDryRun,                toQueryList "VpcEndpointId" _dveVPCEndpointIds] 

@@ -100,7 +100,7 @@           = mconcat               ["Action" =:                  ("DeleteVpcPeeringConnection" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dvpcDryRun,                "VpcPeeringConnectionId" =:                  _dvpcVPCPeeringConnectionId]

@@ -94,7 +94,7 @@         toQuery DeleteVPNConnection'{..}           = mconcat               ["Action" =: ("DeleteVpnConnection" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dvcDryRun,                "VpnConnectionId" =: _dvcVPNConnectionId] 

@@ -95,7 +95,7 @@           = mconcat               ["Action" =:                  ("DeleteVpnConnectionRoute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpnConnectionId" =: _dvcrVPNConnectionId,                "DestinationCidrBlock" =: _dvcrDestinationCIdRBlock] 

@@ -91,7 +91,7 @@         toQuery DeleteVPNGateway'{..}           = mconcat               ["Action" =: ("DeleteVpnGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dvgDryRun,                "VpnGatewayId" =: _dvgVPNGatewayId] 

@@ -95,7 +95,7 @@         toQuery DeleteVolume'{..}           = mconcat               ["Action" =: ("DeleteVolume" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dvvDryRun, "VolumeId" =: _dvvVolumeId]  -- | /See:/ 'deleteVolumeResponse' smart constructor.

@@ -93,7 +93,7 @@         toQuery DeregisterImage'{..}           = mconcat               ["Action" =: ("DeregisterImage" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _diDryRun, "ImageId" =: _diImageId]  -- | /See:/ 'deregisterImageResponse' smart constructor.

@@ -114,7 +114,7 @@           = mconcat               ["Action" =:                  ("DescribeAccountAttributes" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "AttributeName" <$> _daaAttributeNames),                "DryRun" =: _daaDryRun]

@@ -140,7 +140,7 @@         toQuery DescribeAddresses'{..}           = mconcat               ["Action" =: ("DescribeAddresses" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _daFilters),                toQuery (toQueryList "PublicIp" <$> _daPublicIPs),                toQuery

@@ -121,7 +121,7 @@           = mconcat               ["Action" =:                  ("DescribeAvailabilityZones" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "ZoneName" <$> _dazZoneNames),                toQuery (toQueryList "Filter" <$> _dazFilters),                "DryRun" =: _dazDryRun]

@@ -134,7 +134,7 @@         toQuery DescribeBundleTasks'{..}           = mconcat               ["Action" =: ("DescribeBundleTasks" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "BundleId" <$> _dbtBundleIds),                toQuery (toQueryList "Filter" <$> _dbtFilters),                "DryRun" =: _dbtDryRun]

@@ -146,7 +146,7 @@           = mconcat               ["Action" =:                  ("DescribeClassicLinkInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dcliFilters),                "NextToken" =: _dcliNextToken,                toQuery

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes one or more of your conversion tasks. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/UploadingYourInstancesandVolumes.html Using the Command Line Tools to Import Your Virtual Machine to Amazon EC2> in the /Amazon Elastic Compute Cloud User Guide/.+-- Describes one or more of your conversion tasks. For more information, see the <http://docs.aws.amazon.com/vm-import/latest/userguide/ VM Import\/Export User Guide>. -- -- For information about the import manifest referenced by this API action, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/manifest.html VM Import Manifest>. module Network.AWS.EC2.DescribeConversionTasks@@ -112,7 +112,7 @@           = mconcat               ["Action" =:                  ("DescribeConversionTasks" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dctFilters),                toQuery                  (toQueryList "ConversionTaskId" <$>

@@ -131,7 +131,7 @@           = mconcat               ["Action" =:                  ("DescribeCustomerGateways" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "CustomerGatewayId" <$>                     _dcgCustomerGatewayIds),

@@ -126,7 +126,7 @@         toQuery DescribeDHCPOptions'{..}           = mconcat               ["Action" =: ("DescribeDhcpOptions" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _ddoFilters),                toQuery                  (toQueryList "DhcpOptionsId" <$> _ddoDHCPOptionsIds),

@@ -91,7 +91,7 @@         toQuery DescribeExportTasks'{..}           = mconcat               ["Action" =: ("DescribeExportTasks" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "ExportTaskId" <$> _detExportTaskIds)] 

@@ -130,7 +130,7 @@         toQuery DescribeFlowLogs'{..}           = mconcat               ["Action" =: ("DescribeFlowLogs" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NextToken" =: _dNextToken,                toQuery (toQueryList "FlowLogId" <$> _dFlowLogIds),                toQuery (toQueryList "Filter" <$> _dFilter),

@@ -0,0 +1,198 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.DescribeHostReservationOfferings+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the Dedicated Host Reservations that are available to purchase.+--+-- The results describe all the Dedicated Host Reservation offerings, including offerings that may not match the instance family and region of your Dedicated Hosts. When purchasing an offering, ensure that the the instance family and region of the offering matches that of the Dedicated Host\/s it will be associated with. For an overview of supported instance types, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/dedicated-hosts-overview.html Dedicated Hosts Overview> in the /Amazon Elastic Compute Cloud User Guide/.+module Network.AWS.EC2.DescribeHostReservationOfferings+    (+    -- * Creating a Request+      describeHostReservationOfferings+    , DescribeHostReservationOfferings+    -- * Request Lenses+    , dhroMaxDuration+    , dhroNextToken+    , dhroMinDuration+    , dhroOfferingId+    , dhroFilter+    , dhroMaxResults++    -- * Destructuring the Response+    , describeHostReservationOfferingsResponse+    , DescribeHostReservationOfferingsResponse+    -- * Response Lenses+    , dhrorsOfferingSet+    , dhrorsNextToken+    , dhrorsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeHostReservationOfferings' smart constructor.+data DescribeHostReservationOfferings = DescribeHostReservationOfferings'+    { _dhroMaxDuration :: !(Maybe Int)+    , _dhroNextToken   :: !(Maybe Text)+    , _dhroMinDuration :: !(Maybe Int)+    , _dhroOfferingId  :: !(Maybe Text)+    , _dhroFilter      :: !(Maybe [Filter])+    , _dhroMaxResults  :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeHostReservationOfferings' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dhroMaxDuration'+--+-- * 'dhroNextToken'+--+-- * 'dhroMinDuration'+--+-- * 'dhroOfferingId'+--+-- * 'dhroFilter'+--+-- * 'dhroMaxResults'+describeHostReservationOfferings+    :: DescribeHostReservationOfferings+describeHostReservationOfferings =+    DescribeHostReservationOfferings'+    { _dhroMaxDuration = Nothing+    , _dhroNextToken = Nothing+    , _dhroMinDuration = Nothing+    , _dhroOfferingId = Nothing+    , _dhroFilter = Nothing+    , _dhroMaxResults = Nothing+    }++-- | This is the maximum duration of the reservation you\'d like to purchase, specified in seconds. Reservations are available in one-year and three-year terms. The number of seconds specified must be the number of seconds in a year (365x24x60x60) times one of the supported durations (1 or 3). For example, specify 94608000 for three years.+dhroMaxDuration :: Lens' DescribeHostReservationOfferings (Maybe Int)+dhroMaxDuration = lens _dhroMaxDuration (\ s a -> s{_dhroMaxDuration = a});++-- | The token to use to retrieve the next page of results.+dhroNextToken :: Lens' DescribeHostReservationOfferings (Maybe Text)+dhroNextToken = lens _dhroNextToken (\ s a -> s{_dhroNextToken = a});++-- | This is the minimum duration of the reservation you\'d like to purchase, specified in seconds. Reservations are available in one-year and three-year terms. The number of seconds specified must be the number of seconds in a year (365x24x60x60) times one of the supported durations (1 or 3). For example, specify 31536000 for one year.+dhroMinDuration :: Lens' DescribeHostReservationOfferings (Maybe Int)+dhroMinDuration = lens _dhroMinDuration (\ s a -> s{_dhroMinDuration = a});++-- | The ID of the reservation offering.+dhroOfferingId :: Lens' DescribeHostReservationOfferings (Maybe Text)+dhroOfferingId = lens _dhroOfferingId (\ s a -> s{_dhroOfferingId = a});++-- | One or more filters.+--+-- -   'instance-family' - The instance family of the offering (e.g., 'm4').+--+-- -   'payment-option' - The payment option ('No Upfront' | 'Partial Upfront' | 'All Upfront').+--+dhroFilter :: Lens' DescribeHostReservationOfferings [Filter]+dhroFilter = lens _dhroFilter (\ s a -> s{_dhroFilter = 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 500; if 'maxResults' is given a larger value than 500, you will receive an error.+dhroMaxResults :: Lens' DescribeHostReservationOfferings (Maybe Int)+dhroMaxResults = lens _dhroMaxResults (\ s a -> s{_dhroMaxResults = a});++instance AWSRequest DescribeHostReservationOfferings+         where+        type Rs DescribeHostReservationOfferings =+             DescribeHostReservationOfferingsResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 DescribeHostReservationOfferingsResponse' <$>+                   (x .@? "offeringSet" .!@ mempty >>=+                      may (parseXMLList "member"))+                     <*> (x .@? "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeHostReservationOfferings++instance NFData DescribeHostReservationOfferings++instance ToHeaders DescribeHostReservationOfferings+         where+        toHeaders = const mempty++instance ToPath DescribeHostReservationOfferings+         where+        toPath = const "/"++instance ToQuery DescribeHostReservationOfferings+         where+        toQuery DescribeHostReservationOfferings'{..}+          = mconcat+              ["Action" =:+                 ("DescribeHostReservationOfferings" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "MaxDuration" =: _dhroMaxDuration,+               "NextToken" =: _dhroNextToken,+               "MinDuration" =: _dhroMinDuration,+               "OfferingId" =: _dhroOfferingId,+               toQuery (toQueryList "Filter" <$> _dhroFilter),+               "MaxResults" =: _dhroMaxResults]++-- | /See:/ 'describeHostReservationOfferingsResponse' smart constructor.+data DescribeHostReservationOfferingsResponse = DescribeHostReservationOfferingsResponse'+    { _dhrorsOfferingSet    :: !(Maybe [HostOffering])+    , _dhrorsNextToken      :: !(Maybe Text)+    , _dhrorsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeHostReservationOfferingsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dhrorsOfferingSet'+--+-- * 'dhrorsNextToken'+--+-- * 'dhrorsResponseStatus'+describeHostReservationOfferingsResponse+    :: Int -- ^ 'dhrorsResponseStatus'+    -> DescribeHostReservationOfferingsResponse+describeHostReservationOfferingsResponse pResponseStatus_ =+    DescribeHostReservationOfferingsResponse'+    { _dhrorsOfferingSet = Nothing+    , _dhrorsNextToken = Nothing+    , _dhrorsResponseStatus = pResponseStatus_+    }++-- | Information about the offerings.+dhrorsOfferingSet :: Lens' DescribeHostReservationOfferingsResponse [HostOffering]+dhrorsOfferingSet = lens _dhrorsOfferingSet (\ s a -> s{_dhrorsOfferingSet = a}) . _Default . _Coerce;++-- | The token to use to retrieve the next page of results. This value is 'null' when there are no more results to return.+dhrorsNextToken :: Lens' DescribeHostReservationOfferingsResponse (Maybe Text)+dhrorsNextToken = lens _dhrorsNextToken (\ s a -> s{_dhrorsNextToken = a});++-- | The response status code.+dhrorsResponseStatus :: Lens' DescribeHostReservationOfferingsResponse Int+dhrorsResponseStatus = lens _dhrorsResponseStatus (\ s a -> s{_dhrorsResponseStatus = a});++instance NFData+         DescribeHostReservationOfferingsResponse

@@ -0,0 +1,175 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.DescribeHostReservations+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes Dedicated Host Reservations which are associated with Dedicated Hosts in your account.+module Network.AWS.EC2.DescribeHostReservations+    (+    -- * Creating a Request+      describeHostReservations+    , DescribeHostReservations+    -- * Request Lenses+    , dhrNextToken+    , dhrHostReservationIdSet+    , dhrFilter+    , dhrMaxResults++    -- * Destructuring the Response+    , describeHostReservationsResponse+    , DescribeHostReservationsResponse+    -- * Response Lenses+    , dhrrsNextToken+    , dhrrsHostReservationSet+    , dhrrsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeHostReservations' smart constructor.+data DescribeHostReservations = DescribeHostReservations'+    { _dhrNextToken            :: !(Maybe Text)+    , _dhrHostReservationIdSet :: !(Maybe [Text])+    , _dhrFilter               :: !(Maybe [Filter])+    , _dhrMaxResults           :: !(Maybe Int)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeHostReservations' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dhrNextToken'+--+-- * 'dhrHostReservationIdSet'+--+-- * 'dhrFilter'+--+-- * 'dhrMaxResults'+describeHostReservations+    :: DescribeHostReservations+describeHostReservations =+    DescribeHostReservations'+    { _dhrNextToken = Nothing+    , _dhrHostReservationIdSet = Nothing+    , _dhrFilter = Nothing+    , _dhrMaxResults = Nothing+    }++-- | The token to use to retrieve the next page of results.+dhrNextToken :: Lens' DescribeHostReservations (Maybe Text)+dhrNextToken = lens _dhrNextToken (\ s a -> s{_dhrNextToken = a});++-- | One or more host reservation IDs.+dhrHostReservationIdSet :: Lens' DescribeHostReservations [Text]+dhrHostReservationIdSet = lens _dhrHostReservationIdSet (\ s a -> s{_dhrHostReservationIdSet = a}) . _Default . _Coerce;++-- | One or more filters.+--+-- -   'instance-family' - The instance family (e.g., 'm4').+--+-- -   'payment-option' - The payment option ('No Upfront' | 'Partial Upfront' | 'All Upfront').+--+-- -   'state' - The state of the reservation ('payment-pending' | 'payment-failed' | 'active' | 'retired').+--+dhrFilter :: Lens' DescribeHostReservations [Filter]+dhrFilter = lens _dhrFilter (\ s a -> s{_dhrFilter = 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 500; if 'maxResults' is given a larger value than 500, you will receive an error.+dhrMaxResults :: Lens' DescribeHostReservations (Maybe Int)+dhrMaxResults = lens _dhrMaxResults (\ s a -> s{_dhrMaxResults = a});++instance AWSRequest DescribeHostReservations where+        type Rs DescribeHostReservations =+             DescribeHostReservationsResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 DescribeHostReservationsResponse' <$>+                   (x .@? "nextToken") <*>+                     (x .@? "hostReservationSet" .!@ mempty >>=+                        may (parseXMLList "member"))+                     <*> (pure (fromEnum s)))++instance Hashable DescribeHostReservations++instance NFData DescribeHostReservations++instance ToHeaders DescribeHostReservations where+        toHeaders = const mempty++instance ToPath DescribeHostReservations where+        toPath = const "/"++instance ToQuery DescribeHostReservations where+        toQuery DescribeHostReservations'{..}+          = mconcat+              ["Action" =:+                 ("DescribeHostReservations" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "NextToken" =: _dhrNextToken,+               toQuery+                 (toQueryList "HostReservationIdSet" <$>+                    _dhrHostReservationIdSet),+               toQuery (toQueryList "Filter" <$> _dhrFilter),+               "MaxResults" =: _dhrMaxResults]++-- | /See:/ 'describeHostReservationsResponse' smart constructor.+data DescribeHostReservationsResponse = DescribeHostReservationsResponse'+    { _dhrrsNextToken          :: !(Maybe Text)+    , _dhrrsHostReservationSet :: !(Maybe [HostReservation])+    , _dhrrsResponseStatus     :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeHostReservationsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dhrrsNextToken'+--+-- * 'dhrrsHostReservationSet'+--+-- * 'dhrrsResponseStatus'+describeHostReservationsResponse+    :: Int -- ^ 'dhrrsResponseStatus'+    -> DescribeHostReservationsResponse+describeHostReservationsResponse pResponseStatus_ =+    DescribeHostReservationsResponse'+    { _dhrrsNextToken = Nothing+    , _dhrrsHostReservationSet = Nothing+    , _dhrrsResponseStatus = pResponseStatus_+    }++-- | The token to use to retrieve the next page of results. This value is 'null' when there are no more results to return.+dhrrsNextToken :: Lens' DescribeHostReservationsResponse (Maybe Text)+dhrrsNextToken = lens _dhrrsNextToken (\ s a -> s{_dhrrsNextToken = a});++-- | Details about the reservation\'s configuration.+dhrrsHostReservationSet :: Lens' DescribeHostReservationsResponse [HostReservation]+dhrrsHostReservationSet = lens _dhrrsHostReservationSet (\ s a -> s{_dhrrsHostReservationSet = a}) . _Default . _Coerce;++-- | The response status code.+dhrrsResponseStatus :: Lens' DescribeHostReservationsResponse Int+dhrrsResponseStatus = lens _dhrrsResponseStatus (\ s a -> s{_dhrrsResponseStatus = a});++instance NFData DescribeHostReservationsResponse

@@ -18,9 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Describes one or more of your Dedicated hosts.+-- Describes one or more of your Dedicated Hosts. ----- The results describe only the Dedicated hosts in the region you\'re currently using. All listed instances consume capacity on your Dedicated host. Dedicated hosts that have recently been released will be listed with the state 'released'.+-- The results describe only the Dedicated Hosts in the region you\'re currently using. All listed instances consume capacity on your Dedicated Host. Dedicated Hosts that have recently been released will be listed with the state 'released'. module Network.AWS.EC2.DescribeHosts     (     -- * Creating a Request@@ -85,22 +85,22 @@  -- | One or more filters. ----- -   'instance-type' - The instance type size that the Dedicated host is configured to support.+-- -   'instance-type' - The instance type size that the Dedicated Host is configured to support. -- -- -   'auto-placement' - Whether auto-placement is enabled or disabled ('on' | 'off'). ----- -   'host-reservation-id' - The ID of the reservation associated with this host.+-- -   'host-reservation-id' - The ID of the reservation assigned to this host. -- -- -   'client-token' - The idempotency token you provided when you launched the instance ----- -   'state'- The allocation state of the Dedicated host ('available' | 'under-assessment' | 'permanent-failure' | 'released' | 'released-permanent-failure').+-- -   'state'- The allocation state of the Dedicated Host ('available' | 'under-assessment' | 'permanent-failure' | 'released' | 'released-permanent-failure'). -- -- -   'availability-zone' - The Availability Zone of the host. -- dhFilter :: Lens' DescribeHosts [Filter] dhFilter = lens _dhFilter (\ s a -> s{_dhFilter = a}) . _Default . _Coerce; --- | The IDs of the Dedicated hosts. The IDs are used for targeted instance launches.+-- | The IDs of the Dedicated Hosts. The IDs are used for targeted instance launches. dhHostIds :: Lens' DescribeHosts [Text] dhHostIds = lens _dhHostIds (\ s a -> s{_dhHostIds = a}) . _Default . _Coerce; @@ -134,7 +134,7 @@         toQuery DescribeHosts'{..}           = mconcat               ["Action" =: ("DescribeHosts" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NextToken" =: _dhNextToken,                toQuery (toQueryList "Filter" <$> _dhFilter),                toQuery (toQueryList "HostId" <$> _dhHostIds),@@ -168,7 +168,7 @@     , _dhrsResponseStatus = pResponseStatus_     } --- | Information about the Dedicated hosts.+-- | Information about the Dedicated Hosts. dhrsHosts :: Lens' DescribeHostsResponse [Host] dhrsHosts = lens _dhrsHosts (\ s a -> s{_dhrsHosts = a}) . _Default . _Coerce; 

@@ -65,7 +65,7 @@     { _difResource = Nothing     } --- | The type of resource.+-- | The type of resource: 'instance' | 'reservation' | 'snapshot' | 'volume' difResource :: Lens' DescribeIdFormat (Maybe Text) difResource = lens _difResource (\ s a -> s{_difResource = a}); @@ -94,7 +94,7 @@         toQuery DescribeIdFormat'{..}           = mconcat               ["Action" =: ("DescribeIdFormat" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Resource" =: _difResource]  -- | Contains the output of DescribeIdFormat.

@@ -0,0 +1,145 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.DescribeIdentityIdFormat+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Describes the ID format settings for resources for the specified IAM user, IAM role, or root user. For example, you can view the resource types that are enabled for longer IDs. This request only returns information about resource types whose ID formats can be modified; it does not return information about other resource types. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/resource-ids.html Resource IDs> in the /Amazon Elastic Compute Cloud User Guide/.+--+-- The following resource types support longer IDs: 'instance' | 'reservation' | 'snapshot' | 'volume'.+--+-- These settings apply to the principal specified in the request. They do not apply to the principal that makes the request.+module Network.AWS.EC2.DescribeIdentityIdFormat+    (+    -- * Creating a Request+      describeIdentityIdFormat+    , DescribeIdentityIdFormat+    -- * Request Lenses+    , diifResource+    , diifPrincipalARN++    -- * Destructuring the Response+    , describeIdentityIdFormatResponse+    , DescribeIdentityIdFormatResponse+    -- * Response Lenses+    , diifrsStatuses+    , diifrsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Contains the parameters for DescribeIdentityIdFormat.+--+-- /See:/ 'describeIdentityIdFormat' smart constructor.+data DescribeIdentityIdFormat = DescribeIdentityIdFormat'+    { _diifResource     :: !(Maybe Text)+    , _diifPrincipalARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeIdentityIdFormat' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diifResource'+--+-- * 'diifPrincipalARN'+describeIdentityIdFormat+    :: Text -- ^ 'diifPrincipalARN'+    -> DescribeIdentityIdFormat+describeIdentityIdFormat pPrincipalARN_ =+    DescribeIdentityIdFormat'+    { _diifResource = Nothing+    , _diifPrincipalARN = pPrincipalARN_+    }++-- | The type of resource: 'instance' | 'reservation' | 'snapshot' | 'volume'+diifResource :: Lens' DescribeIdentityIdFormat (Maybe Text)+diifResource = lens _diifResource (\ s a -> s{_diifResource = a});++-- | The ARN of the principal, which can be an IAM role, IAM user, or the root user.+diifPrincipalARN :: Lens' DescribeIdentityIdFormat Text+diifPrincipalARN = lens _diifPrincipalARN (\ s a -> s{_diifPrincipalARN = a});++instance AWSRequest DescribeIdentityIdFormat where+        type Rs DescribeIdentityIdFormat =+             DescribeIdentityIdFormatResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 DescribeIdentityIdFormatResponse' <$>+                   (x .@? "statusSet" .!@ mempty >>=+                      may (parseXMLList "item"))+                     <*> (pure (fromEnum s)))++instance Hashable DescribeIdentityIdFormat++instance NFData DescribeIdentityIdFormat++instance ToHeaders DescribeIdentityIdFormat where+        toHeaders = const mempty++instance ToPath DescribeIdentityIdFormat where+        toPath = const "/"++instance ToQuery DescribeIdentityIdFormat where+        toQuery DescribeIdentityIdFormat'{..}+          = mconcat+              ["Action" =:+                 ("DescribeIdentityIdFormat" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "Resource" =: _diifResource,+               "PrincipalArn" =: _diifPrincipalARN]++-- | Contains the output of DescribeIdentityIdFormat.+--+-- /See:/ 'describeIdentityIdFormatResponse' smart constructor.+data DescribeIdentityIdFormatResponse = DescribeIdentityIdFormatResponse'+    { _diifrsStatuses       :: !(Maybe [IdFormat])+    , _diifrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeIdentityIdFormatResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'diifrsStatuses'+--+-- * 'diifrsResponseStatus'+describeIdentityIdFormatResponse+    :: Int -- ^ 'diifrsResponseStatus'+    -> DescribeIdentityIdFormatResponse+describeIdentityIdFormatResponse pResponseStatus_ =+    DescribeIdentityIdFormatResponse'+    { _diifrsStatuses = Nothing+    , _diifrsResponseStatus = pResponseStatus_+    }++-- | Information about the ID format for the resources.+diifrsStatuses :: Lens' DescribeIdentityIdFormatResponse [IdFormat]+diifrsStatuses = lens _diifrsStatuses (\ s a -> s{_diifrsStatuses = a}) . _Default . _Coerce;++-- | The response status code.+diifrsResponseStatus :: Lens' DescribeIdentityIdFormatResponse Int+diifrsResponseStatus = lens _diifrsResponseStatus (\ s a -> s{_diifrsResponseStatus = a});++instance NFData DescribeIdentityIdFormatResponse

@@ -132,7 +132,7 @@           = mconcat               ["Action" =:                  ("DescribeImageAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _diaiDryRun, "ImageId" =: _diaiImageId,                "Attribute" =: _diaiAttribute] @@ -200,7 +200,7 @@ diarsKernelId :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue) diarsKernelId = lens _diarsKernelId (\ s a -> s{_diarsKernelId = a}); --- | Undocumented member.+-- | Indicates whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. diarsSRIOVNetSupport :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue) diarsSRIOVNetSupport = lens _diarsSRIOVNetSupport (\ s a -> s{_diarsSRIOVNetSupport = a}); 

@@ -83,7 +83,7 @@     , _deseDryRun = Nothing     } --- | Filters the images by the owner. Specify an AWS account ID, 'amazon' (owner is Amazon), 'aws-marketplace' (owner is AWS Marketplace), 'self' (owner is the sender of the request). Omitting this option returns all images for which you have launch permissions, regardless of ownership.+-- | Filters the images by the owner. Specify an AWS account ID, 'self' (owner is the sender of the request), or an AWS owner alias (valid values are 'amazon' | 'aws-marketplace' | 'microsoft'). Omitting this option returns all images for which you have launch permissions, regardless of ownership. deseOwners :: Lens' DescribeImages [Text] deseOwners = lens _deseOwners (\ s a -> s{_deseOwners = a}) . _Default . _Coerce; @@ -121,7 +121,7 @@ -- -- -   'name' - The name of the AMI (provided during image creation). ----- -   'owner-alias' - The AWS account alias (for example, 'amazon').+-- -   'owner-alias' - String value from an Amazon-maintained list ('amazon' | 'aws-marketplace' | 'microsoft') of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. -- -- -   'owner-id' - The AWS account ID of the image owner. --@@ -189,7 +189,7 @@         toQuery DescribeImages'{..}           = mconcat               ["Action" =: ("DescribeImages" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Owner" <$> _deseOwners),                toQuery                  (toQueryList "ExecutableBy" <$>

@@ -130,7 +130,7 @@           = mconcat               ["Action" =:                  ("DescribeImportImageTasks" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filters" <$> _diitFilters),                toQuery                  (toQueryList "ImportTaskId" <$> _diitImportTaskIds),

@@ -130,7 +130,7 @@           = mconcat               ["Action" =:                  ("DescribeImportSnapshotTasks" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filters" <$> _distFilters),                toQuery                  (toQueryList "ImportTaskId" <$> _distImportTaskIds),

@@ -35,6 +35,7 @@     -- * Response Lenses     , drsInstanceId     , drsGroups+    , drsEnaSupport     , drsSourceDestCheck     , drsDisableAPITermination     , drsRAMDiskId@@ -95,6 +96,8 @@ diaInstanceId = lens _diaInstanceId (\ s a -> s{_diaInstanceId = a});  -- | The instance attribute.+--+-- Note: The 'enaSupport' attribute is not supported at this time. diaAttribute :: Lens' DescribeInstanceAttribute InstanceAttributeName diaAttribute = lens _diaAttribute (\ s a -> s{_diaAttribute = a}); @@ -109,6 +112,7 @@                    (x .@? "instanceId") <*>                      (x .@? "groupSet" .!@ mempty >>=                         may (parseXMLList "item"))+                     <*> (x .@? "enaSupport")                      <*> (x .@? "sourceDestCheck")                      <*> (x .@? "disableApiTermination")                      <*> (x .@? "ramdisk")@@ -142,7 +146,7 @@           = mconcat               ["Action" =:                  ("DescribeInstanceAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _diaDryRun,                "InstanceId" =: _diaInstanceId,                "Attribute" =: _diaAttribute]@@ -153,6 +157,7 @@ data DescribeInstanceAttributeResponse = DescribeInstanceAttributeResponse'     { _drsInstanceId                        :: !(Maybe Text)     , _drsGroups                            :: !(Maybe [GroupIdentifier])+    , _drsEnaSupport                        :: !(Maybe AttributeBooleanValue)     , _drsSourceDestCheck                   :: !(Maybe AttributeBooleanValue)     , _drsDisableAPITermination             :: !(Maybe AttributeBooleanValue)     , _drsRAMDiskId                         :: !(Maybe AttributeValue)@@ -176,6 +181,8 @@ -- -- * 'drsGroups' --+-- * 'drsEnaSupport'+-- -- * 'drsSourceDestCheck' -- -- * 'drsDisableAPITermination'@@ -208,6 +215,7 @@     DescribeInstanceAttributeResponse'     { _drsInstanceId = Nothing     , _drsGroups = Nothing+    , _drsEnaSupport = Nothing     , _drsSourceDestCheck = Nothing     , _drsDisableAPITermination = Nothing     , _drsRAMDiskId = Nothing@@ -231,6 +239,10 @@ drsGroups :: Lens' DescribeInstanceAttributeResponse [GroupIdentifier] drsGroups = lens _drsGroups (\ s a -> s{_drsGroups = a}) . _Default . _Coerce; +-- | Indicates whether enhanced networking with ENA is enabled.+drsEnaSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue)+drsEnaSupport = lens _drsEnaSupport (\ s a -> s{_drsEnaSupport = a});+ -- | Indicates whether source\/destination checking is enabled. A value of 'true' means checking is enabled, and 'false' means checking is disabled. This value must be 'false' for a NAT instance to perform NAT. drsSourceDestCheck :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) drsSourceDestCheck = lens _drsSourceDestCheck (\ s a -> s{_drsSourceDestCheck = a});@@ -255,7 +267,7 @@ drsInstanceType :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) drsInstanceType = lens _drsInstanceType (\ s a -> s{_drsInstanceType = a}); --- | Undocumented member.+-- | Indicates whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. drsSRIOVNetSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) drsSRIOVNetSupport = lens _drsSRIOVNetSupport (\ s a -> s{_drsSRIOVNetSupport = a}); @@ -263,7 +275,7 @@ drsEBSOptimized :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) drsEBSOptimized = lens _drsEBSOptimized (\ s a -> s{_drsEBSOptimized = a}); --- | The Base64-encoded MIME user data.+-- | The user data. drsUserData :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) drsUserData = lens _drsUserData (\ s a -> s{_drsUserData = a}); 

@@ -187,7 +187,7 @@           = mconcat               ["Action" =:                  ("DescribeInstanceStatus" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "IncludeAllInstances" =: _disIncludeAllInstances,                toQuery (toQueryList "Filter" <$> _disFilters),                "NextToken" =: _disNextToken,

@@ -24,6 +24,8 @@ -- -- Recently terminated instances might appear in the returned results. This interval is usually less than one hour. --+-- If you describe instances in the rare case where an Availability Zone is experiencing a service disruption and you specify instance IDs that are in the affected zone, or do not specify any instance IDs at all, the call fails. If you describe instances and specify only instance IDs that are in an unaffected zone, the call works normally.+-- -- This operation returns paginated results. module Network.AWS.EC2.DescribeInstances     (@@ -91,7 +93,7 @@  -- | One or more filters. ----- -   'affinity' - The affinity setting for an instance running on a Dedicated host ('default' | 'host').+-- -   'affinity' - The affinity setting for an instance running on a Dedicated Host ('default' | 'host'). -- -- -   'architecture' - The instance architecture ('i386' | 'x86_64'). --@@ -115,7 +117,7 @@ -- -- -   'group-name' - The name of the security group for the instance. EC2-Classic only. ----- -   'host-Id' - The ID of the Dedicated host on which the instance is running, if applicable.+-- -   'host-id' - The ID of the Dedicated Host on which the instance is running, if applicable. -- -- -   'hypervisor' - The hypervisor type of the instance ('ovm' | 'xen'). --@@ -272,7 +274,7 @@ diiDryRun :: Lens' DescribeInstances (Maybe Bool) diiDryRun = lens _diiDryRun (\ s a -> s{_diiDryRun = a}); --- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned 'NextToken' value. This value can be between 5 and 1000. You cannot specify this parameter and the instance IDs parameter in the same call.+-- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned 'NextToken' value. This value can be between 5 and 1000. You cannot specify this parameter and the instance IDs parameter or tag filters in the same call. diiMaxResults :: Lens' DescribeInstances (Maybe Int) diiMaxResults = lens _diiMaxResults (\ s a -> s{_diiMaxResults = a}); @@ -309,7 +311,7 @@         toQuery DescribeInstances'{..}           = mconcat               ["Action" =: ("DescribeInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _diiFilters),                "NextToken" =: _diiNextToken,                toQuery

@@ -125,7 +125,7 @@           = mconcat               ["Action" =:                  ("DescribeInternetGateways" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dFilters),                toQuery                  (toQueryList "InternetGatewayId" <$>

@@ -117,7 +117,7 @@         toQuery DescribeKeyPairs'{..}           = mconcat               ["Action" =: ("DescribeKeyPairs" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dkpsFilters),                toQuery (toQueryList "KeyName" <$> _dkpsKeyNames),                "DryRun" =: _dkpsDryRun]

@@ -135,7 +135,7 @@           = mconcat               ["Action" =:                  ("DescribeMovingAddresses" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dmaFilters),                toQuery (toQueryList "PublicIp" <$> _dmaPublicIPs),                "NextToken" =: _dmaNextToken, "DryRun" =: _dmaDryRun,

@@ -131,7 +131,7 @@         toQuery DescribeNatGateways'{..}           = mconcat               ["Action" =: ("DescribeNatGateways" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "NatGatewayId" <$> _dngNatGatewayIds),                "NextToken" =: _dngNextToken,

@@ -150,7 +150,7 @@         toQuery DescribeNetworkACLs'{..}           = mconcat               ["Action" =: ("DescribeNetworkAcls" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dnaclFilters),                toQuery                  (toQueryList "NetworkAclId" <$> _dnaclNetworkACLIds),

@@ -123,7 +123,7 @@           = mconcat               ["Action" =:                  ("DescribeNetworkInterfaceAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Attribute" =: _dniaAttribute,                "DryRun" =: _dniaDryRun,                "NetworkInterfaceId" =: _dniaNetworkInterfaceId]

@@ -183,7 +183,7 @@           = mconcat               ["Action" =:                  ("DescribeNetworkInterfaces" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "NetworkInterfaceId" <$>                     _dnisNetworkInterfaceIds),

@@ -119,7 +119,7 @@           = mconcat               ["Action" =:                  ("DescribePlacementGroups" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dpgsFilters),                toQuery                  (toQueryList "GroupName" <$> _dpgsGroupNames),

@@ -136,7 +136,7 @@         toQuery DescribePrefixLists'{..}           = mconcat               ["Action" =: ("DescribePrefixLists" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dplFilters),                toQuery                  (toQueryList "PrefixListId" <$> _dplPrefixListIds),

@@ -115,7 +115,7 @@         toQuery DescribeRegions'{..}           = mconcat               ["Action" =: ("DescribeRegions" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "RegionName" <$> _drsRegionNames),                toQuery (toQueryList "Filter" <$> _drsFilters),

@@ -150,7 +150,7 @@           = mconcat               ["Action" =:                  ("DescribeReservedInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _driFilters),                toQuery                  (toQueryList "ReservedInstancesId" <$>

@@ -131,7 +131,7 @@           = mconcat               ["Action" =:                  ("DescribeReservedInstancesListings" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filters" <$> _drilFilters),                "ReservedInstancesId" =: _drilReservedInstancesId,                "ReservedInstancesListingId" =:

@@ -160,7 +160,7 @@               ["Action" =:                  ("DescribeReservedInstancesModifications" ::                     ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _drimFilters),                toQuery                  (toQueryList "ReservedInstancesModificationId" <$>

@@ -258,7 +258,7 @@           = mconcat               ["Action" =:                  ("DescribeReservedInstancesOfferings" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "MaxDuration" =: _drioMaxDuration,                "ProductDescription" =: _drioProductDescription,                toQuery (toQueryList "Filter" <$> _drioFilters),

@@ -150,7 +150,7 @@         toQuery DescribeRouteTables'{..}           = mconcat               ["Action" =: ("DescribeRouteTables" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _drtsFilters),                "DryRun" =: _drtsDryRun,                toQuery

@@ -178,7 +178,7 @@               ["Action" =:                  ("DescribeScheduledInstanceAvailability" ::                     ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "MinSlotDurationInHours" =:                  _dsiaMinSlotDurationInHours,                toQuery (toQueryList "Filter" <$> _dsiaFilters),

@@ -148,7 +148,7 @@           = mconcat               ["Action" =:                  ("DescribeScheduledInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dsiFilters),                "SlotStartTimeRange" =: _dsiSlotStartTimeRange,                "NextToken" =: _dsiNextToken,

@@ -0,0 +1,140 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.DescribeSecurityGroupReferences+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- [EC2-VPC only] Describes the VPCs on the other side of a VPC peering connection that are referencing the security groups you\'ve specified in this request.+module Network.AWS.EC2.DescribeSecurityGroupReferences+    (+    -- * Creating a Request+      describeSecurityGroupReferences+    , DescribeSecurityGroupReferences+    -- * Request Lenses+    , dsgrDryRun+    , dsgrGroupId++    -- * Destructuring the Response+    , describeSecurityGroupReferencesResponse+    , DescribeSecurityGroupReferencesResponse+    -- * Response Lenses+    , dsgrrsSecurityGroupReferenceSet+    , dsgrrsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeSecurityGroupReferences' smart constructor.+data DescribeSecurityGroupReferences = DescribeSecurityGroupReferences'+    { _dsgrDryRun  :: !(Maybe Bool)+    , _dsgrGroupId :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeSecurityGroupReferences' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsgrDryRun'+--+-- * 'dsgrGroupId'+describeSecurityGroupReferences+    :: DescribeSecurityGroupReferences+describeSecurityGroupReferences =+    DescribeSecurityGroupReferences'+    { _dsgrDryRun = Nothing+    , _dsgrGroupId = mempty+    }++-- | Checks whether you have the required permissions for the operation, 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.+dsgrDryRun :: Lens' DescribeSecurityGroupReferences (Maybe Bool)+dsgrDryRun = lens _dsgrDryRun (\ s a -> s{_dsgrDryRun = a});++-- | One or more security group IDs in your account.+dsgrGroupId :: Lens' DescribeSecurityGroupReferences [Text]+dsgrGroupId = lens _dsgrGroupId (\ s a -> s{_dsgrGroupId = a}) . _Coerce;++instance AWSRequest DescribeSecurityGroupReferences+         where+        type Rs DescribeSecurityGroupReferences =+             DescribeSecurityGroupReferencesResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 DescribeSecurityGroupReferencesResponse' <$>+                   (x .@? "securityGroupReferenceSet" .!@ mempty >>=+                      may (parseXMLList "item"))+                     <*> (pure (fromEnum s)))++instance Hashable DescribeSecurityGroupReferences++instance NFData DescribeSecurityGroupReferences++instance ToHeaders DescribeSecurityGroupReferences+         where+        toHeaders = const mempty++instance ToPath DescribeSecurityGroupReferences where+        toPath = const "/"++instance ToQuery DescribeSecurityGroupReferences+         where+        toQuery DescribeSecurityGroupReferences'{..}+          = mconcat+              ["Action" =:+                 ("DescribeSecurityGroupReferences" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "DryRun" =: _dsgrDryRun,+               toQueryList "GroupId" _dsgrGroupId]++-- | /See:/ 'describeSecurityGroupReferencesResponse' smart constructor.+data DescribeSecurityGroupReferencesResponse = DescribeSecurityGroupReferencesResponse'+    { _dsgrrsSecurityGroupReferenceSet :: !(Maybe [SecurityGroupReference])+    , _dsgrrsResponseStatus            :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeSecurityGroupReferencesResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dsgrrsSecurityGroupReferenceSet'+--+-- * 'dsgrrsResponseStatus'+describeSecurityGroupReferencesResponse+    :: Int -- ^ 'dsgrrsResponseStatus'+    -> DescribeSecurityGroupReferencesResponse+describeSecurityGroupReferencesResponse pResponseStatus_ =+    DescribeSecurityGroupReferencesResponse'+    { _dsgrrsSecurityGroupReferenceSet = Nothing+    , _dsgrrsResponseStatus = pResponseStatus_+    }++-- | Information about the VPCs with the referencing security groups.+dsgrrsSecurityGroupReferenceSet :: Lens' DescribeSecurityGroupReferencesResponse [SecurityGroupReference]+dsgrrsSecurityGroupReferenceSet = lens _dsgrrsSecurityGroupReferenceSet (\ s a -> s{_dsgrrsSecurityGroupReferenceSet = a}) . _Default . _Coerce;++-- | The response status code.+dsgrrsResponseStatus :: Lens' DescribeSecurityGroupReferencesResponse Int+dsgrrsResponseStatus = lens _dsgrrsResponseStatus (\ s a -> s{_dsgrrsResponseStatus = a});++instance NFData+         DescribeSecurityGroupReferencesResponse

@@ -156,7 +156,7 @@           = mconcat               ["Action" =:                  ("DescribeSecurityGroups" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dsgsFilters),                toQuery                  (toQueryList "GroupName" <$> _dsgsGroupNames),

@@ -120,7 +120,7 @@           = mconcat               ["Action" =:                  ("DescribeSnapshotAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dsaDryRun,                "SnapshotId" =: _dsaSnapshotId,                "Attribute" =: _dsaAttribute]

@@ -32,7 +32,7 @@ -- -- If you specify one or more snapshot IDs, only snapshots that have the specified IDs are returned. If you specify an invalid snapshot ID, an error is returned. If you specify a snapshot ID for which you do not have access, it is not included in the returned results. ----- If you specify one or more snapshot owners, only snapshots from the specified owners and for which you have access are returned. The results can include the AWS account IDs of the specified owners, 'amazon' for snapshots owned by Amazon, or 'self' for snapshots that you own.+-- If you specify one or more snapshot owners using the 'OwnerIds' option, only snapshots from the specified owners and for which you have access are returned. The results can include the AWS account IDs of the specified owners, 'amazon' for snapshots owned by Amazon, or 'self' for snapshots that you own. -- -- If you specify a list of restorable users, only snapshots with create snapshot permissions for those users are returned. You can specify AWS account IDs (if you own the snapshots), 'self' for snapshots for which you own or have explicit permissions, or 'all' for public snapshots. --@@ -123,7 +123,7 @@ -- -- -   'description' - A description of the snapshot. ----- -   'owner-alias' - The AWS account alias (for example, 'amazon') that owns the snapshot.+-- -   'owner-alias' - Value from an Amazon-maintained list ('amazon' | 'aws-marketplace' | 'microsoft') of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM consolew. -- -- -   'owner-id' - The ID of the AWS account that owns the snapshot. --@@ -203,7 +203,7 @@         toQuery DescribeSnapshots'{..}           = mconcat               ["Action" =: ("DescribeSnapshots" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Owner" <$> _dssOwnerIds),                toQuery (toQueryList "Filter" <$> _dssFilters),                "NextToken" =: _dssNextToken,

@@ -95,7 +95,7 @@           = mconcat               ["Action" =:                  ("DescribeSpotDatafeedSubscription" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dsdsDryRun]  -- | Contains the output of DescribeSpotDatafeedSubscription.

@@ -124,7 +124,7 @@           = mconcat               ["Action" =:                  ("DescribeSpotFleetInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NextToken" =: _dsfiNextToken,                "DryRun" =: _dsfiDryRun,                "MaxResults" =: _dsfiMaxResults,

@@ -152,7 +152,7 @@           = mconcat               ["Action" =:                  ("DescribeSpotFleetRequestHistory" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NextToken" =: _dsfrhNextToken,                "EventType" =: _dsfrhEventType,                "DryRun" =: _dsfrhDryRun,

@@ -19,6 +19,8 @@ -- Portability : non-portable (GHC extensions) -- -- Describes your Spot fleet requests.+--+-- This operation returns paginated results. module Network.AWS.EC2.DescribeSpotFleetRequests     (     -- * Creating a Request@@ -42,6 +44,7 @@ import           Network.AWS.EC2.Types import           Network.AWS.EC2.Types.Product import           Network.AWS.Lens+import           Network.AWS.Pager import           Network.AWS.Prelude import           Network.AWS.Request import           Network.AWS.Response@@ -93,6 +96,14 @@ dsfrMaxResults :: Lens' DescribeSpotFleetRequests (Maybe Int) dsfrMaxResults = lens _dsfrMaxResults (\ s a -> s{_dsfrMaxResults = a}); +instance AWSPager DescribeSpotFleetRequests where+        page rq rs+          | stop (rs ^. dsfrrsNextToken) = Nothing+          | stop (rs ^. dsfrrsSpotFleetRequestConfigs) =+            Nothing+          | otherwise =+            Just $ rq & dsfrNextToken .~ rs ^. dsfrrsNextToken+ instance AWSRequest DescribeSpotFleetRequests where         type Rs DescribeSpotFleetRequests =              DescribeSpotFleetRequestsResponse@@ -120,7 +131,7 @@           = mconcat               ["Action" =:                  ("DescribeSpotFleetRequests" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "SpotFleetRequestId" <$>                     _dsfrSpotFleetRequestIds),

@@ -194,7 +194,7 @@           = mconcat               ["Action" =:                  ("DescribeSpotInstanceRequests" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dsirFilters),                toQuery                  (toQueryList "SpotInstanceRequestId" <$>

@@ -189,7 +189,7 @@           = mconcat               ["Action" =:                  ("DescribeSpotPriceHistory" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "InstanceType" <$> _dsphInstanceTypes),                "StartTime" =: _dsphStartTime,

@@ -0,0 +1,167 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.DescribeStaleSecurityGroups+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- [EC2-VPC only] Describes the stale security group rules for security groups in a specified VPC. Rules are stale when they reference a deleted security group in a peer VPC, or a security group in a peer VPC for which the VPC peering connection has been deleted.+module Network.AWS.EC2.DescribeStaleSecurityGroups+    (+    -- * Creating a Request+      describeStaleSecurityGroups+    , DescribeStaleSecurityGroups+    -- * Request Lenses+    , dssgNextToken+    , dssgDryRun+    , dssgMaxResults+    , dssgVPCId++    -- * Destructuring the Response+    , describeStaleSecurityGroupsResponse+    , DescribeStaleSecurityGroupsResponse+    -- * Response Lenses+    , dssgrsStaleSecurityGroupSet+    , dssgrsNextToken+    , dssgrsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'describeStaleSecurityGroups' smart constructor.+data DescribeStaleSecurityGroups = DescribeStaleSecurityGroups'+    { _dssgNextToken  :: !(Maybe Text)+    , _dssgDryRun     :: !(Maybe Bool)+    , _dssgMaxResults :: !(Maybe Nat)+    , _dssgVPCId      :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeStaleSecurityGroups' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dssgNextToken'+--+-- * 'dssgDryRun'+--+-- * 'dssgMaxResults'+--+-- * 'dssgVPCId'+describeStaleSecurityGroups+    :: Text -- ^ 'dssgVPCId'+    -> DescribeStaleSecurityGroups+describeStaleSecurityGroups pVPCId_ =+    DescribeStaleSecurityGroups'+    { _dssgNextToken = Nothing+    , _dssgDryRun = Nothing+    , _dssgMaxResults = Nothing+    , _dssgVPCId = pVPCId_+    }++-- | The token for the next set of items to return. (You received this token from a prior call.)+dssgNextToken :: Lens' DescribeStaleSecurityGroups (Maybe Text)+dssgNextToken = lens _dssgNextToken (\ s a -> s{_dssgNextToken = a});++-- | Checks whether you have the required permissions for the operation, 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.+dssgDryRun :: Lens' DescribeStaleSecurityGroups (Maybe Bool)+dssgDryRun = lens _dssgDryRun (\ s a -> s{_dssgDryRun = a});++-- | The maximum number of items to return for this request. The request returns a token that you can specify in a subsequent call to get the next set of results.+dssgMaxResults :: Lens' DescribeStaleSecurityGroups (Maybe Natural)+dssgMaxResults = lens _dssgMaxResults (\ s a -> s{_dssgMaxResults = a}) . mapping _Nat;++-- | The ID of the VPC.+dssgVPCId :: Lens' DescribeStaleSecurityGroups Text+dssgVPCId = lens _dssgVPCId (\ s a -> s{_dssgVPCId = a});++instance AWSRequest DescribeStaleSecurityGroups where+        type Rs DescribeStaleSecurityGroups =+             DescribeStaleSecurityGroupsResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 DescribeStaleSecurityGroupsResponse' <$>+                   (x .@? "staleSecurityGroupSet" .!@ mempty >>=+                      may (parseXMLList "item"))+                     <*> (x .@? "nextToken")+                     <*> (pure (fromEnum s)))++instance Hashable DescribeStaleSecurityGroups++instance NFData DescribeStaleSecurityGroups++instance ToHeaders DescribeStaleSecurityGroups where+        toHeaders = const mempty++instance ToPath DescribeStaleSecurityGroups where+        toPath = const "/"++instance ToQuery DescribeStaleSecurityGroups where+        toQuery DescribeStaleSecurityGroups'{..}+          = mconcat+              ["Action" =:+                 ("DescribeStaleSecurityGroups" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "NextToken" =: _dssgNextToken,+               "DryRun" =: _dssgDryRun,+               "MaxResults" =: _dssgMaxResults,+               "VpcId" =: _dssgVPCId]++-- | /See:/ 'describeStaleSecurityGroupsResponse' smart constructor.+data DescribeStaleSecurityGroupsResponse = DescribeStaleSecurityGroupsResponse'+    { _dssgrsStaleSecurityGroupSet :: !(Maybe [StaleSecurityGroup])+    , _dssgrsNextToken             :: !(Maybe Text)+    , _dssgrsResponseStatus        :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'DescribeStaleSecurityGroupsResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'dssgrsStaleSecurityGroupSet'+--+-- * 'dssgrsNextToken'+--+-- * 'dssgrsResponseStatus'+describeStaleSecurityGroupsResponse+    :: Int -- ^ 'dssgrsResponseStatus'+    -> DescribeStaleSecurityGroupsResponse+describeStaleSecurityGroupsResponse pResponseStatus_ =+    DescribeStaleSecurityGroupsResponse'+    { _dssgrsStaleSecurityGroupSet = Nothing+    , _dssgrsNextToken = Nothing+    , _dssgrsResponseStatus = pResponseStatus_+    }++-- | Information about the stale security groups.+dssgrsStaleSecurityGroupSet :: Lens' DescribeStaleSecurityGroupsResponse [StaleSecurityGroup]+dssgrsStaleSecurityGroupSet = lens _dssgrsStaleSecurityGroupSet (\ s a -> s{_dssgrsStaleSecurityGroupSet = a}) . _Default . _Coerce;++-- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty.+dssgrsNextToken :: Lens' DescribeStaleSecurityGroupsResponse (Maybe Text)+dssgrsNextToken = lens _dssgrsNextToken (\ s a -> s{_dssgrsNextToken = a});++-- | The response status code.+dssgrsResponseStatus :: Lens' DescribeStaleSecurityGroupsResponse Int+dssgrsResponseStatus = lens _dssgrsResponseStatus (\ s a -> s{_dssgrsResponseStatus = a});++instance NFData DescribeStaleSecurityGroupsResponse

@@ -133,7 +133,7 @@         toQuery DescribeSubnets'{..}           = mconcat               ["Action" =: ("DescribeSubnets" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "SubnetId" <$> _dsSubnetIds),                toQuery (toQueryList "Filter" <$> _dsFilters),                "DryRun" =: _dsDryRun]

@@ -140,7 +140,7 @@         toQuery DescribeTags'{..}           = mconcat               ["Action" =: ("DescribeTags" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dtFilters),                "NextToken" =: _dtNextToken, "DryRun" =: _dtDryRun,                "MaxResults" =: _dtMaxResults]

@@ -114,7 +114,7 @@         toQuery DescribeVPCAttribute'{..}           = mconcat               ["Action" =: ("DescribeVpcAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dvpcaDryRun, "VpcId" =: _dvpcaVPCId,                "Attribute" =: _dvpcaAttribute] 

@@ -119,7 +119,7 @@           = mconcat               ["Action" =:                  ("DescribeVpcClassicLink" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dvclFilters),                toQuery (toQueryList "VpcId" <$> _dvclVPCIds),                "DryRun" =: _dvclDryRun]

@@ -116,7 +116,7 @@           = mconcat               ["Action" =:                  ("DescribeVpcClassicLinkDnsSupport" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NextToken" =: _dvcldsNextToken,                toQuery (toQueryList "VpcIds" <$> _dvcldsVPCIds),                "MaxResults" =: _dvcldsMaxResults]

@@ -114,7 +114,7 @@           = mconcat               ["Action" =:                  ("DescribeVpcEndpointServices" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "NextToken" =: _dvesNextToken,                "DryRun" =: _dvesDryRun,                "MaxResults" =: _dvesMaxResults]

@@ -140,7 +140,7 @@         toQuery DescribeVPCEndpoints'{..}           = mconcat               ["Action" =: ("DescribeVpcEndpoints" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dvpceFilters),                "NextToken" =: _dvpceNextToken,                toQuery

@@ -141,7 +141,7 @@           = mconcat               ["Action" =:                  ("DescribeVpcPeeringConnections" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dvpcpcFilters),                toQuery                  (toQueryList "VpcPeeringConnectionId" <$>

@@ -127,7 +127,7 @@         toQuery DescribeVPCs'{..}           = mconcat               ["Action" =: ("DescribeVpcs" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dvsFilters),                toQuery (toQueryList "VpcId" <$> _dvsVPCIds),                "DryRun" =: _dvsDryRun]

@@ -139,7 +139,7 @@           = mconcat               ["Action" =:                  ("DescribeVpnConnections" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dvpncFilters),                toQuery                  (toQueryList "VpnConnectionId" <$>

@@ -132,7 +132,7 @@         toQuery DescribeVPNGateways'{..}           = mconcat               ["Action" =: ("DescribeVpnGateways" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dvgsFilters),                toQuery                  (toQueryList "VpnGatewayId" <$> _dvgsVPNGatewayIds),

@@ -117,7 +117,7 @@           = mconcat               ["Action" =:                  ("DescribeVolumeAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Attribute" =: _dvaAttribute, "DryRun" =: _dvaDryRun,                "VolumeId" =: _dvaVolumeId] 

@@ -176,7 +176,7 @@         toQuery DescribeVolumeStatus'{..}           = mconcat               ["Action" =: ("DescribeVolumeStatus" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _dvssFilters),                toQuery (toQueryList "VolumeId" <$> _dvssVolumeIds),                "NextToken" =: _dvssNextToken,

@@ -175,7 +175,7 @@         toQuery DescribeVolumes'{..}           = mconcat               ["Action" =: ("DescribeVolumes" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "Filter" <$> _desFilters),                toQuery (toQueryList "VolumeId" <$> _desVolumeIds),                "NextToken" =: _desNextToken, "DryRun" =: _desDryRun,

@@ -109,7 +109,7 @@         toQuery DetachClassicLinkVPC'{..}           = mconcat               ["Action" =: ("DetachClassicLinkVpc" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dclvDryRun,                "InstanceId" =: _dclvInstanceId,                "VpcId" =: _dclvVPCId]

@@ -102,7 +102,7 @@         toQuery DetachInternetGateway'{..}           = mconcat               ["Action" =: ("DetachInternetGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _digDryRun,                "InternetGatewayId" =: _digInternetGatewayId,                "VpcId" =: _digVPCId]

@@ -103,7 +103,7 @@           = mconcat               ["Action" =:                  ("DetachNetworkInterface" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Force" =: _dniForce, "DryRun" =: _dniDryRun,                "AttachmentId" =: _dniAttachmentId] 

@@ -103,7 +103,7 @@         toQuery DetachVPNGateway'{..}           = mconcat               ["Action" =: ("DetachVpnGateway" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dvpngDryRun,                "VpnGatewayId" =: _dvpngVPNGatewayId,                "VpcId" =: _dvpngVPCId]

@@ -18,9 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Detaches an EBS volume from an instance. Make sure to unmount any file systems on the device within your operating system before detaching the volume. Failure to do so results in the volume being stuck in a busy state while detaching.------ If an Amazon EBS volume is the root device of an instance, it can\'t be detached while the instance is running. To detach the root volume, stop the instance first.+-- Detaches an EBS volume from an instance. Make sure to unmount any file systems on the device within your operating system before detaching the volume. Failure to do so can result in the volume becoming stuck in the 'busy' state while detaching. If this happens, detachment can be delayed indefinitely until you unmount the volume, force detachment, reboot the instance, or all three. If an EBS volume is the root device of an instance, it can\'t be detached while the instance is running. To detach the root volume, stop the instance first. -- -- When a volume with an AWS Marketplace product code is detached from an instance, the product code is no longer associated with the instance. --@@ -131,7 +129,7 @@         toQuery DetachVolume'{..}           = mconcat               ["Action" =: ("DetachVolume" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "InstanceId" =: _dvInstanceId, "Force" =: _dvForce,                "Device" =: _dvDevice, "DryRun" =: _dvDryRun,                "VolumeId" =: _dvVolumeId]

@@ -95,7 +95,7 @@           = mconcat               ["Action" =:                  ("DisableVgwRoutePropagation" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "RouteTableId" =: _dvrpRouteTableId,                "GatewayId" =: _dvrpGatewayId] 

@@ -99,7 +99,7 @@         toQuery DisableVPCClassicLink'{..}           = mconcat               ["Action" =: ("DisableVpcClassicLink" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _dvpcclDryRun, "VpcId" =: _dvpcclVPCId]  -- | Contains the output of DisableVpcClassicLink.

@@ -93,7 +93,7 @@           = mconcat               ["Action" =:                  ("DisableVpcClassicLinkDnsSupport" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpcId" =: _dvcldsVPCId]  -- | Contains the output of DisableVpcClassicLinkDnsSupport.

@@ -104,7 +104,7 @@         toQuery DisassociateAddress'{..}           = mconcat               ["Action" =: ("DisassociateAddress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "AssociationId" =: _dasAssociationId,                "PublicIp" =: _dasPublicIP, "DryRun" =: _dasDryRun] 

@@ -96,7 +96,7 @@           = mconcat               ["Action" =:                  ("DisassociateRouteTable" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _drtDryRun,                "AssociationId" =: _drtAssociationId] 

@@ -95,7 +95,7 @@           = mconcat               ["Action" =:                  ("EnableVgwRoutePropagation" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "RouteTableId" =: _evrpRouteTableId,                "GatewayId" =: _evrpGatewayId] 

@@ -99,7 +99,7 @@         toQuery EnableVPCClassicLink'{..}           = mconcat               ["Action" =: ("EnableVpcClassicLink" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _evclDryRun, "VpcId" =: _evclVPCId]  -- | Contains the output of EnableVpcClassicLink.

@@ -92,7 +92,7 @@           = mconcat               ["Action" =:                  ("EnableVpcClassicLinkDnsSupport" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpcId" =: _evcldsVPCId]  -- | Contains the output of EnableVpcClassicLinkDnsSupport.

@@ -91,7 +91,7 @@         toQuery EnableVolumeIO'{..}           = mconcat               ["Action" =: ("EnableVolumeIO" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _evioDryRun, "VolumeId" =: _evioVolumeId]  -- | /See:/ 'enableVolumeIOResponse' smart constructor.

@@ -110,7 +110,7 @@         toQuery GetConsoleOutput'{..}           = mconcat               ["Action" =: ("GetConsoleOutput" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _gcoDryRun,                "InstanceId" =: _gcoInstanceId] @@ -150,7 +150,7 @@ gcorsInstanceId :: Lens' GetConsoleOutputResponse (Maybe Text) gcorsInstanceId = lens _gcorsInstanceId (\ s a -> s{_gcorsInstanceId = a}); --- | The console output, Base64 encoded. If using a command line tool, the tools decode the output for you.+-- | The console output, Base64-encoded. If using a command line tool, the tool decodes the output for you. gcorsOutput :: Lens' GetConsoleOutputResponse (Maybe Text) gcorsOutput = lens _gcorsOutput (\ s a -> s{_gcorsOutput = a}); 

@@ -0,0 +1,159 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.GetConsoleScreenshot+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Retrieve a JPG-format screenshot of a running instance to help with troubleshooting.+--+-- The returned content is Base64-encoded.+module Network.AWS.EC2.GetConsoleScreenshot+    (+    -- * Creating a Request+      getConsoleScreenshot+    , GetConsoleScreenshot+    -- * Request Lenses+    , gcsWakeUp+    , gcsDryRun+    , gcsInstanceId++    -- * Destructuring the Response+    , getConsoleScreenshotResponse+    , GetConsoleScreenshotResponse+    -- * Response Lenses+    , gcsrsInstanceId+    , gcsrsImageData+    , gcsrsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Contains the parameters for the request.+--+-- /See:/ 'getConsoleScreenshot' smart constructor.+data GetConsoleScreenshot = GetConsoleScreenshot'+    { _gcsWakeUp     :: !(Maybe Bool)+    , _gcsDryRun     :: !(Maybe Bool)+    , _gcsInstanceId :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetConsoleScreenshot' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsWakeUp'+--+-- * 'gcsDryRun'+--+-- * 'gcsInstanceId'+getConsoleScreenshot+    :: Text -- ^ 'gcsInstanceId'+    -> GetConsoleScreenshot+getConsoleScreenshot pInstanceId_ =+    GetConsoleScreenshot'+    { _gcsWakeUp = Nothing+    , _gcsDryRun = Nothing+    , _gcsInstanceId = pInstanceId_+    }++-- | When set to 'true', acts as keystroke input and wakes up an instance that\'s in standby or \"sleep\" mode.+gcsWakeUp :: Lens' GetConsoleScreenshot (Maybe Bool)+gcsWakeUp = lens _gcsWakeUp (\ s a -> s{_gcsWakeUp = 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'. Otherwise, it is 'UnauthorizedOperation'.+gcsDryRun :: Lens' GetConsoleScreenshot (Maybe Bool)+gcsDryRun = lens _gcsDryRun (\ s a -> s{_gcsDryRun = a});++-- | The ID of the instance.+gcsInstanceId :: Lens' GetConsoleScreenshot Text+gcsInstanceId = lens _gcsInstanceId (\ s a -> s{_gcsInstanceId = a});++instance AWSRequest GetConsoleScreenshot where+        type Rs GetConsoleScreenshot =+             GetConsoleScreenshotResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 GetConsoleScreenshotResponse' <$>+                   (x .@? "instanceId") <*> (x .@? "imageData") <*>+                     (pure (fromEnum s)))++instance Hashable GetConsoleScreenshot++instance NFData GetConsoleScreenshot++instance ToHeaders GetConsoleScreenshot where+        toHeaders = const mempty++instance ToPath GetConsoleScreenshot where+        toPath = const "/"++instance ToQuery GetConsoleScreenshot where+        toQuery GetConsoleScreenshot'{..}+          = mconcat+              ["Action" =: ("GetConsoleScreenshot" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "WakeUp" =: _gcsWakeUp, "DryRun" =: _gcsDryRun,+               "InstanceId" =: _gcsInstanceId]++-- | Contains the output of the request.+--+-- /See:/ 'getConsoleScreenshotResponse' smart constructor.+data GetConsoleScreenshotResponse = GetConsoleScreenshotResponse'+    { _gcsrsInstanceId     :: !(Maybe Text)+    , _gcsrsImageData      :: !(Maybe Text)+    , _gcsrsResponseStatus :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetConsoleScreenshotResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'gcsrsInstanceId'+--+-- * 'gcsrsImageData'+--+-- * 'gcsrsResponseStatus'+getConsoleScreenshotResponse+    :: Int -- ^ 'gcsrsResponseStatus'+    -> GetConsoleScreenshotResponse+getConsoleScreenshotResponse pResponseStatus_ =+    GetConsoleScreenshotResponse'+    { _gcsrsInstanceId = Nothing+    , _gcsrsImageData = Nothing+    , _gcsrsResponseStatus = pResponseStatus_+    }++-- | The ID of the instance.+gcsrsInstanceId :: Lens' GetConsoleScreenshotResponse (Maybe Text)+gcsrsInstanceId = lens _gcsrsInstanceId (\ s a -> s{_gcsrsInstanceId = a});++-- | The data that comprises the image.+gcsrsImageData :: Lens' GetConsoleScreenshotResponse (Maybe Text)+gcsrsImageData = lens _gcsrsImageData (\ s a -> s{_gcsrsImageData = a});++-- | The response status code.+gcsrsResponseStatus :: Lens' GetConsoleScreenshotResponse Int+gcsrsResponseStatus = lens _gcsrsResponseStatus (\ s a -> s{_gcsrsResponseStatus = a});++instance NFData GetConsoleScreenshotResponse

@@ -0,0 +1,174 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.GetHostReservationPurchasePreview+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Preview a reservation purchase with configurations that match those of your Dedicated Host. You must have active Dedicated Hosts in your account before you purchase a reservation.+--+-- This is a preview of the < PurchaseHostReservation> action and does not result in the offering being purchased.+module Network.AWS.EC2.GetHostReservationPurchasePreview+    (+    -- * Creating a Request+      getHostReservationPurchasePreview+    , GetHostReservationPurchasePreview+    -- * Request Lenses+    , ghrppOfferingId+    , ghrppHostIdSet++    -- * Destructuring the Response+    , getHostReservationPurchasePreviewResponse+    , GetHostReservationPurchasePreviewResponse+    -- * Response Lenses+    , ghrpprsCurrencyCode+    , ghrpprsTotalHourlyPrice+    , ghrpprsTotalUpfrontPrice+    , ghrpprsPurchase+    , ghrpprsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'getHostReservationPurchasePreview' smart constructor.+data GetHostReservationPurchasePreview = GetHostReservationPurchasePreview'+    { _ghrppOfferingId :: !Text+    , _ghrppHostIdSet  :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetHostReservationPurchasePreview' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghrppOfferingId'+--+-- * 'ghrppHostIdSet'+getHostReservationPurchasePreview+    :: Text -- ^ 'ghrppOfferingId'+    -> GetHostReservationPurchasePreview+getHostReservationPurchasePreview pOfferingId_ =+    GetHostReservationPurchasePreview'+    { _ghrppOfferingId = pOfferingId_+    , _ghrppHostIdSet = mempty+    }++-- | The offering ID of the reservation.+ghrppOfferingId :: Lens' GetHostReservationPurchasePreview Text+ghrppOfferingId = lens _ghrppOfferingId (\ s a -> s{_ghrppOfferingId = a});++-- | The ID\/s of the Dedicated Host\/s that the reservation will be associated with.+ghrppHostIdSet :: Lens' GetHostReservationPurchasePreview [Text]+ghrppHostIdSet = lens _ghrppHostIdSet (\ s a -> s{_ghrppHostIdSet = a}) . _Coerce;++instance AWSRequest GetHostReservationPurchasePreview+         where+        type Rs GetHostReservationPurchasePreview =+             GetHostReservationPurchasePreviewResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 GetHostReservationPurchasePreviewResponse' <$>+                   (x .@? "currencyCode") <*> (x .@? "totalHourlyPrice")+                     <*> (x .@? "totalUpfrontPrice")+                     <*>+                     (x .@? "purchase" .!@ mempty >>=+                        may (parseXMLList "member"))+                     <*> (pure (fromEnum s)))++instance Hashable GetHostReservationPurchasePreview++instance NFData GetHostReservationPurchasePreview++instance ToHeaders GetHostReservationPurchasePreview+         where+        toHeaders = const mempty++instance ToPath GetHostReservationPurchasePreview+         where+        toPath = const "/"++instance ToQuery GetHostReservationPurchasePreview+         where+        toQuery GetHostReservationPurchasePreview'{..}+          = mconcat+              ["Action" =:+                 ("GetHostReservationPurchasePreview" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "OfferingId" =: _ghrppOfferingId,+               toQueryList "HostIdSet" _ghrppHostIdSet]++-- | /See:/ 'getHostReservationPurchasePreviewResponse' smart constructor.+data GetHostReservationPurchasePreviewResponse = GetHostReservationPurchasePreviewResponse'+    { _ghrpprsCurrencyCode      :: !(Maybe CurrencyCodeValues)+    , _ghrpprsTotalHourlyPrice  :: !(Maybe Text)+    , _ghrpprsTotalUpfrontPrice :: !(Maybe Text)+    , _ghrpprsPurchase          :: !(Maybe [Purchase])+    , _ghrpprsResponseStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'GetHostReservationPurchasePreviewResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ghrpprsCurrencyCode'+--+-- * 'ghrpprsTotalHourlyPrice'+--+-- * 'ghrpprsTotalUpfrontPrice'+--+-- * 'ghrpprsPurchase'+--+-- * 'ghrpprsResponseStatus'+getHostReservationPurchasePreviewResponse+    :: Int -- ^ 'ghrpprsResponseStatus'+    -> GetHostReservationPurchasePreviewResponse+getHostReservationPurchasePreviewResponse pResponseStatus_ =+    GetHostReservationPurchasePreviewResponse'+    { _ghrpprsCurrencyCode = Nothing+    , _ghrpprsTotalHourlyPrice = Nothing+    , _ghrpprsTotalUpfrontPrice = Nothing+    , _ghrpprsPurchase = Nothing+    , _ghrpprsResponseStatus = pResponseStatus_+    }++-- | The currency in which the 'totalUpfrontPrice' and 'totalHourlyPrice' amounts are specified. At this time, the only supported currency is 'USD'.+ghrpprsCurrencyCode :: Lens' GetHostReservationPurchasePreviewResponse (Maybe CurrencyCodeValues)+ghrpprsCurrencyCode = lens _ghrpprsCurrencyCode (\ s a -> s{_ghrpprsCurrencyCode = a});++-- | The potential total hourly price of the reservation per hour.+ghrpprsTotalHourlyPrice :: Lens' GetHostReservationPurchasePreviewResponse (Maybe Text)+ghrpprsTotalHourlyPrice = lens _ghrpprsTotalHourlyPrice (\ s a -> s{_ghrpprsTotalHourlyPrice = a});++-- | The potential total upfront price. This is billed immediately.+ghrpprsTotalUpfrontPrice :: Lens' GetHostReservationPurchasePreviewResponse (Maybe Text)+ghrpprsTotalUpfrontPrice = lens _ghrpprsTotalUpfrontPrice (\ s a -> s{_ghrpprsTotalUpfrontPrice = a});++-- | The purchase information of the Dedicated Host Reservation and the Dedicated Hosts associated with it.+ghrpprsPurchase :: Lens' GetHostReservationPurchasePreviewResponse [Purchase]+ghrpprsPurchase = lens _ghrpprsPurchase (\ s a -> s{_ghrpprsPurchase = a}) . _Default . _Coerce;++-- | The response status code.+ghrpprsResponseStatus :: Lens' GetHostReservationPurchasePreviewResponse Int+ghrpprsResponseStatus = lens _ghrpprsResponseStatus (\ s a -> s{_ghrpprsResponseStatus = a});++instance NFData+         GetHostReservationPurchasePreviewResponse

@@ -108,7 +108,7 @@         toQuery GetPasswordData'{..}           = mconcat               ["Action" =: ("GetPasswordData" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _gpdDryRun,                "InstanceId" =: _gpdInstanceId] 

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Import single or multi-volume disk images or EBS snapshots into an Amazon Machine Image (AMI).+-- Import single or multi-volume disk images or EBS snapshots into an Amazon Machine Image (AMI). For more information, see <http://docs.aws.amazon.com/vm-import/latest/userguide/vmimport-image-import.html Importing a VM as an Image Using VM Import\/Export> in the /VM Import\/Export User Guide/. module Network.AWS.EC2.ImportImage     (     -- * Creating a Request@@ -134,7 +134,7 @@  -- | The license type to be used for the Amazon Machine Image (AMI) after importing. ----- __Note:__ You may only use BYOL if you have existing licenses with rights to use these licenses in a third party cloud like AWS. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/VMImportPrerequisites.html VM Import\/Export Prerequisites> in the /Amazon Elastic Compute Cloud User Guide/.+-- __Note:__ You may only use BYOL if you have existing licenses with rights to use these licenses in a third party cloud like AWS. For more information, see <http://docs.aws.amazon.com/vm-import/latest/userguide/vmimport-image-import.html#prerequisites-image Prerequisites> in the VM Import\/Export User Guide. -- -- Valid values: 'AWS' | 'BYOL' impLicenseType :: Lens' ImportImage (Maybe Text)@@ -201,7 +201,7 @@         toQuery ImportImage'{..}           = mconcat               ["Action" =: ("ImportImage" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Hypervisor" =: _impHypervisor,                "Platform" =: _impPlatform,                "ClientToken" =: _impClientToken,

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates an import instance task using metadata from the specified disk image. 'ImportInstance' only supports single-volume VMs. To import multi-volume VMs, use < ImportImage>. After importing the image, you then upload it using the 'ec2-import-volume' command in the EC2 command line tools. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/UploadingYourInstancesandVolumes.html Using the Command Line Tools to Import Your Virtual Machine to Amazon EC2> in the /Amazon Elastic Compute Cloud User Guide/.+-- Creates an import instance task using metadata from the specified disk image. 'ImportInstance' only supports single-volume VMs. To import multi-volume VMs, use < ImportImage>. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/CommandLineReference/ec2-cli-vmimport-export.html Importing a Virtual Machine Using the Amazon EC2 CLI>. -- -- For information about the import manifest referenced by this API action, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/manifest.html VM Import Manifest>. module Network.AWS.EC2.ImportInstance@@ -127,7 +127,7 @@         toQuery ImportInstance'{..}           = mconcat               ["Action" =: ("ImportInstance" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "LaunchSpecification" =: _iiLaunchSpecification,                toQuery (toQueryList "DiskImage" <$> _iiDiskImages),                "Description" =: _iiDescription,

@@ -118,7 +118,7 @@         toQuery ImportKeyPair'{..}           = mconcat               ["Action" =: ("ImportKeyPair" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _ikpDryRun, "KeyName" =: _ikpKeyName,                "PublicKeyMaterial" =: _ikpPublicKeyMaterial] 

@@ -138,7 +138,7 @@         toQuery ImportSnapshot'{..}           = mconcat               ["Action" =: ("ImportSnapshot" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DiskContainer" =: _isDiskContainer,                "ClientToken" =: _isClientToken,                "RoleName" =: _isRoleName,

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Creates an import volume task using metadata from the specified disk image. After importing the image, you then upload it using the 'ec2-import-volume' command in the Amazon EC2 command-line interface (CLI) tools. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/UploadingYourInstancesandVolumes.html Using the Command Line Tools to Import Your Virtual Machine to Amazon EC2> in the /Amazon Elastic Compute Cloud User Guide/.+-- Creates an import volume task using metadata from the specified disk image.For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/CommandLineReference/importing-your-volumes-into-amazon-ebs.html Importing Disks to Amazon EBS>. -- -- For information about the import manifest referenced by this API action, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/manifest.html VM Import Manifest>. module Network.AWS.EC2.ImportVolume@@ -129,7 +129,7 @@         toQuery ImportVolume'{..}           = mconcat               ["Action" =: ("ImportVolume" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Description" =: _ivDescription,                "DryRun" =: _ivDryRun,                "AvailabilityZone" =: _ivAvailabilityZone,

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Modify the auto-placement setting of a Dedicated host. When auto-placement is enabled, AWS will place instances that you launch with a tenancy of 'host', but without targeting a specific host ID, onto any available Dedicated host in your account which has auto-placement enabled. When auto-placement is disabled, you need to provide a host ID if you want the instance to launch onto a specific host. If no host ID is provided, the instance will be launched onto a suitable host which has auto-placement enabled.+-- Modify the auto-placement setting of a Dedicated Host. When auto-placement is enabled, AWS will place instances that you launch with a tenancy of 'host', but without targeting a specific host ID, onto any available Dedicated Host in your account which has auto-placement enabled. When auto-placement is disabled, you need to provide a host ID if you want the instance to launch onto a specific host. If no host ID is provided, the instance will be launched onto a suitable host which has auto-placement enabled. module Network.AWS.EC2.ModifyHosts     (     -- * Creating a Request@@ -68,7 +68,7 @@     , _mhAutoPlacement = pAutoPlacement_     } --- | The host IDs of the Dedicated hosts you want to modify.+-- | The host IDs of the Dedicated Hosts you want to modify. mhHostIds :: Lens' ModifyHosts [Text] mhHostIds = lens _mhHostIds (\ s a -> s{_mhHostIds = a}) . _Coerce; @@ -104,7 +104,7 @@         toQuery ModifyHosts'{..}           = mconcat               ["Action" =: ("ModifyHosts" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQueryList "HostId" _mhHostIds,                "AutoPlacement" =: _mhAutoPlacement] @@ -136,11 +136,11 @@     , _mhrsResponseStatus = pResponseStatus_     } --- | The IDs of the Dedicated hosts that could not be modified. Check whether the setting you requested can be used.+-- | The IDs of the Dedicated Hosts that could not be modified. Check whether the setting you requested can be used. mhrsUnsuccessful :: Lens' ModifyHostsResponse [UnsuccessfulItem] mhrsUnsuccessful = lens _mhrsUnsuccessful (\ s a -> s{_mhrsUnsuccessful = a}) . _Default . _Coerce; --- | The IDs of the Dedicated hosts that were successfully modified.+-- | The IDs of the Dedicated Hosts that were successfully modified. mhrsSuccessful :: Lens' ModifyHostsResponse [Text] mhrsSuccessful = lens _mhrsSuccessful (\ s a -> s{_mhrsSuccessful = a}) . _Default . _Coerce; 

@@ -20,9 +20,9 @@ -- -- Modifies the ID format for the specified resource on a per-region basis. You can specify that resources should receive longer IDs (17-character IDs) when they are created. The following resource types support longer IDs: 'instance' | 'reservation' | 'snapshot' | 'volume'. ----- This setting applies to the IAM user who makes the request; it does not apply to the entire AWS account. By default, an IAM user defaults to the same settings as the root user. If you\'re using this action as the root user or as an IAM role that has permission to use this action, then these settings apply to the entire account, unless an IAM user explicitly overrides these settings for themselves. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/resource-ids.html#resource-ids-access Controlling Access to Longer ID Settings> in the /Amazon Elastic Compute Cloud User Guide/.+-- This setting applies to the IAM user who makes the request; it does not apply to the entire AWS account. By default, an IAM user defaults to the same settings as the root user. If you\'re using this action as the root user, then these settings apply to the entire account, unless an IAM user explicitly overrides these settings for themselves. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/resource-ids.html Resource IDs> in the /Amazon Elastic Compute Cloud User Guide/. ----- Resources created with longer IDs are visible to all IAM users, regardless of these settings and provided that they have permission to use the relevant 'Describe' command for the resource type.+-- Resources created with longer IDs are visible to all IAM roles and users, regardless of these settings and provided that they have permission to use the relevant 'Describe' command for the resource type. module Network.AWS.EC2.ModifyIdFormat     (     -- * Creating a Request@@ -69,7 +69,7 @@     , _mifUseLongIds = pUseLongIds_     } --- | The type of resource.+-- | The type of resource: 'instance' | 'reservation' | 'snapshot' | 'volume' mifResource :: Lens' ModifyIdFormat Text mifResource = lens _mifResource (\ s a -> s{_mifResource = a}); @@ -96,7 +96,7 @@         toQuery ModifyIdFormat'{..}           = mconcat               ["Action" =: ("ModifyIdFormat" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Resource" =: _mifResource,                "UseLongIds" =: _mifUseLongIds] 

@@ -0,0 +1,130 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.ModifyIdentityIdFormat+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Modifies the ID format of a resource for a specified IAM user, IAM role, or the root user for an account; or all IAM users, IAM roles, and the root user for an account. You can specify that resources should receive longer IDs (17-character IDs) when they are created.+--+-- The following resource types support longer IDs: 'instance' | 'reservation' | 'snapshot' | 'volume'. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/resource-ids.html Resource IDs> in the /Amazon Elastic Compute Cloud User Guide/.+--+-- This setting applies to the principal specified in the request; it does not apply to the principal that makes the request.+--+-- Resources created with longer IDs are visible to all IAM roles and users, regardless of these settings and provided that they have permission to use the relevant 'Describe' command for the resource type.+module Network.AWS.EC2.ModifyIdentityIdFormat+    (+    -- * Creating a Request+      modifyIdentityIdFormat+    , ModifyIdentityIdFormat+    -- * Request Lenses+    , miifResource+    , miifUseLongIds+    , miifPrincipalARN++    -- * Destructuring the Response+    , modifyIdentityIdFormatResponse+    , ModifyIdentityIdFormatResponse+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | Contains the parameters of ModifyIdentityIdFormat.+--+-- /See:/ 'modifyIdentityIdFormat' smart constructor.+data ModifyIdentityIdFormat = ModifyIdentityIdFormat'+    { _miifResource     :: !Text+    , _miifUseLongIds   :: !Bool+    , _miifPrincipalARN :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyIdentityIdFormat' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'miifResource'+--+-- * 'miifUseLongIds'+--+-- * 'miifPrincipalARN'+modifyIdentityIdFormat+    :: Text -- ^ 'miifResource'+    -> Bool -- ^ 'miifUseLongIds'+    -> Text -- ^ 'miifPrincipalARN'+    -> ModifyIdentityIdFormat+modifyIdentityIdFormat pResource_ pUseLongIds_ pPrincipalARN_ =+    ModifyIdentityIdFormat'+    { _miifResource = pResource_+    , _miifUseLongIds = pUseLongIds_+    , _miifPrincipalARN = pPrincipalARN_+    }++-- | The type of resource: 'instance' | 'reservation' | 'snapshot' | 'volume'+miifResource :: Lens' ModifyIdentityIdFormat Text+miifResource = lens _miifResource (\ s a -> s{_miifResource = a});++-- | Indicates whether the resource should use longer IDs (17-character IDs)+miifUseLongIds :: Lens' ModifyIdentityIdFormat Bool+miifUseLongIds = lens _miifUseLongIds (\ s a -> s{_miifUseLongIds = a});++-- | The ARN of the principal, which can be an IAM user, IAM role, or the root user. Specify 'all' to modify the ID format for all IAM users, IAM roles, and the root user of the account.+miifPrincipalARN :: Lens' ModifyIdentityIdFormat Text+miifPrincipalARN = lens _miifPrincipalARN (\ s a -> s{_miifPrincipalARN = a});++instance AWSRequest ModifyIdentityIdFormat where+        type Rs ModifyIdentityIdFormat =+             ModifyIdentityIdFormatResponse+        request = postQuery ec2+        response+          = receiveNull ModifyIdentityIdFormatResponse'++instance Hashable ModifyIdentityIdFormat++instance NFData ModifyIdentityIdFormat++instance ToHeaders ModifyIdentityIdFormat where+        toHeaders = const mempty++instance ToPath ModifyIdentityIdFormat where+        toPath = const "/"++instance ToQuery ModifyIdentityIdFormat where+        toQuery ModifyIdentityIdFormat'{..}+          = mconcat+              ["Action" =:+                 ("ModifyIdentityIdFormat" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "Resource" =: _miifResource,+               "UseLongIds" =: _miifUseLongIds,+               "PrincipalArn" =: _miifPrincipalARN]++-- | /See:/ 'modifyIdentityIdFormatResponse' smart constructor.+data ModifyIdentityIdFormatResponse =+    ModifyIdentityIdFormatResponse'+    deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ModifyIdentityIdFormatResponse' with the minimum fields required to make a request.+--+modifyIdentityIdFormatResponse+    :: ModifyIdentityIdFormatResponse+modifyIdentityIdFormatResponse = ModifyIdentityIdFormatResponse'++instance NFData ModifyIdentityIdFormatResponse

@@ -21,6 +21,8 @@ -- Modifies the specified attribute of the specified AMI. You can specify only one attribute at a time. -- -- AWS Marketplace product codes cannot be modified. Images with an AWS Marketplace product code cannot be made public.+--+-- The SriovNetSupport enhanced networking attribute cannot be changed using this command. Instead, enable SriovNetSupport on an instance and create an AMI from the instance. This will result in an image with SriovNetSupport enabled. module Network.AWS.EC2.ModifyImageAttribute     (     -- * Creating a Request@@ -166,7 +168,7 @@         toQuery ModifyImageAttribute'{..}           = mconcat               ["Action" =: ("ModifyImageAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Attribute" =: _miaAttribute,                toQuery (toQueryList "UserId" <$> _miaUserIds),                toQuery (toQueryList "UserGroup" <$> _miaUserGroups),

@@ -29,6 +29,7 @@     -- * Request Lenses     , mGroups     , mAttribute+    , mEnaSupport     , mSourceDestCheck     , mDisableAPITermination     , mKernel@@ -61,6 +62,7 @@ data ModifyInstanceAttribute = ModifyInstanceAttribute'     { _mGroups                            :: !(Maybe [Text])     , _mAttribute                         :: !(Maybe InstanceAttributeName)+    , _mEnaSupport                        :: !(Maybe AttributeBooleanValue)     , _mSourceDestCheck                   :: !(Maybe AttributeBooleanValue)     , _mDisableAPITermination             :: !(Maybe AttributeBooleanValue)     , _mKernel                            :: !(Maybe AttributeValue)@@ -84,6 +86,8 @@ -- -- * 'mAttribute' --+-- * 'mEnaSupport'+-- -- * 'mSourceDestCheck' -- -- * 'mDisableAPITermination'@@ -116,6 +120,7 @@     ModifyInstanceAttribute'     { _mGroups = Nothing     , _mAttribute = Nothing+    , _mEnaSupport = Nothing     , _mSourceDestCheck = Nothing     , _mDisableAPITermination = Nothing     , _mKernel = Nothing@@ -139,6 +144,12 @@ mAttribute :: Lens' ModifyInstanceAttribute (Maybe InstanceAttributeName) mAttribute = lens _mAttribute (\ s a -> s{_mAttribute = a}); +-- | Set to 'true' to enable enhanced networking with ENA for the instance.+--+-- This option is supported only for HVM instances. Specifying this option with a PV instance can make it unreachable.+mEnaSupport :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue)+mEnaSupport = lens _mEnaSupport (\ s a -> s{_mEnaSupport = a});+ -- | Specifies whether source\/destination checking is enabled. A value of 'true' means that checking is enabled, and 'false' means checking is disabled. This value must be 'false' for a NAT instance to perform NAT. mSourceDestCheck :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) mSourceDestCheck = lens _mSourceDestCheck (\ s a -> s{_mSourceDestCheck = a});@@ -163,9 +174,9 @@ mInstanceType :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) mInstanceType = lens _mInstanceType (\ s a -> s{_mInstanceType = a}); --- | Set to 'simple' to enable enhanced networking for the instance.+-- | Set to 'simple' to enable enhanced networking with the Intel 82599 Virtual Function interface for the instance. ----- There is no way to disable enhanced networking at this time.+-- There is no way to disable enhanced networking with the Intel 82599 Virtual Function interface at this time. -- -- This option is supported only for HVM instances. Specifying this option with a PV instance can make it unreachable. mSRIOVNetSupport :: Lens' ModifyInstanceAttribute (Maybe AttributeValue)@@ -175,7 +186,7 @@ mEBSOptimized :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) mEBSOptimized = lens _mEBSOptimized (\ s a -> s{_mEBSOptimized = a}); --- | Changes the instance\'s user data to the specified base64-encoded value. For command line tools, base64 encoding is performed for you.+-- | Changes the instance\'s user data to the specified value. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. mUserData :: Lens' ModifyInstanceAttribute (Maybe BlobAttributeValue) mUserData = lens _mUserData (\ s a -> s{_mUserData = a}); @@ -219,9 +230,10 @@           = mconcat               ["Action" =:                  ("ModifyInstanceAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery (toQueryList "GroupId" <$> _mGroups),                "Attribute" =: _mAttribute,+               "EnaSupport" =: _mEnaSupport,                "SourceDestCheck" =: _mSourceDestCheck,                "DisableApiTermination" =: _mDisableAPITermination,                "Kernel" =: _mKernel, "Ramdisk" =: _mRAMDisk,

@@ -20,7 +20,7 @@ -- -- Set the instance affinity value for a specific stopped instance and modify the instance tenancy setting. ----- Instance affinity is disabled by default. When instance affinity is 'host' and it is not associated with a specific Dedicated host, the next time it is launched it will automatically be associated with the host it lands on. This relationship will persist if the instance is stopped\/started, or rebooted.+-- Instance affinity is disabled by default. When instance affinity is 'host' and it is not associated with a specific Dedicated Host, the next time it is launched it will automatically be associated with the host it lands on. This relationship will persist if the instance is stopped\/started, or rebooted. -- -- You can modify the host ID associated with a stopped instance. If a stopped instance has a new host ID association, the instance will target that host when restarted. --@@ -89,7 +89,7 @@ mipAffinity :: Lens' ModifyInstancePlacement (Maybe Affinity) mipAffinity = lens _mipAffinity (\ s a -> s{_mipAffinity = a}); --- | The ID of the Dedicated host that the instance will have affinity with.+-- | The ID of the Dedicated Host that the instance will have affinity with. mipHostId :: Lens' ModifyInstancePlacement (Maybe Text) mipHostId = lens _mipHostId (\ s a -> s{_mipHostId = a}); @@ -126,7 +126,7 @@           = mconcat               ["Action" =:                  ("ModifyInstancePlacement" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Affinity" =: _mipAffinity, "HostId" =: _mipHostId,                "Tenancy" =: _mipTenancy,                "InstanceId" =: _mipInstanceId]

@@ -134,7 +134,7 @@           = mconcat               ["Action" =:                  ("ModifyNetworkInterfaceAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQuery                  (toQueryList "SecurityGroupId" <$> _mniaGroups),                "SourceDestCheck" =: _mniaSourceDestCheck,

@@ -111,7 +111,7 @@           = mconcat               ["Action" =:                  ("ModifyReservedInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ClientToken" =: _mriClientToken,                toQueryList "ReservedInstancesId"                  _mriReservedInstancesIds,

@@ -20,9 +20,9 @@ -- -- Adds or removes permission settings for the specified snapshot. You may add or remove specified AWS account IDs from a snapshot\'s list of create volume permissions, but you cannot do both in a single API call. If you need to both add and remove account IDs for a snapshot, you must use multiple API calls. ----- For more information on modifying snapshot permissions, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-modifying-snapshot-permissions.html Sharing Snapshots> in the /Amazon Elastic Compute Cloud User Guide/.+-- Encrypted snapshots and snapshots with AWS Marketplace product codes cannot be made public. Snapshots encrypted with your default CMK cannot be shared with other accounts. ----- Snapshots with AWS Marketplace product codes cannot be made public.+-- For more information on modifying snapshot permissions, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-modifying-snapshot-permissions.html Sharing Snapshots> in the /Amazon Elastic Compute Cloud User Guide/. module Network.AWS.EC2.ModifySnapshotAttribute     (     -- * Creating a Request@@ -145,7 +145,7 @@           = mconcat               ["Action" =:                  ("ModifySnapshotAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Attribute" =: _msaAttribute,                "CreateVolumePermission" =:                  _msaCreateVolumePermission,

@@ -115,7 +115,7 @@           = mconcat               ["Action" =:                  ("ModifySpotFleetRequest" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "TargetCapacity" =: _msfrTargetCapacity,                "ExcessCapacityTerminationPolicy" =:                  _msfrExcessCapacityTerminationPolicy,

@@ -92,7 +92,7 @@         toQuery ModifySubnetAttribute'{..}           = mconcat               ["Action" =: ("ModifySubnetAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "MapPublicIpOnLaunch" =: _msaMapPublicIPOnLaunch,                "SubnetId" =: _msaSubnetId] 

@@ -105,7 +105,7 @@         toQuery ModifyVPCAttribute'{..}           = mconcat               ["Action" =: ("ModifyVpcAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "EnableDnsHostnames" =: _mvaEnableDNSHostnames,                "EnableDnsSupport" =: _mvaEnableDNSSupport,                "VpcId" =: _mvaVPCId]

@@ -134,7 +134,7 @@         toQuery ModifyVPCEndpoint'{..}           = mconcat               ["Action" =: ("ModifyVpcEndpoint" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "PolicyDocument" =: _mvePolicyDocument,                toQuery                  (toQueryList "RemoveRouteTableId" <$>

@@ -24,7 +24,9 @@ -- -- -   Enable\/disable communication over the peering connection between instances in your VPC and an EC2-Classic instance that\'s linked to the peer VPC. ----- If the peered VPCs are in different accounts, each owner must initiate a separate request to enable or disable communication in either direction, depending on whether their VPC was the requester or accepter for the VPC peering connection. If the peered VPCs are in the same account, you can modify the requester and accepter options in the same request. To confirm which VPC is the accepter and requester for a VPC peering connection, use the < DescribeVpcPeeringConnections> command.+-- -   Enable\/disable a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC.+--+-- If the peered VPCs are in different accounts, each owner must initiate a separate request to modify the peering connection options, depending on whether their VPC was the requester or accepter for the VPC peering connection. If the peered VPCs are in the same account, you can modify the requester and accepter options in the same request. To confirm which VPC is the accepter and requester for a VPC peering connection, use the < DescribeVpcPeeringConnections> command. module Network.AWS.EC2.ModifyVPCPeeringConnectionOptions     (     -- * Creating a Request@@ -129,7 +131,7 @@           = mconcat               ["Action" =:                  ("ModifyVpcPeeringConnectionOptions" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "RequesterPeeringConnectionOptions" =:                  _mvpcoRequesterPeeringConnectionOptions,                "AccepterPeeringConnectionOptions" =:

@@ -105,7 +105,7 @@         toQuery ModifyVolumeAttribute'{..}           = mconcat               ["Action" =: ("ModifyVolumeAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "AutoEnableIO" =: _mvaAutoEnableIO,                "DryRun" =: _mvaDryRun, "VolumeId" =: _mvaVolumeId] 

@@ -99,7 +99,7 @@         toQuery MonitorInstances'{..}           = mconcat               ["Action" =: ("MonitorInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _miDryRun,                toQueryList "InstanceId" _miInstanceIds] 

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Moves an Elastic IP address from the EC2-Classic platform to the EC2-VPC platform. The Elastic IP address must be allocated to your account for more than 24 hours, and it must not be associated with an instance. After the Elastic IP address is moved, it is no longer available for use in the EC2-Classic platform, unless you move it back using the < RestoreAddressToClassic> request. You cannot move an Elastic IP address that was originally allocated for use in the EC2-VPC platform to the EC2-Classic platform. You cannot migrate an Elastic IP address that\'s associated with a reverse DNS record. Contact AWS account and billing support to remove the reverse DNS record.+-- Moves an Elastic IP address from the EC2-Classic platform to the EC2-VPC platform. The Elastic IP address must be allocated to your account for more than 24 hours, and it must not be associated with an instance. After the Elastic IP address is moved, it is no longer available for use in the EC2-Classic platform, unless you move it back using the < RestoreAddressToClassic> request. You cannot move an Elastic IP address that was originally allocated for use in the EC2-VPC platform to the EC2-Classic platform. module Network.AWS.EC2.MoveAddressToVPC     (     -- * Creating a Request@@ -100,7 +100,7 @@         toQuery MoveAddressToVPC'{..}           = mconcat               ["Action" =: ("MoveAddressToVpc" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _matvDryRun, "PublicIp" =: _matvPublicIP]  -- | Contains the output of MoveAddressToVpc.

@@ -0,0 +1,207 @@+{-# LANGUAGE DeriveDataTypeable #-}+{-# LANGUAGE DeriveGeneric      #-}+{-# LANGUAGE OverloadedStrings  #-}+{-# LANGUAGE RecordWildCards    #-}+{-# LANGUAGE TypeFamilies       #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}+{-# OPTIONS_GHC -fno-warn-unused-binds   #-}+{-# OPTIONS_GHC -fno-warn-unused-matches #-}++-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- |+-- Module      : Network.AWS.EC2.PurchaseHostReservation+-- Copyright   : (c) 2013-2016 Brendan Hay+-- License     : Mozilla Public License, v. 2.0.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : auto-generated+-- Portability : non-portable (GHC extensions)+--+-- Purchase a reservation with configurations that match those of your Dedicated Host. You must have active Dedicated Hosts in your account before you purchase a reservation. This action results in the specified reservation being purchased and charged to your account.+module Network.AWS.EC2.PurchaseHostReservation+    (+    -- * Creating a Request+      purchaseHostReservation+    , PurchaseHostReservation+    -- * Request Lenses+    , phrCurrencyCode+    , phrClientToken+    , phrLimitPrice+    , phrOfferingId+    , phrHostIdSet++    -- * Destructuring the Response+    , purchaseHostReservationResponse+    , PurchaseHostReservationResponse+    -- * Response Lenses+    , phrrsCurrencyCode+    , phrrsClientToken+    , phrrsTotalHourlyPrice+    , phrrsTotalUpfrontPrice+    , phrrsPurchase+    , phrrsResponseStatus+    ) where++import           Network.AWS.EC2.Types+import           Network.AWS.EC2.Types.Product+import           Network.AWS.Lens+import           Network.AWS.Prelude+import           Network.AWS.Request+import           Network.AWS.Response++-- | /See:/ 'purchaseHostReservation' smart constructor.+data PurchaseHostReservation = PurchaseHostReservation'+    { _phrCurrencyCode :: !(Maybe CurrencyCodeValues)+    , _phrClientToken  :: !(Maybe Text)+    , _phrLimitPrice   :: !(Maybe Text)+    , _phrOfferingId   :: !Text+    , _phrHostIdSet    :: ![Text]+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PurchaseHostReservation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'phrCurrencyCode'+--+-- * 'phrClientToken'+--+-- * 'phrLimitPrice'+--+-- * 'phrOfferingId'+--+-- * 'phrHostIdSet'+purchaseHostReservation+    :: Text -- ^ 'phrOfferingId'+    -> PurchaseHostReservation+purchaseHostReservation pOfferingId_ =+    PurchaseHostReservation'+    { _phrCurrencyCode = Nothing+    , _phrClientToken = Nothing+    , _phrLimitPrice = Nothing+    , _phrOfferingId = pOfferingId_+    , _phrHostIdSet = mempty+    }++-- | The currency in which the 'totalUpfrontPrice', 'LimitPrice', and 'totalHourlyPrice' amounts are specified. At this time, the only supported currency is 'USD'.+phrCurrencyCode :: Lens' PurchaseHostReservation (Maybe CurrencyCodeValues)+phrCurrencyCode = lens _phrCurrencyCode (\ s a -> s{_phrCurrencyCode = a});++-- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Run_Instance_Idempotency.html How to Ensure Idempotency> in the /Amazon Elastic Compute Cloud User Guide/.+phrClientToken :: Lens' PurchaseHostReservation (Maybe Text)+phrClientToken = lens _phrClientToken (\ s a -> s{_phrClientToken = a});++-- | The specified limit is checked against the total upfront cost of the reservation (calculated as the offering\'s upfront cost multiplied by the host count). If the total upfront cost is greater than the specified price limit, the request will fail. This is used to ensure that the purchase does not exceed the expected upfront cost of the purchase. At this time, the only supported currency is 'USD'. For example, to indicate a limit price of USD 100, specify 100.00.+phrLimitPrice :: Lens' PurchaseHostReservation (Maybe Text)+phrLimitPrice = lens _phrLimitPrice (\ s a -> s{_phrLimitPrice = a});++-- | The ID of the offering.+phrOfferingId :: Lens' PurchaseHostReservation Text+phrOfferingId = lens _phrOfferingId (\ s a -> s{_phrOfferingId = a});++-- | The ID\/s of the Dedicated Host\/s that the reservation will be associated with.+phrHostIdSet :: Lens' PurchaseHostReservation [Text]+phrHostIdSet = lens _phrHostIdSet (\ s a -> s{_phrHostIdSet = a}) . _Coerce;++instance AWSRequest PurchaseHostReservation where+        type Rs PurchaseHostReservation =+             PurchaseHostReservationResponse+        request = postQuery ec2+        response+          = receiveXML+              (\ s h x ->+                 PurchaseHostReservationResponse' <$>+                   (x .@? "currencyCode") <*> (x .@? "clientToken") <*>+                     (x .@? "totalHourlyPrice")+                     <*> (x .@? "totalUpfrontPrice")+                     <*>+                     (x .@? "purchase" .!@ mempty >>=+                        may (parseXMLList "member"))+                     <*> (pure (fromEnum s)))++instance Hashable PurchaseHostReservation++instance NFData PurchaseHostReservation++instance ToHeaders PurchaseHostReservation where+        toHeaders = const mempty++instance ToPath PurchaseHostReservation where+        toPath = const "/"++instance ToQuery PurchaseHostReservation where+        toQuery PurchaseHostReservation'{..}+          = mconcat+              ["Action" =:+                 ("PurchaseHostReservation" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),+               "CurrencyCode" =: _phrCurrencyCode,+               "ClientToken" =: _phrClientToken,+               "LimitPrice" =: _phrLimitPrice,+               "OfferingId" =: _phrOfferingId,+               toQueryList "HostIdSet" _phrHostIdSet]++-- | /See:/ 'purchaseHostReservationResponse' smart constructor.+data PurchaseHostReservationResponse = PurchaseHostReservationResponse'+    { _phrrsCurrencyCode      :: !(Maybe CurrencyCodeValues)+    , _phrrsClientToken       :: !(Maybe Text)+    , _phrrsTotalHourlyPrice  :: !(Maybe Text)+    , _phrrsTotalUpfrontPrice :: !(Maybe Text)+    , _phrrsPurchase          :: !(Maybe [Purchase])+    , _phrrsResponseStatus    :: !Int+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'PurchaseHostReservationResponse' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'phrrsCurrencyCode'+--+-- * 'phrrsClientToken'+--+-- * 'phrrsTotalHourlyPrice'+--+-- * 'phrrsTotalUpfrontPrice'+--+-- * 'phrrsPurchase'+--+-- * 'phrrsResponseStatus'+purchaseHostReservationResponse+    :: Int -- ^ 'phrrsResponseStatus'+    -> PurchaseHostReservationResponse+purchaseHostReservationResponse pResponseStatus_ =+    PurchaseHostReservationResponse'+    { _phrrsCurrencyCode = Nothing+    , _phrrsClientToken = Nothing+    , _phrrsTotalHourlyPrice = Nothing+    , _phrrsTotalUpfrontPrice = Nothing+    , _phrrsPurchase = Nothing+    , _phrrsResponseStatus = pResponseStatus_+    }++-- | The currency in which the 'totalUpfrontPrice' and 'totalHourlyPrice' amounts are specified. At this time, the only supported currency is 'USD'.+phrrsCurrencyCode :: Lens' PurchaseHostReservationResponse (Maybe CurrencyCodeValues)+phrrsCurrencyCode = lens _phrrsCurrencyCode (\ s a -> s{_phrrsCurrencyCode = a});++-- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Run_Instance_Idempotency.html How to Ensure Idempotency> in the /Amazon Elastic Compute Cloud User Guide/+phrrsClientToken :: Lens' PurchaseHostReservationResponse (Maybe Text)+phrrsClientToken = lens _phrrsClientToken (\ s a -> s{_phrrsClientToken = a});++-- | The total hourly price of the reservation calculated per hour.+phrrsTotalHourlyPrice :: Lens' PurchaseHostReservationResponse (Maybe Text)+phrrsTotalHourlyPrice = lens _phrrsTotalHourlyPrice (\ s a -> s{_phrrsTotalHourlyPrice = a});++-- | The total amount that will be charged to your account when you purchase the reservation.+phrrsTotalUpfrontPrice :: Lens' PurchaseHostReservationResponse (Maybe Text)+phrrsTotalUpfrontPrice = lens _phrrsTotalUpfrontPrice (\ s a -> s{_phrrsTotalUpfrontPrice = a});++-- | Describes the details of the purchase.+phrrsPurchase :: Lens' PurchaseHostReservationResponse [Purchase]+phrrsPurchase = lens _phrrsPurchase (\ s a -> s{_phrrsPurchase = a}) . _Default . _Coerce;++-- | The response status code.+phrrsResponseStatus :: Lens' PurchaseHostReservationResponse Int+phrrsResponseStatus = lens _phrrsResponseStatus (\ s a -> s{_phrrsResponseStatus = a});++instance NFData PurchaseHostReservationResponse

@@ -128,7 +128,7 @@           = mconcat               ["Action" =:                  ("PurchaseReservedInstancesOffering" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "LimitPrice" =: _prioLimitPrice,                "DryRun" =: _prioDryRun,                "ReservedInstancesOfferingId" =:

@@ -115,7 +115,7 @@           = mconcat               ["Action" =:                  ("PurchaseScheduledInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ClientToken" =: _psiClientToken,                "DryRun" =: _psiDryRun,                toQueryList "PurchaseRequest" _psiPurchaseRequests]

@@ -94,7 +94,7 @@         toQuery RebootInstances'{..}           = mconcat               ["Action" =: ("RebootInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _rebDryRun,                toQueryList "InstanceId" _rebInstanceIds] 

@@ -41,6 +41,7 @@     -- * Request Lenses     , riVirtualizationType     , riImageLocation+    , riEnaSupport     , riRAMDiskId     , riKernelId     , riRootDeviceName@@ -72,6 +73,7 @@ data RegisterImage = RegisterImage'     { _riVirtualizationType  :: !(Maybe Text)     , _riImageLocation       :: !(Maybe Text)+    , _riEnaSupport          :: !(Maybe Bool)     , _riRAMDiskId           :: !(Maybe Text)     , _riKernelId            :: !(Maybe Text)     , _riRootDeviceName      :: !(Maybe Text)@@ -91,6 +93,8 @@ -- -- * 'riImageLocation' --+-- * 'riEnaSupport'+-- -- * 'riRAMDiskId' -- -- * 'riKernelId'@@ -115,6 +119,7 @@     RegisterImage'     { _riVirtualizationType = Nothing     , _riImageLocation = Nothing+    , _riEnaSupport = Nothing     , _riRAMDiskId = Nothing     , _riKernelId = Nothing     , _riRootDeviceName = Nothing@@ -136,6 +141,12 @@ riImageLocation :: Lens' RegisterImage (Maybe Text) riImageLocation = lens _riImageLocation (\ s a -> s{_riImageLocation = a}); +-- | Set to 'true' to enable enhanced networking with ENA for the AMI and any instances that you launch from the AMI.+--+-- This option is supported only for HVM AMIs. Specifying this option with a PV AMI can make instances launched from the AMI unreachable.+riEnaSupport :: Lens' RegisterImage (Maybe Bool)+riEnaSupport = lens _riEnaSupport (\ s a -> s{_riEnaSupport = a});+ -- | The ID of the RAM disk. riRAMDiskId :: Lens' RegisterImage (Maybe Text) riRAMDiskId = lens _riRAMDiskId (\ s a -> s{_riRAMDiskId = a});@@ -148,9 +159,9 @@ riRootDeviceName :: Lens' RegisterImage (Maybe Text) riRootDeviceName = lens _riRootDeviceName (\ s a -> s{_riRootDeviceName = a}); --- | Set to 'simple' to enable enhanced networking for the AMI and any instances that you launch from the AMI.+-- | Set to 'simple' to enable enhanced networking with the Intel 82599 Virtual Function interface for the AMI and any instances that you launch from the AMI. ----- There is no way to disable enhanced networking at this time.+-- There is no way to disable 'sriovNetSupport' at this time. -- -- This option is supported only for HVM AMIs. Specifying this option with a PV AMI can make instances launched from the AMI unreachable. riSRIOVNetSupport :: Lens' RegisterImage (Maybe Text)@@ -203,9 +214,10 @@         toQuery RegisterImage'{..}           = mconcat               ["Action" =: ("RegisterImage" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VirtualizationType" =: _riVirtualizationType,                "ImageLocation" =: _riImageLocation,+               "EnaSupport" =: _riEnaSupport,                "RamdiskId" =: _riRAMDiskId,                "KernelId" =: _riKernelId,                "RootDeviceName" =: _riRootDeviceName,

@@ -100,7 +100,7 @@           = mconcat               ["Action" =:                  ("RejectVpcPeeringConnection" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _rvpcDryRun,                "VpcPeeringConnectionId" =:                  _rvpcVPCPeeringConnectionId]

@@ -105,7 +105,7 @@         toQuery ReleaseAddress'{..}           = mconcat               ["Action" =: ("ReleaseAddress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "AllocationId" =: _raAllocationId,                "PublicIp" =: _raPublicIP, "DryRun" =: _raDryRun] 

@@ -18,11 +18,11 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- When you no longer want to use a Dedicated host it can be released. On-Demand billing is stopped and the host goes into 'released' state. The host ID of Dedicated hosts that have been released can no longer be specified in another request, e.g., ModifyHosts. You must stop or terminate all instances on a host before it can be released.+-- When you no longer want to use an On-Demand Dedicated Host it can be released. On-Demand billing is stopped and the host goes into 'released' state. The host ID of Dedicated Hosts that have been released can no longer be specified in another request, e.g., ModifyHosts. You must stop or terminate all instances on a host before it can be released. ----- When Dedicated hosts are released, it make take some time for them to stop counting toward your limit and you may receive capacity errors when trying to allocate new Dedicated hosts. Try waiting a few minutes, and then try again.+-- When Dedicated Hosts are released, it make take some time for them to stop counting toward your limit and you may receive capacity errors when trying to allocate new Dedicated hosts. Try waiting a few minutes, and then try again. ----- Released hosts will still appear in a DescribeHosts response.+-- Released hosts will still appear in a < DescribeHosts> response. module Network.AWS.EC2.ReleaseHosts     (     -- * Creating a Request@@ -66,7 +66,7 @@     { _rhHostIds = mempty     } --- | The IDs of the Dedicated hosts you want to release.+-- | The IDs of the Dedicated Hosts you want to release. rhHostIds :: Lens' ReleaseHosts [Text] rhHostIds = lens _rhHostIds (\ s a -> s{_rhHostIds = a}) . _Coerce; @@ -98,7 +98,7 @@         toQuery ReleaseHosts'{..}           = mconcat               ["Action" =: ("ReleaseHosts" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                toQueryList "HostId" _rhHostIds]  -- | Contains the output of ReleaseHosts.@@ -129,11 +129,11 @@     , _rhrsResponseStatus = pResponseStatus_     } --- | The IDs of the Dedicated hosts that could not be released, including an error message.+-- | The IDs of the Dedicated Hosts that could not be released, including an error message. rhrsUnsuccessful :: Lens' ReleaseHostsResponse [UnsuccessfulItem] rhrsUnsuccessful = lens _rhrsUnsuccessful (\ s a -> s{_rhrsUnsuccessful = a}) . _Default . _Coerce; --- | The IDs of the Dedicated hosts that were successfully released.+-- | The IDs of the Dedicated Hosts that were successfully released. rhrsSuccessful :: Lens' ReleaseHostsResponse [Text] rhrsSuccessful = lens _rhrsSuccessful (\ s a -> s{_rhrsSuccessful = a}) . _Default . _Coerce; 

@@ -111,7 +111,7 @@           = mconcat               ["Action" =:                  ("ReplaceNetworkAclAssociation" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _rnaaDryRun,                "AssociationId" =: _rnaaAssociationId,                "NetworkAclId" =: _rnaaNetworkACLId]

@@ -164,7 +164,7 @@           = mconcat               ["Action" =:                  ("ReplaceNetworkAclEntry" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Icmp" =: _rnaeICMPTypeCode,                "PortRange" =: _rnaePortRange,                "DryRun" =: _rnaeDryRun,

@@ -148,7 +148,7 @@         toQuery ReplaceRoute'{..}           = mconcat               ["Action" =: ("ReplaceRoute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "VpcPeeringConnectionId" =:                  _rrVPCPeeringConnectionId,                "InstanceId" =: _rrInstanceId,

@@ -113,7 +113,7 @@           = mconcat               ["Action" =:                  ("ReplaceRouteTableAssociation" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _rrtaDryRun,                "AssociationId" =: _rrtaAssociationId,                "RouteTableId" =: _rrtaRouteTableId]

@@ -158,7 +158,7 @@         toQuery ReportInstanceStatus'{..}           = mconcat               ["Action" =: ("ReportInstanceStatus" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "StartTime" =: _risStartTime,                "EndTime" =: _risEndTime,                "Description" =: _risDescription,

@@ -106,7 +106,7 @@         toQuery RequestSpotFleet'{..}           = mconcat               ["Action" =: ("RequestSpotFleet" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _rsfDryRun,                "SpotFleetRequestConfig" =:                  _rsfSpotFleetRequestConfig]

@@ -202,7 +202,7 @@         toQuery RequestSpotInstances'{..}           = mconcat               ["Action" =: ("RequestSpotInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "BlockDurationMinutes" =: _rsisBlockDurationMinutes,                "ClientToken" =: _rsisClientToken,                "InstanceCount" =: _rsisInstanceCount,

@@ -104,7 +104,7 @@         toQuery ResetImageAttribute'{..}           = mconcat               ["Action" =: ("ResetImageAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _resDryRun, "ImageId" =: _resImageId,                "Attribute" =: _resAttribute] 

@@ -18,9 +18,9 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Resets an attribute of an instance to its default value. To reset the 'kernel' or 'ramdisk', the instance must be in a stopped state. To reset the 'SourceDestCheck', the instance can be either running or stopped.+-- Resets an attribute of an instance to its default value. To reset the 'kernel' or 'ramdisk', the instance must be in a stopped state. To reset the 'sourceDestCheck', the instance can be either running or stopped. ----- The 'SourceDestCheck' attribute controls whether source\/destination checking is enabled. The default value is 'true', which means checking is enabled. This value must be 'false' for a NAT instance to perform NAT. For more information, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_NAT_Instance.html NAT Instances> in the /Amazon Virtual Private Cloud User Guide/.+-- The 'sourceDestCheck' attribute controls whether source\/destination checking is enabled. The default value is 'true', which means checking is enabled. This value must be 'false' for a NAT instance to perform NAT. For more information, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_NAT_Instance.html NAT Instances> in the /Amazon Virtual Private Cloud User Guide/. module Network.AWS.EC2.ResetInstanceAttribute     (     -- * Creating a Request@@ -81,6 +81,8 @@ riaInstanceId = lens _riaInstanceId (\ s a -> s{_riaInstanceId = a});  -- | The attribute to reset.+--+-- You can only reset the following attributes: 'kernel' | 'ramdisk' | 'sourceDestCheck'. To change an instance attribute, use < ModifyInstanceAttribute>. riaAttribute :: Lens' ResetInstanceAttribute InstanceAttributeName riaAttribute = lens _riaAttribute (\ s a -> s{_riaAttribute = a}); @@ -106,7 +108,7 @@           = mconcat               ["Action" =:                  ("ResetInstanceAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _riaDryRun,                "InstanceId" =: _riaInstanceId,                "Attribute" =: _riaAttribute]

@@ -105,7 +105,7 @@           = mconcat               ["Action" =:                  ("ResetNetworkInterfaceAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "SourceDestCheck" =: _rniaSourceDestCheck,                "DryRun" =: _rniaDryRun,                "NetworkInterfaceId" =: _rniaNetworkInterfaceId]

@@ -106,7 +106,7 @@           = mconcat               ["Action" =:                  ("ResetSnapshotAttribute" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _rsaDryRun,                "SnapshotId" =: _rsaSnapshotId,                "Attribute" =: _rsaAttribute]

@@ -18,7 +18,7 @@ -- Stability   : auto-generated -- Portability : non-portable (GHC extensions) ----- Restores an Elastic IP address that was previously moved to the EC2-VPC platform back to the EC2-Classic platform. You cannot move an Elastic IP address that was originally allocated for use in EC2-VPC. The Elastic IP address must not be associated with an instance or network interface. You cannot restore an Elastic IP address that\'s associated with a reverse DNS record. Contact AWS account and billing support to remove the reverse DNS record.+-- Restores an Elastic IP address that was previously moved to the EC2-VPC platform back to the EC2-Classic platform. You cannot move an Elastic IP address that was originally allocated for use in EC2-VPC. The Elastic IP address must not be associated with an instance or network interface. module Network.AWS.EC2.RestoreAddressToClassic     (     -- * Creating a Request@@ -102,7 +102,7 @@           = mconcat               ["Action" =:                  ("RestoreAddressToClassic" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _ratcDryRun, "PublicIp" =: _ratcPublicIP]  -- | Contains the output of RestoreAddressToClassic.

@@ -161,7 +161,7 @@           = mconcat               ["Action" =:                  ("RevokeSecurityGroupEgress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "FromPort" =: _rsgeFromPort,                toQuery                  (toQueryList "IpPermissions" <$> _rsgeIPPermissions),

@@ -169,7 +169,7 @@           = mconcat               ["Action" =:                  ("RevokeSecurityGroupIngress" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "FromPort" =: _rsgiFromPort,                toQuery                  (toQueryList "IpPermissions" <$> _rsgiIPPermissions),

@@ -24,6 +24,8 @@ -- -- To ensure faster instance launches, break up large requests into smaller batches. For example, create five separate launch requests for 100 instances each instead of one launch request for 500 instances. --+-- To tag your instance, ensure that it is 'running' as < CreateTags> requires a resource ID. For more information about tagging, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Amazon EC2 Resources>.+-- -- If you don\'t specify a security group when launching an instance, Amazon EC2 uses the default security group. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Security Groups> in the /Amazon Elastic Compute Cloud User Guide/. -- -- [EC2-VPC only accounts] If you don\'t specify a subnet in the request, we choose a default subnet from your default VPC for you.@@ -263,7 +265,7 @@ rEBSOptimized :: Lens' RunInstances (Maybe Bool) rEBSOptimized = lens _rEBSOptimized (\ s a -> s{_rEBSOptimized = a}); --- | Data to configure the instance, or a script to run during instance launch. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/user-data.html Running Commands on Your Linux Instance at Launch> (Linux) and <http://docs.aws.amazon.com/AWSEC2/latest/WindowsGuide/ec2-instance-metadata.html#instancedata-add-user-data Adding User Data> (Windows). For API calls, the text must be base64-encoded. For command line tools, the encoding is performed for you, and you can load the text from a file.+-- | The user data to make available to the instance. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/user-data.html Running Commands on Your Linux Instance at Launch> (Linux) and <http://docs.aws.amazon.com/AWSEC2/latest/WindowsGuide/ec2-instance-metadata.html#instancedata-add-user-data Adding User Data> (Windows). If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. rUserData :: Lens' RunInstances (Maybe Text) rUserData = lens _rUserData (\ s a -> s{_rUserData = a}); @@ -290,6 +292,8 @@ rInstanceInitiatedShutdownBehavior = lens _rInstanceInitiatedShutdownBehavior (\ s a -> s{_rInstanceInitiatedShutdownBehavior = a});  -- | The block device mapping.+--+-- Supplying both a snapshot ID and an encryption value as arguments for block-device mapping results in an error. This is because only blank volumes can be encrypted on start, and these are not created from a snapshot. If a snapshot is the basis for the volume, it contains data by definition and its encryption status cannot be changed using this action. rBlockDeviceMappings :: Lens' RunInstances [BlockDeviceMapping] rBlockDeviceMappings = lens _rBlockDeviceMappings (\ s a -> s{_rBlockDeviceMappings = a}) . _Default . _Coerce; @@ -336,7 +340,7 @@         toQuery RunInstances'{..}           = mconcat               ["Action" =: ("RunInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "AdditionalInfo" =: _rAdditionalInfo,                toQuery                  (toQueryList "SecurityGroupId" <$>

@@ -105,7 +105,7 @@ rsiScheduledInstanceId :: Lens' RunScheduledInstances Text rsiScheduledInstanceId = lens _rsiScheduledInstanceId (\ s a -> s{_rsiScheduledInstanceId = a}); --- | The launch specification.+-- | The launch specification. You must match the instance type, Availability Zone, network, and platform of the schedule that you purchased. rsiLaunchSpecification :: Lens' RunScheduledInstances ScheduledInstancesLaunchSpecification rsiLaunchSpecification = lens _rsiLaunchSpecification (\ s a -> s{_rsiLaunchSpecification = a}); @@ -135,7 +135,7 @@         toQuery RunScheduledInstances'{..}           = mconcat               ["Action" =: ("RunScheduledInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "ClientToken" =: _rsiClientToken,                "InstanceCount" =: _rsiInstanceCount,                "DryRun" =: _rsiDryRun,

@@ -116,7 +116,7 @@         toQuery StartInstances'{..}           = mconcat               ["Action" =: ("StartInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "AdditionalInfo" =: _sAdditionalInfo,                "DryRun" =: _sDryRun,                toQueryList "InstanceId" _sInstanceIds]

@@ -28,7 +28,7 @@ -- -- Stopping an instance is different to rebooting or terminating it. For example, when you stop an instance, the root device and any other devices attached to the instance persist. When you terminate an instance, the root device and any other devices attached during the instance launch are automatically deleted. For more information about the differences between rebooting, stopping, and terminating instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-instance-lifecycle.html Instance Lifecycle> in the /Amazon Elastic Compute Cloud User Guide/. ----- For more information about troubleshooting, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/TroubleshootingInstancesStopping.html Troubleshooting Stopping Your Instance> in the /Amazon Elastic Compute Cloud User Guide/.+-- When you stop an instance, we attempt to shut it down forcibly after a short while. If your instance appears stuck in the stopping state after a period of time, there may be an issue with the underlying host computer. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/TroubleshootingInstancesStopping.html Troubleshooting Stopping Your Instance> in the /Amazon Elastic Compute Cloud User Guide/. module Network.AWS.EC2.StopInstances     (     -- * Creating a Request@@ -120,7 +120,7 @@         toQuery StopInstances'{..}           = mconcat               ["Action" =: ("StopInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "Force" =: _siForce, "DryRun" =: _siDryRun,                toQueryList "InstanceId" _siInstanceIds] 

@@ -108,7 +108,7 @@         toQuery TerminateInstances'{..}           = mconcat               ["Action" =: ("TerminateInstances" :: ByteString),-               "Version" =: ("2015-10-01" :: ByteString),+               "Version" =: ("2016-04-01" :: ByteString),                "DryRun" =: _tiDryRun,                toQueryList "InstanceId" _tiInstanceIds] 

@@ -23,6 +23,9 @@     -- * AccountAttributeName     , AccountAttributeName (..) +    -- * ActivityStatus+    , ActivityStatus (..)+     -- * AddressStatus     , AddressStatus (..) @@ -95,6 +98,9 @@     -- * ExportTaskState     , ExportTaskState (..) +    -- * FleetType+    , FleetType (..)+     -- * FlowLogsResourceType     , FlowLogsResourceType (..) @@ -158,6 +164,9 @@     -- * OperationType     , OperationType (..) +    -- * PaymentOption+    , PaymentOption (..)+     -- * PermissionGroup     , PermissionGroup (..) @@ -185,6 +194,9 @@     -- * ReportStatusType     , ReportStatusType (..) +    -- * ReservationState+    , ReservationState (..)+     -- * ReservedInstanceState     , ReservedInstanceState (..) @@ -597,6 +609,17 @@     , hiInstanceId     , hiInstanceType +    -- * HostOffering+    , HostOffering+    , hostOffering+    , hoInstanceFamily+    , hoCurrencyCode+    , hoHourlyPrice+    , hoUpfrontPrice+    , hoOfferingId+    , hoDuration+    , hoPaymentOption+     -- * HostProperties     , HostProperties     , hostProperties@@ -605,6 +628,23 @@     , hpCores     , hpSockets +    -- * HostReservation+    , HostReservation+    , hostReservation+    , hrState+    , hrInstanceFamily+    , hrCurrencyCode+    , hrHostReservationId+    , hrStart+    , hrHourlyPrice+    , hrCount+    , hrUpfrontPrice+    , hrEnd+    , hrHostIdSet+    , hrOfferingId+    , hrDuration+    , hrPaymentOption+     -- * IAMInstanceProfile     , IAMInstanceProfile     , iamInstanceProfile@@ -649,6 +689,7 @@     , Image     , image     , iPlatform+    , iEnaSupport     , iImageOwnerAlias     , iRAMDiskId     , iKernelId@@ -754,6 +795,7 @@     , insPlatform     , insSecurityGroups     , insClientToken+    , insEnaSupport     , insSourceDestCheck     , insVPCId     , insKeyName@@ -998,6 +1040,7 @@     , ngNatGatewayId     , ngSubnetId     , ngDeleteTime+    , ngProvisionedBandwidth     , ngNatGatewayAddresses     , ngCreateTime @@ -1105,12 +1148,14 @@     , peeringConnectionOptions     , pcoAllowEgressFromLocalVPCToRemoteClassicLink     , pcoAllowEgressFromLocalClassicLinkToRemoteVPC+    , pcoAllowDNSResolutionFromRemoteVPC      -- * PeeringConnectionOptionsRequest     , PeeringConnectionOptionsRequest     , peeringConnectionOptionsRequest-    , pcorAllowEgressFromLocalClassicLinkToRemoteVPC     , pcorAllowEgressFromLocalVPCToRemoteClassicLink+    , pcorAllowEgressFromLocalClassicLinkToRemoteVPC+    , pcorAllowDNSResolutionFromRemoteVPC      -- * Placement     , Placement@@ -1184,6 +1229,27 @@     , propagatingVGW     , pvGatewayId +    -- * ProvisionedBandwidth+    , ProvisionedBandwidth+    , provisionedBandwidth+    , pbStatus+    , pbRequested+    , pbProvisioned+    , pbRequestTime+    , pbProvisionTime++    -- * Purchase+    , Purchase+    , purchase+    , pInstanceFamily+    , pCurrencyCode+    , pHostReservationId+    , pHourlyPrice+    , pUpfrontPrice+    , pHostIdSet+    , pDuration+    , pPaymentOption+     -- * PurchaseRequest     , PurchaseRequest     , purchaseRequest@@ -1505,6 +1571,13 @@     , sgGroupName     , sgDescription +    -- * SecurityGroupReference+    , SecurityGroupReference+    , securityGroupReference+    , sgrVPCPeeringConnectionId+    , sgrGroupId+    , sgrReferencingVPCId+     -- * SlotDateTimeRangeRequest     , SlotDateTimeRangeRequest     , slotDateTimeRangeRequest@@ -1608,6 +1681,7 @@     -- * SpotFleetRequestConfig     , SpotFleetRequestConfig     , spotFleetRequestConfig+    , sfrcActivityStatus     , sfrcSpotFleetRequestId     , sfrcSpotFleetRequestState     , sfrcSpotFleetRequestConfig@@ -1620,6 +1694,8 @@     , sfrcdExcessCapacityTerminationPolicy     , sfrcdValidUntil     , sfrcdTerminateInstancesWithExpiration+    , sfrcdFulfilledCapacity+    , sfrcdType     , sfrcdValidFrom     , sfrcdAllocationStrategy     , sfrcdSpotPrice@@ -1677,6 +1753,26 @@     , sAvailabilityZone     , sTimestamp +    -- * StaleIPPermission+    , StaleIPPermission+    , staleIPPermission+    , sipFromPort+    , sipUserIdGroupPairs+    , sipPrefixListIds+    , sipIPProtocol+    , sipToPort+    , sipIPRanges++    -- * StaleSecurityGroup+    , StaleSecurityGroup+    , staleSecurityGroup+    , ssgVPCId+    , ssgGroupName+    , ssgStaleIPPermissionsEgress+    , ssgStaleIPPermissions+    , ssgDescription+    , ssgGroupId+     -- * StateReason     , StateReason     , stateReason@@ -1813,6 +1909,7 @@     , vpcPeeringConnectionOptionsDescription     , vpcodAllowEgressFromLocalVPCToRemoteClassicLink     , vpcodAllowEgressFromLocalClassicLinkToRemoteVPC+    , vpcodAllowDNSResolutionFromRemoteVPC      -- * VPCPeeringConnectionStateReason     , VPCPeeringConnectionStateReason@@ -1946,14 +2043,14 @@ import           Network.AWS.Prelude import           Network.AWS.Sign.V4 --- | API version '2015-10-01' of the Amazon Elastic Compute Cloud SDK configuration.+-- | API version '2016-04-01' of the Amazon Elastic Compute Cloud SDK configuration. ec2 :: Service ec2 =     Service     { _svcAbbrev = "EC2"     , _svcSigner = v4     , _svcPrefix = "ec2"-    , _svcVersion = "2015-10-01"+    , _svcVersion = "2016-04-01"     , _svcEndpoint = defaultEndpoint ec2     , _svcTimeout = Just 70     , _svcCheck = statusSuccess

@@ -238,7 +238,7 @@  instance NFData Address --- | The value to use when a resource attribute accepts a Boolean value.+-- | Describes a value for a resource attribute that is a Boolean value. -- -- /See:/ 'attributeBooleanValue' smart constructor. newtype AttributeBooleanValue = AttributeBooleanValue'@@ -257,7 +257,7 @@     { _abvValue = Nothing     } --- | Valid values are 'true' or 'false'.+-- | The attribute value. The valid values are 'true' or 'false'. abvValue :: Lens' AttributeBooleanValue (Maybe Bool) abvValue = lens _abvValue (\ s a -> s{_abvValue = a}); @@ -273,7 +273,7 @@         toQuery AttributeBooleanValue'{..}           = mconcat ["Value" =: _abvValue] --- | The value to use for a resource attribute.+-- | Describes a value for a resource attribute that is a String. -- -- /See:/ 'attributeValue' smart constructor. newtype AttributeValue = AttributeValue'@@ -292,7 +292,7 @@     { _avValue = Nothing     } --- | Valid values are case-sensitive and vary by action.+-- | The attribute value. Note that the value is case-sensitive. avValue :: Lens' AttributeValue (Maybe Text) avValue = lens _avValue (\ s a -> s{_avValue = a}); @@ -398,7 +398,7 @@  instance NFData AvailabilityZoneMessage --- | The capacity information for instances launched onto the Dedicated host.+-- | The capacity information for instances launched onto the Dedicated Host. -- -- /See:/ 'availableCapacity' smart constructor. data AvailableCapacity = AvailableCapacity'@@ -421,11 +421,11 @@     , _acAvailableVCPUs = Nothing     } --- | The total number of instances that the Dedicated host supports.+-- | The total number of instances that the Dedicated Host supports. acAvailableInstanceCapacity :: Lens' AvailableCapacity [InstanceCapacity] acAvailableInstanceCapacity = lens _acAvailableInstanceCapacity (\ s a -> s{_acAvailableInstanceCapacity = a}) . _Default . _Coerce; --- | The number of vCPUs available on the Dedicated host.+-- | The number of vCPUs available on the Dedicated Host. acAvailableVCPUs :: Lens' AvailableCapacity (Maybe Int) acAvailableVCPUs = lens _acAvailableVCPUs (\ s a -> s{_acAvailableVCPUs = a}); @@ -1635,9 +1635,9 @@ ebdVolumeSize :: Lens' EBSBlockDevice (Maybe Int) ebdVolumeSize = lens _ebdVolumeSize (\ s a -> s{_ebdVolumeSize = a}); --- | The number of I\/O operations per second (IOPS) that the volume supports. For io1, this represents the number of IOPS that are provisioned for the volume. For 'gp2', this represents the baseline performance of the volume and the rate at which the volume accumulates I\/O credits for bursting. For more information on General Purpose SSD baseline performance, I\/O credits, and bursting, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumeTypes.html Amazon EBS Volume Types> in the /Amazon Elastic Compute Cloud User Guide/.+-- | The number of I\/O operations per second (IOPS) that the volume supports. For 'io1', this represents the number of IOPS that are provisioned for the volume. For 'gp2', this represents the baseline performance of the volume and the rate at which the volume accumulates I\/O credits for bursting. For more information about General Purpose SSD baseline performance, I\/O credits, and bursting, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumeTypes.html Amazon EBS Volume Types> in the /Amazon Elastic Compute Cloud User Guide/. ----- Constraint: Range is 100-20000 IOPS for io1 volumes and 100-10000 IOPS for 'gp2' volumes.+-- Constraint: Range is 100-20000 IOPS for 'io1' volumes and 100-10000 IOPS for 'gp2' volumes. -- -- Condition: This parameter is required for requests to create 'io1' volumes; it is not used in requests to create 'gp2', 'st1', 'sc1', or 'standard' volumes. ebdIOPS :: Lens' EBSBlockDevice (Maybe Int)@@ -2315,7 +2315,7 @@  instance NFData HistoryRecord --- | Describes the properties of the Dedicated host.+-- | Describes the properties of the Dedicated Host. -- -- /See:/ 'host' smart constructor. data Host = Host'@@ -2366,7 +2366,7 @@     , _hAutoPlacement = Nothing     } --- | The Dedicated host\'s state.+-- | The Dedicated Host\'s state. hState :: Lens' Host (Maybe AllocationState) hState = lens _hState (\ s a -> s{_hState = a}); @@ -2374,27 +2374,27 @@ hClientToken :: Lens' Host (Maybe Text) hClientToken = lens _hClientToken (\ s a -> s{_hClientToken = a}); --- | The ID of the Dedicated host.+-- | The ID of the Dedicated Host. hHostId :: Lens' Host (Maybe Text) hHostId = lens _hHostId (\ s a -> s{_hHostId = a}); --- | The number of new instances that can be launched onto the Dedicated host.+-- | The number of new instances that can be launched onto the Dedicated Host. hAvailableCapacity :: Lens' Host (Maybe AvailableCapacity) hAvailableCapacity = lens _hAvailableCapacity (\ s a -> s{_hAvailableCapacity = a}); --- | The reservation ID of the Dedicated host. This returns a 'null' response if the Dedicated host doesn\'t have an associated reservation.+-- | The reservation ID of the Dedicated Host. This returns a 'null' response if the Dedicated Host doesn\'t have an associated reservation. hHostReservationId :: Lens' Host (Maybe Text) hHostReservationId = lens _hHostReservationId (\ s a -> s{_hHostReservationId = a}); --- | The hardware specifications of the Dedicated host.+-- | The hardware specifications of the Dedicated Host. hHostProperties :: Lens' Host (Maybe HostProperties) hHostProperties = lens _hHostProperties (\ s a -> s{_hHostProperties = a}); --- | The Availability Zone of the Dedicated host.+-- | The Availability Zone of the Dedicated Host. hAvailabilityZone :: Lens' Host (Maybe Text) hAvailabilityZone = lens _hAvailabilityZone (\ s a -> s{_hAvailabilityZone = a}); --- | The IDs and instance type that are currently running on the Dedicated host.+-- | The IDs and instance type that are currently running on the Dedicated Host. hInstances :: Lens' Host [HostInstance] hInstances = lens _hInstances (\ s a -> s{_hInstances = a}) . _Default . _Coerce; @@ -2420,7 +2420,7 @@  instance NFData Host --- | Describes an instance running on a Dedicated host.+-- | Describes an instance running on a Dedicated Host. -- -- /See:/ 'hostInstance' smart constructor. data HostInstance = HostInstance'@@ -2443,11 +2443,11 @@     , _hiInstanceType = Nothing     } --- | the IDs of instances that are running on the Dedicated host.+-- | the IDs of instances that are running on the Dedicated Host. hiInstanceId :: Lens' HostInstance (Maybe Text) hiInstanceId = lens _hiInstanceId (\ s a -> s{_hiInstanceId = a}); --- | The instance type size (for example, m3.medium) of the running instance.+-- | The instance type size (for example, 'm3.medium') of the running instance. hiInstanceType :: Lens' HostInstance (Maybe Text) hiInstanceType = lens _hiInstanceType (\ s a -> s{_hiInstanceType = a}); @@ -2460,8 +2460,93 @@  instance NFData HostInstance --- | Describes properties of a Dedicated host.+-- | Details about the Dedicated Host Reservation offering. --+-- /See:/ 'hostOffering' smart constructor.+data HostOffering = HostOffering'+    { _hoInstanceFamily :: !(Maybe Text)+    , _hoCurrencyCode   :: !(Maybe CurrencyCodeValues)+    , _hoHourlyPrice    :: !(Maybe Text)+    , _hoUpfrontPrice   :: !(Maybe Text)+    , _hoOfferingId     :: !(Maybe Text)+    , _hoDuration       :: !(Maybe Int)+    , _hoPaymentOption  :: !(Maybe PaymentOption)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'HostOffering' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hoInstanceFamily'+--+-- * 'hoCurrencyCode'+--+-- * 'hoHourlyPrice'+--+-- * 'hoUpfrontPrice'+--+-- * 'hoOfferingId'+--+-- * 'hoDuration'+--+-- * 'hoPaymentOption'+hostOffering+    :: HostOffering+hostOffering =+    HostOffering'+    { _hoInstanceFamily = Nothing+    , _hoCurrencyCode = Nothing+    , _hoHourlyPrice = Nothing+    , _hoUpfrontPrice = Nothing+    , _hoOfferingId = Nothing+    , _hoDuration = Nothing+    , _hoPaymentOption = Nothing+    }++-- | The instance family of the offering.+hoInstanceFamily :: Lens' HostOffering (Maybe Text)+hoInstanceFamily = lens _hoInstanceFamily (\ s a -> s{_hoInstanceFamily = a});++-- | The currency of the offering.+hoCurrencyCode :: Lens' HostOffering (Maybe CurrencyCodeValues)+hoCurrencyCode = lens _hoCurrencyCode (\ s a -> s{_hoCurrencyCode = a});++-- | The hourly price of the offering.+hoHourlyPrice :: Lens' HostOffering (Maybe Text)+hoHourlyPrice = lens _hoHourlyPrice (\ s a -> s{_hoHourlyPrice = a});++-- | The upfront price of the offering. Does not apply to No Upfront offerings.+hoUpfrontPrice :: Lens' HostOffering (Maybe Text)+hoUpfrontPrice = lens _hoUpfrontPrice (\ s a -> s{_hoUpfrontPrice = a});++-- | The ID of the offering.+hoOfferingId :: Lens' HostOffering (Maybe Text)+hoOfferingId = lens _hoOfferingId (\ s a -> s{_hoOfferingId = a});++-- | The duration of the offering (in seconds).+hoDuration :: Lens' HostOffering (Maybe Int)+hoDuration = lens _hoDuration (\ s a -> s{_hoDuration = a});++-- | The available payment option.+hoPaymentOption :: Lens' HostOffering (Maybe PaymentOption)+hoPaymentOption = lens _hoPaymentOption (\ s a -> s{_hoPaymentOption = a});++instance FromXML HostOffering where+        parseXML x+          = HostOffering' <$>+              (x .@? "instanceFamily") <*> (x .@? "currencyCode")+                <*> (x .@? "hourlyPrice")+                <*> (x .@? "upfrontPrice")+                <*> (x .@? "offeringId")+                <*> (x .@? "duration")+                <*> (x .@? "paymentOption")++instance Hashable HostOffering++instance NFData HostOffering++-- | Describes properties of a Dedicated Host.+-- -- /See:/ 'hostProperties' smart constructor. data HostProperties = HostProperties'     { _hpInstanceType :: !(Maybe Text)@@ -2491,19 +2576,19 @@     , _hpSockets = Nothing     } --- | The instance type size that the Dedicated host supports (for example, m3.medium).+-- | The instance type size that the Dedicated Host supports (for example, 'm3.medium'). hpInstanceType :: Lens' HostProperties (Maybe Text) hpInstanceType = lens _hpInstanceType (\ s a -> s{_hpInstanceType = a}); --- | The number of vCPUs on the Dedicated host.+-- | The number of vCPUs on the Dedicated Host. hpTotalVCPUs :: Lens' HostProperties (Maybe Int) hpTotalVCPUs = lens _hpTotalVCPUs (\ s a -> s{_hpTotalVCPUs = a}); --- | The number of cores on the Dedicated host.+-- | The number of cores on the Dedicated Host. hpCores :: Lens' HostProperties (Maybe Int) hpCores = lens _hpCores (\ s a -> s{_hpCores = a}); --- | The number of sockets on the Dedicated host.+-- | The number of sockets on the Dedicated Host. hpSockets :: Lens' HostProperties (Maybe Int) hpSockets = lens _hpSockets (\ s a -> s{_hpSockets = a}); @@ -2518,6 +2603,147 @@  instance NFData HostProperties +-- | Details about the Dedicated Host Reservation and associated Dedicated Hosts.+--+-- /See:/ 'hostReservation' smart constructor.+data HostReservation = HostReservation'+    { _hrState             :: !(Maybe ReservationState)+    , _hrInstanceFamily    :: !(Maybe Text)+    , _hrCurrencyCode      :: !(Maybe CurrencyCodeValues)+    , _hrHostReservationId :: !(Maybe Text)+    , _hrStart             :: !(Maybe ISO8601)+    , _hrHourlyPrice       :: !(Maybe Text)+    , _hrCount             :: !(Maybe Int)+    , _hrUpfrontPrice      :: !(Maybe Text)+    , _hrEnd               :: !(Maybe ISO8601)+    , _hrHostIdSet         :: !(Maybe [Text])+    , _hrOfferingId        :: !(Maybe Text)+    , _hrDuration          :: !(Maybe Int)+    , _hrPaymentOption     :: !(Maybe PaymentOption)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'HostReservation' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'hrState'+--+-- * 'hrInstanceFamily'+--+-- * 'hrCurrencyCode'+--+-- * 'hrHostReservationId'+--+-- * 'hrStart'+--+-- * 'hrHourlyPrice'+--+-- * 'hrCount'+--+-- * 'hrUpfrontPrice'+--+-- * 'hrEnd'+--+-- * 'hrHostIdSet'+--+-- * 'hrOfferingId'+--+-- * 'hrDuration'+--+-- * 'hrPaymentOption'+hostReservation+    :: HostReservation+hostReservation =+    HostReservation'+    { _hrState = Nothing+    , _hrInstanceFamily = Nothing+    , _hrCurrencyCode = Nothing+    , _hrHostReservationId = Nothing+    , _hrStart = Nothing+    , _hrHourlyPrice = Nothing+    , _hrCount = Nothing+    , _hrUpfrontPrice = Nothing+    , _hrEnd = Nothing+    , _hrHostIdSet = Nothing+    , _hrOfferingId = Nothing+    , _hrDuration = Nothing+    , _hrPaymentOption = Nothing+    }++-- | The state of the reservation.+hrState :: Lens' HostReservation (Maybe ReservationState)+hrState = lens _hrState (\ s a -> s{_hrState = a});++-- | The instance family of the Dedicated Host Reservation. The instance family on the Dedicated Host must be the same in order for it to benefit from the reservation.+hrInstanceFamily :: Lens' HostReservation (Maybe Text)+hrInstanceFamily = lens _hrInstanceFamily (\ s a -> s{_hrInstanceFamily = a});++-- | The currency in which the 'upfrontPrice' and 'hourlyPrice' amounts are specified. At this time, the only supported currency is 'USD'.+hrCurrencyCode :: Lens' HostReservation (Maybe CurrencyCodeValues)+hrCurrencyCode = lens _hrCurrencyCode (\ s a -> s{_hrCurrencyCode = a});++-- | The ID of the reservation that specifies the associated Dedicated Hosts.+hrHostReservationId :: Lens' HostReservation (Maybe Text)+hrHostReservationId = lens _hrHostReservationId (\ s a -> s{_hrHostReservationId = a});++-- | The date and time that the reservation started.+hrStart :: Lens' HostReservation (Maybe UTCTime)+hrStart = lens _hrStart (\ s a -> s{_hrStart = a}) . mapping _Time;++-- | The hourly price of the reservation.+hrHourlyPrice :: Lens' HostReservation (Maybe Text)+hrHourlyPrice = lens _hrHourlyPrice (\ s a -> s{_hrHourlyPrice = a});++-- | The number of Dedicated Hosts the reservation is associated with.+hrCount :: Lens' HostReservation (Maybe Int)+hrCount = lens _hrCount (\ s a -> s{_hrCount = a});++-- | The upfront price of the reservation.+hrUpfrontPrice :: Lens' HostReservation (Maybe Text)+hrUpfrontPrice = lens _hrUpfrontPrice (\ s a -> s{_hrUpfrontPrice = a});++-- | The date and time that the reservation ends.+hrEnd :: Lens' HostReservation (Maybe UTCTime)+hrEnd = lens _hrEnd (\ s a -> s{_hrEnd = a}) . mapping _Time;++-- | The IDs of the Dedicated Hosts associated with the reservation.+hrHostIdSet :: Lens' HostReservation [Text]+hrHostIdSet = lens _hrHostIdSet (\ s a -> s{_hrHostIdSet = a}) . _Default . _Coerce;++-- | The ID of the reservation. This remains the same regardless of which Dedicated Hosts are associated with it.+hrOfferingId :: Lens' HostReservation (Maybe Text)+hrOfferingId = lens _hrOfferingId (\ s a -> s{_hrOfferingId = a});++-- | The length of the reservation\'s term, specified in seconds. Can be '31536000 (1 year)' | '94608000 (3 years)'.+hrDuration :: Lens' HostReservation (Maybe Int)+hrDuration = lens _hrDuration (\ s a -> s{_hrDuration = a});++-- | The payment option selected for this reservation.+hrPaymentOption :: Lens' HostReservation (Maybe PaymentOption)+hrPaymentOption = lens _hrPaymentOption (\ s a -> s{_hrPaymentOption = a});++instance FromXML HostReservation where+        parseXML x+          = HostReservation' <$>+              (x .@? "state") <*> (x .@? "instanceFamily") <*>+                (x .@? "currencyCode")+                <*> (x .@? "hostReservationId")+                <*> (x .@? "start")+                <*> (x .@? "hourlyPrice")+                <*> (x .@? "count")+                <*> (x .@? "upfrontPrice")+                <*> (x .@? "end")+                <*>+                (x .@? "hostIdSet" .!@ mempty >>=+                   may (parseXMLList "item"))+                <*> (x .@? "offeringId")+                <*> (x .@? "duration")+                <*> (x .@? "paymentOption")++instance Hashable HostReservation++instance NFData HostReservation+ -- | Describes an IAM instance profile. -- -- /See:/ 'iamInstanceProfile' smart constructor.@@ -2833,6 +3059,7 @@ -- /See:/ 'image' smart constructor. data Image = Image'     { _iPlatform            :: !(Maybe PlatformValues)+    , _iEnaSupport          :: !(Maybe Bool)     , _iImageOwnerAlias     :: !(Maybe Text)     , _iRAMDiskId           :: !(Maybe Text)     , _iKernelId            :: !(Maybe Text)@@ -2863,6 +3090,8 @@ -- -- * 'iPlatform' --+-- * 'iEnaSupport'+-- -- * 'iImageOwnerAlias' -- -- * 'iRAMDiskId'@@ -2921,6 +3150,7 @@ image pImageId_ pImageLocation_ pState_ pOwnerId_ pPublic_ pArchitecture_ pImageType_ pRootDeviceType_ pVirtualizationType_ pHypervisor_ =     Image'     { _iPlatform = Nothing+    , _iEnaSupport = Nothing     , _iImageOwnerAlias = Nothing     , _iRAMDiskId = Nothing     , _iKernelId = Nothing@@ -2949,6 +3179,10 @@ iPlatform :: Lens' Image (Maybe PlatformValues) iPlatform = lens _iPlatform (\ s a -> s{_iPlatform = a}); +-- | Specifies whether enhanced networking with ENA is enabled.+iEnaSupport :: Lens' Image (Maybe Bool)+iEnaSupport = lens _iEnaSupport (\ s a -> s{_iEnaSupport = a});+ -- | The AWS account alias (for example, 'amazon', 'self') or the AWS account ID of the AMI owner. iImageOwnerAlias :: Lens' Image (Maybe Text) iImageOwnerAlias = lens _iImageOwnerAlias (\ s a -> s{_iImageOwnerAlias = a});@@ -2965,7 +3199,7 @@ iRootDeviceName :: Lens' Image (Maybe Text) iRootDeviceName = lens _iRootDeviceName (\ s a -> s{_iRootDeviceName = a}); --- | Specifies whether enhanced networking is enabled.+-- | Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. iSRIOVNetSupport :: Lens' Image (Maybe Text) iSRIOVNetSupport = lens _iSRIOVNetSupport (\ s a -> s{_iSRIOVNetSupport = a}); @@ -3040,8 +3274,9 @@ instance FromXML Image where         parseXML x           = Image' <$>-              (x .@? "platform") <*> (x .@? "imageOwnerAlias") <*>-                (x .@? "ramdiskId")+              (x .@? "platform") <*> (x .@? "enaSupport") <*>+                (x .@? "imageOwnerAlias")+                <*> (x .@? "ramdiskId")                 <*> (x .@? "kernelId")                 <*> (x .@? "rootDeviceName")                 <*> (x .@? "sriovNetSupport")@@ -3349,7 +3584,7 @@ iilsSubnetId :: Lens' ImportInstanceLaunchSpecification (Maybe Text) iilsSubnetId = lens _iilsSubnetId (\ s a -> s{_iilsSubnetId = a}); --- | The instance type. For more information about the instance types that you can import, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/VMImportPrerequisites.html Before You Get Started> in the Amazon Elastic Compute Cloud User Guide.+-- | The instance type. For more information about the instance types that you can import, see <http://docs.aws.amazon.com/vm-import/latest/userguide/vmimport-image-import.html#vmimport-instance-types Instance Types> in the VM Import\/Export User Guide. iilsInstanceType :: Lens' ImportInstanceLaunchSpecification (Maybe InstanceType) iilsInstanceType = lens _iilsInstanceType (\ s a -> s{_iilsInstanceType = a}); @@ -3357,7 +3592,7 @@ iilsGroupIds :: Lens' ImportInstanceLaunchSpecification [Text] iilsGroupIds = lens _iilsGroupIds (\ s a -> s{_iilsGroupIds = a}) . _Default . _Coerce; --- | The Base64-encoded MIME user data to be made available to the instance.+-- | The user data to make available to the instance. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. iilsUserData :: Lens' ImportInstanceLaunchSpecification (Maybe UserData) iilsUserData = lens _iilsUserData (\ s a -> s{_iilsUserData = a}); @@ -3681,6 +3916,7 @@     , _insPlatform              :: !(Maybe PlatformValues)     , _insSecurityGroups        :: !(Maybe [GroupIdentifier])     , _insClientToken           :: !(Maybe Text)+    , _insEnaSupport            :: !(Maybe Bool)     , _insSourceDestCheck       :: !(Maybe Bool)     , _insVPCId                 :: !(Maybe Text)     , _insKeyName               :: !(Maybe Text)@@ -3728,6 +3964,8 @@ -- -- * 'insClientToken' --+-- * 'insEnaSupport'+-- -- * 'insSourceDestCheck' -- -- * 'insVPCId'@@ -3813,6 +4051,7 @@     , _insPlatform = Nothing     , _insSecurityGroups = Nothing     , _insClientToken = Nothing+    , _insEnaSupport = Nothing     , _insSourceDestCheck = Nothing     , _insVPCId = Nothing     , _insKeyName = Nothing@@ -3864,6 +4103,10 @@ insClientToken :: Lens' Instance (Maybe Text) insClientToken = lens _insClientToken (\ s a -> s{_insClientToken = a}); +-- | Specifies whether enhanced networking with ENA is enabled.+insEnaSupport :: Lens' Instance (Maybe Bool)+insEnaSupport = lens _insEnaSupport (\ s a -> s{_insEnaSupport = a});+ -- | Specifies whether to enable an instance launched in a VPC to perform NAT. This controls whether source\/destination checking is enabled on the instance. A value of 'true' means checking is enabled, and 'false' means checking is disabled. The value must be 'false' for the instance to perform NAT. For more information, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_NAT_Instance.html NAT Instances> in the /Amazon Virtual Private Cloud User Guide/. insSourceDestCheck :: Lens' Instance (Maybe Bool) insSourceDestCheck = lens _insSourceDestCheck (\ s a -> s{_insSourceDestCheck = a});@@ -3896,7 +4139,7 @@ insRootDeviceName :: Lens' Instance (Maybe Text) insRootDeviceName = lens _insRootDeviceName (\ s a -> s{_insRootDeviceName = a}); --- | Specifies whether enhanced networking is enabled.+-- | Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. insSRIOVNetSupport :: Lens' Instance (Maybe Text) insSRIOVNetSupport = lens _insSRIOVNetSupport (\ s a -> s{_insSRIOVNetSupport = a}); @@ -4003,6 +4246,7 @@                 (x .@? "groupSet" .!@ mempty >>=                    may (parseXMLList "item"))                 <*> (x .@? "clientToken")+                <*> (x .@? "enaSupport")                 <*> (x .@? "sourceDestCheck")                 <*> (x .@? "vpcId")                 <*> (x .@? "keyName")@@ -4150,7 +4394,7 @@                "NoDevice" =: _ibdmsNoDevice, "Ebs" =: _ibdmsEBS,                "DeviceName" =: _ibdmsDeviceName] --- | Information about the instance type that the Dedicated host supports.+-- | Information about the instance type that the Dedicated Host supports. -- -- /See:/ 'instanceCapacity' smart constructor. data InstanceCapacity = InstanceCapacity'@@ -4177,15 +4421,15 @@     , _icTotalCapacity = Nothing     } --- | The number of instances that can still be launched onto the Dedicated host.+-- | The number of instances that can still be launched onto the Dedicated Host. icAvailableCapacity :: Lens' InstanceCapacity (Maybe Int) icAvailableCapacity = lens _icAvailableCapacity (\ s a -> s{_icAvailableCapacity = a}); --- | The instance type size supported by the Dedicated host.+-- | The instance type size supported by the Dedicated Host. icInstanceType :: Lens' InstanceCapacity (Maybe Text) icInstanceType = lens _icInstanceType (\ s a -> s{_icInstanceType = a}); --- | The total number of instances that can be launched onto the Dedicated host.+-- | The total number of instances that can be launched onto the Dedicated Host. icTotalCapacity :: Lens' InstanceCapacity (Maybe Int) icTotalCapacity = lens _icTotalCapacity (\ s a -> s{_icTotalCapacity = a}); @@ -5449,7 +5693,7 @@ lsEBSOptimized :: Lens' LaunchSpecification (Maybe Bool) lsEBSOptimized = lens _lsEBSOptimized (\ s a -> s{_lsEBSOptimized = a}); --- | The Base64-encoded MIME user data to make available to the instances.+-- | The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. lsUserData :: Lens' LaunchSpecification (Maybe Text) lsUserData = lens _lsUserData (\ s a -> s{_lsUserData = a}); @@ -5581,15 +5825,16 @@ -- -- /See:/ 'natGateway' smart constructor. data NatGateway = NatGateway'-    { _ngState               :: !(Maybe NatGatewayState)-    , _ngFailureCode         :: !(Maybe Text)-    , _ngVPCId               :: !(Maybe Text)-    , _ngFailureMessage      :: !(Maybe Text)-    , _ngNatGatewayId        :: !(Maybe Text)-    , _ngSubnetId            :: !(Maybe Text)-    , _ngDeleteTime          :: !(Maybe ISO8601)-    , _ngNatGatewayAddresses :: !(Maybe [NatGatewayAddress])-    , _ngCreateTime          :: !(Maybe ISO8601)+    { _ngState                :: !(Maybe NatGatewayState)+    , _ngFailureCode          :: !(Maybe Text)+    , _ngVPCId                :: !(Maybe Text)+    , _ngFailureMessage       :: !(Maybe Text)+    , _ngNatGatewayId         :: !(Maybe Text)+    , _ngSubnetId             :: !(Maybe Text)+    , _ngDeleteTime           :: !(Maybe ISO8601)+    , _ngProvisionedBandwidth :: !(Maybe ProvisionedBandwidth)+    , _ngNatGatewayAddresses  :: !(Maybe [NatGatewayAddress])+    , _ngCreateTime           :: !(Maybe ISO8601)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'NatGateway' with the minimum fields required to make a request.@@ -5610,6 +5855,8 @@ -- -- * 'ngDeleteTime' --+-- * 'ngProvisionedBandwidth'+-- -- * 'ngNatGatewayAddresses' -- -- * 'ngCreateTime'@@ -5624,11 +5871,23 @@     , _ngNatGatewayId = Nothing     , _ngSubnetId = Nothing     , _ngDeleteTime = Nothing+    , _ngProvisionedBandwidth = Nothing     , _ngNatGatewayAddresses = Nothing     , _ngCreateTime = Nothing     }  -- | The state of the NAT gateway.+--+-- -   'pending': The NAT gateway is being created and is not ready to process traffic.+--+-- -   'failed': The NAT gateway could not be created. Check the 'failureCode' and 'failureMessage' fields for the reason.+--+-- -   'available': The NAT gateway is able to process traffic. This status remains until you delete the NAT gateway, and does not indicate the health of the NAT gateway.+--+-- -   'deleting': The NAT gateway is in the process of being terminated and may still be processing traffic.+--+-- -   'deleted': The NAT gateway has been terminated and is no longer processing traffic.+-- ngState :: Lens' NatGateway (Maybe NatGatewayState) ngState = lens _ngState (\ s a -> s{_ngState = a}); @@ -5669,6 +5928,10 @@ ngDeleteTime :: Lens' NatGateway (Maybe UTCTime) ngDeleteTime = lens _ngDeleteTime (\ s a -> s{_ngDeleteTime = a}) . mapping _Time; +-- | Reserved. If you need to sustain traffic greater than the <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/vpc-nat-gateway.html documented limits>, contact us through the <https://console.aws.amazon.com/support/home? Support Center>.+ngProvisionedBandwidth :: Lens' NatGateway (Maybe ProvisionedBandwidth)+ngProvisionedBandwidth = lens _ngProvisionedBandwidth (\ s a -> s{_ngProvisionedBandwidth = a});+ -- | Information about the IP addresses and network interface associated with the NAT gateway. ngNatGatewayAddresses :: Lens' NatGateway [NatGatewayAddress] ngNatGatewayAddresses = lens _ngNatGatewayAddresses (\ s a -> s{_ngNatGatewayAddresses = a}) . _Default . _Coerce;@@ -5686,6 +5949,7 @@                 <*> (x .@? "natGatewayId")                 <*> (x .@? "subnetId")                 <*> (x .@? "deleteTime")+                <*> (x .@? "provisionedBandwidth")                 <*>                 (x .@? "natGatewayAddressSet" .!@ mempty >>=                    may (parseXMLList "item"))@@ -6466,6 +6730,7 @@ data PeeringConnectionOptions = PeeringConnectionOptions'     { _pcoAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool)     , _pcoAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool)+    , _pcoAllowDNSResolutionFromRemoteVPC            :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PeeringConnectionOptions' with the minimum fields required to make a request.@@ -6475,12 +6740,15 @@ -- * 'pcoAllowEgressFromLocalVPCToRemoteClassicLink' -- -- * 'pcoAllowEgressFromLocalClassicLinkToRemoteVPC'+--+-- * 'pcoAllowDNSResolutionFromRemoteVPC' peeringConnectionOptions     :: PeeringConnectionOptions peeringConnectionOptions =     PeeringConnectionOptions'     { _pcoAllowEgressFromLocalVPCToRemoteClassicLink = Nothing     , _pcoAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing+    , _pcoAllowDNSResolutionFromRemoteVPC = Nothing     }  -- | If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that\'s linked to a peer VPC via ClassicLink.@@ -6491,12 +6759,17 @@ pcoAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' PeeringConnectionOptions (Maybe Bool) pcoAllowEgressFromLocalClassicLinkToRemoteVPC = lens _pcoAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_pcoAllowEgressFromLocalClassicLinkToRemoteVPC = a}); +-- | If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC.+pcoAllowDNSResolutionFromRemoteVPC :: Lens' PeeringConnectionOptions (Maybe Bool)+pcoAllowDNSResolutionFromRemoteVPC = lens _pcoAllowDNSResolutionFromRemoteVPC (\ s a -> s{_pcoAllowDNSResolutionFromRemoteVPC = a});+ instance FromXML PeeringConnectionOptions where         parseXML x           = PeeringConnectionOptions' <$>               (x .@? "allowEgressFromLocalVpcToRemoteClassicLink")                 <*>                 (x .@? "allowEgressFromLocalClassicLinkToRemoteVpc")+                <*> (x .@? "allowDnsResolutionFromRemoteVpc")  instance Hashable PeeringConnectionOptions @@ -6506,34 +6779,40 @@ -- -- /See:/ 'peeringConnectionOptionsRequest' smart constructor. data PeeringConnectionOptionsRequest = PeeringConnectionOptionsRequest'-    { _pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: !Bool-    , _pcorAllowEgressFromLocalVPCToRemoteClassicLink :: !Bool+    { _pcorAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool)+    , _pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool)+    , _pcorAllowDNSResolutionFromRemoteVPC            :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'PeeringConnectionOptionsRequest' with the minimum fields required to make a request. -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'pcorAllowEgressFromLocalVPCToRemoteClassicLink'+-- -- * 'pcorAllowEgressFromLocalClassicLinkToRemoteVPC' ----- * 'pcorAllowEgressFromLocalVPCToRemoteClassicLink'+-- * 'pcorAllowDNSResolutionFromRemoteVPC' peeringConnectionOptionsRequest-    :: Bool -- ^ 'pcorAllowEgressFromLocalClassicLinkToRemoteVPC'-    -> Bool -- ^ 'pcorAllowEgressFromLocalVPCToRemoteClassicLink'-    -> PeeringConnectionOptionsRequest-peeringConnectionOptionsRequest pAllowEgressFromLocalClassicLinkToRemoteVPC_ pAllowEgressFromLocalVPCToRemoteClassicLink_ =+    :: PeeringConnectionOptionsRequest+peeringConnectionOptionsRequest =     PeeringConnectionOptionsRequest'-    { _pcorAllowEgressFromLocalClassicLinkToRemoteVPC = pAllowEgressFromLocalClassicLinkToRemoteVPC_-    , _pcorAllowEgressFromLocalVPCToRemoteClassicLink = pAllowEgressFromLocalVPCToRemoteClassicLink_+    { _pcorAllowEgressFromLocalVPCToRemoteClassicLink = Nothing+    , _pcorAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing+    , _pcorAllowDNSResolutionFromRemoteVPC = Nothing     } +-- | If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that\'s linked to a peer VPC via ClassicLink.+pcorAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' PeeringConnectionOptionsRequest (Maybe Bool)+pcorAllowEgressFromLocalVPCToRemoteClassicLink = lens _pcorAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_pcorAllowEgressFromLocalVPCToRemoteClassicLink = a});+ -- | If true, enables outbound communication from an EC2-Classic instance that\'s linked to a local VPC via ClassicLink to instances in a peer VPC.-pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' PeeringConnectionOptionsRequest Bool+pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' PeeringConnectionOptionsRequest (Maybe Bool) pcorAllowEgressFromLocalClassicLinkToRemoteVPC = lens _pcorAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_pcorAllowEgressFromLocalClassicLinkToRemoteVPC = a}); --- | If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that\'s linked to a peer VPC via ClassicLink.-pcorAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' PeeringConnectionOptionsRequest Bool-pcorAllowEgressFromLocalVPCToRemoteClassicLink = lens _pcorAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_pcorAllowEgressFromLocalVPCToRemoteClassicLink = a});+-- | If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC.+pcorAllowDNSResolutionFromRemoteVPC :: Lens' PeeringConnectionOptionsRequest (Maybe Bool)+pcorAllowDNSResolutionFromRemoteVPC = lens _pcorAllowDNSResolutionFromRemoteVPC (\ s a -> s{_pcorAllowDNSResolutionFromRemoteVPC = a});  instance Hashable PeeringConnectionOptionsRequest @@ -6543,10 +6822,12 @@          where         toQuery PeeringConnectionOptionsRequest'{..}           = mconcat-              ["AllowEgressFromLocalClassicLinkToRemoteVpc" =:+              ["AllowEgressFromLocalVpcToRemoteClassicLink" =:+                 _pcorAllowEgressFromLocalVPCToRemoteClassicLink,+               "AllowEgressFromLocalClassicLinkToRemoteVpc" =:                  _pcorAllowEgressFromLocalClassicLinkToRemoteVPC,-               "AllowEgressFromLocalVpcToRemoteClassicLink" =:-                 _pcorAllowEgressFromLocalVPCToRemoteClassicLink]+               "AllowDnsResolutionFromRemoteVpc" =:+                 _pcorAllowDNSResolutionFromRemoteVPC]  -- | Describes the placement for the instance. --@@ -6583,7 +6864,7 @@     , _pGroupName = Nothing     } --- | The affinity setting for the instance on the Dedicated host. This parameter is not supported for the < ImportInstance> command.+-- | The affinity setting for the instance on the Dedicated Host. This parameter is not supported for the < ImportInstance> command. pAffinity :: Lens' Placement (Maybe Text) pAffinity = lens _pAffinity (\ s a -> s{_pAffinity = a}); @@ -7065,6 +7346,169 @@  instance NFData PropagatingVGW +-- | Reserved. If you need to sustain traffic greater than the <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/vpc-nat-gateway.html documented limits>, contact us through the <https://console.aws.amazon.com/support/home? Support Center>.+--+-- /See:/ 'provisionedBandwidth' smart constructor.+data ProvisionedBandwidth = ProvisionedBandwidth'+    { _pbStatus        :: !(Maybe Text)+    , _pbRequested     :: !(Maybe Text)+    , _pbProvisioned   :: !(Maybe Text)+    , _pbRequestTime   :: !(Maybe ISO8601)+    , _pbProvisionTime :: !(Maybe ISO8601)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'ProvisionedBandwidth' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pbStatus'+--+-- * 'pbRequested'+--+-- * 'pbProvisioned'+--+-- * 'pbRequestTime'+--+-- * 'pbProvisionTime'+provisionedBandwidth+    :: ProvisionedBandwidth+provisionedBandwidth =+    ProvisionedBandwidth'+    { _pbStatus = Nothing+    , _pbRequested = Nothing+    , _pbProvisioned = Nothing+    , _pbRequestTime = Nothing+    , _pbProvisionTime = Nothing+    }++-- | Reserved. If you need to sustain traffic greater than the <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/vpc-nat-gateway.html documented limits>, contact us through the <https://console.aws.amazon.com/support/home? Support Center>.+pbStatus :: Lens' ProvisionedBandwidth (Maybe Text)+pbStatus = lens _pbStatus (\ s a -> s{_pbStatus = a});++-- | Reserved. If you need to sustain traffic greater than the <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/vpc-nat-gateway.html documented limits>, contact us through the <https://console.aws.amazon.com/support/home? Support Center>.+pbRequested :: Lens' ProvisionedBandwidth (Maybe Text)+pbRequested = lens _pbRequested (\ s a -> s{_pbRequested = a});++-- | Reserved. If you need to sustain traffic greater than the <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/vpc-nat-gateway.html documented limits>, contact us through the <https://console.aws.amazon.com/support/home? Support Center>.+pbProvisioned :: Lens' ProvisionedBandwidth (Maybe Text)+pbProvisioned = lens _pbProvisioned (\ s a -> s{_pbProvisioned = a});++-- | Reserved. If you need to sustain traffic greater than the <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/vpc-nat-gateway.html documented limits>, contact us through the <https://console.aws.amazon.com/support/home? Support Center>.+pbRequestTime :: Lens' ProvisionedBandwidth (Maybe UTCTime)+pbRequestTime = lens _pbRequestTime (\ s a -> s{_pbRequestTime = a}) . mapping _Time;++-- | Reserved. If you need to sustain traffic greater than the <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/vpc-nat-gateway.html documented limits>, contact us through the <https://console.aws.amazon.com/support/home? Support Center>.+pbProvisionTime :: Lens' ProvisionedBandwidth (Maybe UTCTime)+pbProvisionTime = lens _pbProvisionTime (\ s a -> s{_pbProvisionTime = a}) . mapping _Time;++instance FromXML ProvisionedBandwidth where+        parseXML x+          = ProvisionedBandwidth' <$>+              (x .@? "status") <*> (x .@? "requested") <*>+                (x .@? "provisioned")+                <*> (x .@? "requestTime")+                <*> (x .@? "provisionTime")++instance Hashable ProvisionedBandwidth++instance NFData ProvisionedBandwidth++-- | Describes the result of the purchase.+--+-- /See:/ 'purchase' smart constructor.+data Purchase = Purchase'+    { _pInstanceFamily    :: !(Maybe Text)+    , _pCurrencyCode      :: !(Maybe CurrencyCodeValues)+    , _pHostReservationId :: !(Maybe Text)+    , _pHourlyPrice       :: !(Maybe Text)+    , _pUpfrontPrice      :: !(Maybe Text)+    , _pHostIdSet         :: !(Maybe [Text])+    , _pDuration          :: !(Maybe Int)+    , _pPaymentOption     :: !(Maybe PaymentOption)+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'Purchase' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'pInstanceFamily'+--+-- * 'pCurrencyCode'+--+-- * 'pHostReservationId'+--+-- * 'pHourlyPrice'+--+-- * 'pUpfrontPrice'+--+-- * 'pHostIdSet'+--+-- * 'pDuration'+--+-- * 'pPaymentOption'+purchase+    :: Purchase+purchase =+    Purchase'+    { _pInstanceFamily = Nothing+    , _pCurrencyCode = Nothing+    , _pHostReservationId = Nothing+    , _pHourlyPrice = Nothing+    , _pUpfrontPrice = Nothing+    , _pHostIdSet = Nothing+    , _pDuration = Nothing+    , _pPaymentOption = Nothing+    }++-- | The instance family on the Dedicated Host that the reservation can be associated with.+pInstanceFamily :: Lens' Purchase (Maybe Text)+pInstanceFamily = lens _pInstanceFamily (\ s a -> s{_pInstanceFamily = a});++-- | The currency in which the 'UpfrontPrice' and 'HourlyPrice' amounts are specified. At this time, the only supported currency is 'USD'.+pCurrencyCode :: Lens' Purchase (Maybe CurrencyCodeValues)+pCurrencyCode = lens _pCurrencyCode (\ s a -> s{_pCurrencyCode = a});++-- | The ID of the reservation.+pHostReservationId :: Lens' Purchase (Maybe Text)+pHostReservationId = lens _pHostReservationId (\ s a -> s{_pHostReservationId = a});++-- | The hourly price of the reservation per hour.+pHourlyPrice :: Lens' Purchase (Maybe Text)+pHourlyPrice = lens _pHourlyPrice (\ s a -> s{_pHourlyPrice = a});++-- | The upfront price of the reservation.+pUpfrontPrice :: Lens' Purchase (Maybe Text)+pUpfrontPrice = lens _pUpfrontPrice (\ s a -> s{_pUpfrontPrice = a});++-- | The IDs of the Dedicated Hosts associated with the reservation.+pHostIdSet :: Lens' Purchase [Text]+pHostIdSet = lens _pHostIdSet (\ s a -> s{_pHostIdSet = a}) . _Default . _Coerce;++-- | The duration of the reservation\'s term in seconds.+pDuration :: Lens' Purchase (Maybe Int)+pDuration = lens _pDuration (\ s a -> s{_pDuration = a});++-- | The payment option for the reservation.+pPaymentOption :: Lens' Purchase (Maybe PaymentOption)+pPaymentOption = lens _pPaymentOption (\ s a -> s{_pPaymentOption = a});++instance FromXML Purchase where+        parseXML x+          = Purchase' <$>+              (x .@? "instanceFamily") <*> (x .@? "currencyCode")+                <*> (x .@? "hostReservationId")+                <*> (x .@? "hourlyPrice")+                <*> (x .@? "upfrontPrice")+                <*>+                (x .@? "hostIdSet" .!@ mempty >>=+                   may (parseXMLList "item"))+                <*> (x .@? "duration")+                <*> (x .@? "paymentOption")++instance Hashable Purchase++instance NFData Purchase+ -- | Describes a request to purchase Scheduled Instances. -- -- /See:/ 'purchaseRequest' smart constructor.@@ -7305,7 +7749,7 @@ rslsEBSOptimized :: Lens' RequestSpotLaunchSpecification (Maybe Bool) rslsEBSOptimized = lens _rslsEBSOptimized (\ s a -> s{_rslsEBSOptimized = a}); --- | The Base64-encoded MIME user data to make available to the instances.+-- | The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. rslsUserData :: Lens' RequestSpotLaunchSpecification (Maybe Text) rslsUserData = lens _rslsUserData (\ s a -> s{_rslsUserData = a}); @@ -8497,7 +8941,7 @@ ssPrefix :: Lens' S3Storage (Maybe Text) ssPrefix = lens _ssPrefix (\ s a -> s{_ssPrefix = a}); --- | A base64-encoded Amazon S3 upload policy that gives Amazon EC2 permission to upload items into Amazon S3 on your behalf. For command line tools, base64 encoding is performed for you.+-- | An Amazon S3 upload policy that gives Amazon EC2 permission to upload items into Amazon S3 on your behalf. -- -- /Note:/ This 'Lens' automatically encodes and decodes Base64 data, -- despite what the AWS documentation might say.@@ -8511,7 +8955,7 @@ ssBucket :: Lens' S3Storage (Maybe Text) ssBucket = lens _ssBucket (\ s a -> s{_ssBucket = a}); --- | The signature of the Base64 encoded JSON document.+-- | The signature of the JSON document. ssUploadPolicySignature :: Lens' S3Storage (Maybe Text) ssUploadPolicySignature = lens _ssUploadPolicySignature (\ s a -> s{_ssUploadPolicySignature = a}); @@ -9666,6 +10110,57 @@  instance NFData SecurityGroup +-- | Describes a VPC with a security group that references your security group.+--+-- /See:/ 'securityGroupReference' smart constructor.+data SecurityGroupReference = SecurityGroupReference'+    { _sgrVPCPeeringConnectionId :: !(Maybe Text)+    , _sgrGroupId                :: !Text+    , _sgrReferencingVPCId       :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'SecurityGroupReference' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sgrVPCPeeringConnectionId'+--+-- * 'sgrGroupId'+--+-- * 'sgrReferencingVPCId'+securityGroupReference+    :: Text -- ^ 'sgrGroupId'+    -> Text -- ^ 'sgrReferencingVPCId'+    -> SecurityGroupReference+securityGroupReference pGroupId_ pReferencingVPCId_ =+    SecurityGroupReference'+    { _sgrVPCPeeringConnectionId = Nothing+    , _sgrGroupId = pGroupId_+    , _sgrReferencingVPCId = pReferencingVPCId_+    }++-- | The ID of the VPC peering connection.+sgrVPCPeeringConnectionId :: Lens' SecurityGroupReference (Maybe Text)+sgrVPCPeeringConnectionId = lens _sgrVPCPeeringConnectionId (\ s a -> s{_sgrVPCPeeringConnectionId = a});++-- | The ID of your security group.+sgrGroupId :: Lens' SecurityGroupReference Text+sgrGroupId = lens _sgrGroupId (\ s a -> s{_sgrGroupId = a});++-- | The ID of the VPC with the referencing security group.+sgrReferencingVPCId :: Lens' SecurityGroupReference Text+sgrReferencingVPCId = lens _sgrReferencingVPCId (\ s a -> s{_sgrReferencingVPCId = a});++instance FromXML SecurityGroupReference where+        parseXML x+          = SecurityGroupReference' <$>+              (x .@? "vpcPeeringConnectionId") <*> (x .@ "groupId")+                <*> (x .@ "referencingVpcId")++instance Hashable SecurityGroupReference++instance NFData SecurityGroupReference+ -- | Describes the time period for a Scheduled Instance to start its first schedule. The time period must span less than one day. -- -- /See:/ 'slotDateTimeRangeRequest' smart constructor.@@ -9834,7 +10329,7 @@ sStateMessage :: Lens' Snapshot (Maybe Text) sStateMessage = lens _sStateMessage (\ s a -> s{_sStateMessage = a}); --- | The AWS account alias (for example, 'amazon', 'self') or AWS account ID that owns the snapshot.+-- | Value from an Amazon-maintained list ('amazon' | 'aws-marketplace' | 'microsoft') of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. sOwnerAlias :: Lens' Snapshot (Maybe Text) sOwnerAlias = lens _sOwnerAlias (\ s a -> s{_sOwnerAlias = a}); @@ -9858,7 +10353,7 @@ sOwnerId :: Lens' Snapshot Text sOwnerId = lens _sOwnerId (\ s a -> s{_sOwnerId = a}); --- | The ID of the volume that was used to create the snapshot.+-- | The ID of the volume that was used to create the snapshot. Snapshots created by the < CopySnapshot> action have an arbitrary volume ID that should not be used for any purpose. sVolumeId :: Lens' Snapshot Text sVolumeId = lens _sVolumeId (\ s a -> s{_sVolumeId = a}); @@ -10378,7 +10873,7 @@ sflsEBSOptimized :: Lens' SpotFleetLaunchSpecification (Maybe Bool) sflsEBSOptimized = lens _sflsEBSOptimized (\ s a -> s{_sflsEBSOptimized = a}); --- | The Base64-encoded MIME user data to make available to the instances.+-- | The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. sflsUserData :: Lens' SpotFleetLaunchSpecification (Maybe Text) sflsUserData = lens _sflsUserData (\ s a -> s{_sflsUserData = a}); @@ -10503,7 +10998,8 @@ -- -- /See:/ 'spotFleetRequestConfig' smart constructor. data SpotFleetRequestConfig = SpotFleetRequestConfig'-    { _sfrcSpotFleetRequestId     :: !Text+    { _sfrcActivityStatus         :: !(Maybe ActivityStatus)+    , _sfrcSpotFleetRequestId     :: !Text     , _sfrcSpotFleetRequestState  :: !BatchState     , _sfrcSpotFleetRequestConfig :: !SpotFleetRequestConfigData     , _sfrcCreateTime             :: !ISO8601@@ -10513,6 +11009,8 @@ -- -- Use one of the following lenses to modify other fields as desired: --+-- * 'sfrcActivityStatus'+-- -- * 'sfrcSpotFleetRequestId' -- -- * 'sfrcSpotFleetRequestState'@@ -10528,12 +11026,17 @@     -> SpotFleetRequestConfig spotFleetRequestConfig pSpotFleetRequestId_ pSpotFleetRequestState_ pSpotFleetRequestConfig_ pCreateTime_ =     SpotFleetRequestConfig'-    { _sfrcSpotFleetRequestId = pSpotFleetRequestId_+    { _sfrcActivityStatus = Nothing+    , _sfrcSpotFleetRequestId = pSpotFleetRequestId_     , _sfrcSpotFleetRequestState = pSpotFleetRequestState_     , _sfrcSpotFleetRequestConfig = pSpotFleetRequestConfig_     , _sfrcCreateTime = _Time # pCreateTime_     } +-- | The progress of the Spot fleet request. If there is an error, the status is 'error'. After all bids are placed, the status is 'pending_fulfillment'. If the size of the fleet is equal to or greater than its target capacity, the status is 'fulfilled'. If the size of the fleet is decreased, the status is 'pending_termination' while Spot instances are terminating.+sfrcActivityStatus :: Lens' SpotFleetRequestConfig (Maybe ActivityStatus)+sfrcActivityStatus = lens _sfrcActivityStatus (\ s a -> s{_sfrcActivityStatus = a});+ -- | The ID of the Spot fleet request. sfrcSpotFleetRequestId :: Lens' SpotFleetRequestConfig Text sfrcSpotFleetRequestId = lens _sfrcSpotFleetRequestId (\ s a -> s{_sfrcSpotFleetRequestId = a});@@ -10553,8 +11056,9 @@ instance FromXML SpotFleetRequestConfig where         parseXML x           = SpotFleetRequestConfig' <$>-              (x .@ "spotFleetRequestId") <*>-                (x .@ "spotFleetRequestState")+              (x .@? "activityStatus") <*>+                (x .@ "spotFleetRequestId")+                <*> (x .@ "spotFleetRequestState")                 <*> (x .@ "spotFleetRequestConfig")                 <*> (x .@ "createTime") @@ -10570,6 +11074,8 @@     , _sfrcdExcessCapacityTerminationPolicy  :: !(Maybe ExcessCapacityTerminationPolicy)     , _sfrcdValidUntil                       :: !(Maybe ISO8601)     , _sfrcdTerminateInstancesWithExpiration :: !(Maybe Bool)+    , _sfrcdFulfilledCapacity                :: !(Maybe Double)+    , _sfrcdType                             :: !(Maybe FleetType)     , _sfrcdValidFrom                        :: !(Maybe ISO8601)     , _sfrcdAllocationStrategy               :: !(Maybe AllocationStrategy)     , _sfrcdSpotPrice                        :: !Text@@ -10590,6 +11096,10 @@ -- -- * 'sfrcdTerminateInstancesWithExpiration' --+-- * 'sfrcdFulfilledCapacity'+--+-- * 'sfrcdType'+-- -- * 'sfrcdValidFrom' -- -- * 'sfrcdAllocationStrategy'@@ -10613,6 +11123,8 @@     , _sfrcdExcessCapacityTerminationPolicy = Nothing     , _sfrcdValidUntil = Nothing     , _sfrcdTerminateInstancesWithExpiration = Nothing+    , _sfrcdFulfilledCapacity = Nothing+    , _sfrcdType = Nothing     , _sfrcdValidFrom = Nothing     , _sfrcdAllocationStrategy = Nothing     , _sfrcdSpotPrice = pSpotPrice_@@ -10637,6 +11149,14 @@ sfrcdTerminateInstancesWithExpiration :: Lens' SpotFleetRequestConfigData (Maybe Bool) sfrcdTerminateInstancesWithExpiration = lens _sfrcdTerminateInstancesWithExpiration (\ s a -> s{_sfrcdTerminateInstancesWithExpiration = a}); +-- | The number of units fulfilled by this request compared to the set target capacity.+sfrcdFulfilledCapacity :: Lens' SpotFleetRequestConfigData (Maybe Double)+sfrcdFulfilledCapacity = lens _sfrcdFulfilledCapacity (\ s a -> s{_sfrcdFulfilledCapacity = a});++-- | The type of request. Indicates whether the fleet will only 'request' the target capacity or also attempt to 'maintain' it. When you 'request' a certain target capacity, the fleet will only place the required bids. It will not attempt to replenish Spot instances if capacity is diminished, nor will it submit bids in alternative Spot pools if capacity is not available. When you want to 'maintain' a certain target capacity, fleet will place the required bids to meet this target capacity. It will also automatically replenish any interrupted instances. Default: 'maintain'.+sfrcdType :: Lens' SpotFleetRequestConfigData (Maybe FleetType)+sfrcdType = lens _sfrcdType (\ s a -> s{_sfrcdType = a});+ -- | The start date and time of the request, in UTC format (for example, /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). The default is to start fulfilling the request immediately. sfrcdValidFrom :: Lens' SpotFleetRequestConfigData (Maybe UTCTime) sfrcdValidFrom = lens _sfrcdValidFrom (\ s a -> s{_sfrcdValidFrom = a}) . mapping _Time;@@ -10668,6 +11188,8 @@                 (x .@? "excessCapacityTerminationPolicy")                 <*> (x .@? "validUntil")                 <*> (x .@? "terminateInstancesWithExpiration")+                <*> (x .@? "fulfilledCapacity")+                <*> (x .@? "type")                 <*> (x .@? "validFrom")                 <*> (x .@? "allocationStrategy")                 <*> (x .@ "spotPrice")@@ -10690,7 +11212,8 @@                "ValidUntil" =: _sfrcdValidUntil,                "TerminateInstancesWithExpiration" =:                  _sfrcdTerminateInstancesWithExpiration,-               "ValidFrom" =: _sfrcdValidFrom,+               "FulfilledCapacity" =: _sfrcdFulfilledCapacity,+               "Type" =: _sfrcdType, "ValidFrom" =: _sfrcdValidFrom,                "AllocationStrategy" =: _sfrcdAllocationStrategy,                "SpotPrice" =: _sfrcdSpotPrice,                "TargetCapacity" =: _sfrcdTargetCapacity,@@ -11088,6 +11611,168 @@  instance NFData SpotPrice +-- | Describes a stale rule in a security group.+--+-- /See:/ 'staleIPPermission' smart constructor.+data StaleIPPermission = StaleIPPermission'+    { _sipFromPort         :: !(Maybe Int)+    , _sipUserIdGroupPairs :: !(Maybe [UserIdGroupPair])+    , _sipPrefixListIds    :: !(Maybe [Text])+    , _sipIPProtocol       :: !(Maybe Text)+    , _sipToPort           :: !(Maybe Int)+    , _sipIPRanges         :: !(Maybe [Text])+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StaleIPPermission' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'sipFromPort'+--+-- * 'sipUserIdGroupPairs'+--+-- * 'sipPrefixListIds'+--+-- * 'sipIPProtocol'+--+-- * 'sipToPort'+--+-- * 'sipIPRanges'+staleIPPermission+    :: StaleIPPermission+staleIPPermission =+    StaleIPPermission'+    { _sipFromPort = Nothing+    , _sipUserIdGroupPairs = Nothing+    , _sipPrefixListIds = Nothing+    , _sipIPProtocol = Nothing+    , _sipToPort = Nothing+    , _sipIPRanges = Nothing+    }++-- | The start of the port range for the TCP and UDP protocols, or an ICMP type number. A value of '-1' indicates all ICMP types.+sipFromPort :: Lens' StaleIPPermission (Maybe Int)+sipFromPort = lens _sipFromPort (\ s a -> s{_sipFromPort = a});++-- | One or more security group pairs. Returns the ID of the referenced security group and VPC, and the ID and status of the VPC peering connection.+sipUserIdGroupPairs :: Lens' StaleIPPermission [UserIdGroupPair]+sipUserIdGroupPairs = lens _sipUserIdGroupPairs (\ s a -> s{_sipUserIdGroupPairs = a}) . _Default . _Coerce;++-- | One or more prefix list IDs for an AWS service. Not applicable for stale security group rules.+sipPrefixListIds :: Lens' StaleIPPermission [Text]+sipPrefixListIds = lens _sipPrefixListIds (\ s a -> s{_sipPrefixListIds = a}) . _Default . _Coerce;++-- | The IP protocol name (for 'tcp', 'udp', and 'icmp') or number (see <http://www.iana.org/assignments/protocol-numbers/protocol-numbers.xhtml Protocol Numbers)>.+sipIPProtocol :: Lens' StaleIPPermission (Maybe Text)+sipIPProtocol = lens _sipIPProtocol (\ s a -> s{_sipIPProtocol = a});++-- | The end of the port range for the TCP and UDP protocols, or an ICMP type number. A value of '-1' indicates all ICMP types.+sipToPort :: Lens' StaleIPPermission (Maybe Int)+sipToPort = lens _sipToPort (\ s a -> s{_sipToPort = a});++-- | One or more IP ranges. Not applicable for stale security group rules.+sipIPRanges :: Lens' StaleIPPermission [Text]+sipIPRanges = lens _sipIPRanges (\ s a -> s{_sipIPRanges = a}) . _Default . _Coerce;++instance FromXML StaleIPPermission where+        parseXML x+          = StaleIPPermission' <$>+              (x .@? "fromPort") <*>+                (x .@? "groups" .!@ mempty >>=+                   may (parseXMLList "item"))+                <*>+                (x .@? "prefixListIds" .!@ mempty >>=+                   may (parseXMLList "item"))+                <*> (x .@? "ipProtocol")+                <*> (x .@? "toPort")+                <*>+                (x .@? "ipRanges" .!@ mempty >>=+                   may (parseXMLList "item"))++instance Hashable StaleIPPermission++instance NFData StaleIPPermission++-- | Describes a stale security group (a security group that contains stale rules).+--+-- /See:/ 'staleSecurityGroup' smart constructor.+data StaleSecurityGroup = StaleSecurityGroup'+    { _ssgVPCId                    :: !(Maybe Text)+    , _ssgGroupName                :: !(Maybe Text)+    , _ssgStaleIPPermissionsEgress :: !(Maybe [StaleIPPermission])+    , _ssgStaleIPPermissions       :: !(Maybe [StaleIPPermission])+    , _ssgDescription              :: !(Maybe Text)+    , _ssgGroupId                  :: !Text+    } deriving (Eq,Read,Show,Data,Typeable,Generic)++-- | Creates a value of 'StaleSecurityGroup' with the minimum fields required to make a request.+--+-- Use one of the following lenses to modify other fields as desired:+--+-- * 'ssgVPCId'+--+-- * 'ssgGroupName'+--+-- * 'ssgStaleIPPermissionsEgress'+--+-- * 'ssgStaleIPPermissions'+--+-- * 'ssgDescription'+--+-- * 'ssgGroupId'+staleSecurityGroup+    :: Text -- ^ 'ssgGroupId'+    -> StaleSecurityGroup+staleSecurityGroup pGroupId_ =+    StaleSecurityGroup'+    { _ssgVPCId = Nothing+    , _ssgGroupName = Nothing+    , _ssgStaleIPPermissionsEgress = Nothing+    , _ssgStaleIPPermissions = Nothing+    , _ssgDescription = Nothing+    , _ssgGroupId = pGroupId_+    }++-- | The ID of the VPC for the security group.+ssgVPCId :: Lens' StaleSecurityGroup (Maybe Text)+ssgVPCId = lens _ssgVPCId (\ s a -> s{_ssgVPCId = a});++-- | The name of the security group.+ssgGroupName :: Lens' StaleSecurityGroup (Maybe Text)+ssgGroupName = lens _ssgGroupName (\ s a -> s{_ssgGroupName = a});++-- | Information about the stale outbound rules in the security group.+ssgStaleIPPermissionsEgress :: Lens' StaleSecurityGroup [StaleIPPermission]+ssgStaleIPPermissionsEgress = lens _ssgStaleIPPermissionsEgress (\ s a -> s{_ssgStaleIPPermissionsEgress = a}) . _Default . _Coerce;++-- | Information about the stale inbound rules in the security group.+ssgStaleIPPermissions :: Lens' StaleSecurityGroup [StaleIPPermission]+ssgStaleIPPermissions = lens _ssgStaleIPPermissions (\ s a -> s{_ssgStaleIPPermissions = a}) . _Default . _Coerce;++-- | The description of the security group.+ssgDescription :: Lens' StaleSecurityGroup (Maybe Text)+ssgDescription = lens _ssgDescription (\ s a -> s{_ssgDescription = a});++-- | The ID of the security group.+ssgGroupId :: Lens' StaleSecurityGroup Text+ssgGroupId = lens _ssgGroupId (\ s a -> s{_ssgGroupId = a});++instance FromXML StaleSecurityGroup where+        parseXML x+          = StaleSecurityGroup' <$>+              (x .@? "vpcId") <*> (x .@? "groupName") <*>+                (x .@? "staleIpPermissionsEgress" .!@ mempty >>=+                   may (parseXMLList "item"))+                <*>+                (x .@? "staleIpPermissions" .!@ mempty >>=+                   may (parseXMLList "item"))+                <*> (x .@? "description")+                <*> (x .@ "groupId")++instance Hashable StaleSecurityGroup++instance NFData StaleSecurityGroup+ -- | Describes a state change. -- -- /See:/ 'stateReason' smart constructor.@@ -11563,7 +12248,7 @@  instance NFData UserBucketDetails --- | Describes the user data to be made available to an instance.+-- | Describes the user data for an instance. -- -- /See:/ 'userData' smart constructor. newtype UserData = UserData'@@ -11582,7 +12267,7 @@     { _udData = Nothing     } --- | The Base64-encoded MIME user data for the instance.+-- | The user data. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. udData :: Lens' UserData (Maybe Text) udData = lens _udData (\ s a -> s{_udData = a}); @@ -11640,7 +12325,7 @@ uigpVPCId :: Lens' UserIdGroupPair (Maybe Text) uigpVPCId = lens _uigpVPCId (\ s a -> s{_uigpVPCId = a}); --- | The ID of an AWS account.+-- | The ID of an AWS account. For a referenced security group in another VPC, the account ID of the referenced security group is returned. -- -- [EC2-Classic] Required when adding or removing rules that reference a security group in another AWS account. uigpUserId :: Lens' UserIdGroupPair (Maybe Text)@@ -12065,7 +12750,7 @@ vpcpcStatus :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionStateReason) vpcpcStatus = lens _vpcpcStatus (\ s a -> s{_vpcpcStatus = a}); --- | Information about the peer VPC. CIDR block information is not returned when creating a VPC peering connection, or when describing a VPC peering connection that\'s in the 'initiating-request' or 'pending-acceptance' state.+-- | Information about the accepter VPC. CIDR block information is not returned when creating a VPC peering connection, or when describing a VPC peering connection that\'s in the 'initiating-request' or 'pending-acceptance' state. vpcpcAccepterVPCInfo :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionVPCInfo) vpcpcAccepterVPCInfo = lens _vpcpcAccepterVPCInfo (\ s a -> s{_vpcpcAccepterVPCInfo = a}); @@ -12102,6 +12787,7 @@ data VPCPeeringConnectionOptionsDescription = VPCPeeringConnectionOptionsDescription'     { _vpcodAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool)     , _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool)+    , _vpcodAllowDNSResolutionFromRemoteVPC            :: !(Maybe Bool)     } deriving (Eq,Read,Show,Data,Typeable,Generic)  -- | Creates a value of 'VPCPeeringConnectionOptionsDescription' with the minimum fields required to make a request.@@ -12111,12 +12797,15 @@ -- * 'vpcodAllowEgressFromLocalVPCToRemoteClassicLink' -- -- * 'vpcodAllowEgressFromLocalClassicLinkToRemoteVPC'+--+-- * 'vpcodAllowDNSResolutionFromRemoteVPC' vpcPeeringConnectionOptionsDescription     :: VPCPeeringConnectionOptionsDescription vpcPeeringConnectionOptionsDescription =     VPCPeeringConnectionOptionsDescription'     { _vpcodAllowEgressFromLocalVPCToRemoteClassicLink = Nothing     , _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing+    , _vpcodAllowDNSResolutionFromRemoteVPC = Nothing     }  -- | Indicates whether a local VPC can communicate with a ClassicLink connection in the peer VPC over the VPC peering connection.@@ -12127,6 +12816,10 @@ vpcodAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool) vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = lens _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = a}); +-- | Indicates whether a local VPC can resolve public DNS hostnames to private IP addresses when queried from instances in a peer VPC.+vpcodAllowDNSResolutionFromRemoteVPC :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool)+vpcodAllowDNSResolutionFromRemoteVPC = lens _vpcodAllowDNSResolutionFromRemoteVPC (\ s a -> s{_vpcodAllowDNSResolutionFromRemoteVPC = a});+ instance FromXML          VPCPeeringConnectionOptionsDescription where         parseXML x@@ -12134,6 +12827,7 @@               (x .@? "allowEgressFromLocalVpcToRemoteClassicLink")                 <*>                 (x .@? "allowEgressFromLocalClassicLinkToRemoteVpc")+                <*> (x .@? "allowDnsResolutionFromRemoteVpc")  instance Hashable          VPCPeeringConnectionOptionsDescription