amazonka-ec2 0.3.4 → 0.3.5

raw patch · 176 files changed

+18292/−12592 lines, 176 filesdep ~amazonka-corePVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: amazonka-core

API changes (from Hackage documentation)

Files

• amazonka-ec2.cabal +21/−2
• gen/Network/AWS/EC2.hs +38/−0
• gen/Network/AWS/EC2/AcceptVpcPeeringConnection.hs +3/−0
• gen/Network/AWS/EC2/AllocateAddress.hs +4/−1
• gen/Network/AWS/EC2/AssignPrivateIpAddresses.hs +2/−2
• gen/Network/AWS/EC2/AssociateAddress.hs +4/−1
• gen/Network/AWS/EC2/AssociateDhcpOptions.hs +3/−0
• gen/Network/AWS/EC2/AssociateRouteTable.hs +3/−0
• gen/Network/AWS/EC2/AttachClassicLinkVpc.hs +3/−0
• gen/Network/AWS/EC2/AttachInternetGateway.hs +3/−0
• gen/Network/AWS/EC2/AttachNetworkInterface.hs +3/−0
• gen/Network/AWS/EC2/AttachVolume.hs +14/−10
• gen/Network/AWS/EC2/AttachVpnGateway.hs +3/−0
• gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs +3/−0
• gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs +3/−0
• gen/Network/AWS/EC2/BundleInstance.hs +3/−0
• gen/Network/AWS/EC2/CancelBundleTask.hs +4/−1
• gen/Network/AWS/EC2/CancelConversionTask.hs +5/−1
• gen/Network/AWS/EC2/CancelImportTask.hs +150/−0
• gen/Network/AWS/EC2/CancelReservedInstancesListing.hs +1/−1
• gen/Network/AWS/EC2/CancelSpotFleetRequests.hs +150/−0
• gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs +4/−1
• gen/Network/AWS/EC2/ConfirmProductInstance.hs +3/−0
• gen/Network/AWS/EC2/CopyImage.hs +7/−4
• gen/Network/AWS/EC2/CopySnapshot.hs +17/−13
• gen/Network/AWS/EC2/CreateCustomerGateway.hs +11/−0
• gen/Network/AWS/EC2/CreateDhcpOptions.hs +3/−0
• gen/Network/AWS/EC2/CreateImage.hs +4/−1
• gen/Network/AWS/EC2/CreateInstanceExportTask.hs +4/−2
• gen/Network/AWS/EC2/CreateInternetGateway.hs +3/−0
• gen/Network/AWS/EC2/CreateKeyPair.hs +4/−1
• gen/Network/AWS/EC2/CreateNetworkAcl.hs +3/−0
• gen/Network/AWS/EC2/CreateNetworkAclEntry.hs +3/−0
• gen/Network/AWS/EC2/CreateNetworkInterface.hs +5/−2
• gen/Network/AWS/EC2/CreatePlacementGroup.hs +4/−1
• gen/Network/AWS/EC2/CreateReservedInstancesListing.hs +1/−1
• gen/Network/AWS/EC2/CreateRoute.hs +47/−4
• gen/Network/AWS/EC2/CreateRouteTable.hs +3/−0
• gen/Network/AWS/EC2/CreateSecurityGroup.hs +4/−1
• gen/Network/AWS/EC2/CreateSnapshot.hs +19/−17
• gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs +4/−1
• gen/Network/AWS/EC2/CreateSubnet.hs +3/−0
• gen/Network/AWS/EC2/CreateTags.hs +4/−1
• gen/Network/AWS/EC2/CreateVolume.hs +12/−8
• gen/Network/AWS/EC2/CreateVpc.hs +3/−0
• gen/Network/AWS/EC2/CreateVpcEndpoint.hs +183/−0
• gen/Network/AWS/EC2/CreateVpcPeeringConnection.hs +3/−0
• gen/Network/AWS/EC2/CreateVpnConnection.hs +3/−0
• gen/Network/AWS/EC2/CreateVpnGateway.hs +3/−0
• gen/Network/AWS/EC2/DeleteCustomerGateway.hs +3/−0
• gen/Network/AWS/EC2/DeleteDhcpOptions.hs +3/−0
• gen/Network/AWS/EC2/DeleteInternetGateway.hs +3/−0
• gen/Network/AWS/EC2/DeleteKeyPair.hs +3/−0
• gen/Network/AWS/EC2/DeleteNetworkAcl.hs +3/−0
• gen/Network/AWS/EC2/DeleteNetworkAclEntry.hs +3/−0
• gen/Network/AWS/EC2/DeleteNetworkInterface.hs +3/−0
• gen/Network/AWS/EC2/DeletePlacementGroup.hs +4/−1
• gen/Network/AWS/EC2/DeleteRoute.hs +3/−0
• gen/Network/AWS/EC2/DeleteRouteTable.hs +3/−0
• gen/Network/AWS/EC2/DeleteSecurityGroup.hs +3/−0
• gen/Network/AWS/EC2/DeleteSnapshot.hs +8/−5
• gen/Network/AWS/EC2/DeleteSpotDatafeedSubscription.hs +4/−1
• gen/Network/AWS/EC2/DeleteSubnet.hs +3/−0
• gen/Network/AWS/EC2/DeleteTags.hs +4/−1
• gen/Network/AWS/EC2/DeleteVolume.hs +6/−3
• gen/Network/AWS/EC2/DeleteVpc.hs +3/−0
• gen/Network/AWS/EC2/DeleteVpcEndpoints.hs +123/−0
• gen/Network/AWS/EC2/DeleteVpcPeeringConnection.hs +3/−0
• gen/Network/AWS/EC2/DeleteVpnConnection.hs +3/−0
• gen/Network/AWS/EC2/DeleteVpnGateway.hs +3/−0
• gen/Network/AWS/EC2/DeregisterImage.hs +3/−0
• gen/Network/AWS/EC2/DescribeAccountAttributes.hs +3/−0
• gen/Network/AWS/EC2/DescribeAddresses.hs +4/−1
• gen/Network/AWS/EC2/DescribeAvailabilityZones.hs +4/−1
• gen/Network/AWS/EC2/DescribeBundleTasks.hs +3/−0
• gen/Network/AWS/EC2/DescribeClassicLinkInstances.hs +3/−0
• gen/Network/AWS/EC2/DescribeConversionTasks.hs +6/−1
• gen/Network/AWS/EC2/DescribeCustomerGateways.hs +3/−0
• gen/Network/AWS/EC2/DescribeDhcpOptions.hs +3/−0
• gen/Network/AWS/EC2/DescribeExportTasks.hs +1/−0
• gen/Network/AWS/EC2/DescribeImageAttribute.hs +3/−0
• gen/Network/AWS/EC2/DescribeImages.hs +11/−8
• gen/Network/AWS/EC2/DescribeImportImageTasks.hs +166/−0
• gen/Network/AWS/EC2/DescribeImportSnapshotTasks.hs +166/−0
• gen/Network/AWS/EC2/DescribeInstanceAttribute.hs +3/−0
• gen/Network/AWS/EC2/DescribeInstanceStatus.hs +22/−59
• gen/Network/AWS/EC2/DescribeInstances.hs +10/−7
• gen/Network/AWS/EC2/DescribeInternetGateways.hs +3/−0
• gen/Network/AWS/EC2/DescribeKeyPairs.hs +4/−1
• gen/Network/AWS/EC2/DescribeMovingAddresses.hs +176/−0
• gen/Network/AWS/EC2/DescribeNetworkAcls.hs +3/−0
• gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs +3/−0
• gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs +3/−0
• gen/Network/AWS/EC2/DescribePlacementGroups.hs +4/−1
• gen/Network/AWS/EC2/DescribePrefixLists.hs +176/−0
• gen/Network/AWS/EC2/DescribeRegions.hs +3/−0
• gen/Network/AWS/EC2/DescribeReservedInstances.hs +5/−2
• gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs +1/−1
• gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs +1/−1
• gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs +6/−2
• gen/Network/AWS/EC2/DescribeRouteTables.hs +6/−0
• gen/Network/AWS/EC2/DescribeSecurityGroups.hs +7/−1
• gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs +6/−4
• gen/Network/AWS/EC2/DescribeSnapshots.hs +6/−3
• gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs +4/−1
• gen/Network/AWS/EC2/DescribeSpotFleetInstances.hs +169/−0
• gen/Network/AWS/EC2/DescribeSpotFleetRequestHistory.hs +224/−0
• gen/Network/AWS/EC2/DescribeSpotFleetRequests.hs +157/−0
• gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs +5/−2
• gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs +14/−13
• gen/Network/AWS/EC2/DescribeSubnets.hs +3/−0
• gen/Network/AWS/EC2/DescribeTags.hs +4/−1
• gen/Network/AWS/EC2/DescribeVolumeAttribute.hs +4/−1
• gen/Network/AWS/EC2/DescribeVolumeStatus.hs +3/−0
• gen/Network/AWS/EC2/DescribeVolumes.hs +6/−2
• gen/Network/AWS/EC2/DescribeVpcAttribute.hs +3/−0
• gen/Network/AWS/EC2/DescribeVpcClassicLink.hs +3/−0
• gen/Network/AWS/EC2/DescribeVpcEndpointServices.hs +148/−0
• gen/Network/AWS/EC2/DescribeVpcEndpoints.hs +177/−0
• gen/Network/AWS/EC2/DescribeVpcPeeringConnections.hs +3/−0
• gen/Network/AWS/EC2/DescribeVpcs.hs +3/−0
• gen/Network/AWS/EC2/DescribeVpnConnections.hs +3/−0
• gen/Network/AWS/EC2/DescribeVpnGateways.hs +3/−0
• gen/Network/AWS/EC2/DetachClassicLinkVpc.hs +3/−0
• gen/Network/AWS/EC2/DetachInternetGateway.hs +3/−0
• gen/Network/AWS/EC2/DetachNetworkInterface.hs +3/−0
• gen/Network/AWS/EC2/DetachVolume.hs +6/−3
• gen/Network/AWS/EC2/DetachVpnGateway.hs +3/−0
• gen/Network/AWS/EC2/DisableVpcClassicLink.hs +3/−0
• gen/Network/AWS/EC2/DisassociateAddress.hs +4/−1
• gen/Network/AWS/EC2/DisassociateRouteTable.hs +3/−0
• gen/Network/AWS/EC2/EnableVolumeIO.hs +3/−0
• gen/Network/AWS/EC2/EnableVpcClassicLink.hs +4/−1
• gen/Network/AWS/EC2/GetConsoleOutput.hs +3/−0
• gen/Network/AWS/EC2/GetPasswordData.hs +3/−0
• gen/Network/AWS/EC2/ImportImage.hs +316/−0
• gen/Network/AWS/EC2/ImportInstance.hs +8/−4
• gen/Network/AWS/EC2/ImportKeyPair.hs +4/−1
• gen/Network/AWS/EC2/ImportSnapshot.hs +180/−0
• gen/Network/AWS/EC2/ImportVolume.hs +9/−3
• gen/Network/AWS/EC2/ModifyImageAttribute.hs +3/−0
• gen/Network/AWS/EC2/ModifyInstanceAttribute.hs +5/−2
• gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs +3/−0
• gen/Network/AWS/EC2/ModifyReservedInstances.hs +1/−1
• gen/Network/AWS/EC2/ModifySnapshotAttribute.hs +4/−1
• gen/Network/AWS/EC2/ModifyVolumeAttribute.hs +3/−0
• gen/Network/AWS/EC2/ModifyVpcEndpoint.hs +169/−0
• gen/Network/AWS/EC2/MonitorInstances.hs +4/−1
• gen/Network/AWS/EC2/MoveAddressToVpc.hs +137/−0
• gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs +4/−1
• gen/Network/AWS/EC2/RebootInstances.hs +4/−1
• gen/Network/AWS/EC2/RegisterImage.hs +5/−2
• gen/Network/AWS/EC2/RejectVpcPeeringConnection.hs +3/−0
• gen/Network/AWS/EC2/ReleaseAddress.hs +3/−0
• gen/Network/AWS/EC2/ReplaceNetworkAclAssociation.hs +3/−0
• gen/Network/AWS/EC2/ReplaceNetworkAclEntry.hs +3/−0
• gen/Network/AWS/EC2/ReplaceRoute.hs +3/−0
• gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs +3/−0
• gen/Network/AWS/EC2/ReportInstanceStatus.hs +3/−0
• gen/Network/AWS/EC2/RequestSpotFleet.hs +126/−0
• gen/Network/AWS/EC2/RequestSpotInstances.hs +15/−1
• gen/Network/AWS/EC2/ResetImageAttribute.hs +3/−0
• gen/Network/AWS/EC2/ResetInstanceAttribute.hs +3/−0
• gen/Network/AWS/EC2/ResetNetworkInterfaceAttribute.hs +3/−0
• gen/Network/AWS/EC2/ResetSnapshotAttribute.hs +4/−1
• gen/Network/AWS/EC2/RestoreAddressToClassic.hs +133/−0
• gen/Network/AWS/EC2/RevokeSecurityGroupEgress.hs +3/−0
• gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs +3/−0
• gen/Network/AWS/EC2/RunInstances.hs +13/−10
• gen/Network/AWS/EC2/StartInstances.hs +4/−1
• gen/Network/AWS/EC2/StopInstances.hs +5/−2
• gen/Network/AWS/EC2/TerminateInstances.hs +7/−5
• gen/Network/AWS/EC2/Types.hs +14279/−12341
• gen/Network/AWS/EC2/UnmonitorInstances.hs +4/−1
• gen/Network/AWS/EC2/Waiters.hs +14/−2
• src/Network/AWS/EC2/Internal.hs +5/−5

@@ -1,5 +1,5 @@ name:                  amazonka-ec2-version:               0.3.4+version:               0.3.5 synopsis:              Amazon Elastic Compute Cloud SDK. homepage:              https://github.com/brendanhay/amazonka license:               OtherLicense@@ -61,7 +61,9 @@         , Network.AWS.EC2.CancelBundleTask         , Network.AWS.EC2.CancelConversionTask         , Network.AWS.EC2.CancelExportTask+        , Network.AWS.EC2.CancelImportTask         , Network.AWS.EC2.CancelReservedInstancesListing+        , Network.AWS.EC2.CancelSpotFleetRequests         , Network.AWS.EC2.CancelSpotInstanceRequests         , Network.AWS.EC2.ConfirmProductInstance         , Network.AWS.EC2.CopyImage@@ -86,6 +88,7 @@         , Network.AWS.EC2.CreateTags         , Network.AWS.EC2.CreateVolume         , Network.AWS.EC2.CreateVpc+        , Network.AWS.EC2.CreateVpcEndpoint         , Network.AWS.EC2.CreateVpcPeeringConnection         , Network.AWS.EC2.CreateVpnConnection         , Network.AWS.EC2.CreateVpnConnectionRoute@@ -107,6 +110,7 @@         , Network.AWS.EC2.DeleteTags         , Network.AWS.EC2.DeleteVolume         , Network.AWS.EC2.DeleteVpc+        , Network.AWS.EC2.DeleteVpcEndpoints         , Network.AWS.EC2.DeleteVpcPeeringConnection         , Network.AWS.EC2.DeleteVpnConnection         , Network.AWS.EC2.DeleteVpnConnectionRoute@@ -123,15 +127,19 @@         , Network.AWS.EC2.DescribeExportTasks         , Network.AWS.EC2.DescribeImageAttribute         , Network.AWS.EC2.DescribeImages+        , Network.AWS.EC2.DescribeImportImageTasks+        , Network.AWS.EC2.DescribeImportSnapshotTasks         , Network.AWS.EC2.DescribeInstanceAttribute         , Network.AWS.EC2.DescribeInstanceStatus         , Network.AWS.EC2.DescribeInstances         , Network.AWS.EC2.DescribeInternetGateways         , Network.AWS.EC2.DescribeKeyPairs+        , Network.AWS.EC2.DescribeMovingAddresses         , Network.AWS.EC2.DescribeNetworkAcls         , Network.AWS.EC2.DescribeNetworkInterfaceAttribute         , Network.AWS.EC2.DescribeNetworkInterfaces         , Network.AWS.EC2.DescribePlacementGroups+        , Network.AWS.EC2.DescribePrefixLists         , Network.AWS.EC2.DescribeRegions         , Network.AWS.EC2.DescribeReservedInstances         , Network.AWS.EC2.DescribeReservedInstancesListings@@ -142,6 +150,9 @@         , Network.AWS.EC2.DescribeSnapshotAttribute         , Network.AWS.EC2.DescribeSnapshots         , Network.AWS.EC2.DescribeSpotDatafeedSubscription+        , Network.AWS.EC2.DescribeSpotFleetInstances+        , Network.AWS.EC2.DescribeSpotFleetRequestHistory+        , Network.AWS.EC2.DescribeSpotFleetRequests         , Network.AWS.EC2.DescribeSpotInstanceRequests         , Network.AWS.EC2.DescribeSpotPriceHistory         , Network.AWS.EC2.DescribeSubnets@@ -151,6 +162,8 @@         , Network.AWS.EC2.DescribeVolumes         , Network.AWS.EC2.DescribeVpcAttribute         , Network.AWS.EC2.DescribeVpcClassicLink+        , Network.AWS.EC2.DescribeVpcEndpointServices+        , Network.AWS.EC2.DescribeVpcEndpoints         , Network.AWS.EC2.DescribeVpcPeeringConnections         , Network.AWS.EC2.DescribeVpcs         , Network.AWS.EC2.DescribeVpnConnections@@ -169,8 +182,10 @@         , Network.AWS.EC2.EnableVpcClassicLink         , Network.AWS.EC2.GetConsoleOutput         , Network.AWS.EC2.GetPasswordData+        , Network.AWS.EC2.ImportImage         , Network.AWS.EC2.ImportInstance         , Network.AWS.EC2.ImportKeyPair+        , Network.AWS.EC2.ImportSnapshot         , Network.AWS.EC2.ImportVolume         , Network.AWS.EC2.ModifyImageAttribute         , Network.AWS.EC2.ModifyInstanceAttribute@@ -180,7 +195,9 @@         , Network.AWS.EC2.ModifySubnetAttribute         , Network.AWS.EC2.ModifyVolumeAttribute         , Network.AWS.EC2.ModifyVpcAttribute+        , Network.AWS.EC2.ModifyVpcEndpoint         , Network.AWS.EC2.MonitorInstances+        , Network.AWS.EC2.MoveAddressToVpc         , Network.AWS.EC2.PurchaseReservedInstancesOffering         , Network.AWS.EC2.RebootInstances         , Network.AWS.EC2.RegisterImage@@ -191,11 +208,13 @@         , Network.AWS.EC2.ReplaceRoute         , Network.AWS.EC2.ReplaceRouteTableAssociation         , Network.AWS.EC2.ReportInstanceStatus+        , Network.AWS.EC2.RequestSpotFleet         , Network.AWS.EC2.RequestSpotInstances         , Network.AWS.EC2.ResetImageAttribute         , Network.AWS.EC2.ResetInstanceAttribute         , Network.AWS.EC2.ResetNetworkInterfaceAttribute         , Network.AWS.EC2.ResetSnapshotAttribute+        , Network.AWS.EC2.RestoreAddressToClassic         , Network.AWS.EC2.RevokeSecurityGroupEgress         , Network.AWS.EC2.RevokeSecurityGroupIngress         , Network.AWS.EC2.RunInstances@@ -211,5 +230,5 @@           Network.AWS.EC2.Internal      build-depends:-          amazonka-core == 0.3.4.*+          amazonka-core == 0.3.5.*         , base          >= 4.7     && < 5

@@ -40,7 +40,9 @@     , module Network.AWS.EC2.CancelBundleTask     , module Network.AWS.EC2.CancelConversionTask     , module Network.AWS.EC2.CancelExportTask+    , module Network.AWS.EC2.CancelImportTask     , module Network.AWS.EC2.CancelReservedInstancesListing+    , module Network.AWS.EC2.CancelSpotFleetRequests     , module Network.AWS.EC2.CancelSpotInstanceRequests     , module Network.AWS.EC2.ConfirmProductInstance     , module Network.AWS.EC2.CopyImage@@ -65,6 +67,7 @@     , module Network.AWS.EC2.CreateTags     , module Network.AWS.EC2.CreateVolume     , module Network.AWS.EC2.CreateVpc+    , module Network.AWS.EC2.CreateVpcEndpoint     , module Network.AWS.EC2.CreateVpcPeeringConnection     , module Network.AWS.EC2.CreateVpnConnection     , module Network.AWS.EC2.CreateVpnConnectionRoute@@ -86,6 +89,7 @@     , module Network.AWS.EC2.DeleteTags     , module Network.AWS.EC2.DeleteVolume     , module Network.AWS.EC2.DeleteVpc+    , module Network.AWS.EC2.DeleteVpcEndpoints     , module Network.AWS.EC2.DeleteVpcPeeringConnection     , module Network.AWS.EC2.DeleteVpnConnection     , module Network.AWS.EC2.DeleteVpnConnectionRoute@@ -102,15 +106,19 @@     , module Network.AWS.EC2.DescribeExportTasks     , module Network.AWS.EC2.DescribeImageAttribute     , module Network.AWS.EC2.DescribeImages+    , module Network.AWS.EC2.DescribeImportImageTasks+    , module Network.AWS.EC2.DescribeImportSnapshotTasks     , module Network.AWS.EC2.DescribeInstanceAttribute     , module Network.AWS.EC2.DescribeInstanceStatus     , module Network.AWS.EC2.DescribeInstances     , module Network.AWS.EC2.DescribeInternetGateways     , module Network.AWS.EC2.DescribeKeyPairs+    , module Network.AWS.EC2.DescribeMovingAddresses     , module Network.AWS.EC2.DescribeNetworkAcls     , module Network.AWS.EC2.DescribeNetworkInterfaceAttribute     , module Network.AWS.EC2.DescribeNetworkInterfaces     , module Network.AWS.EC2.DescribePlacementGroups+    , module Network.AWS.EC2.DescribePrefixLists     , module Network.AWS.EC2.DescribeRegions     , module Network.AWS.EC2.DescribeReservedInstances     , module Network.AWS.EC2.DescribeReservedInstancesListings@@ -121,6 +129,9 @@     , module Network.AWS.EC2.DescribeSnapshotAttribute     , module Network.AWS.EC2.DescribeSnapshots     , module Network.AWS.EC2.DescribeSpotDatafeedSubscription+    , module Network.AWS.EC2.DescribeSpotFleetInstances+    , module Network.AWS.EC2.DescribeSpotFleetRequestHistory+    , module Network.AWS.EC2.DescribeSpotFleetRequests     , module Network.AWS.EC2.DescribeSpotInstanceRequests     , module Network.AWS.EC2.DescribeSpotPriceHistory     , module Network.AWS.EC2.DescribeSubnets@@ -130,6 +141,8 @@     , module Network.AWS.EC2.DescribeVolumes     , module Network.AWS.EC2.DescribeVpcAttribute     , module Network.AWS.EC2.DescribeVpcClassicLink+    , module Network.AWS.EC2.DescribeVpcEndpointServices+    , module Network.AWS.EC2.DescribeVpcEndpoints     , module Network.AWS.EC2.DescribeVpcPeeringConnections     , module Network.AWS.EC2.DescribeVpcs     , module Network.AWS.EC2.DescribeVpnConnections@@ -148,8 +161,10 @@     , module Network.AWS.EC2.EnableVpcClassicLink     , module Network.AWS.EC2.GetConsoleOutput     , module Network.AWS.EC2.GetPasswordData+    , module Network.AWS.EC2.ImportImage     , module Network.AWS.EC2.ImportInstance     , module Network.AWS.EC2.ImportKeyPair+    , module Network.AWS.EC2.ImportSnapshot     , module Network.AWS.EC2.ImportVolume     , module Network.AWS.EC2.ModifyImageAttribute     , module Network.AWS.EC2.ModifyInstanceAttribute@@ -159,7 +174,9 @@     , module Network.AWS.EC2.ModifySubnetAttribute     , module Network.AWS.EC2.ModifyVolumeAttribute     , module Network.AWS.EC2.ModifyVpcAttribute+    , module Network.AWS.EC2.ModifyVpcEndpoint     , module Network.AWS.EC2.MonitorInstances+    , module Network.AWS.EC2.MoveAddressToVpc     , module Network.AWS.EC2.PurchaseReservedInstancesOffering     , module Network.AWS.EC2.RebootInstances     , module Network.AWS.EC2.RegisterImage@@ -170,11 +187,13 @@     , module Network.AWS.EC2.ReplaceRoute     , module Network.AWS.EC2.ReplaceRouteTableAssociation     , module Network.AWS.EC2.ReportInstanceStatus+    , module Network.AWS.EC2.RequestSpotFleet     , module Network.AWS.EC2.RequestSpotInstances     , module Network.AWS.EC2.ResetImageAttribute     , module Network.AWS.EC2.ResetInstanceAttribute     , module Network.AWS.EC2.ResetNetworkInterfaceAttribute     , module Network.AWS.EC2.ResetSnapshotAttribute+    , module Network.AWS.EC2.RestoreAddressToClassic     , module Network.AWS.EC2.RevokeSecurityGroupEgress     , module Network.AWS.EC2.RevokeSecurityGroupIngress     , module Network.AWS.EC2.RunInstances@@ -204,7 +223,9 @@ import Network.AWS.EC2.CancelBundleTask import Network.AWS.EC2.CancelConversionTask import Network.AWS.EC2.CancelExportTask+import Network.AWS.EC2.CancelImportTask import Network.AWS.EC2.CancelReservedInstancesListing+import Network.AWS.EC2.CancelSpotFleetRequests import Network.AWS.EC2.CancelSpotInstanceRequests import Network.AWS.EC2.ConfirmProductInstance import Network.AWS.EC2.CopyImage@@ -229,6 +250,7 @@ import Network.AWS.EC2.CreateTags import Network.AWS.EC2.CreateVolume import Network.AWS.EC2.CreateVpc+import Network.AWS.EC2.CreateVpcEndpoint import Network.AWS.EC2.CreateVpcPeeringConnection import Network.AWS.EC2.CreateVpnConnection import Network.AWS.EC2.CreateVpnConnectionRoute@@ -250,6 +272,7 @@ import Network.AWS.EC2.DeleteTags import Network.AWS.EC2.DeleteVolume import Network.AWS.EC2.DeleteVpc+import Network.AWS.EC2.DeleteVpcEndpoints import Network.AWS.EC2.DeleteVpcPeeringConnection import Network.AWS.EC2.DeleteVpnConnection import Network.AWS.EC2.DeleteVpnConnectionRoute@@ -266,15 +289,19 @@ import Network.AWS.EC2.DescribeExportTasks import Network.AWS.EC2.DescribeImageAttribute import Network.AWS.EC2.DescribeImages+import Network.AWS.EC2.DescribeImportImageTasks+import Network.AWS.EC2.DescribeImportSnapshotTasks import Network.AWS.EC2.DescribeInstanceAttribute import Network.AWS.EC2.DescribeInstanceStatus import Network.AWS.EC2.DescribeInstances import Network.AWS.EC2.DescribeInternetGateways import Network.AWS.EC2.DescribeKeyPairs+import Network.AWS.EC2.DescribeMovingAddresses import Network.AWS.EC2.DescribeNetworkAcls import Network.AWS.EC2.DescribeNetworkInterfaceAttribute import Network.AWS.EC2.DescribeNetworkInterfaces import Network.AWS.EC2.DescribePlacementGroups+import Network.AWS.EC2.DescribePrefixLists import Network.AWS.EC2.DescribeRegions import Network.AWS.EC2.DescribeReservedInstances import Network.AWS.EC2.DescribeReservedInstancesListings@@ -285,6 +312,9 @@ import Network.AWS.EC2.DescribeSnapshotAttribute import Network.AWS.EC2.DescribeSnapshots import Network.AWS.EC2.DescribeSpotDatafeedSubscription+import Network.AWS.EC2.DescribeSpotFleetInstances+import Network.AWS.EC2.DescribeSpotFleetRequestHistory+import Network.AWS.EC2.DescribeSpotFleetRequests import Network.AWS.EC2.DescribeSpotInstanceRequests import Network.AWS.EC2.DescribeSpotPriceHistory import Network.AWS.EC2.DescribeSubnets@@ -294,6 +324,8 @@ import Network.AWS.EC2.DescribeVolumes import Network.AWS.EC2.DescribeVpcAttribute import Network.AWS.EC2.DescribeVpcClassicLink+import Network.AWS.EC2.DescribeVpcEndpointServices+import Network.AWS.EC2.DescribeVpcEndpoints import Network.AWS.EC2.DescribeVpcPeeringConnections import Network.AWS.EC2.DescribeVpcs import Network.AWS.EC2.DescribeVpnConnections@@ -312,8 +344,10 @@ import Network.AWS.EC2.EnableVpcClassicLink import Network.AWS.EC2.GetConsoleOutput import Network.AWS.EC2.GetPasswordData+import Network.AWS.EC2.ImportImage import Network.AWS.EC2.ImportInstance import Network.AWS.EC2.ImportKeyPair+import Network.AWS.EC2.ImportSnapshot import Network.AWS.EC2.ImportVolume import Network.AWS.EC2.ModifyImageAttribute import Network.AWS.EC2.ModifyInstanceAttribute@@ -323,7 +357,9 @@ import Network.AWS.EC2.ModifySubnetAttribute import Network.AWS.EC2.ModifyVolumeAttribute import Network.AWS.EC2.ModifyVpcAttribute+import Network.AWS.EC2.ModifyVpcEndpoint import Network.AWS.EC2.MonitorInstances+import Network.AWS.EC2.MoveAddressToVpc import Network.AWS.EC2.PurchaseReservedInstancesOffering import Network.AWS.EC2.RebootInstances import Network.AWS.EC2.RegisterImage@@ -334,11 +370,13 @@ import Network.AWS.EC2.ReplaceRoute import Network.AWS.EC2.ReplaceRouteTableAssociation import Network.AWS.EC2.ReportInstanceStatus+import Network.AWS.EC2.RequestSpotFleet import Network.AWS.EC2.RequestSpotInstances import Network.AWS.EC2.ResetImageAttribute import Network.AWS.EC2.ResetInstanceAttribute import Network.AWS.EC2.ResetNetworkInterfaceAttribute import Network.AWS.EC2.ResetSnapshotAttribute+import Network.AWS.EC2.RestoreAddressToClassic import Network.AWS.EC2.RevokeSecurityGroupEgress import Network.AWS.EC2.RevokeSecurityGroupIngress import Network.AWS.EC2.RunInstances

@@ -70,6 +70,9 @@     , _avpcVpcPeeringConnectionId = Nothing     } +-- | 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'. avpcDryRun :: Lens' AcceptVpcPeeringConnection (Maybe Bool) avpcDryRun = lens _avpcDryRun (\s a -> s { _avpcDryRun = a }) 

@@ -25,7 +25,7 @@ -- | Acquires an Elastic IP address. -- -- An Elastic IP address is for use either in the EC2-Classic platform or in a--- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide for Linux/.+-- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AllocateAddress.html> module Network.AWS.EC2.AllocateAddress@@ -78,6 +78,9 @@ aaDomain :: Lens' AllocateAddress (Maybe DomainType) aaDomain = lens _aaDomain (\s a -> s { _aaDomain = 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'. aaDryRun :: Lens' AllocateAddress (Maybe Bool) aaDryRun = lens _aaDryRun (\s a -> s { _aaDryRun = a }) 

@@ -27,8 +27,8 @@ -- you can specify the number of secondary IP addresses to be automatically -- assigned within the subnet's CIDR block range. The number of secondary IP -- addresses that you can assign to an instance varies by instance type. For--- information about instance types, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Types> in the /Amazon ElasticCompute Cloud User Guide for Linux/. For more information about Elastic IP--- addresses, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon Elastic Compute Cloud UserGuide for Linux/.+-- information about instance types, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Types> in the /Amazon ElasticCompute Cloud User Guide/. For more information about Elastic IP addresses,+-- see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon Elastic Compute Cloud User Guide/. -- -- AssignPrivateIpAddresses is available only in EC2-VPC. --

@@ -25,7 +25,7 @@ -- | Associates an Elastic IP address with an instance or a network interface. -- -- An Elastic IP address is for use in either the EC2-Classic platform or in a--- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide for Linux/.+-- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide/. -- -- [EC2-Classic, VPC in an EC2-VPC-only account] If the Elastic IP address is -- already associated with a different instance, it is disassociated from that@@ -120,6 +120,9 @@ aa1AllowReassociation =     lens _aa1AllowReassociation (\s a -> s { _aa1AllowReassociation = 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'. aa1DryRun :: Lens' AssociateAddress (Maybe Bool) aa1DryRun = lens _aa1DryRun (\s a -> s { _aa1DryRun = a }) 

@@ -87,6 +87,9 @@ adoDhcpOptionsId :: Lens' AssociateDhcpOptions Text adoDhcpOptionsId = lens _adoDhcpOptionsId (\s a -> s { _adoDhcpOptionsId = 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'. adoDryRun :: Lens' AssociateDhcpOptions (Maybe Bool) adoDryRun = lens _adoDryRun (\s a -> s { _adoDryRun = a }) 

@@ -80,6 +80,9 @@     , _artDryRun       = Nothing     } +-- | 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'. artDryRun :: Lens' AssociateRouteTable (Maybe Bool) artDryRun = lens _artDryRun (\s a -> s { _artDryRun = a }) 

@@ -89,6 +89,9 @@     , _aclvGroups     = mempty     } +-- | 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'. aclvDryRun :: Lens' AttachClassicLinkVpc (Maybe Bool) aclvDryRun = lens _aclvDryRun (\s a -> s { _aclvDryRun = a }) 

@@ -74,6 +74,9 @@     , _aigDryRun            = Nothing     } +-- | 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'. aigDryRun :: Lens' AttachInternetGateway (Maybe Bool) aigDryRun = lens _aigDryRun (\s a -> s { _aigDryRun = a }) 

@@ -84,6 +84,9 @@ aniDeviceIndex :: Lens' AttachNetworkInterface Int aniDeviceIndex = lens _aniDeviceIndex (\s a -> s { _aniDeviceIndex = 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'. aniDryRun :: Lens' AttachNetworkInterface (Maybe Bool) aniDryRun = lens _aniDryRun (\s a -> s { _aniDryRun = a }) 

@@ -22,14 +22,14 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Attaches an Amazon EBS volume to a running or stopped instance and exposes it--- to the instance with the specified device name.+-- | Attaches an EBS volume to a running or stopped instance and exposes it to the+-- instance with the specified device name. ----- Encrypted Amazon EBS volumes may only be attached to instances that support--- Amazon EBS encryption. 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 for Linux/.+-- Encrypted EBS volumes may only be attached to instances that support Amazon+-- EBS encryption. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBS Encryption> in the /AmazonElastic Compute Cloud User Guide/. ----- For a list of supported device names, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-attaching-volume.html Attaching an Amazon EBS Volume toan Instance>. Any device names that aren't reserved for instance store volumes--- can be used for Amazon EBS volumes. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/InstanceStorage.html Amazon EC2Instance Store> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For a list of supported device names, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-attaching-volume.html Attaching an EBS Volume to anInstance>. Any device names that aren't reserved for instance store volumes+-- can be used for EBS volumes. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/InstanceStorage.html Amazon EC2 InstanceStore> in the /Amazon Elastic Compute Cloud User Guide/. -- -- If a volume has an AWS Marketplace product code: --@@ -40,7 +40,8 @@ -- from a Windows instance and attach it to a Linux instance.  For an overview -- of the AWS Marketplace, see <https://aws.amazon.com/marketplace/help/200900000 Introducing AWS Marketplace>. ----- For more information about Amazon EBS volumes, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-attaching-volume.html Attaching Amazon EBSVolumes> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about EBS volumes, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-attaching-volume.html Attaching Amazon EBS Volumes> in+-- the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-AttachVolume.html> module Network.AWS.EC2.AttachVolume@@ -107,6 +108,9 @@ avDevice :: Lens' AttachVolume Text avDevice = lens _avDevice (\s a -> s { _avDevice = 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'. avDryRun :: Lens' AttachVolume (Maybe Bool) avDryRun = lens _avDryRun (\s a -> s { _avDryRun = a }) @@ -114,8 +118,8 @@ avInstanceId :: Lens' AttachVolume Text avInstanceId = lens _avInstanceId (\s a -> s { _avInstanceId = a }) --- | The ID of the Amazon EBS volume. The volume and instance must be within the--- same Availability Zone.+-- | The ID of the EBS volume. The volume and instance must be within the same+-- Availability Zone. avVolumeId :: Lens' AttachVolume Text avVolumeId = lens _avVolumeId (\s a -> s { _avVolumeId = a }) @@ -158,7 +162,7 @@ avrAttachTime :: Lens' AttachVolumeResponse (Maybe UTCTime) avrAttachTime = lens _avrAttachTime (\s a -> s { _avrAttachTime = a }) . mapping _Time --- | Indicates whether the Amazon EBS volume is deleted on instance termination.+-- | Indicates whether the EBS volume is deleted on instance termination. avrDeleteOnTermination :: Lens' AttachVolumeResponse (Maybe Bool) avrDeleteOnTermination =     lens _avrDeleteOnTermination (\s a -> s { _avrDeleteOnTermination = a })

@@ -74,6 +74,9 @@     , _avgDryRun       = Nothing     } +-- | 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'. avgDryRun :: Lens' AttachVpnGateway (Maybe Bool) avgDryRun = lens _avgDryRun (\s a -> s { _avgDryRun = a }) 

@@ -126,6 +126,9 @@ asgeCidrIp :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) asgeCidrIp = lens _asgeCidrIp (\s a -> s { _asgeCidrIp = 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'. asgeDryRun :: Lens' AuthorizeSecurityGroupEgress (Maybe Bool) asgeDryRun = lens _asgeDryRun (\s a -> s { _asgeDryRun = a }) 

@@ -129,6 +129,9 @@ asgiCidrIp :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) asgiCidrIp = lens _asgiCidrIp (\s a -> s { _asgiCidrIp = 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'. asgiDryRun :: Lens' AuthorizeSecurityGroupIngress (Maybe Bool) asgiDryRun = lens _asgiDryRun (\s a -> s { _asgiDryRun = a }) 

@@ -82,6 +82,9 @@     , _biDryRun     = Nothing     } +-- | 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'. biDryRun :: Lens' BundleInstance (Maybe Bool) biDryRun = lens _biDryRun (\s a -> s { _biDryRun = a }) 

@@ -72,6 +72,9 @@ cbtBundleId :: Lens' CancelBundleTask Text cbtBundleId = lens _cbtBundleId (\s a -> s { _cbtBundleId = 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'. cbtDryRun :: Lens' CancelBundleTask (Maybe Bool) cbtDryRun = lens _cbtDryRun (\s a -> s { _cbtDryRun = a }) @@ -90,7 +93,7 @@     { _cbtrBundleTask = Nothing     } --- | The bundle task.+-- | Information about the bundle task. cbtrBundleTask :: Lens' CancelBundleTaskResponse (Maybe BundleTask) cbtrBundleTask = lens _cbtrBundleTask (\s a -> s { _cbtrBundleTask = a }) 

@@ -28,7 +28,7 @@ -- 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 YourVirtual Machine to Amazon EC2> in the /Amazon Elastic Compute Cloud User Guidefor Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/UploadingYourInstancesandVolumes.html Using the Command Line Tools to Import YourVirtual Machine to Amazon EC2> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelConversionTask.html> module Network.AWS.EC2.CancelConversionTask@@ -82,9 +82,13 @@ cctConversionTaskId =     lens _cctConversionTaskId (\s a -> s { _cctConversionTaskId = 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'. cctDryRun :: Lens' CancelConversionTask (Maybe Bool) cctDryRun = lens _cctDryRun (\s a -> s { _cctDryRun = a }) +-- | The reason for canceling the conversion task. cctReasonMessage :: Lens' CancelConversionTask (Maybe Text) cctReasonMessage = lens _cctReasonMessage (\s a -> s { _cctReasonMessage = a }) 

@@ -0,0 +1,150 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CancelImportTask+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Cancels an in-process import virtual machine or import snapshot task.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelImportTask.html>+module Network.AWS.EC2.CancelImportTask+    (+    -- * Request+      CancelImportTask+    -- ** Request constructor+    , cancelImportTask+    -- ** Request lenses+    , citCancelReason+    , citDryRun+    , citImportTaskId++    -- * Response+    , CancelImportTaskResponse+    -- ** Response constructor+    , cancelImportTaskResponse+    -- ** Response lenses+    , citrImportTaskId+    , citrPreviousState+    , citrState+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CancelImportTask = CancelImportTask+    { _citCancelReason :: Maybe Text+    , _citDryRun       :: Maybe Bool+    , _citImportTaskId :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'CancelImportTask' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'citCancelReason' @::@ 'Maybe' 'Text'+--+-- * 'citDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'citImportTaskId' @::@ 'Maybe' 'Text'+--+cancelImportTask :: CancelImportTask+cancelImportTask = CancelImportTask+    { _citDryRun       = Nothing+    , _citImportTaskId = Nothing+    , _citCancelReason = Nothing+    }++-- | The reason for canceling the task.+citCancelReason :: Lens' CancelImportTask (Maybe Text)+citCancelReason = lens _citCancelReason (\s a -> s { _citCancelReason = 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'.+citDryRun :: Lens' CancelImportTask (Maybe Bool)+citDryRun = lens _citDryRun (\s a -> s { _citDryRun = a })++-- | The ID of the import image or import snapshot task to be canceled.+citImportTaskId :: Lens' CancelImportTask (Maybe Text)+citImportTaskId = lens _citImportTaskId (\s a -> s { _citImportTaskId = a })++data CancelImportTaskResponse = CancelImportTaskResponse+    { _citrImportTaskId  :: Maybe Text+    , _citrPreviousState :: Maybe Text+    , _citrState         :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'CancelImportTaskResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'citrImportTaskId' @::@ 'Maybe' 'Text'+--+-- * 'citrPreviousState' @::@ 'Maybe' 'Text'+--+-- * 'citrState' @::@ 'Maybe' 'Text'+--+cancelImportTaskResponse :: CancelImportTaskResponse+cancelImportTaskResponse = CancelImportTaskResponse+    { _citrImportTaskId  = Nothing+    , _citrState         = Nothing+    , _citrPreviousState = Nothing+    }++-- | The ID of the task being canceled.+citrImportTaskId :: Lens' CancelImportTaskResponse (Maybe Text)+citrImportTaskId = lens _citrImportTaskId (\s a -> s { _citrImportTaskId = a })++-- | The current state of the task being canceled.+citrPreviousState :: Lens' CancelImportTaskResponse (Maybe Text)+citrPreviousState =+    lens _citrPreviousState (\s a -> s { _citrPreviousState = a })++-- | The current state of the task being canceled.+citrState :: Lens' CancelImportTaskResponse (Maybe Text)+citrState = lens _citrState (\s a -> s { _citrState = a })++instance ToPath CancelImportTask where+    toPath = const "/"++instance ToQuery CancelImportTask where+    toQuery CancelImportTask{..} = mconcat+        [ "CancelReason" =? _citCancelReason+        , "DryRun"       =? _citDryRun+        , "ImportTaskId" =? _citImportTaskId+        ]++instance ToHeaders CancelImportTask++instance AWSRequest CancelImportTask where+    type Sv CancelImportTask = EC2+    type Rs CancelImportTask = CancelImportTaskResponse++    request  = post "CancelImportTask"+    response = xmlResponse++instance FromXML CancelImportTaskResponse where+    parseXML x = CancelImportTaskResponse+        <$> x .@? "importTaskId"+        <*> x .@? "previousState"+        <*> x .@? "state"

@@ -25,7 +25,7 @@ -- | Cancels the specified Reserved Instance listing in the Reserved Instance -- Marketplace. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelReservedInstancesListing.html> module Network.AWS.EC2.CancelReservedInstancesListing

@@ -0,0 +1,150 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CancelSpotFleetRequests+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Cancels the specified Spot fleet requests.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CancelSpotFleetRequests.html>+module Network.AWS.EC2.CancelSpotFleetRequests+    (+    -- * Request+      CancelSpotFleetRequests+    -- ** Request constructor+    , cancelSpotFleetRequests+    -- ** Request lenses+    , csfrDryRun+    , csfrSpotFleetRequestIds+    , csfrTerminateInstances++    -- * Response+    , CancelSpotFleetRequestsResponse+    -- ** Response constructor+    , cancelSpotFleetRequestsResponse+    -- ** Response lenses+    , csfrrSuccessfulFleetRequests+    , csfrrUnsuccessfulFleetRequests+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CancelSpotFleetRequests = CancelSpotFleetRequests+    { _csfrDryRun              :: Maybe Bool+    , _csfrSpotFleetRequestIds :: List "item" Text+    , _csfrTerminateInstances  :: Bool+    } deriving (Eq, Ord, Read, Show)++-- | 'CancelSpotFleetRequests' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csfrDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'csfrSpotFleetRequestIds' @::@ ['Text']+--+-- * 'csfrTerminateInstances' @::@ 'Bool'+--+cancelSpotFleetRequests :: Bool -- ^ 'csfrTerminateInstances'+                        -> CancelSpotFleetRequests+cancelSpotFleetRequests p1 = CancelSpotFleetRequests+    { _csfrTerminateInstances  = p1+    , _csfrDryRun              = Nothing+    , _csfrSpotFleetRequestIds = mempty+    }++-- | 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'.+csfrDryRun :: Lens' CancelSpotFleetRequests (Maybe Bool)+csfrDryRun = lens _csfrDryRun (\s a -> s { _csfrDryRun = a })++-- | The IDs of the Spot fleet requests.+csfrSpotFleetRequestIds :: Lens' CancelSpotFleetRequests [Text]+csfrSpotFleetRequestIds =+    lens _csfrSpotFleetRequestIds (\s a -> s { _csfrSpotFleetRequestIds = a })+        . _List++-- | Indicates whether to terminate instances for a Spot fleet request if it is+-- canceled successfully.+csfrTerminateInstances :: Lens' CancelSpotFleetRequests Bool+csfrTerminateInstances =+    lens _csfrTerminateInstances (\s a -> s { _csfrTerminateInstances = a })++data CancelSpotFleetRequestsResponse = CancelSpotFleetRequestsResponse+    { _csfrrSuccessfulFleetRequests   :: List "item" CancelSpotFleetRequestsSuccessItem+    , _csfrrUnsuccessfulFleetRequests :: List "item" CancelSpotFleetRequestsErrorItem+    } deriving (Eq, Read, Show)++-- | 'CancelSpotFleetRequestsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'csfrrSuccessfulFleetRequests' @::@ ['CancelSpotFleetRequestsSuccessItem']+--+-- * 'csfrrUnsuccessfulFleetRequests' @::@ ['CancelSpotFleetRequestsErrorItem']+--+cancelSpotFleetRequestsResponse :: CancelSpotFleetRequestsResponse+cancelSpotFleetRequestsResponse = CancelSpotFleetRequestsResponse+    { _csfrrUnsuccessfulFleetRequests = mempty+    , _csfrrSuccessfulFleetRequests   = mempty+    }++-- | Information about the Spot fleet requests that are successfully canceled.+csfrrSuccessfulFleetRequests :: Lens' CancelSpotFleetRequestsResponse [CancelSpotFleetRequestsSuccessItem]+csfrrSuccessfulFleetRequests =+    lens _csfrrSuccessfulFleetRequests+        (\s a -> s { _csfrrSuccessfulFleetRequests = a })+            . _List++-- | Information about the Spot fleet requests that are not successfully canceled.+csfrrUnsuccessfulFleetRequests :: Lens' CancelSpotFleetRequestsResponse [CancelSpotFleetRequestsErrorItem]+csfrrUnsuccessfulFleetRequests =+    lens _csfrrUnsuccessfulFleetRequests+        (\s a -> s { _csfrrUnsuccessfulFleetRequests = a })+            . _List++instance ToPath CancelSpotFleetRequests where+    toPath = const "/"++instance ToQuery CancelSpotFleetRequests where+    toQuery CancelSpotFleetRequests{..} = mconcat+        [ "DryRun"             =? _csfrDryRun+        , "SpotFleetRequestId" `toQueryList` _csfrSpotFleetRequestIds+        , "TerminateInstances" =? _csfrTerminateInstances+        ]++instance ToHeaders CancelSpotFleetRequests++instance AWSRequest CancelSpotFleetRequests where+    type Sv CancelSpotFleetRequests = EC2+    type Rs CancelSpotFleetRequests = CancelSpotFleetRequestsResponse++    request  = post "CancelSpotFleetRequests"+    response = xmlResponse++instance FromXML CancelSpotFleetRequestsResponse where+    parseXML x = CancelSpotFleetRequestsResponse+        <$> x .@? "successfulFleetRequestSet" .!@ mempty+        <*> x .@? "unsuccessfulFleetRequestSet" .!@ mempty

@@ -26,7 +26,7 @@ -- Amazon EC2 starts on your behalf when the bid price that you specify exceeds -- the current Spot Price. Amazon EC2 periodically sets the Spot Price based on -- available Spot Instance capacity and current Spot Instance requests. For more--- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-requests.html Spot Instance Requests> in the /Amazon Elastic Compute CloudUser Guide for Linux/.+-- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-requests.html Spot Instance Requests> in the /Amazon Elastic Compute CloudUser Guide/. -- -- Canceling a Spot Instance request does not terminate running Spot Instances -- associated with the request.@@ -76,6 +76,9 @@     , _csirSpotInstanceRequestIds = mempty     } +-- | 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'. csirDryRun :: Lens' CancelSpotInstanceRequests (Maybe Bool) csirDryRun = lens _csirDryRun (\s a -> s { _csirDryRun = a }) 

@@ -77,6 +77,9 @@     , _cpiDryRun      = Nothing     } +-- | 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'. cpiDryRun :: Lens' ConfirmProductInstance (Maybe Bool) cpiDryRun = lens _cpiDryRun (\s a -> s { _cpiDryRun = a }) 

@@ -24,10 +24,10 @@  -- | Initiates the copy of an AMI from the specified source region to the current -- region. You specify the destination region by using its endpoint when making--- the request. AMIs that use encrypted Amazon EBS snapshots cannot be copied--- with this method.+-- the request. AMIs that use encrypted EBS snapshots cannot be copied with this+-- method. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/CopyingAMIs.html Copying AMIs> in the /Amazon Elastic Compute CloudUser Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/CopyingAMIs.html Copying AMIs> in the /Amazon Elastic Compute CloudUser Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CopyImage.html> module Network.AWS.EC2.CopyImage@@ -96,7 +96,7 @@     }  -- | 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 /AmazonElastic Compute Cloud User Guide for Linux/.+-- request. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Run_Instance_Idempotency.html How to Ensure Idempotency> in the /AmazonElastic Compute Cloud User Guide/. ciClientToken :: Lens' CopyImage (Maybe Text) ciClientToken = lens _ciClientToken (\s a -> s { _ciClientToken = a }) @@ -104,6 +104,9 @@ ciDescription :: Lens' CopyImage (Maybe Text) ciDescription = lens _ciDescription (\s a -> s { _ciDescription = a }) +-- | Checks whether you have the required permissions for the action, without+-- actually making the request, and provides an error response. If you have the+-- required permissions, the error response is 'DryRunOperation'. Otherwise, it is 'UnauthorizedOperation'. ciDryRun :: Lens' CopyImage (Maybe Bool) ciDryRun = lens _ciDryRun (\s a -> s { _ciDryRun = a }) 

@@ -22,19 +22,19 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Copies a point-in-time snapshot of an Amazon EBS volume and stores it in--- Amazon S3. You can copy the snapshot within the same region or from one--- region to another. You can use the snapshot to create Amazon EBS volumes or--- Amazon Machine Images (AMIs). The snapshot is copied to the regional endpoint--- that you send the HTTP request to.+-- | Copies a point-in-time snapshot of an EBS volume and stores it in Amazon S3.+-- You can copy the snapshot within the same region or from one region to+-- another. You can use the snapshot to create EBS volumes or Amazon Machine+-- Images (AMIs). The snapshot is copied to the regional endpoint that you send+-- the HTTP request to. ----- Copies of encrypted Amazon EBS snapshots remain encrypted. Copies of--- unencrypted snapshots remain unencrypted.+-- Copies of encrypted EBS snapshots remain encrypted. Copies of unencrypted+-- snapshots remain unencrypted. -- -- Copying snapshots that were encrypted with non-default AWS Key Management -- Service (KMS) master keys is not supported at this time. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-copy-snapshot.html Copying an Amazon EBS Snapshot> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-copy-snapshot.html Copying an Amazon EBS Snapshot> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CopySnapshot.html> module Network.AWS.EC2.CopySnapshot@@ -101,7 +101,7 @@     , _csPresignedUrl      = Nothing     } --- | A description for the new Amazon EBS snapshot.+-- | A description for the EBS snapshot. csDescription :: Lens' CopySnapshot (Maybe Text) csDescription = lens _csDescription (\s a -> s { _csDescription = a }) @@ -119,6 +119,9 @@ csDestinationRegion =     lens _csDestinationRegion (\s a -> s { _csDestinationRegion = 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'. csDryRun :: Lens' CopySnapshot (Maybe Bool) csDryRun = lens _csDryRun (\s a -> s { _csDryRun = a }) @@ -128,9 +131,10 @@ -- The 'PresignedUrl' should use the snapshot source endpoint, the 'CopySnapshot' -- action, and include the 'SourceRegion', 'SourceSnapshotId', and 'DestinationRegion' -- parameters. The 'PresignedUrl' must be signed using AWS Signature Version 4.--- Because Amazon EBS snapshots are stored in Amazon S3, the signing algorithm--- for this parameter uses the same logic that is described in <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html AuthenticatingRequests by Using Query Parameters (AWS Signature Version 4)> in the /AmazonSimple Storage Service API Reference/. An invalid or improperly signed 'PresignedUrl' will cause the copy operation to fail asynchronously, and the snapshot will--- move to an 'error' state.+-- Because EBS snapshots are stored in Amazon S3, the signing algorithm for this+-- parameter uses the same logic that is described in <http://docs.aws.amazon.com/AmazonS3/latest/API/sigv4-query-string-auth.html Authenticating Requests byUsing Query Parameters (AWS Signature Version 4)> in the /Amazon Simple StorageService API Reference/. An invalid or improperly signed 'PresignedUrl' will+-- cause the copy operation to fail asynchronously, and the snapshot will move+-- to an 'error' state. csPresignedUrl :: Lens' CopySnapshot (Maybe Text) csPresignedUrl = lens _csPresignedUrl (\s a -> s { _csPresignedUrl = a }) @@ -138,7 +142,7 @@ csSourceRegion :: Lens' CopySnapshot Text csSourceRegion = lens _csSourceRegion (\s a -> s { _csSourceRegion = a }) --- | The ID of the Amazon EBS snapshot to copy.+-- | The ID of the EBS snapshot to copy. csSourceSnapshotId :: Lens' CopySnapshot Text csSourceSnapshotId =     lens _csSourceSnapshotId (\s a -> s { _csSourceSnapshotId = a })

@@ -40,6 +40,14 @@ -- -- For more information about VPN customer gateways, see <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_VPN.html Adding a HardwareVirtual Private Gateway to Your VPC> in the /Amazon Virtual Private Cloud UserGuide/. --+-- You cannot create more than one customer gateway with the same VPN type, IP+-- address, and BGP ASN parameter values. If you run an identical request more+-- than one time, the first request creates the customer gateway, and subsequent+-- requests return information about the existing customer gateway. The+-- subsequent requests do not create new customer gateway resources.+--+--+-- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateCustomerGateway.html> module Network.AWS.EC2.CreateCustomerGateway     (@@ -102,6 +110,9 @@ ccgBgpAsn :: Lens' CreateCustomerGateway Int ccgBgpAsn = lens _ccgBgpAsn (\s a -> s { _ccgBgpAsn = 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'. ccgDryRun :: Lens' CreateCustomerGateway (Maybe Bool) ccgDryRun = lens _ccgDryRun (\s a -> s { _ccgDryRun = a }) 

@@ -94,6 +94,9 @@     lens _cdoDhcpConfigurations (\s a -> s { _cdoDhcpConfigurations = a })         . _List +-- | 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'. cdoDryRun :: Lens' CreateDhcpOptions (Maybe Bool) cdoDryRun = lens _cdoDryRun (\s a -> s { _cdoDryRun = a }) 

@@ -30,7 +30,7 @@ -- mapping information for those volumes. When you launch an instance from this -- new AMI, the instance automatically launches with those additional volumes. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/creating-an-ami-ebs.html Creating Amazon EBS-Backed Linux AMIs> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/creating-an-ami-ebs.html Creating Amazon EBS-Backed Linux AMIs> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateImage.html> module Network.AWS.EC2.CreateImage@@ -107,6 +107,9 @@ ci1Description :: Lens' CreateImage (Maybe Text) ci1Description = lens _ci1Description (\s a -> s { _ci1Description = 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'. ci1DryRun :: Lens' CreateImage (Maybe Bool) ci1DryRun = lens _ci1DryRun (\s a -> s { _ci1DryRun = a }) 

@@ -22,10 +22,10 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Exports a running or stopped instance to an Amazon S3 bucket.+-- | 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 ExportingEC2 Instances> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- known limitations for the types of instances you can export, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ExportingEC2Instances.html ExportingEC2 Instances> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateInstanceExportTask.html> module Network.AWS.EC2.CreateInstanceExportTask@@ -86,6 +86,7 @@ cietDescription :: Lens' CreateInstanceExportTask (Maybe Text) cietDescription = lens _cietDescription (\s a -> s { _cietDescription = a }) +-- | The format and location for an instance export task. cietExportToS3Task :: Lens' CreateInstanceExportTask (Maybe ExportToS3TaskSpecification) cietExportToS3Task =     lens _cietExportToS3Task (\s a -> s { _cietExportToS3Task = a })@@ -114,6 +115,7 @@     { _cietrExportTask = Nothing     } +-- | Information about the instance export task. cietrExportTask :: Lens' CreateInstanceExportTaskResponse (Maybe ExportTask) cietrExportTask = lens _cietrExportTask (\s a -> s { _cietrExportTask = a }) 

@@ -65,6 +65,9 @@     { _cigDryRun = Nothing     } +-- | 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'. cigDryRun :: Lens' CreateInternetGateway (Maybe Bool) cigDryRun = lens _cigDryRun (\s a -> s { _cigDryRun = a }) 

@@ -32,7 +32,7 @@ -- The key pair returned to you is available only in the region in which you -- create it. To create a key pair that is available in all regions, use 'ImportKeyPair'. ----- For more information about key pairs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Key Pairs> in the /Amazon ElasticCompute Cloud User Guide for Linux/.+-- For more information about key pairs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Key Pairs> in the /Amazon ElasticCompute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateKeyPair.html> module Network.AWS.EC2.CreateKeyPair@@ -80,6 +80,9 @@     , _ckpDryRun  = Nothing     } +-- | 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'. ckpDryRun :: Lens' CreateKeyPair (Maybe Bool) ckpDryRun = lens _ckpDryRun (\s a -> s { _ckpDryRun = a }) 

@@ -71,6 +71,9 @@     , _cnaDryRun = Nothing     } +-- | 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'. cnaDryRun :: Lens' CreateNetworkAcl (Maybe Bool) cnaDryRun = lens _cnaDryRun (\s a -> s { _cnaDryRun = a }) 

@@ -125,6 +125,9 @@ cnaeCidrBlock :: Lens' CreateNetworkAclEntry Text cnaeCidrBlock = lens _cnaeCidrBlock (\s a -> s { _cnaeCidrBlock = 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'. cnaeDryRun :: Lens' CreateNetworkAclEntry (Maybe Bool) cnaeDryRun = lens _cnaeDryRun (\s a -> s { _cnaeDryRun = a }) 

@@ -25,7 +25,7 @@ -- | Creates a network interface in the specified subnet. -- -- For more information about network interfaces, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-eni.html Elastic Network Interfaces>--- in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateNetworkInterface.html> module Network.AWS.EC2.CreateNetworkInterface@@ -100,6 +100,9 @@ cniDescription :: Lens' CreateNetworkInterface (Maybe Text) cniDescription = lens _cniDescription (\s a -> s { _cniDescription = a }) +-- | Checks whether you have the required permissions for the action, without+-- actually making the request, and provides an error response. If you have the+-- required permissions, the error response is 'DryRunOperation'. Otherwise, it is 'UnauthorizedOperation'. cniDryRun :: Lens' CreateNetworkInterface (Maybe Bool) cniDryRun = lens _cniDryRun (\s a -> s { _cniDryRun = a }) @@ -126,7 +129,7 @@ -- option and specify more than one private IP address using 'privateIpAddresses'. -- -- The number of IP addresses you can assign to a network interface varies by--- instance type. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-eni.html#AvailableIpPerENI Private IP Addresses Per ENI PerInstance Type> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- instance type. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-eni.html#AvailableIpPerENI Private IP Addresses Per ENI PerInstance Type> in the /Amazon Elastic Compute Cloud User Guide/. cniSecondaryPrivateIpAddressCount :: Lens' CreateNetworkInterface (Maybe Int) cniSecondaryPrivateIpAddressCount =     lens _cniSecondaryPrivateIpAddressCount

@@ -25,7 +25,7 @@ -- | Creates a placement group that you launch cluster instances into. You must -- give the group a name that's unique within the scope of your account. ----- For more information about placement groups and cluster instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using_cluster_computing.html Cluster Instances> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about placement groups and cluster instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using_cluster_computing.html Cluster Instances> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreatePlacementGroup.html> module Network.AWS.EC2.CreatePlacementGroup@@ -75,6 +75,9 @@     , _cpgDryRun    = Nothing     } +-- | 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'. cpgDryRun :: Lens' CreatePlacementGroup (Maybe Bool) cpgDryRun = lens _cpgDryRun (\s a -> s { _cpgDryRun = a }) 

@@ -38,7 +38,7 @@ -- Reserved Instance listings then become available for purchase. To view the -- details of your Reserved Instance listing, you can use the 'DescribeReservedInstancesListings' operation. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateReservedInstancesListing.html> module Network.AWS.EC2.CreateReservedInstancesListing

@@ -50,6 +50,7 @@     -- ** Request constructor     , createRoute     -- ** Request lenses+    , crClientToken     , crDestinationCidrBlock     , crDryRun     , crGatewayId@@ -62,6 +63,9 @@     , CreateRouteResponse     -- ** Response constructor     , createRouteResponse+    -- ** Response lenses+    , crrClientToken+    , crrReturn     ) where  import Network.AWS.Prelude@@ -70,7 +74,8 @@ import qualified GHC.Exts  data CreateRoute = CreateRoute-    { _crDestinationCidrBlock   :: Text+    { _crClientToken            :: Maybe Text+    , _crDestinationCidrBlock   :: Text     , _crDryRun                 :: Maybe Bool     , _crGatewayId              :: Maybe Text     , _crInstanceId             :: Maybe Text@@ -83,6 +88,8 @@ -- -- The fields accessible through corresponding lenses are: --+-- * 'crClientToken' @::@ 'Maybe' 'Text'+-- -- * 'crDestinationCidrBlock' @::@ 'Text' -- -- * 'crDryRun' @::@ 'Maybe' 'Bool'@@ -108,14 +115,23 @@     , _crInstanceId             = Nothing     , _crNetworkInterfaceId     = Nothing     , _crVpcPeeringConnectionId = Nothing+    , _crClientToken            = Nothing     } +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of+-- the request. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/Run_Instance_Idempotency.html How to Ensure Idempotency>.+crClientToken :: Lens' CreateRoute (Maybe Text)+crClientToken = lens _crClientToken (\s a -> s { _crClientToken = a })+ -- | The CIDR address block used for the destination match. Routing decisions are -- based on the most specific match. crDestinationCidrBlock :: Lens' CreateRoute Text crDestinationCidrBlock =     lens _crDestinationCidrBlock (\s a -> s { _crDestinationCidrBlock = 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'. crDryRun :: Lens' CreateRoute (Maybe Bool) crDryRun = lens _crDryRun (\s a -> s { _crDryRun = a }) @@ -144,18 +160,40 @@         (\s a -> s { _crVpcPeeringConnectionId = a })  data CreateRouteResponse = CreateRouteResponse-    deriving (Eq, Ord, Read, Show, Generic)+    { _crrClientToken :: Maybe Text+    , _crrReturn      :: Maybe Bool+    } deriving (Eq, Ord, Read, Show)  -- | 'CreateRouteResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'crrClientToken' @::@ 'Maybe' 'Text'+--+-- * 'crrReturn' @::@ 'Maybe' 'Bool'+-- createRouteResponse :: CreateRouteResponse createRouteResponse = CreateRouteResponse+    { _crrReturn      = Nothing+    , _crrClientToken = Nothing+    } +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of+-- the request.+crrClientToken :: Lens' CreateRouteResponse (Maybe Text)+crrClientToken = lens _crrClientToken (\s a -> s { _crrClientToken = a })++-- | Returns 'true' if the request succeeds; otherwise, it returns an error.+crrReturn :: Lens' CreateRouteResponse (Maybe Bool)+crrReturn = lens _crrReturn (\s a -> s { _crrReturn = a })+ instance ToPath CreateRoute where     toPath = const "/"  instance ToQuery CreateRoute where     toQuery CreateRoute{..} = mconcat-        [ "DestinationCidrBlock"   =? _crDestinationCidrBlock+        [ "ClientToken"            =? _crClientToken+        , "DestinationCidrBlock"   =? _crDestinationCidrBlock         , "DryRun"                 =? _crDryRun         , "GatewayId"              =? _crGatewayId         , "InstanceId"             =? _crInstanceId@@ -171,4 +209,9 @@     type Rs CreateRoute = CreateRouteResponse      request  = post "CreateRoute"-    response = nullResponse CreateRouteResponse+    response = xmlResponse++instance FromXML CreateRouteResponse where+    parseXML x = CreateRouteResponse+        <$> x .@? "clientToken"+        <*> x .@? "return"

@@ -71,6 +71,9 @@     , _crtDryRun = Nothing     } +-- | 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'. crtDryRun :: Lens' CreateRouteTable (Maybe Bool) crtDryRun = lens _crtDryRun (\s a -> s { _crtDryRun = a }) 

@@ -25,7 +25,7 @@ -- | Creates a security group. -- -- A security group is for use with instances either in the EC2-Classic--- platform or in a specific VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 SecurityGroups> in the /Amazon Elastic Compute Cloud User Guide for Linux/ and <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html SecurityGroups for Your VPC> in the /Amazon Virtual Private Cloud User Guide/.+-- platform or in a specific VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 SecurityGroups> in the /Amazon Elastic Compute Cloud User Guide/ and <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html Security Groups forYour VPC> in the /Amazon Virtual Private Cloud User Guide/. -- -- EC2-Classic: You can have up to 500 security groups. --@@ -110,6 +110,9 @@ csgDescription :: Lens' CreateSecurityGroup Text csgDescription = lens _csgDescription (\s a -> s { _csgDescription = 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'. csgDryRun :: Lens' CreateSecurityGroup (Maybe Bool) csgDryRun = lens _csgDryRun (\s a -> s { _csgDryRun = a }) 

@@ -22,33 +22,32 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Creates a snapshot of an Amazon EBS volume and stores it in Amazon S3. You--- can use snapshots for backups, to make copies of Amazon EBS volumes, and to--- save data before shutting down an instance.+-- | Creates a snapshot of an EBS volume and stores it in Amazon S3. You can use+-- snapshots for backups, to make copies of EBS volumes, and to save data before+-- shutting down an instance. -- -- When a snapshot is created, any AWS Marketplace product codes that are -- associated with the source volume are propagated to the snapshot. -- -- You can take a snapshot of an attached volume that is in use. However,--- snapshots only capture data that has been written to your Amazon EBS volume--- at the time the snapshot command is issued; this may exclude any data that--- has been cached by any applications or the operating system. If you can pause--- any file systems on the volume long enough to take a snapshot, your snapshot--- should be complete. However, if you cannot pause all file writes to the--- volume, you should unmount the volume from within the instance, issue the--- snapshot command, and then remount the volume to ensure a consistent and--- complete snapshot. You may remount and use your volume while the snapshot--- status is 'pending'.+-- snapshots only capture data that has been written to your EBS volume at the+-- time the snapshot command is issued; this may exclude any data that has been+-- cached by any applications or the operating system. If you can pause any file+-- systems on the volume long enough to take a snapshot, your snapshot should be+-- complete. However, if you cannot pause all file writes to the volume, you+-- should unmount the volume from within the instance, issue the snapshot+-- command, and then remount the volume to ensure a consistent and complete+-- snapshot. You may remount and use your volume while the snapshot status is 'pending'. ----- To create a snapshot for Amazon EBS volumes that serve as root devices, you--- should stop the instance before taking the snapshot.+-- To create a snapshot for EBS volumes that serve as root devices, you should+-- stop the instance before taking the snapshot. -- -- Snapshots that are taken from encrypted volumes are automatically encrypted. -- Volumes that are created from encrypted snapshots are also automatically -- encrypted. Your encrypted volumes and any associated snapshots always remain -- protected. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/AmazonEBS.html Amazon Elastic Block Store> and <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBSEncryption> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/AmazonEBS.html Amazon Elastic Block Store> and <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBSEncryption> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateSnapshot.html> module Network.AWS.EC2.CreateSnapshot@@ -114,10 +113,13 @@ cs2Description :: Lens' CreateSnapshot (Maybe Text) cs2Description = lens _cs2Description (\s a -> s { _cs2Description = 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'. cs2DryRun :: Lens' CreateSnapshot (Maybe Bool) cs2DryRun = lens _cs2DryRun (\s a -> s { _cs2DryRun = a }) --- | The ID of the Amazon EBS volume.+-- | The ID of the EBS volume. cs2VolumeId :: Lens' CreateSnapshot Text cs2VolumeId = lens _cs2VolumeId (\s a -> s { _cs2VolumeId = a }) @@ -207,7 +209,7 @@ csr1OwnerAlias :: Lens' CreateSnapshotResponse (Maybe Text) csr1OwnerAlias = lens _csr1OwnerAlias (\s a -> s { _csr1OwnerAlias = a }) --- | The AWS account ID of the Amazon EBS snapshot owner.+-- | The AWS account ID of the EBS snapshot owner. csr1OwnerId :: Lens' CreateSnapshotResponse Text csr1OwnerId = lens _csr1OwnerId (\s a -> s { _csr1OwnerId = a }) 

@@ -24,7 +24,7 @@  -- | Creates a data feed for Spot Instances, enabling you to view Spot Instance -- usage logs. You can create one data feed per AWS account. For more--- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-data-feeds.html Spot Instance Data Feed> in the /Amazon Elastic Compute CloudUser Guide for Linux/.+-- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-data-feeds.html Spot Instance Data Feed> in the /Amazon Elastic Compute CloudUser Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateSpotDatafeedSubscription.html> module Network.AWS.EC2.CreateSpotDatafeedSubscription@@ -79,6 +79,9 @@ csdsBucket :: Lens' CreateSpotDatafeedSubscription Text csdsBucket = lens _csdsBucket (\s a -> s { _csdsBucket = 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'. csdsDryRun :: Lens' CreateSpotDatafeedSubscription (Maybe Bool) csdsDryRun = lens _csdsDryRun (\s a -> s { _csdsDryRun = a }) 

@@ -113,6 +113,9 @@ cs1CidrBlock :: Lens' CreateSubnet Text cs1CidrBlock = lens _cs1CidrBlock (\s a -> s { _cs1CidrBlock = 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'. cs1DryRun :: Lens' CreateSubnet (Maybe Bool) cs1DryRun = lens _cs1DryRun (\s a -> s { _cs1DryRun = a }) 

@@ -26,7 +26,7 @@ -- 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. ----- For more information about tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Resources> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information about tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Resources> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateTags.html> module Network.AWS.EC2.CreateTags@@ -74,6 +74,9 @@     , _ct1Tags      = mempty     } +-- | 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'. ct1DryRun :: Lens' CreateTags (Maybe Bool) ct1DryRun = lens _ct1DryRun (\s a -> s { _ct1DryRun = a }) 

@@ -22,20 +22,20 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Creates an Amazon EBS volume that can be attached to an instance in the same+-- | Creates an EBS volume that can be attached to an instance in the same -- Availability Zone. The volume is created in the regional endpoint that you -- send the HTTP request to. For more information see <http://docs.aws.amazon.com/general/latest/gr/rande.html Regions and Endpoints>. ----- You can create a new empty volume or restore a volume from an Amazon EBS--- snapshot. Any AWS Marketplace product codes from the snapshot are propagated--- to the volume.+-- You can create a new empty volume or restore a volume from an EBS snapshot.+-- Any AWS Marketplace product codes from the snapshot are propagated to the+-- volume. -- -- You can create encrypted volumes with the 'Encrypted' parameter. Encrypted -- volumes may only be attached to instances that support Amazon EBS encryption. -- Volumes that are created from encrypted snapshots are also automatically--- encrypted. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBS Encryption> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- encrypted. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBS Encryption> in the /AmazonElastic Compute Cloud User Guide/. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-creating-volume.html Creating or Restoring an Amazon EBS Volume> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-creating-volume.html Creating or Restoring an Amazon EBS Volume> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVolume.html> module Network.AWS.EC2.CreateVolume@@ -127,6 +127,9 @@ cv1AvailabilityZone =     lens _cv1AvailabilityZone (\s a -> s { _cv1AvailabilityZone = 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'. cv1DryRun :: Lens' CreateVolume (Maybe Bool) cv1DryRun = lens _cv1DryRun (\s a -> s { _cv1DryRun = a }) @@ -135,7 +138,7 @@ -- Volumes that are created from encrypted snapshots are automatically -- encrypted. There is no way to create an encrypted volume from an unencrypted -- snapshot or vice versa. If your AMI uses encrypted volumes, you can only--- launch it on supported instance types. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBSEncryption> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- launch it on supported instance types. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSEncryption.html Amazon EBSEncryption> in the /Amazon Elastic Compute Cloud User Guide/. cv1Encrypted :: Lens' CreateVolume (Maybe Bool) cv1Encrypted = lens _cv1Encrypted (\s a -> s { _cv1Encrypted = a }) @@ -243,6 +246,7 @@     , _cvrKmsKeyId         = Nothing     } +-- | Information about the volume attachments. cvrAttachments :: Lens' CreateVolumeResponse [VolumeAttachment] cvrAttachments = lens _cvrAttachments (\s a -> s { _cvrAttachments = a }) . _List @@ -264,7 +268,7 @@ -- provisioned for the volume. For General Purpose (SSD) volumes, 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 EBSVolume Types> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- Purpose (SSD) baseline performance, I/O credits, and bursting, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumeTypes.html Amazon EBSVolume Types> in the /Amazon Elastic Compute Cloud User Guide/. -- -- Constraint: Range is 100 to 20000 for Provisioned IOPS (SSD) volumes and 3 -- to 10000 for General Purpose (SSD) volumes.

@@ -85,6 +85,9 @@ cvCidrBlock :: Lens' CreateVpc Text cvCidrBlock = lens _cvCidrBlock (\s a -> s { _cvCidrBlock = 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'. cvDryRun :: Lens' CreateVpc (Maybe Bool) cvDryRun = lens _cvDryRun (\s a -> s { _cvDryRun = a }) 

@@ -0,0 +1,183 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.CreateVpcEndpoint+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Creates a VPC endpoint for a specified AWS service. An endpoint enables you+-- to create a private connection between your VPC and another AWS service in+-- your account. You can specify an endpoint policy to attach to the endpoint+-- that will control access to the service from your VPC. You can also specify+-- the VPC route tables that use the endpoint.+--+-- Currently, only endpoints to Amazon S3 are supported.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-CreateVpcEndpoint.html>+module Network.AWS.EC2.CreateVpcEndpoint+    (+    -- * Request+      CreateVpcEndpoint+    -- ** Request constructor+    , createVpcEndpoint+    -- ** Request lenses+    , cveClientToken+    , cveDryRun+    , cvePolicyDocument+    , cveRouteTableIds+    , cveServiceName+    , cveVpcId++    -- * Response+    , CreateVpcEndpointResponse+    -- ** Response constructor+    , createVpcEndpointResponse+    -- ** Response lenses+    , cverClientToken+    , cverVpcEndpoint+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data CreateVpcEndpoint = CreateVpcEndpoint+    { _cveClientToken    :: Maybe Text+    , _cveDryRun         :: Maybe Bool+    , _cvePolicyDocument :: Maybe Text+    , _cveRouteTableIds  :: List "item" Text+    , _cveServiceName    :: Text+    , _cveVpcId          :: Text+    } deriving (Eq, Ord, Read, Show)++-- | 'CreateVpcEndpoint' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cveClientToken' @::@ 'Maybe' 'Text'+--+-- * 'cveDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'cvePolicyDocument' @::@ 'Maybe' 'Text'+--+-- * 'cveRouteTableIds' @::@ ['Text']+--+-- * 'cveServiceName' @::@ 'Text'+--+-- * 'cveVpcId' @::@ 'Text'+--+createVpcEndpoint :: Text -- ^ 'cveVpcId'+                  -> Text -- ^ 'cveServiceName'+                  -> CreateVpcEndpoint+createVpcEndpoint p1 p2 = CreateVpcEndpoint+    { _cveVpcId          = p1+    , _cveServiceName    = p2+    , _cveDryRun         = Nothing+    , _cvePolicyDocument = Nothing+    , _cveRouteTableIds  = mempty+    , _cveClientToken    = Nothing+    }++-- | Unique, case-sensitive identifier you provide to ensure the idempotency of+-- the request. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/Run_Instance_Idempotency.html How to Ensure Idempotency>.+cveClientToken :: Lens' CreateVpcEndpoint (Maybe Text)+cveClientToken = lens _cveClientToken (\s a -> s { _cveClientToken = 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'.+cveDryRun :: Lens' CreateVpcEndpoint (Maybe Bool)+cveDryRun = lens _cveDryRun (\s a -> s { _cveDryRun = a })++-- | A policy to attach to the endpoint that controls access to the service. The+-- policy must be in valid JSON format. If this parameter is not specified, we+-- attach a default policy that allows full access to the service.+cvePolicyDocument :: Lens' CreateVpcEndpoint (Maybe Text)+cvePolicyDocument =+    lens _cvePolicyDocument (\s a -> s { _cvePolicyDocument = a })++-- | One or more route table IDs.+cveRouteTableIds :: Lens' CreateVpcEndpoint [Text]+cveRouteTableIds = lens _cveRouteTableIds (\s a -> s { _cveRouteTableIds = a }) . _List++-- | 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 })++-- | The ID of the VPC in which the endpoint will be used.+cveVpcId :: Lens' CreateVpcEndpoint Text+cveVpcId = lens _cveVpcId (\s a -> s { _cveVpcId = a })++data CreateVpcEndpointResponse = CreateVpcEndpointResponse+    { _cverClientToken :: Maybe Text+    , _cverVpcEndpoint :: Maybe VpcEndpoint+    } deriving (Eq, Read, Show)++-- | 'CreateVpcEndpointResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'cverClientToken' @::@ 'Maybe' 'Text'+--+-- * 'cverVpcEndpoint' @::@ 'Maybe' 'VpcEndpoint'+--+createVpcEndpointResponse :: CreateVpcEndpointResponse+createVpcEndpointResponse = CreateVpcEndpointResponse+    { _cverVpcEndpoint = Nothing+    , _cverClientToken = Nothing+    }++-- | Unique, case-sensitive identifier you provide to ensure the idempotency of+-- the request.+cverClientToken :: Lens' CreateVpcEndpointResponse (Maybe Text)+cverClientToken = lens _cverClientToken (\s a -> s { _cverClientToken = a })++-- | Information about the endpoint.+cverVpcEndpoint :: Lens' CreateVpcEndpointResponse (Maybe VpcEndpoint)+cverVpcEndpoint = lens _cverVpcEndpoint (\s a -> s { _cverVpcEndpoint = a })++instance ToPath CreateVpcEndpoint where+    toPath = const "/"++instance ToQuery CreateVpcEndpoint where+    toQuery CreateVpcEndpoint{..} = mconcat+        [ "ClientToken"    =? _cveClientToken+        , "DryRun"         =? _cveDryRun+        , "PolicyDocument" =? _cvePolicyDocument+        , "RouteTableId"   `toQueryList` _cveRouteTableIds+        , "ServiceName"    =? _cveServiceName+        , "VpcId"          =? _cveVpcId+        ]++instance ToHeaders CreateVpcEndpoint++instance AWSRequest CreateVpcEndpoint where+    type Sv CreateVpcEndpoint = EC2+    type Rs CreateVpcEndpoint = CreateVpcEndpointResponse++    request  = post "CreateVpcEndpoint"+    response = xmlResponse++instance FromXML CreateVpcEndpointResponse where+    parseXML x = CreateVpcEndpointResponse+        <$> x .@? "clientToken"+        <*> x .@? "vpcEndpoint"

@@ -87,6 +87,9 @@     , _cvpcPeerOwnerId = Nothing     } +-- | 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'. cvpcDryRun :: Lens' CreateVpcPeeringConnection (Maybe Bool) cvpcDryRun = lens _cvpcDryRun (\s a -> s { _cvpcDryRun = a }) 

@@ -104,6 +104,9 @@ cvcCustomerGatewayId =     lens _cvcCustomerGatewayId (\s a -> s { _cvcCustomerGatewayId = 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'. cvcDryRun :: Lens' CreateVpnConnection (Maybe Bool) cvcDryRun = lens _cvcDryRun (\s a -> s { _cvcDryRun = a }) 

@@ -82,6 +82,9 @@ cvgAvailabilityZone =     lens _cvgAvailabilityZone (\s a -> s { _cvgAvailabilityZone = 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'. cvgDryRun :: Lens' CreateVpnGateway (Maybe Bool) cvgDryRun = lens _cvgDryRun (\s a -> s { _cvgDryRun = a }) 

@@ -72,6 +72,9 @@ dcg1CustomerGatewayId =     lens _dcg1CustomerGatewayId (\s a -> s { _dcg1CustomerGatewayId = 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'. dcg1DryRun :: Lens' DeleteCustomerGateway (Maybe Bool) dcg1DryRun = lens _dcg1DryRun (\s a -> s { _dcg1DryRun = a }) 

@@ -74,6 +74,9 @@ ddo1DhcpOptionsId =     lens _ddo1DhcpOptionsId (\s a -> s { _ddo1DhcpOptionsId = 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'. ddo1DryRun :: Lens' DeleteDhcpOptions (Maybe Bool) ddo1DryRun = lens _ddo1DryRun (\s a -> s { _ddo1DryRun = a }) 

@@ -67,6 +67,9 @@     , _dig2DryRun            = Nothing     } +-- | 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'. dig2DryRun :: Lens' DeleteInternetGateway (Maybe Bool) dig2DryRun = lens _dig2DryRun (\s a -> s { _dig2DryRun = a }) 

@@ -66,6 +66,9 @@     , _dkpDryRun  = Nothing     } +-- | 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'. dkpDryRun :: Lens' DeleteKeyPair (Maybe Bool) dkpDryRun = lens _dkpDryRun (\s a -> s { _dkpDryRun = a }) 

@@ -67,6 +67,9 @@     , _dnaDryRun       = Nothing     } +-- | 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'. dnaDryRun :: Lens' DeleteNetworkAcl (Maybe Bool) dnaDryRun = lens _dnaDryRun (\s a -> s { _dnaDryRun = a }) 

@@ -79,6 +79,9 @@     , _dnaeDryRun       = Nothing     } +-- | 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'. dnaeDryRun :: Lens' DeleteNetworkAclEntry (Maybe Bool) dnaeDryRun = lens _dnaeDryRun (\s a -> s { _dnaeDryRun = a }) 

@@ -67,6 +67,9 @@     , _dni2DryRun             = Nothing     } +-- | 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'. dni2DryRun :: Lens' DeleteNetworkInterface (Maybe Bool) dni2DryRun = lens _dni2DryRun (\s a -> s { _dni2DryRun = a }) 

@@ -24,7 +24,7 @@  -- | Deletes the specified placement group. You must terminate all instances in -- the placement group before you can delete the placement group. For more--- information about placement groups and cluster instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using_cluster_computing.html ClusterInstances> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- information about placement groups and cluster instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using_cluster_computing.html ClusterInstances> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeletePlacementGroup.html> module Network.AWS.EC2.DeletePlacementGroup@@ -68,6 +68,9 @@     , _dpgDryRun    = Nothing     } +-- | 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'. dpgDryRun :: Lens' DeletePlacementGroup (Maybe Bool) dpgDryRun = lens _dpgDryRun (\s a -> s { _dpgDryRun = a }) 

@@ -78,6 +78,9 @@ drDestinationCidrBlock =     lens _drDestinationCidrBlock (\s a -> s { _drDestinationCidrBlock = 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'. drDryRun :: Lens' DeleteRoute (Maybe Bool) drDryRun = lens _drDryRun (\s a -> s { _drDryRun = a }) 

@@ -67,6 +67,9 @@     , _drt1DryRun       = Nothing     } +-- | 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'. drt1DryRun :: Lens' DeleteRouteTable (Maybe Bool) drt1DryRun = lens _drt1DryRun (\s a -> s { _drt1DryRun = a }) 

@@ -74,6 +74,9 @@     , _dsgGroupId   = Nothing     } +-- | 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'. dsgDryRun :: Lens' DeleteSecurityGroup (Maybe Bool) dsgDryRun = lens _dsgDryRun (\s a -> s { _dsgDryRun = a }) 

@@ -31,11 +31,11 @@ -- snapshots have been deleted, all active snapshots will have access to all the -- information needed to restore the volume. ----- You cannot delete a snapshot of the root device of an Amazon EBS volume used--- by a registered AMI. You must first de-register the AMI before you can delete--- the snapshot.+-- You cannot delete a snapshot of the root device of an EBS volume used by a+-- registered AMI. You must first de-register the AMI before you can delete the+-- snapshot. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-deleting-snapshot.html Deleting an Amazon EBS Snapshot> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-deleting-snapshot.html Deleting an Amazon EBS Snapshot> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteSnapshot.html> module Network.AWS.EC2.DeleteSnapshot@@ -79,10 +79,13 @@     , _ds3DryRun     = Nothing     } +-- | 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'. ds3DryRun :: Lens' DeleteSnapshot (Maybe Bool) ds3DryRun = lens _ds3DryRun (\s a -> s { _ds3DryRun = a }) --- | The ID of the Amazon EBS snapshot.+-- | The ID of the EBS snapshot. ds3SnapshotId :: Lens' DeleteSnapshot Text ds3SnapshotId = lens _ds3SnapshotId (\s a -> s { _ds3SnapshotId = a }) 

@@ -22,7 +22,7 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Deletes the data feed for Spot Instances. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-data-feeds.html SpotInstance Data Feed> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- | Deletes the data feed for Spot Instances. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-data-feeds.html SpotInstance Data Feed> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteSpotDatafeedSubscription.html> module Network.AWS.EC2.DeleteSpotDatafeedSubscription@@ -60,6 +60,9 @@     { _dsds1DryRun = Nothing     } +-- | 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'. dsds1DryRun :: Lens' DeleteSpotDatafeedSubscription (Maybe Bool) dsds1DryRun = lens _dsds1DryRun (\s a -> s { _dsds1DryRun = a }) 

@@ -67,6 +67,9 @@     , _ds2DryRun   = Nothing     } +-- | 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'. ds2DryRun :: Lens' DeleteSubnet (Maybe Bool) ds2DryRun = lens _ds2DryRun (\s a -> s { _ds2DryRun = a }) 

@@ -25,7 +25,7 @@ -- | Deletes the specified set of tags from the specified set of resources. This -- call is designed to follow a 'DescribeTags' request. ----- For more information about tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Resources> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information about tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Resources> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteTags.html> module Network.AWS.EC2.DeleteTags@@ -73,6 +73,9 @@     , _dt1Tags      = mempty     } +-- | 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'. dt1DryRun :: Lens' DeleteTags (Maybe Bool) dt1DryRun = lens _dt1DryRun (\s a -> s { _dt1DryRun = a }) 

@@ -22,12 +22,12 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Deletes the specified Amazon EBS volume. The volume must be in the 'available'--- state (not attached to an instance).+-- | Deletes the specified EBS volume. The volume must be in the 'available' state+-- (not attached to an instance). -- -- The volume may remain in the 'deleting' state for several minutes. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-deleting-volume.html Deleting an Amazon EBS Volume> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-deleting-volume.html Deleting an Amazon EBS Volume> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVolume.html> module Network.AWS.EC2.DeleteVolume@@ -71,6 +71,9 @@     , _dv4DryRun   = Nothing     } +-- | 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'. dv4DryRun :: Lens' DeleteVolume (Maybe Bool) dv4DryRun = lens _dv4DryRun (\s a -> s { _dv4DryRun = a }) 

@@ -70,6 +70,9 @@     , _dv3DryRun = Nothing     } +-- | 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'. dv3DryRun :: Lens' DeleteVpc (Maybe Bool) dv3DryRun = lens _dv3DryRun (\s a -> s { _dv3DryRun = a }) 

@@ -0,0 +1,123 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DeleteVpcEndpoints+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Deletes one or more specified VPC endpoints. Deleting the endpoint also+-- deletes the endpoint routes in the route tables that were associated with the+-- endpoint.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DeleteVpcEndpoints.html>+module Network.AWS.EC2.DeleteVpcEndpoints+    (+    -- * Request+      DeleteVpcEndpoints+    -- ** Request constructor+    , deleteVpcEndpoints+    -- ** Request lenses+    , dveDryRun+    , dveVpcEndpointIds++    -- * Response+    , DeleteVpcEndpointsResponse+    -- ** Response constructor+    , deleteVpcEndpointsResponse+    -- ** Response lenses+    , dverUnsuccessful+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DeleteVpcEndpoints = DeleteVpcEndpoints+    { _dveDryRun         :: Maybe Bool+    , _dveVpcEndpointIds :: List "item" Text+    } deriving (Eq, Ord, Read, Show)++-- | 'DeleteVpcEndpoints' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dveDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dveVpcEndpointIds' @::@ ['Text']+--+deleteVpcEndpoints :: DeleteVpcEndpoints+deleteVpcEndpoints = DeleteVpcEndpoints+    { _dveDryRun         = Nothing+    , _dveVpcEndpointIds = mempty+    }++-- | 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'.+dveDryRun :: Lens' DeleteVpcEndpoints (Maybe Bool)+dveDryRun = lens _dveDryRun (\s a -> s { _dveDryRun = a })++-- | One or more endpoint IDs.+dveVpcEndpointIds :: Lens' DeleteVpcEndpoints [Text]+dveVpcEndpointIds =+    lens _dveVpcEndpointIds (\s a -> s { _dveVpcEndpointIds = a })+        . _List++newtype DeleteVpcEndpointsResponse = DeleteVpcEndpointsResponse+    { _dverUnsuccessful :: List "item" UnsuccessfulItem+    } deriving (Eq, Read, Show, Monoid, Semigroup)++-- | 'DeleteVpcEndpointsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dverUnsuccessful' @::@ ['UnsuccessfulItem']+--+deleteVpcEndpointsResponse :: DeleteVpcEndpointsResponse+deleteVpcEndpointsResponse = DeleteVpcEndpointsResponse+    { _dverUnsuccessful = mempty+    }++-- | Information about the endpoints that were not successfully deleted.+dverUnsuccessful :: Lens' DeleteVpcEndpointsResponse [UnsuccessfulItem]+dverUnsuccessful = lens _dverUnsuccessful (\s a -> s { _dverUnsuccessful = a }) . _List++instance ToPath DeleteVpcEndpoints where+    toPath = const "/"++instance ToQuery DeleteVpcEndpoints where+    toQuery DeleteVpcEndpoints{..} = mconcat+        [ "DryRun"        =? _dveDryRun+        , "VpcEndpointId" `toQueryList` _dveVpcEndpointIds+        ]++instance ToHeaders DeleteVpcEndpoints++instance AWSRequest DeleteVpcEndpoints where+    type Sv DeleteVpcEndpoints = EC2+    type Rs DeleteVpcEndpoints = DeleteVpcEndpointsResponse++    request  = post "DeleteVpcEndpoints"+    response = xmlResponse++instance FromXML DeleteVpcEndpointsResponse where+    parseXML x = DeleteVpcEndpointsResponse+        <$> x .@? "unsuccessful" .!@ mempty

@@ -71,6 +71,9 @@     , _dvpcDryRun                 = Nothing     } +-- | 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'. dvpcDryRun :: Lens' DeleteVpcPeeringConnection (Maybe Bool) dvpcDryRun = lens _dvpcDryRun (\s a -> s { _dvpcDryRun = a }) 

@@ -75,6 +75,9 @@     , _dvcDryRun          = Nothing     } +-- | 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'. dvcDryRun :: Lens' DeleteVpnConnection (Maybe Bool) dvcDryRun = lens _dvcDryRun (\s a -> s { _dvcDryRun = a }) 

@@ -70,6 +70,9 @@     , _dvgDryRun       = Nothing     } +-- | 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'. dvgDryRun :: Lens' DeleteVpnGateway (Maybe Bool) dvgDryRun = lens _dvgDryRun (\s a -> s { _dvgDryRun = a }) 

@@ -69,6 +69,9 @@     , _diDryRun  = Nothing     } +-- | 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'. diDryRun :: Lens' DeregisterImage (Maybe Bool) diDryRun = lens _diDryRun (\s a -> s { _diDryRun = a }) 

@@ -92,6 +92,9 @@     lens _daaAttributeNames (\s a -> s { _daaAttributeNames = a })         . _List +-- | 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'. daaDryRun :: Lens' DescribeAccountAttributes (Maybe Bool) daaDryRun = lens _daaDryRun (\s a -> s { _daaDryRun = a }) 

@@ -25,7 +25,7 @@ -- | Describes one or more of your Elastic IP addresses. -- -- An Elastic IP address is for use in either the EC2-Classic platform or in a--- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide for Linux/.+-- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeAddresses.html> module Network.AWS.EC2.DescribeAddresses@@ -86,6 +86,9 @@ daAllocationIds :: Lens' DescribeAddresses [Text] daAllocationIds = lens _daAllocationIds (\s a -> s { _daAllocationIds = a }) . _List +-- | Checks whether you have the required permissions for the action, without+-- actually making the request, and provides an error response. If you have the+-- required permissions, the error response is 'DryRunOperation'. Otherwise, it is 'UnauthorizedOperation'. daDryRun :: Lens' DescribeAddresses (Maybe Bool) daDryRun = lens _daDryRun (\s a -> s { _daDryRun = a }) 

@@ -27,7 +27,7 @@ -- there is an event impacting an Availability Zone, you can use this request to -- view the state and any provided message for that Availability Zone. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-regions-availability-zones.html Regions and Availability Zones> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-regions-availability-zones.html Regions and Availability Zones> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeAvailabilityZones.html> module Network.AWS.EC2.DescribeAvailabilityZones@@ -77,6 +77,9 @@     , _dazFilters   = mempty     } +-- | 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'. dazDryRun :: Lens' DescribeAvailabilityZones (Maybe Bool) dazDryRun = lens _dazDryRun (\s a -> s { _dazDryRun = a }) 

@@ -84,6 +84,9 @@ dbtBundleIds :: Lens' DescribeBundleTasks [Text] dbtBundleIds = lens _dbtBundleIds (\s a -> s { _dbtBundleIds = a }) . _List +-- | 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'. dbtDryRun :: Lens' DescribeBundleTasks (Maybe Bool) dbtDryRun = lens _dbtDryRun (\s a -> s { _dbtDryRun = a }) 

@@ -86,6 +86,9 @@     , _dcliMaxResults  = Nothing     } +-- | 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'. dcliDryRun :: Lens' DescribeClassicLinkInstances (Maybe Bool) dcliDryRun = lens _dcliDryRun (\s a -> s { _dcliDryRun = a }) 

@@ -22,7 +22,7 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | 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 for Linux/.+-- | 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/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeConversionTasks.html> module Network.AWS.EC2.DescribeConversionTasks@@ -78,9 +78,13 @@     lens _dctConversionTaskIds (\s a -> s { _dctConversionTaskIds = a })         . _List +-- | 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'. dctDryRun :: Lens' DescribeConversionTasks (Maybe Bool) dctDryRun = lens _dctDryRun (\s a -> s { _dctDryRun = a }) +-- | One or more filters. dctFilters :: Lens' DescribeConversionTasks [Filter] dctFilters = lens _dctFilters (\s a -> s { _dctFilters = a }) . _List @@ -99,6 +103,7 @@     { _dctrConversionTasks = mempty     } +-- | Information about the conversion tasks. dctrConversionTasks :: Lens' DescribeConversionTasksResponse [ConversionTask] dctrConversionTasks =     lens _dctrConversionTasks (\s a -> s { _dctrConversionTasks = a })

@@ -82,6 +82,9 @@     lens _dcgCustomerGatewayIds (\s a -> s { _dcgCustomerGatewayIds = a })         . _List +-- | 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'. dcgDryRun :: Lens' DescribeCustomerGateways (Maybe Bool) dcgDryRun = lens _dcgDryRun (\s a -> s { _dcgDryRun = a }) 

@@ -82,6 +82,9 @@     lens _ddoDhcpOptionsIds (\s a -> s { _ddoDhcpOptionsIds = a })         . _List +-- | 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'. ddoDryRun :: Lens' DescribeDhcpOptions (Maybe Bool) ddoDryRun = lens _ddoDryRun (\s a -> s { _ddoDryRun = a }) 

@@ -81,6 +81,7 @@     { _detrExportTasks = mempty     } +-- | Information about the export tasks. detrExportTasks :: Lens' DescribeExportTasksResponse [ExportTask] detrExportTasks = lens _detrExportTasks (\s a -> s { _detrExportTasks = a }) . _List 

@@ -90,6 +90,9 @@ dia1Attribute :: Lens' DescribeImageAttribute ImageAttributeName dia1Attribute = lens _dia1Attribute (\s a -> s { _dia1Attribute = 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'. dia1DryRun :: Lens' DescribeImageAttribute (Maybe Bool) dia1DryRun = lens _dia1DryRun (\s a -> s { _dia1DryRun = a }) 

@@ -89,6 +89,9 @@     , _di2Filters         = mempty     } +-- | 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'. di2DryRun :: Lens' DescribeImages (Maybe Bool) di2DryRun = lens _di2DryRun (\s a -> s { _di2DryRun = a }) @@ -106,17 +109,17 @@ -- 'block-device-mapping.delete-on-termination' - A Boolean value that -- indicates whether the Amazon EBS volume is deleted on instance termination. ----- 'block-device-mapping.device-name' - The device name for the Amazon EBS--- volume (for example, '/dev/sdh').+-- 'block-device-mapping.device-name' - The device name for the EBS volume (for+-- example, '/dev/sdh'). ----- 'block-device-mapping.snapshot-id' - The ID of the snapshot used for the--- Amazon EBS volume.+-- 'block-device-mapping.snapshot-id' - The ID of the snapshot used for the EBS+-- volume. ----- 'block-device-mapping.volume-size' - The volume size of the Amazon EBS--- volume, in GiB.+-- 'block-device-mapping.volume-size' - The volume size of the EBS volume, in+-- GiB. ----- 'block-device-mapping.volume-type' - The volume type of the Amazon EBS--- volume ('gp2' | 'standard' | 'io1').+-- 'block-device-mapping.volume-type' - The volume type of the EBS volume ('gp2'+-- | 'standard' | 'io1'). -- -- 'description' - The description of the image (provided during image -- creation).

@@ -0,0 +1,166 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeImportImageTasks+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Displays details about an import virtual machine or import snapshot tasks+-- that are already created.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeImportImageTasks.html>+module Network.AWS.EC2.DescribeImportImageTasks+    (+    -- * Request+      DescribeImportImageTasks+    -- ** Request constructor+    , describeImportImageTasks+    -- ** Request lenses+    , diitDryRun+    , diitFilters+    , diitImportTaskIds+    , diitMaxResults+    , diitNextToken++    -- * Response+    , DescribeImportImageTasksResponse+    -- ** Response constructor+    , describeImportImageTasksResponse+    -- ** Response lenses+    , diitrImportImageTasks+    , diitrNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeImportImageTasks = DescribeImportImageTasks+    { _diitDryRun        :: Maybe Bool+    , _diitFilters       :: List "Filter" Filter+    , _diitImportTaskIds :: List "ImportTaskId" Text+    , _diitMaxResults    :: Maybe Int+    , _diitNextToken     :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'DescribeImportImageTasks' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diitDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'diitFilters' @::@ ['Filter']+--+-- * 'diitImportTaskIds' @::@ ['Text']+--+-- * 'diitMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'diitNextToken' @::@ 'Maybe' 'Text'+--+describeImportImageTasks :: DescribeImportImageTasks+describeImportImageTasks = DescribeImportImageTasks+    { _diitDryRun        = Nothing+    , _diitImportTaskIds = mempty+    , _diitNextToken     = Nothing+    , _diitMaxResults    = Nothing+    , _diitFilters       = mempty+    }++-- | 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'.+diitDryRun :: Lens' DescribeImportImageTasks (Maybe Bool)+diitDryRun = lens _diitDryRun (\s a -> s { _diitDryRun = a })++-- | One or more filters.+diitFilters :: Lens' DescribeImportImageTasks [Filter]+diitFilters = lens _diitFilters (\s a -> s { _diitFilters = a }) . _List++-- | A list of import image task IDs.+diitImportTaskIds :: Lens' DescribeImportImageTasks [Text]+diitImportTaskIds =+    lens _diitImportTaskIds (\s a -> s { _diitImportTaskIds = a })+        . _List++-- | The maximum number of results to return in a single request.+diitMaxResults :: Lens' DescribeImportImageTasks (Maybe Int)+diitMaxResults = lens _diitMaxResults (\s a -> s { _diitMaxResults = a })++-- | A token that indicates the next page of results.+diitNextToken :: Lens' DescribeImportImageTasks (Maybe Text)+diitNextToken = lens _diitNextToken (\s a -> s { _diitNextToken = a })++data DescribeImportImageTasksResponse = DescribeImportImageTasksResponse+    { _diitrImportImageTasks :: List "item" ImportImageTask+    , _diitrNextToken        :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'DescribeImportImageTasksResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'diitrImportImageTasks' @::@ ['ImportImageTask']+--+-- * 'diitrNextToken' @::@ 'Maybe' 'Text'+--+describeImportImageTasksResponse :: DescribeImportImageTasksResponse+describeImportImageTasksResponse = DescribeImportImageTasksResponse+    { _diitrImportImageTasks = mempty+    , _diitrNextToken        = Nothing+    }++-- | A list of zero or more import image tasks that are currently active or were+-- completed or canceled in the previous 7 days.+diitrImportImageTasks :: Lens' DescribeImportImageTasksResponse [ImportImageTask]+diitrImportImageTasks =+    lens _diitrImportImageTasks (\s a -> s { _diitrImportImageTasks = a })+        . _List++-- | The token to use to get the next page of results. This value is 'null' when+-- there are no more results to return.+diitrNextToken :: Lens' DescribeImportImageTasksResponse (Maybe Text)+diitrNextToken = lens _diitrNextToken (\s a -> s { _diitrNextToken = a })++instance ToPath DescribeImportImageTasks where+    toPath = const "/"++instance ToQuery DescribeImportImageTasks where+    toQuery DescribeImportImageTasks{..} = mconcat+        [ "DryRun"       =? _diitDryRun+        , "Filters"      `toQueryList` _diitFilters+        , "ImportTaskId" `toQueryList` _diitImportTaskIds+        , "MaxResults"   =? _diitMaxResults+        , "NextToken"    =? _diitNextToken+        ]++instance ToHeaders DescribeImportImageTasks++instance AWSRequest DescribeImportImageTasks where+    type Sv DescribeImportImageTasks = EC2+    type Rs DescribeImportImageTasks = DescribeImportImageTasksResponse++    request  = post "DescribeImportImageTasks"+    response = xmlResponse++instance FromXML DescribeImportImageTasksResponse where+    parseXML x = DescribeImportImageTasksResponse+        <$> x .@? "importImageTaskSet" .!@ mempty+        <*> x .@? "nextToken"

@@ -0,0 +1,166 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeImportSnapshotTasks+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes your import snapshot tasks.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeImportSnapshotTasks.html>+module Network.AWS.EC2.DescribeImportSnapshotTasks+    (+    -- * Request+      DescribeImportSnapshotTasks+    -- ** Request constructor+    , describeImportSnapshotTasks+    -- ** Request lenses+    , distDryRun+    , distFilters+    , distImportTaskIds+    , distMaxResults+    , distNextToken++    -- * Response+    , DescribeImportSnapshotTasksResponse+    -- ** Response constructor+    , describeImportSnapshotTasksResponse+    -- ** Response lenses+    , distrImportSnapshotTasks+    , distrNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeImportSnapshotTasks = DescribeImportSnapshotTasks+    { _distDryRun        :: Maybe Bool+    , _distFilters       :: List "Filter" Filter+    , _distImportTaskIds :: List "ImportTaskId" Text+    , _distMaxResults    :: Maybe Int+    , _distNextToken     :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'DescribeImportSnapshotTasks' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'distDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'distFilters' @::@ ['Filter']+--+-- * 'distImportTaskIds' @::@ ['Text']+--+-- * 'distMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'distNextToken' @::@ 'Maybe' 'Text'+--+describeImportSnapshotTasks :: DescribeImportSnapshotTasks+describeImportSnapshotTasks = DescribeImportSnapshotTasks+    { _distDryRun        = Nothing+    , _distImportTaskIds = mempty+    , _distNextToken     = Nothing+    , _distMaxResults    = Nothing+    , _distFilters       = mempty+    }++-- | 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'.+distDryRun :: Lens' DescribeImportSnapshotTasks (Maybe Bool)+distDryRun = lens _distDryRun (\s a -> s { _distDryRun = a })++-- | One or more filters.+distFilters :: Lens' DescribeImportSnapshotTasks [Filter]+distFilters = lens _distFilters (\s a -> s { _distFilters = a }) . _List++-- | A list of import snapshot task IDs.+distImportTaskIds :: Lens' DescribeImportSnapshotTasks [Text]+distImportTaskIds =+    lens _distImportTaskIds (\s a -> s { _distImportTaskIds = a })+        . _List++-- | The maximum number of results to return in a single request.+distMaxResults :: Lens' DescribeImportSnapshotTasks (Maybe Int)+distMaxResults = lens _distMaxResults (\s a -> s { _distMaxResults = a })++-- | A token that indicates the next page of results.+distNextToken :: Lens' DescribeImportSnapshotTasks (Maybe Text)+distNextToken = lens _distNextToken (\s a -> s { _distNextToken = a })++data DescribeImportSnapshotTasksResponse = DescribeImportSnapshotTasksResponse+    { _distrImportSnapshotTasks :: List "item" ImportSnapshotTask+    , _distrNextToken           :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'DescribeImportSnapshotTasksResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'distrImportSnapshotTasks' @::@ ['ImportSnapshotTask']+--+-- * 'distrNextToken' @::@ 'Maybe' 'Text'+--+describeImportSnapshotTasksResponse :: DescribeImportSnapshotTasksResponse+describeImportSnapshotTasksResponse = DescribeImportSnapshotTasksResponse+    { _distrImportSnapshotTasks = mempty+    , _distrNextToken           = Nothing+    }++-- | A list of zero or more import snapshot tasks that are currently active or+-- were completed or canceled in the previous 7 days.+distrImportSnapshotTasks :: Lens' DescribeImportSnapshotTasksResponse [ImportSnapshotTask]+distrImportSnapshotTasks =+    lens _distrImportSnapshotTasks+        (\s a -> s { _distrImportSnapshotTasks = a })+            . _List++-- | The token to use to get the next page of results. This value is 'null' when+-- there are no more results to return.+distrNextToken :: Lens' DescribeImportSnapshotTasksResponse (Maybe Text)+distrNextToken = lens _distrNextToken (\s a -> s { _distrNextToken = a })++instance ToPath DescribeImportSnapshotTasks where+    toPath = const "/"++instance ToQuery DescribeImportSnapshotTasks where+    toQuery DescribeImportSnapshotTasks{..} = mconcat+        [ "DryRun"       =? _distDryRun+        , "Filters"      `toQueryList` _distFilters+        , "ImportTaskId" `toQueryList` _distImportTaskIds+        , "MaxResults"   =? _distMaxResults+        , "NextToken"    =? _distNextToken+        ]++instance ToHeaders DescribeImportSnapshotTasks++instance AWSRequest DescribeImportSnapshotTasks where+    type Sv DescribeImportSnapshotTasks = EC2+    type Rs DescribeImportSnapshotTasks = DescribeImportSnapshotTasksResponse++    request  = post "DescribeImportSnapshotTasks"+    response = xmlResponse++instance FromXML DescribeImportSnapshotTasksResponse where+    parseXML x = DescribeImportSnapshotTasksResponse+        <$> x .@? "importSnapshotTaskSet" .!@ mempty+        <*> x .@? "nextToken"

@@ -92,6 +92,9 @@ diaAttribute :: Lens' DescribeInstanceAttribute InstanceAttributeName diaAttribute = lens _diaAttribute (\s a -> s { _diaAttribute = 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'. diaDryRun :: Lens' DescribeInstanceAttribute (Maybe Bool) diaDryRun = lens _diaDryRun (\s a -> s { _diaDryRun = a }) 

@@ -22,63 +22,23 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Describes the status of one or more instances, including any scheduled events.+-- | Describes the status of one or more instances. ----- Instance status has two main components:+-- Instance status includes the following components: ----- System Status reports impaired functionality that stems from issues--- related to the systems that support an instance, such as such as hardware--- failures and network connectivity problems. This call reports such problems--- as impaired reachability.+-- Status checks - Amazon EC2 performs status checks on running EC2 instances+-- to identify hardware and software issues. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/monitoring-system-instance-status-check.html StatusChecks for Your Instances> and <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/TroubleshootingInstances.html Troubleshooting Instances with Failed StatusChecks> in the /Amazon Elastic Compute Cloud User Guide/. ----- Instance Status reports impaired functionality that arises from problems--- internal to the instance. This call reports such problems as impaired--- reachability.+-- Scheduled events - Amazon EC2 can schedule events (such as reboot, stop,+-- or terminate) for your instances related to hardware issues, software+-- updates, or system maintenance. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/monitoring-instances-status-check_sched.html Scheduled Eventsfor Your Instances> in the /Amazon Elastic Compute Cloud User Guide/. ----- Instance status provides information about four types of scheduled events--- for an instance that may require your attention:+-- Instance state - You can manage your instances from the moment you launch+-- them through their termination. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-instance-lifecycle.html Instance Lifecycle>+-- in the /Amazon Elastic Compute Cloud User Guide/. ----- Scheduled Reboot: When Amazon EC2 determines that an instance must be--- rebooted, the instances status returns one of two event codes: 'system-reboot'--- or 'instance-reboot'. System reboot commonly occurs if certain maintenance or--- upgrade operations require a reboot of the underlying host that supports an--- instance. Instance reboot commonly occurs if the instance must be rebooted,--- rather than the underlying host. Rebooting events include a scheduled start--- and end time. ----- System Maintenance: When Amazon EC2 determines that an instance requires--- maintenance that requires power or network impact, the instance status is the--- event code 'system-maintenance'. System maintenance is either power maintenance--- or network maintenance. For power maintenance, your instance will be--- unavailable for a brief period of time and then rebooted. For network--- maintenance, your instance will experience a brief loss of network--- connectivity. System maintenance events include a scheduled start and end--- time. You will also be notified by email if one of your instances is set for--- system maintenance. The email message indicates when your instance is--- scheduled for maintenance. ----- Scheduled Retirement: When Amazon EC2 determines that an instance must be--- shut down, the instance status is the event code 'instance-retirement'.--- Retirement commonly occurs when the underlying host is degraded and must be--- replaced. Retirement events include a scheduled start and end time. You will--- also be notified by email if one of your instances is set to retiring. The--- email message indicates when your instance will be permanently retired.------ Scheduled Stop: When Amazon EC2 determines that an instance must be shut--- down, the instances status returns an event code called 'instance-stop'. Stop--- events include a scheduled start and end time. You will also be notified by--- email if one of your instances is set to stop. The email message indicates--- when your instance will be stopped.------ When your instance is retired, it will either be terminated (if its root--- device type is the instance-store) or stopped (if its root device type is an--- EBS volume). Instances stopped due to retirement will not be restarted, but--- you can do so manually. You can also avoid retirement of EBS-backed instances--- by manually restarting your instance when its event code is 'instance-retirement'. This ensures that your instance is started on a different underlying host.------ For more information about failed status checks, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/TroubleshootingInstances.html TroubleshootingInstances with Failed Status Checks> in the /Amazon Elastic Compute Cloud UserGuide for Linux/. For more information about working with scheduled events,--- see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/monitoring-instances-status-check_sched.html#schedevents_actions Working with an Instance That Has a Scheduled Event> in the /Amazon ElasticCompute Cloud User Guide for Linux/.--- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeInstanceStatus.html> module Network.AWS.EC2.DescribeInstanceStatus     (@@ -143,6 +103,9 @@     , _disIncludeAllInstances = Nothing     } +-- | 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'. disDryRun :: Lens' DescribeInstanceStatus (Maybe Bool) disDryRun = lens _disDryRun (\s a -> s { _disDryRun = a }) @@ -150,20 +113,20 @@ -- -- 'availability-zone' - The Availability Zone of the instance. ----- 'event.code' - The code identifying the type of event ('instance-reboot' | 'system-reboot' | 'system-maintenance' | 'instance-retirement' | 'instance-stop').+-- 'event.code' - The code for the scheduled event ('instance-reboot' | 'system-reboot' | 'system-maintenance' | 'instance-retirement' | 'instance-stop'). -- -- 'event.description' - A description of the event. ----- 'event.not-after' - The latest end time for the scheduled event, for--- example: '2010-09-15T17:15:20.000Z'.+-- 'event.not-after' - The latest end time for the scheduled event (for+-- example, '2014-09-15T17:15:20.000Z'). ----- 'event.not-before' - The earliest start time for the scheduled event, for--- example: '2010-09-15T17:15:20.000Z'.+-- 'event.not-before' - The earliest start time for the scheduled event (for+-- example, '2014-09-15T17:15:20.000Z'). ----- 'instance-state-code' - A code representing the state of the instance, as a--- 16-bit unsigned integer. The high byte is an opaque internal value and should--- be ignored. The low byte is set based on the state represented. The valid--- values are 0 (pending), 16 (running), 32 (shutting-down), 48 (terminated), 64+-- 'instance-state-code' - The code for the instance state, as a 16-bit+-- unsigned integer. The high byte is an opaque internal value and should be+-- ignored. The low byte is set based on the state represented. The valid values+-- are 0 (pending), 16 (running), 32 (shutting-down), 48 (terminated), 64 -- (stopping), and 80 (stopped). -- -- 'instance-state-name' - The state of the instance ('pending' | 'running' | 'shutting-down' | 'terminated' | 'stopping' | 'stopped').

@@ -92,6 +92,9 @@     , _di1MaxResults  = Nothing     } +-- | 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'. di1DryRun :: Lens' DescribeInstances (Maybe Bool) di1DryRun = lens _di1DryRun (\s a -> s { _di1DryRun = a }) @@ -101,18 +104,18 @@ -- -- 'availability-zone' - The Availability Zone of the instance. ----- 'block-device-mapping.attach-time' - The attach time for an Amazon EBS--- volume mapped to the instance, for example, '2010-09-15T17:15:20.000Z'.+-- 'block-device-mapping.attach-time' - The attach time for an EBS volume+-- mapped to the instance, for example, '2010-09-15T17:15:20.000Z'. -- -- 'block-device-mapping.delete-on-termination' - A Boolean that indicates--- whether the Amazon EBS volume is deleted on instance termination.+-- whether the EBS volume is deleted on instance termination. ----- 'block-device-mapping.device-name' - The device name for the Amazon EBS--- volume (for example, '/dev/sdh' or 'xvdh').+-- 'block-device-mapping.device-name' - The device name for the EBS volume (for+-- example, '/dev/sdh' or 'xvdh'). ----- 'block-device-mapping.status' - The status for the Amazon EBS volume ('attaching' | 'attached' | 'detaching' | 'detached').+-- 'block-device-mapping.status' - The status for the EBS volume ('attaching' | 'attached' | 'detaching' | 'detached'). ----- 'block-device-mapping.volume-id' - The volume ID of the Amazon EBS volume.+-- 'block-device-mapping.volume-id' - The volume ID of the EBS volume. -- -- 'client-token' - The idempotency token you provided when you launched the -- instance.

@@ -72,6 +72,9 @@     , _dig1Filters            = mempty     } +-- | 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'. dig1DryRun :: Lens' DescribeInternetGateways (Maybe Bool) dig1DryRun = lens _dig1DryRun (\s a -> s { _dig1DryRun = a }) 

@@ -24,7 +24,7 @@  -- | Describes one or more of your key pairs. ----- For more information about key pairs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Key Pairs> in the /Amazon ElasticCompute Cloud User Guide for Linux/.+-- For more information about key pairs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Key Pairs> in the /Amazon ElasticCompute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeKeyPairs.html> module Network.AWS.EC2.DescribeKeyPairs@@ -74,6 +74,9 @@     , _dkp1Filters  = mempty     } +-- | 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'. dkp1DryRun :: Lens' DescribeKeyPairs (Maybe Bool) dkp1DryRun = lens _dkp1DryRun (\s a -> s { _dkp1DryRun = a }) 

@@ -0,0 +1,176 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeMovingAddresses+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes your Elastic IP addresses that are being moved to the EC2-VPC+-- platform, or that are being restored to the EC2-Classic platform. This+-- request does not return information about any other Elastic IP addresses in+-- your account.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeMovingAddresses.html>+module Network.AWS.EC2.DescribeMovingAddresses+    (+    -- * Request+      DescribeMovingAddresses+    -- ** Request constructor+    , describeMovingAddresses+    -- ** Request lenses+    , dmaDryRun+    , dmaFilters+    , dmaMaxResults+    , dmaNextToken+    , dmaPublicIps++    -- * Response+    , DescribeMovingAddressesResponse+    -- ** Response constructor+    , describeMovingAddressesResponse+    -- ** Response lenses+    , dmarMovingAddressStatuses+    , dmarNextToken+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeMovingAddresses = DescribeMovingAddresses+    { _dmaDryRun     :: Maybe Bool+    , _dmaFilters    :: List "Filter" Filter+    , _dmaMaxResults :: Maybe Int+    , _dmaNextToken  :: Maybe Text+    , _dmaPublicIps  :: List "item" Text+    } deriving (Eq, Read, Show)++-- | 'DescribeMovingAddresses' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dmaDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dmaFilters' @::@ ['Filter']+--+-- * 'dmaMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dmaNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dmaPublicIps' @::@ ['Text']+--+describeMovingAddresses :: DescribeMovingAddresses+describeMovingAddresses = DescribeMovingAddresses+    { _dmaDryRun     = Nothing+    , _dmaPublicIps  = mempty+    , _dmaNextToken  = Nothing+    , _dmaFilters    = mempty+    , _dmaMaxResults = Nothing+    }++-- | 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'.+dmaDryRun :: Lens' DescribeMovingAddresses (Maybe Bool)+dmaDryRun = lens _dmaDryRun (\s a -> s { _dmaDryRun = a })++-- | One or more filters.+--+-- 'moving-status' - The status of the Elastic IP address ('MovingToVpc' | 'RestoringToClassic').+--+--+dmaFilters :: Lens' DescribeMovingAddresses [Filter]+dmaFilters = lens _dmaFilters (\s a -> s { _dmaFilters = a }) . _List++-- | The maximum number of results to return for the request in a single page. The+-- remaining results of the initial request can be seen by sending another+-- request with the returned 'NextToken' value. This value can be between 5 and+-- 1000; if 'MaxResults' is given a value outside of this range, an error is+-- returned.+--+-- Default: If no value is provided, the default is 1000.+dmaMaxResults :: Lens' DescribeMovingAddresses (Maybe Int)+dmaMaxResults = lens _dmaMaxResults (\s a -> s { _dmaMaxResults = a })++-- | The token to use to retrieve the next page of results.+dmaNextToken :: Lens' DescribeMovingAddresses (Maybe Text)+dmaNextToken = lens _dmaNextToken (\s a -> s { _dmaNextToken = a })++-- | One or more Elastic IP addresses.+dmaPublicIps :: Lens' DescribeMovingAddresses [Text]+dmaPublicIps = lens _dmaPublicIps (\s a -> s { _dmaPublicIps = a }) . _List++data DescribeMovingAddressesResponse = DescribeMovingAddressesResponse+    { _dmarMovingAddressStatuses :: List "item" MovingAddressStatus+    , _dmarNextToken             :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'DescribeMovingAddressesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dmarMovingAddressStatuses' @::@ ['MovingAddressStatus']+--+-- * 'dmarNextToken' @::@ 'Maybe' 'Text'+--+describeMovingAddressesResponse :: DescribeMovingAddressesResponse+describeMovingAddressesResponse = DescribeMovingAddressesResponse+    { _dmarMovingAddressStatuses = mempty+    , _dmarNextToken             = Nothing+    }++-- | The status for each Elastic IP address.+dmarMovingAddressStatuses :: Lens' DescribeMovingAddressesResponse [MovingAddressStatus]+dmarMovingAddressStatuses =+    lens _dmarMovingAddressStatuses+        (\s a -> s { _dmarMovingAddressStatuses = a })+            . _List++-- | The token to use to retrieve the next page of results. This value is 'null'+-- when there are no more results to return.+dmarNextToken :: Lens' DescribeMovingAddressesResponse (Maybe Text)+dmarNextToken = lens _dmarNextToken (\s a -> s { _dmarNextToken = a })++instance ToPath DescribeMovingAddresses where+    toPath = const "/"++instance ToQuery DescribeMovingAddresses where+    toQuery DescribeMovingAddresses{..} = mconcat+        [ "DryRun"     =? _dmaDryRun+        , "Filter"     `toQueryList` _dmaFilters+        , "MaxResults" =? _dmaMaxResults+        , "NextToken"  =? _dmaNextToken+        , "PublicIp"   `toQueryList` _dmaPublicIps+        ]++instance ToHeaders DescribeMovingAddresses++instance AWSRequest DescribeMovingAddresses where+    type Sv DescribeMovingAddresses = EC2+    type Rs DescribeMovingAddresses = DescribeMovingAddressesResponse++    request  = post "DescribeMovingAddresses"+    response = xmlResponse++instance FromXML DescribeMovingAddressesResponse where+    parseXML x = DescribeMovingAddressesResponse+        <$> x .@? "movingAddressStatusSet" .!@ mempty+        <*> x .@? "nextToken"

@@ -74,6 +74,9 @@     , _dna1Filters       = mempty     } +-- | 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'. dna1DryRun :: Lens' DescribeNetworkAcls (Maybe Bool) dna1DryRun = lens _dna1DryRun (\s a -> s { _dna1DryRun = a }) 

@@ -82,6 +82,9 @@ dniaAttribute :: Lens' DescribeNetworkInterfaceAttribute (Maybe NetworkInterfaceAttribute) dniaAttribute = lens _dniaAttribute (\s a -> s { _dniaAttribute = 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'. dniaDryRun :: Lens' DescribeNetworkInterfaceAttribute (Maybe Bool) dniaDryRun = lens _dniaDryRun (\s a -> s { _dniaDryRun = a }) 

@@ -72,6 +72,9 @@     , _dni1Filters             = mempty     } +-- | 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'. dni1DryRun :: Lens' DescribeNetworkInterfaces (Maybe Bool) dni1DryRun = lens _dni1DryRun (\s a -> s { _dni1DryRun = a }) 

@@ -23,7 +23,7 @@ -- Derived from AWS service descriptions, licensed under Apache 2.0.  -- | Describes one or more of your placement groups. For more information about--- placement groups and cluster instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using_cluster_computing.html Cluster Instances> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- placement groups and cluster instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using_cluster_computing.html Cluster Instances> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribePlacementGroups.html> module Network.AWS.EC2.DescribePlacementGroups@@ -73,6 +73,9 @@     , _dpg1Filters    = mempty     } +-- | 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'. dpg1DryRun :: Lens' DescribePlacementGroups (Maybe Bool) dpg1DryRun = lens _dpg1DryRun (\s a -> s { _dpg1DryRun = a }) 

@@ -0,0 +1,176 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribePrefixLists+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes available AWS services in a prefix list format, which includes the+-- prefix list name and prefix list ID of the service and the IP address range+-- for the service. A prefix list ID is required for creating an outbound+-- security group rule that allows traffic from a VPC to access an AWS service+-- through a VPC endpoint.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribePrefixLists.html>+module Network.AWS.EC2.DescribePrefixLists+    (+    -- * Request+      DescribePrefixLists+    -- ** Request constructor+    , describePrefixLists+    -- ** Request lenses+    , dplDryRun+    , dplFilters+    , dplMaxResults+    , dplNextToken+    , dplPrefixListIds++    -- * Response+    , DescribePrefixListsResponse+    -- ** Response constructor+    , describePrefixListsResponse+    -- ** Response lenses+    , dplrNextToken+    , dplrPrefixLists+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribePrefixLists = DescribePrefixLists+    { _dplDryRun        :: Maybe Bool+    , _dplFilters       :: List "Filter" Filter+    , _dplMaxResults    :: Maybe Int+    , _dplNextToken     :: Maybe Text+    , _dplPrefixListIds :: List "item" Text+    } deriving (Eq, Read, Show)++-- | 'DescribePrefixLists' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dplDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dplFilters' @::@ ['Filter']+--+-- * 'dplMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dplNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dplPrefixListIds' @::@ ['Text']+--+describePrefixLists :: DescribePrefixLists+describePrefixLists = DescribePrefixLists+    { _dplDryRun        = Nothing+    , _dplPrefixListIds = mempty+    , _dplFilters       = mempty+    , _dplMaxResults    = Nothing+    , _dplNextToken     = Nothing+    }++-- | 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'.+dplDryRun :: Lens' DescribePrefixLists (Maybe Bool)+dplDryRun = lens _dplDryRun (\s a -> s { _dplDryRun = a })++-- | One or more filters.+--+-- 'prefix-list-id': The ID of a prefix list.+--+-- 'prefix-list-name': The name of a prefix list.+--+--+dplFilters :: Lens' DescribePrefixLists [Filter]+dplFilters = lens _dplFilters (\s a -> s { _dplFilters = a }) . _List++-- | 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.+--+-- Constraint: If the value specified is greater than 1000, we return only 1000+-- items.+dplMaxResults :: Lens' DescribePrefixLists (Maybe Int)+dplMaxResults = lens _dplMaxResults (\s a -> s { _dplMaxResults = a })++-- | The token for the next set of items to return. (You received this token from+-- a prior call.)+dplNextToken :: Lens' DescribePrefixLists (Maybe Text)+dplNextToken = lens _dplNextToken (\s a -> s { _dplNextToken = a })++-- | One or more prefix list IDs.+dplPrefixListIds :: Lens' DescribePrefixLists [Text]+dplPrefixListIds = lens _dplPrefixListIds (\s a -> s { _dplPrefixListIds = a }) . _List++data DescribePrefixListsResponse = DescribePrefixListsResponse+    { _dplrNextToken   :: Maybe Text+    , _dplrPrefixLists :: List "item" PrefixList+    } deriving (Eq, Read, Show)++-- | 'DescribePrefixListsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dplrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dplrPrefixLists' @::@ ['PrefixList']+--+describePrefixListsResponse :: DescribePrefixListsResponse+describePrefixListsResponse = DescribePrefixListsResponse+    { _dplrPrefixLists = mempty+    , _dplrNextToken   = Nothing+    }++-- | The token to use when requesting the next set of items. If there are no+-- additional items to return, the string is empty.+dplrNextToken :: Lens' DescribePrefixListsResponse (Maybe Text)+dplrNextToken = lens _dplrNextToken (\s a -> s { _dplrNextToken = a })++-- | All available prefix lists.+dplrPrefixLists :: Lens' DescribePrefixListsResponse [PrefixList]+dplrPrefixLists = lens _dplrPrefixLists (\s a -> s { _dplrPrefixLists = a }) . _List++instance ToPath DescribePrefixLists where+    toPath = const "/"++instance ToQuery DescribePrefixLists where+    toQuery DescribePrefixLists{..} = mconcat+        [ "DryRun"       =? _dplDryRun+        , "Filter"       `toQueryList` _dplFilters+        , "MaxResults"   =? _dplMaxResults+        , "NextToken"    =? _dplNextToken+        , "PrefixListId" `toQueryList` _dplPrefixListIds+        ]++instance ToHeaders DescribePrefixLists++instance AWSRequest DescribePrefixLists where+    type Sv DescribePrefixLists = EC2+    type Rs DescribePrefixLists = DescribePrefixListsResponse++    request  = post "DescribePrefixLists"+    response = xmlResponse++instance FromXML DescribePrefixListsResponse where+    parseXML x = DescribePrefixListsResponse+        <$> x .@? "nextToken"+        <*> x .@? "prefixListSet" .!@ mempty

@@ -74,6 +74,9 @@     , _dr1Filters     = mempty     } +-- | 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'. dr1DryRun :: Lens' DescribeRegions (Maybe Bool) dr1DryRun = lens _dr1DryRun (\s a -> s { _dr1DryRun = a }) 

@@ -24,7 +24,7 @@  -- | Describes one or more of the Reserved Instances that you purchased. ----- For more information about Reserved Instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/concepts-on-demand-reserved-instances.html Reserved Instances> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about Reserved Instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/concepts-on-demand-reserved-instances.html Reserved Instances> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstances.html> module Network.AWS.EC2.DescribeReservedInstances@@ -79,6 +79,9 @@     , _driOfferingType         = Nothing     } +-- | 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'. driDryRun :: Lens' DescribeReservedInstances (Maybe Bool) driDryRun = lens _driDryRun (\s a -> s { _driDryRun = a }) @@ -106,7 +109,7 @@ -- 'start' - The time at which the Reserved Instance purchase request was -- placed (for example, 2014-08-07T11:54:42.000Z). ----- 'state' - The state of the Reserved Instance ('pending-payment' | 'active' | 'payment-failed' | 'retired').+-- 'state' - The state of the Reserved Instance ('payment-pending' | 'active' | 'payment-failed' | 'retired'). -- -- 'tag':/key/=/value/ - The key/value combination of a tag assigned to the -- resource.

@@ -42,7 +42,7 @@ -- until your demand is met. You are charged based on the total price of all of -- the listings that you purchase. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstancesListings.html> module Network.AWS.EC2.DescribeReservedInstancesListings

@@ -28,7 +28,7 @@ -- about the specific modification is returned. -- -- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-modifying.html Modifying Reserved Instances> in the Amazon Elastic--- Compute Cloud User Guide for Linux.+-- Compute Cloud User Guide. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstancesModifications.html> module Network.AWS.EC2.DescribeReservedInstancesModifications

@@ -28,7 +28,7 @@ -- errors, and you pay a lower usage rate than the rate charged for On-Demand -- instances for the actual time used. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved Instance Marketplace> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeReservedInstancesOfferings.html> module Network.AWS.EC2.DescribeReservedInstancesOfferings@@ -139,6 +139,9 @@ drioAvailabilityZone =     lens _drioAvailabilityZone (\s a -> s { _drioAvailabilityZone = 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'. drioDryRun :: Lens' DescribeReservedInstancesOfferings (Maybe Bool) drioDryRun = lens _drioDryRun (\s a -> s { _drioDryRun = a }) @@ -185,7 +188,8 @@     lens _drioInstanceTenancy (\s a -> s { _drioInstanceTenancy = a })  -- | The instance type on which the Reserved Instance can be used. For more--- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Types> in the /Amazon Elastic Compute Cloud UserGuide for Linux/.+-- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-types.html Instance Types> in the /Amazon Elastic Compute Cloud User Guide/+-- . drioInstanceType :: Lens' DescribeReservedInstancesOfferings (Maybe InstanceType) drioInstanceType = lens _drioInstanceType (\s a -> s { _drioInstanceType = a }) 

@@ -74,6 +74,9 @@     , _drt2Filters       = mempty     } +-- | 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'. drt2DryRun :: Lens' DescribeRouteTables (Maybe Bool) drt2DryRun = lens _drt2DryRun (\s a -> s { _drt2DryRun = a }) @@ -94,6 +97,9 @@ -- -- 'route.destination-cidr-block' - The CIDR range specified in a route in the -- table.+--+-- 'route.destination-prefix-list-id' - The ID (prefix) of the AWS service+-- specified in a route in the table. -- -- 'route.gateway-id' - The ID of a gateway specified in a route in the table. --

@@ -25,7 +25,7 @@ -- | Describes one or more of your security groups. -- -- A security group is for use with instances either in the EC2-Classic--- platform or in a specific VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 SecurityGroups> in the /Amazon Elastic Compute Cloud User Guide for Linux/ and <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html SecurityGroups for Your VPC> in the /Amazon Virtual Private Cloud User Guide/.+-- platform or in a specific VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-network-security.html Amazon EC2 SecurityGroups> in the /Amazon Elastic Compute Cloud User Guide/ and <http://docs.aws.amazon.com/AmazonVPC/latest/UserGuide/VPC_SecurityGroups.html Security Groups forYour VPC> in the /Amazon Virtual Private Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSecurityGroups.html> module Network.AWS.EC2.DescribeSecurityGroups@@ -80,12 +80,18 @@     , _dsg1Filters    = mempty     } +-- | 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'. dsg1DryRun :: Lens' DescribeSecurityGroups (Maybe Bool) dsg1DryRun = lens _dsg1DryRun (\s a -> s { _dsg1DryRun = a })  -- | One or more filters. -- -- 'description' - The description of the security group.+--+-- 'egress.ip-permission.prefix-list-id' - The ID (prefix) of the AWS service+-- to which the security group allows access. -- -- 'group-id' - The ID of the security group. --

@@ -25,8 +25,7 @@ -- | Describes the specified attribute of the specified snapshot. You can specify -- only one attribute at a time. ----- For more information about Amazon EBS snapshots, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSSnapshots.html Amazon EBS Snapshots> in--- the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about EBS snapshots, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSSnapshots.html Amazon EBS Snapshots> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshotAttribute.html> module Network.AWS.EC2.DescribeSnapshotAttribute@@ -84,10 +83,13 @@ dsaAttribute :: Lens' DescribeSnapshotAttribute SnapshotAttributeName dsaAttribute = lens _dsaAttribute (\s a -> s { _dsaAttribute = 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'. dsaDryRun :: Lens' DescribeSnapshotAttribute (Maybe Bool) dsaDryRun = lens _dsaDryRun (\s a -> s { _dsaDryRun = a }) --- | The ID of the Amazon EBS snapshot.+-- | The ID of the EBS snapshot. dsaSnapshotId :: Lens' DescribeSnapshotAttribute Text dsaSnapshotId = lens _dsaSnapshotId (\s a -> s { _dsaSnapshotId = a }) @@ -125,7 +127,7 @@ dsarProductCodes :: Lens' DescribeSnapshotAttributeResponse [ProductCode] dsarProductCodes = lens _dsarProductCodes (\s a -> s { _dsarProductCodes = a }) . _List --- | The ID of the Amazon EBS snapshot.+-- | The ID of the EBS snapshot. dsarSnapshotId :: Lens' DescribeSnapshotAttributeResponse (Maybe Text) dsarSnapshotId = lens _dsarSnapshotId (\s a -> s { _dsarSnapshotId = a }) 

@@ -22,7 +22,7 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Describes one or more of the Amazon EBS snapshots available to you. Available+-- | Describes one or more of the EBS snapshots available to you. Available -- snapshots include public snapshots available for any AWS account to launch, -- private snapshots that you own, and private snapshots owned by another AWS -- account but for which you've been given explicit create volume permissions.@@ -57,8 +57,7 @@ -- your 'MaxResults' value, then that number of results is returned along with a 'NextToken' value that can be passed to a subsequent 'DescribeSnapshots' request to -- retrieve the remaining results. ----- For more information about Amazon EBS snapshots, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSSnapshots.html Amazon EBS Snapshots> in--- the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about EBS snapshots, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSSnapshots.html Amazon EBS Snapshots> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSnapshots.html> module Network.AWS.EC2.DescribeSnapshots@@ -129,6 +128,9 @@     , _ds1MaxResults          = Nothing     } +-- | 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'. ds1DryRun :: Lens' DescribeSnapshots (Maybe Bool) ds1DryRun = lens _ds1DryRun (\s a -> s { _ds1DryRun = a }) @@ -232,6 +234,7 @@ dsrNextToken :: Lens' DescribeSnapshotsResponse (Maybe Text) dsrNextToken = lens _dsrNextToken (\s a -> s { _dsrNextToken = a }) +-- | Information about the snapshots. dsrSnapshots :: Lens' DescribeSnapshotsResponse [Snapshot] dsrSnapshots = lens _dsrSnapshots (\s a -> s { _dsrSnapshots = a }) . _List 

@@ -22,7 +22,7 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Describes the data feed for Spot Instances. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-data-feeds.html SpotInstance Data Feed> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- | Describes the data feed for Spot Instances. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-data-feeds.html SpotInstance Data Feed> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSpotDatafeedSubscription.html> module Network.AWS.EC2.DescribeSpotDatafeedSubscription@@ -62,6 +62,9 @@     { _dsdsDryRun = Nothing     } +-- | 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'. dsdsDryRun :: Lens' DescribeSpotDatafeedSubscription (Maybe Bool) dsdsDryRun = lens _dsdsDryRun (\s a -> s { _dsdsDryRun = a }) 

@@ -0,0 +1,169 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSpotFleetInstances+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes the running instances for the specified Spot fleet.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSpotFleetInstances.html>+module Network.AWS.EC2.DescribeSpotFleetInstances+    (+    -- * Request+      DescribeSpotFleetInstances+    -- ** Request constructor+    , describeSpotFleetInstances+    -- ** Request lenses+    , dsfiDryRun+    , dsfiMaxResults+    , dsfiNextToken+    , dsfiSpotFleetRequestId++    -- * Response+    , DescribeSpotFleetInstancesResponse+    -- ** Response constructor+    , describeSpotFleetInstancesResponse+    -- ** Response lenses+    , dsfirActiveInstances+    , dsfirNextToken+    , dsfirSpotFleetRequestId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSpotFleetInstances = DescribeSpotFleetInstances+    { _dsfiDryRun             :: Maybe Bool+    , _dsfiMaxResults         :: Maybe Int+    , _dsfiNextToken          :: Maybe Text+    , _dsfiSpotFleetRequestId :: Text+    } deriving (Eq, Ord, Read, Show)++-- | 'DescribeSpotFleetInstances' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsfiDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsfiMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dsfiNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsfiSpotFleetRequestId' @::@ 'Text'+--+describeSpotFleetInstances :: Text -- ^ 'dsfiSpotFleetRequestId'+                           -> DescribeSpotFleetInstances+describeSpotFleetInstances p1 = DescribeSpotFleetInstances+    { _dsfiSpotFleetRequestId = p1+    , _dsfiDryRun             = Nothing+    , _dsfiNextToken          = Nothing+    , _dsfiMaxResults         = Nothing+    }++-- | 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'.+dsfiDryRun :: Lens' DescribeSpotFleetInstances (Maybe Bool)+dsfiDryRun = lens _dsfiDryRun (\s a -> s { _dsfiDryRun = a })++-- | The maximum number of results to return in a single call. Specify a value+-- between 1 and 1000. The default value is 1000. To retrieve the remaining+-- results, make another call with the returned 'NextToken' value.+dsfiMaxResults :: Lens' DescribeSpotFleetInstances (Maybe Int)+dsfiMaxResults = lens _dsfiMaxResults (\s a -> s { _dsfiMaxResults = a })++-- | The token for the next set of results.+dsfiNextToken :: Lens' DescribeSpotFleetInstances (Maybe Text)+dsfiNextToken = lens _dsfiNextToken (\s a -> s { _dsfiNextToken = a })++-- | The ID of the Spot fleet request.+dsfiSpotFleetRequestId :: Lens' DescribeSpotFleetInstances Text+dsfiSpotFleetRequestId =+    lens _dsfiSpotFleetRequestId (\s a -> s { _dsfiSpotFleetRequestId = a })++data DescribeSpotFleetInstancesResponse = DescribeSpotFleetInstancesResponse+    { _dsfirActiveInstances    :: List "item" ActiveInstance+    , _dsfirNextToken          :: Maybe Text+    , _dsfirSpotFleetRequestId :: Text+    } deriving (Eq, Read, Show)++-- | 'DescribeSpotFleetInstancesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsfirActiveInstances' @::@ ['ActiveInstance']+--+-- * 'dsfirNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsfirSpotFleetRequestId' @::@ 'Text'+--+describeSpotFleetInstancesResponse :: Text -- ^ 'dsfirSpotFleetRequestId'+                                   -> DescribeSpotFleetInstancesResponse+describeSpotFleetInstancesResponse p1 = DescribeSpotFleetInstancesResponse+    { _dsfirSpotFleetRequestId = p1+    , _dsfirActiveInstances    = mempty+    , _dsfirNextToken          = Nothing+    }++-- | The running instances. Note that this list is refreshed periodically and+-- might be out of date.+dsfirActiveInstances :: Lens' DescribeSpotFleetInstancesResponse [ActiveInstance]+dsfirActiveInstances =+    lens _dsfirActiveInstances (\s a -> s { _dsfirActiveInstances = a })+        . _List++-- | The token required to retrieve the next set of results. This value is 'null'+-- when there are no more results to return.+dsfirNextToken :: Lens' DescribeSpotFleetInstancesResponse (Maybe Text)+dsfirNextToken = lens _dsfirNextToken (\s a -> s { _dsfirNextToken = a })++-- | The ID of the Spot fleet request.+dsfirSpotFleetRequestId :: Lens' DescribeSpotFleetInstancesResponse Text+dsfirSpotFleetRequestId =+    lens _dsfirSpotFleetRequestId (\s a -> s { _dsfirSpotFleetRequestId = a })++instance ToPath DescribeSpotFleetInstances where+    toPath = const "/"++instance ToQuery DescribeSpotFleetInstances where+    toQuery DescribeSpotFleetInstances{..} = mconcat+        [ "DryRun"             =? _dsfiDryRun+        , "MaxResults"         =? _dsfiMaxResults+        , "NextToken"          =? _dsfiNextToken+        , "SpotFleetRequestId" =? _dsfiSpotFleetRequestId+        ]++instance ToHeaders DescribeSpotFleetInstances++instance AWSRequest DescribeSpotFleetInstances where+    type Sv DescribeSpotFleetInstances = EC2+    type Rs DescribeSpotFleetInstances = DescribeSpotFleetInstancesResponse++    request  = post "DescribeSpotFleetInstances"+    response = xmlResponse++instance FromXML DescribeSpotFleetInstancesResponse where+    parseXML x = DescribeSpotFleetInstancesResponse+        <$> x .@? "activeInstanceSet" .!@ mempty+        <*> x .@? "nextToken"+        <*> x .@  "spotFleetRequestId"

@@ -0,0 +1,224 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSpotFleetRequestHistory+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes the events for the specified Spot fleet request during the+-- specified time.+--+-- Spot fleet events are delayed by up to 30 seconds before they can be+-- described. This ensures that you can query by the last evaluated time and not+-- miss a recorded event.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSpotFleetRequestHistory.html>+module Network.AWS.EC2.DescribeSpotFleetRequestHistory+    (+    -- * Request+      DescribeSpotFleetRequestHistory+    -- ** Request constructor+    , describeSpotFleetRequestHistory+    -- ** Request lenses+    , dsfrhDryRun+    , dsfrhEventType+    , dsfrhMaxResults+    , dsfrhNextToken+    , dsfrhSpotFleetRequestId+    , dsfrhStartTime++    -- * Response+    , DescribeSpotFleetRequestHistoryResponse+    -- ** Response constructor+    , describeSpotFleetRequestHistoryResponse+    -- ** Response lenses+    , dsfrhrHistoryRecords+    , dsfrhrLastEvaluatedTime+    , dsfrhrNextToken+    , dsfrhrSpotFleetRequestId+    , dsfrhrStartTime+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSpotFleetRequestHistory = DescribeSpotFleetRequestHistory+    { _dsfrhDryRun             :: Maybe Bool+    , _dsfrhEventType          :: Maybe EventType+    , _dsfrhMaxResults         :: Maybe Int+    , _dsfrhNextToken          :: Maybe Text+    , _dsfrhSpotFleetRequestId :: Text+    , _dsfrhStartTime          :: ISO8601+    } deriving (Eq, Read, Show)++-- | 'DescribeSpotFleetRequestHistory' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsfrhDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsfrhEventType' @::@ 'Maybe' 'EventType'+--+-- * 'dsfrhMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dsfrhNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsfrhSpotFleetRequestId' @::@ 'Text'+--+-- * 'dsfrhStartTime' @::@ 'UTCTime'+--+describeSpotFleetRequestHistory :: Text -- ^ 'dsfrhSpotFleetRequestId'+                                -> UTCTime -- ^ 'dsfrhStartTime'+                                -> DescribeSpotFleetRequestHistory+describeSpotFleetRequestHistory p1 p2 = DescribeSpotFleetRequestHistory+    { _dsfrhSpotFleetRequestId = p1+    , _dsfrhStartTime          = withIso _Time (const id) p2+    , _dsfrhDryRun             = Nothing+    , _dsfrhEventType          = Nothing+    , _dsfrhNextToken          = Nothing+    , _dsfrhMaxResults         = Nothing+    }++-- | 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'.+dsfrhDryRun :: Lens' DescribeSpotFleetRequestHistory (Maybe Bool)+dsfrhDryRun = lens _dsfrhDryRun (\s a -> s { _dsfrhDryRun = a })++-- | The type of events to describe. By default, all events are described.+dsfrhEventType :: Lens' DescribeSpotFleetRequestHistory (Maybe EventType)+dsfrhEventType = lens _dsfrhEventType (\s a -> s { _dsfrhEventType = a })++-- | The maximum number of results to return in a single call. Specify a value+-- between 1 and 1000. The default value is 1000. To retrieve the remaining+-- results, make another call with the returned 'NextToken' value.+dsfrhMaxResults :: Lens' DescribeSpotFleetRequestHistory (Maybe Int)+dsfrhMaxResults = lens _dsfrhMaxResults (\s a -> s { _dsfrhMaxResults = a })++-- | The token for the next set of results.+dsfrhNextToken :: Lens' DescribeSpotFleetRequestHistory (Maybe Text)+dsfrhNextToken = lens _dsfrhNextToken (\s a -> s { _dsfrhNextToken = a })++-- | The ID of the Spot fleet request.+dsfrhSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistory Text+dsfrhSpotFleetRequestId =+    lens _dsfrhSpotFleetRequestId (\s a -> s { _dsfrhSpotFleetRequestId = a })++-- | The starting date and time for the events, in UTC format (for example, /YYYY/-/MM/+-- -/DD/T/HH/:/MM/:/SS/Z).+dsfrhStartTime :: Lens' DescribeSpotFleetRequestHistory UTCTime+dsfrhStartTime = lens _dsfrhStartTime (\s a -> s { _dsfrhStartTime = a }) . _Time++data DescribeSpotFleetRequestHistoryResponse = DescribeSpotFleetRequestHistoryResponse+    { _dsfrhrHistoryRecords     :: List "item" HistoryRecord+    , _dsfrhrLastEvaluatedTime  :: ISO8601+    , _dsfrhrNextToken          :: Maybe Text+    , _dsfrhrSpotFleetRequestId :: Text+    , _dsfrhrStartTime          :: ISO8601+    } deriving (Eq, Read, Show)++-- | 'DescribeSpotFleetRequestHistoryResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsfrhrHistoryRecords' @::@ ['HistoryRecord']+--+-- * 'dsfrhrLastEvaluatedTime' @::@ 'UTCTime'+--+-- * 'dsfrhrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsfrhrSpotFleetRequestId' @::@ 'Text'+--+-- * 'dsfrhrStartTime' @::@ 'UTCTime'+--+describeSpotFleetRequestHistoryResponse :: Text -- ^ 'dsfrhrSpotFleetRequestId'+                                        -> UTCTime -- ^ 'dsfrhrStartTime'+                                        -> UTCTime -- ^ 'dsfrhrLastEvaluatedTime'+                                        -> DescribeSpotFleetRequestHistoryResponse+describeSpotFleetRequestHistoryResponse p1 p2 p3 = DescribeSpotFleetRequestHistoryResponse+    { _dsfrhrSpotFleetRequestId = p1+    , _dsfrhrStartTime          = withIso _Time (const id) p2+    , _dsfrhrLastEvaluatedTime  = withIso _Time (const id) p3+    , _dsfrhrHistoryRecords     = mempty+    , _dsfrhrNextToken          = Nothing+    }++-- | Information about the events in the history of the Spot fleet request.+dsfrhrHistoryRecords :: Lens' DescribeSpotFleetRequestHistoryResponse [HistoryRecord]+dsfrhrHistoryRecords =+    lens _dsfrhrHistoryRecords (\s a -> s { _dsfrhrHistoryRecords = a })+        . _List++-- | The last date and time for the events, in UTC format (for example, /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). All records up to this time were retrieved.+--+-- If 'nextToken' indicates that there are more results, this value is not+-- present.+dsfrhrLastEvaluatedTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime+dsfrhrLastEvaluatedTime =+    lens _dsfrhrLastEvaluatedTime (\s a -> s { _dsfrhrLastEvaluatedTime = a })+        . _Time++-- | The token required to retrieve the next set of results. This value is 'null'+-- when there are no more results to return.+dsfrhrNextToken :: Lens' DescribeSpotFleetRequestHistoryResponse (Maybe Text)+dsfrhrNextToken = lens _dsfrhrNextToken (\s a -> s { _dsfrhrNextToken = a })++-- | The ID of the Spot fleet request.+dsfrhrSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistoryResponse Text+dsfrhrSpotFleetRequestId =+    lens _dsfrhrSpotFleetRequestId+        (\s a -> s { _dsfrhrSpotFleetRequestId = a })++-- | The starting date and time for the events, in UTC format (for example, /YYYY/-/MM/+-- -/DD/T/HH/:/MM/:/SS/Z).+dsfrhrStartTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime+dsfrhrStartTime = lens _dsfrhrStartTime (\s a -> s { _dsfrhrStartTime = a }) . _Time++instance ToPath DescribeSpotFleetRequestHistory where+    toPath = const "/"++instance ToQuery DescribeSpotFleetRequestHistory where+    toQuery DescribeSpotFleetRequestHistory{..} = mconcat+        [ "DryRun"             =? _dsfrhDryRun+        , "EventType"          =? _dsfrhEventType+        , "MaxResults"         =? _dsfrhMaxResults+        , "NextToken"          =? _dsfrhNextToken+        , "SpotFleetRequestId" =? _dsfrhSpotFleetRequestId+        , "StartTime"          =? _dsfrhStartTime+        ]++instance ToHeaders DescribeSpotFleetRequestHistory++instance AWSRequest DescribeSpotFleetRequestHistory where+    type Sv DescribeSpotFleetRequestHistory = EC2+    type Rs DescribeSpotFleetRequestHistory = DescribeSpotFleetRequestHistoryResponse++    request  = post "DescribeSpotFleetRequestHistory"+    response = xmlResponse++instance FromXML DescribeSpotFleetRequestHistoryResponse where+    parseXML x = DescribeSpotFleetRequestHistoryResponse+        <$> x .@? "historyRecordSet" .!@ mempty+        <*> x .@  "lastEvaluatedTime"+        <*> x .@? "nextToken"+        <*> x .@  "spotFleetRequestId"+        <*> x .@  "startTime"

@@ -0,0 +1,157 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeSpotFleetRequests+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes your Spot fleet requests.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeSpotFleetRequests.html>+module Network.AWS.EC2.DescribeSpotFleetRequests+    (+    -- * Request+      DescribeSpotFleetRequests+    -- ** Request constructor+    , describeSpotFleetRequests+    -- ** Request lenses+    , dsfrDryRun+    , dsfrMaxResults+    , dsfrNextToken+    , dsfrSpotFleetRequestIds++    -- * Response+    , DescribeSpotFleetRequestsResponse+    -- ** Response constructor+    , describeSpotFleetRequestsResponse+    -- ** Response lenses+    , dsfrrNextToken+    , dsfrrSpotFleetRequestConfigs+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeSpotFleetRequests = DescribeSpotFleetRequests+    { _dsfrDryRun              :: Maybe Bool+    , _dsfrMaxResults          :: Maybe Int+    , _dsfrNextToken           :: Maybe Text+    , _dsfrSpotFleetRequestIds :: List "item" Text+    } deriving (Eq, Ord, Read, Show)++-- | 'DescribeSpotFleetRequests' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsfrDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dsfrMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dsfrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsfrSpotFleetRequestIds' @::@ ['Text']+--+describeSpotFleetRequests :: DescribeSpotFleetRequests+describeSpotFleetRequests = DescribeSpotFleetRequests+    { _dsfrDryRun              = Nothing+    , _dsfrSpotFleetRequestIds = mempty+    , _dsfrNextToken           = Nothing+    , _dsfrMaxResults          = Nothing+    }++-- | 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'.+dsfrDryRun :: Lens' DescribeSpotFleetRequests (Maybe Bool)+dsfrDryRun = lens _dsfrDryRun (\s a -> s { _dsfrDryRun = a })++-- | The maximum number of results to return in a single call. Specify a value+-- between 1 and 1000. The default value is 1000. To retrieve the remaining+-- results, make another call with the returned 'NextToken' value.+dsfrMaxResults :: Lens' DescribeSpotFleetRequests (Maybe Int)+dsfrMaxResults = lens _dsfrMaxResults (\s a -> s { _dsfrMaxResults = a })++-- | The token for the next set of results.+dsfrNextToken :: Lens' DescribeSpotFleetRequests (Maybe Text)+dsfrNextToken = lens _dsfrNextToken (\s a -> s { _dsfrNextToken = a })++-- | The IDs of the Spot fleet requests.+dsfrSpotFleetRequestIds :: Lens' DescribeSpotFleetRequests [Text]+dsfrSpotFleetRequestIds =+    lens _dsfrSpotFleetRequestIds (\s a -> s { _dsfrSpotFleetRequestIds = a })+        . _List++data DescribeSpotFleetRequestsResponse = DescribeSpotFleetRequestsResponse+    { _dsfrrNextToken               :: Maybe Text+    , _dsfrrSpotFleetRequestConfigs :: List "item" SpotFleetRequestConfig+    } deriving (Eq, Read, Show)++-- | 'DescribeSpotFleetRequestsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dsfrrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dsfrrSpotFleetRequestConfigs' @::@ ['SpotFleetRequestConfig']+--+describeSpotFleetRequestsResponse :: DescribeSpotFleetRequestsResponse+describeSpotFleetRequestsResponse = DescribeSpotFleetRequestsResponse+    { _dsfrrSpotFleetRequestConfigs = mempty+    , _dsfrrNextToken               = Nothing+    }++-- | The token required to retrieve the next set of results. This value is 'null'+-- when there are no more results to return.+dsfrrNextToken :: Lens' DescribeSpotFleetRequestsResponse (Maybe Text)+dsfrrNextToken = lens _dsfrrNextToken (\s a -> s { _dsfrrNextToken = a })++-- | Information about the configuration of your Spot fleet.+dsfrrSpotFleetRequestConfigs :: Lens' DescribeSpotFleetRequestsResponse [SpotFleetRequestConfig]+dsfrrSpotFleetRequestConfigs =+    lens _dsfrrSpotFleetRequestConfigs+        (\s a -> s { _dsfrrSpotFleetRequestConfigs = a })+            . _List++instance ToPath DescribeSpotFleetRequests where+    toPath = const "/"++instance ToQuery DescribeSpotFleetRequests where+    toQuery DescribeSpotFleetRequests{..} = mconcat+        [ "DryRun"             =? _dsfrDryRun+        , "MaxResults"         =? _dsfrMaxResults+        , "NextToken"          =? _dsfrNextToken+        , "SpotFleetRequestId" `toQueryList` _dsfrSpotFleetRequestIds+        ]++instance ToHeaders DescribeSpotFleetRequests++instance AWSRequest DescribeSpotFleetRequests where+    type Sv DescribeSpotFleetRequests = EC2+    type Rs DescribeSpotFleetRequests = DescribeSpotFleetRequestsResponse++    request  = post "DescribeSpotFleetRequests"+    response = xmlResponse++instance FromXML DescribeSpotFleetRequestsResponse where+    parseXML x = DescribeSpotFleetRequestsResponse+        <$> x .@? "nextToken"+        <*> x .@? "spotFleetRequestConfigSet" .!@ mempty

@@ -26,7 +26,7 @@ -- Instances are instances that Amazon EC2 launches when the bid price that you -- specify exceeds the current Spot Price. Amazon EC2 periodically sets the Spot -- Price based on available Spot Instance capacity and current Spot Instance--- requests. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-requests.html Spot Instance Requests> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- requests. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-requests.html Spot Instance Requests> in the /AmazonElastic Compute Cloud User Guide/. -- -- You can use 'DescribeSpotInstanceRequests' to find a running Spot Instance by -- examining the response. If the status of the Spot Instance is 'fulfilled', the@@ -82,6 +82,9 @@     , _dsirFilters                = mempty     } +-- | 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'. dsirDryRun :: Lens' DescribeSpotInstanceRequests (Maybe Bool) dsirDryRun = lens _dsirDryRun (\s a -> s { _dsirDryRun = a }) @@ -163,7 +166,7 @@ -- -- 'state' - The state of the Spot Instance request ('open' | 'active' | 'closed' | 'cancelled' | 'failed'). Spot bid status information can help you track your Amazon EC2 -- Spot Instance requests. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-bid-status.html Spot Bid Status> in the--- Amazon Elastic Compute Cloud User Guide for Linux.+-- Amazon Elastic Compute Cloud User Guide. -- -- 'status-code' - The short code describing the most recent evaluation of your -- Spot Instance request.

@@ -24,7 +24,7 @@  -- | Describes the Spot Price history. The prices returned are listed in -- chronological order, from the oldest to the most recent, for up to the past--- 90 days. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-spot-instances-history.html Spot Instance Pricing History> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- 90 days. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-spot-instances-history.html Spot Instance Pricing History> in the /Amazon Elastic Compute Cloud User Guide/. -- -- When you specify a start and end time, this operation returns the prices of -- the instance types within the time range that you specified and the time when@@ -115,11 +115,14 @@ dsphAvailabilityZone =     lens _dsphAvailabilityZone (\s a -> s { _dsphAvailabilityZone = 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'. dsphDryRun :: Lens' DescribeSpotPriceHistory (Maybe Bool) dsphDryRun = lens _dsphDryRun (\s a -> s { _dsphDryRun = a })  -- | The date and time, up to the current date, from which to stop retrieving the--- price history data.+-- price history data, in UTC format (for example, /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). dsphEndTime :: Lens' DescribeSpotPriceHistory (Maybe UTCTime) dsphEndTime = lens _dsphEndTime (\s a -> s { _dsphEndTime = a }) . mapping _Time @@ -135,9 +138,9 @@ -- 'spot-price' - The Spot Price. The value must match exactly (or use -- wildcards; greater than or less than comparison is not supported). ----- 'timestamp' - The timestamp of the Spot Price history (for example,--- 2010-08-16T05:06:11.000Z). You can use wildcards (* and ?). Greater than or--- less than comparison is not supported.+-- 'timestamp' - The timestamp of the Spot Price history, in UTC format (for+-- example, /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). You can use wildcards (* and ?). Greater than+-- or less than comparison is not supported. -- -- dsphFilters :: Lens' DescribeSpotPriceHistory [Filter]@@ -149,15 +152,13 @@     lens _dsphInstanceTypes (\s a -> s { _dsphInstanceTypes = a })         . _List --- | The maximum number of results to return for the request in a single page. The--- remaining results of the initial request can be seen by sending another--- request with the returned 'NextToken' value. This value can be between 5 and--- 1000; if 'MaxResults' is given a value larger than 1000, only 1000 results are--- returned.+-- | The maximum number of results to return in a single call. Specify a value+-- between 1 and 1000. The default value is 1000. To retrieve the remaining+-- results, make another call with the returned 'NextToken' value. dsphMaxResults :: Lens' DescribeSpotPriceHistory (Maybe Int) dsphMaxResults = lens _dsphMaxResults (\s a -> s { _dsphMaxResults = a }) --- | The token to retrieve the next page of results.+-- | The token for the next set of results. dsphNextToken :: Lens' DescribeSpotPriceHistory (Maybe Text) dsphNextToken = lens _dsphNextToken (\s a -> s { _dsphNextToken = a }) @@ -168,7 +169,7 @@         . _List  -- | The date and time, up to the past 90 days, from which to start retrieving the--- price history data.+-- price history data, in UTC format (for example, /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). dsphStartTime :: Lens' DescribeSpotPriceHistory (Maybe UTCTime) dsphStartTime = lens _dsphStartTime (\s a -> s { _dsphStartTime = a }) . mapping _Time @@ -191,7 +192,7 @@     , _dsphrNextToken        = Nothing     } --- | The token to use to retrieve the next page of results. This value is 'null'+-- | The token required to retrieve the next set of results. This value is 'null' -- when there are no more results to return. dsphrNextToken :: Lens' DescribeSpotPriceHistoryResponse (Maybe Text) dsphrNextToken = lens _dsphrNextToken (\s a -> s { _dsphrNextToken = a })

@@ -74,6 +74,9 @@     , _dsFilters   = mempty     } +-- | 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'. dsDryRun :: Lens' DescribeSubnets (Maybe Bool) dsDryRun = lens _dsDryRun (\s a -> s { _dsDryRun = a }) 

@@ -24,7 +24,7 @@  -- | Describes one or more of the tags for your EC2 resources. ----- For more information about tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Resources> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information about tags, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_Tags.html Tagging Your Resources> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeTags.html> module Network.AWS.EC2.DescribeTags@@ -80,6 +80,9 @@     , _dtNextToken  = Nothing     } +-- | 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'. dtDryRun :: Lens' DescribeTags (Maybe Bool) dtDryRun = lens _dtDryRun (\s a -> s { _dtDryRun = a }) 

@@ -25,7 +25,7 @@ -- | Describes the specified attribute of the specified volume. You can specify -- only one attribute at a time. ----- For more information about Amazon EBS volumes, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumes.html Amazon EBS Volumes> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about EBS volumes, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumes.html Amazon EBS Volumes> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumeAttribute.html> module Network.AWS.EC2.DescribeVolumeAttribute@@ -82,6 +82,9 @@ dvaAttribute :: Lens' DescribeVolumeAttribute (Maybe VolumeAttributeName) dvaAttribute = lens _dvaAttribute (\s a -> s { _dvaAttribute = 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'. dvaDryRun :: Lens' DescribeVolumeAttribute (Maybe Bool) dvaDryRun = lens _dvaDryRun (\s a -> s { _dvaDryRun = a }) 

@@ -118,6 +118,9 @@     , _dvsMaxResults = Nothing     } +-- | 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'. dvsDryRun :: Lens' DescribeVolumeStatus (Maybe Bool) dvsDryRun = lens _dvsDryRun (\s a -> s { _dvsDryRun = a }) 

@@ -22,7 +22,7 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Describes the specified Amazon EBS volumes.+-- | Describes the specified EBS volumes. -- -- If you are describing a long list of volumes, you can paginate the output to -- make the list more manageable. The 'MaxResults' parameter sets the maximum@@ -30,7 +30,7 @@ -- your 'MaxResults' value, then that number of results is returned along with a 'NextToken' value that can be passed to a subsequent 'DescribeVolumes' request to retrieve -- the remaining results. ----- For more information about Amazon EBS volumes, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumes.html Amazon EBS Volumes> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about EBS volumes, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/EBSVolumes.html Amazon EBS Volumes> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVolumes.html> module Network.AWS.EC2.DescribeVolumes@@ -91,6 +91,9 @@     , _dv2MaxResults = Nothing     } +-- | 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'. dv2DryRun :: Lens' DescribeVolumes (Maybe Bool) dv2DryRun = lens _dv2DryRun (\s a -> s { _dv2DryRun = a }) @@ -194,6 +197,7 @@ dvrNextToken :: Lens' DescribeVolumesResponse (Maybe Text) dvrNextToken = lens _dvrNextToken (\s a -> s { _dvrNextToken = a }) +-- | Information about the volumes. dvrVolumes :: Lens' DescribeVolumesResponse [Volume] dvrVolumes = lens _dvrVolumes (\s a -> s { _dvrVolumes = a }) . _List 

@@ -80,6 +80,9 @@ dva1Attribute :: Lens' DescribeVpcAttribute (Maybe VpcAttributeName) dva1Attribute = lens _dva1Attribute (\s a -> s { _dva1Attribute = 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'. dva1DryRun :: Lens' DescribeVpcAttribute (Maybe Bool) dva1DryRun = lens _dva1DryRun (\s a -> s { _dva1DryRun = a }) 

@@ -72,6 +72,9 @@     , _dvclFilters = mempty     } +-- | 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'. dvclDryRun :: Lens' DescribeVpcClassicLink (Maybe Bool) dvclDryRun = lens _dvclDryRun (\s a -> s { _dvclDryRun = a }) 

@@ -0,0 +1,148 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVpcEndpointServices+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes all supported AWS services that can be specified when creating a+-- VPC endpoint.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVpcEndpointServices.html>+module Network.AWS.EC2.DescribeVpcEndpointServices+    (+    -- * Request+      DescribeVpcEndpointServices+    -- ** Request constructor+    , describeVpcEndpointServices+    -- ** Request lenses+    , dvesDryRun+    , dvesMaxResults+    , dvesNextToken++    -- * Response+    , DescribeVpcEndpointServicesResponse+    -- ** Response constructor+    , describeVpcEndpointServicesResponse+    -- ** Response lenses+    , dvesrNextToken+    , dvesrServiceNames+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVpcEndpointServices = DescribeVpcEndpointServices+    { _dvesDryRun     :: Maybe Bool+    , _dvesMaxResults :: Maybe Int+    , _dvesNextToken  :: Maybe Text+    } deriving (Eq, Ord, Read, Show)++-- | 'DescribeVpcEndpointServices' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvesDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dvesMaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dvesNextToken' @::@ 'Maybe' 'Text'+--+describeVpcEndpointServices :: DescribeVpcEndpointServices+describeVpcEndpointServices = DescribeVpcEndpointServices+    { _dvesDryRun     = Nothing+    , _dvesMaxResults = Nothing+    , _dvesNextToken  = Nothing+    }++-- | 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'.+dvesDryRun :: Lens' DescribeVpcEndpointServices (Maybe Bool)+dvesDryRun = lens _dvesDryRun (\s a -> s { _dvesDryRun = 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.+--+-- Constraint: If the value is greater than 1000, we return only 1000 items.+dvesMaxResults :: Lens' DescribeVpcEndpointServices (Maybe Int)+dvesMaxResults = lens _dvesMaxResults (\s a -> s { _dvesMaxResults = a })++-- | The token for the next set of items to return. (You received this token from+-- a prior call.)+dvesNextToken :: Lens' DescribeVpcEndpointServices (Maybe Text)+dvesNextToken = lens _dvesNextToken (\s a -> s { _dvesNextToken = a })++data DescribeVpcEndpointServicesResponse = DescribeVpcEndpointServicesResponse+    { _dvesrNextToken    :: Maybe Text+    , _dvesrServiceNames :: List "item" Text+    } deriving (Eq, Ord, Read, Show)++-- | 'DescribeVpcEndpointServicesResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dvesrNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dvesrServiceNames' @::@ ['Text']+--+describeVpcEndpointServicesResponse :: DescribeVpcEndpointServicesResponse+describeVpcEndpointServicesResponse = DescribeVpcEndpointServicesResponse+    { _dvesrServiceNames = mempty+    , _dvesrNextToken    = Nothing+    }++-- | The token to use when requesting the next set of items. If there are no+-- additional items to return, the string is empty.+dvesrNextToken :: Lens' DescribeVpcEndpointServicesResponse (Maybe Text)+dvesrNextToken = lens _dvesrNextToken (\s a -> s { _dvesrNextToken = a })++-- | A list of supported AWS services.+dvesrServiceNames :: Lens' DescribeVpcEndpointServicesResponse [Text]+dvesrServiceNames =+    lens _dvesrServiceNames (\s a -> s { _dvesrServiceNames = a })+        . _List++instance ToPath DescribeVpcEndpointServices where+    toPath = const "/"++instance ToQuery DescribeVpcEndpointServices where+    toQuery DescribeVpcEndpointServices{..} = mconcat+        [ "DryRun"     =? _dvesDryRun+        , "MaxResults" =? _dvesMaxResults+        , "NextToken"  =? _dvesNextToken+        ]++instance ToHeaders DescribeVpcEndpointServices++instance AWSRequest DescribeVpcEndpointServices where+    type Sv DescribeVpcEndpointServices = EC2+    type Rs DescribeVpcEndpointServices = DescribeVpcEndpointServicesResponse++    request  = post "DescribeVpcEndpointServices"+    response = xmlResponse++instance FromXML DescribeVpcEndpointServicesResponse where+    parseXML x = DescribeVpcEndpointServicesResponse+        <$> x .@? "nextToken"+        <*> x .@? "serviceNameSet" .!@ mempty

@@ -0,0 +1,177 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.DescribeVpcEndpoints+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Describes one or more of your VPC endpoints.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DescribeVpcEndpoints.html>+module Network.AWS.EC2.DescribeVpcEndpoints+    (+    -- * Request+      DescribeVpcEndpoints+    -- ** Request constructor+    , describeVpcEndpoints+    -- ** Request lenses+    , dve1DryRun+    , dve1Filters+    , dve1MaxResults+    , dve1NextToken+    , dve1VpcEndpointIds++    -- * Response+    , DescribeVpcEndpointsResponse+    -- ** Response constructor+    , describeVpcEndpointsResponse+    -- ** Response lenses+    , dverNextToken+    , dverVpcEndpoints+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data DescribeVpcEndpoints = DescribeVpcEndpoints+    { _dve1DryRun         :: Maybe Bool+    , _dve1Filters        :: List "Filter" Filter+    , _dve1MaxResults     :: Maybe Int+    , _dve1NextToken      :: Maybe Text+    , _dve1VpcEndpointIds :: List "item" Text+    } deriving (Eq, Read, Show)++-- | 'DescribeVpcEndpoints' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dve1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'dve1Filters' @::@ ['Filter']+--+-- * 'dve1MaxResults' @::@ 'Maybe' 'Int'+--+-- * 'dve1NextToken' @::@ 'Maybe' 'Text'+--+-- * 'dve1VpcEndpointIds' @::@ ['Text']+--+describeVpcEndpoints :: DescribeVpcEndpoints+describeVpcEndpoints = DescribeVpcEndpoints+    { _dve1DryRun         = Nothing+    , _dve1VpcEndpointIds = mempty+    , _dve1Filters        = mempty+    , _dve1MaxResults     = Nothing+    , _dve1NextToken      = Nothing+    }++-- | 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'.+dve1DryRun :: Lens' DescribeVpcEndpoints (Maybe Bool)+dve1DryRun = lens _dve1DryRun (\s a -> s { _dve1DryRun = a })++-- | One or more filters.+--+-- 'service-name': The name of the AWS service.+--+-- 'vpc-id': The ID of the VPC in which the endpoint resides.+--+-- 'vpc-endpoint-id': The ID of the endpoint.+--+-- 'vpc-endpoint-state': The state of the endpoint. ('pending' | 'available' | 'deleting' | 'deleted')+--+--+dve1Filters :: Lens' DescribeVpcEndpoints [Filter]+dve1Filters = lens _dve1Filters (\s a -> s { _dve1Filters = a }) . _List++-- | 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.+--+-- Constraint: If the value is greater than 1000, we return only 1000 items.+dve1MaxResults :: Lens' DescribeVpcEndpoints (Maybe Int)+dve1MaxResults = lens _dve1MaxResults (\s a -> s { _dve1MaxResults = a })++-- | The token for the next set of items to return. (You received this token from+-- a prior call.)+dve1NextToken :: Lens' DescribeVpcEndpoints (Maybe Text)+dve1NextToken = lens _dve1NextToken (\s a -> s { _dve1NextToken = a })++-- | One or more endpoint IDs.+dve1VpcEndpointIds :: Lens' DescribeVpcEndpoints [Text]+dve1VpcEndpointIds =+    lens _dve1VpcEndpointIds (\s a -> s { _dve1VpcEndpointIds = a })+        . _List++data DescribeVpcEndpointsResponse = DescribeVpcEndpointsResponse+    { _dverNextToken    :: Maybe Text+    , _dverVpcEndpoints :: List "item" VpcEndpoint+    } deriving (Eq, Read, Show)++-- | 'DescribeVpcEndpointsResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'dverNextToken' @::@ 'Maybe' 'Text'+--+-- * 'dverVpcEndpoints' @::@ ['VpcEndpoint']+--+describeVpcEndpointsResponse :: DescribeVpcEndpointsResponse+describeVpcEndpointsResponse = DescribeVpcEndpointsResponse+    { _dverVpcEndpoints = mempty+    , _dverNextToken    = Nothing+    }++-- | The token to use when requesting the next set of items. If there are no+-- additional items to return, the string is empty.+dverNextToken :: Lens' DescribeVpcEndpointsResponse (Maybe Text)+dverNextToken = lens _dverNextToken (\s a -> s { _dverNextToken = a })++-- | Information about the endpoints.+dverVpcEndpoints :: Lens' DescribeVpcEndpointsResponse [VpcEndpoint]+dverVpcEndpoints = lens _dverVpcEndpoints (\s a -> s { _dverVpcEndpoints = a }) . _List++instance ToPath DescribeVpcEndpoints where+    toPath = const "/"++instance ToQuery DescribeVpcEndpoints where+    toQuery DescribeVpcEndpoints{..} = mconcat+        [ "DryRun"        =? _dve1DryRun+        , "Filter"        `toQueryList` _dve1Filters+        , "MaxResults"    =? _dve1MaxResults+        , "NextToken"     =? _dve1NextToken+        , "VpcEndpointId" `toQueryList` _dve1VpcEndpointIds+        ]++instance ToHeaders DescribeVpcEndpoints++instance AWSRequest DescribeVpcEndpoints where+    type Sv DescribeVpcEndpoints = EC2+    type Rs DescribeVpcEndpoints = DescribeVpcEndpointsResponse++    request  = post "DescribeVpcEndpoints"+    response = xmlResponse++instance FromXML DescribeVpcEndpointsResponse where+    parseXML x = DescribeVpcEndpointsResponse+        <$> x .@? "nextToken"+        <*> x .@? "vpcEndpointSet" .!@ mempty

@@ -72,6 +72,9 @@     , _dvpc1Filters                 = mempty     } +-- | 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'. dvpc1DryRun :: Lens' DescribeVpcPeeringConnections (Maybe Bool) dvpc1DryRun = lens _dvpc1DryRun (\s a -> s { _dvpc1DryRun = a }) 

@@ -72,6 +72,9 @@     , _dv1Filters = mempty     } +-- | 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'. dv1DryRun :: Lens' DescribeVpcs (Maybe Bool) dv1DryRun = lens _dv1DryRun (\s a -> s { _dv1DryRun = a }) 

@@ -74,6 +74,9 @@     , _dvc1Filters          = mempty     } +-- | 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'. dvc1DryRun :: Lens' DescribeVpnConnections (Maybe Bool) dvc1DryRun = lens _dvc1DryRun (\s a -> s { _dvc1DryRun = a }) 

@@ -74,6 +74,9 @@     , _dvg2Filters       = mempty     } +-- | 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'. dvg2DryRun :: Lens' DescribeVpnGateways (Maybe Bool) dvg2DryRun = lens _dvg2DryRun (\s a -> s { _dvg2DryRun = a }) 

@@ -76,6 +76,9 @@     , _dclvDryRun     = Nothing     } +-- | 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'. dclvDryRun :: Lens' DetachClassicLinkVpc (Maybe Bool) dclvDryRun = lens _dclvDryRun (\s a -> s { _dclvDryRun = a }) 

@@ -74,6 +74,9 @@     , _digDryRun            = Nothing     } +-- | 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'. digDryRun :: Lens' DetachInternetGateway (Maybe Bool) digDryRun = lens _digDryRun (\s a -> s { _digDryRun = a }) 

@@ -75,6 +75,9 @@ dniAttachmentId :: Lens' DetachNetworkInterface Text dniAttachmentId = lens _dniAttachmentId (\s a -> s { _dniAttachmentId = 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'. dniDryRun :: Lens' DetachNetworkInterface (Maybe Bool) dniDryRun = lens _dniDryRun (\s a -> s { _dniDryRun = a }) 

@@ -22,7 +22,7 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Detaches an Amazon EBS volume from an instance. Make sure to unmount any file+-- | 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.@@ -34,7 +34,7 @@ -- When a volume with an AWS Marketplace product code is detached from an -- instance, the product code is no longer associated with the instance. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-detaching-volume.html Detaching an Amazon EBS Volume> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ebs-detaching-volume.html Detaching an Amazon EBS Volume> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-DetachVolume.html> module Network.AWS.EC2.DetachVolume@@ -104,6 +104,9 @@ dvDevice :: Lens' DetachVolume (Maybe Text) dvDevice = lens _dvDevice (\s a -> s { _dvDevice = 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'. dvDryRun :: Lens' DetachVolume (Maybe Bool) dvDryRun = lens _dvDryRun (\s a -> s { _dvDryRun = a }) @@ -164,7 +167,7 @@ dvrAttachTime :: Lens' DetachVolumeResponse (Maybe UTCTime) dvrAttachTime = lens _dvrAttachTime (\s a -> s { _dvrAttachTime = a }) . mapping _Time --- | Indicates whether the Amazon EBS volume is deleted on instance termination.+-- | Indicates whether the EBS volume is deleted on instance termination. dvrDeleteOnTermination :: Lens' DetachVolumeResponse (Maybe Bool) dvrDeleteOnTermination =     lens _dvrDeleteOnTermination (\s a -> s { _dvrDeleteOnTermination = a })

@@ -79,6 +79,9 @@     , _dvg1DryRun       = Nothing     } +-- | 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'. dvg1DryRun :: Lens' DetachVpnGateway (Maybe Bool) dvg1DryRun = lens _dvg1DryRun (\s a -> s { _dvg1DryRun = a }) 

@@ -69,6 +69,9 @@     , _dvcl1DryRun = Nothing     } +-- | 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'. dvcl1DryRun :: Lens' DisableVpcClassicLink (Maybe Bool) dvcl1DryRun = lens _dvcl1DryRun (\s a -> s { _dvcl1DryRun = a }) 

@@ -26,7 +26,7 @@ -- it's associated with. -- -- An Elastic IP address is for use in either the EC2-Classic platform or in a--- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide for Linux/.+-- VPC. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/elastic-ip-addresses-eip.html Elastic IP Addresses> in the /Amazon ElasticCompute Cloud User Guide/. -- -- This is an idempotent operation. If you perform the operation more than -- once, Amazon EC2 doesn't return an error.@@ -81,6 +81,9 @@ da1AssociationId :: Lens' DisassociateAddress (Maybe Text) da1AssociationId = lens _da1AssociationId (\s a -> s { _da1AssociationId = 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'. da1DryRun :: Lens' DisassociateAddress (Maybe Bool) da1DryRun = lens _da1DryRun (\s a -> s { _da1DryRun = a }) 

@@ -75,6 +75,9 @@ drtAssociationId :: Lens' DisassociateRouteTable Text drtAssociationId = lens _drtAssociationId (\s a -> s { _drtAssociationId = 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'. drtDryRun :: Lens' DisassociateRouteTable (Maybe Bool) drtDryRun = lens _drtDryRun (\s a -> s { _drtDryRun = a }) 

@@ -67,6 +67,9 @@     , _evioDryRun   = Nothing     } +-- | 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'. evioDryRun :: Lens' EnableVolumeIO (Maybe Bool) evioDryRun = lens _evioDryRun (\s a -> s { _evioDryRun = a }) 

@@ -27,7 +27,7 @@ -- addresses. You cannot enable your VPC for ClassicLink if any of your VPC's -- route tables have existing routes for address ranges within the '10.0.0.0/8' IP -- address range, excluding local routes for VPCs in the '10.0.0.0/16' and '10.1.0.0/16' IP address ranges. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/vpc-classiclink.html ClassicLink> in the Amazon--- Elastic Compute Cloud User Guide for Linux.+-- Elastic Compute Cloud User Guide. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-EnableVpcClassicLink.html> module Network.AWS.EC2.EnableVpcClassicLink@@ -73,6 +73,9 @@     , _evclDryRun = Nothing     } +-- | 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'. evclDryRun :: Lens' EnableVpcClassicLink (Maybe Bool) evclDryRun = lens _evclDryRun (\s a -> s { _evclDryRun = a }) 

@@ -87,6 +87,9 @@     , _gcoDryRun     = Nothing     } +-- | 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'. gcoDryRun :: Lens' GetConsoleOutput (Maybe Bool) gcoDryRun = lens _gcoDryRun (\s a -> s { _gcoDryRun = a }) 

@@ -82,6 +82,9 @@     , _gpdDryRun     = Nothing     } +-- | 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'. gpdDryRun :: Lens' GetPasswordData (Maybe Bool) gpdDryRun = lens _gpdDryRun (\s a -> s { _gpdDryRun = a }) 

@@ -0,0 +1,316 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ImportImage+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Import single or multi-volume disk images or EBS snapshots into an Amazon+-- Machine Image (AMI).+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportImage.html>+module Network.AWS.EC2.ImportImage+    (+    -- * Request+      ImportImage+    -- ** Request constructor+    , importImage+    -- ** Request lenses+    , ii1Architecture+    , ii1ClientData+    , ii1ClientToken+    , ii1Description+    , ii1DiskContainers+    , ii1DryRun+    , ii1Hypervisor+    , ii1LicenseType+    , ii1Platform+    , ii1RoleName++    -- * Response+    , ImportImageResponse+    -- ** Response constructor+    , importImageResponse+    -- ** Response lenses+    , iirArchitecture+    , iirDescription+    , iirHypervisor+    , iirImageId+    , iirImportTaskId+    , iirLicenseType+    , iirPlatform+    , iirProgress+    , iirSnapshotDetails+    , iirStatus+    , iirStatusMessage+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ImportImage = ImportImage+    { _ii1Architecture   :: Maybe Text+    , _ii1ClientData     :: Maybe ClientData+    , _ii1ClientToken    :: Maybe Text+    , _ii1Description    :: Maybe Text+    , _ii1DiskContainers :: List "item" ImageDiskContainer+    , _ii1DryRun         :: Maybe Bool+    , _ii1Hypervisor     :: Maybe Text+    , _ii1LicenseType    :: Maybe Text+    , _ii1Platform       :: Maybe Text+    , _ii1RoleName       :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'ImportImage' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'ii1Architecture' @::@ 'Maybe' 'Text'+--+-- * 'ii1ClientData' @::@ 'Maybe' 'ClientData'+--+-- * 'ii1ClientToken' @::@ 'Maybe' 'Text'+--+-- * 'ii1Description' @::@ 'Maybe' 'Text'+--+-- * 'ii1DiskContainers' @::@ ['ImageDiskContainer']+--+-- * 'ii1DryRun' @::@ 'Maybe' 'Bool'+--+-- * 'ii1Hypervisor' @::@ 'Maybe' 'Text'+--+-- * 'ii1LicenseType' @::@ 'Maybe' 'Text'+--+-- * 'ii1Platform' @::@ 'Maybe' 'Text'+--+-- * 'ii1RoleName' @::@ 'Maybe' 'Text'+--+importImage :: ImportImage+importImage = ImportImage+    { _ii1DryRun         = Nothing+    , _ii1Description    = Nothing+    , _ii1DiskContainers = mempty+    , _ii1LicenseType    = Nothing+    , _ii1Hypervisor     = Nothing+    , _ii1Architecture   = Nothing+    , _ii1Platform       = Nothing+    , _ii1ClientData     = Nothing+    , _ii1ClientToken    = Nothing+    , _ii1RoleName       = Nothing+    }++-- | The architecture of the virtual machine.+--+-- Valid values: 'i386' | 'x86_64'+ii1Architecture :: Lens' ImportImage (Maybe Text)+ii1Architecture = lens _ii1Architecture (\s a -> s { _ii1Architecture = a })++-- | The client-specific data.+ii1ClientData :: Lens' ImportImage (Maybe ClientData)+ii1ClientData = lens _ii1ClientData (\s a -> s { _ii1ClientData = a })++-- | The token to enable idempotency for VM import requests.+ii1ClientToken :: Lens' ImportImage (Maybe Text)+ii1ClientToken = lens _ii1ClientToken (\s a -> s { _ii1ClientToken = a })++-- | A description string for the import image task.+ii1Description :: Lens' ImportImage (Maybe Text)+ii1Description = lens _ii1Description (\s a -> s { _ii1Description = a })++-- | Information about the disk containers.+ii1DiskContainers :: Lens' ImportImage [ImageDiskContainer]+ii1DiskContainers =+    lens _ii1DiskContainers (\s a -> s { _ii1DiskContainers = a })+        . _List++-- | 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'.+ii1DryRun :: Lens' ImportImage (Maybe Bool)+ii1DryRun = lens _ii1DryRun (\s a -> s { _ii1DryRun = a })++-- | The target hypervisor platform.+--+-- Valid values: 'xen'+ii1Hypervisor :: Lens' ImportImage (Maybe Text)+ii1Hypervisor = lens _ii1Hypervisor (\s a -> s { _ii1Hypervisor = a })++-- | 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 VMImport/Export Prerequisites> in the /Amazon Elastic Compute Cloud User Guide/.+--+-- Valid values: 'AWS' | 'BYOL'+ii1LicenseType :: Lens' ImportImage (Maybe Text)+ii1LicenseType = lens _ii1LicenseType (\s a -> s { _ii1LicenseType = a })++-- | The operating system of the virtual machine.+--+-- Valid values: 'Windows' | 'Linux'+ii1Platform :: Lens' ImportImage (Maybe Text)+ii1Platform = lens _ii1Platform (\s a -> s { _ii1Platform = a })++-- | The name of the role to use when not using the default role, 'vmimport'.+ii1RoleName :: Lens' ImportImage (Maybe Text)+ii1RoleName = lens _ii1RoleName (\s a -> s { _ii1RoleName = a })++data ImportImageResponse = ImportImageResponse+    { _iirArchitecture    :: Maybe Text+    , _iirDescription     :: Maybe Text+    , _iirHypervisor      :: Maybe Text+    , _iirImageId         :: Maybe Text+    , _iirImportTaskId    :: Maybe Text+    , _iirLicenseType     :: Maybe Text+    , _iirPlatform        :: Maybe Text+    , _iirProgress        :: Maybe Text+    , _iirSnapshotDetails :: List "item" SnapshotDetail+    , _iirStatus          :: Maybe Text+    , _iirStatusMessage   :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'ImportImageResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'iirArchitecture' @::@ 'Maybe' 'Text'+--+-- * 'iirDescription' @::@ 'Maybe' 'Text'+--+-- * 'iirHypervisor' @::@ 'Maybe' 'Text'+--+-- * 'iirImageId' @::@ 'Maybe' 'Text'+--+-- * 'iirImportTaskId' @::@ 'Maybe' 'Text'+--+-- * 'iirLicenseType' @::@ 'Maybe' 'Text'+--+-- * 'iirPlatform' @::@ 'Maybe' 'Text'+--+-- * 'iirProgress' @::@ 'Maybe' 'Text'+--+-- * 'iirSnapshotDetails' @::@ ['SnapshotDetail']+--+-- * 'iirStatus' @::@ 'Maybe' 'Text'+--+-- * 'iirStatusMessage' @::@ 'Maybe' 'Text'+--+importImageResponse :: ImportImageResponse+importImageResponse = ImportImageResponse+    { _iirImportTaskId    = Nothing+    , _iirArchitecture    = Nothing+    , _iirLicenseType     = Nothing+    , _iirPlatform        = Nothing+    , _iirHypervisor      = Nothing+    , _iirDescription     = Nothing+    , _iirSnapshotDetails = mempty+    , _iirImageId         = Nothing+    , _iirProgress        = Nothing+    , _iirStatusMessage   = Nothing+    , _iirStatus          = Nothing+    }++-- | The architecture of the virtual machine.+iirArchitecture :: Lens' ImportImageResponse (Maybe Text)+iirArchitecture = lens _iirArchitecture (\s a -> s { _iirArchitecture = a })++-- | A description of the import task.+iirDescription :: Lens' ImportImageResponse (Maybe Text)+iirDescription = lens _iirDescription (\s a -> s { _iirDescription = a })++-- | The target hypervisor of the import task.+iirHypervisor :: Lens' ImportImageResponse (Maybe Text)+iirHypervisor = lens _iirHypervisor (\s a -> s { _iirHypervisor = a })++-- | The ID of the Amazon Machine Image (AMI) created by the import task.+iirImageId :: Lens' ImportImageResponse (Maybe Text)+iirImageId = lens _iirImageId (\s a -> s { _iirImageId = a })++-- | The task ID of the import image task.+iirImportTaskId :: Lens' ImportImageResponse (Maybe Text)+iirImportTaskId = lens _iirImportTaskId (\s a -> s { _iirImportTaskId = a })++-- | The license type of the virtual machine.+iirLicenseType :: Lens' ImportImageResponse (Maybe Text)+iirLicenseType = lens _iirLicenseType (\s a -> s { _iirLicenseType = a })++-- | The operating system of the virtual machine.+iirPlatform :: Lens' ImportImageResponse (Maybe Text)+iirPlatform = lens _iirPlatform (\s a -> s { _iirPlatform = a })++-- | The progress of the task.+iirProgress :: Lens' ImportImageResponse (Maybe Text)+iirProgress = lens _iirProgress (\s a -> s { _iirProgress = a })++-- | Information about the snapshots.+iirSnapshotDetails :: Lens' ImportImageResponse [SnapshotDetail]+iirSnapshotDetails =+    lens _iirSnapshotDetails (\s a -> s { _iirSnapshotDetails = a })+        . _List++-- | A brief status of the task.+iirStatus :: Lens' ImportImageResponse (Maybe Text)+iirStatus = lens _iirStatus (\s a -> s { _iirStatus = a })++-- | A detailed status message of the import task.+iirStatusMessage :: Lens' ImportImageResponse (Maybe Text)+iirStatusMessage = lens _iirStatusMessage (\s a -> s { _iirStatusMessage = a })++instance ToPath ImportImage where+    toPath = const "/"++instance ToQuery ImportImage where+    toQuery ImportImage{..} = mconcat+        [ "Architecture"  =? _ii1Architecture+        , "ClientData"    =? _ii1ClientData+        , "ClientToken"   =? _ii1ClientToken+        , "Description"   =? _ii1Description+        , "DiskContainer" `toQueryList` _ii1DiskContainers+        , "DryRun"        =? _ii1DryRun+        , "Hypervisor"    =? _ii1Hypervisor+        , "LicenseType"   =? _ii1LicenseType+        , "Platform"      =? _ii1Platform+        , "RoleName"      =? _ii1RoleName+        ]++instance ToHeaders ImportImage++instance AWSRequest ImportImage where+    type Sv ImportImage = EC2+    type Rs ImportImage = ImportImageResponse++    request  = post "ImportImage"+    response = xmlResponse++instance FromXML ImportImageResponse where+    parseXML x = ImportImageResponse+        <$> x .@? "architecture"+        <*> x .@? "description"+        <*> x .@? "hypervisor"+        <*> x .@? "imageId"+        <*> x .@? "importTaskId"+        <*> x .@? "licenseType"+        <*> x .@? "platform"+        <*> x .@? "progress"+        <*> x .@? "snapshotDetailSet" .!@ mempty+        <*> x .@? "status"+        <*> x .@? "statusMessage"

@@ -22,9 +22,8 @@ -- -- Derived from AWS service descriptions, licensed under Apache 2.0. --- | Creates an import instance task using metadata from the specified disk image.--- 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 theCommand Line Tools to Import Your Virtual Machine to Amazon EC2> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- | 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 theCommand Line Tools to Import Your Virtual Machine to Amazon EC2> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportInstance.html> module Network.AWS.EC2.ImportInstance@@ -89,13 +88,17 @@ iiDescription :: Lens' ImportInstance (Maybe Text) iiDescription = lens _iiDescription (\s a -> s { _iiDescription = a }) +-- | The disk image. iiDiskImages :: Lens' ImportInstance [DiskImage] iiDiskImages = lens _iiDiskImages (\s a -> s { _iiDiskImages = a }) . _List +-- | 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'. iiDryRun :: Lens' ImportInstance (Maybe Bool) iiDryRun = lens _iiDryRun (\s a -> s { _iiDryRun = a }) -+-- | The launch specification. iiLaunchSpecification :: Lens' ImportInstance (Maybe ImportInstanceLaunchSpecification) iiLaunchSpecification =     lens _iiLaunchSpecification (\s a -> s { _iiLaunchSpecification = a })@@ -119,6 +122,7 @@     { _iirConversionTask = Nothing     } +-- | Information about the conversion task. iirConversionTask :: Lens' ImportInstanceResponse (Maybe ConversionTask) iirConversionTask =     lens _iirConversionTask (\s a -> s { _iirConversionTask = a })

@@ -28,7 +28,7 @@ -- ImportKeyPair, you create the key pair and give AWS just the public key. The -- private key is never transferred between you and AWS. ----- For more information about key pairs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Key Pairs> in the /Amazon ElasticCompute Cloud User Guide for Linux/.+-- For more information about key pairs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ec2-key-pairs.html Key Pairs> in the /Amazon ElasticCompute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportKeyPair.html> module Network.AWS.EC2.ImportKeyPair@@ -81,6 +81,9 @@     , _ikpDryRun            = Nothing     } +-- | 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'. ikpDryRun :: Lens' ImportKeyPair (Maybe Bool) ikpDryRun = lens _ikpDryRun (\s a -> s { _ikpDryRun = a }) 

@@ -0,0 +1,180 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ImportSnapshot+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Imports a disk into an EBS snapshot.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportSnapshot.html>+module Network.AWS.EC2.ImportSnapshot+    (+    -- * Request+      ImportSnapshot+    -- ** Request constructor+    , importSnapshot+    -- ** Request lenses+    , isClientData+    , isClientToken+    , isDescription+    , isDiskContainer+    , isDryRun+    , isRoleName++    -- * Response+    , ImportSnapshotResponse+    -- ** Response constructor+    , importSnapshotResponse+    -- ** Response lenses+    , isrDescription+    , isrImportTaskId+    , isrSnapshotTaskDetail+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ImportSnapshot = ImportSnapshot+    { _isClientData    :: Maybe ClientData+    , _isClientToken   :: Maybe Text+    , _isDescription   :: Maybe Text+    , _isDiskContainer :: Maybe SnapshotDiskContainer+    , _isDryRun        :: Maybe Bool+    , _isRoleName      :: Maybe Text+    } deriving (Eq, Read, Show)++-- | 'ImportSnapshot' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'isClientData' @::@ 'Maybe' 'ClientData'+--+-- * 'isClientToken' @::@ 'Maybe' 'Text'+--+-- * 'isDescription' @::@ 'Maybe' 'Text'+--+-- * 'isDiskContainer' @::@ 'Maybe' 'SnapshotDiskContainer'+--+-- * 'isDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'isRoleName' @::@ 'Maybe' 'Text'+--+importSnapshot :: ImportSnapshot+importSnapshot = ImportSnapshot+    { _isDryRun        = Nothing+    , _isDescription   = Nothing+    , _isDiskContainer = Nothing+    , _isClientData    = Nothing+    , _isClientToken   = Nothing+    , _isRoleName      = Nothing+    }++-- | The client-specific data.+isClientData :: Lens' ImportSnapshot (Maybe ClientData)+isClientData = lens _isClientData (\s a -> s { _isClientData = a })++-- | Token to enable idempotency for VM import requests.+isClientToken :: Lens' ImportSnapshot (Maybe Text)+isClientToken = lens _isClientToken (\s a -> s { _isClientToken = a })++-- | The description string for the import snapshot task.+isDescription :: Lens' ImportSnapshot (Maybe Text)+isDescription = lens _isDescription (\s a -> s { _isDescription = a })++-- | Information about the disk container.+isDiskContainer :: Lens' ImportSnapshot (Maybe SnapshotDiskContainer)+isDiskContainer = lens _isDiskContainer (\s a -> s { _isDiskContainer = 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'.+isDryRun :: Lens' ImportSnapshot (Maybe Bool)+isDryRun = lens _isDryRun (\s a -> s { _isDryRun = a })++-- | The name of the role to use when not using the default role, 'vmimport'.+isRoleName :: Lens' ImportSnapshot (Maybe Text)+isRoleName = lens _isRoleName (\s a -> s { _isRoleName = a })++data ImportSnapshotResponse = ImportSnapshotResponse+    { _isrDescription        :: Maybe Text+    , _isrImportTaskId       :: Maybe Text+    , _isrSnapshotTaskDetail :: Maybe SnapshotTaskDetail+    } deriving (Eq, Read, Show)++-- | 'ImportSnapshotResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'isrDescription' @::@ 'Maybe' 'Text'+--+-- * 'isrImportTaskId' @::@ 'Maybe' 'Text'+--+-- * 'isrSnapshotTaskDetail' @::@ 'Maybe' 'SnapshotTaskDetail'+--+importSnapshotResponse :: ImportSnapshotResponse+importSnapshotResponse = ImportSnapshotResponse+    { _isrImportTaskId       = Nothing+    , _isrSnapshotTaskDetail = Nothing+    , _isrDescription        = Nothing+    }++-- | A description of the import snapshot task.+isrDescription :: Lens' ImportSnapshotResponse (Maybe Text)+isrDescription = lens _isrDescription (\s a -> s { _isrDescription = a })++-- | The ID of the import snapshot task.+isrImportTaskId :: Lens' ImportSnapshotResponse (Maybe Text)+isrImportTaskId = lens _isrImportTaskId (\s a -> s { _isrImportTaskId = a })++-- | Information about the import snapshot task.+isrSnapshotTaskDetail :: Lens' ImportSnapshotResponse (Maybe SnapshotTaskDetail)+isrSnapshotTaskDetail =+    lens _isrSnapshotTaskDetail (\s a -> s { _isrSnapshotTaskDetail = a })++instance ToPath ImportSnapshot where+    toPath = const "/"++instance ToQuery ImportSnapshot where+    toQuery ImportSnapshot{..} = mconcat+        [ "ClientData"    =? _isClientData+        , "ClientToken"   =? _isClientToken+        , "Description"   =? _isDescription+        , "DiskContainer" =? _isDiskContainer+        , "DryRun"        =? _isDryRun+        , "RoleName"      =? _isRoleName+        ]++instance ToHeaders ImportSnapshot++instance AWSRequest ImportSnapshot where+    type Sv ImportSnapshot = EC2+    type Rs ImportSnapshot = ImportSnapshotResponse++    request  = post "ImportSnapshot"+    response = xmlResponse++instance FromXML ImportSnapshotResponse where+    parseXML x = ImportSnapshotResponse+        <$> x .@? "description"+        <*> x .@? "importTaskId"+        <*> x .@? "snapshotTaskDetail"

@@ -25,7 +25,7 @@ -- | 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 Machineto Amazon EC2> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/UploadingYourInstancesandVolumes.html Using the Command Line Tools to Import Your Virtual Machineto Amazon EC2> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ImportVolume.html> module Network.AWS.EC2.ImportVolume@@ -88,21 +88,26 @@     , _ivDescription      = Nothing     } --- | The Availability Zone for the resulting Amazon EBS volume.+-- | The Availability Zone for the resulting EBS volume. ivAvailabilityZone :: Lens' ImportVolume Text ivAvailabilityZone =     lens _ivAvailabilityZone (\s a -> s { _ivAvailabilityZone = a }) --- | An optional description for the volume being imported.+-- | A description of the volume. ivDescription :: Lens' ImportVolume (Maybe Text) ivDescription = lens _ivDescription (\s a -> s { _ivDescription = 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'. ivDryRun :: Lens' ImportVolume (Maybe Bool) ivDryRun = lens _ivDryRun (\s a -> s { _ivDryRun = a }) +-- | The disk image. ivImage :: Lens' ImportVolume DiskImageDetail ivImage = lens _ivImage (\s a -> s { _ivImage = a }) +-- | The volume size. ivVolume :: Lens' ImportVolume VolumeDetail ivVolume = lens _ivVolume (\s a -> s { _ivVolume = a }) @@ -121,6 +126,7 @@     { _ivrConversionTask = Nothing     } +-- | Information about the conversion task. ivrConversionTask :: Lens' ImportVolumeResponse (Maybe ConversionTask) ivrConversionTask =     lens _ivrConversionTask (\s a -> s { _ivrConversionTask = a })

@@ -119,6 +119,9 @@ miaDescription :: Lens' ModifyImageAttribute (Maybe AttributeValue) miaDescription = lens _miaDescription (\s a -> s { _miaDescription = 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'. miaDryRun :: Lens' ModifyImageAttribute (Maybe Bool) miaDryRun = lens _miaDryRun (\s a -> s { _miaDryRun = a }) 

@@ -26,7 +26,7 @@ -- only one attribute at a time. -- -- To modify some attributes, the instance must be stopped. For more--- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_ChangingAttributesWhileInstanceStopped.html Modifying Attributes of a Stopped Instance> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_ChangingAttributesWhileInstanceStopped.html Modifying Attributes of a Stopped Instance> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyInstanceAttribute.html> module Network.AWS.EC2.ModifyInstanceAttribute@@ -145,7 +145,7 @@ -- the instance is terminated. -- -- To add instance store volumes to an Amazon EBS-backed instance, you must add--- them when you launch the instance. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/block-device-mapping-concepts.html#Using_OverridingAMIBDM Updating theBlock Device Mapping when Launching an Instance> in the /Amazon Elastic ComputeCloud User Guide for Linux/.+-- them when you launch the instance. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/block-device-mapping-concepts.html#Using_OverridingAMIBDM Updating theBlock Device Mapping when Launching an Instance> in the /Amazon Elastic ComputeCloud User Guide/. mia1BlockDeviceMappings :: Lens' ModifyInstanceAttribute [InstanceBlockDeviceMappingSpecification] mia1BlockDeviceMappings =     lens _mia1BlockDeviceMappings (\s a -> s { _mia1BlockDeviceMappings = a })@@ -158,6 +158,9 @@     lens _mia1DisableApiTermination         (\s a -> s { _mia1DisableApiTermination = 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'. mia1DryRun :: Lens' ModifyInstanceAttribute (Maybe Bool) mia1DryRun = lens _mia1DryRun (\s a -> s { _mia1DryRun = a }) 

@@ -96,6 +96,9 @@ mniaDescription :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeValue) mniaDescription = lens _mniaDescription (\s a -> s { _mniaDescription = 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'. mniaDryRun :: Lens' ModifyNetworkInterfaceAttribute (Maybe Bool) mniaDryRun = lens _mniaDryRun (\s a -> s { _mniaDryRun = a }) 

@@ -28,7 +28,7 @@ -- network platform, and instance type. -- -- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-modifying.html Modifying Reserved Instances> in the Amazon Elastic--- Compute Cloud User Guide for Linux.+-- Compute Cloud User Guide. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyReservedInstances.html> module Network.AWS.EC2.ModifyReservedInstances

@@ -28,7 +28,7 @@ -- 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 for Linux/.+-- in the /Amazon Elastic Compute Cloud User Guide/. -- -- Snapshots with AWS Marketplace product codes cannot be made public. --@@ -111,6 +111,9 @@     lens _msaCreateVolumePermission         (\s a -> s { _msaCreateVolumePermission = 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'. msaDryRun :: Lens' ModifySnapshotAttribute (Maybe Bool) msaDryRun = lens _msaDryRun (\s a -> s { _msaDryRun = a }) 

@@ -85,6 +85,9 @@ mvaAutoEnableIO :: Lens' ModifyVolumeAttribute (Maybe AttributeBooleanValue) mvaAutoEnableIO = lens _mvaAutoEnableIO (\s a -> s { _mvaAutoEnableIO = 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'. mvaDryRun :: Lens' ModifyVolumeAttribute (Maybe Bool) mvaDryRun = lens _mvaDryRun (\s a -> s { _mvaDryRun = a }) 

@@ -0,0 +1,169 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.ModifyVpcEndpoint+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Modifies attributes of a specified VPC endpoint. You can modify the policy+-- associated with the endpoint, and you can add and remove route tables+-- associated with the endpoint.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-ModifyVpcEndpoint.html>+module Network.AWS.EC2.ModifyVpcEndpoint+    (+    -- * Request+      ModifyVpcEndpoint+    -- ** Request constructor+    , modifyVpcEndpoint+    -- ** Request lenses+    , mveAddRouteTableIds+    , mveDryRun+    , mvePolicyDocument+    , mveRemoveRouteTableIds+    , mveResetPolicy+    , mveVpcEndpointId++    -- * Response+    , ModifyVpcEndpointResponse+    -- ** Response constructor+    , modifyVpcEndpointResponse+    -- ** Response lenses+    , mverReturn+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data ModifyVpcEndpoint = ModifyVpcEndpoint+    { _mveAddRouteTableIds    :: List "item" Text+    , _mveDryRun              :: Maybe Bool+    , _mvePolicyDocument      :: Maybe Text+    , _mveRemoveRouteTableIds :: List "item" Text+    , _mveResetPolicy         :: Maybe Bool+    , _mveVpcEndpointId       :: Text+    } deriving (Eq, Ord, Read, Show)++-- | 'ModifyVpcEndpoint' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mveAddRouteTableIds' @::@ ['Text']+--+-- * 'mveDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'mvePolicyDocument' @::@ 'Maybe' 'Text'+--+-- * 'mveRemoveRouteTableIds' @::@ ['Text']+--+-- * 'mveResetPolicy' @::@ 'Maybe' 'Bool'+--+-- * 'mveVpcEndpointId' @::@ 'Text'+--+modifyVpcEndpoint :: Text -- ^ 'mveVpcEndpointId'+                  -> ModifyVpcEndpoint+modifyVpcEndpoint p1 = ModifyVpcEndpoint+    { _mveVpcEndpointId       = p1+    , _mveDryRun              = Nothing+    , _mveResetPolicy         = Nothing+    , _mvePolicyDocument      = Nothing+    , _mveAddRouteTableIds    = mempty+    , _mveRemoveRouteTableIds = mempty+    }++-- | One or more route tables IDs to associate with the endpoint.+mveAddRouteTableIds :: Lens' ModifyVpcEndpoint [Text]+mveAddRouteTableIds =+    lens _mveAddRouteTableIds (\s a -> s { _mveAddRouteTableIds = a })+        . _List++-- | 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'.+mveDryRun :: Lens' ModifyVpcEndpoint (Maybe Bool)+mveDryRun = lens _mveDryRun (\s a -> s { _mveDryRun = a })++-- | A policy document to attach to the endpoint. The policy must be in valid JSON+-- format.+mvePolicyDocument :: Lens' ModifyVpcEndpoint (Maybe Text)+mvePolicyDocument =+    lens _mvePolicyDocument (\s a -> s { _mvePolicyDocument = a })++-- | One or more route table IDs to disassociate from the endpoint.+mveRemoveRouteTableIds :: Lens' ModifyVpcEndpoint [Text]+mveRemoveRouteTableIds =+    lens _mveRemoveRouteTableIds (\s a -> s { _mveRemoveRouteTableIds = a })+        . _List++-- | Specify 'true' to reset the policy document to the default policy. The default+-- policy allows access to the service.+mveResetPolicy :: Lens' ModifyVpcEndpoint (Maybe Bool)+mveResetPolicy = lens _mveResetPolicy (\s a -> s { _mveResetPolicy = a })++-- | The ID of the endpoint.+mveVpcEndpointId :: Lens' ModifyVpcEndpoint Text+mveVpcEndpointId = lens _mveVpcEndpointId (\s a -> s { _mveVpcEndpointId = a })++newtype ModifyVpcEndpointResponse = ModifyVpcEndpointResponse+    { _mverReturn :: Maybe Bool+    } deriving (Eq, Ord, Read, Show)++-- | 'ModifyVpcEndpointResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'mverReturn' @::@ 'Maybe' 'Bool'+--+modifyVpcEndpointResponse :: ModifyVpcEndpointResponse+modifyVpcEndpointResponse = ModifyVpcEndpointResponse+    { _mverReturn = Nothing+    }++-- | Returns 'true' if the request succeeds; otherwise, it returns an error.+mverReturn :: Lens' ModifyVpcEndpointResponse (Maybe Bool)+mverReturn = lens _mverReturn (\s a -> s { _mverReturn = a })++instance ToPath ModifyVpcEndpoint where+    toPath = const "/"++instance ToQuery ModifyVpcEndpoint where+    toQuery ModifyVpcEndpoint{..} = mconcat+        [ "AddRouteTableId"    `toQueryList` _mveAddRouteTableIds+        , "DryRun"             =? _mveDryRun+        , "PolicyDocument"     =? _mvePolicyDocument+        , "RemoveRouteTableId" `toQueryList` _mveRemoveRouteTableIds+        , "ResetPolicy"        =? _mveResetPolicy+        , "VpcEndpointId"      =? _mveVpcEndpointId+        ]++instance ToHeaders ModifyVpcEndpoint++instance AWSRequest ModifyVpcEndpoint where+    type Sv ModifyVpcEndpoint = EC2+    type Rs ModifyVpcEndpoint = ModifyVpcEndpointResponse++    request  = post "ModifyVpcEndpoint"+    response = xmlResponse++instance FromXML ModifyVpcEndpointResponse where+    parseXML x = ModifyVpcEndpointResponse+        <$> x .@? "return"

@@ -23,7 +23,7 @@ -- Derived from AWS service descriptions, licensed under Apache 2.0.  -- | Enables monitoring for a running instance. For more information about--- monitoring instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-cloudwatch.html Monitoring Your Instances and Volumes> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- monitoring instances, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/using-cloudwatch.html Monitoring Your Instances and Volumes> in the /AmazonElastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-MonitorInstances.html> module Network.AWS.EC2.MonitorInstances@@ -68,6 +68,9 @@     , _miInstanceIds = mempty     } +-- | 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'. miDryRun :: Lens' MonitorInstances (Maybe Bool) miDryRun = lens _miDryRun (\s a -> s { _miDryRun = a }) 

@@ -0,0 +1,137 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.MoveAddressToVpc+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | 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, 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's allocated for use in the EC2-VPC platform to the+-- EC2-Classic platform.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-MoveAddressToVpc.html>+module Network.AWS.EC2.MoveAddressToVpc+    (+    -- * Request+      MoveAddressToVpc+    -- ** Request constructor+    , moveAddressToVpc+    -- ** Request lenses+    , matvDryRun+    , matvPublicIp++    -- * Response+    , MoveAddressToVpcResponse+    -- ** Response constructor+    , moveAddressToVpcResponse+    -- ** Response lenses+    , matvrAllocationId+    , matvrStatus+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data MoveAddressToVpc = MoveAddressToVpc+    { _matvDryRun   :: Maybe Bool+    , _matvPublicIp :: Text+    } deriving (Eq, Ord, Read, Show)++-- | 'MoveAddressToVpc' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'matvDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'matvPublicIp' @::@ 'Text'+--+moveAddressToVpc :: Text -- ^ 'matvPublicIp'+                 -> MoveAddressToVpc+moveAddressToVpc p1 = MoveAddressToVpc+    { _matvPublicIp = p1+    , _matvDryRun   = Nothing+    }++-- | 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'.+matvDryRun :: Lens' MoveAddressToVpc (Maybe Bool)+matvDryRun = lens _matvDryRun (\s a -> s { _matvDryRun = a })++-- | The Elastic IP address.+matvPublicIp :: Lens' MoveAddressToVpc Text+matvPublicIp = lens _matvPublicIp (\s a -> s { _matvPublicIp = a })++data MoveAddressToVpcResponse = MoveAddressToVpcResponse+    { _matvrAllocationId :: Maybe Text+    , _matvrStatus       :: Maybe AddressStatus+    } deriving (Eq, Read, Show)++-- | 'MoveAddressToVpcResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'matvrAllocationId' @::@ 'Maybe' 'Text'+--+-- * 'matvrStatus' @::@ 'Maybe' 'AddressStatus'+--+moveAddressToVpcResponse :: MoveAddressToVpcResponse+moveAddressToVpcResponse = MoveAddressToVpcResponse+    { _matvrAllocationId = Nothing+    , _matvrStatus       = Nothing+    }++-- | The allocation ID for the Elastic IP address.+matvrAllocationId :: Lens' MoveAddressToVpcResponse (Maybe Text)+matvrAllocationId =+    lens _matvrAllocationId (\s a -> s { _matvrAllocationId = a })++-- | The status of the move of the IP address.+matvrStatus :: Lens' MoveAddressToVpcResponse (Maybe AddressStatus)+matvrStatus = lens _matvrStatus (\s a -> s { _matvrStatus = a })++instance ToPath MoveAddressToVpc where+    toPath = const "/"++instance ToQuery MoveAddressToVpc where+    toQuery MoveAddressToVpc{..} = mconcat+        [ "DryRun"   =? _matvDryRun+        , "PublicIp" =? _matvPublicIp+        ]++instance ToHeaders MoveAddressToVpc++instance AWSRequest MoveAddressToVpc where+    type Sv MoveAddressToVpc = EC2+    type Rs MoveAddressToVpc = MoveAddressToVpcResponse++    request  = post "MoveAddressToVpc"+    response = xmlResponse++instance FromXML MoveAddressToVpcResponse where+    parseXML x = MoveAddressToVpcResponse+        <$> x .@? "allocationId"+        <*> x .@? "status"

@@ -32,7 +32,7 @@ -- offerings that match your specifications. After you've purchased a Reserved -- Instance, you can check for your new Reserved Instance with 'DescribeReservedInstances'. ----- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/concepts-on-demand-reserved-instances.html Reserved Instances> and <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved InstanceMarketplace> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/concepts-on-demand-reserved-instances.html Reserved Instances> and <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/ri-market-general.html Reserved InstanceMarketplace> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-PurchaseReservedInstancesOffering.html> module Network.AWS.EC2.PurchaseReservedInstancesOffering@@ -89,6 +89,9 @@     , _prioLimitPrice                  = Nothing     } +-- | 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'. prioDryRun :: Lens' PurchaseReservedInstancesOffering (Maybe Bool) prioDryRun = lens _prioDryRun (\s a -> s { _prioDryRun = a }) 

@@ -30,7 +30,7 @@ -- If a Linux/Unix instance does not cleanly shut down within four minutes, -- Amazon EC2 performs a hard reboot. ----- For more information about troubleshooting, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-console.html Getting Console Output andRebooting Instances> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- For more information about troubleshooting, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/instance-console.html Getting Console Output andRebooting Instances> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RebootInstances.html> module Network.AWS.EC2.RebootInstances@@ -73,6 +73,9 @@     , _ri2InstanceIds = mempty     } +-- | 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'. ri2DryRun :: Lens' RebootInstances (Maybe Bool) ri2DryRun = lens _ri2DryRun (\s a -> s { _ri2DryRun = a }) 

@@ -24,13 +24,13 @@  -- | Registers an AMI. When you're creating an AMI, this is the final step you -- must complete before you can launch an instance from the AMI. For more--- information about creating AMIs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/creating-an-ami.html Creating Your Own AMIs> in the /AmazonElastic Compute Cloud User Guide for Linux/.+-- information about creating AMIs, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/creating-an-ami.html Creating Your Own AMIs> in the /AmazonElastic Compute Cloud User Guide/. -- -- For Amazon EBS-backed instances, 'CreateImage' creates and registers the AMI -- in a single request, so you don't have to register the AMI yourself. -- -- You can also use 'RegisterImage' to create an Amazon EBS-backed AMI from a--- snapshot of a root device volume. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_LaunchingInstanceFromSnapshot.html Launching anInstance from a Snapshot> in the /Amazon Elastic Compute Cloud User Guide forLinux/.+-- snapshot of a root device volume. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/Using_LaunchingInstanceFromSnapshot.html Launching anInstance from a Snapshot> in the /Amazon Elastic Compute Cloud User Guide/. -- -- If needed, you can deregister an AMI at any time. Any modifications you make -- to an AMI backed by an instance store volume invalidates its registration. If@@ -147,6 +147,9 @@ ri1Description :: Lens' RegisterImage (Maybe Text) ri1Description = lens _ri1Description (\s a -> s { _ri1Description = 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'. ri1DryRun :: Lens' RegisterImage (Maybe Bool) ri1DryRun = lens _ri1DryRun (\s a -> s { _ri1DryRun = a }) 

@@ -72,6 +72,9 @@     , _rvpcDryRun                 = Nothing     } +-- | 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'. rvpcDryRun :: Lens' RejectVpcPeeringConnection (Maybe Bool) rvpcDryRun = lens _rvpcDryRun (\s a -> s { _rvpcDryRun = a }) 

@@ -87,6 +87,9 @@ raAllocationId :: Lens' ReleaseAddress (Maybe Text) raAllocationId = lens _raAllocationId (\s a -> s { _raAllocationId = 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'. raDryRun :: Lens' ReleaseAddress (Maybe Bool) raDryRun = lens _raDryRun (\s a -> s { _raDryRun = a }) 

@@ -82,6 +82,9 @@ rnaaAssociationId =     lens _rnaaAssociationId (\s a -> s { _rnaaAssociationId = 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'. rnaaDryRun :: Lens' ReplaceNetworkAclAssociation (Maybe Bool) rnaaDryRun = lens _rnaaDryRun (\s a -> s { _rnaaDryRun = a }) 

@@ -111,6 +111,9 @@ rnaeCidrBlock :: Lens' ReplaceNetworkAclEntry Text rnaeCidrBlock = lens _rnaeCidrBlock (\s a -> s { _rnaeCidrBlock = 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'. rnaeDryRun :: Lens' ReplaceNetworkAclEntry (Maybe Bool) rnaeDryRun = lens _rnaeDryRun (\s a -> s { _rnaeDryRun = a }) 

@@ -102,6 +102,9 @@ rrDestinationCidrBlock =     lens _rrDestinationCidrBlock (\s a -> s { _rrDestinationCidrBlock = 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'. rrDryRun :: Lens' ReplaceRoute (Maybe Bool) rrDryRun = lens _rrDryRun (\s a -> s { _rrDryRun = a }) 

@@ -86,6 +86,9 @@ rrtaAssociationId =     lens _rrtaAssociationId (\s a -> s { _rrtaAssociationId = 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'. rrtaDryRun :: Lens' ReplaceRouteTableAssociation (Maybe Bool) rrtaDryRun = lens _rrtaDryRun (\s a -> s { _rrtaDryRun = a }) 

@@ -100,6 +100,9 @@ risDescription :: Lens' ReportInstanceStatus (Maybe Text) risDescription = lens _risDescription (\s a -> s { _risDescription = 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'. risDryRun :: Lens' ReportInstanceStatus (Maybe Bool) risDryRun = lens _risDryRun (\s a -> s { _risDryRun = a }) 

@@ -0,0 +1,126 @@+{-# LANGUAGE DataKinds                   #-}+{-# LANGUAGE DeriveGeneric               #-}+{-# LANGUAGE FlexibleInstances           #-}+{-# LANGUAGE GeneralizedNewtypeDeriving  #-}+{-# LANGUAGE LambdaCase                  #-}+{-# LANGUAGE NoImplicitPrelude           #-}+{-# LANGUAGE OverloadedStrings           #-}+{-# LANGUAGE RecordWildCards             #-}+{-# LANGUAGE TypeFamilies                #-}++{-# OPTIONS_GHC -fno-warn-unused-imports #-}++-- Module      : Network.AWS.EC2.RequestSpotFleet+-- Copyright   : (c) 2013-2014 Brendan Hay <brendan.g.hay@gmail.com>+-- License     : This Source Code Form is subject to the terms of+--               the Mozilla Public License, v. 2.0.+--               A copy of the MPL can be found in the LICENSE file or+--               you can obtain it at http://mozilla.org/MPL/2.0/.+-- Maintainer  : Brendan Hay <brendan.g.hay@gmail.com>+-- Stability   : experimental+-- Portability : non-portable (GHC extensions)+--+-- Derived from AWS service descriptions, licensed under Apache 2.0.++-- | Creates a Spot fleet request.+--+-- For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-fleet.html Spot Fleets> in the /Amazon Elastic Compute CloudUser Guide/.+--+-- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RequestSpotFleet.html>+module Network.AWS.EC2.RequestSpotFleet+    (+    -- * Request+      RequestSpotFleet+    -- ** Request constructor+    , requestSpotFleet+    -- ** Request lenses+    , rsfDryRun+    , rsfSpotFleetRequestConfig++    -- * Response+    , RequestSpotFleetResponse+    -- ** Response constructor+    , requestSpotFleetResponse+    -- ** Response lenses+    , rsfrSpotFleetRequestId+    ) where++import Network.AWS.Prelude+import Network.AWS.Request.Query+import Network.AWS.EC2.Types+import qualified GHC.Exts++data RequestSpotFleet = RequestSpotFleet+    { _rsfDryRun                 :: Maybe Bool+    , _rsfSpotFleetRequestConfig :: SpotFleetRequestConfigData+    } deriving (Eq, Read, Show)++-- | 'RequestSpotFleet' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rsfDryRun' @::@ 'Maybe' 'Bool'+--+-- * 'rsfSpotFleetRequestConfig' @::@ 'SpotFleetRequestConfigData'+--+requestSpotFleet :: SpotFleetRequestConfigData -- ^ 'rsfSpotFleetRequestConfig'+                 -> RequestSpotFleet+requestSpotFleet p1 = RequestSpotFleet+    { _rsfSpotFleetRequestConfig = p1+    , _rsfDryRun                 = Nothing+    }++-- | 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'.+rsfDryRun :: Lens' RequestSpotFleet (Maybe Bool)+rsfDryRun = lens _rsfDryRun (\s a -> s { _rsfDryRun = a })++-- | The configuration for the Spot fleet request.+rsfSpotFleetRequestConfig :: Lens' RequestSpotFleet SpotFleetRequestConfigData+rsfSpotFleetRequestConfig =+    lens _rsfSpotFleetRequestConfig+        (\s a -> s { _rsfSpotFleetRequestConfig = a })++newtype RequestSpotFleetResponse = RequestSpotFleetResponse+    { _rsfrSpotFleetRequestId :: Text+    } deriving (Eq, Ord, Read, Show, Monoid, IsString)++-- | 'RequestSpotFleetResponse' constructor.+--+-- The fields accessible through corresponding lenses are:+--+-- * 'rsfrSpotFleetRequestId' @::@ 'Text'+--+requestSpotFleetResponse :: Text -- ^ 'rsfrSpotFleetRequestId'+                         -> RequestSpotFleetResponse+requestSpotFleetResponse p1 = RequestSpotFleetResponse+    { _rsfrSpotFleetRequestId = p1+    }++-- | The ID of the Spot fleet request.+rsfrSpotFleetRequestId :: Lens' RequestSpotFleetResponse Text+rsfrSpotFleetRequestId =+    lens _rsfrSpotFleetRequestId (\s a -> s { _rsfrSpotFleetRequestId = a })++instance ToPath RequestSpotFleet where+    toPath = const "/"++instance ToQuery RequestSpotFleet where+    toQuery RequestSpotFleet{..} = mconcat+        [ "DryRun"                 =? _rsfDryRun+        , "SpotFleetRequestConfig" =? _rsfSpotFleetRequestConfig+        ]++instance ToHeaders RequestSpotFleet++instance AWSRequest RequestSpotFleet where+    type Sv RequestSpotFleet = EC2+    type Rs RequestSpotFleet = RequestSpotFleetResponse++    request  = post "RequestSpotFleet"+    response = xmlResponse++instance FromXML RequestSpotFleetResponse where+    parseXML x = RequestSpotFleetResponse+        <$> x .@  "spotFleetRequestId"

@@ -25,7 +25,7 @@ -- | Creates a Spot Instance request. Spot Instances are instances that Amazon EC2 -- launches when the bid price that you specify exceeds the current Spot Price. -- Amazon EC2 periodically sets the Spot Price based on available Spot Instance--- capacity and current Spot Instance requests. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-requests.html SpotInstance Requests> in the /Amazon Elastic Compute Cloud User Guide for Linux/.+-- capacity and current Spot Instance requests. For more information, see <http://docs.aws.amazon.com/AWSEC2/latest/UserGuide/spot-requests.html SpotInstance Requests> in the /Amazon Elastic Compute Cloud User Guide/. -- -- <http://docs.aws.amazon.com/AWSEC2/latest/APIReference/ApiReference-query-RequestSpotInstances.html> module Network.AWS.EC2.RequestSpotInstances@@ -36,6 +36,7 @@     , requestSpotInstances     -- ** Request lenses     , rsiAvailabilityZoneGroup+    , rsiClientToken     , rsiDryRun     , rsiInstanceCount     , rsiLaunchGroup@@ -60,6 +61,7 @@  data RequestSpotInstances = RequestSpotInstances     { _rsiAvailabilityZoneGroup :: Maybe Text+    , _rsiClientToken           :: Maybe Text     , _rsiDryRun                :: Maybe Bool     , _rsiInstanceCount         :: Maybe Int     , _rsiLaunchGroup           :: Maybe Text@@ -76,6 +78,8 @@ -- -- * 'rsiAvailabilityZoneGroup' @::@ 'Maybe' 'Text' --+-- * 'rsiClientToken' @::@ 'Maybe' 'Text'+-- -- * 'rsiDryRun' @::@ 'Maybe' 'Bool' -- -- * 'rsiInstanceCount' @::@ 'Maybe' 'Int'@@ -97,6 +101,7 @@ requestSpotInstances p1 = RequestSpotInstances     { _rsiSpotPrice             = p1     , _rsiDryRun                = Nothing+    , _rsiClientToken           = Nothing     , _rsiInstanceCount         = Nothing     , _rsiType                  = Nothing     , _rsiValidFrom             = Nothing@@ -131,6 +136,14 @@     lens _rsiAvailabilityZoneGroup         (\s a -> s { _rsiAvailabilityZoneGroup = a }) +-- | Unique, case-sensitive identifier that you provide to ensure the 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/.+rsiClientToken :: Lens' RequestSpotInstances (Maybe Text)+rsiClientToken = lens _rsiClientToken (\s a -> s { _rsiClientToken = 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'. rsiDryRun :: Lens' RequestSpotInstances (Maybe Bool) rsiDryRun = lens _rsiDryRun (\s a -> s { _rsiDryRun = a }) @@ -209,6 +222,7 @@ instance ToQuery RequestSpotInstances where     toQuery RequestSpotInstances{..} = mconcat         [ "AvailabilityZoneGroup" =? _rsiAvailabilityZoneGroup+        , "ClientToken"           =? _rsiClientToken         , "DryRun"                =? _rsiDryRun         , "InstanceCount"         =? _rsiInstanceCount         , "LaunchGroup"           =? _rsiLaunchGroup