diff --git a/LICENSE b/LICENSE --- a/LICENSE +++ b/LICENSE @@ -365,9 +365,3 @@ for such a notice. You may add additional accurate notices of copyright ownership. - -Exhibit B - "Incompatible With Secondary Licenses" Notice ---------------------------------------------------------- - - This Source Code Form is "Incompatible With Secondary Licenses", as - defined by the Mozilla Public License, v. 2.0. diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.3.2` +`1.3.3` ## Description diff --git a/amazonka-ec2.cabal b/amazonka-ec2.cabal --- a/amazonka-ec2.cabal +++ b/amazonka-ec2.cabal @@ -1,5 +1,5 @@ name: amazonka-ec2 -version: 1.3.2 +version: 1.3.3 synopsis: Amazon Elastic Compute Cloud SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -197,6 +197,7 @@ , Network.AWS.EC2.ModifyNetworkInterfaceAttribute , Network.AWS.EC2.ModifyReservedInstances , Network.AWS.EC2.ModifySnapshotAttribute + , Network.AWS.EC2.ModifySpotFleetRequest , Network.AWS.EC2.ModifySubnetAttribute , Network.AWS.EC2.ModifyVPCAttribute , Network.AWS.EC2.ModifyVPCEndpoint @@ -236,7 +237,7 @@ , Network.AWS.EC2.Types.Sum build-depends: - amazonka-core == 1.3.2.* + amazonka-core == 1.3.3.* , base >= 4.7 && < 5 test-suite amazonka-ec2-test @@ -256,9 +257,9 @@ , Test.AWS.EC2.Internal build-depends: - amazonka-core == 1.3.2.* - , amazonka-test == 1.3.2.* - , amazonka-ec2 == 1.3.2.* + amazonka-core == 1.3.3.* + , amazonka-test == 1.3.3.* + , amazonka-ec2 == 1.3.3.* , base , bytestring , lens diff --git a/fixture/CopySnapshot.yaml b/fixture/CopySnapshot.yaml --- a/fixture/CopySnapshot.yaml +++ b/fixture/CopySnapshot.yaml @@ -1,10 +1,10 @@ --- method: POST headers: - Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=e621369ae218882689c2913155ab7b8a7bcc83d22c2970f68566729e49f6ebbb + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=e5bf40eb013cc315fd1082dea1ffa9d46e6eeea59dcf260dcbec18ef8a229e67 Host: ec2.us-east-1.amazonaws.com Content-Type: application/x-www-form-urlencoded; charset=utf-8 - X-Amz-Content-SHA256: f86f1bedddd8ce442b987eff0b4d2144bd04df54b6c2b4e057684e83cb3a7018 + X-Amz-Content-SHA256: 1a58190ece713714bc47cc72c5cc20ded47dfe2824e1c73cf3fe68f5824f8dd4 X-Amz-Date: 20091028T223200Z body: - Action=CopySnapshot&Description=My_snapshot&SourceRegion=us-west-1&SourceSnapshotId=snap-1a2b3c4d&Version=2015-04-15 + Action=CopySnapshot&Description=My_snapshot&SourceRegion=us-west-1&SourceSnapshotId=snap-1a2b3c4d&Version=2015-10-01 diff --git a/fixture/DescribeImages.yaml b/fixture/DescribeImages.yaml --- a/fixture/DescribeImages.yaml +++ b/fixture/DescribeImages.yaml @@ -1,10 +1,10 @@ --- method: POST headers: - Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=703971f74f0e6477389f0f0573ffca8f6cc149858b3e64a5ad7b1e68234c3b53 + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=ebaff8e1ce437ed31de2059b4f38524aab94d158b2739a0c3d751e5b9ae022ea Host: ec2.us-east-1.amazonaws.com Content-Type: application/x-www-form-urlencoded; charset=utf-8 - X-Amz-Content-SHA256: 856e4442dce881de9a90f3b5f6d2c7984d9756b8285e0eb558af0c0ed25ab8c7 + X-Amz-Content-SHA256: 43769959351330e944b6850bb27670a87dfcc6081765215c80a608a67793073c X-Amz-Date: 20091028T223200Z body: - Action=DescribeImages&Filter.1.Name=is-public&Filter.1.Value.1=true&Filter.2.Name=architecture&Filter.2.Value.1=x86_64&Filter.3.Name=platform&Filter.3.Value.1=windows&Version=2015-04-15 + Action=DescribeImages&Filter.1.Name=is-public&Filter.1.Value.1=true&Filter.2.Name=architecture&Filter.2.Value.1=x86_64&Filter.3.Name=platform&Filter.3.Value.1=windows&Version=2015-10-01 diff --git a/fixture/DescribeInstances.yaml b/fixture/DescribeInstances.yaml --- a/fixture/DescribeInstances.yaml +++ b/fixture/DescribeInstances.yaml @@ -1,10 +1,10 @@ --- method: POST headers: - Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=6730e35cdeff701e23e24d34983edcf52a7a324959100c8d2bcd7d1f9fd7d294 + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=475f54403cd083ff13fd7ba62954a5af97c7d706246c4da9631af8ca6ff763b8 Host: ec2.us-east-1.amazonaws.com Content-Type: application/x-www-form-urlencoded; charset=utf-8 - X-Amz-Content-SHA256: 8e74c3199fabb3f6708fdc25b3b741ca62cd0301c97ce69a06a1bd9df4a75ba5 + X-Amz-Content-SHA256: 8446b307aaad90c0400a32a0e0f4d7839726c86af985d3284f5e9ee1c041c4ba X-Amz-Date: 20091028T223200Z body: - Action=DescribeInstances&Filter.1.Name=instance-type&Filter.1.Value.1=m1.small&Filter.1.Value.2=m1.large&Filter.2.Name=block-device-mapping.status&Filter.2.Value.1=attached&InstanceId.1=i-foo&InstanceId.2=i-bar&InstanceId.3=i-baz&Version=2015-04-15 + Action=DescribeInstances&Filter.1.Name=instance-type&Filter.1.Value.1=m1.small&Filter.1.Value.2=m1.large&Filter.2.Name=block-device-mapping.status&Filter.2.Value.1=attached&InstanceId.1=i-foo&InstanceId.2=i-bar&InstanceId.3=i-baz&Version=2015-10-01 diff --git a/fixture/DescribeInstancesResponse.proto b/fixture/DescribeInstancesResponse.proto --- a/fixture/DescribeInstancesResponse.proto +++ b/fixture/DescribeInstancesResponse.proto @@ -1,4 +1,4 @@ - + fdcdcab1-ae5c-489e-9c33-4637c5dda355 diff --git a/fixture/DescribeVolumes.yaml b/fixture/DescribeVolumes.yaml --- a/fixture/DescribeVolumes.yaml +++ b/fixture/DescribeVolumes.yaml @@ -1,10 +1,10 @@ --- method: POST headers: - Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=4d4feec12db89156943c54efc553c0eaaf0f0b338d6d3563e554ef2404d8c487 + Authorization: AWS4-HMAC-SHA256 Credential=access/20091028/us-east-1/ec2/aws4_request, SignedHeaders=content-type;host;x-amz-content-sha256;x-amz-date, Signature=e118d8ebf72e54043d55c94cde8d59d7d76140337733c9105ae0fa39c45b45ee Host: ec2.us-east-1.amazonaws.com Content-Type: application/x-www-form-urlencoded; charset=utf-8 - X-Amz-Content-SHA256: cb99638689d7058ba63f04955b5f4037c9391699863d0bf007b5f802cd0e0036 + X-Amz-Content-SHA256: a98743a8daba897037142a2229e0db501af78d6ab080f2ddf7acdeeff5fc5bca X-Amz-Date: 20091028T223200Z body: - Action=DescribeVolumes&Filter.1.Name=tag%3AName&Filter.1.Value.1=octopus&Filter.2.Name=tag%3ARole&Filter.2.Value.1=database&Filter.2.Value.2=server&Version=2015-04-15&VolumeId.1=foo&VolumeId.2=bar&VolumeId.3=baz + Action=DescribeVolumes&Filter.1.Name=tag%3AName&Filter.1.Value.1=octopus&Filter.2.Name=tag%3ARole&Filter.2.Value.1=database&Filter.2.Value.2=server&Version=2015-10-01&VolumeId.1=foo&VolumeId.2=bar&VolumeId.3=baz diff --git a/fixture/ModifySpotFleetRequest.yaml b/fixture/ModifySpotFleetRequest.yaml new file mode 100644 --- /dev/null +++ b/fixture/ModifySpotFleetRequest.yaml diff --git a/fixture/ModifySpotFleetRequestResponse.proto b/fixture/ModifySpotFleetRequestResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ModifySpotFleetRequestResponse.proto diff --git a/gen/Network/AWS/EC2.hs b/gen/Network/AWS/EC2.hs --- a/gen/Network/AWS/EC2.hs +++ b/gen/Network/AWS/EC2.hs @@ -420,6 +420,9 @@ -- ** DescribeExportTasks , module Network.AWS.EC2.DescribeExportTasks + -- ** ModifySpotFleetRequest + , module Network.AWS.EC2.ModifySpotFleetRequest + -- ** DetachVPNGateway , module Network.AWS.EC2.DetachVPNGateway @@ -710,6 +713,9 @@ -- ** EventType , EventType (..) + -- ** ExcessCapacityTerminationPolicy + , ExcessCapacityTerminationPolicy (..) + -- ** ExportEnvironment , ExportEnvironment (..) @@ -1988,11 +1994,13 @@ , sfrcSpotFleetRequestId , sfrcSpotFleetRequestState , sfrcSpotFleetRequestConfig + , sfrcCreateTime -- ** SpotFleetRequestConfigData , SpotFleetRequestConfigData , spotFleetRequestConfigData , sfrcdClientToken + , sfrcdExcessCapacityTerminationPolicy , sfrcdValidUntil , sfrcdTerminateInstancesWithExpiration , sfrcdValidFrom @@ -2008,6 +2016,8 @@ , sirInstanceId , sirStatus , sirState + , sirActualBlockHourlyPrice + , sirBlockDurationMinutes , sirProductDescription , sirSpotPrice , sirLaunchSpecification @@ -2453,6 +2463,7 @@ import Network.AWS.EC2.ModifyNetworkInterfaceAttribute import Network.AWS.EC2.ModifyReservedInstances import Network.AWS.EC2.ModifySnapshotAttribute +import Network.AWS.EC2.ModifySpotFleetRequest import Network.AWS.EC2.ModifySubnetAttribute import Network.AWS.EC2.ModifyVolumeAttribute import Network.AWS.EC2.ModifyVPCAttribute diff --git a/gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs b/gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs --- a/gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs +++ b/gen/Network/AWS/EC2/AcceptVPCPeeringConnection.hs @@ -102,7 +102,7 @@ = mconcat ["Action" =: ("AcceptVpcPeeringConnection" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "VpcPeeringConnectionId" =: _avpcVPCPeeringConnectionId, "DryRun" =: _avpcDryRun] diff --git a/gen/Network/AWS/EC2/AllocateAddress.hs b/gen/Network/AWS/EC2/AllocateAddress.hs --- a/gen/Network/AWS/EC2/AllocateAddress.hs +++ b/gen/Network/AWS/EC2/AllocateAddress.hs @@ -106,7 +106,7 @@ toQuery AllocateAddress'{..} = mconcat ["Action" =: ("AllocateAddress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Domain" =: _aaDomain, "DryRun" =: _aaDryRun] -- | /See:/ 'allocateAddressResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/AssignPrivateIPAddresses.hs b/gen/Network/AWS/EC2/AssignPrivateIPAddresses.hs --- a/gen/Network/AWS/EC2/AssignPrivateIPAddresses.hs +++ b/gen/Network/AWS/EC2/AssignPrivateIPAddresses.hs @@ -128,7 +128,7 @@ = mconcat ["Action" =: ("AssignPrivateIpAddresses" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "PrivateIpAddress" <$> _apiaPrivateIPAddresses), diff --git a/gen/Network/AWS/EC2/AssociateAddress.hs b/gen/Network/AWS/EC2/AssociateAddress.hs --- a/gen/Network/AWS/EC2/AssociateAddress.hs +++ b/gen/Network/AWS/EC2/AssociateAddress.hs @@ -169,7 +169,7 @@ toQuery AssociateAddress'{..} = mconcat ["Action" =: ("AssociateAddress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "InstanceId" =: _aasInstanceId, "AllocationId" =: _aasAllocationId, "NetworkInterfaceId" =: _aasNetworkInterfaceId, diff --git a/gen/Network/AWS/EC2/AssociateDHCPOptions.hs b/gen/Network/AWS/EC2/AssociateDHCPOptions.hs --- a/gen/Network/AWS/EC2/AssociateDHCPOptions.hs +++ b/gen/Network/AWS/EC2/AssociateDHCPOptions.hs @@ -113,7 +113,7 @@ toQuery AssociateDHCPOptions'{..} = mconcat ["Action" =: ("AssociateDhcpOptions" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _adoDryRun, "DhcpOptionsId" =: _adoDHCPOptionsId, "VpcId" =: _adoVPCId] diff --git a/gen/Network/AWS/EC2/AssociateRouteTable.hs b/gen/Network/AWS/EC2/AssociateRouteTable.hs --- a/gen/Network/AWS/EC2/AssociateRouteTable.hs +++ b/gen/Network/AWS/EC2/AssociateRouteTable.hs @@ -116,7 +116,7 @@ toQuery AssociateRouteTable'{..} = mconcat ["Action" =: ("AssociateRouteTable" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _artDryRun, "SubnetId" =: _artSubnetId, "RouteTableId" =: _artRouteTableId] diff --git a/gen/Network/AWS/EC2/AttachClassicLinkVPC.hs b/gen/Network/AWS/EC2/AttachClassicLinkVPC.hs --- a/gen/Network/AWS/EC2/AttachClassicLinkVPC.hs +++ b/gen/Network/AWS/EC2/AttachClassicLinkVPC.hs @@ -130,7 +130,7 @@ toQuery AttachClassicLinkVPC'{..} = mconcat ["Action" =: ("AttachClassicLinkVpc" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _aclvDryRun, "InstanceId" =: _aclvInstanceId, "VpcId" =: _aclvVPCId, diff --git a/gen/Network/AWS/EC2/AttachInternetGateway.hs b/gen/Network/AWS/EC2/AttachInternetGateway.hs --- a/gen/Network/AWS/EC2/AttachInternetGateway.hs +++ b/gen/Network/AWS/EC2/AttachInternetGateway.hs @@ -103,7 +103,7 @@ toQuery AttachInternetGateway'{..} = mconcat ["Action" =: ("AttachInternetGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _aigDryRun, "InternetGatewayId" =: _aigInternetGatewayId, "VpcId" =: _aigVPCId] diff --git a/gen/Network/AWS/EC2/AttachNetworkInterface.hs b/gen/Network/AWS/EC2/AttachNetworkInterface.hs --- a/gen/Network/AWS/EC2/AttachNetworkInterface.hs +++ b/gen/Network/AWS/EC2/AttachNetworkInterface.hs @@ -118,7 +118,7 @@ = mconcat ["Action" =: ("AttachNetworkInterface" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _aniDryRun, "NetworkInterfaceId" =: _aniNetworkInterfaceId, "InstanceId" =: _aniInstanceId, diff --git a/gen/Network/AWS/EC2/AttachVPNGateway.hs b/gen/Network/AWS/EC2/AttachVPNGateway.hs --- a/gen/Network/AWS/EC2/AttachVPNGateway.hs +++ b/gen/Network/AWS/EC2/AttachVPNGateway.hs @@ -108,7 +108,7 @@ toQuery AttachVPNGateway'{..} = mconcat ["Action" =: ("AttachVpnGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _avgDryRun, "VpnGatewayId" =: _avgVPNGatewayId, "VpcId" =: _avgVPCId] diff --git a/gen/Network/AWS/EC2/AttachVolume.hs b/gen/Network/AWS/EC2/AttachVolume.hs --- a/gen/Network/AWS/EC2/AttachVolume.hs +++ b/gen/Network/AWS/EC2/AttachVolume.hs @@ -148,6 +148,6 @@ toQuery AttachVolume'{..} = mconcat ["Action" =: ("AttachVolume" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _avDryRun, "VolumeId" =: _avVolumeId, "InstanceId" =: _avInstanceId, "Device" =: _avDevice] diff --git a/gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs b/gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs --- a/gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs +++ b/gen/Network/AWS/EC2/AuthorizeSecurityGroupEgress.hs @@ -188,7 +188,7 @@ = mconcat ["Action" =: ("AuthorizeSecurityGroupEgress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "FromPort" =: _asgeFromPort, toQuery (toQueryList "IpPermissions" <$> _asgeIPPermissions), diff --git a/gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs b/gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs --- a/gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs +++ b/gen/Network/AWS/EC2/AuthorizeSecurityGroupIngress.hs @@ -203,7 +203,7 @@ = mconcat ["Action" =: ("AuthorizeSecurityGroupIngress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "FromPort" =: _asgiFromPort, toQuery (toQueryList "IpPermissions" <$> _asgiIPPermissions), diff --git a/gen/Network/AWS/EC2/BundleInstance.hs b/gen/Network/AWS/EC2/BundleInstance.hs --- a/gen/Network/AWS/EC2/BundleInstance.hs +++ b/gen/Network/AWS/EC2/BundleInstance.hs @@ -124,7 +124,7 @@ toQuery BundleInstance'{..} = mconcat ["Action" =: ("BundleInstance" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _biDryRun, "InstanceId" =: _biInstanceId, "Storage" =: _biStorage] diff --git a/gen/Network/AWS/EC2/CancelBundleTask.hs b/gen/Network/AWS/EC2/CancelBundleTask.hs --- a/gen/Network/AWS/EC2/CancelBundleTask.hs +++ b/gen/Network/AWS/EC2/CancelBundleTask.hs @@ -97,7 +97,7 @@ toQuery CancelBundleTask'{..} = mconcat ["Action" =: ("CancelBundleTask" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _cbtDryRun, "BundleId" =: _cbtBundleId] -- | /See:/ 'cancelBundleTaskResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/CancelConversionTask.hs b/gen/Network/AWS/EC2/CancelConversionTask.hs --- a/gen/Network/AWS/EC2/CancelConversionTask.hs +++ b/gen/Network/AWS/EC2/CancelConversionTask.hs @@ -107,7 +107,7 @@ toQuery CancelConversionTask'{..} = mconcat ["Action" =: ("CancelConversionTask" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "ReasonMessage" =: _cctReasonMessage, "DryRun" =: _cctDryRun, "ConversionTaskId" =: _cctConversionTaskId] diff --git a/gen/Network/AWS/EC2/CancelExportTask.hs b/gen/Network/AWS/EC2/CancelExportTask.hs --- a/gen/Network/AWS/EC2/CancelExportTask.hs +++ b/gen/Network/AWS/EC2/CancelExportTask.hs @@ -81,7 +81,7 @@ toQuery CancelExportTask'{..} = mconcat ["Action" =: ("CancelExportTask" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "ExportTaskId" =: _cetExportTaskId] -- | /See:/ 'cancelExportTaskResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/CancelImportTask.hs b/gen/Network/AWS/EC2/CancelImportTask.hs --- a/gen/Network/AWS/EC2/CancelImportTask.hs +++ b/gen/Network/AWS/EC2/CancelImportTask.hs @@ -108,7 +108,7 @@ toQuery CancelImportTask'{..} = mconcat ["Action" =: ("CancelImportTask" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "CancelReason" =: _citCancelReason, "ImportTaskId" =: _citImportTaskId, "DryRun" =: _citDryRun] diff --git a/gen/Network/AWS/EC2/CancelReservedInstancesListing.hs b/gen/Network/AWS/EC2/CancelReservedInstancesListing.hs --- a/gen/Network/AWS/EC2/CancelReservedInstancesListing.hs +++ b/gen/Network/AWS/EC2/CancelReservedInstancesListing.hs @@ -95,7 +95,7 @@ = mconcat ["Action" =: ("CancelReservedInstancesListing" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "ReservedInstancesListingId" =: _crilReservedInstancesListingId] diff --git a/gen/Network/AWS/EC2/CancelSpotFleetRequests.hs b/gen/Network/AWS/EC2/CancelSpotFleetRequests.hs --- a/gen/Network/AWS/EC2/CancelSpotFleetRequests.hs +++ b/gen/Network/AWS/EC2/CancelSpotFleetRequests.hs @@ -20,6 +20,14 @@ -- -- Cancels the specified Spot fleet requests. -- +-- After you cancel a Spot fleet request, the Spot fleet launches no new +-- Spot instances. You must specify whether the Spot fleet should also +-- terminate its Spot instances. If you terminate the instances, the Spot +-- fleet request enters the 'cancelled_terminating' state. Otherwise, the +-- Spot fleet request enters the 'cancelled_running' state and the +-- instances continue to run until they are interrupted or you terminate +-- them manually. +-- -- /See:/ for CancelSpotFleetRequests. module Network.AWS.EC2.CancelSpotFleetRequests ( @@ -116,7 +124,7 @@ = mconcat ["Action" =: ("CancelSpotFleetRequests" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _csfrDryRun, toQueryList "SpotFleetRequestId" _csfrSpotFleetRequestIds, diff --git a/gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs b/gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs --- a/gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs +++ b/gen/Network/AWS/EC2/CancelSpotInstanceRequests.hs @@ -110,7 +110,7 @@ = mconcat ["Action" =: ("CancelSpotInstanceRequests" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _csirDryRun, toQueryList "SpotInstanceRequestId" _csirSpotInstanceRequestIds] diff --git a/gen/Network/AWS/EC2/ConfirmProductInstance.hs b/gen/Network/AWS/EC2/ConfirmProductInstance.hs --- a/gen/Network/AWS/EC2/ConfirmProductInstance.hs +++ b/gen/Network/AWS/EC2/ConfirmProductInstance.hs @@ -113,7 +113,7 @@ = mconcat ["Action" =: ("ConfirmProductInstance" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _cpiDryRun, "ProductCode" =: _cpiProductCode, "InstanceId" =: _cpiInstanceId] diff --git a/gen/Network/AWS/EC2/CopyImage.hs b/gen/Network/AWS/EC2/CopyImage.hs --- a/gen/Network/AWS/EC2/CopyImage.hs +++ b/gen/Network/AWS/EC2/CopyImage.hs @@ -144,7 +144,7 @@ toQuery CopyImage'{..} = mconcat ["Action" =: ("CopyImage" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "ClientToken" =: _ciClientToken, "Description" =: _ciDescription, "DryRun" =: _ciDryRun, diff --git a/gen/Network/AWS/EC2/CopySnapshot.hs b/gen/Network/AWS/EC2/CopySnapshot.hs --- a/gen/Network/AWS/EC2/CopySnapshot.hs +++ b/gen/Network/AWS/EC2/CopySnapshot.hs @@ -201,7 +201,7 @@ toQuery CopySnapshot'{..} = mconcat ["Action" =: ("CopySnapshot" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "PresignedUrl" =: _csPresignedURL, "Encrypted" =: _csEncrypted, "DestinationRegion" =: _csDestinationRegion, diff --git a/gen/Network/AWS/EC2/CreateCustomerGateway.hs b/gen/Network/AWS/EC2/CreateCustomerGateway.hs --- a/gen/Network/AWS/EC2/CreateCustomerGateway.hs +++ b/gen/Network/AWS/EC2/CreateCustomerGateway.hs @@ -147,7 +147,7 @@ toQuery CreateCustomerGateway'{..} = mconcat ["Action" =: ("CreateCustomerGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _ccgDryRun, "Type" =: _ccgType, "IpAddress" =: _ccgPublicIP, "BgpAsn" =: _ccgBGPASN] diff --git a/gen/Network/AWS/EC2/CreateDHCPOptions.hs b/gen/Network/AWS/EC2/CreateDHCPOptions.hs --- a/gen/Network/AWS/EC2/CreateDHCPOptions.hs +++ b/gen/Network/AWS/EC2/CreateDHCPOptions.hs @@ -133,7 +133,7 @@ toQuery CreateDHCPOptions'{..} = mconcat ["Action" =: ("CreateDhcpOptions" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _cdoDryRun, toQueryList "DhcpConfiguration" _cdoDHCPConfigurations] diff --git a/gen/Network/AWS/EC2/CreateFlowLogs.hs b/gen/Network/AWS/EC2/CreateFlowLogs.hs --- a/gen/Network/AWS/EC2/CreateFlowLogs.hs +++ b/gen/Network/AWS/EC2/CreateFlowLogs.hs @@ -152,7 +152,7 @@ toQuery CreateFlowLogs'{..} = mconcat ["Action" =: ("CreateFlowLogs" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "ClientToken" =: _cflClientToken, toQueryList "ResourceId" _cflResourceIds, "ResourceType" =: _cflResourceType, diff --git a/gen/Network/AWS/EC2/CreateImage.hs b/gen/Network/AWS/EC2/CreateImage.hs --- a/gen/Network/AWS/EC2/CreateImage.hs +++ b/gen/Network/AWS/EC2/CreateImage.hs @@ -153,7 +153,7 @@ toQuery CreateImage'{..} = mconcat ["Action" =: ("CreateImage" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "NoReboot" =: _ciiNoReboot, "Description" =: _ciiDescription, toQuery diff --git a/gen/Network/AWS/EC2/CreateInstanceExportTask.hs b/gen/Network/AWS/EC2/CreateInstanceExportTask.hs --- a/gen/Network/AWS/EC2/CreateInstanceExportTask.hs +++ b/gen/Network/AWS/EC2/CreateInstanceExportTask.hs @@ -119,7 +119,7 @@ = mconcat ["Action" =: ("CreateInstanceExportTask" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "TargetEnvironment" =: _cietTargetEnvironment, "ExportToS3" =: _cietExportToS3Task, "Description" =: _cietDescription, diff --git a/gen/Network/AWS/EC2/CreateInternetGateway.hs b/gen/Network/AWS/EC2/CreateInternetGateway.hs --- a/gen/Network/AWS/EC2/CreateInternetGateway.hs +++ b/gen/Network/AWS/EC2/CreateInternetGateway.hs @@ -91,7 +91,7 @@ toQuery CreateInternetGateway'{..} = mconcat ["Action" =: ("CreateInternetGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _cigDryRun] -- | /See:/ 'createInternetGatewayResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/CreateKeyPair.hs b/gen/Network/AWS/EC2/CreateKeyPair.hs --- a/gen/Network/AWS/EC2/CreateKeyPair.hs +++ b/gen/Network/AWS/EC2/CreateKeyPair.hs @@ -116,7 +116,7 @@ toQuery CreateKeyPair'{..} = mconcat ["Action" =: ("CreateKeyPair" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _ckpDryRun, "KeyName" =: _ckpKeyName] -- | Describes a key pair. diff --git a/gen/Network/AWS/EC2/CreateNetworkACL.hs b/gen/Network/AWS/EC2/CreateNetworkACL.hs --- a/gen/Network/AWS/EC2/CreateNetworkACL.hs +++ b/gen/Network/AWS/EC2/CreateNetworkACL.hs @@ -102,7 +102,7 @@ toQuery CreateNetworkACL'{..} = mconcat ["Action" =: ("CreateNetworkAcl" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _cnaDryRun, "VpcId" =: _cnaVPCId] -- | /See:/ 'createNetworkACLResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/CreateNetworkACLEntry.hs b/gen/Network/AWS/EC2/CreateNetworkACLEntry.hs --- a/gen/Network/AWS/EC2/CreateNetworkACLEntry.hs +++ b/gen/Network/AWS/EC2/CreateNetworkACLEntry.hs @@ -182,7 +182,7 @@ toQuery CreateNetworkACLEntry'{..} = mconcat ["Action" =: ("CreateNetworkAclEntry" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Icmp" =: _cnaeICMPTypeCode, "PortRange" =: _cnaePortRange, "DryRun" =: _cnaeDryRun, diff --git a/gen/Network/AWS/EC2/CreateNetworkInterface.hs b/gen/Network/AWS/EC2/CreateNetworkInterface.hs --- a/gen/Network/AWS/EC2/CreateNetworkInterface.hs +++ b/gen/Network/AWS/EC2/CreateNetworkInterface.hs @@ -160,7 +160,7 @@ = mconcat ["Action" =: ("CreateNetworkInterface" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "SecurityGroupId" <$> _cniGroups), toQuery diff --git a/gen/Network/AWS/EC2/CreatePlacementGroup.hs b/gen/Network/AWS/EC2/CreatePlacementGroup.hs --- a/gen/Network/AWS/EC2/CreatePlacementGroup.hs +++ b/gen/Network/AWS/EC2/CreatePlacementGroup.hs @@ -108,7 +108,7 @@ toQuery CreatePlacementGroup'{..} = mconcat ["Action" =: ("CreatePlacementGroup" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _cpgDryRun, "GroupName" =: _cpgGroupName, "Strategy" =: _cpgStrategy] diff --git a/gen/Network/AWS/EC2/CreateReservedInstancesListing.hs b/gen/Network/AWS/EC2/CreateReservedInstancesListing.hs --- a/gen/Network/AWS/EC2/CreateReservedInstancesListing.hs +++ b/gen/Network/AWS/EC2/CreateReservedInstancesListing.hs @@ -147,7 +147,7 @@ = mconcat ["Action" =: ("CreateReservedInstancesListing" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "ReservedInstancesId" =: _crilReservedInstancesId, "InstanceCount" =: _crilInstanceCount, toQueryList "PriceSchedules" _crilPriceSchedules, diff --git a/gen/Network/AWS/EC2/CreateRoute.hs b/gen/Network/AWS/EC2/CreateRoute.hs --- a/gen/Network/AWS/EC2/CreateRoute.hs +++ b/gen/Network/AWS/EC2/CreateRoute.hs @@ -166,7 +166,7 @@ toQuery CreateRoute'{..} = mconcat ["Action" =: ("CreateRoute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "VpcPeeringConnectionId" =: _crVPCPeeringConnectionId, "InstanceId" =: _crInstanceId, diff --git a/gen/Network/AWS/EC2/CreateRouteTable.hs b/gen/Network/AWS/EC2/CreateRouteTable.hs --- a/gen/Network/AWS/EC2/CreateRouteTable.hs +++ b/gen/Network/AWS/EC2/CreateRouteTable.hs @@ -101,7 +101,7 @@ toQuery CreateRouteTable'{..} = mconcat ["Action" =: ("CreateRouteTable" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _crtDryRun, "VpcId" =: _crtVPCId] -- | /See:/ 'createRouteTableResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/CreateSecurityGroup.hs b/gen/Network/AWS/EC2/CreateSecurityGroup.hs --- a/gen/Network/AWS/EC2/CreateSecurityGroup.hs +++ b/gen/Network/AWS/EC2/CreateSecurityGroup.hs @@ -158,7 +158,7 @@ toQuery CreateSecurityGroup'{..} = mconcat ["Action" =: ("CreateSecurityGroup" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "VpcId" =: _csgVPCId, "DryRun" =: _csgDryRun, "GroupName" =: _csgGroupName, "GroupDescription" =: _csgDescription] diff --git a/gen/Network/AWS/EC2/CreateSnapshot.hs b/gen/Network/AWS/EC2/CreateSnapshot.hs --- a/gen/Network/AWS/EC2/CreateSnapshot.hs +++ b/gen/Network/AWS/EC2/CreateSnapshot.hs @@ -143,6 +143,6 @@ toQuery CreateSnapshot'{..} = mconcat ["Action" =: ("CreateSnapshot" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Description" =: _ccDescription, "DryRun" =: _ccDryRun, "VolumeId" =: _ccVolumeId] diff --git a/gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs b/gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs --- a/gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs +++ b/gen/Network/AWS/EC2/CreateSpotDatafeedSubscription.hs @@ -116,7 +116,7 @@ = mconcat ["Action" =: ("CreateSpotDatafeedSubscription" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Prefix" =: _csdsPrefix, "DryRun" =: _csdsDryRun, "Bucket" =: _csdsBucket] diff --git a/gen/Network/AWS/EC2/CreateSubnet.hs b/gen/Network/AWS/EC2/CreateSubnet.hs --- a/gen/Network/AWS/EC2/CreateSubnet.hs +++ b/gen/Network/AWS/EC2/CreateSubnet.hs @@ -144,7 +144,7 @@ toQuery CreateSubnet'{..} = mconcat ["Action" =: ("CreateSubnet" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "AvailabilityZone" =: _cssAvailabilityZone, "DryRun" =: _cssDryRun, "VpcId" =: _cssVPCId, "CidrBlock" =: _cssCIdRBlock] diff --git a/gen/Network/AWS/EC2/CreateTags.hs b/gen/Network/AWS/EC2/CreateTags.hs --- a/gen/Network/AWS/EC2/CreateTags.hs +++ b/gen/Network/AWS/EC2/CreateTags.hs @@ -106,7 +106,7 @@ toQuery CreateTags'{..} = mconcat ["Action" =: ("CreateTags" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _cDryRun, toQueryList "ResourceId" _cResources, toQueryList "Tag" _cTags] diff --git a/gen/Network/AWS/EC2/CreateVPC.hs b/gen/Network/AWS/EC2/CreateVPC.hs --- a/gen/Network/AWS/EC2/CreateVPC.hs +++ b/gen/Network/AWS/EC2/CreateVPC.hs @@ -125,7 +125,7 @@ toQuery CreateVPC'{..} = mconcat ["Action" =: ("CreateVpc" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "InstanceTenancy" =: _cvInstanceTenancy, "DryRun" =: _cvDryRun, "CidrBlock" =: _cvCIdRBlock] diff --git a/gen/Network/AWS/EC2/CreateVPCEndpoint.hs b/gen/Network/AWS/EC2/CreateVPCEndpoint.hs --- a/gen/Network/AWS/EC2/CreateVPCEndpoint.hs +++ b/gen/Network/AWS/EC2/CreateVPCEndpoint.hs @@ -148,7 +148,7 @@ toQuery CreateVPCEndpoint'{..} = mconcat ["Action" =: ("CreateVpcEndpoint" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "PolicyDocument" =: _cvePolicyDocument, "ClientToken" =: _cveClientToken, "DryRun" =: _cveDryRun, diff --git a/gen/Network/AWS/EC2/CreateVPCPeeringConnection.hs b/gen/Network/AWS/EC2/CreateVPCPeeringConnection.hs --- a/gen/Network/AWS/EC2/CreateVPCPeeringConnection.hs +++ b/gen/Network/AWS/EC2/CreateVPCPeeringConnection.hs @@ -130,7 +130,7 @@ = mconcat ["Action" =: ("CreateVpcPeeringConnection" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "PeerVpcId" =: _cvpcPeerVPCId, "VpcId" =: _cvpcVPCId, "PeerOwnerId" =: _cvpcPeerOwnerId, "DryRun" =: _cvpcDryRun] diff --git a/gen/Network/AWS/EC2/CreateVPNConnection.hs b/gen/Network/AWS/EC2/CreateVPNConnection.hs --- a/gen/Network/AWS/EC2/CreateVPNConnection.hs +++ b/gen/Network/AWS/EC2/CreateVPNConnection.hs @@ -146,7 +146,7 @@ toQuery CreateVPNConnection'{..} = mconcat ["Action" =: ("CreateVpnConnection" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Options" =: _cvcOptions, "DryRun" =: _cvcDryRun, "Type" =: _cvcType, "CustomerGatewayId" =: _cvcCustomerGatewayId, diff --git a/gen/Network/AWS/EC2/CreateVPNConnectionRoute.hs b/gen/Network/AWS/EC2/CreateVPNConnectionRoute.hs --- a/gen/Network/AWS/EC2/CreateVPNConnectionRoute.hs +++ b/gen/Network/AWS/EC2/CreateVPNConnectionRoute.hs @@ -97,7 +97,7 @@ = mconcat ["Action" =: ("CreateVpnConnectionRoute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "VpnConnectionId" =: _cvcrVPNConnectionId, "DestinationCidrBlock" =: _cvcrDestinationCIdRBlock] diff --git a/gen/Network/AWS/EC2/CreateVPNGateway.hs b/gen/Network/AWS/EC2/CreateVPNGateway.hs --- a/gen/Network/AWS/EC2/CreateVPNGateway.hs +++ b/gen/Network/AWS/EC2/CreateVPNGateway.hs @@ -111,7 +111,7 @@ toQuery CreateVPNGateway'{..} = mconcat ["Action" =: ("CreateVpnGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "AvailabilityZone" =: _cvgAvailabilityZone, "DryRun" =: _cvgDryRun, "Type" =: _cvgType] diff --git a/gen/Network/AWS/EC2/CreateVolume.hs b/gen/Network/AWS/EC2/CreateVolume.hs --- a/gen/Network/AWS/EC2/CreateVolume.hs +++ b/gen/Network/AWS/EC2/CreateVolume.hs @@ -207,7 +207,7 @@ toQuery CreateVolume'{..} = mconcat ["Action" =: ("CreateVolume" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Size" =: _creSize, "Iops" =: _creIOPS, "Encrypted" =: _creEncrypted, "KmsKeyId" =: _creKMSKeyId, diff --git a/gen/Network/AWS/EC2/DeleteCustomerGateway.hs b/gen/Network/AWS/EC2/DeleteCustomerGateway.hs --- a/gen/Network/AWS/EC2/DeleteCustomerGateway.hs +++ b/gen/Network/AWS/EC2/DeleteCustomerGateway.hs @@ -91,7 +91,7 @@ toQuery DeleteCustomerGateway'{..} = mconcat ["Action" =: ("DeleteCustomerGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dcgcDryRun, "CustomerGatewayId" =: _dcgcCustomerGatewayId] diff --git a/gen/Network/AWS/EC2/DeleteDHCPOptions.hs b/gen/Network/AWS/EC2/DeleteDHCPOptions.hs --- a/gen/Network/AWS/EC2/DeleteDHCPOptions.hs +++ b/gen/Network/AWS/EC2/DeleteDHCPOptions.hs @@ -92,7 +92,7 @@ toQuery DeleteDHCPOptions'{..} = mconcat ["Action" =: ("DeleteDhcpOptions" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _ddhcpoDryRun, "DhcpOptionsId" =: _ddhcpoDHCPOptionsId] diff --git a/gen/Network/AWS/EC2/DeleteFlowLogs.hs b/gen/Network/AWS/EC2/DeleteFlowLogs.hs --- a/gen/Network/AWS/EC2/DeleteFlowLogs.hs +++ b/gen/Network/AWS/EC2/DeleteFlowLogs.hs @@ -85,7 +85,7 @@ toQuery DeleteFlowLogs'{..} = mconcat ["Action" =: ("DeleteFlowLogs" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQueryList "FlowLogId" _dflFlowLogIds] -- | /See:/ 'deleteFlowLogsResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DeleteInternetGateway.hs b/gen/Network/AWS/EC2/DeleteInternetGateway.hs --- a/gen/Network/AWS/EC2/DeleteInternetGateway.hs +++ b/gen/Network/AWS/EC2/DeleteInternetGateway.hs @@ -91,7 +91,7 @@ toQuery DeleteInternetGateway'{..} = mconcat ["Action" =: ("DeleteInternetGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _digiDryRun, "InternetGatewayId" =: _digiInternetGatewayId] diff --git a/gen/Network/AWS/EC2/DeleteKeyPair.hs b/gen/Network/AWS/EC2/DeleteKeyPair.hs --- a/gen/Network/AWS/EC2/DeleteKeyPair.hs +++ b/gen/Network/AWS/EC2/DeleteKeyPair.hs @@ -90,7 +90,7 @@ toQuery DeleteKeyPair'{..} = mconcat ["Action" =: ("DeleteKeyPair" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dkpDryRun, "KeyName" =: _dkpKeyName] -- | /See:/ 'deleteKeyPairResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DeleteNetworkACL.hs b/gen/Network/AWS/EC2/DeleteNetworkACL.hs --- a/gen/Network/AWS/EC2/DeleteNetworkACL.hs +++ b/gen/Network/AWS/EC2/DeleteNetworkACL.hs @@ -90,7 +90,7 @@ toQuery DeleteNetworkACL'{..} = mconcat ["Action" =: ("DeleteNetworkAcl" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dnaDryRun, "NetworkAclId" =: _dnaNetworkACLId] diff --git a/gen/Network/AWS/EC2/DeleteNetworkACLEntry.hs b/gen/Network/AWS/EC2/DeleteNetworkACLEntry.hs --- a/gen/Network/AWS/EC2/DeleteNetworkACLEntry.hs +++ b/gen/Network/AWS/EC2/DeleteNetworkACLEntry.hs @@ -111,7 +111,7 @@ toQuery DeleteNetworkACLEntry'{..} = mconcat ["Action" =: ("DeleteNetworkAclEntry" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dnaeDryRun, "NetworkAclId" =: _dnaeNetworkACLId, "RuleNumber" =: _dnaeRuleNumber, diff --git a/gen/Network/AWS/EC2/DeleteNetworkInterface.hs b/gen/Network/AWS/EC2/DeleteNetworkInterface.hs --- a/gen/Network/AWS/EC2/DeleteNetworkInterface.hs +++ b/gen/Network/AWS/EC2/DeleteNetworkInterface.hs @@ -93,7 +93,7 @@ = mconcat ["Action" =: ("DeleteNetworkInterface" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dninDryRun, "NetworkInterfaceId" =: _dninNetworkInterfaceId] diff --git a/gen/Network/AWS/EC2/DeletePlacementGroup.hs b/gen/Network/AWS/EC2/DeletePlacementGroup.hs --- a/gen/Network/AWS/EC2/DeletePlacementGroup.hs +++ b/gen/Network/AWS/EC2/DeletePlacementGroup.hs @@ -94,7 +94,7 @@ toQuery DeletePlacementGroup'{..} = mconcat ["Action" =: ("DeletePlacementGroup" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dpgDryRun, "GroupName" =: _dpgGroupName] -- | /See:/ 'deletePlacementGroupResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DeleteRoute.hs b/gen/Network/AWS/EC2/DeleteRoute.hs --- a/gen/Network/AWS/EC2/DeleteRoute.hs +++ b/gen/Network/AWS/EC2/DeleteRoute.hs @@ -100,7 +100,7 @@ toQuery DeleteRoute'{..} = mconcat ["Action" =: ("DeleteRoute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _drDryRun, "RouteTableId" =: _drRouteTableId, "DestinationCidrBlock" =: _drDestinationCIdRBlock] diff --git a/gen/Network/AWS/EC2/DeleteRouteTable.hs b/gen/Network/AWS/EC2/DeleteRouteTable.hs --- a/gen/Network/AWS/EC2/DeleteRouteTable.hs +++ b/gen/Network/AWS/EC2/DeleteRouteTable.hs @@ -91,7 +91,7 @@ toQuery DeleteRouteTable'{..} = mconcat ["Action" =: ("DeleteRouteTable" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _drtrDryRun, "RouteTableId" =: _drtrRouteTableId] diff --git a/gen/Network/AWS/EC2/DeleteSecurityGroup.hs b/gen/Network/AWS/EC2/DeleteSecurityGroup.hs --- a/gen/Network/AWS/EC2/DeleteSecurityGroup.hs +++ b/gen/Network/AWS/EC2/DeleteSecurityGroup.hs @@ -104,7 +104,7 @@ toQuery DeleteSecurityGroup'{..} = mconcat ["Action" =: ("DeleteSecurityGroup" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "GroupId" =: _dsgGroupId, "GroupName" =: _dsgGroupName, "DryRun" =: _dsgDryRun] diff --git a/gen/Network/AWS/EC2/DeleteSnapshot.hs b/gen/Network/AWS/EC2/DeleteSnapshot.hs --- a/gen/Network/AWS/EC2/DeleteSnapshot.hs +++ b/gen/Network/AWS/EC2/DeleteSnapshot.hs @@ -105,7 +105,7 @@ toQuery DeleteSnapshot'{..} = mconcat ["Action" =: ("DeleteSnapshot" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _deleDryRun, "SnapshotId" =: _deleSnapshotId] diff --git a/gen/Network/AWS/EC2/DeleteSpotDatafeedSubscription.hs b/gen/Network/AWS/EC2/DeleteSpotDatafeedSubscription.hs --- a/gen/Network/AWS/EC2/DeleteSpotDatafeedSubscription.hs +++ b/gen/Network/AWS/EC2/DeleteSpotDatafeedSubscription.hs @@ -86,7 +86,7 @@ = mconcat ["Action" =: ("DeleteSpotDatafeedSubscription" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dsdssDryRun] -- | /See:/ 'deleteSpotDatafeedSubscriptionResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DeleteSubnet.hs b/gen/Network/AWS/EC2/DeleteSubnet.hs --- a/gen/Network/AWS/EC2/DeleteSubnet.hs +++ b/gen/Network/AWS/EC2/DeleteSubnet.hs @@ -90,7 +90,7 @@ toQuery DeleteSubnet'{..} = mconcat ["Action" =: ("DeleteSubnet" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _ddDryRun, "SubnetId" =: _ddSubnetId] -- | /See:/ 'deleteSubnetResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DeleteTags.hs b/gen/Network/AWS/EC2/DeleteTags.hs --- a/gen/Network/AWS/EC2/DeleteTags.hs +++ b/gen/Network/AWS/EC2/DeleteTags.hs @@ -106,7 +106,7 @@ toQuery DeleteTags'{..} = mconcat ["Action" =: ("DeleteTags" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dtsDryRun, toQuery (toQueryList "Tag" <$> _dtsTags), toQueryList "ResourceId" _dtsResources] diff --git a/gen/Network/AWS/EC2/DeleteVPC.hs b/gen/Network/AWS/EC2/DeleteVPC.hs --- a/gen/Network/AWS/EC2/DeleteVPC.hs +++ b/gen/Network/AWS/EC2/DeleteVPC.hs @@ -94,7 +94,7 @@ toQuery DeleteVPC'{..} = mconcat ["Action" =: ("DeleteVpc" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _delDryRun, "VpcId" =: _delVPCId] -- | /See:/ 'deleteVPCResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DeleteVPCEndpoints.hs b/gen/Network/AWS/EC2/DeleteVPCEndpoints.hs --- a/gen/Network/AWS/EC2/DeleteVPCEndpoints.hs +++ b/gen/Network/AWS/EC2/DeleteVPCEndpoints.hs @@ -100,7 +100,7 @@ toQuery DeleteVPCEndpoints'{..} = mconcat ["Action" =: ("DeleteVpcEndpoints" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dveDryRun, toQueryList "VpcEndpointId" _dveVPCEndpointIds] diff --git a/gen/Network/AWS/EC2/DeleteVPCPeeringConnection.hs b/gen/Network/AWS/EC2/DeleteVPCPeeringConnection.hs --- a/gen/Network/AWS/EC2/DeleteVPCPeeringConnection.hs +++ b/gen/Network/AWS/EC2/DeleteVPCPeeringConnection.hs @@ -101,7 +101,7 @@ = mconcat ["Action" =: ("DeleteVpcPeeringConnection" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dvpcDryRun, "VpcPeeringConnectionId" =: _dvpcVPCPeeringConnectionId] diff --git a/gen/Network/AWS/EC2/DeleteVPNConnection.hs b/gen/Network/AWS/EC2/DeleteVPNConnection.hs --- a/gen/Network/AWS/EC2/DeleteVPNConnection.hs +++ b/gen/Network/AWS/EC2/DeleteVPNConnection.hs @@ -100,7 +100,7 @@ toQuery DeleteVPNConnection'{..} = mconcat ["Action" =: ("DeleteVpnConnection" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dvcDryRun, "VpnConnectionId" =: _dvcVPNConnectionId] diff --git a/gen/Network/AWS/EC2/DeleteVPNConnectionRoute.hs b/gen/Network/AWS/EC2/DeleteVPNConnectionRoute.hs --- a/gen/Network/AWS/EC2/DeleteVPNConnectionRoute.hs +++ b/gen/Network/AWS/EC2/DeleteVPNConnectionRoute.hs @@ -93,7 +93,7 @@ = mconcat ["Action" =: ("DeleteVpnConnectionRoute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "VpnConnectionId" =: _dvcrVPNConnectionId, "DestinationCidrBlock" =: _dvcrDestinationCIdRBlock] diff --git a/gen/Network/AWS/EC2/DeleteVPNGateway.hs b/gen/Network/AWS/EC2/DeleteVPNGateway.hs --- a/gen/Network/AWS/EC2/DeleteVPNGateway.hs +++ b/gen/Network/AWS/EC2/DeleteVPNGateway.hs @@ -93,7 +93,7 @@ toQuery DeleteVPNGateway'{..} = mconcat ["Action" =: ("DeleteVpnGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dvgDryRun, "VpnGatewayId" =: _dvgVPNGatewayId] diff --git a/gen/Network/AWS/EC2/DeleteVolume.hs b/gen/Network/AWS/EC2/DeleteVolume.hs --- a/gen/Network/AWS/EC2/DeleteVolume.hs +++ b/gen/Network/AWS/EC2/DeleteVolume.hs @@ -96,7 +96,7 @@ toQuery DeleteVolume'{..} = mconcat ["Action" =: ("DeleteVolume" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dvvDryRun, "VolumeId" =: _dvvVolumeId] -- | /See:/ 'deleteVolumeResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DeregisterImage.hs b/gen/Network/AWS/EC2/DeregisterImage.hs --- a/gen/Network/AWS/EC2/DeregisterImage.hs +++ b/gen/Network/AWS/EC2/DeregisterImage.hs @@ -92,7 +92,7 @@ toQuery DeregisterImage'{..} = mconcat ["Action" =: ("DeregisterImage" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _diDryRun, "ImageId" =: _diImageId] -- | /See:/ 'deregisterImageResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DescribeAccountAttributes.hs b/gen/Network/AWS/EC2/DescribeAccountAttributes.hs --- a/gen/Network/AWS/EC2/DescribeAccountAttributes.hs +++ b/gen/Network/AWS/EC2/DescribeAccountAttributes.hs @@ -119,7 +119,7 @@ = mconcat ["Action" =: ("DescribeAccountAttributes" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "AttributeName" <$> _daaAttributeNames), "DryRun" =: _daaDryRun] diff --git a/gen/Network/AWS/EC2/DescribeAddresses.hs b/gen/Network/AWS/EC2/DescribeAddresses.hs --- a/gen/Network/AWS/EC2/DescribeAddresses.hs +++ b/gen/Network/AWS/EC2/DescribeAddresses.hs @@ -145,7 +145,7 @@ toQuery DescribeAddresses'{..} = mconcat ["Action" =: ("DescribeAddresses" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _daFilters), toQuery (toQueryList "PublicIp" <$> _daPublicIPs), toQuery diff --git a/gen/Network/AWS/EC2/DescribeAvailabilityZones.hs b/gen/Network/AWS/EC2/DescribeAvailabilityZones.hs --- a/gen/Network/AWS/EC2/DescribeAvailabilityZones.hs +++ b/gen/Network/AWS/EC2/DescribeAvailabilityZones.hs @@ -90,7 +90,7 @@ -- (for example, 'us-east-1'). -- -- - 'state' - The state of the Availability Zone ('available' | --- 'impaired' | 'unavailable'). +-- 'information' | 'impaired' | 'unavailable'). -- -- - 'zone-name' - The name of the Availability Zone (for example, -- 'us-east-1a'). @@ -128,7 +128,7 @@ = mconcat ["Action" =: ("DescribeAvailabilityZones" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "ZoneName" <$> _dazZoneNames), toQuery (toQueryList "Filter" <$> _dazFilters), "DryRun" =: _dazDryRun] diff --git a/gen/Network/AWS/EC2/DescribeBundleTasks.hs b/gen/Network/AWS/EC2/DescribeBundleTasks.hs --- a/gen/Network/AWS/EC2/DescribeBundleTasks.hs +++ b/gen/Network/AWS/EC2/DescribeBundleTasks.hs @@ -138,7 +138,7 @@ toQuery DescribeBundleTasks'{..} = mconcat ["Action" =: ("DescribeBundleTasks" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "BundleId" <$> _dbtBundleIds), toQuery (toQueryList "Filter" <$> _dbtFilters), "DryRun" =: _dbtDryRun] diff --git a/gen/Network/AWS/EC2/DescribeClassicLinkInstances.hs b/gen/Network/AWS/EC2/DescribeClassicLinkInstances.hs --- a/gen/Network/AWS/EC2/DescribeClassicLinkInstances.hs +++ b/gen/Network/AWS/EC2/DescribeClassicLinkInstances.hs @@ -163,7 +163,7 @@ = mconcat ["Action" =: ("DescribeClassicLinkInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dcliFilters), "NextToken" =: _dcliNextToken, toQuery diff --git a/gen/Network/AWS/EC2/DescribeConversionTasks.hs b/gen/Network/AWS/EC2/DescribeConversionTasks.hs --- a/gen/Network/AWS/EC2/DescribeConversionTasks.hs +++ b/gen/Network/AWS/EC2/DescribeConversionTasks.hs @@ -111,7 +111,7 @@ = mconcat ["Action" =: ("DescribeConversionTasks" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dctFilters), toQuery (toQueryList "ConversionTaskId" <$> diff --git a/gen/Network/AWS/EC2/DescribeCustomerGateways.hs b/gen/Network/AWS/EC2/DescribeCustomerGateways.hs --- a/gen/Network/AWS/EC2/DescribeCustomerGateways.hs +++ b/gen/Network/AWS/EC2/DescribeCustomerGateways.hs @@ -143,7 +143,7 @@ = mconcat ["Action" =: ("DescribeCustomerGateways" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "CustomerGatewayId" <$> _dcgCustomerGatewayIds), diff --git a/gen/Network/AWS/EC2/DescribeDHCPOptions.hs b/gen/Network/AWS/EC2/DescribeDHCPOptions.hs --- a/gen/Network/AWS/EC2/DescribeDHCPOptions.hs +++ b/gen/Network/AWS/EC2/DescribeDHCPOptions.hs @@ -134,7 +134,7 @@ toQuery DescribeDHCPOptions'{..} = mconcat ["Action" =: ("DescribeDhcpOptions" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _ddoFilters), toQuery (toQueryList "DhcpOptionsId" <$> _ddoDHCPOptionsIds), diff --git a/gen/Network/AWS/EC2/DescribeExportTasks.hs b/gen/Network/AWS/EC2/DescribeExportTasks.hs --- a/gen/Network/AWS/EC2/DescribeExportTasks.hs +++ b/gen/Network/AWS/EC2/DescribeExportTasks.hs @@ -86,7 +86,7 @@ toQuery DescribeExportTasks'{..} = mconcat ["Action" =: ("DescribeExportTasks" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "ExportTaskId" <$> _detExportTaskIds)] diff --git a/gen/Network/AWS/EC2/DescribeFlowLogs.hs b/gen/Network/AWS/EC2/DescribeFlowLogs.hs --- a/gen/Network/AWS/EC2/DescribeFlowLogs.hs +++ b/gen/Network/AWS/EC2/DescribeFlowLogs.hs @@ -133,7 +133,7 @@ toQuery DescribeFlowLogs'{..} = mconcat ["Action" =: ("DescribeFlowLogs" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "NextToken" =: _dNextToken, toQuery (toQueryList "FlowLogId" <$> _dFlowLogIds), toQuery (toQueryList "Filter" <$> _dFilter), diff --git a/gen/Network/AWS/EC2/DescribeImageAttribute.hs b/gen/Network/AWS/EC2/DescribeImageAttribute.hs --- a/gen/Network/AWS/EC2/DescribeImageAttribute.hs +++ b/gen/Network/AWS/EC2/DescribeImageAttribute.hs @@ -134,7 +134,7 @@ = mconcat ["Action" =: ("DescribeImageAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _diaiDryRun, "ImageId" =: _diaiImageId, "Attribute" =: _diaiAttribute] diff --git a/gen/Network/AWS/EC2/DescribeImages.hs b/gen/Network/AWS/EC2/DescribeImages.hs --- a/gen/Network/AWS/EC2/DescribeImages.hs +++ b/gen/Network/AWS/EC2/DescribeImages.hs @@ -217,7 +217,7 @@ toQuery DescribeImages'{..} = mconcat ["Action" =: ("DescribeImages" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Owner" <$> _deseOwners), toQuery (toQueryList "ExecutableBy" <$> diff --git a/gen/Network/AWS/EC2/DescribeImportImageTasks.hs b/gen/Network/AWS/EC2/DescribeImportImageTasks.hs --- a/gen/Network/AWS/EC2/DescribeImportImageTasks.hs +++ b/gen/Network/AWS/EC2/DescribeImportImageTasks.hs @@ -129,7 +129,7 @@ = mconcat ["Action" =: ("DescribeImportImageTasks" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filters" <$> _diitFilters), toQuery (toQueryList "ImportTaskId" <$> _diitImportTaskIds), diff --git a/gen/Network/AWS/EC2/DescribeImportSnapshotTasks.hs b/gen/Network/AWS/EC2/DescribeImportSnapshotTasks.hs --- a/gen/Network/AWS/EC2/DescribeImportSnapshotTasks.hs +++ b/gen/Network/AWS/EC2/DescribeImportSnapshotTasks.hs @@ -128,7 +128,7 @@ = mconcat ["Action" =: ("DescribeImportSnapshotTasks" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filters" <$> _distFilters), toQuery (toQueryList "ImportTaskId" <$> _distImportTaskIds), diff --git a/gen/Network/AWS/EC2/DescribeInstanceAttribute.hs b/gen/Network/AWS/EC2/DescribeInstanceAttribute.hs --- a/gen/Network/AWS/EC2/DescribeInstanceAttribute.hs +++ b/gen/Network/AWS/EC2/DescribeInstanceAttribute.hs @@ -145,7 +145,7 @@ = mconcat ["Action" =: ("DescribeInstanceAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _diaDryRun, "InstanceId" =: _diaInstanceId, "Attribute" =: _diaAttribute] diff --git a/gen/Network/AWS/EC2/DescribeInstanceStatus.hs b/gen/Network/AWS/EC2/DescribeInstanceStatus.hs --- a/gen/Network/AWS/EC2/DescribeInstanceStatus.hs +++ b/gen/Network/AWS/EC2/DescribeInstanceStatus.hs @@ -223,7 +223,7 @@ = mconcat ["Action" =: ("DescribeInstanceStatus" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "IncludeAllInstances" =: _disIncludeAllInstances, toQuery (toQueryList "Filter" <$> _disFilters), "NextToken" =: _disNextToken, diff --git a/gen/Network/AWS/EC2/DescribeInstances.hs b/gen/Network/AWS/EC2/DescribeInstances.hs --- a/gen/Network/AWS/EC2/DescribeInstances.hs +++ b/gen/Network/AWS/EC2/DescribeInstances.hs @@ -397,7 +397,7 @@ toQuery DescribeInstances'{..} = mconcat ["Action" =: ("DescribeInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _diiFilters), "NextToken" =: _diiNextToken, toQuery diff --git a/gen/Network/AWS/EC2/DescribeInternetGateways.hs b/gen/Network/AWS/EC2/DescribeInternetGateways.hs --- a/gen/Network/AWS/EC2/DescribeInternetGateways.hs +++ b/gen/Network/AWS/EC2/DescribeInternetGateways.hs @@ -133,7 +133,7 @@ = mconcat ["Action" =: ("DescribeInternetGateways" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dFilters), toQuery (toQueryList "InternetGatewayId" <$> diff --git a/gen/Network/AWS/EC2/DescribeKeyPairs.hs b/gen/Network/AWS/EC2/DescribeKeyPairs.hs --- a/gen/Network/AWS/EC2/DescribeKeyPairs.hs +++ b/gen/Network/AWS/EC2/DescribeKeyPairs.hs @@ -117,7 +117,7 @@ toQuery DescribeKeyPairs'{..} = mconcat ["Action" =: ("DescribeKeyPairs" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dkpsFilters), toQuery (toQueryList "KeyName" <$> _dkpsKeyNames), "DryRun" =: _dkpsDryRun] diff --git a/gen/Network/AWS/EC2/DescribeMovingAddresses.hs b/gen/Network/AWS/EC2/DescribeMovingAddresses.hs --- a/gen/Network/AWS/EC2/DescribeMovingAddresses.hs +++ b/gen/Network/AWS/EC2/DescribeMovingAddresses.hs @@ -141,7 +141,7 @@ = mconcat ["Action" =: ("DescribeMovingAddresses" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dmaFilters), toQuery (toQueryList "PublicIp" <$> _dmaPublicIPs), "NextToken" =: _dmaNextToken, "DryRun" =: _dmaDryRun, diff --git a/gen/Network/AWS/EC2/DescribeNetworkACLs.hs b/gen/Network/AWS/EC2/DescribeNetworkACLs.hs --- a/gen/Network/AWS/EC2/DescribeNetworkACLs.hs +++ b/gen/Network/AWS/EC2/DescribeNetworkACLs.hs @@ -168,7 +168,7 @@ toQuery DescribeNetworkACLs'{..} = mconcat ["Action" =: ("DescribeNetworkAcls" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dnaclFilters), toQuery (toQueryList "NetworkAclId" <$> _dnaclNetworkACLIds), diff --git a/gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs b/gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs --- a/gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs +++ b/gen/Network/AWS/EC2/DescribeNetworkInterfaceAttribute.hs @@ -122,7 +122,7 @@ = mconcat ["Action" =: ("DescribeNetworkInterfaceAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Attribute" =: _dniaAttribute, "DryRun" =: _dniaDryRun, "NetworkInterfaceId" =: _dniaNetworkInterfaceId] diff --git a/gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs b/gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs --- a/gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs +++ b/gen/Network/AWS/EC2/DescribeNetworkInterfaces.hs @@ -217,7 +217,7 @@ = mconcat ["Action" =: ("DescribeNetworkInterfaces" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "NetworkInterfaceId" <$> _dnisNetworkInterfaceIds), diff --git a/gen/Network/AWS/EC2/DescribePlacementGroups.hs b/gen/Network/AWS/EC2/DescribePlacementGroups.hs --- a/gen/Network/AWS/EC2/DescribePlacementGroups.hs +++ b/gen/Network/AWS/EC2/DescribePlacementGroups.hs @@ -122,7 +122,7 @@ = mconcat ["Action" =: ("DescribePlacementGroups" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dpgsFilters), toQuery (toQueryList "GroupName" <$> _dpgsGroupNames), diff --git a/gen/Network/AWS/EC2/DescribePrefixLists.hs b/gen/Network/AWS/EC2/DescribePrefixLists.hs --- a/gen/Network/AWS/EC2/DescribePrefixLists.hs +++ b/gen/Network/AWS/EC2/DescribePrefixLists.hs @@ -142,7 +142,7 @@ toQuery DescribePrefixLists'{..} = mconcat ["Action" =: ("DescribePrefixLists" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dplFilters), toQuery (toQueryList "PrefixListId" <$> _dplPrefixListIds), diff --git a/gen/Network/AWS/EC2/DescribeRegions.hs b/gen/Network/AWS/EC2/DescribeRegions.hs --- a/gen/Network/AWS/EC2/DescribeRegions.hs +++ b/gen/Network/AWS/EC2/DescribeRegions.hs @@ -115,7 +115,7 @@ toQuery DescribeRegions'{..} = mconcat ["Action" =: ("DescribeRegions" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "RegionName" <$> _drsRegionNames), toQuery (toQueryList "Filter" <$> _drsFilters), diff --git a/gen/Network/AWS/EC2/DescribeReservedInstances.hs b/gen/Network/AWS/EC2/DescribeReservedInstances.hs --- a/gen/Network/AWS/EC2/DescribeReservedInstances.hs +++ b/gen/Network/AWS/EC2/DescribeReservedInstances.hs @@ -181,7 +181,7 @@ = mconcat ["Action" =: ("DescribeReservedInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _driFilters), toQuery (toQueryList "ReservedInstancesId" <$> diff --git a/gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs b/gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs --- a/gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs +++ b/gen/Network/AWS/EC2/DescribeReservedInstancesListings.hs @@ -143,7 +143,7 @@ = mconcat ["Action" =: ("DescribeReservedInstancesListings" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filters" <$> _drilFilters), "ReservedInstancesId" =: _drilReservedInstancesId, "ReservedInstancesListingId" =: diff --git a/gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs b/gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs --- a/gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs +++ b/gen/Network/AWS/EC2/DescribeReservedInstancesModifications.hs @@ -168,7 +168,7 @@ ["Action" =: ("DescribeReservedInstancesModifications" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _drimFilters), toQuery (toQueryList "ReservedInstancesModificationId" <$> diff --git a/gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs b/gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs --- a/gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs +++ b/gen/Network/AWS/EC2/DescribeReservedInstancesOfferings.hs @@ -294,7 +294,7 @@ = mconcat ["Action" =: ("DescribeReservedInstancesOfferings" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "MaxDuration" =: _drioMaxDuration, "ProductDescription" =: _drioProductDescription, toQuery (toQueryList "Filter" <$> _drioFilters), diff --git a/gen/Network/AWS/EC2/DescribeRouteTables.hs b/gen/Network/AWS/EC2/DescribeRouteTables.hs --- a/gen/Network/AWS/EC2/DescribeRouteTables.hs +++ b/gen/Network/AWS/EC2/DescribeRouteTables.hs @@ -177,7 +177,7 @@ toQuery DescribeRouteTables'{..} = mconcat ["Action" =: ("DescribeRouteTables" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _drtsFilters), "DryRun" =: _drtsDryRun, toQuery diff --git a/gen/Network/AWS/EC2/DescribeSecurityGroups.hs b/gen/Network/AWS/EC2/DescribeSecurityGroups.hs --- a/gen/Network/AWS/EC2/DescribeSecurityGroups.hs +++ b/gen/Network/AWS/EC2/DescribeSecurityGroups.hs @@ -174,7 +174,7 @@ = mconcat ["Action" =: ("DescribeSecurityGroups" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dsgsFilters), toQuery (toQueryList "GroupName" <$> _dsgsGroupNames), diff --git a/gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs b/gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs --- a/gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs +++ b/gen/Network/AWS/EC2/DescribeSnapshotAttribute.hs @@ -121,7 +121,7 @@ = mconcat ["Action" =: ("DescribeSnapshotAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dsaDryRun, "SnapshotId" =: _dsaSnapshotId, "Attribute" =: _dsaAttribute] diff --git a/gen/Network/AWS/EC2/DescribeSnapshots.hs b/gen/Network/AWS/EC2/DescribeSnapshots.hs --- a/gen/Network/AWS/EC2/DescribeSnapshots.hs +++ b/gen/Network/AWS/EC2/DescribeSnapshots.hs @@ -252,7 +252,7 @@ toQuery DescribeSnapshots'{..} = mconcat ["Action" =: ("DescribeSnapshots" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Owner" <$> _dssOwnerIds), toQuery (toQueryList "Filter" <$> _dssFilters), "NextToken" =: _dssNextToken, diff --git a/gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs b/gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs --- a/gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs +++ b/gen/Network/AWS/EC2/DescribeSpotDatafeedSubscription.hs @@ -97,7 +97,7 @@ = mconcat ["Action" =: ("DescribeSpotDatafeedSubscription" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dsdsDryRun] -- | Contains the output of DescribeSpotDatafeedSubscription. diff --git a/gen/Network/AWS/EC2/DescribeSpotFleetInstances.hs b/gen/Network/AWS/EC2/DescribeSpotFleetInstances.hs --- a/gen/Network/AWS/EC2/DescribeSpotFleetInstances.hs +++ b/gen/Network/AWS/EC2/DescribeSpotFleetInstances.hs @@ -127,7 +127,7 @@ = mconcat ["Action" =: ("DescribeSpotFleetInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "NextToken" =: _dsfiNextToken, "DryRun" =: _dsfiDryRun, "MaxResults" =: _dsfiMaxResults, diff --git a/gen/Network/AWS/EC2/DescribeSpotFleetRequestHistory.hs b/gen/Network/AWS/EC2/DescribeSpotFleetRequestHistory.hs --- a/gen/Network/AWS/EC2/DescribeSpotFleetRequestHistory.hs +++ b/gen/Network/AWS/EC2/DescribeSpotFleetRequestHistory.hs @@ -159,7 +159,7 @@ = mconcat ["Action" =: ("DescribeSpotFleetRequestHistory" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "NextToken" =: _dsfrhNextToken, "EventType" =: _dsfrhEventType, "DryRun" =: _dsfrhDryRun, diff --git a/gen/Network/AWS/EC2/DescribeSpotFleetRequests.hs b/gen/Network/AWS/EC2/DescribeSpotFleetRequests.hs --- a/gen/Network/AWS/EC2/DescribeSpotFleetRequests.hs +++ b/gen/Network/AWS/EC2/DescribeSpotFleetRequests.hs @@ -123,7 +123,7 @@ = mconcat ["Action" =: ("DescribeSpotFleetRequests" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "SpotFleetRequestId" <$> _dsfrSpotFleetRequestIds), diff --git a/gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs b/gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs --- a/gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs +++ b/gen/Network/AWS/EC2/DescribeSpotInstanceRequests.hs @@ -242,7 +242,7 @@ = mconcat ["Action" =: ("DescribeSpotInstanceRequests" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dsirFilters), toQuery (toQueryList "SpotInstanceRequestId" <$> diff --git a/gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs b/gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs --- a/gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs +++ b/gen/Network/AWS/EC2/DescribeSpotPriceHistory.hs @@ -212,7 +212,7 @@ = mconcat ["Action" =: ("DescribeSpotPriceHistory" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "InstanceType" <$> _dsphInstanceTypes), "StartTime" =: _dsphStartTime, diff --git a/gen/Network/AWS/EC2/DescribeSubnets.hs b/gen/Network/AWS/EC2/DescribeSubnets.hs --- a/gen/Network/AWS/EC2/DescribeSubnets.hs +++ b/gen/Network/AWS/EC2/DescribeSubnets.hs @@ -148,7 +148,7 @@ toQuery DescribeSubnets'{..} = mconcat ["Action" =: ("DescribeSubnets" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "SubnetId" <$> _dsSubnetIds), toQuery (toQueryList "Filter" <$> _dsFilters), "DryRun" =: _dsDryRun] diff --git a/gen/Network/AWS/EC2/DescribeTags.hs b/gen/Network/AWS/EC2/DescribeTags.hs --- a/gen/Network/AWS/EC2/DescribeTags.hs +++ b/gen/Network/AWS/EC2/DescribeTags.hs @@ -149,7 +149,7 @@ toQuery DescribeTags'{..} = mconcat ["Action" =: ("DescribeTags" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dtFilters), "NextToken" =: _dtNextToken, "DryRun" =: _dtDryRun, "MaxResults" =: _dtMaxResults] diff --git a/gen/Network/AWS/EC2/DescribeVPCAttribute.hs b/gen/Network/AWS/EC2/DescribeVPCAttribute.hs --- a/gen/Network/AWS/EC2/DescribeVPCAttribute.hs +++ b/gen/Network/AWS/EC2/DescribeVPCAttribute.hs @@ -112,7 +112,7 @@ toQuery DescribeVPCAttribute'{..} = mconcat ["Action" =: ("DescribeVpcAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Attribute" =: _dvpcaAttribute, "DryRun" =: _dvpcaDryRun, "VpcId" =: _dvpcaVPCId] diff --git a/gen/Network/AWS/EC2/DescribeVPCClassicLink.hs b/gen/Network/AWS/EC2/DescribeVPCClassicLink.hs --- a/gen/Network/AWS/EC2/DescribeVPCClassicLink.hs +++ b/gen/Network/AWS/EC2/DescribeVPCClassicLink.hs @@ -126,7 +126,7 @@ = mconcat ["Action" =: ("DescribeVpcClassicLink" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dvclFilters), toQuery (toQueryList "VpcId" <$> _dvclVPCIds), "DryRun" =: _dvclDryRun] diff --git a/gen/Network/AWS/EC2/DescribeVPCEndpointServices.hs b/gen/Network/AWS/EC2/DescribeVPCEndpointServices.hs --- a/gen/Network/AWS/EC2/DescribeVPCEndpointServices.hs +++ b/gen/Network/AWS/EC2/DescribeVPCEndpointServices.hs @@ -117,7 +117,7 @@ = mconcat ["Action" =: ("DescribeVpcEndpointServices" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "NextToken" =: _dvesNextToken, "DryRun" =: _dvesDryRun, "MaxResults" =: _dvesMaxResults] diff --git a/gen/Network/AWS/EC2/DescribeVPCEndpoints.hs b/gen/Network/AWS/EC2/DescribeVPCEndpoints.hs --- a/gen/Network/AWS/EC2/DescribeVPCEndpoints.hs +++ b/gen/Network/AWS/EC2/DescribeVPCEndpoints.hs @@ -143,7 +143,7 @@ toQuery DescribeVPCEndpoints'{..} = mconcat ["Action" =: ("DescribeVpcEndpoints" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dvpceFilters), "NextToken" =: _dvpceNextToken, toQuery diff --git a/gen/Network/AWS/EC2/DescribeVPCPeeringConnections.hs b/gen/Network/AWS/EC2/DescribeVPCPeeringConnections.hs --- a/gen/Network/AWS/EC2/DescribeVPCPeeringConnections.hs +++ b/gen/Network/AWS/EC2/DescribeVPCPeeringConnections.hs @@ -154,7 +154,7 @@ = mconcat ["Action" =: ("DescribeVpcPeeringConnections" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dvpcpcFilters), toQuery (toQueryList "VpcPeeringConnectionId" <$> diff --git a/gen/Network/AWS/EC2/DescribeVPCs.hs b/gen/Network/AWS/EC2/DescribeVPCs.hs --- a/gen/Network/AWS/EC2/DescribeVPCs.hs +++ b/gen/Network/AWS/EC2/DescribeVPCs.hs @@ -136,7 +136,7 @@ toQuery DescribeVPCs'{..} = mconcat ["Action" =: ("DescribeVpcs" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dvsFilters), toQuery (toQueryList "VpcId" <$> _dvsVPCIds), "DryRun" =: _dvsDryRun] diff --git a/gen/Network/AWS/EC2/DescribeVPNConnections.hs b/gen/Network/AWS/EC2/DescribeVPNConnections.hs --- a/gen/Network/AWS/EC2/DescribeVPNConnections.hs +++ b/gen/Network/AWS/EC2/DescribeVPNConnections.hs @@ -156,7 +156,7 @@ = mconcat ["Action" =: ("DescribeVpnConnections" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dvpncFilters), toQuery (toQueryList "VpnConnectionId" <$> diff --git a/gen/Network/AWS/EC2/DescribeVPNGateways.hs b/gen/Network/AWS/EC2/DescribeVPNGateways.hs --- a/gen/Network/AWS/EC2/DescribeVPNGateways.hs +++ b/gen/Network/AWS/EC2/DescribeVPNGateways.hs @@ -145,7 +145,7 @@ toQuery DescribeVPNGateways'{..} = mconcat ["Action" =: ("DescribeVpnGateways" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dvgsFilters), toQuery (toQueryList "VpnGatewayId" <$> _dvgsVPNGatewayIds), diff --git a/gen/Network/AWS/EC2/DescribeVolumeAttribute.hs b/gen/Network/AWS/EC2/DescribeVolumeAttribute.hs --- a/gen/Network/AWS/EC2/DescribeVolumeAttribute.hs +++ b/gen/Network/AWS/EC2/DescribeVolumeAttribute.hs @@ -118,7 +118,7 @@ = mconcat ["Action" =: ("DescribeVolumeAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Attribute" =: _dvaAttribute, "DryRun" =: _dvaDryRun, "VolumeId" =: _dvaVolumeId] diff --git a/gen/Network/AWS/EC2/DescribeVolumeStatus.hs b/gen/Network/AWS/EC2/DescribeVolumeStatus.hs --- a/gen/Network/AWS/EC2/DescribeVolumeStatus.hs +++ b/gen/Network/AWS/EC2/DescribeVolumeStatus.hs @@ -221,7 +221,7 @@ toQuery DescribeVolumeStatus'{..} = mconcat ["Action" =: ("DescribeVolumeStatus" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _dvssFilters), toQuery (toQueryList "VolumeId" <$> _dvssVolumeIds), "NextToken" =: _dvssNextToken, diff --git a/gen/Network/AWS/EC2/DescribeVolumes.hs b/gen/Network/AWS/EC2/DescribeVolumes.hs --- a/gen/Network/AWS/EC2/DescribeVolumes.hs +++ b/gen/Network/AWS/EC2/DescribeVolumes.hs @@ -200,7 +200,7 @@ toQuery DescribeVolumes'{..} = mconcat ["Action" =: ("DescribeVolumes" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "Filter" <$> _desFilters), toQuery (toQueryList "VolumeId" <$> _desVolumeIds), "NextToken" =: _desNextToken, "DryRun" =: _desDryRun, diff --git a/gen/Network/AWS/EC2/DetachClassicLinkVPC.hs b/gen/Network/AWS/EC2/DetachClassicLinkVPC.hs --- a/gen/Network/AWS/EC2/DetachClassicLinkVPC.hs +++ b/gen/Network/AWS/EC2/DetachClassicLinkVPC.hs @@ -110,7 +110,7 @@ toQuery DetachClassicLinkVPC'{..} = mconcat ["Action" =: ("DetachClassicLinkVpc" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dclvDryRun, "InstanceId" =: _dclvInstanceId, "VpcId" =: _dclvVPCId] diff --git a/gen/Network/AWS/EC2/DetachInternetGateway.hs b/gen/Network/AWS/EC2/DetachInternetGateway.hs --- a/gen/Network/AWS/EC2/DetachInternetGateway.hs +++ b/gen/Network/AWS/EC2/DetachInternetGateway.hs @@ -102,7 +102,7 @@ toQuery DetachInternetGateway'{..} = mconcat ["Action" =: ("DetachInternetGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _digDryRun, "InternetGatewayId" =: _digInternetGatewayId, "VpcId" =: _digVPCId] diff --git a/gen/Network/AWS/EC2/DetachNetworkInterface.hs b/gen/Network/AWS/EC2/DetachNetworkInterface.hs --- a/gen/Network/AWS/EC2/DetachNetworkInterface.hs +++ b/gen/Network/AWS/EC2/DetachNetworkInterface.hs @@ -101,7 +101,7 @@ = mconcat ["Action" =: ("DetachNetworkInterface" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Force" =: _dniForce, "DryRun" =: _dniDryRun, "AttachmentId" =: _dniAttachmentId] diff --git a/gen/Network/AWS/EC2/DetachVPNGateway.hs b/gen/Network/AWS/EC2/DetachVPNGateway.hs --- a/gen/Network/AWS/EC2/DetachVPNGateway.hs +++ b/gen/Network/AWS/EC2/DetachVPNGateway.hs @@ -107,7 +107,7 @@ toQuery DetachVPNGateway'{..} = mconcat ["Action" =: ("DetachVpnGateway" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dvpngDryRun, "VpnGatewayId" =: _dvpngVPNGatewayId, "VpcId" =: _dvpngVPCId] diff --git a/gen/Network/AWS/EC2/DetachVolume.hs b/gen/Network/AWS/EC2/DetachVolume.hs --- a/gen/Network/AWS/EC2/DetachVolume.hs +++ b/gen/Network/AWS/EC2/DetachVolume.hs @@ -143,7 +143,7 @@ toQuery DetachVolume'{..} = mconcat ["Action" =: ("DetachVolume" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "InstanceId" =: _dvInstanceId, "Force" =: _dvForce, "Device" =: _dvDevice, "DryRun" =: _dvDryRun, "VolumeId" =: _dvVolumeId] diff --git a/gen/Network/AWS/EC2/DisableVGWRoutePropagation.hs b/gen/Network/AWS/EC2/DisableVGWRoutePropagation.hs --- a/gen/Network/AWS/EC2/DisableVGWRoutePropagation.hs +++ b/gen/Network/AWS/EC2/DisableVGWRoutePropagation.hs @@ -91,7 +91,7 @@ = mconcat ["Action" =: ("DisableVgwRoutePropagation" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "RouteTableId" =: _dvrpRouteTableId, "GatewayId" =: _dvrpGatewayId] diff --git a/gen/Network/AWS/EC2/DisableVPCClassicLink.hs b/gen/Network/AWS/EC2/DisableVPCClassicLink.hs --- a/gen/Network/AWS/EC2/DisableVPCClassicLink.hs +++ b/gen/Network/AWS/EC2/DisableVPCClassicLink.hs @@ -98,7 +98,7 @@ toQuery DisableVPCClassicLink'{..} = mconcat ["Action" =: ("DisableVpcClassicLink" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _dvpcclDryRun, "VpcId" =: _dvpcclVPCId] -- | /See:/ 'disableVPCClassicLinkResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/DisassociateAddress.hs b/gen/Network/AWS/EC2/DisassociateAddress.hs --- a/gen/Network/AWS/EC2/DisassociateAddress.hs +++ b/gen/Network/AWS/EC2/DisassociateAddress.hs @@ -107,7 +107,7 @@ toQuery DisassociateAddress'{..} = mconcat ["Action" =: ("DisassociateAddress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "AssociationId" =: _dasAssociationId, "PublicIp" =: _dasPublicIP, "DryRun" =: _dasDryRun] diff --git a/gen/Network/AWS/EC2/DisassociateRouteTable.hs b/gen/Network/AWS/EC2/DisassociateRouteTable.hs --- a/gen/Network/AWS/EC2/DisassociateRouteTable.hs +++ b/gen/Network/AWS/EC2/DisassociateRouteTable.hs @@ -99,7 +99,7 @@ = mconcat ["Action" =: ("DisassociateRouteTable" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _drtDryRun, "AssociationId" =: _drtAssociationId] diff --git a/gen/Network/AWS/EC2/EnableVGWRoutePropagation.hs b/gen/Network/AWS/EC2/EnableVGWRoutePropagation.hs --- a/gen/Network/AWS/EC2/EnableVGWRoutePropagation.hs +++ b/gen/Network/AWS/EC2/EnableVGWRoutePropagation.hs @@ -91,7 +91,7 @@ = mconcat ["Action" =: ("EnableVgwRoutePropagation" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "RouteTableId" =: _evrpRouteTableId, "GatewayId" =: _evrpGatewayId] diff --git a/gen/Network/AWS/EC2/EnableVPCClassicLink.hs b/gen/Network/AWS/EC2/EnableVPCClassicLink.hs --- a/gen/Network/AWS/EC2/EnableVPCClassicLink.hs +++ b/gen/Network/AWS/EC2/EnableVPCClassicLink.hs @@ -105,7 +105,7 @@ toQuery EnableVPCClassicLink'{..} = mconcat ["Action" =: ("EnableVpcClassicLink" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _evclDryRun, "VpcId" =: _evclVPCId] -- | /See:/ 'enableVPCClassicLinkResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/EnableVolumeIO.hs b/gen/Network/AWS/EC2/EnableVolumeIO.hs --- a/gen/Network/AWS/EC2/EnableVolumeIO.hs +++ b/gen/Network/AWS/EC2/EnableVolumeIO.hs @@ -90,7 +90,7 @@ toQuery EnableVolumeIO'{..} = mconcat ["Action" =: ("EnableVolumeIO" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _evioDryRun, "VolumeId" =: _evioVolumeId] -- | /See:/ 'enableVolumeIOResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/GetConsoleOutput.hs b/gen/Network/AWS/EC2/GetConsoleOutput.hs --- a/gen/Network/AWS/EC2/GetConsoleOutput.hs +++ b/gen/Network/AWS/EC2/GetConsoleOutput.hs @@ -119,7 +119,7 @@ toQuery GetConsoleOutput'{..} = mconcat ["Action" =: ("GetConsoleOutput" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _gcoDryRun, "InstanceId" =: _gcoInstanceId] diff --git a/gen/Network/AWS/EC2/GetPasswordData.hs b/gen/Network/AWS/EC2/GetPasswordData.hs --- a/gen/Network/AWS/EC2/GetPasswordData.hs +++ b/gen/Network/AWS/EC2/GetPasswordData.hs @@ -114,7 +114,7 @@ toQuery GetPasswordData'{..} = mconcat ["Action" =: ("GetPasswordData" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _gpdDryRun, "InstanceId" =: _gpdInstanceId] diff --git a/gen/Network/AWS/EC2/ImportImage.hs b/gen/Network/AWS/EC2/ImportImage.hs --- a/gen/Network/AWS/EC2/ImportImage.hs +++ b/gen/Network/AWS/EC2/ImportImage.hs @@ -206,7 +206,7 @@ toQuery ImportImage'{..} = mconcat ["Action" =: ("ImportImage" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Hypervisor" =: _impHypervisor, "Platform" =: _impPlatform, "ClientToken" =: _impClientToken, diff --git a/gen/Network/AWS/EC2/ImportInstance.hs b/gen/Network/AWS/EC2/ImportInstance.hs --- a/gen/Network/AWS/EC2/ImportInstance.hs +++ b/gen/Network/AWS/EC2/ImportInstance.hs @@ -129,7 +129,7 @@ toQuery ImportInstance'{..} = mconcat ["Action" =: ("ImportInstance" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "LaunchSpecification" =: _iiLaunchSpecification, toQuery (toQueryList "DiskImage" <$> _iiDiskImages), "Description" =: _iiDescription, diff --git a/gen/Network/AWS/EC2/ImportKeyPair.hs b/gen/Network/AWS/EC2/ImportKeyPair.hs --- a/gen/Network/AWS/EC2/ImportKeyPair.hs +++ b/gen/Network/AWS/EC2/ImportKeyPair.hs @@ -123,7 +123,7 @@ toQuery ImportKeyPair'{..} = mconcat ["Action" =: ("ImportKeyPair" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _ikpDryRun, "KeyName" =: _ikpKeyName, "PublicKeyMaterial" =: _ikpPublicKeyMaterial] diff --git a/gen/Network/AWS/EC2/ImportSnapshot.hs b/gen/Network/AWS/EC2/ImportSnapshot.hs --- a/gen/Network/AWS/EC2/ImportSnapshot.hs +++ b/gen/Network/AWS/EC2/ImportSnapshot.hs @@ -137,7 +137,7 @@ toQuery ImportSnapshot'{..} = mconcat ["Action" =: ("ImportSnapshot" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DiskContainer" =: _isDiskContainer, "ClientToken" =: _isClientToken, "RoleName" =: _isRoleName, diff --git a/gen/Network/AWS/EC2/ImportVolume.hs b/gen/Network/AWS/EC2/ImportVolume.hs --- a/gen/Network/AWS/EC2/ImportVolume.hs +++ b/gen/Network/AWS/EC2/ImportVolume.hs @@ -130,7 +130,7 @@ toQuery ImportVolume'{..} = mconcat ["Action" =: ("ImportVolume" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Description" =: _ivDescription, "DryRun" =: _ivDryRun, "AvailabilityZone" =: _ivAvailabilityZone, diff --git a/gen/Network/AWS/EC2/ModifyImageAttribute.hs b/gen/Network/AWS/EC2/ModifyImageAttribute.hs --- a/gen/Network/AWS/EC2/ModifyImageAttribute.hs +++ b/gen/Network/AWS/EC2/ModifyImageAttribute.hs @@ -171,7 +171,7 @@ toQuery ModifyImageAttribute'{..} = mconcat ["Action" =: ("ModifyImageAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Attribute" =: _miaAttribute, toQuery (toQueryList "UserId" <$> _miaUserIds), toQuery (toQueryList "UserGroup" <$> _miaUserGroups), diff --git a/gen/Network/AWS/EC2/ModifyInstanceAttribute.hs b/gen/Network/AWS/EC2/ModifyInstanceAttribute.hs --- a/gen/Network/AWS/EC2/ModifyInstanceAttribute.hs +++ b/gen/Network/AWS/EC2/ModifyInstanceAttribute.hs @@ -253,7 +253,7 @@ = mconcat ["Action" =: ("ModifyInstanceAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "GroupId" <$> _mGroups), "Attribute" =: _mAttribute, "SourceDestCheck" =: _mSourceDestCheck, diff --git a/gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs b/gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs --- a/gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs +++ b/gen/Network/AWS/EC2/ModifyNetworkInterfaceAttribute.hs @@ -143,7 +143,7 @@ = mconcat ["Action" =: ("ModifyNetworkInterfaceAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), toQuery (toQueryList "SecurityGroupId" <$> _mniaGroups), "SourceDestCheck" =: _mniaSourceDestCheck, diff --git a/gen/Network/AWS/EC2/ModifyReservedInstances.hs b/gen/Network/AWS/EC2/ModifyReservedInstances.hs --- a/gen/Network/AWS/EC2/ModifyReservedInstances.hs +++ b/gen/Network/AWS/EC2/ModifyReservedInstances.hs @@ -113,7 +113,7 @@ = mconcat ["Action" =: ("ModifyReservedInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "ClientToken" =: _mriClientToken, toQueryList "ReservedInstancesId" _mriReservedInstancesIds, diff --git a/gen/Network/AWS/EC2/ModifySnapshotAttribute.hs b/gen/Network/AWS/EC2/ModifySnapshotAttribute.hs --- a/gen/Network/AWS/EC2/ModifySnapshotAttribute.hs +++ b/gen/Network/AWS/EC2/ModifySnapshotAttribute.hs @@ -149,7 +149,7 @@ = mconcat ["Action" =: ("ModifySnapshotAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Attribute" =: _msaAttribute, "CreateVolumePermission" =: _msaCreateVolumePermission, diff --git a/gen/Network/AWS/EC2/ModifySpotFleetRequest.hs b/gen/Network/AWS/EC2/ModifySpotFleetRequest.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/ModifySpotFleetRequest.hs @@ -0,0 +1,168 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Network.AWS.EC2.ModifySpotFleetRequest +-- Copyright : (c) 2013-2015 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies the specified Spot fleet request. +-- +-- While the Spot fleet request is being modified, it is in the 'modifying' +-- state. +-- +-- To scale up your Spot fleet, increase its target capacity. The Spot +-- fleet launches the additional Spot instances according to the allocation +-- strategy for the Spot fleet request. If the allocation strategy is +-- 'lowestPrice', the Spot fleet launches instances using the Spot pool +-- with the lowest price. If the allocation strategy is 'diversified', the +-- Spot fleet distributes the instances across the Spot pools. +-- +-- To scale down your Spot fleet, decrease its target capacity. First, the +-- Spot fleet cancels any open bids that exceed the new target capacity. +-- You can request that the Spot fleet terminate Spot instances until the +-- size of the fleet no longer exceeds the new target capacity. If the +-- allocation strategy is 'lowestPrice', the Spot fleet terminates the +-- instances with the highest price per unit. If the allocation strategy is +-- 'diversified', the Spot fleet terminates instances across the Spot +-- pools. Alternatively, you can request that the Spot fleet keep the fleet +-- at its current size, but not replace any Spot instances that are +-- interrupted or that you terminate manually. +-- +-- /See:/ for ModifySpotFleetRequest. +module Network.AWS.EC2.ModifySpotFleetRequest + ( + -- * Creating a Request + modifySpotFleetRequest + , ModifySpotFleetRequest + -- * Request Lenses + , msfrTargetCapacity + , msfrExcessCapacityTerminationPolicy + , msfrSpotFleetRequestId + + -- * Destructuring the Response + , modifySpotFleetRequestResponse + , ModifySpotFleetRequestResponse + -- * Response Lenses + , msfrrsReturn + , msfrrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | Contains the parameters for ModifySpotFleetRequest. +-- +-- /See:/ 'modifySpotFleetRequest' smart constructor. +data ModifySpotFleetRequest = ModifySpotFleetRequest' + { _msfrTargetCapacity :: !(Maybe Int) + , _msfrExcessCapacityTerminationPolicy :: !(Maybe ExcessCapacityTerminationPolicy) + , _msfrSpotFleetRequestId :: !Text + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ModifySpotFleetRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'msfrTargetCapacity' +-- +-- * 'msfrExcessCapacityTerminationPolicy' +-- +-- * 'msfrSpotFleetRequestId' +modifySpotFleetRequest + :: Text -- ^ 'msfrSpotFleetRequestId' + -> ModifySpotFleetRequest +modifySpotFleetRequest pSpotFleetRequestId_ = + ModifySpotFleetRequest' + { _msfrTargetCapacity = Nothing + , _msfrExcessCapacityTerminationPolicy = Nothing + , _msfrSpotFleetRequestId = pSpotFleetRequestId_ + } + +-- | The size of the fleet. +msfrTargetCapacity :: Lens' ModifySpotFleetRequest (Maybe Int) +msfrTargetCapacity = lens _msfrTargetCapacity (\ s a -> s{_msfrTargetCapacity = a}); + +-- | Indicates whether running Spot instances should be terminated if the +-- target capacity of the Spot fleet request is decreased below the current +-- size of the Spot fleet. +msfrExcessCapacityTerminationPolicy :: Lens' ModifySpotFleetRequest (Maybe ExcessCapacityTerminationPolicy) +msfrExcessCapacityTerminationPolicy = lens _msfrExcessCapacityTerminationPolicy (\ s a -> s{_msfrExcessCapacityTerminationPolicy = a}); + +-- | The ID of the Spot fleet request. +msfrSpotFleetRequestId :: Lens' ModifySpotFleetRequest Text +msfrSpotFleetRequestId = lens _msfrSpotFleetRequestId (\ s a -> s{_msfrSpotFleetRequestId = a}); + +instance AWSRequest ModifySpotFleetRequest where + type Rs ModifySpotFleetRequest = + ModifySpotFleetRequestResponse + request = postQuery eC2 + response + = receiveXML + (\ s h x -> + ModifySpotFleetRequestResponse' <$> + (x .@? "return") <*> (pure (fromEnum s))) + +instance ToHeaders ModifySpotFleetRequest where + toHeaders = const mempty + +instance ToPath ModifySpotFleetRequest where + toPath = const "/" + +instance ToQuery ModifySpotFleetRequest where + toQuery ModifySpotFleetRequest'{..} + = mconcat + ["Action" =: + ("ModifySpotFleetRequest" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), + "TargetCapacity" =: _msfrTargetCapacity, + "ExcessCapacityTerminationPolicy" =: + _msfrExcessCapacityTerminationPolicy, + "SpotFleetRequestId" =: _msfrSpotFleetRequestId] + +-- | Contains the output of ModifySpotFleetRequest. +-- +-- /See:/ 'modifySpotFleetRequestResponse' smart constructor. +data ModifySpotFleetRequestResponse = ModifySpotFleetRequestResponse' + { _msfrrsReturn :: !(Maybe Bool) + , _msfrrsResponseStatus :: !Int + } deriving (Eq,Read,Show,Data,Typeable,Generic) + +-- | Creates a value of 'ModifySpotFleetRequestResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'msfrrsReturn' +-- +-- * 'msfrrsResponseStatus' +modifySpotFleetRequestResponse + :: Int -- ^ 'msfrrsResponseStatus' + -> ModifySpotFleetRequestResponse +modifySpotFleetRequestResponse pResponseStatus_ = + ModifySpotFleetRequestResponse' + { _msfrrsReturn = Nothing + , _msfrrsResponseStatus = pResponseStatus_ + } + +-- | Is 'true' if the request succeeds, and an error otherwise. +msfrrsReturn :: Lens' ModifySpotFleetRequestResponse (Maybe Bool) +msfrrsReturn = lens _msfrrsReturn (\ s a -> s{_msfrrsReturn = a}); + +-- | The response status code. +msfrrsResponseStatus :: Lens' ModifySpotFleetRequestResponse Int +msfrrsResponseStatus = lens _msfrrsResponseStatus (\ s a -> s{_msfrrsResponseStatus = a}); diff --git a/gen/Network/AWS/EC2/ModifySubnetAttribute.hs b/gen/Network/AWS/EC2/ModifySubnetAttribute.hs --- a/gen/Network/AWS/EC2/ModifySubnetAttribute.hs +++ b/gen/Network/AWS/EC2/ModifySubnetAttribute.hs @@ -88,7 +88,7 @@ toQuery ModifySubnetAttribute'{..} = mconcat ["Action" =: ("ModifySubnetAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "MapPublicIpOnLaunch" =: _msaMapPublicIPOnLaunch, "SubnetId" =: _msaSubnetId] diff --git a/gen/Network/AWS/EC2/ModifyVPCAttribute.hs b/gen/Network/AWS/EC2/ModifyVPCAttribute.hs --- a/gen/Network/AWS/EC2/ModifyVPCAttribute.hs +++ b/gen/Network/AWS/EC2/ModifyVPCAttribute.hs @@ -105,7 +105,7 @@ toQuery ModifyVPCAttribute'{..} = mconcat ["Action" =: ("ModifyVpcAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "EnableDnsHostnames" =: _mvaEnableDNSHostnames, "EnableDnsSupport" =: _mvaEnableDNSSupport, "VpcId" =: _mvaVPCId] diff --git a/gen/Network/AWS/EC2/ModifyVPCEndpoint.hs b/gen/Network/AWS/EC2/ModifyVPCEndpoint.hs --- a/gen/Network/AWS/EC2/ModifyVPCEndpoint.hs +++ b/gen/Network/AWS/EC2/ModifyVPCEndpoint.hs @@ -136,7 +136,7 @@ toQuery ModifyVPCEndpoint'{..} = mconcat ["Action" =: ("ModifyVpcEndpoint" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "PolicyDocument" =: _mvePolicyDocument, toQuery (toQueryList "RemoveRouteTableId" <$> diff --git a/gen/Network/AWS/EC2/ModifyVolumeAttribute.hs b/gen/Network/AWS/EC2/ModifyVolumeAttribute.hs --- a/gen/Network/AWS/EC2/ModifyVolumeAttribute.hs +++ b/gen/Network/AWS/EC2/ModifyVolumeAttribute.hs @@ -109,7 +109,7 @@ toQuery ModifyVolumeAttribute'{..} = mconcat ["Action" =: ("ModifyVolumeAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "AutoEnableIO" =: _mvaAutoEnableIO, "DryRun" =: _mvaDryRun, "VolumeId" =: _mvaVolumeId] diff --git a/gen/Network/AWS/EC2/MonitorInstances.hs b/gen/Network/AWS/EC2/MonitorInstances.hs --- a/gen/Network/AWS/EC2/MonitorInstances.hs +++ b/gen/Network/AWS/EC2/MonitorInstances.hs @@ -100,7 +100,7 @@ toQuery MonitorInstances'{..} = mconcat ["Action" =: ("MonitorInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _miDryRun, toQueryList "InstanceId" _miInstanceIds] diff --git a/gen/Network/AWS/EC2/MoveAddressToVPC.hs b/gen/Network/AWS/EC2/MoveAddressToVPC.hs --- a/gen/Network/AWS/EC2/MoveAddressToVPC.hs +++ b/gen/Network/AWS/EC2/MoveAddressToVPC.hs @@ -104,7 +104,7 @@ toQuery MoveAddressToVPC'{..} = mconcat ["Action" =: ("MoveAddressToVpc" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _matvDryRun, "PublicIp" =: _matvPublicIP] -- | /See:/ 'moveAddressToVPCResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs b/gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs --- a/gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs +++ b/gen/Network/AWS/EC2/PurchaseReservedInstancesOffering.hs @@ -138,7 +138,7 @@ = mconcat ["Action" =: ("PurchaseReservedInstancesOffering" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "LimitPrice" =: _prioLimitPrice, "DryRun" =: _prioDryRun, "ReservedInstancesOfferingId" =: diff --git a/gen/Network/AWS/EC2/RebootInstances.hs b/gen/Network/AWS/EC2/RebootInstances.hs --- a/gen/Network/AWS/EC2/RebootInstances.hs +++ b/gen/Network/AWS/EC2/RebootInstances.hs @@ -98,7 +98,7 @@ toQuery RebootInstances'{..} = mconcat ["Action" =: ("RebootInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _rebDryRun, toQueryList "InstanceId" _rebInstanceIds] diff --git a/gen/Network/AWS/EC2/RegisterImage.hs b/gen/Network/AWS/EC2/RegisterImage.hs --- a/gen/Network/AWS/EC2/RegisterImage.hs +++ b/gen/Network/AWS/EC2/RegisterImage.hs @@ -227,7 +227,7 @@ toQuery RegisterImage'{..} = mconcat ["Action" =: ("RegisterImage" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "VirtualizationType" =: _riVirtualizationType, "ImageLocation" =: _riImageLocation, "RamdiskId" =: _riRAMDiskId, diff --git a/gen/Network/AWS/EC2/RejectVPCPeeringConnection.hs b/gen/Network/AWS/EC2/RejectVPCPeeringConnection.hs --- a/gen/Network/AWS/EC2/RejectVPCPeeringConnection.hs +++ b/gen/Network/AWS/EC2/RejectVPCPeeringConnection.hs @@ -103,7 +103,7 @@ = mconcat ["Action" =: ("RejectVpcPeeringConnection" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _rvpcDryRun, "VpcPeeringConnectionId" =: _rvpcVPCPeeringConnectionId] diff --git a/gen/Network/AWS/EC2/ReleaseAddress.hs b/gen/Network/AWS/EC2/ReleaseAddress.hs --- a/gen/Network/AWS/EC2/ReleaseAddress.hs +++ b/gen/Network/AWS/EC2/ReleaseAddress.hs @@ -113,7 +113,7 @@ toQuery ReleaseAddress'{..} = mconcat ["Action" =: ("ReleaseAddress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "AllocationId" =: _raAllocationId, "PublicIp" =: _raPublicIP, "DryRun" =: _raDryRun] diff --git a/gen/Network/AWS/EC2/ReplaceNetworkACLAssociation.hs b/gen/Network/AWS/EC2/ReplaceNetworkACLAssociation.hs --- a/gen/Network/AWS/EC2/ReplaceNetworkACLAssociation.hs +++ b/gen/Network/AWS/EC2/ReplaceNetworkACLAssociation.hs @@ -114,7 +114,7 @@ = mconcat ["Action" =: ("ReplaceNetworkAclAssociation" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _rnaaDryRun, "AssociationId" =: _rnaaAssociationId, "NetworkAclId" =: _rnaaNetworkACLId] diff --git a/gen/Network/AWS/EC2/ReplaceNetworkACLEntry.hs b/gen/Network/AWS/EC2/ReplaceNetworkACLEntry.hs --- a/gen/Network/AWS/EC2/ReplaceNetworkACLEntry.hs +++ b/gen/Network/AWS/EC2/ReplaceNetworkACLEntry.hs @@ -167,7 +167,7 @@ = mconcat ["Action" =: ("ReplaceNetworkAclEntry" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Icmp" =: _rnaeICMPTypeCode, "PortRange" =: _rnaePortRange, "DryRun" =: _rnaeDryRun, diff --git a/gen/Network/AWS/EC2/ReplaceRoute.hs b/gen/Network/AWS/EC2/ReplaceRoute.hs --- a/gen/Network/AWS/EC2/ReplaceRoute.hs +++ b/gen/Network/AWS/EC2/ReplaceRoute.hs @@ -142,7 +142,7 @@ toQuery ReplaceRoute'{..} = mconcat ["Action" =: ("ReplaceRoute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "VpcPeeringConnectionId" =: _rrVPCPeeringConnectionId, "InstanceId" =: _rrInstanceId, diff --git a/gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs b/gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs --- a/gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs +++ b/gen/Network/AWS/EC2/ReplaceRouteTableAssociation.hs @@ -119,7 +119,7 @@ = mconcat ["Action" =: ("ReplaceRouteTableAssociation" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _rrtaDryRun, "AssociationId" =: _rrtaAssociationId, "RouteTableId" =: _rrtaRouteTableId] diff --git a/gen/Network/AWS/EC2/ReportInstanceStatus.hs b/gen/Network/AWS/EC2/ReportInstanceStatus.hs --- a/gen/Network/AWS/EC2/ReportInstanceStatus.hs +++ b/gen/Network/AWS/EC2/ReportInstanceStatus.hs @@ -169,7 +169,7 @@ toQuery ReportInstanceStatus'{..} = mconcat ["Action" =: ("ReportInstanceStatus" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "StartTime" =: _risStartTime, "EndTime" =: _risEndTime, "Description" =: _risDescription, diff --git a/gen/Network/AWS/EC2/RequestSpotFleet.hs b/gen/Network/AWS/EC2/RequestSpotFleet.hs --- a/gen/Network/AWS/EC2/RequestSpotFleet.hs +++ b/gen/Network/AWS/EC2/RequestSpotFleet.hs @@ -116,7 +116,7 @@ toQuery RequestSpotFleet'{..} = mconcat ["Action" =: ("RequestSpotFleet" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _rsfDryRun, "SpotFleetRequestConfig" =: _rsfSpotFleetRequestConfig] diff --git a/gen/Network/AWS/EC2/RequestSpotInstances.hs b/gen/Network/AWS/EC2/RequestSpotInstances.hs --- a/gen/Network/AWS/EC2/RequestSpotInstances.hs +++ b/gen/Network/AWS/EC2/RequestSpotInstances.hs @@ -33,6 +33,7 @@ requestSpotInstances , RequestSpotInstances -- * Request Lenses + , rsiBlockDurationMinutes , rsiClientToken , rsiInstanceCount , rsiLaunchSpecification @@ -62,7 +63,8 @@ -- -- /See:/ 'requestSpotInstances' smart constructor. data RequestSpotInstances = RequestSpotInstances' - { _rsiClientToken :: !(Maybe Text) + { _rsiBlockDurationMinutes :: !(Maybe Int) + , _rsiClientToken :: !(Maybe Text) , _rsiInstanceCount :: !(Maybe Int) , _rsiLaunchSpecification :: !(Maybe RequestSpotLaunchSpecification) , _rsiAvailabilityZoneGroup :: !(Maybe Text) @@ -78,6 +80,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'rsiBlockDurationMinutes' +-- -- * 'rsiClientToken' -- -- * 'rsiInstanceCount' @@ -102,7 +106,8 @@ -> RequestSpotInstances requestSpotInstances pSpotPrice_ = RequestSpotInstances' - { _rsiClientToken = Nothing + { _rsiBlockDurationMinutes = Nothing + , _rsiClientToken = Nothing , _rsiInstanceCount = Nothing , _rsiLaunchSpecification = Nothing , _rsiAvailabilityZoneGroup = Nothing @@ -114,6 +119,20 @@ , _rsiSpotPrice = pSpotPrice_ } +-- | The required duration for the Spot instances, in minutes. This value +-- must be a multiple of 60 (60, 120, 180, 240, 300, or 360). +-- +-- The duration period starts as soon as your Spot instance receives its +-- instance ID. At the end of the duration period, Amazon EC2 marks the +-- Spot instance for termination and provides a Spot instance termination +-- notice, which gives the instance a two-minute warning before it +-- terminates. +-- +-- Note that you can\'t specify an Availability Zone group or a launch +-- group if you specify a required duration. +rsiBlockDurationMinutes :: Lens' RequestSpotInstances (Maybe Int) +rsiBlockDurationMinutes = lens _rsiBlockDurationMinutes (\ s a -> s{_rsiBlockDurationMinutes = a}); + -- | Unique, case-sensitive identifier that you provide to ensure the -- idempotency of the request. For more information, see -- @@ -220,7 +239,8 @@ toQuery RequestSpotInstances'{..} = mconcat ["Action" =: ("RequestSpotInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), + "BlockDurationMinutes" =: _rsiBlockDurationMinutes, "ClientToken" =: _rsiClientToken, "InstanceCount" =: _rsiInstanceCount, "LaunchSpecification" =: _rsiLaunchSpecification, diff --git a/gen/Network/AWS/EC2/ResetImageAttribute.hs b/gen/Network/AWS/EC2/ResetImageAttribute.hs --- a/gen/Network/AWS/EC2/ResetImageAttribute.hs +++ b/gen/Network/AWS/EC2/ResetImageAttribute.hs @@ -103,7 +103,7 @@ toQuery ResetImageAttribute'{..} = mconcat ["Action" =: ("ResetImageAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _resDryRun, "ImageId" =: _resImageId, "Attribute" =: _resAttribute] diff --git a/gen/Network/AWS/EC2/ResetInstanceAttribute.hs b/gen/Network/AWS/EC2/ResetInstanceAttribute.hs --- a/gen/Network/AWS/EC2/ResetInstanceAttribute.hs +++ b/gen/Network/AWS/EC2/ResetInstanceAttribute.hs @@ -111,7 +111,7 @@ = mconcat ["Action" =: ("ResetInstanceAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _riaDryRun, "InstanceId" =: _riaInstanceId, "Attribute" =: _riaAttribute] diff --git a/gen/Network/AWS/EC2/ResetNetworkInterfaceAttribute.hs b/gen/Network/AWS/EC2/ResetNetworkInterfaceAttribute.hs --- a/gen/Network/AWS/EC2/ResetNetworkInterfaceAttribute.hs +++ b/gen/Network/AWS/EC2/ResetNetworkInterfaceAttribute.hs @@ -104,7 +104,7 @@ = mconcat ["Action" =: ("ResetNetworkInterfaceAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "SourceDestCheck" =: _rniaSourceDestCheck, "DryRun" =: _rniaDryRun, "NetworkInterfaceId" =: _rniaNetworkInterfaceId] diff --git a/gen/Network/AWS/EC2/ResetSnapshotAttribute.hs b/gen/Network/AWS/EC2/ResetSnapshotAttribute.hs --- a/gen/Network/AWS/EC2/ResetSnapshotAttribute.hs +++ b/gen/Network/AWS/EC2/ResetSnapshotAttribute.hs @@ -107,7 +107,7 @@ = mconcat ["Action" =: ("ResetSnapshotAttribute" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _rsaDryRun, "SnapshotId" =: _rsaSnapshotId, "Attribute" =: _rsaAttribute] diff --git a/gen/Network/AWS/EC2/RestoreAddressToClassic.hs b/gen/Network/AWS/EC2/RestoreAddressToClassic.hs --- a/gen/Network/AWS/EC2/RestoreAddressToClassic.hs +++ b/gen/Network/AWS/EC2/RestoreAddressToClassic.hs @@ -103,7 +103,7 @@ = mconcat ["Action" =: ("RestoreAddressToClassic" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _ratcDryRun, "PublicIp" =: _ratcPublicIP] -- | /See:/ 'restoreAddressToClassicResponse' smart constructor. diff --git a/gen/Network/AWS/EC2/RevokeSecurityGroupEgress.hs b/gen/Network/AWS/EC2/RevokeSecurityGroupEgress.hs --- a/gen/Network/AWS/EC2/RevokeSecurityGroupEgress.hs +++ b/gen/Network/AWS/EC2/RevokeSecurityGroupEgress.hs @@ -176,7 +176,7 @@ = mconcat ["Action" =: ("RevokeSecurityGroupEgress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "FromPort" =: _rsgeFromPort, toQuery (toQueryList "IpPermissions" <$> _rsgeIPPermissions), diff --git a/gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs b/gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs --- a/gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs +++ b/gen/Network/AWS/EC2/RevokeSecurityGroupIngress.hs @@ -190,7 +190,7 @@ = mconcat ["Action" =: ("RevokeSecurityGroupIngress" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "FromPort" =: _rsgiFromPort, toQuery (toQueryList "IpPermissions" <$> _rsgiIPPermissions), diff --git a/gen/Network/AWS/EC2/RunInstances.hs b/gen/Network/AWS/EC2/RunInstances.hs --- a/gen/Network/AWS/EC2/RunInstances.hs +++ b/gen/Network/AWS/EC2/RunInstances.hs @@ -400,7 +400,7 @@ toQuery RunInstances'{..} = mconcat ["Action" =: ("RunInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "AdditionalInfo" =: _rAdditionalInfo, toQuery (toQueryList "SecurityGroupId" <$> diff --git a/gen/Network/AWS/EC2/StartInstances.hs b/gen/Network/AWS/EC2/StartInstances.hs --- a/gen/Network/AWS/EC2/StartInstances.hs +++ b/gen/Network/AWS/EC2/StartInstances.hs @@ -126,7 +126,7 @@ toQuery StartInstances'{..} = mconcat ["Action" =: ("StartInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "AdditionalInfo" =: _sAdditionalInfo, "DryRun" =: _sDryRun, toQueryList "InstanceId" _sInstanceIds] diff --git a/gen/Network/AWS/EC2/StopInstances.hs b/gen/Network/AWS/EC2/StopInstances.hs --- a/gen/Network/AWS/EC2/StopInstances.hs +++ b/gen/Network/AWS/EC2/StopInstances.hs @@ -144,7 +144,7 @@ toQuery StopInstances'{..} = mconcat ["Action" =: ("StopInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "Force" =: _siForce, "DryRun" =: _siDryRun, toQueryList "InstanceId" _siInstanceIds] diff --git a/gen/Network/AWS/EC2/TerminateInstances.hs b/gen/Network/AWS/EC2/TerminateInstances.hs --- a/gen/Network/AWS/EC2/TerminateInstances.hs +++ b/gen/Network/AWS/EC2/TerminateInstances.hs @@ -121,7 +121,7 @@ toQuery TerminateInstances'{..} = mconcat ["Action" =: ("TerminateInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _tiDryRun, toQueryList "InstanceId" _tiInstanceIds] diff --git a/gen/Network/AWS/EC2/Types.hs b/gen/Network/AWS/EC2/Types.hs --- a/gen/Network/AWS/EC2/Types.hs +++ b/gen/Network/AWS/EC2/Types.hs @@ -74,6 +74,9 @@ -- * EventType , EventType (..) + -- * ExcessCapacityTerminationPolicy + , ExcessCapacityTerminationPolicy (..) + -- * ExportEnvironment , ExportEnvironment (..) @@ -1352,11 +1355,13 @@ , sfrcSpotFleetRequestId , sfrcSpotFleetRequestState , sfrcSpotFleetRequestConfig + , sfrcCreateTime -- * SpotFleetRequestConfigData , SpotFleetRequestConfigData , spotFleetRequestConfigData , sfrcdClientToken + , sfrcdExcessCapacityTerminationPolicy , sfrcdValidUntil , sfrcdTerminateInstancesWithExpiration , sfrcdValidFrom @@ -1372,6 +1377,8 @@ , sirInstanceId , sirStatus , sirState + , sirActualBlockHourlyPrice + , sirBlockDurationMinutes , sirProductDescription , sirSpotPrice , sirLaunchSpecification @@ -1671,14 +1678,14 @@ import Network.AWS.Prelude import Network.AWS.Sign.V4 --- | API version '2015-04-15' of the Amazon Elastic Compute Cloud SDK configuration. +-- | API version '2015-10-01' of the Amazon Elastic Compute Cloud SDK configuration. eC2 :: Service eC2 = Service { _svcAbbrev = "EC2" , _svcSigner = v4 , _svcPrefix = "ec2" - , _svcVersion = "2015-04-15" + , _svcVersion = "2015-10-01" , _svcEndpoint = defaultEndpoint eC2 , _svcTimeout = Just 70 , _svcCheck = statusSuccess diff --git a/gen/Network/AWS/EC2/Types/Product.hs b/gen/Network/AWS/EC2/Types/Product.hs --- a/gen/Network/AWS/EC2/Types/Product.hs +++ b/gen/Network/AWS/EC2/Types/Product.hs @@ -314,8 +314,7 @@ , _azMessages = Nothing } --- | The state of the Availability Zone ('available' | 'impaired' | --- 'unavailable'). +-- | The state of the Availability Zone. azState :: Lens' AvailabilityZone (Maybe AvailabilityZoneState) azState = lens _azState (\ s a -> s{_azState = a}); @@ -1657,11 +1656,15 @@ -- -- The following are the 'error' events. -- --- - 'iamFleetRoleInvalid' - Spot fleet did not have the required +-- - 'iamFleetRoleInvalid' - The Spot fleet did not have the required -- permissions either to launch or terminate an instance. -- +-- - 'launchSpecTemporarilyBlacklisted' - The configuration is not valid +-- and several attempts to launch instances have failed. For more +-- information, see the description of the event. +-- -- - 'spotFleetRequestConfigurationInvalid' - The configuration is not --- valid. For more information, see the description. +-- valid. For more information, see the description of the event. -- -- - 'spotInstanceCountLimitExceeded' - You\'ve reached the limit on the -- number of Spot instances that you can launch. @@ -1686,6 +1689,11 @@ -- indicates that the instances were terminated, if the request was -- created with 'TerminateInstancesWithExpiration' set. -- +-- - 'modify_in_progress' - A request to modify the Spot fleet request +-- was accepted and is in progress. +-- +-- - 'modify_successful' - The Spot fleet request was modified. +-- -- - 'price_update' - The bid price for a launch configuration was -- adjusted because it was too high. This change is permanent. -- @@ -4886,10 +4894,10 @@ , _lsPlacement = Nothing } --- | One or more security groups. To request an instance in a nondefault VPC, --- you must specify the ID of the security group. To request an instance in --- EC2-Classic or a default VPC, you can specify the name or the ID of the --- security group. +-- | One or more security groups. When requesting instances in a VPC, you +-- must specify the IDs of the security groups. When requesting instances +-- in EC2-Classic, you can specify the names or the IDs of the security +-- groups. lsSecurityGroups :: Lens' LaunchSpecification [GroupIdentifier] lsSecurityGroups = lens _lsSecurityGroups (\ s a -> s{_lsSecurityGroups = a}) . _Default . _Coerce; @@ -8245,10 +8253,10 @@ , _sflsPlacement = Nothing } --- | One or more security groups. To request an instance in a nondefault VPC, --- you must specify the ID of the security group. To request an instance in --- EC2-Classic or a default VPC, you can specify the name or the ID of the --- security group. +-- | One or more security groups. When requesting instances in a VPC, you +-- must specify the IDs of the security groups. When requesting instances +-- in EC2-Classic, you can specify the names or the IDs of the security +-- groups. sflsSecurityGroups :: Lens' SpotFleetLaunchSpecification [GroupIdentifier] sflsSecurityGroups = lens _sflsSecurityGroups (\ s a -> s{_sflsSecurityGroups = a}) . _Default . _Coerce; @@ -8424,6 +8432,7 @@ { _sfrcSpotFleetRequestId :: !Text , _sfrcSpotFleetRequestState :: !BatchState , _sfrcSpotFleetRequestConfig :: !SpotFleetRequestConfigData + , _sfrcCreateTime :: !ISO8601 } deriving (Eq,Read,Show,Data,Typeable,Generic) -- | Creates a value of 'SpotFleetRequestConfig' with the minimum fields required to make a request. @@ -8435,16 +8444,20 @@ -- * 'sfrcSpotFleetRequestState' -- -- * 'sfrcSpotFleetRequestConfig' +-- +-- * 'sfrcCreateTime' spotFleetRequestConfig :: Text -- ^ 'sfrcSpotFleetRequestId' -> BatchState -- ^ 'sfrcSpotFleetRequestState' -> SpotFleetRequestConfigData -- ^ 'sfrcSpotFleetRequestConfig' + -> UTCTime -- ^ 'sfrcCreateTime' -> SpotFleetRequestConfig -spotFleetRequestConfig pSpotFleetRequestId_ pSpotFleetRequestState_ pSpotFleetRequestConfig_ = +spotFleetRequestConfig pSpotFleetRequestId_ pSpotFleetRequestState_ pSpotFleetRequestConfig_ pCreateTime_ = SpotFleetRequestConfig' { _sfrcSpotFleetRequestId = pSpotFleetRequestId_ , _sfrcSpotFleetRequestState = pSpotFleetRequestState_ , _sfrcSpotFleetRequestConfig = pSpotFleetRequestConfig_ + , _sfrcCreateTime = _Time # pCreateTime_ } -- | The ID of the Spot fleet request. @@ -8459,18 +8472,24 @@ sfrcSpotFleetRequestConfig :: Lens' SpotFleetRequestConfig SpotFleetRequestConfigData sfrcSpotFleetRequestConfig = lens _sfrcSpotFleetRequestConfig (\ s a -> s{_sfrcSpotFleetRequestConfig = a}); +-- | The creation date and time of the request. +sfrcCreateTime :: Lens' SpotFleetRequestConfig UTCTime +sfrcCreateTime = lens _sfrcCreateTime (\ s a -> s{_sfrcCreateTime = a}) . _Time; + instance FromXML SpotFleetRequestConfig where parseXML x = SpotFleetRequestConfig' <$> (x .@ "spotFleetRequestId") <*> (x .@ "spotFleetRequestState") <*> (x .@ "spotFleetRequestConfig") + <*> (x .@ "createTime") -- | Describes the configuration of a Spot fleet request. -- -- /See:/ 'spotFleetRequestConfigData' smart constructor. data SpotFleetRequestConfigData = SpotFleetRequestConfigData' { _sfrcdClientToken :: !(Maybe Text) + , _sfrcdExcessCapacityTerminationPolicy :: !(Maybe ExcessCapacityTerminationPolicy) , _sfrcdValidUntil :: !(Maybe ISO8601) , _sfrcdTerminateInstancesWithExpiration :: !(Maybe Bool) , _sfrcdValidFrom :: !(Maybe ISO8601) @@ -8487,6 +8506,8 @@ -- -- * 'sfrcdClientToken' -- +-- * 'sfrcdExcessCapacityTerminationPolicy' +-- -- * 'sfrcdValidUntil' -- -- * 'sfrcdTerminateInstancesWithExpiration' @@ -8511,6 +8532,7 @@ spotFleetRequestConfigData pSpotPrice_ pTargetCapacity_ pIAMFleetRole_ pLaunchSpecifications_ = SpotFleetRequestConfigData' { _sfrcdClientToken = Nothing + , _sfrcdExcessCapacityTerminationPolicy = Nothing , _sfrcdValidUntil = Nothing , _sfrcdTerminateInstancesWithExpiration = Nothing , _sfrcdValidFrom = Nothing @@ -8528,6 +8550,12 @@ sfrcdClientToken :: Lens' SpotFleetRequestConfigData (Maybe Text) sfrcdClientToken = lens _sfrcdClientToken (\ s a -> s{_sfrcdClientToken = a}); +-- | Indicates whether running Spot instances should be terminated if the +-- target capacity of the Spot fleet request is decreased below the current +-- size of the Spot fleet. +sfrcdExcessCapacityTerminationPolicy :: Lens' SpotFleetRequestConfigData (Maybe ExcessCapacityTerminationPolicy) +sfrcdExcessCapacityTerminationPolicy = lens _sfrcdExcessCapacityTerminationPolicy (\ s a -> s{_sfrcdExcessCapacityTerminationPolicy = a}); + -- | The end date and time of the request, in UTC format (for example, -- /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). At this point, no new Spot instance -- requests are placed or enabled to fulfill the request. @@ -8545,7 +8573,7 @@ sfrcdValidFrom :: Lens' SpotFleetRequestConfigData (Maybe UTCTime) sfrcdValidFrom = lens _sfrcdValidFrom (\ s a -> s{_sfrcdValidFrom = a}) . mapping _Time; --- | Determines how to allocate the target capacity across the Spot pools +-- | Indicates how to allocate the target capacity across the Spot pools -- specified by the Spot fleet request. The default is 'lowestPrice'. sfrcdAllocationStrategy :: Lens' SpotFleetRequestConfigData (Maybe AllocationStrategy) sfrcdAllocationStrategy = lens _sfrcdAllocationStrategy (\ s a -> s{_sfrcdAllocationStrategy = a}); @@ -8574,8 +8602,10 @@ instance FromXML SpotFleetRequestConfigData where parseXML x = SpotFleetRequestConfigData' <$> - (x .@? "clientToken") <*> (x .@? "validUntil") <*> - (x .@? "terminateInstancesWithExpiration") + (x .@? "clientToken") <*> + (x .@? "excessCapacityTerminationPolicy") + <*> (x .@? "validUntil") + <*> (x .@? "terminateInstancesWithExpiration") <*> (x .@? "validFrom") <*> (x .@? "allocationStrategy") <*> (x .@ "spotPrice") @@ -8589,6 +8619,8 @@ toQuery SpotFleetRequestConfigData'{..} = mconcat ["ClientToken" =: _sfrcdClientToken, + "ExcessCapacityTerminationPolicy" =: + _sfrcdExcessCapacityTerminationPolicy, "ValidUntil" =: _sfrcdValidUntil, "TerminateInstancesWithExpiration" =: _sfrcdTerminateInstancesWithExpiration, @@ -8600,13 +8632,15 @@ toQueryList "LaunchSpecifications" _sfrcdLaunchSpecifications] --- | Describe a Spot instance request. +-- | Describes a Spot instance request. -- -- /See:/ 'spotInstanceRequest' smart constructor. data SpotInstanceRequest = SpotInstanceRequest' { _sirInstanceId :: !(Maybe Text) , _sirStatus :: !(Maybe SpotInstanceStatus) , _sirState :: !(Maybe SpotInstanceState) + , _sirActualBlockHourlyPrice :: !(Maybe Text) + , _sirBlockDurationMinutes :: !(Maybe Int) , _sirProductDescription :: !(Maybe RIProductDescription) , _sirSpotPrice :: !(Maybe Text) , _sirLaunchSpecification :: !(Maybe LaunchSpecification) @@ -8632,6 +8666,10 @@ -- -- * 'sirState' -- +-- * 'sirActualBlockHourlyPrice' +-- +-- * 'sirBlockDurationMinutes' +-- -- * 'sirProductDescription' -- -- * 'sirSpotPrice' @@ -8664,6 +8702,8 @@ { _sirInstanceId = Nothing , _sirStatus = Nothing , _sirState = Nothing + , _sirActualBlockHourlyPrice = Nothing + , _sirBlockDurationMinutes = Nothing , _sirProductDescription = Nothing , _sirSpotPrice = Nothing , _sirLaunchSpecification = Nothing @@ -8695,11 +8735,21 @@ sirState :: Lens' SpotInstanceRequest (Maybe SpotInstanceState) sirState = lens _sirState (\ s a -> s{_sirState = a}); +-- | If you specified a required duration and your request was fulfilled, +-- this is the fixed hourly price in effect for the Spot instance while it +-- runs. +sirActualBlockHourlyPrice :: Lens' SpotInstanceRequest (Maybe Text) +sirActualBlockHourlyPrice = lens _sirActualBlockHourlyPrice (\ s a -> s{_sirActualBlockHourlyPrice = a}); + +-- | The required duration for the Spot instance, in minutes. +sirBlockDurationMinutes :: Lens' SpotInstanceRequest (Maybe Int) +sirBlockDurationMinutes = lens _sirBlockDurationMinutes (\ s a -> s{_sirBlockDurationMinutes = a}); + -- | The product description associated with the Spot instance. sirProductDescription :: Lens' SpotInstanceRequest (Maybe RIProductDescription) sirProductDescription = lens _sirProductDescription (\ s a -> s{_sirProductDescription = a}); --- | The maximum hourly price (bid) for any Spot instance launched to fulfill +-- | The maximum hourly price (bid) for the Spot instance launched to fulfill -- the request. sirSpotPrice :: Lens' SpotInstanceRequest (Maybe Text) sirSpotPrice = lens _sirSpotPrice (\ s a -> s{_sirSpotPrice = a}); @@ -8719,10 +8769,10 @@ sirLaunchedAvailabilityZone = lens _sirLaunchedAvailabilityZone (\ s a -> s{_sirLaunchedAvailabilityZone = a}); -- | The end date of the request, in UTC format (for example, --- /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). If this is a one-time request, the --- request remains active until all instances launch, the request is --- canceled, or this date is reached. If the request is persistent, it --- remains active until it is canceled or this date is reached. +-- /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). If this is a one-time request, it +-- remains active until all instances launch, the request is canceled, or +-- this date is reached. If the request is persistent, it remains active +-- until it is canceled or this date is reached. sirValidUntil :: Lens' SpotInstanceRequest (Maybe UTCTime) sirValidUntil = lens _sirValidUntil (\ s a -> s{_sirValidUntil = a}) . mapping _Time; @@ -8744,11 +8794,8 @@ sirType = lens _sirType (\ s a -> s{_sirType = a}); -- | The start date of the request, in UTC format (for example, --- /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). If this is a one-time request, the --- request becomes active at this date and time and remains active until --- all instances launch, the request expires, or the request is canceled. --- If the request is persistent, the request becomes active at this date --- and time and remains active until it expires or is canceled. +-- /YYYY/-/MM/-/DD/T/HH/:/MM/:/SS/Z). The request becomes active at this +-- date and time. sirValidFrom :: Lens' SpotInstanceRequest (Maybe UTCTime) sirValidFrom = lens _sirValidFrom (\ s a -> s{_sirValidFrom = a}) . mapping _Time; @@ -8766,6 +8813,8 @@ = SpotInstanceRequest' <$> (x .@? "instanceId") <*> (x .@? "status") <*> (x .@? "state") + <*> (x .@? "actualBlockHourlyPrice") + <*> (x .@? "blockDurationMinutes") <*> (x .@? "productDescription") <*> (x .@? "spotPrice") <*> (x .@? "launchSpecification") diff --git a/gen/Network/AWS/EC2/Types/Sum.hs b/gen/Network/AWS/EC2/Types/Sum.hs --- a/gen/Network/AWS/EC2/Types/Sum.hs +++ b/gen/Network/AWS/EC2/Types/Sum.hs @@ -150,19 +150,28 @@ instance FromXML AttachmentStatus where parseXML = parseXMLText "AttachmentStatus" -data AvailabilityZoneState = - AZSAvailable +data AvailabilityZoneState + = AZSAvailable + | AZSImpaired + | AZSInformation + | AZSUnavailable deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic) instance FromText AvailabilityZoneState where parser = takeLowerText >>= \case "available" -> pure AZSAvailable + "impaired" -> pure AZSImpaired + "information" -> pure AZSInformation + "unavailable" -> pure AZSUnavailable e -> fromTextError $ "Failure parsing AvailabilityZoneState from value: '" <> e - <> "'. Accepted values: available" + <> "'. Accepted values: available, impaired, information, unavailable" instance ToText AvailabilityZoneState where toText = \case AZSAvailable -> "available" + AZSImpaired -> "impaired" + AZSInformation -> "information" + AZSUnavailable -> "unavailable" instance Hashable AvailabilityZoneState instance ToByteString AvailabilityZoneState @@ -178,6 +187,7 @@ | BSCancelledRunning | BSCancelledTerminating | BSFailed + | BSModifying | BSSubmitted deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic) @@ -188,9 +198,10 @@ "cancelled_running" -> pure BSCancelledRunning "cancelled_terminating" -> pure BSCancelledTerminating "failed" -> pure BSFailed + "modifying" -> pure BSModifying "submitted" -> pure BSSubmitted e -> fromTextError $ "Failure parsing BatchState from value: '" <> e - <> "'. Accepted values: active, cancelled, cancelled_running, cancelled_terminating, failed, submitted" + <> "'. Accepted values: active, cancelled, cancelled_running, cancelled_terminating, failed, modifying, submitted" instance ToText BatchState where toText = \case @@ -199,6 +210,7 @@ BSCancelledRunning -> "cancelled_running" BSCancelledTerminating -> "cancelled_terminating" BSFailed -> "failed" + BSModifying -> "modifying" BSSubmitted -> "submitted" instance Hashable BatchState @@ -553,6 +565,31 @@ instance FromXML EventType where parseXML = parseXMLText "EventType" + +data ExcessCapacityTerminationPolicy + = ECTPDefault + | ECTPNoTermination + deriving (Eq,Ord,Read,Show,Enum,Data,Typeable,Generic) + +instance FromText ExcessCapacityTerminationPolicy where + parser = takeLowerText >>= \case + "default" -> pure ECTPDefault + "notermination" -> pure ECTPNoTermination + e -> fromTextError $ "Failure parsing ExcessCapacityTerminationPolicy from value: '" <> e + <> "'. Accepted values: default, noTermination" + +instance ToText ExcessCapacityTerminationPolicy where + toText = \case + ECTPDefault -> "default" + ECTPNoTermination -> "noTermination" + +instance Hashable ExcessCapacityTerminationPolicy +instance ToByteString ExcessCapacityTerminationPolicy +instance ToQuery ExcessCapacityTerminationPolicy +instance ToHeader ExcessCapacityTerminationPolicy + +instance FromXML ExcessCapacityTerminationPolicy where + parseXML = parseXMLText "ExcessCapacityTerminationPolicy" data ExportEnvironment = Citrix diff --git a/gen/Network/AWS/EC2/UnassignPrivateIPAddresses.hs b/gen/Network/AWS/EC2/UnassignPrivateIPAddresses.hs --- a/gen/Network/AWS/EC2/UnassignPrivateIPAddresses.hs +++ b/gen/Network/AWS/EC2/UnassignPrivateIPAddresses.hs @@ -92,7 +92,7 @@ = mconcat ["Action" =: ("UnassignPrivateIpAddresses" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "NetworkInterfaceId" =: _upiaNetworkInterfaceId, toQueryList "PrivateIpAddress" _upiaPrivateIPAddresses] diff --git a/gen/Network/AWS/EC2/UnmonitorInstances.hs b/gen/Network/AWS/EC2/UnmonitorInstances.hs --- a/gen/Network/AWS/EC2/UnmonitorInstances.hs +++ b/gen/Network/AWS/EC2/UnmonitorInstances.hs @@ -101,7 +101,7 @@ toQuery UnmonitorInstances'{..} = mconcat ["Action" =: ("UnmonitorInstances" :: ByteString), - "Version" =: ("2015-04-15" :: ByteString), + "Version" =: ("2015-10-01" :: ByteString), "DryRun" =: _uiDryRun, toQueryList "InstanceId" _uiInstanceIds] diff --git a/test/Test/AWS/Gen/EC2.hs b/test/Test/AWS/Gen/EC2.hs --- a/test/Test/AWS/Gen/EC2.hs +++ b/test/Test/AWS/Gen/EC2.hs @@ -343,6 +343,9 @@ -- , testDescribeExportTasks $ -- describeExportTasks -- +-- , testModifySpotFleetRequest $ +-- modifySpotFleetRequest +-- -- , testDetachVPNGateway $ -- detachVPNGateway -- @@ -892,6 +895,9 @@ -- , testDescribeExportTasksResponse $ -- describeExportTasksResponse -- +-- , testModifySpotFleetRequestResponse $ +-- modifySpotFleetRequestResponse +-- -- , testDetachVPNGatewayResponse $ -- detachVPNGatewayResponse -- @@ -1653,6 +1659,11 @@ "DescribeExportTasks" "fixture/DescribeExportTasks.yaml" +testModifySpotFleetRequest :: ModifySpotFleetRequest -> TestTree +testModifySpotFleetRequest = req + "ModifySpotFleetRequest" + "fixture/ModifySpotFleetRequest.yaml" + testDetachVPNGateway :: DetachVPNGateway -> TestTree testDetachVPNGateway = req "DetachVPNGateway" @@ -2774,6 +2785,13 @@ "fixture/DescribeExportTasksResponse.proto" eC2 (Proxy :: Proxy DescribeExportTasks) + +testModifySpotFleetRequestResponse :: ModifySpotFleetRequestResponse -> TestTree +testModifySpotFleetRequestResponse = res + "ModifySpotFleetRequestResponse" + "fixture/ModifySpotFleetRequestResponse.proto" + eC2 + (Proxy :: Proxy ModifySpotFleetRequest) testDetachVPNGatewayResponse :: DetachVPNGatewayResponse -> TestTree testDetachVPNGatewayResponse = res