diff --git a/README.md b/README.md --- a/README.md +++ b/README.md @@ -8,7 +8,7 @@ ## Version -`1.5.0` +`1.6.0` ## 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.5.0 +version: 1.6.0 synopsis: Amazon Elastic Compute Cloud SDK. homepage: https://github.com/brendanhay/amazonka bug-reports: https://github.com/brendanhay/amazonka/issues @@ -7,7 +7,7 @@ license-file: LICENSE author: Brendan Hay maintainer: Brendan Hay -copyright: Copyright (c) 2013-2017 Brendan Hay +copyright: Copyright (c) 2013-2018 Brendan Hay category: Network, AWS, Cloud, Distributed Computing build-type: Simple cabal-version: >= 1.10 @@ -46,6 +46,7 @@ exposed-modules: Network.AWS.EC2 , Network.AWS.EC2.AcceptReservedInstancesExchangeQuote + , Network.AWS.EC2.AcceptVPCEndpointConnections , Network.AWS.EC2.AcceptVPCPeeringConnection , Network.AWS.EC2.AllocateAddress , Network.AWS.EC2.AllocateHosts @@ -81,12 +82,15 @@ , Network.AWS.EC2.CreateDefaultSubnet , Network.AWS.EC2.CreateDefaultVPC , Network.AWS.EC2.CreateEgressOnlyInternetGateway + , Network.AWS.EC2.CreateFleet , Network.AWS.EC2.CreateFlowLogs , Network.AWS.EC2.CreateFpgaImage , Network.AWS.EC2.CreateImage , Network.AWS.EC2.CreateInstanceExportTask , Network.AWS.EC2.CreateInternetGateway , Network.AWS.EC2.CreateKeyPair + , Network.AWS.EC2.CreateLaunchTemplate + , Network.AWS.EC2.CreateLaunchTemplateVersion , Network.AWS.EC2.CreateNatGateway , Network.AWS.EC2.CreateNetworkACL , Network.AWS.EC2.CreateNetworkACLEntry @@ -103,6 +107,8 @@ , Network.AWS.EC2.CreateTags , Network.AWS.EC2.CreateVPC , Network.AWS.EC2.CreateVPCEndpoint + , Network.AWS.EC2.CreateVPCEndpointConnectionNotification + , Network.AWS.EC2.CreateVPCEndpointServiceConfiguration , Network.AWS.EC2.CreateVPCPeeringConnection , Network.AWS.EC2.CreateVPNConnection , Network.AWS.EC2.CreateVPNConnectionRoute @@ -111,10 +117,13 @@ , Network.AWS.EC2.DeleteCustomerGateway , Network.AWS.EC2.DeleteDHCPOptions , Network.AWS.EC2.DeleteEgressOnlyInternetGateway + , Network.AWS.EC2.DeleteFleets , Network.AWS.EC2.DeleteFlowLogs , Network.AWS.EC2.DeleteFpgaImage , Network.AWS.EC2.DeleteInternetGateway , Network.AWS.EC2.DeleteKeyPair + , Network.AWS.EC2.DeleteLaunchTemplate + , Network.AWS.EC2.DeleteLaunchTemplateVersions , Network.AWS.EC2.DeleteNatGateway , Network.AWS.EC2.DeleteNetworkACL , Network.AWS.EC2.DeleteNetworkACLEntry @@ -129,6 +138,8 @@ , Network.AWS.EC2.DeleteSubnet , Network.AWS.EC2.DeleteTags , Network.AWS.EC2.DeleteVPC + , Network.AWS.EC2.DeleteVPCEndpointConnectionNotifications + , Network.AWS.EC2.DeleteVPCEndpointServiceConfigurations , Network.AWS.EC2.DeleteVPCEndpoints , Network.AWS.EC2.DeleteVPCPeeringConnection , Network.AWS.EC2.DeleteVPNConnection @@ -138,6 +149,7 @@ , Network.AWS.EC2.DeregisterImage , Network.AWS.EC2.DescribeAccountAttributes , Network.AWS.EC2.DescribeAddresses + , Network.AWS.EC2.DescribeAggregateIdFormat , Network.AWS.EC2.DescribeAvailabilityZones , Network.AWS.EC2.DescribeBundleTasks , Network.AWS.EC2.DescribeClassicLinkInstances @@ -147,6 +159,9 @@ , Network.AWS.EC2.DescribeEgressOnlyInternetGateways , Network.AWS.EC2.DescribeElasticGpus , Network.AWS.EC2.DescribeExportTasks + , Network.AWS.EC2.DescribeFleetHistory + , Network.AWS.EC2.DescribeFleetInstances + , Network.AWS.EC2.DescribeFleets , Network.AWS.EC2.DescribeFlowLogs , Network.AWS.EC2.DescribeFpgaImageAttribute , Network.AWS.EC2.DescribeFpgaImages @@ -161,10 +176,13 @@ , Network.AWS.EC2.DescribeImportImageTasks , Network.AWS.EC2.DescribeImportSnapshotTasks , Network.AWS.EC2.DescribeInstanceAttribute + , Network.AWS.EC2.DescribeInstanceCreditSpecifications , Network.AWS.EC2.DescribeInstanceStatus , Network.AWS.EC2.DescribeInstances , Network.AWS.EC2.DescribeInternetGateways , Network.AWS.EC2.DescribeKeyPairs + , Network.AWS.EC2.DescribeLaunchTemplateVersions + , Network.AWS.EC2.DescribeLaunchTemplates , Network.AWS.EC2.DescribeMovingAddresses , Network.AWS.EC2.DescribeNatGateways , Network.AWS.EC2.DescribeNetworkACLs @@ -173,6 +191,7 @@ , Network.AWS.EC2.DescribeNetworkInterfaces , Network.AWS.EC2.DescribePlacementGroups , Network.AWS.EC2.DescribePrefixLists + , Network.AWS.EC2.DescribePrincipalIdFormat , Network.AWS.EC2.DescribeRegions , Network.AWS.EC2.DescribeReservedInstances , Network.AWS.EC2.DescribeReservedInstancesListings @@ -197,6 +216,10 @@ , Network.AWS.EC2.DescribeVPCAttribute , Network.AWS.EC2.DescribeVPCClassicLink , Network.AWS.EC2.DescribeVPCClassicLinkDNSSupport + , Network.AWS.EC2.DescribeVPCEndpointConnectionNotifications + , Network.AWS.EC2.DescribeVPCEndpointConnections + , Network.AWS.EC2.DescribeVPCEndpointServiceConfigurations + , Network.AWS.EC2.DescribeVPCEndpointServicePermissions , Network.AWS.EC2.DescribeVPCEndpointServices , Network.AWS.EC2.DescribeVPCEndpoints , Network.AWS.EC2.DescribeVPCPeeringConnections @@ -227,6 +250,7 @@ , Network.AWS.EC2.GetConsoleOutput , Network.AWS.EC2.GetConsoleScreenshot , Network.AWS.EC2.GetHostReservationPurchasePreview + , Network.AWS.EC2.GetLaunchTemplateData , Network.AWS.EC2.GetPasswordData , Network.AWS.EC2.GetReservedInstancesExchangeQuote , Network.AWS.EC2.ImportImage @@ -234,13 +258,16 @@ , Network.AWS.EC2.ImportKeyPair , Network.AWS.EC2.ImportSnapshot , Network.AWS.EC2.ImportVolume + , Network.AWS.EC2.ModifyFleet , Network.AWS.EC2.ModifyFpgaImageAttribute , Network.AWS.EC2.ModifyHosts , Network.AWS.EC2.ModifyIdFormat , Network.AWS.EC2.ModifyIdentityIdFormat , Network.AWS.EC2.ModifyImageAttribute , Network.AWS.EC2.ModifyInstanceAttribute + , Network.AWS.EC2.ModifyInstanceCreditSpecification , Network.AWS.EC2.ModifyInstancePlacement + , Network.AWS.EC2.ModifyLaunchTemplate , Network.AWS.EC2.ModifyNetworkInterfaceAttribute , Network.AWS.EC2.ModifyReservedInstances , Network.AWS.EC2.ModifySnapshotAttribute @@ -248,6 +275,9 @@ , Network.AWS.EC2.ModifySubnetAttribute , Network.AWS.EC2.ModifyVPCAttribute , Network.AWS.EC2.ModifyVPCEndpoint + , Network.AWS.EC2.ModifyVPCEndpointConnectionNotification + , Network.AWS.EC2.ModifyVPCEndpointServiceConfiguration + , Network.AWS.EC2.ModifyVPCEndpointServicePermissions , Network.AWS.EC2.ModifyVPCPeeringConnectionOptions , Network.AWS.EC2.ModifyVPCTenancy , Network.AWS.EC2.ModifyVolume @@ -259,6 +289,7 @@ , Network.AWS.EC2.PurchaseScheduledInstances , Network.AWS.EC2.RebootInstances , Network.AWS.EC2.RegisterImage + , Network.AWS.EC2.RejectVPCEndpointConnections , Network.AWS.EC2.RejectVPCPeeringConnection , Network.AWS.EC2.ReleaseAddress , Network.AWS.EC2.ReleaseHosts @@ -297,7 +328,7 @@ , Network.AWS.EC2.Types.Sum build-depends: - amazonka-core == 1.5.0.* + amazonka-core == 1.6.0.* , base >= 4.7 && < 5 test-suite amazonka-ec2-test @@ -317,8 +348,8 @@ , Test.AWS.EC2.Internal build-depends: - amazonka-core == 1.5.0.* - , amazonka-test == 1.5.0.* + amazonka-core == 1.6.0.* + , amazonka-test == 1.6.0.* , amazonka-ec2 , base , bytestring diff --git a/fixture/AcceptVPCEndpointConnections.yaml b/fixture/AcceptVPCEndpointConnections.yaml new file mode 100644 --- /dev/null +++ b/fixture/AcceptVPCEndpointConnections.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/AcceptVPCEndpointConnectionsResponse.proto b/fixture/AcceptVPCEndpointConnectionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/AcceptVPCEndpointConnectionsResponse.proto diff --git a/fixture/AssociateSubnetCIdRBlock.yaml b/fixture/AssociateSubnetCIdRBlock.yaml deleted file mode 100644 --- a/fixture/AssociateSubnetCIdRBlock.yaml +++ /dev/null diff --git a/fixture/AssociateSubnetCIdRBlockResponse.proto b/fixture/AssociateSubnetCIdRBlockResponse.proto deleted file mode 100644 --- a/fixture/AssociateSubnetCIdRBlockResponse.proto +++ /dev/null diff --git a/fixture/AssociateVPCCIdRBlock.yaml b/fixture/AssociateVPCCIdRBlock.yaml deleted file mode 100644 --- a/fixture/AssociateVPCCIdRBlock.yaml +++ /dev/null diff --git a/fixture/AssociateVPCCIdRBlockResponse.proto b/fixture/AssociateVPCCIdRBlockResponse.proto deleted file mode 100644 --- a/fixture/AssociateVPCCIdRBlockResponse.proto +++ /dev/null diff --git a/fixture/CreateFleet.yaml b/fixture/CreateFleet.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateFleet.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateFleetResponse.proto b/fixture/CreateFleetResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateFleetResponse.proto diff --git a/fixture/CreateLaunchTemplate.yaml b/fixture/CreateLaunchTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateLaunchTemplate.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateLaunchTemplateResponse.proto b/fixture/CreateLaunchTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateLaunchTemplateResponse.proto diff --git a/fixture/CreateLaunchTemplateVersion.yaml b/fixture/CreateLaunchTemplateVersion.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateLaunchTemplateVersion.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateLaunchTemplateVersionResponse.proto b/fixture/CreateLaunchTemplateVersionResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateLaunchTemplateVersionResponse.proto diff --git a/fixture/CreateVPCEndpointConnectionNotification.yaml b/fixture/CreateVPCEndpointConnectionNotification.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateVPCEndpointConnectionNotification.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateVPCEndpointConnectionNotificationResponse.proto b/fixture/CreateVPCEndpointConnectionNotificationResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateVPCEndpointConnectionNotificationResponse.proto diff --git a/fixture/CreateVPCEndpointServiceConfiguration.yaml b/fixture/CreateVPCEndpointServiceConfiguration.yaml new file mode 100644 --- /dev/null +++ b/fixture/CreateVPCEndpointServiceConfiguration.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/CreateVPCEndpointServiceConfigurationResponse.proto b/fixture/CreateVPCEndpointServiceConfigurationResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/CreateVPCEndpointServiceConfigurationResponse.proto diff --git a/fixture/DeleteFleets.yaml b/fixture/DeleteFleets.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteFleets.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeleteFleetsResponse.proto b/fixture/DeleteFleetsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteFleetsResponse.proto diff --git a/fixture/DeleteLaunchTemplate.yaml b/fixture/DeleteLaunchTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteLaunchTemplate.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeleteLaunchTemplateResponse.proto b/fixture/DeleteLaunchTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteLaunchTemplateResponse.proto diff --git a/fixture/DeleteLaunchTemplateVersions.yaml b/fixture/DeleteLaunchTemplateVersions.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteLaunchTemplateVersions.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeleteLaunchTemplateVersionsResponse.proto b/fixture/DeleteLaunchTemplateVersionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteLaunchTemplateVersionsResponse.proto diff --git a/fixture/DeleteVPCEndpointConnectionNotifications.yaml b/fixture/DeleteVPCEndpointConnectionNotifications.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteVPCEndpointConnectionNotifications.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeleteVPCEndpointConnectionNotificationsResponse.proto b/fixture/DeleteVPCEndpointConnectionNotificationsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteVPCEndpointConnectionNotificationsResponse.proto diff --git a/fixture/DeleteVPCEndpointServiceConfigurations.yaml b/fixture/DeleteVPCEndpointServiceConfigurations.yaml new file mode 100644 --- /dev/null +++ b/fixture/DeleteVPCEndpointServiceConfigurations.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DeleteVPCEndpointServiceConfigurationsResponse.proto b/fixture/DeleteVPCEndpointServiceConfigurationsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DeleteVPCEndpointServiceConfigurationsResponse.proto diff --git a/fixture/DescribeAggregateIdFormat.yaml b/fixture/DescribeAggregateIdFormat.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeAggregateIdFormat.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeAggregateIdFormatResponse.proto b/fixture/DescribeAggregateIdFormatResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeAggregateIdFormatResponse.proto diff --git a/fixture/DescribeFleetHistory.yaml b/fixture/DescribeFleetHistory.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeFleetHistory.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeFleetHistoryResponse.proto b/fixture/DescribeFleetHistoryResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeFleetHistoryResponse.proto diff --git a/fixture/DescribeFleetInstances.yaml b/fixture/DescribeFleetInstances.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeFleetInstances.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeFleetInstancesResponse.proto b/fixture/DescribeFleetInstancesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeFleetInstancesResponse.proto diff --git a/fixture/DescribeFleets.yaml b/fixture/DescribeFleets.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeFleets.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeFleetsResponse.proto b/fixture/DescribeFleetsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeFleetsResponse.proto diff --git a/fixture/DescribeInstanceCreditSpecifications.yaml b/fixture/DescribeInstanceCreditSpecifications.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeInstanceCreditSpecifications.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeInstanceCreditSpecificationsResponse.proto b/fixture/DescribeInstanceCreditSpecificationsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeInstanceCreditSpecificationsResponse.proto diff --git a/fixture/DescribeLaunchTemplateVersions.yaml b/fixture/DescribeLaunchTemplateVersions.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeLaunchTemplateVersions.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeLaunchTemplateVersionsResponse.proto b/fixture/DescribeLaunchTemplateVersionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeLaunchTemplateVersionsResponse.proto diff --git a/fixture/DescribeLaunchTemplates.yaml b/fixture/DescribeLaunchTemplates.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeLaunchTemplates.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeLaunchTemplatesResponse.proto b/fixture/DescribeLaunchTemplatesResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeLaunchTemplatesResponse.proto diff --git a/fixture/DescribePrincipalIdFormat.yaml b/fixture/DescribePrincipalIdFormat.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribePrincipalIdFormat.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribePrincipalIdFormatResponse.proto b/fixture/DescribePrincipalIdFormatResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribePrincipalIdFormatResponse.proto diff --git a/fixture/DescribeVPCEndpointConnectionNotifications.yaml b/fixture/DescribeVPCEndpointConnectionNotifications.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointConnectionNotifications.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeVPCEndpointConnectionNotificationsResponse.proto b/fixture/DescribeVPCEndpointConnectionNotificationsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointConnectionNotificationsResponse.proto diff --git a/fixture/DescribeVPCEndpointConnections.yaml b/fixture/DescribeVPCEndpointConnections.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointConnections.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeVPCEndpointConnectionsResponse.proto b/fixture/DescribeVPCEndpointConnectionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointConnectionsResponse.proto diff --git a/fixture/DescribeVPCEndpointServiceConfigurations.yaml b/fixture/DescribeVPCEndpointServiceConfigurations.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointServiceConfigurations.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeVPCEndpointServiceConfigurationsResponse.proto b/fixture/DescribeVPCEndpointServiceConfigurationsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointServiceConfigurationsResponse.proto diff --git a/fixture/DescribeVPCEndpointServicePermissions.yaml b/fixture/DescribeVPCEndpointServicePermissions.yaml new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointServicePermissions.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/DescribeVPCEndpointServicePermissionsResponse.proto b/fixture/DescribeVPCEndpointServicePermissionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/DescribeVPCEndpointServicePermissionsResponse.proto diff --git a/fixture/DisassociateSubnetCIdRBlock.yaml b/fixture/DisassociateSubnetCIdRBlock.yaml deleted file mode 100644 --- a/fixture/DisassociateSubnetCIdRBlock.yaml +++ /dev/null diff --git a/fixture/DisassociateSubnetCIdRBlockResponse.proto b/fixture/DisassociateSubnetCIdRBlockResponse.proto deleted file mode 100644 --- a/fixture/DisassociateSubnetCIdRBlockResponse.proto +++ /dev/null diff --git a/fixture/DisassociateVPCCIdRBlock.yaml b/fixture/DisassociateVPCCIdRBlock.yaml deleted file mode 100644 --- a/fixture/DisassociateVPCCIdRBlock.yaml +++ /dev/null diff --git a/fixture/DisassociateVPCCIdRBlockResponse.proto b/fixture/DisassociateVPCCIdRBlockResponse.proto deleted file mode 100644 --- a/fixture/DisassociateVPCCIdRBlockResponse.proto +++ /dev/null diff --git a/fixture/GetLaunchTemplateData.yaml b/fixture/GetLaunchTemplateData.yaml new file mode 100644 --- /dev/null +++ b/fixture/GetLaunchTemplateData.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/GetLaunchTemplateDataResponse.proto b/fixture/GetLaunchTemplateDataResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/GetLaunchTemplateDataResponse.proto diff --git a/fixture/ModifyFleet.yaml b/fixture/ModifyFleet.yaml new file mode 100644 --- /dev/null +++ b/fixture/ModifyFleet.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ModifyFleetResponse.proto b/fixture/ModifyFleetResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ModifyFleetResponse.proto diff --git a/fixture/ModifyInstanceCreditSpecification.yaml b/fixture/ModifyInstanceCreditSpecification.yaml new file mode 100644 --- /dev/null +++ b/fixture/ModifyInstanceCreditSpecification.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ModifyInstanceCreditSpecificationResponse.proto b/fixture/ModifyInstanceCreditSpecificationResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ModifyInstanceCreditSpecificationResponse.proto diff --git a/fixture/ModifyLaunchTemplate.yaml b/fixture/ModifyLaunchTemplate.yaml new file mode 100644 --- /dev/null +++ b/fixture/ModifyLaunchTemplate.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ModifyLaunchTemplateResponse.proto b/fixture/ModifyLaunchTemplateResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ModifyLaunchTemplateResponse.proto diff --git a/fixture/ModifyVPCEndpointConnectionNotification.yaml b/fixture/ModifyVPCEndpointConnectionNotification.yaml new file mode 100644 --- /dev/null +++ b/fixture/ModifyVPCEndpointConnectionNotification.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ModifyVPCEndpointConnectionNotificationResponse.proto b/fixture/ModifyVPCEndpointConnectionNotificationResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ModifyVPCEndpointConnectionNotificationResponse.proto diff --git a/fixture/ModifyVPCEndpointServiceConfiguration.yaml b/fixture/ModifyVPCEndpointServiceConfiguration.yaml new file mode 100644 --- /dev/null +++ b/fixture/ModifyVPCEndpointServiceConfiguration.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ModifyVPCEndpointServiceConfigurationResponse.proto b/fixture/ModifyVPCEndpointServiceConfigurationResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ModifyVPCEndpointServiceConfigurationResponse.proto diff --git a/fixture/ModifyVPCEndpointServicePermissions.yaml b/fixture/ModifyVPCEndpointServicePermissions.yaml new file mode 100644 --- /dev/null +++ b/fixture/ModifyVPCEndpointServicePermissions.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/ModifyVPCEndpointServicePermissionsResponse.proto b/fixture/ModifyVPCEndpointServicePermissionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/ModifyVPCEndpointServicePermissionsResponse.proto diff --git a/fixture/RejectVPCEndpointConnections.yaml b/fixture/RejectVPCEndpointConnections.yaml new file mode 100644 --- /dev/null +++ b/fixture/RejectVPCEndpointConnections.yaml @@ -0,0 +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=? + Host: ec2.us-east-1.amazonaws.com + Content-Type: application/x-www-form-urlencoded; charset=utf-8 + X-Amz-Content-SHA256: abcdef + X-Amz-Date: 20091028T223200Z +body: + '' diff --git a/fixture/RejectVPCEndpointConnectionsResponse.proto b/fixture/RejectVPCEndpointConnectionsResponse.proto new file mode 100644 --- /dev/null +++ b/fixture/RejectVPCEndpointConnectionsResponse.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 @@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.EC2 --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -13,7 +13,7 @@ -- -- __Amazon Elastic Compute Cloud__ -- --- Amazon Elastic Compute Cloud (Amazon EC2) provides resizable computing capacity in the Amazon Web Services (AWS) cloud. Using Amazon EC2 eliminates your need to invest in hardware up front, so you can develop and deploy applications faster. +-- Amazon Elastic Compute Cloud (Amazon EC2) provides resizable computing capacity in the AWS Cloud. Using Amazon EC2 eliminates the need to invest in hardware up front, so you can develop and deploy applications faster. -- module Network.AWS.EC2 ( @@ -71,6 +71,9 @@ -- ** ExportTaskCompleted , exportTaskCompleted + -- ** VPCPeeringConnectionDeleted + , vpcPeeringConnectionDeleted + -- ** VPNConnectionAvailable , vpnConnectionAvailable @@ -122,6 +125,12 @@ -- ** CreateNetworkInterfacePermission , module Network.AWS.EC2.CreateNetworkInterfacePermission + -- ** DeleteLaunchTemplate + , module Network.AWS.EC2.DeleteLaunchTemplate + + -- ** RejectVPCEndpointConnections + , module Network.AWS.EC2.RejectVPCEndpointConnections + -- ** CreateVPNGateway , module Network.AWS.EC2.CreateVPNGateway @@ -134,6 +143,9 @@ -- ** DescribeSecurityGroupReferences , module Network.AWS.EC2.DescribeSecurityGroupReferences + -- ** DeleteFleets + , module Network.AWS.EC2.DeleteFleets + -- ** DescribeTags (Paginated) , module Network.AWS.EC2.DescribeTags @@ -164,6 +176,9 @@ -- ** DetachVolume , module Network.AWS.EC2.DetachVolume + -- ** DescribeInstanceCreditSpecifications + , module Network.AWS.EC2.DescribeInstanceCreditSpecifications + -- ** CancelBundleTask , module Network.AWS.EC2.CancelBundleTask @@ -188,6 +203,9 @@ -- ** DeregisterImage , module Network.AWS.EC2.DeregisterImage + -- ** DeleteVPCEndpointConnectionNotifications + , module Network.AWS.EC2.DeleteVPCEndpointConnectionNotifications + -- ** ModifyNetworkInterfaceAttribute , module Network.AWS.EC2.ModifyNetworkInterfaceAttribute @@ -227,12 +245,21 @@ -- ** StopInstances , module Network.AWS.EC2.StopInstances + -- ** ModifyLaunchTemplate + , module Network.AWS.EC2.ModifyLaunchTemplate + + -- ** ModifyVPCEndpointConnectionNotification + , module Network.AWS.EC2.ModifyVPCEndpointConnectionNotification + -- ** DescribeInternetGateways , module Network.AWS.EC2.DescribeInternetGateways -- ** DisableVPCClassicLink , module Network.AWS.EC2.DisableVPCClassicLink + -- ** DeleteLaunchTemplateVersions + , module Network.AWS.EC2.DeleteLaunchTemplateVersions + -- ** BundleInstance , module Network.AWS.EC2.BundleInstance @@ -323,6 +350,9 @@ -- ** CreateCustomerGateway , module Network.AWS.EC2.CreateCustomerGateway + -- ** DescribeFleets + , module Network.AWS.EC2.DescribeFleets + -- ** DeleteSecurityGroup , module Network.AWS.EC2.DeleteSecurityGroup @@ -338,6 +368,9 @@ -- ** DescribeFlowLogs , module Network.AWS.EC2.DescribeFlowLogs + -- ** DescribeVPCEndpointConnectionNotifications + , module Network.AWS.EC2.DescribeVPCEndpointConnectionNotifications + -- ** RunInstances , module Network.AWS.EC2.RunInstances @@ -356,6 +389,9 @@ -- ** DescribeConversionTasks , module Network.AWS.EC2.DescribeConversionTasks + -- ** CreateLaunchTemplateVersion + , module Network.AWS.EC2.CreateLaunchTemplateVersion + -- ** DisableVPCClassicLinkDNSSupport , module Network.AWS.EC2.DisableVPCClassicLinkDNSSupport @@ -365,6 +401,12 @@ -- ** CreateFpgaImage , module Network.AWS.EC2.CreateFpgaImage + -- ** AcceptVPCEndpointConnections + , module Network.AWS.EC2.AcceptVPCEndpointConnections + + -- ** GetLaunchTemplateData + , module Network.AWS.EC2.GetLaunchTemplateData + -- ** AllocateAddress , module Network.AWS.EC2.AllocateAddress @@ -413,6 +455,9 @@ -- ** RegisterImage , module Network.AWS.EC2.RegisterImage + -- ** ModifyFleet + , module Network.AWS.EC2.ModifyFleet + -- ** RevokeSecurityGroupIngress , module Network.AWS.EC2.RevokeSecurityGroupIngress @@ -425,6 +470,9 @@ -- ** EnableVPCClassicLinkDNSSupport , module Network.AWS.EC2.EnableVPCClassicLinkDNSSupport + -- ** DescribeVPCEndpointConnections + , module Network.AWS.EC2.DescribeVPCEndpointConnections + -- ** ModifyReservedInstances , module Network.AWS.EC2.ModifyReservedInstances @@ -443,9 +491,27 @@ -- ** MoveAddressToVPC , module Network.AWS.EC2.MoveAddressToVPC + -- ** DescribeFleetInstances + , module Network.AWS.EC2.DescribeFleetInstances + + -- ** DescribeLaunchTemplateVersions + , module Network.AWS.EC2.DescribeLaunchTemplateVersions + + -- ** ModifyInstanceCreditSpecification + , module Network.AWS.EC2.ModifyInstanceCreditSpecification + + -- ** DescribePrincipalIdFormat + , module Network.AWS.EC2.DescribePrincipalIdFormat + -- ** DeleteNetworkACL , module Network.AWS.EC2.DeleteNetworkACL + -- ** CreateLaunchTemplate + , module Network.AWS.EC2.CreateLaunchTemplate + + -- ** CreateVPCEndpointConnectionNotification + , module Network.AWS.EC2.CreateVPCEndpointConnectionNotification + -- ** DeleteNetworkInterfacePermission , module Network.AWS.EC2.DeleteNetworkInterfacePermission @@ -554,6 +620,9 @@ -- ** CancelExportTask , module Network.AWS.EC2.CancelExportTask + -- ** CreateVPCEndpointServiceConfiguration + , module Network.AWS.EC2.CreateVPCEndpointServiceConfiguration + -- ** CreateDefaultVPC , module Network.AWS.EC2.CreateDefaultVPC @@ -572,6 +641,9 @@ -- ** CreatePlacementGroup , module Network.AWS.EC2.CreatePlacementGroup + -- ** DescribeAggregateIdFormat + , module Network.AWS.EC2.DescribeAggregateIdFormat + -- ** DescribeSnapshots (Paginated) , module Network.AWS.EC2.DescribeSnapshots @@ -599,6 +671,9 @@ -- ** CreateVPNConnection , module Network.AWS.EC2.CreateVPNConnection + -- ** CreateFleet + , module Network.AWS.EC2.CreateFleet + -- ** DeleteNatGateway , module Network.AWS.EC2.DeleteNatGateway @@ -638,6 +713,9 @@ -- ** CreateRoute , module Network.AWS.EC2.CreateRoute + -- ** DescribeVPCEndpointServiceConfigurations + , module Network.AWS.EC2.DescribeVPCEndpointServiceConfigurations + -- ** DeleteSnapshot , module Network.AWS.EC2.DeleteSnapshot @@ -689,7 +767,7 @@ -- ** ModifySnapshotAttribute , module Network.AWS.EC2.ModifySnapshotAttribute - -- ** DescribeIAMInstanceProfileAssociations + -- ** DescribeIAMInstanceProfileAssociations (Paginated) , module Network.AWS.EC2.DescribeIAMInstanceProfileAssociations -- ** CreateSnapshot @@ -704,6 +782,9 @@ -- ** AttachVPNGateway , module Network.AWS.EC2.AttachVPNGateway + -- ** ModifyVPCEndpointServicePermissions + , module Network.AWS.EC2.ModifyVPCEndpointServicePermissions + -- ** CreateDHCPOptions , module Network.AWS.EC2.CreateDHCPOptions @@ -719,6 +800,9 @@ -- ** RebootInstances , module Network.AWS.EC2.RebootInstances + -- ** ModifyVPCEndpointServiceConfiguration + , module Network.AWS.EC2.ModifyVPCEndpointServiceConfiguration + -- ** UnassignIPv6Addresses , module Network.AWS.EC2.UnassignIPv6Addresses @@ -743,6 +827,9 @@ -- ** DescribeKeyPairs , module Network.AWS.EC2.DescribeKeyPairs + -- ** DescribeLaunchTemplates + , module Network.AWS.EC2.DescribeLaunchTemplates + -- ** CreateVPNConnectionRoute , module Network.AWS.EC2.CreateVPNConnectionRoute @@ -785,6 +872,9 @@ -- ** DescribeNetworkInterfacePermissions , module Network.AWS.EC2.DescribeNetworkInterfacePermissions + -- ** DescribeVPCEndpointServicePermissions + , module Network.AWS.EC2.DescribeVPCEndpointServicePermissions + -- ** DeleteDHCPOptions , module Network.AWS.EC2.DeleteDHCPOptions @@ -821,6 +911,9 @@ -- ** ModifyVPCAttribute , module Network.AWS.EC2.ModifyVPCAttribute + -- ** DescribeFleetHistory + , module Network.AWS.EC2.DescribeFleetHistory + -- ** DescribeImages , module Network.AWS.EC2.DescribeImages @@ -839,7 +932,10 @@ -- ** DeleteVolume , module Network.AWS.EC2.DeleteVolume - -- ** DescribeSpotFleetInstances + -- ** DeleteVPCEndpointServiceConfigurations + , module Network.AWS.EC2.DeleteVPCEndpointServiceConfigurations + + -- ** DescribeSpotFleetInstances (Paginated) , module Network.AWS.EC2.DescribeSpotFleetInstances -- * Types @@ -889,6 +985,12 @@ -- ** CancelSpotInstanceRequestState , CancelSpotInstanceRequestState (..) + -- ** ConnectionNotificationState + , ConnectionNotificationState (..) + + -- ** ConnectionNotificationType + , ConnectionNotificationType (..) + -- ** ContainerFormat , ContainerFormat (..) @@ -901,6 +1003,12 @@ -- ** DatafeedSubscriptionState , DatafeedSubscriptionState (..) + -- ** DefaultTargetCapacityType + , DefaultTargetCapacityType (..) + + -- ** DeleteFleetErrorCode + , DeleteFleetErrorCode (..) + -- ** DeviceType , DeviceType (..) @@ -931,6 +1039,18 @@ -- ** ExportTaskState , ExportTaskState (..) + -- ** FleetActivityStatus + , FleetActivityStatus (..) + + -- ** FleetEventType + , FleetEventType (..) + + -- ** FleetExcessCapacityTerminationPolicy + , FleetExcessCapacityTerminationPolicy (..) + + -- ** FleetStateCode + , FleetStateCode (..) + -- ** FleetType , FleetType (..) @@ -985,12 +1105,18 @@ -- ** InterfacePermissionType , InterfacePermissionType (..) + -- ** LaunchTemplateErrorCode + , LaunchTemplateErrorCode (..) + -- ** ListingState , ListingState (..) -- ** ListingStatus , ListingStatus (..) + -- ** MarketType + , MarketType (..) + -- ** MonitoringState , MonitoringState (..) @@ -1036,6 +1162,9 @@ -- ** PlatformValues , PlatformValues (..) + -- ** PrincipalType + , PrincipalType (..) + -- ** ProductCodeValues , ProductCodeValues (..) @@ -1078,6 +1207,9 @@ -- ** Scope , Scope (..) + -- ** ServiceState + , ServiceState (..) + -- ** ServiceType , ServiceType (..) @@ -1090,6 +1222,12 @@ -- ** SnapshotState , SnapshotState (..) + -- ** SpotAllocationStrategy + , SpotAllocationStrategy (..) + + -- ** SpotInstanceInterruptionBehavior + , SpotInstanceInterruptionBehavior (..) + -- ** SpotInstanceState , SpotInstanceState (..) @@ -1123,6 +1261,9 @@ -- ** TrafficType , TrafficType (..) + -- ** UnsuccessfulInstanceCreditSpecificationErrorCode + , UnsuccessfulInstanceCreditSpecificationErrorCode (..) + -- ** VPCAttributeName , VPCAttributeName (..) @@ -1201,7 +1342,14 @@ , aNetworkInterfaceId , aPrivateIPAddress , aPublicIP + , aTags + -- ** AllowedPrincipal + , AllowedPrincipal + , allowedPrincipal + , apPrincipalType + , apPrincipal + -- ** AttributeBooleanValue , AttributeBooleanValue , attributeBooleanValue @@ -1262,6 +1410,18 @@ , bteCode , bteMessage + -- ** CPUOptions + , CPUOptions + , cpuOptions + , coCoreCount + , coThreadsPerCore + + -- ** CPUOptionsRequest + , CPUOptionsRequest + , cpuOptionsRequest + , corCoreCount + , corThreadsPerCore + -- ** CancelSpotFleetRequestsError , CancelSpotFleetRequestsError , cancelSpotFleetRequestsError @@ -1324,16 +1484,27 @@ , cdUploadEnd , cdComment + -- ** ConnectionNotification + , ConnectionNotification + , connectionNotification + , cnConnectionNotificationState + , cnConnectionNotificationType + , cnConnectionEvents + , cnServiceId + , cnVPCEndpointId + , cnConnectionNotificationId + , cnConnectionNotificationARN + -- ** ConversionTask , ConversionTask , conversionTask , ctImportInstance + , ctState , ctStatusMessage , ctImportVolume + , ctConversionTaskId , ctExpirationTime , ctTags - , ctConversionTaskId - , ctState -- ** CreateVolumePermission , CreateVolumePermission @@ -1347,6 +1518,16 @@ , cvpmRemove , cvpmAdd + -- ** CreditSpecification + , CreditSpecification + , creditSpecification + , csCPUCredits + + -- ** CreditSpecificationRequest + , CreditSpecificationRequest + , creditSpecificationRequest + , csrCPUCredits + -- ** CustomerGateway , CustomerGateway , customerGateway @@ -1376,6 +1557,40 @@ , deHostedZoneId , deDNSName + -- ** DeleteFleetError + , DeleteFleetError + , deleteFleetError + , dfeCode + , dfeMessage + + -- ** DeleteFleetErrorItem + , DeleteFleetErrorItem + , deleteFleetErrorItem + , dfeiError + , dfeiFleetId + + -- ** DeleteFleetSuccessItem + , DeleteFleetSuccessItem + , deleteFleetSuccessItem + , dfsiCurrentFleetState + , dfsiPreviousFleetState + , dfsiFleetId + + -- ** DeleteLaunchTemplateVersionsResponseErrorItem + , DeleteLaunchTemplateVersionsResponseErrorItem + , deleteLaunchTemplateVersionsResponseErrorItem + , dltvreiLaunchTemplateName + , dltvreiLaunchTemplateId + , dltvreiVersionNumber + , dltvreiResponseError + + -- ** DeleteLaunchTemplateVersionsResponseSuccessItem + , DeleteLaunchTemplateVersionsResponseSuccessItem + , deleteLaunchTemplateVersionsResponseSuccessItem + , dltvrsiLaunchTemplateName + , dltvrsiLaunchTemplateId + , dltvrsiVersionNumber + -- ** DiskImage , DiskImage , diskImage @@ -1386,10 +1601,10 @@ -- ** DiskImageDescription , DiskImageDescription , diskImageDescription + , dSize , dChecksum , dFormat , dImportManifestURL - , dSize -- ** DiskImageDetail , DiskImageDetail @@ -1411,6 +1626,7 @@ , ebdVolumeSize , ebdIOPS , ebdEncrypted + , ebdKMSKeyId , ebdVolumeType , ebdSnapshotId @@ -1452,6 +1668,11 @@ , elasticGpuSpecification , egsType + -- ** ElasticGpuSpecificationResponse + , ElasticGpuSpecificationResponse + , elasticGpuSpecificationResponse + , eType + -- ** ElasticGpus , ElasticGpus , elasticGpus @@ -1501,6 +1722,71 @@ , fValues , fName + -- ** FleetData + , FleetData + , fleetData + , fdClientToken + , fdTargetCapacitySpecification + , fdSpotOptions + , fdExcessCapacityTerminationPolicy + , fdFleetState + , fdLaunchTemplateConfigs + , fdValidUntil + , fdTerminateInstancesWithExpiration + , fdFulfilledCapacity + , fdType + , fdValidFrom + , fdReplaceUnhealthyInstances + , fdFulfilledOnDemandCapacity + , fdFleetId + , fdCreateTime + , fdTags + , fdActivityStatus + + -- ** FleetLaunchTemplateConfig + , FleetLaunchTemplateConfig + , fleetLaunchTemplateConfig + , fltcOverrides + , fltcLaunchTemplateSpecification + + -- ** FleetLaunchTemplateConfigRequest + , FleetLaunchTemplateConfigRequest + , fleetLaunchTemplateConfigRequest + , fltcrOverrides + , fltcrLaunchTemplateSpecification + + -- ** FleetLaunchTemplateOverrides + , FleetLaunchTemplateOverrides + , fleetLaunchTemplateOverrides + , fltoWeightedCapacity + , fltoSubnetId + , fltoInstanceType + , fltoAvailabilityZone + , fltoMaxPrice + + -- ** FleetLaunchTemplateOverridesRequest + , FleetLaunchTemplateOverridesRequest + , fleetLaunchTemplateOverridesRequest + , fltorWeightedCapacity + , fltorSubnetId + , fltorInstanceType + , fltorAvailabilityZone + , fltorMaxPrice + + -- ** FleetLaunchTemplateSpecification + , FleetLaunchTemplateSpecification + , fleetLaunchTemplateSpecification + , fltsLaunchTemplateName + , fltsLaunchTemplateId + , fltsVersion + + -- ** FleetLaunchTemplateSpecificationRequest + , FleetLaunchTemplateSpecificationRequest + , fleetLaunchTemplateSpecificationRequest + , fltsrLaunchTemplateName + , fltsrLaunchTemplateId + , fltsrVersion + -- ** FlowLog , FlowLog , flowLog @@ -1560,9 +1846,17 @@ , hrEventType , hrTimestamp + -- ** HistoryRecordEntry + , HistoryRecordEntry + , historyRecordEntry + , hreEventType + , hreEventInformation + , hreTimestamp + -- ** Host , Host , host + , hReleaseTime , hState , hClientToken , hHostId @@ -1571,6 +1865,7 @@ , hHostProperties , hAvailabilityZone , hInstances + , hAllocationTime , hAutoPlacement -- ** HostInstance @@ -1750,8 +2045,8 @@ , importInstanceTaskDetails , iitdInstanceId , iitdPlatform - , iitdDescription , iitdVolumes + , iitdDescription -- ** ImportInstanceVolumeDetailItem , ImportInstanceVolumeDetailItem @@ -1774,11 +2069,11 @@ -- ** ImportVolumeTaskDetails , ImportVolumeTaskDetails , importVolumeTaskDetails - , ivtdDescription - , ivtdAvailabilityZone , ivtdBytesConverted , ivtdImage , ivtdVolume + , ivtdAvailabilityZone + , ivtdDescription -- ** Instance , Instance @@ -1794,6 +2089,7 @@ , insKeyName , insNetworkInterfaces , insRAMDiskId + , insCPUOptions , insSubnetId , insKernelId , insRootDeviceName @@ -1850,6 +2146,18 @@ , icState , icInstanceCount + -- ** InstanceCreditSpecification + , InstanceCreditSpecification + , instanceCreditSpecification + , icsInstanceId + , icsCPUCredits + + -- ** InstanceCreditSpecificationRequest + , InstanceCreditSpecificationRequest + , instanceCreditSpecificationRequest + , icsrInstanceId + , icsrCPUCredits + -- ** InstanceExportDetails , InstanceExportDetails , instanceExportDetails @@ -1861,6 +2169,17 @@ , instanceIPv6Address , iiaIPv6Address + -- ** InstanceIPv6AddressRequest + , InstanceIPv6AddressRequest + , instanceIPv6AddressRequest + , iiarIPv6Address + + -- ** InstanceMarketOptionsRequest + , InstanceMarketOptionsRequest + , instanceMarketOptionsRequest + , imorMarketType + , imorSpotOptions + -- ** InstanceMonitoring , InstanceMonitoring , instanceMonitoring @@ -2020,6 +2339,205 @@ , lsBlockDeviceMappings , lsPlacement + -- ** LaunchTemplate + , LaunchTemplate + , launchTemplate + , ltLaunchTemplateName + , ltLatestVersionNumber + , ltLaunchTemplateId + , ltCreatedBy + , ltDefaultVersionNumber + , ltCreateTime + , ltTags + + -- ** LaunchTemplateBlockDeviceMapping + , LaunchTemplateBlockDeviceMapping + , launchTemplateBlockDeviceMapping + , ltbdmVirtualName + , ltbdmNoDevice + , ltbdmEBS + , ltbdmDeviceName + + -- ** LaunchTemplateBlockDeviceMappingRequest + , LaunchTemplateBlockDeviceMappingRequest + , launchTemplateBlockDeviceMappingRequest + , ltbdmrVirtualName + , ltbdmrNoDevice + , ltbdmrEBS + , ltbdmrDeviceName + + -- ** LaunchTemplateConfig + , LaunchTemplateConfig + , launchTemplateConfig + , ltcOverrides + , ltcLaunchTemplateSpecification + + -- ** LaunchTemplateEBSBlockDevice + , LaunchTemplateEBSBlockDevice + , launchTemplateEBSBlockDevice + , ltebdDeleteOnTermination + , ltebdVolumeSize + , ltebdIOPS + , ltebdEncrypted + , ltebdKMSKeyId + , ltebdVolumeType + , ltebdSnapshotId + + -- ** LaunchTemplateEBSBlockDeviceRequest + , LaunchTemplateEBSBlockDeviceRequest + , launchTemplateEBSBlockDeviceRequest + , ltebdrDeleteOnTermination + , ltebdrVolumeSize + , ltebdrIOPS + , ltebdrEncrypted + , ltebdrKMSKeyId + , ltebdrVolumeType + , ltebdrSnapshotId + + -- ** LaunchTemplateIAMInstanceProfileSpecification + , LaunchTemplateIAMInstanceProfileSpecification + , launchTemplateIAMInstanceProfileSpecification + , ltiapsARN + , ltiapsName + + -- ** LaunchTemplateIAMInstanceProfileSpecificationRequest + , LaunchTemplateIAMInstanceProfileSpecificationRequest + , launchTemplateIAMInstanceProfileSpecificationRequest + , ltiapsrARN + , ltiapsrName + + -- ** LaunchTemplateInstanceMarketOptions + , LaunchTemplateInstanceMarketOptions + , launchTemplateInstanceMarketOptions + , ltimoMarketType + , ltimoSpotOptions + + -- ** LaunchTemplateInstanceMarketOptionsRequest + , LaunchTemplateInstanceMarketOptionsRequest + , launchTemplateInstanceMarketOptionsRequest + , ltimorMarketType + , ltimorSpotOptions + + -- ** LaunchTemplateInstanceNetworkInterfaceSpecification + , LaunchTemplateInstanceNetworkInterfaceSpecification + , launchTemplateInstanceNetworkInterfaceSpecification + , ltinisGroups + , ltinisPrivateIPAddresses + , ltinisDeleteOnTermination + , ltinisAssociatePublicIPAddress + , ltinisNetworkInterfaceId + , ltinisSubnetId + , ltinisIPv6AddressCount + , ltinisPrivateIPAddress + , ltinisSecondaryPrivateIPAddressCount + , ltinisDescription + , ltinisDeviceIndex + , ltinisIPv6Addresses + + -- ** LaunchTemplateInstanceNetworkInterfaceSpecificationRequest + , LaunchTemplateInstanceNetworkInterfaceSpecificationRequest + , launchTemplateInstanceNetworkInterfaceSpecificationRequest + , ltinisrGroups + , ltinisrPrivateIPAddresses + , ltinisrDeleteOnTermination + , ltinisrAssociatePublicIPAddress + , ltinisrNetworkInterfaceId + , ltinisrSubnetId + , ltinisrIPv6AddressCount + , ltinisrPrivateIPAddress + , ltinisrSecondaryPrivateIPAddressCount + , ltinisrDescription + , ltinisrDeviceIndex + , ltinisrIPv6Addresses + + -- ** LaunchTemplateOverrides + , LaunchTemplateOverrides + , launchTemplateOverrides + , ltoSpotPrice + , ltoWeightedCapacity + , ltoSubnetId + , ltoInstanceType + , ltoAvailabilityZone + + -- ** LaunchTemplatePlacement + , LaunchTemplatePlacement + , launchTemplatePlacement + , ltpAffinity + , ltpHostId + , ltpSpreadDomain + , ltpAvailabilityZone + , ltpTenancy + , ltpGroupName + + -- ** LaunchTemplatePlacementRequest + , LaunchTemplatePlacementRequest + , launchTemplatePlacementRequest + , ltprAffinity + , ltprHostId + , ltprSpreadDomain + , ltprAvailabilityZone + , ltprTenancy + , ltprGroupName + + -- ** LaunchTemplateSpecification + , LaunchTemplateSpecification + , launchTemplateSpecification + , ltsLaunchTemplateName + , ltsLaunchTemplateId + , ltsVersion + + -- ** LaunchTemplateSpotMarketOptions + , LaunchTemplateSpotMarketOptions + , launchTemplateSpotMarketOptions + , ltsmoBlockDurationMinutes + , ltsmoInstanceInterruptionBehavior + , ltsmoValidUntil + , ltsmoSpotInstanceType + , ltsmoMaxPrice + + -- ** LaunchTemplateSpotMarketOptionsRequest + , LaunchTemplateSpotMarketOptionsRequest + , launchTemplateSpotMarketOptionsRequest + , ltsmorBlockDurationMinutes + , ltsmorInstanceInterruptionBehavior + , ltsmorValidUntil + , ltsmorSpotInstanceType + , ltsmorMaxPrice + + -- ** LaunchTemplateTagSpecification + , LaunchTemplateTagSpecification + , launchTemplateTagSpecification + , lttsResourceType + , lttsTags + + -- ** LaunchTemplateTagSpecificationRequest + , LaunchTemplateTagSpecificationRequest + , launchTemplateTagSpecificationRequest + , lttsrResourceType + , lttsrTags + + -- ** LaunchTemplateVersion + , LaunchTemplateVersion + , launchTemplateVersion + , ltvLaunchTemplateName + , ltvLaunchTemplateId + , ltvCreatedBy + , ltvDefaultVersion + , ltvVersionNumber + , ltvVersionDescription + , ltvLaunchTemplateData + , ltvCreateTime + + -- ** LaunchTemplatesMonitoring + , LaunchTemplatesMonitoring + , launchTemplatesMonitoring + , ltmEnabled + + -- ** LaunchTemplatesMonitoringRequest + , LaunchTemplatesMonitoringRequest + , launchTemplatesMonitoringRequest + , ltmrEnabled + -- ** LoadBalancersConfig , LoadBalancersConfig , loadBalancersConfig @@ -2271,6 +2789,12 @@ , pdCount , pdPrice + -- ** PrincipalIdFormat + , PrincipalIdFormat + , principalIdFormat + , pifARN + , pifStatuses + -- ** PrivateIPAddressSpecification , PrivateIPAddressSpecification , privateIPAddressSpecification @@ -2327,6 +2851,30 @@ , riRegionName , riEndpoint + -- ** RequestLaunchTemplateData + , RequestLaunchTemplateData + , requestLaunchTemplateData + , rltdSecurityGroupIds + , rltdSecurityGroups + , rltdInstanceMarketOptions + , rltdDisableAPITermination + , rltdKeyName + , rltdNetworkInterfaces + , rltdRamDiskId + , rltdKernelId + , rltdElasticGpuSpecifications + , rltdInstanceType + , rltdEBSOptimized + , rltdUserData + , rltdMonitoring + , rltdTagSpecifications + , rltdIAMInstanceProfile + , rltdImageId + , rltdInstanceInitiatedShutdownBehavior + , rltdCreditSpecification + , rltdBlockDeviceMappings + , rltdPlacement + -- ** RequestSpotLaunchSpecification , RequestSpotLaunchSpecification , requestSpotLaunchSpecification @@ -2463,6 +3011,36 @@ , rioOfferingClass , rioDuration + -- ** ResponseError + , ResponseError + , responseError + , reCode + , reMessage + + -- ** ResponseLaunchTemplateData + , ResponseLaunchTemplateData + , responseLaunchTemplateData + , rSecurityGroupIds + , rSecurityGroups + , rInstanceMarketOptions + , rDisableAPITermination + , rKeyName + , rNetworkInterfaces + , rRamDiskId + , rKernelId + , rElasticGpuSpecifications + , rInstanceType + , rEBSOptimized + , rUserData + , rMonitoring + , rTagSpecifications + , rIAMInstanceProfile + , rImageId + , rInstanceInitiatedShutdownBehavior + , rCreditSpecification + , rBlockDeviceMappings + , rPlacement + -- ** Route , Route , route @@ -2670,6 +3248,19 @@ , sgrGroupId , sgrReferencingVPCId + -- ** ServiceConfiguration + , ServiceConfiguration + , serviceConfiguration + , scNetworkLoadBalancerARNs + , scBaseEndpointDNSNames + , scAvailabilityZones + , scServiceName + , scServiceState + , scServiceType + , scAcceptanceRequired + , scServiceId + , scPrivateDNSName + -- ** ServiceDetail , ServiceDetail , serviceDetail @@ -2802,18 +3393,21 @@ , spotFleetRequestConfigData , sfrcdClientToken , sfrcdInstanceInterruptionBehavior + , sfrcdSpotPrice , sfrcdLoadBalancersConfig , sfrcdExcessCapacityTerminationPolicy + , sfrcdOnDemandTargetCapacity + , sfrcdLaunchTemplateConfigs , sfrcdValidUntil , sfrcdTerminateInstancesWithExpiration , sfrcdFulfilledCapacity , sfrcdType , sfrcdValidFrom , sfrcdReplaceUnhealthyInstances + , sfrcdLaunchSpecifications + , sfrcdOnDemandFulfilledCapacity , sfrcdAllocationStrategy , sfrcdIAMFleetRole - , sfrcdLaunchSpecifications - , sfrcdSpotPrice , sfrcdTargetCapacity -- ** SpotFleetTagSpecification @@ -2858,6 +3452,27 @@ , sisCode , sisMessage + -- ** SpotMarketOptions + , SpotMarketOptions + , spotMarketOptions + , smoBlockDurationMinutes + , smoInstanceInterruptionBehavior + , smoValidUntil + , smoSpotInstanceType + , smoMaxPrice + + -- ** SpotOptions + , SpotOptions + , spotOptions + , soInstanceInterruptionBehavior + , soAllocationStrategy + + -- ** SpotOptionsRequest + , SpotOptionsRequest + , spotOptionsRequest + , sorInstanceInterruptionBehavior + , sorAllocationStrategy + -- ** SpotPlacement , SpotPlacement , spotPlacement @@ -2939,6 +3554,11 @@ , sicbaIPv6CidrBlock , sicbaIPv6CidrBlockState + -- ** SuccessfulInstanceCreditSpecificationItem + , SuccessfulInstanceCreditSpecificationItem + , successfulInstanceCreditSpecificationItem + , sicsiInstanceId + -- ** Tag , Tag , tag @@ -2959,6 +3579,22 @@ , tsResourceType , tsTags + -- ** TargetCapacitySpecification + , TargetCapacitySpecification + , targetCapacitySpecification + , tcsOnDemandTargetCapacity + , tcsDefaultTargetCapacityType + , tcsTotalTargetCapacity + , tcsSpotTargetCapacity + + -- ** TargetCapacitySpecificationRequest + , TargetCapacitySpecificationRequest + , targetCapacitySpecificationRequest + , tcsrOnDemandTargetCapacity + , tcsrDefaultTargetCapacityType + , tcsrSpotTargetCapacity + , tcsrTotalTargetCapacity + -- ** TargetConfiguration , TargetConfiguration , targetConfiguration @@ -2987,6 +3623,18 @@ , trvReservationValue , trvTargetConfiguration + -- ** UnsuccessfulInstanceCreditSpecificationItem + , UnsuccessfulInstanceCreditSpecificationItem + , unsuccessfulInstanceCreditSpecificationItem + , uicsiInstanceId + , uicsiError + + -- ** UnsuccessfulInstanceCreditSpecificationItemError + , UnsuccessfulInstanceCreditSpecificationItemError + , unsuccessfulInstanceCreditSpecificationItemError + , uicsieCode + , uicsieMessage + -- ** UnsuccessfulItem , UnsuccessfulItem , unsuccessfulItem @@ -3092,6 +3740,15 @@ , veVPCEndpointId , veRouteTableIds + -- ** VPCEndpointConnection + , VPCEndpointConnection + , vpcEndpointConnection + , vecVPCEndpointOwner + , vecVPCEndpointState + , vecCreationTimestamp + , vecServiceId + , vecVPCEndpointId + -- ** VPCIPv6CidrBlockAssociation , VPCIPv6CidrBlockAssociation , vpcIPv6CidrBlockAssociation @@ -3130,6 +3787,7 @@ , vpcviOwnerId , vpcviPeeringOptions , vpcviCidrBlock + , vpcviRegion , vpcviIPv6CidrBlockSet -- ** VPNConnection @@ -3269,6 +3927,7 @@ ) where import Network.AWS.EC2.AcceptReservedInstancesExchangeQuote +import Network.AWS.EC2.AcceptVPCEndpointConnections import Network.AWS.EC2.AcceptVPCPeeringConnection import Network.AWS.EC2.AllocateAddress import Network.AWS.EC2.AllocateHosts @@ -3304,12 +3963,15 @@ import Network.AWS.EC2.CreateDefaultVPC import Network.AWS.EC2.CreateDHCPOptions import Network.AWS.EC2.CreateEgressOnlyInternetGateway +import Network.AWS.EC2.CreateFleet import Network.AWS.EC2.CreateFlowLogs import Network.AWS.EC2.CreateFpgaImage import Network.AWS.EC2.CreateImage import Network.AWS.EC2.CreateInstanceExportTask import Network.AWS.EC2.CreateInternetGateway import Network.AWS.EC2.CreateKeyPair +import Network.AWS.EC2.CreateLaunchTemplate +import Network.AWS.EC2.CreateLaunchTemplateVersion import Network.AWS.EC2.CreateNatGateway import Network.AWS.EC2.CreateNetworkACL import Network.AWS.EC2.CreateNetworkACLEntry @@ -3327,6 +3989,8 @@ import Network.AWS.EC2.CreateVolume import Network.AWS.EC2.CreateVPC import Network.AWS.EC2.CreateVPCEndpoint +import Network.AWS.EC2.CreateVPCEndpointConnectionNotification +import Network.AWS.EC2.CreateVPCEndpointServiceConfiguration import Network.AWS.EC2.CreateVPCPeeringConnection import Network.AWS.EC2.CreateVPNConnection import Network.AWS.EC2.CreateVPNConnectionRoute @@ -3334,10 +3998,13 @@ import Network.AWS.EC2.DeleteCustomerGateway import Network.AWS.EC2.DeleteDHCPOptions import Network.AWS.EC2.DeleteEgressOnlyInternetGateway +import Network.AWS.EC2.DeleteFleets import Network.AWS.EC2.DeleteFlowLogs import Network.AWS.EC2.DeleteFpgaImage import Network.AWS.EC2.DeleteInternetGateway import Network.AWS.EC2.DeleteKeyPair +import Network.AWS.EC2.DeleteLaunchTemplate +import Network.AWS.EC2.DeleteLaunchTemplateVersions import Network.AWS.EC2.DeleteNatGateway import Network.AWS.EC2.DeleteNetworkACL import Network.AWS.EC2.DeleteNetworkACLEntry @@ -3353,7 +4020,9 @@ import Network.AWS.EC2.DeleteTags import Network.AWS.EC2.DeleteVolume import Network.AWS.EC2.DeleteVPC +import Network.AWS.EC2.DeleteVPCEndpointConnectionNotifications import Network.AWS.EC2.DeleteVPCEndpoints +import Network.AWS.EC2.DeleteVPCEndpointServiceConfigurations import Network.AWS.EC2.DeleteVPCPeeringConnection import Network.AWS.EC2.DeleteVPNConnection import Network.AWS.EC2.DeleteVPNConnectionRoute @@ -3361,6 +4030,7 @@ import Network.AWS.EC2.DeregisterImage import Network.AWS.EC2.DescribeAccountAttributes import Network.AWS.EC2.DescribeAddresses +import Network.AWS.EC2.DescribeAggregateIdFormat import Network.AWS.EC2.DescribeAvailabilityZones import Network.AWS.EC2.DescribeBundleTasks import Network.AWS.EC2.DescribeClassicLinkInstances @@ -3370,6 +4040,9 @@ import Network.AWS.EC2.DescribeEgressOnlyInternetGateways import Network.AWS.EC2.DescribeElasticGpus import Network.AWS.EC2.DescribeExportTasks +import Network.AWS.EC2.DescribeFleetHistory +import Network.AWS.EC2.DescribeFleetInstances +import Network.AWS.EC2.DescribeFleets import Network.AWS.EC2.DescribeFlowLogs import Network.AWS.EC2.DescribeFpgaImageAttribute import Network.AWS.EC2.DescribeFpgaImages @@ -3384,10 +4057,13 @@ import Network.AWS.EC2.DescribeImportImageTasks import Network.AWS.EC2.DescribeImportSnapshotTasks import Network.AWS.EC2.DescribeInstanceAttribute +import Network.AWS.EC2.DescribeInstanceCreditSpecifications import Network.AWS.EC2.DescribeInstances import Network.AWS.EC2.DescribeInstanceStatus import Network.AWS.EC2.DescribeInternetGateways import Network.AWS.EC2.DescribeKeyPairs +import Network.AWS.EC2.DescribeLaunchTemplates +import Network.AWS.EC2.DescribeLaunchTemplateVersions import Network.AWS.EC2.DescribeMovingAddresses import Network.AWS.EC2.DescribeNatGateways import Network.AWS.EC2.DescribeNetworkACLs @@ -3396,6 +4072,7 @@ import Network.AWS.EC2.DescribeNetworkInterfaces import Network.AWS.EC2.DescribePlacementGroups import Network.AWS.EC2.DescribePrefixLists +import Network.AWS.EC2.DescribePrincipalIdFormat import Network.AWS.EC2.DescribeRegions import Network.AWS.EC2.DescribeReservedInstances import Network.AWS.EC2.DescribeReservedInstancesListings @@ -3424,7 +4101,11 @@ import Network.AWS.EC2.DescribeVPCAttribute import Network.AWS.EC2.DescribeVPCClassicLink import Network.AWS.EC2.DescribeVPCClassicLinkDNSSupport +import Network.AWS.EC2.DescribeVPCEndpointConnectionNotifications +import Network.AWS.EC2.DescribeVPCEndpointConnections import Network.AWS.EC2.DescribeVPCEndpoints +import Network.AWS.EC2.DescribeVPCEndpointServiceConfigurations +import Network.AWS.EC2.DescribeVPCEndpointServicePermissions import Network.AWS.EC2.DescribeVPCEndpointServices import Network.AWS.EC2.DescribeVPCPeeringConnections import Network.AWS.EC2.DescribeVPCs @@ -3450,6 +4131,7 @@ import Network.AWS.EC2.GetConsoleOutput import Network.AWS.EC2.GetConsoleScreenshot import Network.AWS.EC2.GetHostReservationPurchasePreview +import Network.AWS.EC2.GetLaunchTemplateData import Network.AWS.EC2.GetPasswordData import Network.AWS.EC2.GetReservedInstancesExchangeQuote import Network.AWS.EC2.ImportImage @@ -3458,13 +4140,16 @@ import Network.AWS.EC2.ImportSnapshot import Network.AWS.EC2.ImportVolume import Network.AWS.EC2.Internal +import Network.AWS.EC2.ModifyFleet import Network.AWS.EC2.ModifyFpgaImageAttribute import Network.AWS.EC2.ModifyHosts import Network.AWS.EC2.ModifyIdentityIdFormat import Network.AWS.EC2.ModifyIdFormat import Network.AWS.EC2.ModifyImageAttribute import Network.AWS.EC2.ModifyInstanceAttribute +import Network.AWS.EC2.ModifyInstanceCreditSpecification import Network.AWS.EC2.ModifyInstancePlacement +import Network.AWS.EC2.ModifyLaunchTemplate import Network.AWS.EC2.ModifyNetworkInterfaceAttribute import Network.AWS.EC2.ModifyReservedInstances import Network.AWS.EC2.ModifySnapshotAttribute @@ -3474,6 +4159,9 @@ import Network.AWS.EC2.ModifyVolumeAttribute import Network.AWS.EC2.ModifyVPCAttribute import Network.AWS.EC2.ModifyVPCEndpoint +import Network.AWS.EC2.ModifyVPCEndpointConnectionNotification +import Network.AWS.EC2.ModifyVPCEndpointServiceConfiguration +import Network.AWS.EC2.ModifyVPCEndpointServicePermissions import Network.AWS.EC2.ModifyVPCPeeringConnectionOptions import Network.AWS.EC2.ModifyVPCTenancy import Network.AWS.EC2.MonitorInstances @@ -3483,6 +4171,7 @@ import Network.AWS.EC2.PurchaseScheduledInstances import Network.AWS.EC2.RebootInstances import Network.AWS.EC2.RegisterImage +import Network.AWS.EC2.RejectVPCEndpointConnections import Network.AWS.EC2.RejectVPCPeeringConnection import Network.AWS.EC2.ReleaseAddress import Network.AWS.EC2.ReleaseHosts diff --git a/gen/Network/AWS/EC2/AcceptReservedInstancesExchangeQuote.hs b/gen/Network/AWS/EC2/AcceptReservedInstancesExchangeQuote.hs --- a/gen/Network/AWS/EC2/AcceptReservedInstancesExchangeQuote.hs +++ b/gen/Network/AWS/EC2/AcceptReservedInstancesExchangeQuote.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AcceptReservedInstancesExchangeQuote --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,23 +71,23 @@ :: AcceptReservedInstancesExchangeQuote acceptReservedInstancesExchangeQuote = AcceptReservedInstancesExchangeQuote' - { _arieqTargetConfigurations = Nothing - , _arieqDryRun = Nothing - , _arieqReservedInstanceIds = mempty - } + { _arieqTargetConfigurations = Nothing + , _arieqDryRun = Nothing + , _arieqReservedInstanceIds = mempty + } -- | The configuration of the target Convertible Reserved Instance to exchange for your current Convertible Reserved Instances. arieqTargetConfigurations :: Lens' AcceptReservedInstancesExchangeQuote [TargetConfigurationRequest] -arieqTargetConfigurations = lens _arieqTargetConfigurations (\ s a -> s{_arieqTargetConfigurations = a}) . _Default . _Coerce; +arieqTargetConfigurations = lens _arieqTargetConfigurations (\ s a -> s{_arieqTargetConfigurations = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . arieqDryRun :: Lens' AcceptReservedInstancesExchangeQuote (Maybe Bool) -arieqDryRun = lens _arieqDryRun (\ s a -> s{_arieqDryRun = a}); +arieqDryRun = lens _arieqDryRun (\ s a -> s{_arieqDryRun = a}) -- | The IDs of the Convertible Reserved Instances to exchange for another Convertible Reserved Instance of the same or higher value. arieqReservedInstanceIds :: Lens' AcceptReservedInstancesExchangeQuote [Text] -arieqReservedInstanceIds = lens _arieqReservedInstanceIds (\ s a -> s{_arieqReservedInstanceIds = a}) . _Coerce; +arieqReservedInstanceIds = lens _arieqReservedInstanceIds (\ s a -> s{_arieqReservedInstanceIds = a}) . _Coerce instance AWSRequest AcceptReservedInstancesExchangeQuote @@ -155,16 +155,16 @@ -> AcceptReservedInstancesExchangeQuoteResponse acceptReservedInstancesExchangeQuoteResponse pResponseStatus_ = AcceptReservedInstancesExchangeQuoteResponse' - {_arieqrsExchangeId = Nothing, _arieqrsResponseStatus = pResponseStatus_} + {_arieqrsExchangeId = Nothing, _arieqrsResponseStatus = pResponseStatus_} -- | The ID of the successful exchange. arieqrsExchangeId :: Lens' AcceptReservedInstancesExchangeQuoteResponse (Maybe Text) -arieqrsExchangeId = lens _arieqrsExchangeId (\ s a -> s{_arieqrsExchangeId = a}); +arieqrsExchangeId = lens _arieqrsExchangeId (\ s a -> s{_arieqrsExchangeId = a}) -- | -- | The response status code. arieqrsResponseStatus :: Lens' AcceptReservedInstancesExchangeQuoteResponse Int -arieqrsResponseStatus = lens _arieqrsResponseStatus (\ s a -> s{_arieqrsResponseStatus = a}); +arieqrsResponseStatus = lens _arieqrsResponseStatus (\ s a -> s{_arieqrsResponseStatus = a}) instance NFData AcceptReservedInstancesExchangeQuoteResponse diff --git a/gen/Network/AWS/EC2/AcceptVPCEndpointConnections.hs b/gen/Network/AWS/EC2/AcceptVPCEndpointConnections.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/AcceptVPCEndpointConnections.hs @@ -0,0 +1,153 @@ +{-# 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.AcceptVPCEndpointConnections +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Accepts one or more interface VPC endpoint connection requests to your VPC endpoint service. +-- +-- +module Network.AWS.EC2.AcceptVPCEndpointConnections + ( + -- * Creating a Request + acceptVPCEndpointConnections + , AcceptVPCEndpointConnections + -- * Request Lenses + , avecDryRun + , avecServiceId + , avecVPCEndpointIds + + -- * Destructuring the Response + , acceptVPCEndpointConnectionsResponse + , AcceptVPCEndpointConnectionsResponse + -- * Response Lenses + , avecrsUnsuccessful + , avecrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'acceptVPCEndpointConnections' smart constructor. +data AcceptVPCEndpointConnections = AcceptVPCEndpointConnections' + { _avecDryRun :: !(Maybe Bool) + , _avecServiceId :: !Text + , _avecVPCEndpointIds :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AcceptVPCEndpointConnections' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'avecDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'avecServiceId' - The ID of the endpoint service. +-- +-- * 'avecVPCEndpointIds' - The IDs of one or more interface VPC endpoints. +acceptVPCEndpointConnections + :: Text -- ^ 'avecServiceId' + -> AcceptVPCEndpointConnections +acceptVPCEndpointConnections pServiceId_ = + AcceptVPCEndpointConnections' + { _avecDryRun = Nothing + , _avecServiceId = pServiceId_ + , _avecVPCEndpointIds = mempty + } + + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +avecDryRun :: Lens' AcceptVPCEndpointConnections (Maybe Bool) +avecDryRun = lens _avecDryRun (\ s a -> s{_avecDryRun = a}) + +-- | The ID of the endpoint service. +avecServiceId :: Lens' AcceptVPCEndpointConnections Text +avecServiceId = lens _avecServiceId (\ s a -> s{_avecServiceId = a}) + +-- | The IDs of one or more interface VPC endpoints. +avecVPCEndpointIds :: Lens' AcceptVPCEndpointConnections [Text] +avecVPCEndpointIds = lens _avecVPCEndpointIds (\ s a -> s{_avecVPCEndpointIds = a}) . _Coerce + +instance AWSRequest AcceptVPCEndpointConnections + where + type Rs AcceptVPCEndpointConnections = + AcceptVPCEndpointConnectionsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + AcceptVPCEndpointConnectionsResponse' <$> + (x .@? "unsuccessful" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable AcceptVPCEndpointConnections where + +instance NFData AcceptVPCEndpointConnections where + +instance ToHeaders AcceptVPCEndpointConnections where + toHeaders = const mempty + +instance ToPath AcceptVPCEndpointConnections where + toPath = const "/" + +instance ToQuery AcceptVPCEndpointConnections where + toQuery AcceptVPCEndpointConnections'{..} + = mconcat + ["Action" =: + ("AcceptVpcEndpointConnections" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "DryRun" =: _avecDryRun, + "ServiceId" =: _avecServiceId, + toQueryList "VpcEndpointId" _avecVPCEndpointIds] + +-- | /See:/ 'acceptVPCEndpointConnectionsResponse' smart constructor. +data AcceptVPCEndpointConnectionsResponse = AcceptVPCEndpointConnectionsResponse' + { _avecrsUnsuccessful :: !(Maybe [UnsuccessfulItem]) + , _avecrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AcceptVPCEndpointConnectionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'avecrsUnsuccessful' - Information about the interface endpoints that were not accepted, if applicable. +-- +-- * 'avecrsResponseStatus' - -- | The response status code. +acceptVPCEndpointConnectionsResponse + :: Int -- ^ 'avecrsResponseStatus' + -> AcceptVPCEndpointConnectionsResponse +acceptVPCEndpointConnectionsResponse pResponseStatus_ = + AcceptVPCEndpointConnectionsResponse' + {_avecrsUnsuccessful = Nothing, _avecrsResponseStatus = pResponseStatus_} + + +-- | Information about the interface endpoints that were not accepted, if applicable. +avecrsUnsuccessful :: Lens' AcceptVPCEndpointConnectionsResponse [UnsuccessfulItem] +avecrsUnsuccessful = lens _avecrsUnsuccessful (\ s a -> s{_avecrsUnsuccessful = a}) . _Default . _Coerce + +-- | -- | The response status code. +avecrsResponseStatus :: Lens' AcceptVPCEndpointConnectionsResponse Int +avecrsResponseStatus = lens _avecrsResponseStatus (\ s a -> s{_avecrsResponseStatus = a}) + +instance NFData AcceptVPCEndpointConnectionsResponse + where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AcceptVPCPeeringConnection --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,8 @@ -- Accept a VPC peering connection request. To accept a request, the VPC peering connection must be in the @pending-acceptance@ state, and you must be the owner of the peer VPC. Use 'DescribeVpcPeeringConnections' to view your outstanding VPC peering connection requests. -- -- +-- For an inter-region VPC peering connection request, you must accept the VPC peering connection in the region of the accepter VPC. +-- module Network.AWS.EC2.AcceptVPCPeeringConnection ( -- * Creating a Request @@ -60,23 +62,23 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'avpcVPCPeeringConnectionId' - The ID of the VPC peering connection. +-- * 'avpcVPCPeeringConnectionId' - The ID of the VPC peering connection. You must specify this parameter in the request. -- -- * 'avpcDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . acceptVPCPeeringConnection :: AcceptVPCPeeringConnection acceptVPCPeeringConnection = AcceptVPCPeeringConnection' - {_avpcVPCPeeringConnectionId = Nothing, _avpcDryRun = Nothing} + {_avpcVPCPeeringConnectionId = Nothing, _avpcDryRun = Nothing} --- | The ID of the VPC peering connection. +-- | The ID of the VPC peering connection. You must specify this parameter in the request. avpcVPCPeeringConnectionId :: Lens' AcceptVPCPeeringConnection (Maybe Text) -avpcVPCPeeringConnectionId = lens _avpcVPCPeeringConnectionId (\ s a -> s{_avpcVPCPeeringConnectionId = a}); +avpcVPCPeeringConnectionId = lens _avpcVPCPeeringConnectionId (\ s a -> s{_avpcVPCPeeringConnectionId = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . avpcDryRun :: Lens' AcceptVPCPeeringConnection (Maybe Bool) -avpcDryRun = lens _avpcDryRun (\ s a -> s{_avpcDryRun = a}); +avpcDryRun = lens _avpcDryRun (\ s a -> s{_avpcDryRun = a}) instance AWSRequest AcceptVPCPeeringConnection where type Rs AcceptVPCPeeringConnection = @@ -132,18 +134,18 @@ -> AcceptVPCPeeringConnectionResponse acceptVPCPeeringConnectionResponse pResponseStatus_ = AcceptVPCPeeringConnectionResponse' - { _avpcrsVPCPeeringConnection = Nothing - , _avpcrsResponseStatus = pResponseStatus_ - } + { _avpcrsVPCPeeringConnection = Nothing + , _avpcrsResponseStatus = pResponseStatus_ + } -- | Information about the VPC peering connection. avpcrsVPCPeeringConnection :: Lens' AcceptVPCPeeringConnectionResponse (Maybe VPCPeeringConnection) -avpcrsVPCPeeringConnection = lens _avpcrsVPCPeeringConnection (\ s a -> s{_avpcrsVPCPeeringConnection = a}); +avpcrsVPCPeeringConnection = lens _avpcrsVPCPeeringConnection (\ s a -> s{_avpcrsVPCPeeringConnection = a}) -- | -- | The response status code. avpcrsResponseStatus :: Lens' AcceptVPCPeeringConnectionResponse Int -avpcrsResponseStatus = lens _avpcrsResponseStatus (\ s a -> s{_avpcrsResponseStatus = a}); +avpcrsResponseStatus = lens _avpcrsResponseStatus (\ s a -> s{_avpcrsResponseStatus = a}) instance NFData AcceptVPCPeeringConnectionResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AllocateAddress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -79,20 +79,20 @@ :: AllocateAddress allocateAddress = AllocateAddress' - {_aaDomain = Nothing, _aaAddress = Nothing, _aaDryRun = Nothing} + {_aaDomain = Nothing, _aaAddress = Nothing, _aaDryRun = Nothing} -- | Set to @vpc@ to allocate the address for use with instances in a VPC. Default: The address is for use with instances in EC2-Classic. aaDomain :: Lens' AllocateAddress (Maybe DomainType) -aaDomain = lens _aaDomain (\ s a -> s{_aaDomain = a}); +aaDomain = lens _aaDomain (\ s a -> s{_aaDomain = a}) -- | [EC2-VPC] The Elastic IP address to recover. aaAddress :: Lens' AllocateAddress (Maybe Text) -aaAddress = lens _aaAddress (\ s a -> s{_aaAddress = a}); +aaAddress = lens _aaAddress (\ s a -> s{_aaAddress = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . aaDryRun :: Lens' AllocateAddress (Maybe Bool) -aaDryRun = lens _aaDryRun (\ s a -> s{_aaDryRun = a}); +aaDryRun = lens _aaDryRun (\ s a -> s{_aaDryRun = a}) instance AWSRequest AllocateAddress where type Rs AllocateAddress = AllocateAddressResponse @@ -152,27 +152,27 @@ -> AllocateAddressResponse allocateAddressResponse pResponseStatus_ = AllocateAddressResponse' - { _aarsAllocationId = Nothing - , _aarsDomain = Nothing - , _aarsPublicIP = Nothing - , _aarsResponseStatus = pResponseStatus_ - } + { _aarsAllocationId = Nothing + , _aarsDomain = Nothing + , _aarsPublicIP = Nothing + , _aarsResponseStatus = pResponseStatus_ + } -- | [EC2-VPC] The ID that AWS assigns to represent the allocation of the Elastic IP address for use with instances in a VPC. aarsAllocationId :: Lens' AllocateAddressResponse (Maybe Text) -aarsAllocationId = lens _aarsAllocationId (\ s a -> s{_aarsAllocationId = a}); +aarsAllocationId = lens _aarsAllocationId (\ s a -> s{_aarsAllocationId = a}) -- | Indicates whether this Elastic IP address is for use with instances in EC2-Classic (@standard@ ) or instances in a VPC (@vpc@ ). aarsDomain :: Lens' AllocateAddressResponse (Maybe DomainType) -aarsDomain = lens _aarsDomain (\ s a -> s{_aarsDomain = a}); +aarsDomain = lens _aarsDomain (\ s a -> s{_aarsDomain = a}) -- | The Elastic IP address. aarsPublicIP :: Lens' AllocateAddressResponse (Maybe Text) -aarsPublicIP = lens _aarsPublicIP (\ s a -> s{_aarsPublicIP = a}); +aarsPublicIP = lens _aarsPublicIP (\ s a -> s{_aarsPublicIP = a}) -- | -- | The response status code. aarsResponseStatus :: Lens' AllocateAddressResponse Int -aarsResponseStatus = lens _aarsResponseStatus (\ s a -> s{_aarsResponseStatus = a}); +aarsResponseStatus = lens _aarsResponseStatus (\ s a -> s{_aarsResponseStatus = a}) instance NFData AllocateAddressResponse where diff --git a/gen/Network/AWS/EC2/AllocateHosts.hs b/gen/Network/AWS/EC2/AllocateHosts.hs --- a/gen/Network/AWS/EC2/AllocateHosts.hs +++ b/gen/Network/AWS/EC2/AllocateHosts.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AllocateHosts --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -82,33 +82,33 @@ -> AllocateHosts allocateHosts pAvailabilityZone_ pInstanceType_ pQuantity_ = AllocateHosts' - { _ahClientToken = Nothing - , _ahAutoPlacement = Nothing - , _ahAvailabilityZone = pAvailabilityZone_ - , _ahInstanceType = pInstanceType_ - , _ahQuantity = pQuantity_ - } + { _ahClientToken = Nothing + , _ahAutoPlacement = Nothing + , _ahAvailabilityZone = pAvailabilityZone_ + , _ahInstanceType = pInstanceType_ + , _ahQuantity = pQuantity_ + } -- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . ahClientToken :: Lens' AllocateHosts (Maybe Text) -ahClientToken = lens _ahClientToken (\ s a -> s{_ahClientToken = a}); +ahClientToken = lens _ahClientToken (\ s a -> s{_ahClientToken = a}) -- | This is enabled by default. This property allows instances to be automatically placed onto available Dedicated Hosts, when you are launching instances without specifying a host ID. Default: Enabled ahAutoPlacement :: Lens' AllocateHosts (Maybe AutoPlacement) -ahAutoPlacement = lens _ahAutoPlacement (\ s a -> s{_ahAutoPlacement = a}); +ahAutoPlacement = lens _ahAutoPlacement (\ s a -> s{_ahAutoPlacement = a}) -- | The Availability Zone for the Dedicated Hosts. ahAvailabilityZone :: Lens' AllocateHosts Text -ahAvailabilityZone = lens _ahAvailabilityZone (\ s a -> s{_ahAvailabilityZone = a}); +ahAvailabilityZone = lens _ahAvailabilityZone (\ s a -> s{_ahAvailabilityZone = a}) -- | Specify the instance type that you want your Dedicated Hosts to be configured for. When you specify the instance type, that is the only instance type that you can launch onto that host. ahInstanceType :: Lens' AllocateHosts Text -ahInstanceType = lens _ahInstanceType (\ s a -> s{_ahInstanceType = a}); +ahInstanceType = lens _ahInstanceType (\ s a -> s{_ahInstanceType = a}) -- | The number of Dedicated Hosts you want to allocate to your account with these parameters. ahQuantity :: Lens' AllocateHosts Int -ahQuantity = lens _ahQuantity (\ s a -> s{_ahQuantity = a}); +ahQuantity = lens _ahQuantity (\ s a -> s{_ahQuantity = a}) instance AWSRequest AllocateHosts where type Rs AllocateHosts = AllocateHostsResponse @@ -165,15 +165,15 @@ -> AllocateHostsResponse allocateHostsResponse pResponseStatus_ = AllocateHostsResponse' - {_ahrsHostIds = Nothing, _ahrsResponseStatus = pResponseStatus_} + {_ahrsHostIds = Nothing, _ahrsResponseStatus = pResponseStatus_} -- | The ID of the allocated Dedicated Host. This is used when you want to launch an instance onto a specific host. ahrsHostIds :: Lens' AllocateHostsResponse [Text] -ahrsHostIds = lens _ahrsHostIds (\ s a -> s{_ahrsHostIds = a}) . _Default . _Coerce; +ahrsHostIds = lens _ahrsHostIds (\ s a -> s{_ahrsHostIds = a}) . _Default . _Coerce -- | -- | The response status code. ahrsResponseStatus :: Lens' AllocateHostsResponse Int -ahrsResponseStatus = lens _ahrsResponseStatus (\ s a -> s{_ahrsResponseStatus = a}); +ahrsResponseStatus = lens _ahrsResponseStatus (\ s a -> s{_ahrsResponseStatus = a}) instance NFData AllocateHostsResponse where diff --git a/gen/Network/AWS/EC2/AssignIPv6Addresses.hs b/gen/Network/AWS/EC2/AssignIPv6Addresses.hs --- a/gen/Network/AWS/EC2/AssignIPv6Addresses.hs +++ b/gen/Network/AWS/EC2/AssignIPv6Addresses.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssignIPv6Addresses --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,23 +69,23 @@ -> AssignIPv6Addresses assignIPv6Addresses pNetworkInterfaceId_ = AssignIPv6Addresses' - { _aiaIPv6AddressCount = Nothing - , _aiaIPv6Addresses = Nothing - , _aiaNetworkInterfaceId = pNetworkInterfaceId_ - } + { _aiaIPv6AddressCount = Nothing + , _aiaIPv6Addresses = Nothing + , _aiaNetworkInterfaceId = pNetworkInterfaceId_ + } -- | The number of IPv6 addresses to assign to the network interface. Amazon EC2 automatically selects the IPv6 addresses from the subnet range. You can't use this option if specifying specific IPv6 addresses. aiaIPv6AddressCount :: Lens' AssignIPv6Addresses (Maybe Int) -aiaIPv6AddressCount = lens _aiaIPv6AddressCount (\ s a -> s{_aiaIPv6AddressCount = a}); +aiaIPv6AddressCount = lens _aiaIPv6AddressCount (\ s a -> s{_aiaIPv6AddressCount = a}) -- | One or more specific IPv6 addresses to be assigned to the network interface. You can't use this option if you're specifying a number of IPv6 addresses. aiaIPv6Addresses :: Lens' AssignIPv6Addresses [Text] -aiaIPv6Addresses = lens _aiaIPv6Addresses (\ s a -> s{_aiaIPv6Addresses = a}) . _Default . _Coerce; +aiaIPv6Addresses = lens _aiaIPv6Addresses (\ s a -> s{_aiaIPv6Addresses = a}) . _Default . _Coerce -- | The ID of the network interface. aiaNetworkInterfaceId :: Lens' AssignIPv6Addresses Text -aiaNetworkInterfaceId = lens _aiaNetworkInterfaceId (\ s a -> s{_aiaNetworkInterfaceId = a}); +aiaNetworkInterfaceId = lens _aiaNetworkInterfaceId (\ s a -> s{_aiaNetworkInterfaceId = a}) instance AWSRequest AssignIPv6Addresses where type Rs AssignIPv6Addresses = @@ -142,22 +142,22 @@ -> AssignIPv6AddressesResponse assignIPv6AddressesResponse pResponseStatus_ = AssignIPv6AddressesResponse' - { _aiarsNetworkInterfaceId = Nothing - , _aiarsAssignedIPv6Addresses = Nothing - , _aiarsResponseStatus = pResponseStatus_ - } + { _aiarsNetworkInterfaceId = Nothing + , _aiarsAssignedIPv6Addresses = Nothing + , _aiarsResponseStatus = pResponseStatus_ + } -- | The ID of the network interface. aiarsNetworkInterfaceId :: Lens' AssignIPv6AddressesResponse (Maybe Text) -aiarsNetworkInterfaceId = lens _aiarsNetworkInterfaceId (\ s a -> s{_aiarsNetworkInterfaceId = a}); +aiarsNetworkInterfaceId = lens _aiarsNetworkInterfaceId (\ s a -> s{_aiarsNetworkInterfaceId = a}) -- | The IPv6 addresses assigned to the network interface. aiarsAssignedIPv6Addresses :: Lens' AssignIPv6AddressesResponse [Text] -aiarsAssignedIPv6Addresses = lens _aiarsAssignedIPv6Addresses (\ s a -> s{_aiarsAssignedIPv6Addresses = a}) . _Default . _Coerce; +aiarsAssignedIPv6Addresses = lens _aiarsAssignedIPv6Addresses (\ s a -> s{_aiarsAssignedIPv6Addresses = a}) . _Default . _Coerce -- | -- | The response status code. aiarsResponseStatus :: Lens' AssignIPv6AddressesResponse Int -aiarsResponseStatus = lens _aiarsResponseStatus (\ s a -> s{_aiarsResponseStatus = a}); +aiarsResponseStatus = lens _aiarsResponseStatus (\ s a -> s{_aiarsResponseStatus = a}) instance NFData AssignIPv6AddressesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssignPrivateIPAddresses --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,28 +75,28 @@ -> AssignPrivateIPAddresses assignPrivateIPAddresses pNetworkInterfaceId_ = AssignPrivateIPAddresses' - { _apiaPrivateIPAddresses = Nothing - , _apiaAllowReassignment = Nothing - , _apiaSecondaryPrivateIPAddressCount = Nothing - , _apiaNetworkInterfaceId = pNetworkInterfaceId_ - } + { _apiaPrivateIPAddresses = Nothing + , _apiaAllowReassignment = Nothing + , _apiaSecondaryPrivateIPAddressCount = Nothing + , _apiaNetworkInterfaceId = pNetworkInterfaceId_ + } -- | One or more IP addresses to be assigned as a secondary private IP address to the network interface. You can't specify this parameter when also specifying a number of secondary IP addresses. If you don't specify an IP address, Amazon EC2 automatically selects an IP address within the subnet range. apiaPrivateIPAddresses :: Lens' AssignPrivateIPAddresses [Text] -apiaPrivateIPAddresses = lens _apiaPrivateIPAddresses (\ s a -> s{_apiaPrivateIPAddresses = a}) . _Default . _Coerce; +apiaPrivateIPAddresses = lens _apiaPrivateIPAddresses (\ s a -> s{_apiaPrivateIPAddresses = a}) . _Default . _Coerce -- | Indicates whether to allow an IP address that is already assigned to another network interface or instance to be reassigned to the specified network interface. apiaAllowReassignment :: Lens' AssignPrivateIPAddresses (Maybe Bool) -apiaAllowReassignment = lens _apiaAllowReassignment (\ s a -> s{_apiaAllowReassignment = a}); +apiaAllowReassignment = lens _apiaAllowReassignment (\ s a -> s{_apiaAllowReassignment = a}) -- | The number of secondary IP addresses to assign to the network interface. You can't specify this parameter when also specifying private IP addresses. apiaSecondaryPrivateIPAddressCount :: Lens' AssignPrivateIPAddresses (Maybe Int) -apiaSecondaryPrivateIPAddressCount = lens _apiaSecondaryPrivateIPAddressCount (\ s a -> s{_apiaSecondaryPrivateIPAddressCount = a}); +apiaSecondaryPrivateIPAddressCount = lens _apiaSecondaryPrivateIPAddressCount (\ s a -> s{_apiaSecondaryPrivateIPAddressCount = a}) -- | The ID of the network interface. apiaNetworkInterfaceId :: Lens' AssignPrivateIPAddresses Text -apiaNetworkInterfaceId = lens _apiaNetworkInterfaceId (\ s a -> s{_apiaNetworkInterfaceId = a}); +apiaNetworkInterfaceId = lens _apiaNetworkInterfaceId (\ s a -> s{_apiaNetworkInterfaceId = a}) instance AWSRequest AssignPrivateIPAddresses where type Rs AssignPrivateIPAddresses = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssociateAddress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -95,43 +95,43 @@ :: AssociateAddress associateAddress = AssociateAddress' - { _aasInstanceId = Nothing - , _aasAllocationId = Nothing - , _aasNetworkInterfaceId = Nothing - , _aasAllowReassociation = Nothing - , _aasPrivateIPAddress = Nothing - , _aasPublicIP = Nothing - , _aasDryRun = Nothing - } + { _aasInstanceId = Nothing + , _aasAllocationId = Nothing + , _aasNetworkInterfaceId = Nothing + , _aasAllowReassociation = Nothing + , _aasPrivateIPAddress = Nothing + , _aasPublicIP = Nothing + , _aasDryRun = Nothing + } -- | The ID of the instance. This is required for EC2-Classic. For EC2-VPC, you can specify either the instance ID or the network interface ID, but not both. The operation fails if you specify an instance ID unless exactly one network interface is attached. aasInstanceId :: Lens' AssociateAddress (Maybe Text) -aasInstanceId = lens _aasInstanceId (\ s a -> s{_aasInstanceId = a}); +aasInstanceId = lens _aasInstanceId (\ s a -> s{_aasInstanceId = a}) -- | [EC2-VPC] The allocation ID. This is required for EC2-VPC. aasAllocationId :: Lens' AssociateAddress (Maybe Text) -aasAllocationId = lens _aasAllocationId (\ s a -> s{_aasAllocationId = a}); +aasAllocationId = lens _aasAllocationId (\ s a -> s{_aasAllocationId = a}) -- | [EC2-VPC] The ID of the network interface. If the instance has more than one network interface, you must specify a network interface ID. aasNetworkInterfaceId :: Lens' AssociateAddress (Maybe Text) -aasNetworkInterfaceId = lens _aasNetworkInterfaceId (\ s a -> s{_aasNetworkInterfaceId = a}); +aasNetworkInterfaceId = lens _aasNetworkInterfaceId (\ s a -> s{_aasNetworkInterfaceId = a}) -- | [EC2-VPC] For a VPC in an EC2-Classic account, specify true to allow an Elastic IP address that is already associated with an instance or network interface to be reassociated with the specified instance or network interface. Otherwise, the operation fails. In a VPC in an EC2-VPC-only account, reassociation is automatic, therefore you can specify false to ensure the operation fails if the Elastic IP address is already associated with another resource. aasAllowReassociation :: Lens' AssociateAddress (Maybe Bool) -aasAllowReassociation = lens _aasAllowReassociation (\ s a -> s{_aasAllowReassociation = a}); +aasAllowReassociation = lens _aasAllowReassociation (\ s a -> s{_aasAllowReassociation = a}) -- | [EC2-VPC] The primary or secondary private IP address to associate with the Elastic IP address. If no private IP address is specified, the Elastic IP address is associated with the primary private IP address. aasPrivateIPAddress :: Lens' AssociateAddress (Maybe Text) -aasPrivateIPAddress = lens _aasPrivateIPAddress (\ s a -> s{_aasPrivateIPAddress = a}); +aasPrivateIPAddress = lens _aasPrivateIPAddress (\ s a -> s{_aasPrivateIPAddress = a}) -- | The Elastic IP address. This is required for EC2-Classic. aasPublicIP :: Lens' AssociateAddress (Maybe Text) -aasPublicIP = lens _aasPublicIP (\ s a -> s{_aasPublicIP = a}); +aasPublicIP = lens _aasPublicIP (\ s a -> s{_aasPublicIP = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . aasDryRun :: Lens' AssociateAddress (Maybe Bool) -aasDryRun = lens _aasDryRun (\ s a -> s{_aasDryRun = a}); +aasDryRun = lens _aasDryRun (\ s a -> s{_aasDryRun = a}) instance AWSRequest AssociateAddress where type Rs AssociateAddress = AssociateAddressResponse @@ -187,15 +187,15 @@ -> AssociateAddressResponse associateAddressResponse pResponseStatus_ = AssociateAddressResponse' - {_arsAssociationId = Nothing, _arsResponseStatus = pResponseStatus_} + {_arsAssociationId = Nothing, _arsResponseStatus = pResponseStatus_} -- | [EC2-VPC] The ID that represents the association of the Elastic IP address with an instance. arsAssociationId :: Lens' AssociateAddressResponse (Maybe Text) -arsAssociationId = lens _arsAssociationId (\ s a -> s{_arsAssociationId = a}); +arsAssociationId = lens _arsAssociationId (\ s a -> s{_arsAssociationId = a}) -- | -- | The response status code. arsResponseStatus :: Lens' AssociateAddressResponse Int -arsResponseStatus = lens _arsResponseStatus (\ s a -> s{_arsResponseStatus = a}); +arsResponseStatus = lens _arsResponseStatus (\ s a -> s{_arsResponseStatus = a}) instance NFData AssociateAddressResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssociateDHCPOptions --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -74,23 +74,23 @@ -> AssociateDHCPOptions associateDHCPOptions pDHCPOptionsId_ pVPCId_ = AssociateDHCPOptions' - { _adoDryRun = Nothing - , _adoDHCPOptionsId = pDHCPOptionsId_ - , _adoVPCId = pVPCId_ - } + { _adoDryRun = Nothing + , _adoDHCPOptionsId = pDHCPOptionsId_ + , _adoVPCId = pVPCId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . adoDryRun :: Lens' AssociateDHCPOptions (Maybe Bool) -adoDryRun = lens _adoDryRun (\ s a -> s{_adoDryRun = a}); +adoDryRun = lens _adoDryRun (\ s a -> s{_adoDryRun = a}) -- | The ID of the DHCP options set, or @default@ to associate no DHCP options with the VPC. adoDHCPOptionsId :: Lens' AssociateDHCPOptions Text -adoDHCPOptionsId = lens _adoDHCPOptionsId (\ s a -> s{_adoDHCPOptionsId = a}); +adoDHCPOptionsId = lens _adoDHCPOptionsId (\ s a -> s{_adoDHCPOptionsId = a}) -- | The ID of the VPC. adoVPCId :: Lens' AssociateDHCPOptions Text -adoVPCId = lens _adoVPCId (\ s a -> s{_adoVPCId = a}); +adoVPCId = lens _adoVPCId (\ s a -> s{_adoVPCId = a}) instance AWSRequest AssociateDHCPOptions where type Rs AssociateDHCPOptions = diff --git a/gen/Network/AWS/EC2/AssociateIAMInstanceProfile.hs b/gen/Network/AWS/EC2/AssociateIAMInstanceProfile.hs --- a/gen/Network/AWS/EC2/AssociateIAMInstanceProfile.hs +++ b/gen/Network/AWS/EC2/AssociateIAMInstanceProfile.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssociateIAMInstanceProfile --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,18 +65,18 @@ -> AssociateIAMInstanceProfile associateIAMInstanceProfile pIAMInstanceProfile_ pInstanceId_ = AssociateIAMInstanceProfile' - { _aiapIAMInstanceProfile = pIAMInstanceProfile_ - , _aiapInstanceId = pInstanceId_ - } + { _aiapIAMInstanceProfile = pIAMInstanceProfile_ + , _aiapInstanceId = pInstanceId_ + } -- | The IAM instance profile. aiapIAMInstanceProfile :: Lens' AssociateIAMInstanceProfile IAMInstanceProfileSpecification -aiapIAMInstanceProfile = lens _aiapIAMInstanceProfile (\ s a -> s{_aiapIAMInstanceProfile = a}); +aiapIAMInstanceProfile = lens _aiapIAMInstanceProfile (\ s a -> s{_aiapIAMInstanceProfile = a}) -- | The ID of the instance. aiapInstanceId :: Lens' AssociateIAMInstanceProfile Text -aiapInstanceId = lens _aiapInstanceId (\ s a -> s{_aiapInstanceId = a}); +aiapInstanceId = lens _aiapInstanceId (\ s a -> s{_aiapInstanceId = a}) instance AWSRequest AssociateIAMInstanceProfile where type Rs AssociateIAMInstanceProfile = @@ -127,18 +127,18 @@ -> AssociateIAMInstanceProfileResponse associateIAMInstanceProfileResponse pResponseStatus_ = AssociateIAMInstanceProfileResponse' - { _aiaprsIAMInstanceProfileAssociation = Nothing - , _aiaprsResponseStatus = pResponseStatus_ - } + { _aiaprsIAMInstanceProfileAssociation = Nothing + , _aiaprsResponseStatus = pResponseStatus_ + } -- | Information about the IAM instance profile association. aiaprsIAMInstanceProfileAssociation :: Lens' AssociateIAMInstanceProfileResponse (Maybe IAMInstanceProfileAssociation) -aiaprsIAMInstanceProfileAssociation = lens _aiaprsIAMInstanceProfileAssociation (\ s a -> s{_aiaprsIAMInstanceProfileAssociation = a}); +aiaprsIAMInstanceProfileAssociation = lens _aiaprsIAMInstanceProfileAssociation (\ s a -> s{_aiaprsIAMInstanceProfileAssociation = a}) -- | -- | The response status code. aiaprsResponseStatus :: Lens' AssociateIAMInstanceProfileResponse Int -aiaprsResponseStatus = lens _aiaprsResponseStatus (\ s a -> s{_aiaprsResponseStatus = a}); +aiaprsResponseStatus = lens _aiaprsResponseStatus (\ s a -> s{_aiaprsResponseStatus = a}) instance NFData AssociateIAMInstanceProfileResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssociateRouteTable --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,23 +75,23 @@ -> AssociateRouteTable associateRouteTable pRouteTableId_ pSubnetId_ = AssociateRouteTable' - { _artDryRun = Nothing - , _artRouteTableId = pRouteTableId_ - , _artSubnetId = pSubnetId_ - } + { _artDryRun = Nothing + , _artRouteTableId = pRouteTableId_ + , _artSubnetId = pSubnetId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . artDryRun :: Lens' AssociateRouteTable (Maybe Bool) -artDryRun = lens _artDryRun (\ s a -> s{_artDryRun = a}); +artDryRun = lens _artDryRun (\ s a -> s{_artDryRun = a}) -- | The ID of the route table. artRouteTableId :: Lens' AssociateRouteTable Text -artRouteTableId = lens _artRouteTableId (\ s a -> s{_artRouteTableId = a}); +artRouteTableId = lens _artRouteTableId (\ s a -> s{_artRouteTableId = a}) -- | The ID of the subnet. artSubnetId :: Lens' AssociateRouteTable Text -artSubnetId = lens _artSubnetId (\ s a -> s{_artSubnetId = a}); +artSubnetId = lens _artSubnetId (\ s a -> s{_artSubnetId = a}) instance AWSRequest AssociateRouteTable where type Rs AssociateRouteTable = @@ -145,15 +145,15 @@ -> AssociateRouteTableResponse associateRouteTableResponse pResponseStatus_ = AssociateRouteTableResponse' - {_artrsAssociationId = Nothing, _artrsResponseStatus = pResponseStatus_} + {_artrsAssociationId = Nothing, _artrsResponseStatus = pResponseStatus_} -- | The route table association ID (needed to disassociate the route table). artrsAssociationId :: Lens' AssociateRouteTableResponse (Maybe Text) -artrsAssociationId = lens _artrsAssociationId (\ s a -> s{_artrsAssociationId = a}); +artrsAssociationId = lens _artrsAssociationId (\ s a -> s{_artrsAssociationId = a}) -- | -- | The response status code. artrsResponseStatus :: Lens' AssociateRouteTableResponse Int -artrsResponseStatus = lens _artrsResponseStatus (\ s a -> s{_artrsResponseStatus = a}); +artrsResponseStatus = lens _artrsResponseStatus (\ s a -> s{_artrsResponseStatus = a}) instance NFData AssociateRouteTableResponse where diff --git a/gen/Network/AWS/EC2/AssociateSubnetCidrBlock.hs b/gen/Network/AWS/EC2/AssociateSubnetCidrBlock.hs --- a/gen/Network/AWS/EC2/AssociateSubnetCidrBlock.hs +++ b/gen/Network/AWS/EC2/AssociateSubnetCidrBlock.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssociateSubnetCidrBlock --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,16 +66,16 @@ -> AssociateSubnetCidrBlock associateSubnetCidrBlock pIPv6CidrBlock_ pSubnetId_ = AssociateSubnetCidrBlock' - {_ascbIPv6CidrBlock = pIPv6CidrBlock_, _ascbSubnetId = pSubnetId_} + {_ascbIPv6CidrBlock = pIPv6CidrBlock_, _ascbSubnetId = pSubnetId_} -- | The IPv6 CIDR block for your subnet. The subnet must have a /64 prefix length. ascbIPv6CidrBlock :: Lens' AssociateSubnetCidrBlock Text -ascbIPv6CidrBlock = lens _ascbIPv6CidrBlock (\ s a -> s{_ascbIPv6CidrBlock = a}); +ascbIPv6CidrBlock = lens _ascbIPv6CidrBlock (\ s a -> s{_ascbIPv6CidrBlock = a}) -- | The ID of your subnet. ascbSubnetId :: Lens' AssociateSubnetCidrBlock Text -ascbSubnetId = lens _ascbSubnetId (\ s a -> s{_ascbSubnetId = a}); +ascbSubnetId = lens _ascbSubnetId (\ s a -> s{_ascbSubnetId = a}) instance AWSRequest AssociateSubnetCidrBlock where type Rs AssociateSubnetCidrBlock = @@ -130,23 +130,23 @@ -> AssociateSubnetCidrBlockResponse associateSubnetCidrBlockResponse pResponseStatus_ = AssociateSubnetCidrBlockResponse' - { _ascbrsSubnetId = Nothing - , _ascbrsIPv6CidrBlockAssociation = Nothing - , _ascbrsResponseStatus = pResponseStatus_ - } + { _ascbrsSubnetId = Nothing + , _ascbrsIPv6CidrBlockAssociation = Nothing + , _ascbrsResponseStatus = pResponseStatus_ + } -- | The ID of the subnet. ascbrsSubnetId :: Lens' AssociateSubnetCidrBlockResponse (Maybe Text) -ascbrsSubnetId = lens _ascbrsSubnetId (\ s a -> s{_ascbrsSubnetId = a}); +ascbrsSubnetId = lens _ascbrsSubnetId (\ s a -> s{_ascbrsSubnetId = a}) -- | Information about the IPv6 CIDR block association. ascbrsIPv6CidrBlockAssociation :: Lens' AssociateSubnetCidrBlockResponse (Maybe SubnetIPv6CidrBlockAssociation) -ascbrsIPv6CidrBlockAssociation = lens _ascbrsIPv6CidrBlockAssociation (\ s a -> s{_ascbrsIPv6CidrBlockAssociation = a}); +ascbrsIPv6CidrBlockAssociation = lens _ascbrsIPv6CidrBlockAssociation (\ s a -> s{_ascbrsIPv6CidrBlockAssociation = a}) -- | -- | The response status code. ascbrsResponseStatus :: Lens' AssociateSubnetCidrBlockResponse Int -ascbrsResponseStatus = lens _ascbrsResponseStatus (\ s a -> s{_ascbrsResponseStatus = a}); +ascbrsResponseStatus = lens _ascbrsResponseStatus (\ s a -> s{_ascbrsResponseStatus = a}) instance NFData AssociateSubnetCidrBlockResponse where diff --git a/gen/Network/AWS/EC2/AssociateVPCCidrBlock.hs b/gen/Network/AWS/EC2/AssociateVPCCidrBlock.hs --- a/gen/Network/AWS/EC2/AssociateVPCCidrBlock.hs +++ b/gen/Network/AWS/EC2/AssociateVPCCidrBlock.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AssociateVPCCidrBlock --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,23 +72,23 @@ -> AssociateVPCCidrBlock associateVPCCidrBlock pVPCId_ = AssociateVPCCidrBlock' - { _avcbCidrBlock = Nothing - , _avcbAmazonProvidedIPv6CidrBlock = Nothing - , _avcbVPCId = pVPCId_ - } + { _avcbCidrBlock = Nothing + , _avcbAmazonProvidedIPv6CidrBlock = Nothing + , _avcbVPCId = pVPCId_ + } -- | An IPv4 CIDR block to associate with the VPC. avcbCidrBlock :: Lens' AssociateVPCCidrBlock (Maybe Text) -avcbCidrBlock = lens _avcbCidrBlock (\ s a -> s{_avcbCidrBlock = a}); +avcbCidrBlock = lens _avcbCidrBlock (\ s a -> s{_avcbCidrBlock = a}) -- | Requests an Amazon-provided IPv6 CIDR block with a /56 prefix length for the VPC. You cannot specify the range of IPv6 addresses, or the size of the CIDR block. avcbAmazonProvidedIPv6CidrBlock :: Lens' AssociateVPCCidrBlock (Maybe Bool) -avcbAmazonProvidedIPv6CidrBlock = lens _avcbAmazonProvidedIPv6CidrBlock (\ s a -> s{_avcbAmazonProvidedIPv6CidrBlock = a}); +avcbAmazonProvidedIPv6CidrBlock = lens _avcbAmazonProvidedIPv6CidrBlock (\ s a -> s{_avcbAmazonProvidedIPv6CidrBlock = a}) -- | The ID of the VPC. avcbVPCId :: Lens' AssociateVPCCidrBlock Text -avcbVPCId = lens _avcbVPCId (\ s a -> s{_avcbVPCId = a}); +avcbVPCId = lens _avcbVPCId (\ s a -> s{_avcbVPCId = a}) instance AWSRequest AssociateVPCCidrBlock where type Rs AssociateVPCCidrBlock = @@ -147,27 +147,27 @@ -> AssociateVPCCidrBlockResponse associateVPCCidrBlockResponse pResponseStatus_ = AssociateVPCCidrBlockResponse' - { _avcbrsVPCId = Nothing - , _avcbrsCidrBlockAssociation = Nothing - , _avcbrsIPv6CidrBlockAssociation = Nothing - , _avcbrsResponseStatus = pResponseStatus_ - } + { _avcbrsVPCId = Nothing + , _avcbrsCidrBlockAssociation = Nothing + , _avcbrsIPv6CidrBlockAssociation = Nothing + , _avcbrsResponseStatus = pResponseStatus_ + } -- | The ID of the VPC. avcbrsVPCId :: Lens' AssociateVPCCidrBlockResponse (Maybe Text) -avcbrsVPCId = lens _avcbrsVPCId (\ s a -> s{_avcbrsVPCId = a}); +avcbrsVPCId = lens _avcbrsVPCId (\ s a -> s{_avcbrsVPCId = a}) -- | Information about the IPv4 CIDR block association. avcbrsCidrBlockAssociation :: Lens' AssociateVPCCidrBlockResponse (Maybe VPCCidrBlockAssociation) -avcbrsCidrBlockAssociation = lens _avcbrsCidrBlockAssociation (\ s a -> s{_avcbrsCidrBlockAssociation = a}); +avcbrsCidrBlockAssociation = lens _avcbrsCidrBlockAssociation (\ s a -> s{_avcbrsCidrBlockAssociation = a}) -- | Information about the IPv6 CIDR block association. avcbrsIPv6CidrBlockAssociation :: Lens' AssociateVPCCidrBlockResponse (Maybe VPCIPv6CidrBlockAssociation) -avcbrsIPv6CidrBlockAssociation = lens _avcbrsIPv6CidrBlockAssociation (\ s a -> s{_avcbrsIPv6CidrBlockAssociation = a}); +avcbrsIPv6CidrBlockAssociation = lens _avcbrsIPv6CidrBlockAssociation (\ s a -> s{_avcbrsIPv6CidrBlockAssociation = a}) -- | -- | The response status code. avcbrsResponseStatus :: Lens' AssociateVPCCidrBlockResponse Int -avcbrsResponseStatus = lens _avcbrsResponseStatus (\ s a -> s{_avcbrsResponseStatus = a}); +avcbrsResponseStatus = lens _avcbrsResponseStatus (\ s a -> s{_avcbrsResponseStatus = a}) instance NFData AssociateVPCCidrBlockResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AttachClassicLinkVPC --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -81,28 +81,28 @@ -> AttachClassicLinkVPC attachClassicLinkVPC pInstanceId_ pVPCId_ = AttachClassicLinkVPC' - { _aclvDryRun = Nothing - , _aclvGroups = mempty - , _aclvInstanceId = pInstanceId_ - , _aclvVPCId = pVPCId_ - } + { _aclvDryRun = Nothing + , _aclvGroups = mempty + , _aclvInstanceId = pInstanceId_ + , _aclvVPCId = pVPCId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . aclvDryRun :: Lens' AttachClassicLinkVPC (Maybe Bool) -aclvDryRun = lens _aclvDryRun (\ s a -> s{_aclvDryRun = a}); +aclvDryRun = lens _aclvDryRun (\ s a -> s{_aclvDryRun = a}) -- | The ID of one or more of the VPC's security groups. You cannot specify security groups from a different VPC. aclvGroups :: Lens' AttachClassicLinkVPC [Text] -aclvGroups = lens _aclvGroups (\ s a -> s{_aclvGroups = a}) . _Coerce; +aclvGroups = lens _aclvGroups (\ s a -> s{_aclvGroups = a}) . _Coerce -- | The ID of an EC2-Classic instance to link to the ClassicLink-enabled VPC. aclvInstanceId :: Lens' AttachClassicLinkVPC Text -aclvInstanceId = lens _aclvInstanceId (\ s a -> s{_aclvInstanceId = a}); +aclvInstanceId = lens _aclvInstanceId (\ s a -> s{_aclvInstanceId = a}) -- | The ID of a ClassicLink-enabled VPC. aclvVPCId :: Lens' AttachClassicLinkVPC Text -aclvVPCId = lens _aclvVPCId (\ s a -> s{_aclvVPCId = a}); +aclvVPCId = lens _aclvVPCId (\ s a -> s{_aclvVPCId = a}) instance AWSRequest AttachClassicLinkVPC where type Rs AttachClassicLinkVPC = @@ -157,15 +157,15 @@ -> AttachClassicLinkVPCResponse attachClassicLinkVPCResponse pResponseStatus_ = AttachClassicLinkVPCResponse' - {_aclvrsReturn = Nothing, _aclvrsResponseStatus = pResponseStatus_} + {_aclvrsReturn = Nothing, _aclvrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. aclvrsReturn :: Lens' AttachClassicLinkVPCResponse (Maybe Bool) -aclvrsReturn = lens _aclvrsReturn (\ s a -> s{_aclvrsReturn = a}); +aclvrsReturn = lens _aclvrsReturn (\ s a -> s{_aclvrsReturn = a}) -- | -- | The response status code. aclvrsResponseStatus :: Lens' AttachClassicLinkVPCResponse Int -aclvrsResponseStatus = lens _aclvrsResponseStatus (\ s a -> s{_aclvrsResponseStatus = a}); +aclvrsResponseStatus = lens _aclvrsResponseStatus (\ s a -> s{_aclvrsResponseStatus = a}) instance NFData AttachClassicLinkVPCResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AttachInternetGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -70,23 +70,23 @@ -> AttachInternetGateway attachInternetGateway pInternetGatewayId_ pVPCId_ = AttachInternetGateway' - { _aigDryRun = Nothing - , _aigInternetGatewayId = pInternetGatewayId_ - , _aigVPCId = pVPCId_ - } + { _aigDryRun = Nothing + , _aigInternetGatewayId = pInternetGatewayId_ + , _aigVPCId = pVPCId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . aigDryRun :: Lens' AttachInternetGateway (Maybe Bool) -aigDryRun = lens _aigDryRun (\ s a -> s{_aigDryRun = a}); +aigDryRun = lens _aigDryRun (\ s a -> s{_aigDryRun = a}) -- | The ID of the Internet gateway. aigInternetGatewayId :: Lens' AttachInternetGateway Text -aigInternetGatewayId = lens _aigInternetGatewayId (\ s a -> s{_aigInternetGatewayId = a}); +aigInternetGatewayId = lens _aigInternetGatewayId (\ s a -> s{_aigInternetGatewayId = a}) -- | The ID of the VPC. aigVPCId :: Lens' AttachInternetGateway Text -aigVPCId = lens _aigVPCId (\ s a -> s{_aigVPCId = a}); +aigVPCId = lens _aigVPCId (\ s a -> s{_aigVPCId = a}) instance AWSRequest AttachInternetGateway where type Rs AttachInternetGateway = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AttachNetworkInterface --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -78,28 +78,28 @@ -> AttachNetworkInterface attachNetworkInterface pDeviceIndex_ pInstanceId_ pNetworkInterfaceId_ = AttachNetworkInterface' - { _aniDryRun = Nothing - , _aniDeviceIndex = pDeviceIndex_ - , _aniInstanceId = pInstanceId_ - , _aniNetworkInterfaceId = pNetworkInterfaceId_ - } + { _aniDryRun = Nothing + , _aniDeviceIndex = pDeviceIndex_ + , _aniInstanceId = pInstanceId_ + , _aniNetworkInterfaceId = pNetworkInterfaceId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . aniDryRun :: Lens' AttachNetworkInterface (Maybe Bool) -aniDryRun = lens _aniDryRun (\ s a -> s{_aniDryRun = a}); +aniDryRun = lens _aniDryRun (\ s a -> s{_aniDryRun = a}) -- | The index of the device for the network interface attachment. aniDeviceIndex :: Lens' AttachNetworkInterface Int -aniDeviceIndex = lens _aniDeviceIndex (\ s a -> s{_aniDeviceIndex = a}); +aniDeviceIndex = lens _aniDeviceIndex (\ s a -> s{_aniDeviceIndex = a}) -- | The ID of the instance. aniInstanceId :: Lens' AttachNetworkInterface Text -aniInstanceId = lens _aniInstanceId (\ s a -> s{_aniInstanceId = a}); +aniInstanceId = lens _aniInstanceId (\ s a -> s{_aniInstanceId = a}) -- | The ID of the network interface. aniNetworkInterfaceId :: Lens' AttachNetworkInterface Text -aniNetworkInterfaceId = lens _aniNetworkInterfaceId (\ s a -> s{_aniNetworkInterfaceId = a}); +aniNetworkInterfaceId = lens _aniNetworkInterfaceId (\ s a -> s{_aniNetworkInterfaceId = a}) instance AWSRequest AttachNetworkInterface where type Rs AttachNetworkInterface = @@ -155,15 +155,15 @@ -> AttachNetworkInterfaceResponse attachNetworkInterfaceResponse pResponseStatus_ = AttachNetworkInterfaceResponse' - {_anirsAttachmentId = Nothing, _anirsResponseStatus = pResponseStatus_} + {_anirsAttachmentId = Nothing, _anirsResponseStatus = pResponseStatus_} -- | The ID of the network interface attachment. anirsAttachmentId :: Lens' AttachNetworkInterfaceResponse (Maybe Text) -anirsAttachmentId = lens _anirsAttachmentId (\ s a -> s{_anirsAttachmentId = a}); +anirsAttachmentId = lens _anirsAttachmentId (\ s a -> s{_anirsAttachmentId = a}) -- | -- | The response status code. anirsResponseStatus :: Lens' AttachNetworkInterfaceResponse Int -anirsResponseStatus = lens _anirsResponseStatus (\ s a -> s{_anirsResponseStatus = a}); +anirsResponseStatus = lens _anirsResponseStatus (\ s a -> s{_anirsResponseStatus = a}) instance NFData AttachNetworkInterfaceResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AttachVPNGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,20 +75,23 @@ -> AttachVPNGateway attachVPNGateway pVPCId_ pVPNGatewayId_ = AttachVPNGateway' - {_avgDryRun = Nothing, _avgVPCId = pVPCId_, _avgVPNGatewayId = pVPNGatewayId_} + { _avgDryRun = Nothing + , _avgVPCId = pVPCId_ + , _avgVPNGatewayId = pVPNGatewayId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . avgDryRun :: Lens' AttachVPNGateway (Maybe Bool) -avgDryRun = lens _avgDryRun (\ s a -> s{_avgDryRun = a}); +avgDryRun = lens _avgDryRun (\ s a -> s{_avgDryRun = a}) -- | The ID of the VPC. avgVPCId :: Lens' AttachVPNGateway Text -avgVPCId = lens _avgVPCId (\ s a -> s{_avgVPCId = a}); +avgVPCId = lens _avgVPCId (\ s a -> s{_avgVPCId = a}) -- | The ID of the virtual private gateway. avgVPNGatewayId :: Lens' AttachVPNGateway Text -avgVPNGatewayId = lens _avgVPNGatewayId (\ s a -> s{_avgVPNGatewayId = a}); +avgVPNGatewayId = lens _avgVPNGatewayId (\ s a -> s{_avgVPNGatewayId = a}) instance AWSRequest AttachVPNGateway where type Rs AttachVPNGateway = AttachVPNGatewayResponse @@ -140,15 +143,15 @@ -> AttachVPNGatewayResponse attachVPNGatewayResponse pResponseStatus_ = AttachVPNGatewayResponse' - {_avgrsVPCAttachment = Nothing, _avgrsResponseStatus = pResponseStatus_} + {_avgrsVPCAttachment = Nothing, _avgrsResponseStatus = pResponseStatus_} -- | Information about the attachment. avgrsVPCAttachment :: Lens' AttachVPNGatewayResponse (Maybe VPCAttachment) -avgrsVPCAttachment = lens _avgrsVPCAttachment (\ s a -> s{_avgrsVPCAttachment = a}); +avgrsVPCAttachment = lens _avgrsVPCAttachment (\ s a -> s{_avgrsVPCAttachment = a}) -- | -- | The response status code. avgrsResponseStatus :: Lens' AttachVPNGatewayResponse Int -avgrsResponseStatus = lens _avgrsResponseStatus (\ s a -> s{_avgrsResponseStatus = a}); +avgrsResponseStatus = lens _avgrsResponseStatus (\ s a -> s{_avgrsResponseStatus = a}) instance NFData AttachVPNGatewayResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AttachVolume --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -102,28 +102,28 @@ -> AttachVolume attachVolume pDevice_ pInstanceId_ pVolumeId_ = AttachVolume' - { _avDryRun = Nothing - , _avDevice = pDevice_ - , _avInstanceId = pInstanceId_ - , _avVolumeId = pVolumeId_ - } + { _avDryRun = Nothing + , _avDevice = pDevice_ + , _avInstanceId = pInstanceId_ + , _avVolumeId = pVolumeId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . avDryRun :: Lens' AttachVolume (Maybe Bool) -avDryRun = lens _avDryRun (\ s a -> s{_avDryRun = a}); +avDryRun = lens _avDryRun (\ s a -> s{_avDryRun = a}) -- | The device name (for example, @/dev/sdh@ or @xvdh@ ). avDevice :: Lens' AttachVolume Text -avDevice = lens _avDevice (\ s a -> s{_avDevice = a}); +avDevice = lens _avDevice (\ s a -> s{_avDevice = a}) -- | The ID of the instance. avInstanceId :: Lens' AttachVolume Text -avInstanceId = lens _avInstanceId (\ s a -> s{_avInstanceId = a}); +avInstanceId = lens _avInstanceId (\ s a -> s{_avInstanceId = a}) -- | The ID of the EBS volume. The volume and instance must be within the same Availability Zone. avVolumeId :: Lens' AttachVolume Text -avVolumeId = lens _avVolumeId (\ s a -> s{_avVolumeId = a}); +avVolumeId = lens _avVolumeId (\ s a -> s{_avVolumeId = a}) instance AWSRequest AttachVolume where type Rs AttachVolume = VolumeAttachment 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AuthorizeSecurityGroupEgress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -97,53 +97,53 @@ -> AuthorizeSecurityGroupEgress authorizeSecurityGroupEgress pGroupId_ = AuthorizeSecurityGroupEgress' - { _asgeFromPort = Nothing - , _asgeIPPermissions = Nothing - , _asgeIPProtocol = Nothing - , _asgeToPort = Nothing - , _asgeCidrIP = Nothing - , _asgeSourceSecurityGroupOwnerId = Nothing - , _asgeSourceSecurityGroupName = Nothing - , _asgeDryRun = Nothing - , _asgeGroupId = pGroupId_ - } + { _asgeFromPort = Nothing + , _asgeIPPermissions = Nothing + , _asgeIPProtocol = Nothing + , _asgeToPort = Nothing + , _asgeCidrIP = Nothing + , _asgeSourceSecurityGroupOwnerId = Nothing + , _asgeSourceSecurityGroupName = Nothing + , _asgeDryRun = Nothing + , _asgeGroupId = pGroupId_ + } -- | Not supported. Use a set of IP permissions to specify the port. asgeFromPort :: Lens' AuthorizeSecurityGroupEgress (Maybe Int) -asgeFromPort = lens _asgeFromPort (\ s a -> s{_asgeFromPort = a}); +asgeFromPort = lens _asgeFromPort (\ s a -> s{_asgeFromPort = a}) -- | One or more sets of IP permissions. You can't specify a destination security group and a CIDR IP address range in the same set of permissions. asgeIPPermissions :: Lens' AuthorizeSecurityGroupEgress [IPPermission] -asgeIPPermissions = lens _asgeIPPermissions (\ s a -> s{_asgeIPPermissions = a}) . _Default . _Coerce; +asgeIPPermissions = lens _asgeIPPermissions (\ s a -> s{_asgeIPPermissions = a}) . _Default . _Coerce -- | Not supported. Use a set of IP permissions to specify the protocol name or number. asgeIPProtocol :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) -asgeIPProtocol = lens _asgeIPProtocol (\ s a -> s{_asgeIPProtocol = a}); +asgeIPProtocol = lens _asgeIPProtocol (\ s a -> s{_asgeIPProtocol = a}) -- | Not supported. Use a set of IP permissions to specify the port. asgeToPort :: Lens' AuthorizeSecurityGroupEgress (Maybe Int) -asgeToPort = lens _asgeToPort (\ s a -> s{_asgeToPort = a}); +asgeToPort = lens _asgeToPort (\ s a -> s{_asgeToPort = a}) -- | Not supported. Use a set of IP permissions to specify the CIDR. asgeCidrIP :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) -asgeCidrIP = lens _asgeCidrIP (\ s a -> s{_asgeCidrIP = a}); +asgeCidrIP = lens _asgeCidrIP (\ s a -> s{_asgeCidrIP = a}) -- | Not supported. Use a set of IP permissions to specify a destination security group. asgeSourceSecurityGroupOwnerId :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) -asgeSourceSecurityGroupOwnerId = lens _asgeSourceSecurityGroupOwnerId (\ s a -> s{_asgeSourceSecurityGroupOwnerId = a}); +asgeSourceSecurityGroupOwnerId = lens _asgeSourceSecurityGroupOwnerId (\ s a -> s{_asgeSourceSecurityGroupOwnerId = a}) -- | Not supported. Use a set of IP permissions to specify a destination security group. asgeSourceSecurityGroupName :: Lens' AuthorizeSecurityGroupEgress (Maybe Text) -asgeSourceSecurityGroupName = lens _asgeSourceSecurityGroupName (\ s a -> s{_asgeSourceSecurityGroupName = a}); +asgeSourceSecurityGroupName = lens _asgeSourceSecurityGroupName (\ s a -> s{_asgeSourceSecurityGroupName = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . asgeDryRun :: Lens' AuthorizeSecurityGroupEgress (Maybe Bool) -asgeDryRun = lens _asgeDryRun (\ s a -> s{_asgeDryRun = a}); +asgeDryRun = lens _asgeDryRun (\ s a -> s{_asgeDryRun = a}) -- | The ID of the security group. asgeGroupId :: Lens' AuthorizeSecurityGroupEgress Text -asgeGroupId = lens _asgeGroupId (\ s a -> s{_asgeGroupId = a}); +asgeGroupId = lens _asgeGroupId (\ s a -> s{_asgeGroupId = a}) instance AWSRequest AuthorizeSecurityGroupEgress where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.AuthorizeSecurityGroupIngress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -104,58 +104,58 @@ :: AuthorizeSecurityGroupIngress authorizeSecurityGroupIngress = AuthorizeSecurityGroupIngress' - { _asgiFromPort = Nothing - , _asgiIPPermissions = Nothing - , _asgiIPProtocol = Nothing - , _asgiGroupId = Nothing - , _asgiToPort = Nothing - , _asgiCidrIP = Nothing - , _asgiSourceSecurityGroupOwnerId = Nothing - , _asgiGroupName = Nothing - , _asgiSourceSecurityGroupName = Nothing - , _asgiDryRun = Nothing - } + { _asgiFromPort = Nothing + , _asgiIPPermissions = Nothing + , _asgiIPProtocol = Nothing + , _asgiGroupId = Nothing + , _asgiToPort = Nothing + , _asgiCidrIP = Nothing + , _asgiSourceSecurityGroupOwnerId = Nothing + , _asgiGroupName = Nothing + , _asgiSourceSecurityGroupName = Nothing + , _asgiDryRun = Nothing + } -- | The start of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 type number. For the ICMP/ICMPv6 type number, use @-1@ to specify all types. If you specify all ICMP/ICMPv6 types, you must specify all codes. asgiFromPort :: Lens' AuthorizeSecurityGroupIngress (Maybe Int) -asgiFromPort = lens _asgiFromPort (\ s a -> s{_asgiFromPort = a}); +asgiFromPort = lens _asgiFromPort (\ s a -> s{_asgiFromPort = a}) -- | One or more sets of IP permissions. Can be used to specify multiple rules in a single command. asgiIPPermissions :: Lens' AuthorizeSecurityGroupIngress [IPPermission] -asgiIPPermissions = lens _asgiIPPermissions (\ s a -> s{_asgiIPPermissions = a}) . _Default . _Coerce; +asgiIPPermissions = lens _asgiIPPermissions (\ s a -> s{_asgiIPPermissions = a}) . _Default . _Coerce -- | The IP protocol name (@tcp@ , @udp@ , @icmp@ ) or number (see ). (VPC only) Use @-1@ to specify all protocols. If you specify @-1@ , or a protocol number other than @tcp@ , @udp@ , @icmp@ , or @58@ (ICMPv6), traffic on all ports is allowed, regardless of any ports you specify. For @tcp@ , @udp@ , and @icmp@ , you must specify a port range. For protocol @58@ (ICMPv6), you can optionally specify a port range; if you don't, traffic for all types and codes is allowed. asgiIPProtocol :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) -asgiIPProtocol = lens _asgiIPProtocol (\ s a -> s{_asgiIPProtocol = a}); +asgiIPProtocol = lens _asgiIPProtocol (\ s a -> s{_asgiIPProtocol = a}) -- | The ID of the security group. You must specify either the security group ID or the security group name in the request. For security groups in a nondefault VPC, you must specify the security group ID. asgiGroupId :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) -asgiGroupId = lens _asgiGroupId (\ s a -> s{_asgiGroupId = a}); +asgiGroupId = lens _asgiGroupId (\ s a -> s{_asgiGroupId = a}) -- | The end of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 code number. For the ICMP/ICMPv6 code number, use @-1@ to specify all codes. If you specify all ICMP/ICMPv6 types, you must specify all codes. asgiToPort :: Lens' AuthorizeSecurityGroupIngress (Maybe Int) -asgiToPort = lens _asgiToPort (\ s a -> s{_asgiToPort = a}); +asgiToPort = lens _asgiToPort (\ s a -> s{_asgiToPort = a}) -- | The CIDR IPv4 address range. You can't specify this parameter when specifying a source security group. asgiCidrIP :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) -asgiCidrIP = lens _asgiCidrIP (\ s a -> s{_asgiCidrIP = a}); +asgiCidrIP = lens _asgiCidrIP (\ s a -> s{_asgiCidrIP = a}) -- | [EC2-Classic] The AWS account ID for the source security group, if the source security group is in a different account. You can't specify this parameter in combination with the following parameters: the CIDR IP address range, the IP protocol, the start of the port range, and the end of the port range. Creates rules that grant full ICMP, UDP, and TCP access. To create a rule with a specific IP protocol and port range, use a set of IP permissions instead. asgiSourceSecurityGroupOwnerId :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) -asgiSourceSecurityGroupOwnerId = lens _asgiSourceSecurityGroupOwnerId (\ s a -> s{_asgiSourceSecurityGroupOwnerId = a}); +asgiSourceSecurityGroupOwnerId = lens _asgiSourceSecurityGroupOwnerId (\ s a -> s{_asgiSourceSecurityGroupOwnerId = a}) -- | [EC2-Classic, default VPC] The name of the security group. You must specify either the security group ID or the security group name in the request. asgiGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) -asgiGroupName = lens _asgiGroupName (\ s a -> s{_asgiGroupName = a}); +asgiGroupName = lens _asgiGroupName (\ s a -> s{_asgiGroupName = a}) -- | [EC2-Classic, default VPC] The name of the source security group. You can't specify this parameter in combination with the following parameters: the CIDR IP address range, the start of the port range, the IP protocol, and the end of the port range. Creates rules that grant full ICMP, UDP, and TCP access. To create a rule with a specific IP protocol and port range, use a set of IP permissions instead. For EC2-VPC, the source security group must be in the same VPC. asgiSourceSecurityGroupName :: Lens' AuthorizeSecurityGroupIngress (Maybe Text) -asgiSourceSecurityGroupName = lens _asgiSourceSecurityGroupName (\ s a -> s{_asgiSourceSecurityGroupName = a}); +asgiSourceSecurityGroupName = lens _asgiSourceSecurityGroupName (\ s a -> s{_asgiSourceSecurityGroupName = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . asgiDryRun :: Lens' AuthorizeSecurityGroupIngress (Maybe Bool) -asgiDryRun = lens _asgiDryRun (\ s a -> s{_asgiDryRun = a}); +asgiDryRun = lens _asgiDryRun (\ s a -> s{_asgiDryRun = a}) instance AWSRequest AuthorizeSecurityGroupIngress where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.BundleInstance --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,20 +77,20 @@ -> BundleInstance bundleInstance pInstanceId_ pStorage_ = BundleInstance' - {_biDryRun = Nothing, _biInstanceId = pInstanceId_, _biStorage = pStorage_} + {_biDryRun = Nothing, _biInstanceId = pInstanceId_, _biStorage = pStorage_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . biDryRun :: Lens' BundleInstance (Maybe Bool) -biDryRun = lens _biDryRun (\ s a -> s{_biDryRun = a}); +biDryRun = lens _biDryRun (\ s a -> s{_biDryRun = a}) -- | The ID of the instance to bundle. Type: String Default: None Required: Yes biInstanceId :: Lens' BundleInstance Text -biInstanceId = lens _biInstanceId (\ s a -> s{_biInstanceId = a}); +biInstanceId = lens _biInstanceId (\ s a -> s{_biInstanceId = a}) -- | The bucket in which to store the AMI. You can specify a bucket that you already own or a new bucket that Amazon EC2 creates on your behalf. If you specify a bucket that belongs to someone else, Amazon EC2 returns an error. biStorage :: Lens' BundleInstance Storage -biStorage = lens _biStorage (\ s a -> s{_biStorage = a}); +biStorage = lens _biStorage (\ s a -> s{_biStorage = a}) instance AWSRequest BundleInstance where type Rs BundleInstance = BundleInstanceResponse @@ -142,15 +142,15 @@ -> BundleInstanceResponse bundleInstanceResponse pResponseStatus_ = BundleInstanceResponse' - {_birsBundleTask = Nothing, _birsResponseStatus = pResponseStatus_} + {_birsBundleTask = Nothing, _birsResponseStatus = pResponseStatus_} -- | Information about the bundle task. birsBundleTask :: Lens' BundleInstanceResponse (Maybe BundleTask) -birsBundleTask = lens _birsBundleTask (\ s a -> s{_birsBundleTask = a}); +birsBundleTask = lens _birsBundleTask (\ s a -> s{_birsBundleTask = a}) -- | -- | The response status code. birsResponseStatus :: Lens' BundleInstanceResponse Int -birsResponseStatus = lens _birsResponseStatus (\ s a -> s{_birsResponseStatus = a}); +birsResponseStatus = lens _birsResponseStatus (\ s a -> s{_birsResponseStatus = a}) instance NFData BundleInstanceResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CancelBundleTask --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,11 +72,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cbtDryRun :: Lens' CancelBundleTask (Maybe Bool) -cbtDryRun = lens _cbtDryRun (\ s a -> s{_cbtDryRun = a}); +cbtDryRun = lens _cbtDryRun (\ s a -> s{_cbtDryRun = a}) -- | The ID of the bundle task. cbtBundleId :: Lens' CancelBundleTask Text -cbtBundleId = lens _cbtBundleId (\ s a -> s{_cbtBundleId = a}); +cbtBundleId = lens _cbtBundleId (\ s a -> s{_cbtBundleId = a}) instance AWSRequest CancelBundleTask where type Rs CancelBundleTask = CancelBundleTaskResponse @@ -127,15 +127,15 @@ -> CancelBundleTaskResponse cancelBundleTaskResponse pResponseStatus_ = CancelBundleTaskResponse' - {_cbtrsBundleTask = Nothing, _cbtrsResponseStatus = pResponseStatus_} + {_cbtrsBundleTask = Nothing, _cbtrsResponseStatus = pResponseStatus_} -- | Information about the bundle task. cbtrsBundleTask :: Lens' CancelBundleTaskResponse (Maybe BundleTask) -cbtrsBundleTask = lens _cbtrsBundleTask (\ s a -> s{_cbtrsBundleTask = a}); +cbtrsBundleTask = lens _cbtrsBundleTask (\ s a -> s{_cbtrsBundleTask = a}) -- | -- | The response status code. cbtrsResponseStatus :: Lens' CancelBundleTaskResponse Int -cbtrsResponseStatus = lens _cbtrsResponseStatus (\ s a -> s{_cbtrsResponseStatus = a}); +cbtrsResponseStatus = lens _cbtrsResponseStatus (\ s a -> s{_cbtrsResponseStatus = a}) instance NFData CancelBundleTaskResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CancelConversionTask --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,23 +71,23 @@ -> CancelConversionTask cancelConversionTask pConversionTaskId_ = CancelConversionTask' - { _cctReasonMessage = Nothing - , _cctDryRun = Nothing - , _cctConversionTaskId = pConversionTaskId_ - } + { _cctReasonMessage = Nothing + , _cctDryRun = Nothing + , _cctConversionTaskId = pConversionTaskId_ + } -- | The reason for canceling the conversion task. cctReasonMessage :: Lens' CancelConversionTask (Maybe Text) -cctReasonMessage = lens _cctReasonMessage (\ s a -> s{_cctReasonMessage = a}); +cctReasonMessage = lens _cctReasonMessage (\ s a -> s{_cctReasonMessage = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cctDryRun :: Lens' CancelConversionTask (Maybe Bool) -cctDryRun = lens _cctDryRun (\ s a -> s{_cctDryRun = a}); +cctDryRun = lens _cctDryRun (\ s a -> s{_cctDryRun = a}) -- | The ID of the conversion task. cctConversionTaskId :: Lens' CancelConversionTask Text -cctConversionTaskId = lens _cctConversionTaskId (\ s a -> s{_cctConversionTaskId = a}); +cctConversionTaskId = lens _cctConversionTaskId (\ s a -> s{_cctConversionTaskId = a}) instance AWSRequest CancelConversionTask where type Rs CancelConversionTask = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CancelExportTask --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,7 +65,7 @@ -- | The ID of the export task. This is the ID returned by @CreateInstanceExportTask@ . cetExportTaskId :: Lens' CancelExportTask Text -cetExportTaskId = lens _cetExportTaskId (\ s a -> s{_cetExportTaskId = a}); +cetExportTaskId = lens _cetExportTaskId (\ s a -> s{_cetExportTaskId = a}) instance AWSRequest CancelExportTask where type Rs CancelExportTask = CancelExportTaskResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CancelImportTask --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,23 @@ :: CancelImportTask cancelImportTask = CancelImportTask' - {_citCancelReason = Nothing, _citImportTaskId = Nothing, _citDryRun = Nothing} + { _citCancelReason = Nothing + , _citImportTaskId = Nothing + , _citDryRun = Nothing + } -- | The reason for canceling the task. citCancelReason :: Lens' CancelImportTask (Maybe Text) -citCancelReason = lens _citCancelReason (\ s a -> s{_citCancelReason = a}); +citCancelReason = lens _citCancelReason (\ s a -> s{_citCancelReason = a}) -- | The ID of the import image or import snapshot task to be canceled. citImportTaskId :: Lens' CancelImportTask (Maybe Text) -citImportTaskId = lens _citImportTaskId (\ s a -> s{_citImportTaskId = a}); +citImportTaskId = lens _citImportTaskId (\ s a -> s{_citImportTaskId = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . citDryRun :: Lens' CancelImportTask (Maybe Bool) -citDryRun = lens _citDryRun (\ s a -> s{_citDryRun = a}); +citDryRun = lens _citDryRun (\ s a -> s{_citDryRun = a}) instance AWSRequest CancelImportTask where type Rs CancelImportTask = CancelImportTaskResponse @@ -147,27 +150,27 @@ -> CancelImportTaskResponse cancelImportTaskResponse pResponseStatus_ = CancelImportTaskResponse' - { _citrsState = Nothing - , _citrsImportTaskId = Nothing - , _citrsPreviousState = Nothing - , _citrsResponseStatus = pResponseStatus_ - } + { _citrsState = Nothing + , _citrsImportTaskId = Nothing + , _citrsPreviousState = Nothing + , _citrsResponseStatus = pResponseStatus_ + } -- | The current state of the task being canceled. citrsState :: Lens' CancelImportTaskResponse (Maybe Text) -citrsState = lens _citrsState (\ s a -> s{_citrsState = a}); +citrsState = lens _citrsState (\ s a -> s{_citrsState = a}) -- | The ID of the task being canceled. citrsImportTaskId :: Lens' CancelImportTaskResponse (Maybe Text) -citrsImportTaskId = lens _citrsImportTaskId (\ s a -> s{_citrsImportTaskId = a}); +citrsImportTaskId = lens _citrsImportTaskId (\ s a -> s{_citrsImportTaskId = a}) -- | The current state of the task being canceled. citrsPreviousState :: Lens' CancelImportTaskResponse (Maybe Text) -citrsPreviousState = lens _citrsPreviousState (\ s a -> s{_citrsPreviousState = a}); +citrsPreviousState = lens _citrsPreviousState (\ s a -> s{_citrsPreviousState = a}) -- | -- | The response status code. citrsResponseStatus :: Lens' CancelImportTaskResponse Int -citrsResponseStatus = lens _citrsResponseStatus (\ s a -> s{_citrsResponseStatus = a}); +citrsResponseStatus = lens _citrsResponseStatus (\ s a -> s{_citrsResponseStatus = a}) instance NFData CancelImportTaskResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CancelReservedInstancesListing --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,12 +66,12 @@ -> CancelReservedInstancesListing cancelReservedInstancesListing pReservedInstancesListingId_ = CancelReservedInstancesListing' - {_crilReservedInstancesListingId = pReservedInstancesListingId_} + {_crilReservedInstancesListingId = pReservedInstancesListingId_} -- | The ID of the Reserved Instance listing. crilReservedInstancesListingId :: Lens' CancelReservedInstancesListing Text -crilReservedInstancesListingId = lens _crilReservedInstancesListingId (\ s a -> s{_crilReservedInstancesListingId = a}); +crilReservedInstancesListingId = lens _crilReservedInstancesListingId (\ s a -> s{_crilReservedInstancesListingId = a}) instance AWSRequest CancelReservedInstancesListing where @@ -130,18 +130,18 @@ -> CancelReservedInstancesListingResponse cancelReservedInstancesListingResponse pResponseStatus_ = CancelReservedInstancesListingResponse' - { _crilrsReservedInstancesListings = Nothing - , _crilrsResponseStatus = pResponseStatus_ - } + { _crilrsReservedInstancesListings = Nothing + , _crilrsResponseStatus = pResponseStatus_ + } -- | The Reserved Instance listing. crilrsReservedInstancesListings :: Lens' CancelReservedInstancesListingResponse [ReservedInstancesListing] -crilrsReservedInstancesListings = lens _crilrsReservedInstancesListings (\ s a -> s{_crilrsReservedInstancesListings = a}) . _Default . _Coerce; +crilrsReservedInstancesListings = lens _crilrsReservedInstancesListings (\ s a -> s{_crilrsReservedInstancesListings = a}) . _Default . _Coerce -- | -- | The response status code. crilrsResponseStatus :: Lens' CancelReservedInstancesListingResponse Int -crilrsResponseStatus = lens _crilrsResponseStatus (\ s a -> s{_crilrsResponseStatus = a}); +crilrsResponseStatus = lens _crilrsResponseStatus (\ s a -> s{_crilrsResponseStatus = a}) instance NFData CancelReservedInstancesListingResponse 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 @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.EC2.CancelSpotFleetRequests --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Cancels the specified Spot fleet requests. +-- 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. +-- 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. -- module Network.AWS.EC2.CancelSpotFleetRequests ( @@ -67,31 +67,31 @@ -- -- * 'csfrDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'csfrSpotFleetRequestIds' - The IDs of the Spot fleet requests. +-- * 'csfrSpotFleetRequestIds' - The IDs of the Spot Fleet requests. -- --- * 'csfrTerminateInstances' - Indicates whether to terminate instances for a Spot fleet request if it is canceled successfully. +-- * 'csfrTerminateInstances' - Indicates whether to terminate instances for a Spot Fleet request if it is canceled successfully. cancelSpotFleetRequests :: Bool -- ^ 'csfrTerminateInstances' -> CancelSpotFleetRequests cancelSpotFleetRequests pTerminateInstances_ = CancelSpotFleetRequests' - { _csfrDryRun = Nothing - , _csfrSpotFleetRequestIds = mempty - , _csfrTerminateInstances = pTerminateInstances_ - } + { _csfrDryRun = Nothing + , _csfrSpotFleetRequestIds = mempty + , _csfrTerminateInstances = pTerminateInstances_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . csfrDryRun :: Lens' CancelSpotFleetRequests (Maybe Bool) -csfrDryRun = lens _csfrDryRun (\ s a -> s{_csfrDryRun = a}); +csfrDryRun = lens _csfrDryRun (\ s a -> s{_csfrDryRun = a}) --- | The IDs of the Spot fleet requests. +-- | The IDs of the Spot Fleet requests. csfrSpotFleetRequestIds :: Lens' CancelSpotFleetRequests [Text] -csfrSpotFleetRequestIds = lens _csfrSpotFleetRequestIds (\ s a -> s{_csfrSpotFleetRequestIds = a}) . _Coerce; +csfrSpotFleetRequestIds = lens _csfrSpotFleetRequestIds (\ s a -> s{_csfrSpotFleetRequestIds = a}) . _Coerce --- | Indicates whether to terminate instances for a Spot fleet request if it is canceled successfully. +-- | Indicates whether to terminate instances for a Spot Fleet request if it is canceled successfully. csfrTerminateInstances :: Lens' CancelSpotFleetRequests Bool -csfrTerminateInstances = lens _csfrTerminateInstances (\ s a -> s{_csfrTerminateInstances = a}); +csfrTerminateInstances = lens _csfrTerminateInstances (\ s a -> s{_csfrTerminateInstances = a}) instance AWSRequest CancelSpotFleetRequests where type Rs CancelSpotFleetRequests = @@ -145,9 +145,9 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csfrrsSuccessfulFleetRequests' - Information about the Spot fleet requests that are successfully canceled. +-- * 'csfrrsSuccessfulFleetRequests' - Information about the Spot Fleet requests that are successfully canceled. -- --- * 'csfrrsUnsuccessfulFleetRequests' - Information about the Spot fleet requests that are not successfully canceled. +-- * 'csfrrsUnsuccessfulFleetRequests' - Information about the Spot Fleet requests that are not successfully canceled. -- -- * 'csfrrsResponseStatus' - -- | The response status code. cancelSpotFleetRequestsResponse @@ -155,22 +155,22 @@ -> CancelSpotFleetRequestsResponse cancelSpotFleetRequestsResponse pResponseStatus_ = CancelSpotFleetRequestsResponse' - { _csfrrsSuccessfulFleetRequests = Nothing - , _csfrrsUnsuccessfulFleetRequests = Nothing - , _csfrrsResponseStatus = pResponseStatus_ - } + { _csfrrsSuccessfulFleetRequests = Nothing + , _csfrrsUnsuccessfulFleetRequests = Nothing + , _csfrrsResponseStatus = pResponseStatus_ + } --- | Information about the Spot fleet requests that are successfully canceled. +-- | Information about the Spot Fleet requests that are successfully canceled. csfrrsSuccessfulFleetRequests :: Lens' CancelSpotFleetRequestsResponse [CancelSpotFleetRequestsSuccessItem] -csfrrsSuccessfulFleetRequests = lens _csfrrsSuccessfulFleetRequests (\ s a -> s{_csfrrsSuccessfulFleetRequests = a}) . _Default . _Coerce; +csfrrsSuccessfulFleetRequests = lens _csfrrsSuccessfulFleetRequests (\ s a -> s{_csfrrsSuccessfulFleetRequests = a}) . _Default . _Coerce --- | Information about the Spot fleet requests that are not successfully canceled. +-- | Information about the Spot Fleet requests that are not successfully canceled. csfrrsUnsuccessfulFleetRequests :: Lens' CancelSpotFleetRequestsResponse [CancelSpotFleetRequestsErrorItem] -csfrrsUnsuccessfulFleetRequests = lens _csfrrsUnsuccessfulFleetRequests (\ s a -> s{_csfrrsUnsuccessfulFleetRequests = a}) . _Default . _Coerce; +csfrrsUnsuccessfulFleetRequests = lens _csfrrsUnsuccessfulFleetRequests (\ s a -> s{_csfrrsUnsuccessfulFleetRequests = a}) . _Default . _Coerce -- | -- | The response status code. csfrrsResponseStatus :: Lens' CancelSpotFleetRequestsResponse Int -csfrrsResponseStatus = lens _csfrrsResponseStatus (\ s a -> s{_csfrrsResponseStatus = a}); +csfrrsResponseStatus = lens _csfrrsResponseStatus (\ s a -> s{_csfrrsResponseStatus = a}) instance NFData CancelSpotFleetRequestsResponse where 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 @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.EC2.CancelSpotInstanceRequests --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Cancels one or more Spot instance requests. Spot instances are instances that Amazon EC2 starts on your behalf when the bid price that you specify exceeds the current Spot price. Amazon EC2 periodically sets the Spot price based on available Spot instance capacity and current Spot instance requests. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Cancels one or more Spot Instance requests. Spot Instances are instances that Amazon EC2 starts on your behalf when the maximum price that you specify exceeds the current Spot price. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . -- -- --- /Important:/ Canceling a Spot instance request does not terminate running Spot instances associated with the request. +-- /Important:/ Canceling a Spot Instance request does not terminate running Spot Instances associated with the request. -- module Network.AWS.EC2.CancelSpotInstanceRequests ( @@ -64,21 +64,21 @@ -- -- * 'csirDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'csirSpotInstanceRequestIds' - One or more Spot instance request IDs. +-- * 'csirSpotInstanceRequestIds' - One or more Spot Instance request IDs. cancelSpotInstanceRequests :: CancelSpotInstanceRequests cancelSpotInstanceRequests = CancelSpotInstanceRequests' - {_csirDryRun = Nothing, _csirSpotInstanceRequestIds = mempty} + {_csirDryRun = Nothing, _csirSpotInstanceRequestIds = mempty} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . csirDryRun :: Lens' CancelSpotInstanceRequests (Maybe Bool) -csirDryRun = lens _csirDryRun (\ s a -> s{_csirDryRun = a}); +csirDryRun = lens _csirDryRun (\ s a -> s{_csirDryRun = a}) --- | One or more Spot instance request IDs. +-- | One or more Spot Instance request IDs. csirSpotInstanceRequestIds :: Lens' CancelSpotInstanceRequests [Text] -csirSpotInstanceRequestIds = lens _csirSpotInstanceRequestIds (\ s a -> s{_csirSpotInstanceRequestIds = a}) . _Coerce; +csirSpotInstanceRequestIds = lens _csirSpotInstanceRequestIds (\ s a -> s{_csirSpotInstanceRequestIds = a}) . _Coerce instance AWSRequest CancelSpotInstanceRequests where type Rs CancelSpotInstanceRequests = @@ -127,7 +127,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csirrsCancelledSpotInstanceRequests' - One or more Spot instance requests. +-- * 'csirrsCancelledSpotInstanceRequests' - One or more Spot Instance requests. -- -- * 'csirrsResponseStatus' - -- | The response status code. cancelSpotInstanceRequestsResponse @@ -135,18 +135,18 @@ -> CancelSpotInstanceRequestsResponse cancelSpotInstanceRequestsResponse pResponseStatus_ = CancelSpotInstanceRequestsResponse' - { _csirrsCancelledSpotInstanceRequests = Nothing - , _csirrsResponseStatus = pResponseStatus_ - } + { _csirrsCancelledSpotInstanceRequests = Nothing + , _csirrsResponseStatus = pResponseStatus_ + } --- | One or more Spot instance requests. +-- | One or more Spot Instance requests. csirrsCancelledSpotInstanceRequests :: Lens' CancelSpotInstanceRequestsResponse [CancelledSpotInstanceRequest] -csirrsCancelledSpotInstanceRequests = lens _csirrsCancelledSpotInstanceRequests (\ s a -> s{_csirrsCancelledSpotInstanceRequests = a}) . _Default . _Coerce; +csirrsCancelledSpotInstanceRequests = lens _csirrsCancelledSpotInstanceRequests (\ s a -> s{_csirrsCancelledSpotInstanceRequests = a}) . _Default . _Coerce -- | -- | The response status code. csirrsResponseStatus :: Lens' CancelSpotInstanceRequestsResponse Int -csirrsResponseStatus = lens _csirrsResponseStatus (\ s a -> s{_csirrsResponseStatus = a}); +csirrsResponseStatus = lens _csirrsResponseStatus (\ s a -> s{_csirrsResponseStatus = a}) instance NFData CancelSpotInstanceRequestsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ConfirmProductInstance --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -74,23 +74,23 @@ -> ConfirmProductInstance confirmProductInstance pInstanceId_ pProductCode_ = ConfirmProductInstance' - { _cpiDryRun = Nothing - , _cpiInstanceId = pInstanceId_ - , _cpiProductCode = pProductCode_ - } + { _cpiDryRun = Nothing + , _cpiInstanceId = pInstanceId_ + , _cpiProductCode = pProductCode_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cpiDryRun :: Lens' ConfirmProductInstance (Maybe Bool) -cpiDryRun = lens _cpiDryRun (\ s a -> s{_cpiDryRun = a}); +cpiDryRun = lens _cpiDryRun (\ s a -> s{_cpiDryRun = a}) -- | The ID of the instance. cpiInstanceId :: Lens' ConfirmProductInstance Text -cpiInstanceId = lens _cpiInstanceId (\ s a -> s{_cpiInstanceId = a}); +cpiInstanceId = lens _cpiInstanceId (\ s a -> s{_cpiInstanceId = a}) -- | The product code. This must be a product code that you own. cpiProductCode :: Lens' ConfirmProductInstance Text -cpiProductCode = lens _cpiProductCode (\ s a -> s{_cpiProductCode = a}); +cpiProductCode = lens _cpiProductCode (\ s a -> s{_cpiProductCode = a}) instance AWSRequest ConfirmProductInstance where type Rs ConfirmProductInstance = @@ -149,22 +149,22 @@ -> ConfirmProductInstanceResponse confirmProductInstanceResponse pResponseStatus_ = ConfirmProductInstanceResponse' - { _cpirsReturn = Nothing - , _cpirsOwnerId = Nothing - , _cpirsResponseStatus = pResponseStatus_ - } + { _cpirsReturn = Nothing + , _cpirsOwnerId = Nothing + , _cpirsResponseStatus = pResponseStatus_ + } -- | The return value of the request. Returns @true@ if the specified product code is owned by the requester and associated with the specified instance. cpirsReturn :: Lens' ConfirmProductInstanceResponse (Maybe Bool) -cpirsReturn = lens _cpirsReturn (\ s a -> s{_cpirsReturn = a}); +cpirsReturn = lens _cpirsReturn (\ s a -> s{_cpirsReturn = a}) -- | The AWS account ID of the instance owner. This is only present if the product code is attached to the instance. cpirsOwnerId :: Lens' ConfirmProductInstanceResponse (Maybe Text) -cpirsOwnerId = lens _cpirsOwnerId (\ s a -> s{_cpirsOwnerId = a}); +cpirsOwnerId = lens _cpirsOwnerId (\ s a -> s{_cpirsOwnerId = a}) -- | -- | The response status code. cpirsResponseStatus :: Lens' ConfirmProductInstanceResponse Int -cpirsResponseStatus = lens _cpirsResponseStatus (\ s a -> s{_cpirsResponseStatus = a}); +cpirsResponseStatus = lens _cpirsResponseStatus (\ s a -> s{_cpirsResponseStatus = a}) instance NFData ConfirmProductInstanceResponse where diff --git a/gen/Network/AWS/EC2/CopyFpgaImage.hs b/gen/Network/AWS/EC2/CopyFpgaImage.hs --- a/gen/Network/AWS/EC2/CopyFpgaImage.hs +++ b/gen/Network/AWS/EC2/CopyFpgaImage.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CopyFpgaImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -81,38 +81,38 @@ -> CopyFpgaImage copyFpgaImage pSourceFpgaImageId_ pSourceRegion_ = CopyFpgaImage' - { _cfiClientToken = Nothing - , _cfiName = Nothing - , _cfiDescription = Nothing - , _cfiDryRun = Nothing - , _cfiSourceFpgaImageId = pSourceFpgaImageId_ - , _cfiSourceRegion = pSourceRegion_ - } + { _cfiClientToken = Nothing + , _cfiName = Nothing + , _cfiDescription = Nothing + , _cfiDryRun = Nothing + , _cfiSourceFpgaImageId = pSourceFpgaImageId_ + , _cfiSourceRegion = pSourceRegion_ + } -- | Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. For more information, see . cfiClientToken :: Lens' CopyFpgaImage (Maybe Text) -cfiClientToken = lens _cfiClientToken (\ s a -> s{_cfiClientToken = a}); +cfiClientToken = lens _cfiClientToken (\ s a -> s{_cfiClientToken = a}) -- | The name for the new AFI. The default is the name of the source AFI. cfiName :: Lens' CopyFpgaImage (Maybe Text) -cfiName = lens _cfiName (\ s a -> s{_cfiName = a}); +cfiName = lens _cfiName (\ s a -> s{_cfiName = a}) -- | The description for the new AFI. cfiDescription :: Lens' CopyFpgaImage (Maybe Text) -cfiDescription = lens _cfiDescription (\ s a -> s{_cfiDescription = a}); +cfiDescription = lens _cfiDescription (\ s a -> s{_cfiDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cfiDryRun :: Lens' CopyFpgaImage (Maybe Bool) -cfiDryRun = lens _cfiDryRun (\ s a -> s{_cfiDryRun = a}); +cfiDryRun = lens _cfiDryRun (\ s a -> s{_cfiDryRun = a}) -- | The ID of the source AFI. cfiSourceFpgaImageId :: Lens' CopyFpgaImage Text -cfiSourceFpgaImageId = lens _cfiSourceFpgaImageId (\ s a -> s{_cfiSourceFpgaImageId = a}); +cfiSourceFpgaImageId = lens _cfiSourceFpgaImageId (\ s a -> s{_cfiSourceFpgaImageId = a}) -- | The region that contains the source AFI. cfiSourceRegion :: Lens' CopyFpgaImage Text -cfiSourceRegion = lens _cfiSourceRegion (\ s a -> s{_cfiSourceRegion = a}); +cfiSourceRegion = lens _cfiSourceRegion (\ s a -> s{_cfiSourceRegion = a}) instance AWSRequest CopyFpgaImage where type Rs CopyFpgaImage = CopyFpgaImageResponse @@ -163,15 +163,15 @@ -> CopyFpgaImageResponse copyFpgaImageResponse pResponseStatus_ = CopyFpgaImageResponse' - {_crsFpgaImageId = Nothing, _crsResponseStatus = pResponseStatus_} + {_crsFpgaImageId = Nothing, _crsResponseStatus = pResponseStatus_} -- | The ID of the new AFI. crsFpgaImageId :: Lens' CopyFpgaImageResponse (Maybe Text) -crsFpgaImageId = lens _crsFpgaImageId (\ s a -> s{_crsFpgaImageId = a}); +crsFpgaImageId = lens _crsFpgaImageId (\ s a -> s{_crsFpgaImageId = a}) -- | -- | The response status code. crsResponseStatus :: Lens' CopyFpgaImageResponse Int -crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}); +crsResponseStatus = lens _crsResponseStatus (\ s a -> s{_crsResponseStatus = a}) instance NFData CopyFpgaImageResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CopyImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -78,7 +78,7 @@ -- -- * 'ciEncrypted' - Specifies whether the destination snapshots of the copied image should be encrypted. The default CMK for EBS is used unless a non-default AWS Key Management Service (AWS KMS) CMK is specified with @KmsKeyId@ . For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- --- * 'ciKMSKeyId' - The full ARN of the AWS Key Management Service (AWS KMS) CMK to use when encrypting the snapshots of an image during a copy operation. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. The ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . The specified CMK must exist in the region that the snapshot is being copied to. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. +-- * 'ciKMSKeyId' - An identifier for the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. The CMK identifier may be provided in any of the following formats: * Key ID * Key alias, in the form @alias//ExampleAlias/ @ * ARN using key ID. The ID ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . * ARN using key alias. The alias ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @alias@ namespace, and then the CMK alias. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :alias//ExampleAlias/ . AWS parses @KmsKeyId@ asynchronously, meaning that the action you call may appear to complete even though you provided an invalid identifier. This action will eventually report failure. The specified CMK must exist in the region that the snapshot is being copied to. -- -- * 'ciDescription' - A description for the new AMI in the destination region. -- @@ -96,48 +96,48 @@ -> CopyImage copyImage pName_ pSourceImageId_ pSourceRegion_ = CopyImage' - { _ciClientToken = Nothing - , _ciEncrypted = Nothing - , _ciKMSKeyId = Nothing - , _ciDescription = Nothing - , _ciDryRun = Nothing - , _ciName = pName_ - , _ciSourceImageId = pSourceImageId_ - , _ciSourceRegion = pSourceRegion_ - } + { _ciClientToken = Nothing + , _ciEncrypted = Nothing + , _ciKMSKeyId = Nothing + , _ciDescription = Nothing + , _ciDryRun = Nothing + , _ciName = pName_ + , _ciSourceImageId = pSourceImageId_ + , _ciSourceRegion = pSourceRegion_ + } -- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . ciClientToken :: Lens' CopyImage (Maybe Text) -ciClientToken = lens _ciClientToken (\ s a -> s{_ciClientToken = a}); +ciClientToken = lens _ciClientToken (\ s a -> s{_ciClientToken = a}) -- | Specifies whether the destination snapshots of the copied image should be encrypted. The default CMK for EBS is used unless a non-default AWS Key Management Service (AWS KMS) CMK is specified with @KmsKeyId@ . For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . ciEncrypted :: Lens' CopyImage (Maybe Bool) -ciEncrypted = lens _ciEncrypted (\ s a -> s{_ciEncrypted = a}); +ciEncrypted = lens _ciEncrypted (\ s a -> s{_ciEncrypted = a}) --- | The full ARN of the AWS Key Management Service (AWS KMS) CMK to use when encrypting the snapshots of an image during a copy operation. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. The ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . The specified CMK must exist in the region that the snapshot is being copied to. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. +-- | An identifier for the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. The CMK identifier may be provided in any of the following formats: * Key ID * Key alias, in the form @alias//ExampleAlias/ @ * ARN using key ID. The ID ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . * ARN using key alias. The alias ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @alias@ namespace, and then the CMK alias. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :alias//ExampleAlias/ . AWS parses @KmsKeyId@ asynchronously, meaning that the action you call may appear to complete even though you provided an invalid identifier. This action will eventually report failure. The specified CMK must exist in the region that the snapshot is being copied to. ciKMSKeyId :: Lens' CopyImage (Maybe Text) -ciKMSKeyId = lens _ciKMSKeyId (\ s a -> s{_ciKMSKeyId = a}); +ciKMSKeyId = lens _ciKMSKeyId (\ s a -> s{_ciKMSKeyId = a}) -- | A description for the new AMI in the destination region. ciDescription :: Lens' CopyImage (Maybe Text) -ciDescription = lens _ciDescription (\ s a -> s{_ciDescription = a}); +ciDescription = lens _ciDescription (\ s a -> s{_ciDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ciDryRun :: Lens' CopyImage (Maybe Bool) -ciDryRun = lens _ciDryRun (\ s a -> s{_ciDryRun = a}); +ciDryRun = lens _ciDryRun (\ s a -> s{_ciDryRun = a}) -- | The name of the new AMI in the destination region. ciName :: Lens' CopyImage Text -ciName = lens _ciName (\ s a -> s{_ciName = a}); +ciName = lens _ciName (\ s a -> s{_ciName = a}) -- | The ID of the AMI to copy. ciSourceImageId :: Lens' CopyImage Text -ciSourceImageId = lens _ciSourceImageId (\ s a -> s{_ciSourceImageId = a}); +ciSourceImageId = lens _ciSourceImageId (\ s a -> s{_ciSourceImageId = a}) -- | The name of the region that contains the AMI to copy. ciSourceRegion :: Lens' CopyImage Text -ciSourceRegion = lens _ciSourceRegion (\ s a -> s{_ciSourceRegion = a}); +ciSourceRegion = lens _ciSourceRegion (\ s a -> s{_ciSourceRegion = a}) instance AWSRequest CopyImage where type Rs CopyImage = CopyImageResponse @@ -194,15 +194,15 @@ -> CopyImageResponse copyImageResponse pResponseStatus_ = CopyImageResponse' - {_coprsImageId = Nothing, _coprsResponseStatus = pResponseStatus_} + {_coprsImageId = Nothing, _coprsResponseStatus = pResponseStatus_} -- | The ID of the new AMI. coprsImageId :: Lens' CopyImageResponse (Maybe Text) -coprsImageId = lens _coprsImageId (\ s a -> s{_coprsImageId = a}); +coprsImageId = lens _coprsImageId (\ s a -> s{_coprsImageId = a}) -- | -- | The response status code. coprsResponseStatus :: Lens' CopyImageResponse Int -coprsResponseStatus = lens _coprsResponseStatus (\ s a -> s{_coprsResponseStatus = a}); +coprsResponseStatus = lens _coprsResponseStatus (\ s a -> s{_coprsResponseStatus = a}) instance NFData CopyImageResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CopySnapshot --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -76,13 +76,13 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csPresignedURL' - The pre-signed URL that facilitates copying an encrypted snapshot. This parameter is only required when copying an encrypted snapshot with the Amazon EC2 Query API; it is available as an optional parameter in all other cases. The @PresignedUrl@ should use the snapshot source endpoint, the @CopySnapshot@ action, and include the @SourceRegion@ , @SourceSnapshotId@ , and @DestinationRegion@ parameters. The @PresignedUrl@ must be signed using AWS Signature Version 4. Because EBS snapshots are stored in Amazon S3, the signing algorithm for this parameter uses the same logic that is described in in the /Amazon Simple Storage Service API Reference/ . An invalid or improperly signed @PresignedUrl@ will cause the copy operation to fail asynchronously, and the snapshot will move to an @error@ state. +-- * 'csPresignedURL' - When you copy an encrypted source snapshot using the Amazon EC2 Query API, you must supply a pre-signed URL. This parameter is optional for unencrypted snapshots. For more information, see . The @PresignedUrl@ should use the snapshot source endpoint, the @CopySnapshot@ action, and include the @SourceRegion@ , @SourceSnapshotId@ , and @DestinationRegion@ parameters. The @PresignedUrl@ must be signed using AWS Signature Version 4. Because EBS snapshots are stored in Amazon S3, the signing algorithm for this parameter uses the same logic that is described in in the /Amazon Simple Storage Service API Reference/ . An invalid or improperly signed @PresignedUrl@ will cause the copy operation to fail asynchronously, and the snapshot will move to an @error@ state. -- -- * 'csEncrypted' - Specifies whether the destination snapshot should be encrypted. You can encrypt a copy of an unencrypted snapshot using this flag, but you cannot use it to create an unencrypted copy from an encrypted snapshot. Your default CMK for EBS is used unless a non-default AWS Key Management Service (AWS KMS) CMK is specified with @KmsKeyId@ . For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- -- * 'csDestinationRegion' - The destination region to use in the @PresignedUrl@ parameter of a snapshot copy operation. This parameter is only valid for specifying the destination region in a @PresignedUrl@ parameter, where it is required. -- --- * 'csKMSKeyId' - The full ARN of the AWS Key Management Service (AWS KMS) CMK to use when creating the snapshot copy. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. The ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . The specified CMK must exist in the region that the snapshot is being copied to. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. +-- * 'csKMSKeyId' - An identifier for the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. The CMK identifier may be provided in any of the following formats: * Key ID * Key alias * ARN using key ID. The ID ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . * ARN using key alias. The alias ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @alias@ namespace, and then the CMK alias. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :alias//ExampleAlias/ . AWS parses @KmsKeyId@ asynchronously, meaning that the action you call may appear to complete even though you provided an invalid identifier. The action will eventually fail. -- -- * 'csDescription' - A description for the EBS snapshot. -- @@ -97,48 +97,48 @@ -> CopySnapshot copySnapshot pSourceRegion_ pSourceSnapshotId_ = CopySnapshot' - { _csPresignedURL = Nothing - , _csEncrypted = Nothing - , _csDestinationRegion = Nothing - , _csKMSKeyId = Nothing - , _csDescription = Nothing - , _csDryRun = Nothing - , _csSourceRegion = pSourceRegion_ - , _csSourceSnapshotId = pSourceSnapshotId_ - } + { _csPresignedURL = Nothing + , _csEncrypted = Nothing + , _csDestinationRegion = Nothing + , _csKMSKeyId = Nothing + , _csDescription = Nothing + , _csDryRun = Nothing + , _csSourceRegion = pSourceRegion_ + , _csSourceSnapshotId = pSourceSnapshotId_ + } --- | The pre-signed URL that facilitates copying an encrypted snapshot. This parameter is only required when copying an encrypted snapshot with the Amazon EC2 Query API; it is available as an optional parameter in all other cases. The @PresignedUrl@ should use the snapshot source endpoint, the @CopySnapshot@ action, and include the @SourceRegion@ , @SourceSnapshotId@ , and @DestinationRegion@ parameters. The @PresignedUrl@ must be signed using AWS Signature Version 4. Because EBS snapshots are stored in Amazon S3, the signing algorithm for this parameter uses the same logic that is described in in the /Amazon Simple Storage Service API Reference/ . An invalid or improperly signed @PresignedUrl@ will cause the copy operation to fail asynchronously, and the snapshot will move to an @error@ state. +-- | When you copy an encrypted source snapshot using the Amazon EC2 Query API, you must supply a pre-signed URL. This parameter is optional for unencrypted snapshots. For more information, see . The @PresignedUrl@ should use the snapshot source endpoint, the @CopySnapshot@ action, and include the @SourceRegion@ , @SourceSnapshotId@ , and @DestinationRegion@ parameters. The @PresignedUrl@ must be signed using AWS Signature Version 4. Because EBS snapshots are stored in Amazon S3, the signing algorithm for this parameter uses the same logic that is described in in the /Amazon Simple Storage Service API Reference/ . An invalid or improperly signed @PresignedUrl@ will cause the copy operation to fail asynchronously, and the snapshot will move to an @error@ state. csPresignedURL :: Lens' CopySnapshot (Maybe Text) -csPresignedURL = lens _csPresignedURL (\ s a -> s{_csPresignedURL = a}); +csPresignedURL = lens _csPresignedURL (\ s a -> s{_csPresignedURL = a}) -- | Specifies whether the destination snapshot should be encrypted. You can encrypt a copy of an unencrypted snapshot using this flag, but you cannot use it to create an unencrypted copy from an encrypted snapshot. Your default CMK for EBS is used unless a non-default AWS Key Management Service (AWS KMS) CMK is specified with @KmsKeyId@ . For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . csEncrypted :: Lens' CopySnapshot (Maybe Bool) -csEncrypted = lens _csEncrypted (\ s a -> s{_csEncrypted = a}); +csEncrypted = lens _csEncrypted (\ s a -> s{_csEncrypted = a}) -- | The destination region to use in the @PresignedUrl@ parameter of a snapshot copy operation. This parameter is only valid for specifying the destination region in a @PresignedUrl@ parameter, where it is required. csDestinationRegion :: Lens' CopySnapshot (Maybe Text) -csDestinationRegion = lens _csDestinationRegion (\ s a -> s{_csDestinationRegion = a}); +csDestinationRegion = lens _csDestinationRegion (\ s a -> s{_csDestinationRegion = a}) --- | The full ARN of the AWS Key Management Service (AWS KMS) CMK to use when creating the snapshot copy. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. The ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . The specified CMK must exist in the region that the snapshot is being copied to. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. +-- | An identifier for the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. The CMK identifier may be provided in any of the following formats: * Key ID * Key alias * ARN using key ID. The ID ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . * ARN using key alias. The alias ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @alias@ namespace, and then the CMK alias. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :alias//ExampleAlias/ . AWS parses @KmsKeyId@ asynchronously, meaning that the action you call may appear to complete even though you provided an invalid identifier. The action will eventually fail. csKMSKeyId :: Lens' CopySnapshot (Maybe Text) -csKMSKeyId = lens _csKMSKeyId (\ s a -> s{_csKMSKeyId = a}); +csKMSKeyId = lens _csKMSKeyId (\ s a -> s{_csKMSKeyId = a}) -- | A description for the EBS snapshot. csDescription :: Lens' CopySnapshot (Maybe Text) -csDescription = lens _csDescription (\ s a -> s{_csDescription = a}); +csDescription = lens _csDescription (\ s a -> s{_csDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . csDryRun :: Lens' CopySnapshot (Maybe Bool) -csDryRun = lens _csDryRun (\ s a -> s{_csDryRun = a}); +csDryRun = lens _csDryRun (\ s a -> s{_csDryRun = a}) -- | The ID of the region that contains the snapshot to be copied. csSourceRegion :: Lens' CopySnapshot Text -csSourceRegion = lens _csSourceRegion (\ s a -> s{_csSourceRegion = a}); +csSourceRegion = lens _csSourceRegion (\ s a -> s{_csSourceRegion = a}) -- | The ID of the EBS snapshot to copy. csSourceSnapshotId :: Lens' CopySnapshot Text -csSourceSnapshotId = lens _csSourceSnapshotId (\ s a -> s{_csSourceSnapshotId = a}); +csSourceSnapshotId = lens _csSourceSnapshotId (\ s a -> s{_csSourceSnapshotId = a}) instance AWSRequest CopySnapshot where type Rs CopySnapshot = CopySnapshotResponse @@ -196,15 +196,15 @@ -> CopySnapshotResponse copySnapshotResponse pResponseStatus_ = CopySnapshotResponse' - {_csrsSnapshotId = Nothing, _csrsResponseStatus = pResponseStatus_} + {_csrsSnapshotId = Nothing, _csrsResponseStatus = pResponseStatus_} -- | The ID of the new snapshot. csrsSnapshotId :: Lens' CopySnapshotResponse (Maybe Text) -csrsSnapshotId = lens _csrsSnapshotId (\ s a -> s{_csrsSnapshotId = a}); +csrsSnapshotId = lens _csrsSnapshotId (\ s a -> s{_csrsSnapshotId = a}) -- | -- | The response status code. csrsResponseStatus :: Lens' CopySnapshotResponse Int -csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}); +csrsResponseStatus = lens _csrsResponseStatus (\ s a -> s{_csrsResponseStatus = a}) instance NFData CopySnapshotResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateCustomerGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -84,28 +84,28 @@ -> CreateCustomerGateway createCustomerGateway pBGPASN_ pPublicIP_ pType_ = CreateCustomerGateway' - { _ccgDryRun = Nothing - , _ccgBGPASN = pBGPASN_ - , _ccgPublicIP = pPublicIP_ - , _ccgType = pType_ - } + { _ccgDryRun = Nothing + , _ccgBGPASN = pBGPASN_ + , _ccgPublicIP = pPublicIP_ + , _ccgType = pType_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ccgDryRun :: Lens' CreateCustomerGateway (Maybe Bool) -ccgDryRun = lens _ccgDryRun (\ s a -> s{_ccgDryRun = a}); +ccgDryRun = lens _ccgDryRun (\ s a -> s{_ccgDryRun = a}) -- | For devices that support BGP, the customer gateway's BGP ASN. Default: 65000 ccgBGPASN :: Lens' CreateCustomerGateway Int -ccgBGPASN = lens _ccgBGPASN (\ s a -> s{_ccgBGPASN = a}); +ccgBGPASN = lens _ccgBGPASN (\ s a -> s{_ccgBGPASN = a}) -- | The Internet-routable IP address for the customer gateway's outside interface. The address must be static. ccgPublicIP :: Lens' CreateCustomerGateway Text -ccgPublicIP = lens _ccgPublicIP (\ s a -> s{_ccgPublicIP = a}); +ccgPublicIP = lens _ccgPublicIP (\ s a -> s{_ccgPublicIP = a}) -- | The type of VPN connection that this customer gateway supports (@ipsec.1@ ). ccgType :: Lens' CreateCustomerGateway GatewayType -ccgType = lens _ccgType (\ s a -> s{_ccgType = a}); +ccgType = lens _ccgType (\ s a -> s{_ccgType = a}) instance AWSRequest CreateCustomerGateway where type Rs CreateCustomerGateway = @@ -158,15 +158,15 @@ -> CreateCustomerGatewayResponse createCustomerGatewayResponse pResponseStatus_ = CreateCustomerGatewayResponse' - {_ccgrsCustomerGateway = Nothing, _ccgrsResponseStatus = pResponseStatus_} + {_ccgrsCustomerGateway = Nothing, _ccgrsResponseStatus = pResponseStatus_} -- | Information about the customer gateway. ccgrsCustomerGateway :: Lens' CreateCustomerGatewayResponse (Maybe CustomerGateway) -ccgrsCustomerGateway = lens _ccgrsCustomerGateway (\ s a -> s{_ccgrsCustomerGateway = a}); +ccgrsCustomerGateway = lens _ccgrsCustomerGateway (\ s a -> s{_ccgrsCustomerGateway = a}) -- | -- | The response status code. ccgrsResponseStatus :: Lens' CreateCustomerGatewayResponse Int -ccgrsResponseStatus = lens _ccgrsResponseStatus (\ s a -> s{_ccgrsResponseStatus = a}); +ccgrsResponseStatus = lens _ccgrsResponseStatus (\ s a -> s{_ccgrsResponseStatus = a}) instance NFData CreateCustomerGatewayResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateDHCPOptions --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -85,11 +85,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cdoDryRun :: Lens' CreateDHCPOptions (Maybe Bool) -cdoDryRun = lens _cdoDryRun (\ s a -> s{_cdoDryRun = a}); +cdoDryRun = lens _cdoDryRun (\ s a -> s{_cdoDryRun = a}) -- | A DHCP configuration option. cdoDHCPConfigurations :: Lens' CreateDHCPOptions [NewDHCPConfiguration] -cdoDHCPConfigurations = lens _cdoDHCPConfigurations (\ s a -> s{_cdoDHCPConfigurations = a}) . _Coerce; +cdoDHCPConfigurations = lens _cdoDHCPConfigurations (\ s a -> s{_cdoDHCPConfigurations = a}) . _Coerce instance AWSRequest CreateDHCPOptions where type Rs CreateDHCPOptions = CreateDHCPOptionsResponse @@ -142,15 +142,15 @@ -> CreateDHCPOptionsResponse createDHCPOptionsResponse pResponseStatus_ = CreateDHCPOptionsResponse' - {_cdorsDHCPOptions = Nothing, _cdorsResponseStatus = pResponseStatus_} + {_cdorsDHCPOptions = Nothing, _cdorsResponseStatus = pResponseStatus_} -- | A set of DHCP options. cdorsDHCPOptions :: Lens' CreateDHCPOptionsResponse (Maybe DHCPOptions) -cdorsDHCPOptions = lens _cdorsDHCPOptions (\ s a -> s{_cdorsDHCPOptions = a}); +cdorsDHCPOptions = lens _cdorsDHCPOptions (\ s a -> s{_cdorsDHCPOptions = a}) -- | -- | The response status code. cdorsResponseStatus :: Lens' CreateDHCPOptionsResponse Int -cdorsResponseStatus = lens _cdorsResponseStatus (\ s a -> s{_cdorsResponseStatus = a}); +cdorsResponseStatus = lens _cdorsResponseStatus (\ s a -> s{_cdorsResponseStatus = a}) instance NFData CreateDHCPOptionsResponse where diff --git a/gen/Network/AWS/EC2/CreateDefaultSubnet.hs b/gen/Network/AWS/EC2/CreateDefaultSubnet.hs --- a/gen/Network/AWS/EC2/CreateDefaultSubnet.hs +++ b/gen/Network/AWS/EC2/CreateDefaultSubnet.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateDefaultSubnet --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -64,16 +64,16 @@ -> CreateDefaultSubnet createDefaultSubnet pAvailabilityZone_ = CreateDefaultSubnet' - {_cdsDryRun = Nothing, _cdsAvailabilityZone = pAvailabilityZone_} + {_cdsDryRun = Nothing, _cdsAvailabilityZone = pAvailabilityZone_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cdsDryRun :: Lens' CreateDefaultSubnet (Maybe Bool) -cdsDryRun = lens _cdsDryRun (\ s a -> s{_cdsDryRun = a}); +cdsDryRun = lens _cdsDryRun (\ s a -> s{_cdsDryRun = a}) -- | The Availability Zone in which to create the default subnet. cdsAvailabilityZone :: Lens' CreateDefaultSubnet Text -cdsAvailabilityZone = lens _cdsAvailabilityZone (\ s a -> s{_cdsAvailabilityZone = a}); +cdsAvailabilityZone = lens _cdsAvailabilityZone (\ s a -> s{_cdsAvailabilityZone = a}) instance AWSRequest CreateDefaultSubnet where type Rs CreateDefaultSubnet = @@ -122,15 +122,15 @@ -> CreateDefaultSubnetResponse createDefaultSubnetResponse pResponseStatus_ = CreateDefaultSubnetResponse' - {_cdsrsSubnet = Nothing, _cdsrsResponseStatus = pResponseStatus_} + {_cdsrsSubnet = Nothing, _cdsrsResponseStatus = pResponseStatus_} -- | Information about the subnet. cdsrsSubnet :: Lens' CreateDefaultSubnetResponse (Maybe Subnet) -cdsrsSubnet = lens _cdsrsSubnet (\ s a -> s{_cdsrsSubnet = a}); +cdsrsSubnet = lens _cdsrsSubnet (\ s a -> s{_cdsrsSubnet = a}) -- | -- | The response status code. cdsrsResponseStatus :: Lens' CreateDefaultSubnetResponse Int -cdsrsResponseStatus = lens _cdsrsResponseStatus (\ s a -> s{_cdsrsResponseStatus = a}); +cdsrsResponseStatus = lens _cdsrsResponseStatus (\ s a -> s{_cdsrsResponseStatus = a}) instance NFData CreateDefaultSubnetResponse where diff --git a/gen/Network/AWS/EC2/CreateDefaultVPC.hs b/gen/Network/AWS/EC2/CreateDefaultVPC.hs --- a/gen/Network/AWS/EC2/CreateDefaultVPC.hs +++ b/gen/Network/AWS/EC2/CreateDefaultVPC.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateDefaultVPC --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -70,7 +70,7 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cdvDryRun :: Lens' CreateDefaultVPC (Maybe Bool) -cdvDryRun = lens _cdvDryRun (\ s a -> s{_cdvDryRun = a}); +cdvDryRun = lens _cdvDryRun (\ s a -> s{_cdvDryRun = a}) instance AWSRequest CreateDefaultVPC where type Rs CreateDefaultVPC = CreateDefaultVPCResponse @@ -121,15 +121,15 @@ -> CreateDefaultVPCResponse createDefaultVPCResponse pResponseStatus_ = CreateDefaultVPCResponse' - {_cdvrsVPC = Nothing, _cdvrsResponseStatus = pResponseStatus_} + {_cdvrsVPC = Nothing, _cdvrsResponseStatus = pResponseStatus_} -- | Information about the VPC. cdvrsVPC :: Lens' CreateDefaultVPCResponse (Maybe VPC) -cdvrsVPC = lens _cdvrsVPC (\ s a -> s{_cdvrsVPC = a}); +cdvrsVPC = lens _cdvrsVPC (\ s a -> s{_cdvrsVPC = a}) -- | -- | The response status code. cdvrsResponseStatus :: Lens' CreateDefaultVPCResponse Int -cdvrsResponseStatus = lens _cdvrsResponseStatus (\ s a -> s{_cdvrsResponseStatus = a}); +cdvrsResponseStatus = lens _cdvrsResponseStatus (\ s a -> s{_cdvrsResponseStatus = a}) instance NFData CreateDefaultVPCResponse where diff --git a/gen/Network/AWS/EC2/CreateEgressOnlyInternetGateway.hs b/gen/Network/AWS/EC2/CreateEgressOnlyInternetGateway.hs --- a/gen/Network/AWS/EC2/CreateEgressOnlyInternetGateway.hs +++ b/gen/Network/AWS/EC2/CreateEgressOnlyInternetGateway.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateEgressOnlyInternetGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,20 +69,20 @@ -> CreateEgressOnlyInternetGateway createEgressOnlyInternetGateway pVPCId_ = CreateEgressOnlyInternetGateway' - {_ceoigClientToken = Nothing, _ceoigDryRun = Nothing, _ceoigVPCId = pVPCId_} + {_ceoigClientToken = Nothing, _ceoigDryRun = Nothing, _ceoigVPCId = pVPCId_} -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . ceoigClientToken :: Lens' CreateEgressOnlyInternetGateway (Maybe Text) -ceoigClientToken = lens _ceoigClientToken (\ s a -> s{_ceoigClientToken = a}); +ceoigClientToken = lens _ceoigClientToken (\ s a -> s{_ceoigClientToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ceoigDryRun :: Lens' CreateEgressOnlyInternetGateway (Maybe Bool) -ceoigDryRun = lens _ceoigDryRun (\ s a -> s{_ceoigDryRun = a}); +ceoigDryRun = lens _ceoigDryRun (\ s a -> s{_ceoigDryRun = a}) -- | The ID of the VPC for which to create the egress-only Internet gateway. ceoigVPCId :: Lens' CreateEgressOnlyInternetGateway Text -ceoigVPCId = lens _ceoigVPCId (\ s a -> s{_ceoigVPCId = a}); +ceoigVPCId = lens _ceoigVPCId (\ s a -> s{_ceoigVPCId = a}) instance AWSRequest CreateEgressOnlyInternetGateway where @@ -141,23 +141,23 @@ -> CreateEgressOnlyInternetGatewayResponse createEgressOnlyInternetGatewayResponse pResponseStatus_ = CreateEgressOnlyInternetGatewayResponse' - { _ceoigrsClientToken = Nothing - , _ceoigrsEgressOnlyInternetGateway = Nothing - , _ceoigrsResponseStatus = pResponseStatus_ - } + { _ceoigrsClientToken = Nothing + , _ceoigrsEgressOnlyInternetGateway = Nothing + , _ceoigrsResponseStatus = pResponseStatus_ + } -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. ceoigrsClientToken :: Lens' CreateEgressOnlyInternetGatewayResponse (Maybe Text) -ceoigrsClientToken = lens _ceoigrsClientToken (\ s a -> s{_ceoigrsClientToken = a}); +ceoigrsClientToken = lens _ceoigrsClientToken (\ s a -> s{_ceoigrsClientToken = a}) -- | Information about the egress-only Internet gateway. ceoigrsEgressOnlyInternetGateway :: Lens' CreateEgressOnlyInternetGatewayResponse (Maybe EgressOnlyInternetGateway) -ceoigrsEgressOnlyInternetGateway = lens _ceoigrsEgressOnlyInternetGateway (\ s a -> s{_ceoigrsEgressOnlyInternetGateway = a}); +ceoigrsEgressOnlyInternetGateway = lens _ceoigrsEgressOnlyInternetGateway (\ s a -> s{_ceoigrsEgressOnlyInternetGateway = a}) -- | -- | The response status code. ceoigrsResponseStatus :: Lens' CreateEgressOnlyInternetGatewayResponse Int -ceoigrsResponseStatus = lens _ceoigrsResponseStatus (\ s a -> s{_ceoigrsResponseStatus = a}); +ceoigrsResponseStatus = lens _ceoigrsResponseStatus (\ s a -> s{_ceoigrsResponseStatus = a}) instance NFData CreateEgressOnlyInternetGatewayResponse diff --git a/gen/Network/AWS/EC2/CreateFleet.hs b/gen/Network/AWS/EC2/CreateFleet.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/CreateFleet.hs @@ -0,0 +1,247 @@ +{-# 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.CreateFleet +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Launches an EC2 Fleet. +-- +-- +-- You can create a single EC2 Fleet that includes multiple launch specifications that vary by instance type, AMI, Availability Zone, or subnet. +-- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- +module Network.AWS.EC2.CreateFleet + ( + -- * Creating a Request + createFleet + , CreateFleet + -- * Request Lenses + , cfClientToken + , cfSpotOptions + , cfExcessCapacityTerminationPolicy + , cfTagSpecifications + , cfValidUntil + , cfTerminateInstancesWithExpiration + , cfType + , cfValidFrom + , cfReplaceUnhealthyInstances + , cfDryRun + , cfLaunchTemplateConfigs + , cfTargetCapacitySpecification + + -- * Destructuring the Response + , createFleetResponse + , CreateFleetResponse + -- * Response Lenses + , cfrsFleetId + , cfrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'createFleet' smart constructor. +data CreateFleet = CreateFleet' + { _cfClientToken :: !(Maybe Text) + , _cfSpotOptions :: !(Maybe SpotOptionsRequest) + , _cfExcessCapacityTerminationPolicy :: !(Maybe FleetExcessCapacityTerminationPolicy) + , _cfTagSpecifications :: !(Maybe [TagSpecification]) + , _cfValidUntil :: !(Maybe ISO8601) + , _cfTerminateInstancesWithExpiration :: !(Maybe Bool) + , _cfType :: !(Maybe FleetType) + , _cfValidFrom :: !(Maybe ISO8601) + , _cfReplaceUnhealthyInstances :: !(Maybe Bool) + , _cfDryRun :: !(Maybe Bool) + , _cfLaunchTemplateConfigs :: ![FleetLaunchTemplateConfigRequest] + , _cfTargetCapacitySpecification :: !TargetCapacitySpecificationRequest + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateFleet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +-- +-- * 'cfSpotOptions' - Includes @SpotAllocationStrategy@ and @SpotInstanceInterruptionBehavior@ inside this structure. +-- +-- * 'cfExcessCapacityTerminationPolicy' - Indicates whether running instances should be terminated if the total target capacity of the EC2 Fleet is decreased below the current size of the EC2 Fleet. +-- +-- * 'cfTagSpecifications' - The tags for an EC2 Fleet resource. +-- +-- * 'cfValidUntil' - 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 EC2 Fleet requests are placed or able to fulfill the request. The default end date is 7 days from the current date. +-- +-- * 'cfTerminateInstancesWithExpiration' - Indicates whether running instances should be terminated when the EC2 Fleet expires. +-- +-- * 'cfType' - The type of request. Indicates whether the EC2 Fleet only @requests@ the target capacity, or also attempts to @maintain@ it. If you request a certain target capacity, EC2 Fleet only places the required requests. It does not attempt to replenish instances if capacity is diminished, and does not submit requests in alternative capacity pools if capacity is unavailable. To maintain a certain target capacity, EC2 Fleet places the required requests to meet this target capacity. It also automatically replenishes any interrupted Spot Instances. Default: @maintain@ . +-- +-- * 'cfValidFrom' - The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. +-- +-- * 'cfReplaceUnhealthyInstances' - Indicates whether EC2 Fleet should replace unhealthy instances. +-- +-- * 'cfDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'cfLaunchTemplateConfigs' - The configuration for the EC2 Fleet. +-- +-- * 'cfTargetCapacitySpecification' - The @TotalTargetCapacity@ , @OnDemandTargetCapacity@ , @SpotTargetCapacity@ , and @DefaultCapacityType@ structure. +createFleet + :: TargetCapacitySpecificationRequest -- ^ 'cfTargetCapacitySpecification' + -> CreateFleet +createFleet pTargetCapacitySpecification_ = + CreateFleet' + { _cfClientToken = Nothing + , _cfSpotOptions = Nothing + , _cfExcessCapacityTerminationPolicy = Nothing + , _cfTagSpecifications = Nothing + , _cfValidUntil = Nothing + , _cfTerminateInstancesWithExpiration = Nothing + , _cfType = Nothing + , _cfValidFrom = Nothing + , _cfReplaceUnhealthyInstances = Nothing + , _cfDryRun = Nothing + , _cfLaunchTemplateConfigs = mempty + , _cfTargetCapacitySpecification = pTargetCapacitySpecification_ + } + + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +cfClientToken :: Lens' CreateFleet (Maybe Text) +cfClientToken = lens _cfClientToken (\ s a -> s{_cfClientToken = a}) + +-- | Includes @SpotAllocationStrategy@ and @SpotInstanceInterruptionBehavior@ inside this structure. +cfSpotOptions :: Lens' CreateFleet (Maybe SpotOptionsRequest) +cfSpotOptions = lens _cfSpotOptions (\ s a -> s{_cfSpotOptions = a}) + +-- | Indicates whether running instances should be terminated if the total target capacity of the EC2 Fleet is decreased below the current size of the EC2 Fleet. +cfExcessCapacityTerminationPolicy :: Lens' CreateFleet (Maybe FleetExcessCapacityTerminationPolicy) +cfExcessCapacityTerminationPolicy = lens _cfExcessCapacityTerminationPolicy (\ s a -> s{_cfExcessCapacityTerminationPolicy = a}) + +-- | The tags for an EC2 Fleet resource. +cfTagSpecifications :: Lens' CreateFleet [TagSpecification] +cfTagSpecifications = lens _cfTagSpecifications (\ s a -> s{_cfTagSpecifications = a}) . _Default . _Coerce + +-- | 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 EC2 Fleet requests are placed or able to fulfill the request. The default end date is 7 days from the current date. +cfValidUntil :: Lens' CreateFleet (Maybe UTCTime) +cfValidUntil = lens _cfValidUntil (\ s a -> s{_cfValidUntil = a}) . mapping _Time + +-- | Indicates whether running instances should be terminated when the EC2 Fleet expires. +cfTerminateInstancesWithExpiration :: Lens' CreateFleet (Maybe Bool) +cfTerminateInstancesWithExpiration = lens _cfTerminateInstancesWithExpiration (\ s a -> s{_cfTerminateInstancesWithExpiration = a}) + +-- | The type of request. Indicates whether the EC2 Fleet only @requests@ the target capacity, or also attempts to @maintain@ it. If you request a certain target capacity, EC2 Fleet only places the required requests. It does not attempt to replenish instances if capacity is diminished, and does not submit requests in alternative capacity pools if capacity is unavailable. To maintain a certain target capacity, EC2 Fleet places the required requests to meet this target capacity. It also automatically replenishes any interrupted Spot Instances. Default: @maintain@ . +cfType :: Lens' CreateFleet (Maybe FleetType) +cfType = lens _cfType (\ s a -> s{_cfType = a}) + +-- | The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. +cfValidFrom :: Lens' CreateFleet (Maybe UTCTime) +cfValidFrom = lens _cfValidFrom (\ s a -> s{_cfValidFrom = a}) . mapping _Time + +-- | Indicates whether EC2 Fleet should replace unhealthy instances. +cfReplaceUnhealthyInstances :: Lens' CreateFleet (Maybe Bool) +cfReplaceUnhealthyInstances = lens _cfReplaceUnhealthyInstances (\ s a -> s{_cfReplaceUnhealthyInstances = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +cfDryRun :: Lens' CreateFleet (Maybe Bool) +cfDryRun = lens _cfDryRun (\ s a -> s{_cfDryRun = a}) + +-- | The configuration for the EC2 Fleet. +cfLaunchTemplateConfigs :: Lens' CreateFleet [FleetLaunchTemplateConfigRequest] +cfLaunchTemplateConfigs = lens _cfLaunchTemplateConfigs (\ s a -> s{_cfLaunchTemplateConfigs = a}) . _Coerce + +-- | The @TotalTargetCapacity@ , @OnDemandTargetCapacity@ , @SpotTargetCapacity@ , and @DefaultCapacityType@ structure. +cfTargetCapacitySpecification :: Lens' CreateFleet TargetCapacitySpecificationRequest +cfTargetCapacitySpecification = lens _cfTargetCapacitySpecification (\ s a -> s{_cfTargetCapacitySpecification = a}) + +instance AWSRequest CreateFleet where + type Rs CreateFleet = CreateFleetResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + CreateFleetResponse' <$> + (x .@? "fleetId") <*> (pure (fromEnum s))) + +instance Hashable CreateFleet where + +instance NFData CreateFleet where + +instance ToHeaders CreateFleet where + toHeaders = const mempty + +instance ToPath CreateFleet where + toPath = const "/" + +instance ToQuery CreateFleet where + toQuery CreateFleet'{..} + = mconcat + ["Action" =: ("CreateFleet" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "ClientToken" =: _cfClientToken, + "SpotOptions" =: _cfSpotOptions, + "ExcessCapacityTerminationPolicy" =: + _cfExcessCapacityTerminationPolicy, + toQuery + (toQueryList "TagSpecification" <$> + _cfTagSpecifications), + "ValidUntil" =: _cfValidUntil, + "TerminateInstancesWithExpiration" =: + _cfTerminateInstancesWithExpiration, + "Type" =: _cfType, "ValidFrom" =: _cfValidFrom, + "ReplaceUnhealthyInstances" =: + _cfReplaceUnhealthyInstances, + "DryRun" =: _cfDryRun, + toQueryList "LaunchTemplateConfigs" + _cfLaunchTemplateConfigs, + "TargetCapacitySpecification" =: + _cfTargetCapacitySpecification] + +-- | /See:/ 'createFleetResponse' smart constructor. +data CreateFleetResponse = CreateFleetResponse' + { _cfrsFleetId :: !(Maybe Text) + , _cfrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateFleetResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cfrsFleetId' - The ID of the EC2 Fleet. +-- +-- * 'cfrsResponseStatus' - -- | The response status code. +createFleetResponse + :: Int -- ^ 'cfrsResponseStatus' + -> CreateFleetResponse +createFleetResponse pResponseStatus_ = + CreateFleetResponse' + {_cfrsFleetId = Nothing, _cfrsResponseStatus = pResponseStatus_} + + +-- | The ID of the EC2 Fleet. +cfrsFleetId :: Lens' CreateFleetResponse (Maybe Text) +cfrsFleetId = lens _cfrsFleetId (\ s a -> s{_cfrsFleetId = a}) + +-- | -- | The response status code. +cfrsResponseStatus :: Lens' CreateFleetResponse Int +cfrsResponseStatus = lens _cfrsResponseStatus (\ s a -> s{_cfrsResponseStatus = a}) + +instance NFData CreateFleetResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateFlowLogs --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -23,6 +23,8 @@ -- -- In your request, you must also specify an IAM role that has permission to publish logs to CloudWatch Logs. -- +-- For more information, see in the /Amazon Virtual Private Cloud User Guide/ . +-- module Network.AWS.EC2.CreateFlowLogs ( -- * Creating a Request @@ -91,38 +93,38 @@ -> CreateFlowLogs createFlowLogs pDeliverLogsPermissionARN_ pLogGroupName_ pResourceType_ pTrafficType_ = CreateFlowLogs' - { _cflClientToken = Nothing - , _cflDeliverLogsPermissionARN = pDeliverLogsPermissionARN_ - , _cflLogGroupName = pLogGroupName_ - , _cflResourceIds = mempty - , _cflResourceType = pResourceType_ - , _cflTrafficType = pTrafficType_ - } + { _cflClientToken = Nothing + , _cflDeliverLogsPermissionARN = pDeliverLogsPermissionARN_ + , _cflLogGroupName = pLogGroupName_ + , _cflResourceIds = mempty + , _cflResourceType = pResourceType_ + , _cflTrafficType = pTrafficType_ + } -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . cflClientToken :: Lens' CreateFlowLogs (Maybe Text) -cflClientToken = lens _cflClientToken (\ s a -> s{_cflClientToken = a}); +cflClientToken = lens _cflClientToken (\ s a -> s{_cflClientToken = a}) -- | The ARN for the IAM role that's used to post flow logs to a CloudWatch Logs log group. cflDeliverLogsPermissionARN :: Lens' CreateFlowLogs Text -cflDeliverLogsPermissionARN = lens _cflDeliverLogsPermissionARN (\ s a -> s{_cflDeliverLogsPermissionARN = a}); +cflDeliverLogsPermissionARN = lens _cflDeliverLogsPermissionARN (\ s a -> s{_cflDeliverLogsPermissionARN = a}) -- | The name of the CloudWatch log group. cflLogGroupName :: Lens' CreateFlowLogs Text -cflLogGroupName = lens _cflLogGroupName (\ s a -> s{_cflLogGroupName = a}); +cflLogGroupName = lens _cflLogGroupName (\ s a -> s{_cflLogGroupName = a}) -- | One or more subnet, network interface, or VPC IDs. Constraints: Maximum of 1000 resources cflResourceIds :: Lens' CreateFlowLogs [Text] -cflResourceIds = lens _cflResourceIds (\ s a -> s{_cflResourceIds = a}) . _Coerce; +cflResourceIds = lens _cflResourceIds (\ s a -> s{_cflResourceIds = a}) . _Coerce -- | The type of resource on which to create the flow log. cflResourceType :: Lens' CreateFlowLogs FlowLogsResourceType -cflResourceType = lens _cflResourceType (\ s a -> s{_cflResourceType = a}); +cflResourceType = lens _cflResourceType (\ s a -> s{_cflResourceType = a}) -- | The type of traffic to log. cflTrafficType :: Lens' CreateFlowLogs TrafficType -cflTrafficType = lens _cflTrafficType (\ s a -> s{_cflTrafficType = a}); +cflTrafficType = lens _cflTrafficType (\ s a -> s{_cflTrafficType = a}) instance AWSRequest CreateFlowLogs where type Rs CreateFlowLogs = CreateFlowLogsResponse @@ -191,27 +193,27 @@ -> CreateFlowLogsResponse createFlowLogsResponse pResponseStatus_ = CreateFlowLogsResponse' - { _cflrsUnsuccessful = Nothing - , _cflrsClientToken = Nothing - , _cflrsFlowLogIds = Nothing - , _cflrsResponseStatus = pResponseStatus_ - } + { _cflrsUnsuccessful = Nothing + , _cflrsClientToken = Nothing + , _cflrsFlowLogIds = Nothing + , _cflrsResponseStatus = pResponseStatus_ + } -- | Information about the flow logs that could not be created successfully. cflrsUnsuccessful :: Lens' CreateFlowLogsResponse [UnsuccessfulItem] -cflrsUnsuccessful = lens _cflrsUnsuccessful (\ s a -> s{_cflrsUnsuccessful = a}) . _Default . _Coerce; +cflrsUnsuccessful = lens _cflrsUnsuccessful (\ s a -> s{_cflrsUnsuccessful = a}) . _Default . _Coerce -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. cflrsClientToken :: Lens' CreateFlowLogsResponse (Maybe Text) -cflrsClientToken = lens _cflrsClientToken (\ s a -> s{_cflrsClientToken = a}); +cflrsClientToken = lens _cflrsClientToken (\ s a -> s{_cflrsClientToken = a}) -- | The IDs of the flow logs. cflrsFlowLogIds :: Lens' CreateFlowLogsResponse [Text] -cflrsFlowLogIds = lens _cflrsFlowLogIds (\ s a -> s{_cflrsFlowLogIds = a}) . _Default . _Coerce; +cflrsFlowLogIds = lens _cflrsFlowLogIds (\ s a -> s{_cflrsFlowLogIds = a}) . _Default . _Coerce -- | -- | The response status code. cflrsResponseStatus :: Lens' CreateFlowLogsResponse Int -cflrsResponseStatus = lens _cflrsResponseStatus (\ s a -> s{_cflrsResponseStatus = a}); +cflrsResponseStatus = lens _cflrsResponseStatus (\ s a -> s{_cflrsResponseStatus = a}) instance NFData CreateFlowLogsResponse where diff --git a/gen/Network/AWS/EC2/CreateFpgaImage.hs b/gen/Network/AWS/EC2/CreateFpgaImage.hs --- a/gen/Network/AWS/EC2/CreateFpgaImage.hs +++ b/gen/Network/AWS/EC2/CreateFpgaImage.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateFpgaImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -85,38 +85,38 @@ -> CreateFpgaImage createFpgaImage pInputStorageLocation_ = CreateFpgaImage' - { _creClientToken = Nothing - , _creLogsStorageLocation = Nothing - , _creName = Nothing - , _creDescription = Nothing - , _creDryRun = Nothing - , _creInputStorageLocation = pInputStorageLocation_ - } + { _creClientToken = Nothing + , _creLogsStorageLocation = Nothing + , _creName = Nothing + , _creDescription = Nothing + , _creDryRun = Nothing + , _creInputStorageLocation = pInputStorageLocation_ + } -- | Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. For more information, see . creClientToken :: Lens' CreateFpgaImage (Maybe Text) -creClientToken = lens _creClientToken (\ s a -> s{_creClientToken = a}); +creClientToken = lens _creClientToken (\ s a -> s{_creClientToken = a}) -- | The location in Amazon S3 for the output logs. creLogsStorageLocation :: Lens' CreateFpgaImage (Maybe StorageLocation) -creLogsStorageLocation = lens _creLogsStorageLocation (\ s a -> s{_creLogsStorageLocation = a}); +creLogsStorageLocation = lens _creLogsStorageLocation (\ s a -> s{_creLogsStorageLocation = a}) -- | A name for the AFI. creName :: Lens' CreateFpgaImage (Maybe Text) -creName = lens _creName (\ s a -> s{_creName = a}); +creName = lens _creName (\ s a -> s{_creName = a}) -- | A description for the AFI. creDescription :: Lens' CreateFpgaImage (Maybe Text) -creDescription = lens _creDescription (\ s a -> s{_creDescription = a}); +creDescription = lens _creDescription (\ s a -> s{_creDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . creDryRun :: Lens' CreateFpgaImage (Maybe Bool) -creDryRun = lens _creDryRun (\ s a -> s{_creDryRun = a}); +creDryRun = lens _creDryRun (\ s a -> s{_creDryRun = a}) -- | The location of the encrypted design checkpoint in Amazon S3. The input must be a tarball. creInputStorageLocation :: Lens' CreateFpgaImage StorageLocation -creInputStorageLocation = lens _creInputStorageLocation (\ s a -> s{_creInputStorageLocation = a}); +creInputStorageLocation = lens _creInputStorageLocation (\ s a -> s{_creInputStorageLocation = a}) instance AWSRequest CreateFpgaImage where type Rs CreateFpgaImage = CreateFpgaImageResponse @@ -171,22 +171,22 @@ -> CreateFpgaImageResponse createFpgaImageResponse pResponseStatus_ = CreateFpgaImageResponse' - { _cfirsFpgaImageId = Nothing - , _cfirsFpgaImageGlobalId = Nothing - , _cfirsResponseStatus = pResponseStatus_ - } + { _cfirsFpgaImageId = Nothing + , _cfirsFpgaImageGlobalId = Nothing + , _cfirsResponseStatus = pResponseStatus_ + } -- | The FPGA image identifier (AFI ID). cfirsFpgaImageId :: Lens' CreateFpgaImageResponse (Maybe Text) -cfirsFpgaImageId = lens _cfirsFpgaImageId (\ s a -> s{_cfirsFpgaImageId = a}); +cfirsFpgaImageId = lens _cfirsFpgaImageId (\ s a -> s{_cfirsFpgaImageId = a}) -- | The global FPGA image identifier (AGFI ID). cfirsFpgaImageGlobalId :: Lens' CreateFpgaImageResponse (Maybe Text) -cfirsFpgaImageGlobalId = lens _cfirsFpgaImageGlobalId (\ s a -> s{_cfirsFpgaImageGlobalId = a}); +cfirsFpgaImageGlobalId = lens _cfirsFpgaImageGlobalId (\ s a -> s{_cfirsFpgaImageGlobalId = a}) -- | -- | The response status code. cfirsResponseStatus :: Lens' CreateFpgaImageResponse Int -cfirsResponseStatus = lens _cfirsResponseStatus (\ s a -> s{_cfirsResponseStatus = a}); +cfirsResponseStatus = lens _cfirsResponseStatus (\ s a -> s{_cfirsResponseStatus = a}) instance NFData CreateFpgaImageResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -89,38 +89,38 @@ -> CreateImage createImage pInstanceId_ pName_ = CreateImage' - { _ciiNoReboot = Nothing - , _ciiDescription = Nothing - , _ciiBlockDeviceMappings = Nothing - , _ciiDryRun = Nothing - , _ciiInstanceId = pInstanceId_ - , _ciiName = pName_ - } + { _ciiNoReboot = Nothing + , _ciiDescription = Nothing + , _ciiBlockDeviceMappings = Nothing + , _ciiDryRun = Nothing + , _ciiInstanceId = pInstanceId_ + , _ciiName = pName_ + } -- | By default, Amazon EC2 attempts to shut down and reboot the instance before creating the image. If the 'No Reboot' option is set, Amazon EC2 doesn't shut down the instance before creating the image. When this option is used, file system integrity on the created image can't be guaranteed. ciiNoReboot :: Lens' CreateImage (Maybe Bool) -ciiNoReboot = lens _ciiNoReboot (\ s a -> s{_ciiNoReboot = a}); +ciiNoReboot = lens _ciiNoReboot (\ s a -> s{_ciiNoReboot = a}) -- | A description for the new image. ciiDescription :: Lens' CreateImage (Maybe Text) -ciiDescription = lens _ciiDescription (\ s a -> s{_ciiDescription = a}); +ciiDescription = lens _ciiDescription (\ s a -> s{_ciiDescription = a}) -- | Information about one or more block device mappings. ciiBlockDeviceMappings :: Lens' CreateImage [BlockDeviceMapping] -ciiBlockDeviceMappings = lens _ciiBlockDeviceMappings (\ s a -> s{_ciiBlockDeviceMappings = a}) . _Default . _Coerce; +ciiBlockDeviceMappings = lens _ciiBlockDeviceMappings (\ s a -> s{_ciiBlockDeviceMappings = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ciiDryRun :: Lens' CreateImage (Maybe Bool) -ciiDryRun = lens _ciiDryRun (\ s a -> s{_ciiDryRun = a}); +ciiDryRun = lens _ciiDryRun (\ s a -> s{_ciiDryRun = a}) -- | The ID of the instance. ciiInstanceId :: Lens' CreateImage Text -ciiInstanceId = lens _ciiInstanceId (\ s a -> s{_ciiInstanceId = a}); +ciiInstanceId = lens _ciiInstanceId (\ s a -> s{_ciiInstanceId = a}) -- | A name for the new image. Constraints: 3-128 alphanumeric characters, parentheses (()), square brackets ([]), spaces ( ), periods (.), slashes (/), dashes (-), single quotes ('), at-signs (@), or underscores(_) ciiName :: Lens' CreateImage Text -ciiName = lens _ciiName (\ s a -> s{_ciiName = a}); +ciiName = lens _ciiName (\ s a -> s{_ciiName = a}) instance AWSRequest CreateImage where type Rs CreateImage = CreateImageResponse @@ -177,15 +177,15 @@ -> CreateImageResponse createImageResponse pResponseStatus_ = CreateImageResponse' - {_cirsImageId = Nothing, _cirsResponseStatus = pResponseStatus_} + {_cirsImageId = Nothing, _cirsResponseStatus = pResponseStatus_} -- | The ID of the new AMI. cirsImageId :: Lens' CreateImageResponse (Maybe Text) -cirsImageId = lens _cirsImageId (\ s a -> s{_cirsImageId = a}); +cirsImageId = lens _cirsImageId (\ s a -> s{_cirsImageId = a}) -- | -- | The response status code. cirsResponseStatus :: Lens' CreateImageResponse Int -cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a}); +cirsResponseStatus = lens _cirsResponseStatus (\ s a -> s{_cirsResponseStatus = a}) instance NFData CreateImageResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateInstanceExportTask --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -78,28 +78,28 @@ -> CreateInstanceExportTask createInstanceExportTask pInstanceId_ = CreateInstanceExportTask' - { _cietTargetEnvironment = Nothing - , _cietExportToS3Task = Nothing - , _cietDescription = Nothing - , _cietInstanceId = pInstanceId_ - } + { _cietTargetEnvironment = Nothing + , _cietExportToS3Task = Nothing + , _cietDescription = Nothing + , _cietInstanceId = pInstanceId_ + } -- | The target virtualization environment. cietTargetEnvironment :: Lens' CreateInstanceExportTask (Maybe ExportEnvironment) -cietTargetEnvironment = lens _cietTargetEnvironment (\ s a -> s{_cietTargetEnvironment = a}); +cietTargetEnvironment = lens _cietTargetEnvironment (\ s a -> s{_cietTargetEnvironment = a}) -- | The format and location for an instance export task. cietExportToS3Task :: Lens' CreateInstanceExportTask (Maybe ExportToS3TaskSpecification) -cietExportToS3Task = lens _cietExportToS3Task (\ s a -> s{_cietExportToS3Task = a}); +cietExportToS3Task = lens _cietExportToS3Task (\ s a -> s{_cietExportToS3Task = a}) -- | A description for the conversion task or the resource being exported. The maximum length is 255 bytes. cietDescription :: Lens' CreateInstanceExportTask (Maybe Text) -cietDescription = lens _cietDescription (\ s a -> s{_cietDescription = a}); +cietDescription = lens _cietDescription (\ s a -> s{_cietDescription = a}) -- | The ID of the instance. cietInstanceId :: Lens' CreateInstanceExportTask Text -cietInstanceId = lens _cietInstanceId (\ s a -> s{_cietInstanceId = a}); +cietInstanceId = lens _cietInstanceId (\ s a -> s{_cietInstanceId = a}) instance AWSRequest CreateInstanceExportTask where type Rs CreateInstanceExportTask = @@ -155,16 +155,16 @@ -> CreateInstanceExportTaskResponse createInstanceExportTaskResponse pResponseStatus_ = CreateInstanceExportTaskResponse' - {_cietrsExportTask = Nothing, _cietrsResponseStatus = pResponseStatus_} + {_cietrsExportTask = Nothing, _cietrsResponseStatus = pResponseStatus_} -- | Information about the instance export task. cietrsExportTask :: Lens' CreateInstanceExportTaskResponse (Maybe ExportTask) -cietrsExportTask = lens _cietrsExportTask (\ s a -> s{_cietrsExportTask = a}); +cietrsExportTask = lens _cietrsExportTask (\ s a -> s{_cietrsExportTask = a}) -- | -- | The response status code. cietrsResponseStatus :: Lens' CreateInstanceExportTaskResponse Int -cietrsResponseStatus = lens _cietrsResponseStatus (\ s a -> s{_cietrsResponseStatus = a}); +cietrsResponseStatus = lens _cietrsResponseStatus (\ s a -> s{_cietrsResponseStatus = a}) instance NFData CreateInstanceExportTaskResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateInternetGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,7 +68,7 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cigDryRun :: Lens' CreateInternetGateway (Maybe Bool) -cigDryRun = lens _cigDryRun (\ s a -> s{_cigDryRun = a}); +cigDryRun = lens _cigDryRun (\ s a -> s{_cigDryRun = a}) instance AWSRequest CreateInternetGateway where type Rs CreateInternetGateway = @@ -120,15 +120,15 @@ -> CreateInternetGatewayResponse createInternetGatewayResponse pResponseStatus_ = CreateInternetGatewayResponse' - {_cigrsInternetGateway = Nothing, _cigrsResponseStatus = pResponseStatus_} + {_cigrsInternetGateway = Nothing, _cigrsResponseStatus = pResponseStatus_} -- | Information about the Internet gateway. cigrsInternetGateway :: Lens' CreateInternetGatewayResponse (Maybe InternetGateway) -cigrsInternetGateway = lens _cigrsInternetGateway (\ s a -> s{_cigrsInternetGateway = a}); +cigrsInternetGateway = lens _cigrsInternetGateway (\ s a -> s{_cigrsInternetGateway = a}) -- | -- | The response status code. cigrsResponseStatus :: Lens' CreateInternetGatewayResponse Int -cigrsResponseStatus = lens _cigrsResponseStatus (\ s a -> s{_cigrsResponseStatus = a}); +cigrsResponseStatus = lens _cigrsResponseStatus (\ s a -> s{_cigrsResponseStatus = a}) instance NFData CreateInternetGatewayResponse where 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 @@ -12,20 +12,20 @@ -- | -- Module : Network.AWS.EC2.CreateKeyPair --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a 2048-bit RSA key pair with the specified name. Amazon EC2 stores the public key and displays the private key for you to save to a file. The private key is returned as an unencrypted PEM encoded PKCS#8 private key. If a key with the specified name already exists, Amazon EC2 returns an error. +-- Creates a 2048-bit RSA key pair with the specified name. Amazon EC2 stores the public key and displays the private key for you to save to a file. The private key is returned as an unencrypted PEM encoded PKCS#1 private key. If a key with the specified name already exists, Amazon EC2 returns an error. -- -- -- You can have up to five thousand key pairs per region. -- --- The key pair returned to you is available only in the region in which you create it. To create a key pair that is available in all regions, use 'ImportKeyPair' . +-- The key pair returned to you is available only in the region in which you create it. If you prefer, you can create your own key pair using a third-party tool and upload it to any region using 'ImportKeyPair' . -- --- For more information about key pairs, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- module Network.AWS.EC2.CreateKeyPair ( @@ -80,11 +80,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ckpDryRun :: Lens' CreateKeyPair (Maybe Bool) -ckpDryRun = lens _ckpDryRun (\ s a -> s{_ckpDryRun = a}); +ckpDryRun = lens _ckpDryRun (\ s a -> s{_ckpDryRun = a}) -- | A unique name for the key pair. Constraints: Up to 255 ASCII characters ckpKeyName :: Lens' CreateKeyPair Text -ckpKeyName = lens _ckpKeyName (\ s a -> s{_ckpKeyName = a}); +ckpKeyName = lens _ckpKeyName (\ s a -> s{_ckpKeyName = a}) instance AWSRequest CreateKeyPair where type Rs CreateKeyPair = CreateKeyPairResponse @@ -146,27 +146,27 @@ -> CreateKeyPairResponse createKeyPairResponse pResponseStatus_ pKeyName_ pKeyFingerprint_ pKeyMaterial_ = CreateKeyPairResponse' - { _ckprsResponseStatus = pResponseStatus_ - , _ckprsKeyName = pKeyName_ - , _ckprsKeyFingerprint = pKeyFingerprint_ - , _ckprsKeyMaterial = pKeyMaterial_ - } + { _ckprsResponseStatus = pResponseStatus_ + , _ckprsKeyName = pKeyName_ + , _ckprsKeyFingerprint = pKeyFingerprint_ + , _ckprsKeyMaterial = pKeyMaterial_ + } -- | -- | The response status code. ckprsResponseStatus :: Lens' CreateKeyPairResponse Int -ckprsResponseStatus = lens _ckprsResponseStatus (\ s a -> s{_ckprsResponseStatus = a}); +ckprsResponseStatus = lens _ckprsResponseStatus (\ s a -> s{_ckprsResponseStatus = a}) -- | The name of the key pair. ckprsKeyName :: Lens' CreateKeyPairResponse Text -ckprsKeyName = lens _ckprsKeyName (\ s a -> s{_ckprsKeyName = a}); +ckprsKeyName = lens _ckprsKeyName (\ s a -> s{_ckprsKeyName = a}) -- | The SHA-1 digest of the DER encoded private key. ckprsKeyFingerprint :: Lens' CreateKeyPairResponse Text -ckprsKeyFingerprint = lens _ckprsKeyFingerprint (\ s a -> s{_ckprsKeyFingerprint = a}); +ckprsKeyFingerprint = lens _ckprsKeyFingerprint (\ s a -> s{_ckprsKeyFingerprint = a}) -- | An unencrypted PEM encoded RSA private key. ckprsKeyMaterial :: Lens' CreateKeyPairResponse Text -ckprsKeyMaterial = lens _ckprsKeyMaterial (\ s a -> s{_ckprsKeyMaterial = a}); +ckprsKeyMaterial = lens _ckprsKeyMaterial (\ s a -> s{_ckprsKeyMaterial = a}) instance NFData CreateKeyPairResponse where diff --git a/gen/Network/AWS/EC2/CreateLaunchTemplate.hs b/gen/Network/AWS/EC2/CreateLaunchTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/CreateLaunchTemplate.hs @@ -0,0 +1,169 @@ +{-# 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.CreateLaunchTemplate +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a launch template. A launch template contains the parameters to launch an instance. When you launch an instance using 'RunInstances' , you can specify a launch template instead of providing the launch parameters in the request. +-- +-- +module Network.AWS.EC2.CreateLaunchTemplate + ( + -- * Creating a Request + createLaunchTemplate + , CreateLaunchTemplate + -- * Request Lenses + , cltClientToken + , cltVersionDescription + , cltDryRun + , cltLaunchTemplateName + , cltLaunchTemplateData + + -- * Destructuring the Response + , createLaunchTemplateResponse + , CreateLaunchTemplateResponse + -- * Response Lenses + , cltrsLaunchTemplate + , cltrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'createLaunchTemplate' smart constructor. +data CreateLaunchTemplate = CreateLaunchTemplate' + { _cltClientToken :: !(Maybe Text) + , _cltVersionDescription :: !(Maybe Text) + , _cltDryRun :: !(Maybe Bool) + , _cltLaunchTemplateName :: !Text + , _cltLaunchTemplateData :: !RequestLaunchTemplateData + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateLaunchTemplate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cltClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +-- +-- * 'cltVersionDescription' - A description for the first version of the launch template. +-- +-- * 'cltDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'cltLaunchTemplateName' - A name for the launch template. +-- +-- * 'cltLaunchTemplateData' - The information for the launch template. +createLaunchTemplate + :: Text -- ^ 'cltLaunchTemplateName' + -> RequestLaunchTemplateData -- ^ 'cltLaunchTemplateData' + -> CreateLaunchTemplate +createLaunchTemplate pLaunchTemplateName_ pLaunchTemplateData_ = + CreateLaunchTemplate' + { _cltClientToken = Nothing + , _cltVersionDescription = Nothing + , _cltDryRun = Nothing + , _cltLaunchTemplateName = pLaunchTemplateName_ + , _cltLaunchTemplateData = pLaunchTemplateData_ + } + + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +cltClientToken :: Lens' CreateLaunchTemplate (Maybe Text) +cltClientToken = lens _cltClientToken (\ s a -> s{_cltClientToken = a}) + +-- | A description for the first version of the launch template. +cltVersionDescription :: Lens' CreateLaunchTemplate (Maybe Text) +cltVersionDescription = lens _cltVersionDescription (\ s a -> s{_cltVersionDescription = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +cltDryRun :: Lens' CreateLaunchTemplate (Maybe Bool) +cltDryRun = lens _cltDryRun (\ s a -> s{_cltDryRun = a}) + +-- | A name for the launch template. +cltLaunchTemplateName :: Lens' CreateLaunchTemplate Text +cltLaunchTemplateName = lens _cltLaunchTemplateName (\ s a -> s{_cltLaunchTemplateName = a}) + +-- | The information for the launch template. +cltLaunchTemplateData :: Lens' CreateLaunchTemplate RequestLaunchTemplateData +cltLaunchTemplateData = lens _cltLaunchTemplateData (\ s a -> s{_cltLaunchTemplateData = a}) + +instance AWSRequest CreateLaunchTemplate where + type Rs CreateLaunchTemplate = + CreateLaunchTemplateResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + CreateLaunchTemplateResponse' <$> + (x .@? "launchTemplate") <*> (pure (fromEnum s))) + +instance Hashable CreateLaunchTemplate where + +instance NFData CreateLaunchTemplate where + +instance ToHeaders CreateLaunchTemplate where + toHeaders = const mempty + +instance ToPath CreateLaunchTemplate where + toPath = const "/" + +instance ToQuery CreateLaunchTemplate where + toQuery CreateLaunchTemplate'{..} + = mconcat + ["Action" =: ("CreateLaunchTemplate" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "ClientToken" =: _cltClientToken, + "VersionDescription" =: _cltVersionDescription, + "DryRun" =: _cltDryRun, + "LaunchTemplateName" =: _cltLaunchTemplateName, + "LaunchTemplateData" =: _cltLaunchTemplateData] + +-- | /See:/ 'createLaunchTemplateResponse' smart constructor. +data CreateLaunchTemplateResponse = CreateLaunchTemplateResponse' + { _cltrsLaunchTemplate :: !(Maybe LaunchTemplate) + , _cltrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateLaunchTemplateResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cltrsLaunchTemplate' - Information about the launch template. +-- +-- * 'cltrsResponseStatus' - -- | The response status code. +createLaunchTemplateResponse + :: Int -- ^ 'cltrsResponseStatus' + -> CreateLaunchTemplateResponse +createLaunchTemplateResponse pResponseStatus_ = + CreateLaunchTemplateResponse' + {_cltrsLaunchTemplate = Nothing, _cltrsResponseStatus = pResponseStatus_} + + +-- | Information about the launch template. +cltrsLaunchTemplate :: Lens' CreateLaunchTemplateResponse (Maybe LaunchTemplate) +cltrsLaunchTemplate = lens _cltrsLaunchTemplate (\ s a -> s{_cltrsLaunchTemplate = a}) + +-- | -- | The response status code. +cltrsResponseStatus :: Lens' CreateLaunchTemplateResponse Int +cltrsResponseStatus = lens _cltrsResponseStatus (\ s a -> s{_cltrsResponseStatus = a}) + +instance NFData CreateLaunchTemplateResponse where diff --git a/gen/Network/AWS/EC2/CreateLaunchTemplateVersion.hs b/gen/Network/AWS/EC2/CreateLaunchTemplateVersion.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/CreateLaunchTemplateVersion.hs @@ -0,0 +1,195 @@ +{-# 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.CreateLaunchTemplateVersion +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a new version for a launch template. You can specify an existing version of launch template from which to base the new version. +-- +-- +-- Launch template versions are numbered in the order in which they are created. You cannot specify, change, or replace the numbering of launch template versions. +-- +module Network.AWS.EC2.CreateLaunchTemplateVersion + ( + -- * Creating a Request + createLaunchTemplateVersion + , CreateLaunchTemplateVersion + -- * Request Lenses + , cltvLaunchTemplateName + , cltvClientToken + , cltvLaunchTemplateId + , cltvVersionDescription + , cltvSourceVersion + , cltvDryRun + , cltvLaunchTemplateData + + -- * Destructuring the Response + , createLaunchTemplateVersionResponse + , CreateLaunchTemplateVersionResponse + -- * Response Lenses + , cltvrsLaunchTemplateVersion + , cltvrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'createLaunchTemplateVersion' smart constructor. +data CreateLaunchTemplateVersion = CreateLaunchTemplateVersion' + { _cltvLaunchTemplateName :: !(Maybe Text) + , _cltvClientToken :: !(Maybe Text) + , _cltvLaunchTemplateId :: !(Maybe Text) + , _cltvVersionDescription :: !(Maybe Text) + , _cltvSourceVersion :: !(Maybe Text) + , _cltvDryRun :: !(Maybe Bool) + , _cltvLaunchTemplateData :: !RequestLaunchTemplateData + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateLaunchTemplateVersion' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cltvLaunchTemplateName' - The name of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'cltvClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +-- +-- * 'cltvLaunchTemplateId' - The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'cltvVersionDescription' - A description for the version of the launch template. +-- +-- * 'cltvSourceVersion' - The version number of the launch template version on which to base the new version. The new version inherits the same launch parameters as the source version, except for parameters that you specify in LaunchTemplateData. +-- +-- * 'cltvDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'cltvLaunchTemplateData' - The information for the launch template. +createLaunchTemplateVersion + :: RequestLaunchTemplateData -- ^ 'cltvLaunchTemplateData' + -> CreateLaunchTemplateVersion +createLaunchTemplateVersion pLaunchTemplateData_ = + CreateLaunchTemplateVersion' + { _cltvLaunchTemplateName = Nothing + , _cltvClientToken = Nothing + , _cltvLaunchTemplateId = Nothing + , _cltvVersionDescription = Nothing + , _cltvSourceVersion = Nothing + , _cltvDryRun = Nothing + , _cltvLaunchTemplateData = pLaunchTemplateData_ + } + + +-- | The name of the launch template. You must specify either the launch template ID or launch template name in the request. +cltvLaunchTemplateName :: Lens' CreateLaunchTemplateVersion (Maybe Text) +cltvLaunchTemplateName = lens _cltvLaunchTemplateName (\ s a -> s{_cltvLaunchTemplateName = a}) + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +cltvClientToken :: Lens' CreateLaunchTemplateVersion (Maybe Text) +cltvClientToken = lens _cltvClientToken (\ s a -> s{_cltvClientToken = a}) + +-- | The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +cltvLaunchTemplateId :: Lens' CreateLaunchTemplateVersion (Maybe Text) +cltvLaunchTemplateId = lens _cltvLaunchTemplateId (\ s a -> s{_cltvLaunchTemplateId = a}) + +-- | A description for the version of the launch template. +cltvVersionDescription :: Lens' CreateLaunchTemplateVersion (Maybe Text) +cltvVersionDescription = lens _cltvVersionDescription (\ s a -> s{_cltvVersionDescription = a}) + +-- | The version number of the launch template version on which to base the new version. The new version inherits the same launch parameters as the source version, except for parameters that you specify in LaunchTemplateData. +cltvSourceVersion :: Lens' CreateLaunchTemplateVersion (Maybe Text) +cltvSourceVersion = lens _cltvSourceVersion (\ s a -> s{_cltvSourceVersion = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +cltvDryRun :: Lens' CreateLaunchTemplateVersion (Maybe Bool) +cltvDryRun = lens _cltvDryRun (\ s a -> s{_cltvDryRun = a}) + +-- | The information for the launch template. +cltvLaunchTemplateData :: Lens' CreateLaunchTemplateVersion RequestLaunchTemplateData +cltvLaunchTemplateData = lens _cltvLaunchTemplateData (\ s a -> s{_cltvLaunchTemplateData = a}) + +instance AWSRequest CreateLaunchTemplateVersion where + type Rs CreateLaunchTemplateVersion = + CreateLaunchTemplateVersionResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + CreateLaunchTemplateVersionResponse' <$> + (x .@? "launchTemplateVersion") <*> + (pure (fromEnum s))) + +instance Hashable CreateLaunchTemplateVersion where + +instance NFData CreateLaunchTemplateVersion where + +instance ToHeaders CreateLaunchTemplateVersion where + toHeaders = const mempty + +instance ToPath CreateLaunchTemplateVersion where + toPath = const "/" + +instance ToQuery CreateLaunchTemplateVersion where + toQuery CreateLaunchTemplateVersion'{..} + = mconcat + ["Action" =: + ("CreateLaunchTemplateVersion" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "LaunchTemplateName" =: _cltvLaunchTemplateName, + "ClientToken" =: _cltvClientToken, + "LaunchTemplateId" =: _cltvLaunchTemplateId, + "VersionDescription" =: _cltvVersionDescription, + "SourceVersion" =: _cltvSourceVersion, + "DryRun" =: _cltvDryRun, + "LaunchTemplateData" =: _cltvLaunchTemplateData] + +-- | /See:/ 'createLaunchTemplateVersionResponse' smart constructor. +data CreateLaunchTemplateVersionResponse = CreateLaunchTemplateVersionResponse' + { _cltvrsLaunchTemplateVersion :: !(Maybe LaunchTemplateVersion) + , _cltvrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateLaunchTemplateVersionResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cltvrsLaunchTemplateVersion' - Information about the launch template version. +-- +-- * 'cltvrsResponseStatus' - -- | The response status code. +createLaunchTemplateVersionResponse + :: Int -- ^ 'cltvrsResponseStatus' + -> CreateLaunchTemplateVersionResponse +createLaunchTemplateVersionResponse pResponseStatus_ = + CreateLaunchTemplateVersionResponse' + { _cltvrsLaunchTemplateVersion = Nothing + , _cltvrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the launch template version. +cltvrsLaunchTemplateVersion :: Lens' CreateLaunchTemplateVersionResponse (Maybe LaunchTemplateVersion) +cltvrsLaunchTemplateVersion = lens _cltvrsLaunchTemplateVersion (\ s a -> s{_cltvrsLaunchTemplateVersion = a}) + +-- | -- | The response status code. +cltvrsResponseStatus :: Lens' CreateLaunchTemplateVersionResponse Int +cltvrsResponseStatus = lens _cltvrsResponseStatus (\ s a -> s{_cltvrsResponseStatus = a}) + +instance NFData CreateLaunchTemplateVersionResponse + where diff --git a/gen/Network/AWS/EC2/CreateNatGateway.hs b/gen/Network/AWS/EC2/CreateNatGateway.hs --- a/gen/Network/AWS/EC2/CreateNatGateway.hs +++ b/gen/Network/AWS/EC2/CreateNatGateway.hs @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.CreateNatGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a NAT gateway in the specified subnet. A NAT gateway can be used to enable instances in a private subnet to connect to the Internet. This action creates a network interface in the specified subnet with a private IP address from the IP address range of the subnet. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . +-- Creates a NAT gateway in the specified public subnet. This action creates a network interface in the specified subnet with a private IP address from the IP address range of the subnet. Internet-bound traffic from a private subnet can be routed to the NAT gateway, therefore enabling instances in the private subnet to connect to the internet. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . -- -- module Network.AWS.EC2.CreateNatGateway @@ -74,23 +74,23 @@ -> CreateNatGateway createNatGateway pAllocationId_ pSubnetId_ = CreateNatGateway' - { _cngClientToken = Nothing - , _cngAllocationId = pAllocationId_ - , _cngSubnetId = pSubnetId_ - } + { _cngClientToken = Nothing + , _cngAllocationId = pAllocationId_ + , _cngSubnetId = pSubnetId_ + } -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . Constraint: Maximum 64 ASCII characters. cngClientToken :: Lens' CreateNatGateway (Maybe Text) -cngClientToken = lens _cngClientToken (\ s a -> s{_cngClientToken = a}); +cngClientToken = lens _cngClientToken (\ s a -> s{_cngClientToken = a}) -- | The allocation ID of an Elastic IP address to associate with the NAT gateway. If the Elastic IP address is associated with another resource, you must first disassociate it. cngAllocationId :: Lens' CreateNatGateway Text -cngAllocationId = lens _cngAllocationId (\ s a -> s{_cngAllocationId = a}); +cngAllocationId = lens _cngAllocationId (\ s a -> s{_cngAllocationId = a}) -- | The subnet in which to create the NAT gateway. cngSubnetId :: Lens' CreateNatGateway Text -cngSubnetId = lens _cngSubnetId (\ s a -> s{_cngSubnetId = a}); +cngSubnetId = lens _cngSubnetId (\ s a -> s{_cngSubnetId = a}) instance AWSRequest CreateNatGateway where type Rs CreateNatGateway = CreateNatGatewayResponse @@ -147,22 +147,22 @@ -> CreateNatGatewayResponse createNatGatewayResponse pResponseStatus_ = CreateNatGatewayResponse' - { _cngrsClientToken = Nothing - , _cngrsNatGateway = Nothing - , _cngrsResponseStatus = pResponseStatus_ - } + { _cngrsClientToken = Nothing + , _cngrsNatGateway = Nothing + , _cngrsResponseStatus = pResponseStatus_ + } -- | Unique, case-sensitive identifier to ensure the idempotency of the request. Only returned if a client token was provided in the request. cngrsClientToken :: Lens' CreateNatGatewayResponse (Maybe Text) -cngrsClientToken = lens _cngrsClientToken (\ s a -> s{_cngrsClientToken = a}); +cngrsClientToken = lens _cngrsClientToken (\ s a -> s{_cngrsClientToken = a}) -- | Information about the NAT gateway. cngrsNatGateway :: Lens' CreateNatGatewayResponse (Maybe NatGateway) -cngrsNatGateway = lens _cngrsNatGateway (\ s a -> s{_cngrsNatGateway = a}); +cngrsNatGateway = lens _cngrsNatGateway (\ s a -> s{_cngrsNatGateway = a}) -- | -- | The response status code. cngrsResponseStatus :: Lens' CreateNatGatewayResponse Int -cngrsResponseStatus = lens _cngrsResponseStatus (\ s a -> s{_cngrsResponseStatus = a}); +cngrsResponseStatus = lens _cngrsResponseStatus (\ s a -> s{_cngrsResponseStatus = a}) instance NFData CreateNatGatewayResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateNetworkACL --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -74,11 +74,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cnaDryRun :: Lens' CreateNetworkACL (Maybe Bool) -cnaDryRun = lens _cnaDryRun (\ s a -> s{_cnaDryRun = a}); +cnaDryRun = lens _cnaDryRun (\ s a -> s{_cnaDryRun = a}) -- | The ID of the VPC. cnaVPCId :: Lens' CreateNetworkACL Text -cnaVPCId = lens _cnaVPCId (\ s a -> s{_cnaVPCId = a}); +cnaVPCId = lens _cnaVPCId (\ s a -> s{_cnaVPCId = a}) instance AWSRequest CreateNetworkACL where type Rs CreateNetworkACL = CreateNetworkACLResponse @@ -129,15 +129,15 @@ -> CreateNetworkACLResponse createNetworkACLResponse pResponseStatus_ = CreateNetworkACLResponse' - {_cnarsNetworkACL = Nothing, _cnarsResponseStatus = pResponseStatus_} + {_cnarsNetworkACL = Nothing, _cnarsResponseStatus = pResponseStatus_} -- | Information about the network ACL. cnarsNetworkACL :: Lens' CreateNetworkACLResponse (Maybe NetworkACL) -cnarsNetworkACL = lens _cnarsNetworkACL (\ s a -> s{_cnarsNetworkACL = a}); +cnarsNetworkACL = lens _cnarsNetworkACL (\ s a -> s{_cnarsNetworkACL = a}) -- | -- | The response status code. cnarsResponseStatus :: Lens' CreateNetworkACLResponse Int -cnarsResponseStatus = lens _cnarsResponseStatus (\ s a -> s{_cnarsResponseStatus = a}); +cnarsResponseStatus = lens _cnarsResponseStatus (\ s a -> s{_cnarsResponseStatus = a}) instance NFData CreateNetworkACLResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateNetworkACLEntry --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -93,7 +93,7 @@ -- -- * 'cnaeNetworkACLId' - The ID of the network ACL. -- --- * 'cnaeProtocol' - The protocol. A value of @-1@ or @all@ means all protocols. If you specify @all@ , @-1@ , or a protocol number other than @tcp@ , @udp@ , or @icmp@ , traffic on all ports is allowed, regardless of any ports or ICMP types or codes you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv4 CIDR block, traffic for all ICMP types and codes allowed, regardless of any that you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv6 CIDR block, you must specify an ICMP type and code. +-- * 'cnaeProtocol' - The protocol. A value of @-1@ or @all@ means all protocols. If you specify @all@ , @-1@ , or a protocol number other than @6@ (tcp), @17@ (udp), or @1@ (icmp), traffic on all ports is allowed, regardless of any ports or ICMP types or codes you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv4 CIDR block, traffic for all ICMP types and codes allowed, regardless of any that you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv6 CIDR block, you must specify an ICMP type and code. -- -- * 'cnaeRuleAction' - Indicates whether to allow or deny the traffic that matches the rule. -- @@ -107,58 +107,58 @@ -> CreateNetworkACLEntry createNetworkACLEntry pEgress_ pNetworkACLId_ pProtocol_ pRuleAction_ pRuleNumber_ = CreateNetworkACLEntry' - { _cnaeIPv6CidrBlock = Nothing - , _cnaeICMPTypeCode = Nothing - , _cnaePortRange = Nothing - , _cnaeCidrBlock = Nothing - , _cnaeDryRun = Nothing - , _cnaeEgress = pEgress_ - , _cnaeNetworkACLId = pNetworkACLId_ - , _cnaeProtocol = pProtocol_ - , _cnaeRuleAction = pRuleAction_ - , _cnaeRuleNumber = pRuleNumber_ - } + { _cnaeIPv6CidrBlock = Nothing + , _cnaeICMPTypeCode = Nothing + , _cnaePortRange = Nothing + , _cnaeCidrBlock = Nothing + , _cnaeDryRun = Nothing + , _cnaeEgress = pEgress_ + , _cnaeNetworkACLId = pNetworkACLId_ + , _cnaeProtocol = pProtocol_ + , _cnaeRuleAction = pRuleAction_ + , _cnaeRuleNumber = pRuleNumber_ + } -- | The IPv6 network range to allow or deny, in CIDR notation (for example @2001:db8:1234:1a00::/64@ ). cnaeIPv6CidrBlock :: Lens' CreateNetworkACLEntry (Maybe Text) -cnaeIPv6CidrBlock = lens _cnaeIPv6CidrBlock (\ s a -> s{_cnaeIPv6CidrBlock = a}); +cnaeIPv6CidrBlock = lens _cnaeIPv6CidrBlock (\ s a -> s{_cnaeIPv6CidrBlock = a}) -- | ICMP protocol: The ICMP or ICMPv6 type and code. Required if specifying the ICMP protocol, or protocol 58 (ICMPv6) with an IPv6 CIDR block. cnaeICMPTypeCode :: Lens' CreateNetworkACLEntry (Maybe ICMPTypeCode) -cnaeICMPTypeCode = lens _cnaeICMPTypeCode (\ s a -> s{_cnaeICMPTypeCode = a}); +cnaeICMPTypeCode = lens _cnaeICMPTypeCode (\ s a -> s{_cnaeICMPTypeCode = a}) -- | TCP or UDP protocols: The range of ports the rule applies to. cnaePortRange :: Lens' CreateNetworkACLEntry (Maybe PortRange) -cnaePortRange = lens _cnaePortRange (\ s a -> s{_cnaePortRange = a}); +cnaePortRange = lens _cnaePortRange (\ s a -> s{_cnaePortRange = a}) -- | The IPv4 network range to allow or deny, in CIDR notation (for example @172.16.0.0/24@ ). cnaeCidrBlock :: Lens' CreateNetworkACLEntry (Maybe Text) -cnaeCidrBlock = lens _cnaeCidrBlock (\ s a -> s{_cnaeCidrBlock = a}); +cnaeCidrBlock = lens _cnaeCidrBlock (\ s a -> s{_cnaeCidrBlock = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cnaeDryRun :: Lens' CreateNetworkACLEntry (Maybe Bool) -cnaeDryRun = lens _cnaeDryRun (\ s a -> s{_cnaeDryRun = a}); +cnaeDryRun = lens _cnaeDryRun (\ s a -> s{_cnaeDryRun = a}) -- | Indicates whether this is an egress rule (rule is applied to traffic leaving the subnet). cnaeEgress :: Lens' CreateNetworkACLEntry Bool -cnaeEgress = lens _cnaeEgress (\ s a -> s{_cnaeEgress = a}); +cnaeEgress = lens _cnaeEgress (\ s a -> s{_cnaeEgress = a}) -- | The ID of the network ACL. cnaeNetworkACLId :: Lens' CreateNetworkACLEntry Text -cnaeNetworkACLId = lens _cnaeNetworkACLId (\ s a -> s{_cnaeNetworkACLId = a}); +cnaeNetworkACLId = lens _cnaeNetworkACLId (\ s a -> s{_cnaeNetworkACLId = a}) --- | The protocol. A value of @-1@ or @all@ means all protocols. If you specify @all@ , @-1@ , or a protocol number other than @tcp@ , @udp@ , or @icmp@ , traffic on all ports is allowed, regardless of any ports or ICMP types or codes you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv4 CIDR block, traffic for all ICMP types and codes allowed, regardless of any that you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv6 CIDR block, you must specify an ICMP type and code. +-- | The protocol. A value of @-1@ or @all@ means all protocols. If you specify @all@ , @-1@ , or a protocol number other than @6@ (tcp), @17@ (udp), or @1@ (icmp), traffic on all ports is allowed, regardless of any ports or ICMP types or codes you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv4 CIDR block, traffic for all ICMP types and codes allowed, regardless of any that you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv6 CIDR block, you must specify an ICMP type and code. cnaeProtocol :: Lens' CreateNetworkACLEntry Text -cnaeProtocol = lens _cnaeProtocol (\ s a -> s{_cnaeProtocol = a}); +cnaeProtocol = lens _cnaeProtocol (\ s a -> s{_cnaeProtocol = a}) -- | Indicates whether to allow or deny the traffic that matches the rule. cnaeRuleAction :: Lens' CreateNetworkACLEntry RuleAction -cnaeRuleAction = lens _cnaeRuleAction (\ s a -> s{_cnaeRuleAction = a}); +cnaeRuleAction = lens _cnaeRuleAction (\ s a -> s{_cnaeRuleAction = a}) -- | The rule number for the entry (for example, 100). ACL entries are processed in ascending order by rule number. Constraints: Positive integer from 1 to 32766. The range 32767 to 65535 is reserved for internal use. cnaeRuleNumber :: Lens' CreateNetworkACLEntry Int -cnaeRuleNumber = lens _cnaeRuleNumber (\ s a -> s{_cnaeRuleNumber = a}); +cnaeRuleNumber = lens _cnaeRuleNumber (\ s a -> s{_cnaeRuleNumber = a}) instance AWSRequest CreateNetworkACLEntry where type Rs CreateNetworkACLEntry = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateNetworkInterface --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -98,53 +98,53 @@ -> CreateNetworkInterface createNetworkInterface pSubnetId_ = CreateNetworkInterface' - { _cniGroups = Nothing - , _cniPrivateIPAddresses = Nothing - , _cniIPv6AddressCount = Nothing - , _cniPrivateIPAddress = Nothing - , _cniSecondaryPrivateIPAddressCount = Nothing - , _cniDescription = Nothing - , _cniDryRun = Nothing - , _cniIPv6Addresses = Nothing - , _cniSubnetId = pSubnetId_ - } + { _cniGroups = Nothing + , _cniPrivateIPAddresses = Nothing + , _cniIPv6AddressCount = Nothing + , _cniPrivateIPAddress = Nothing + , _cniSecondaryPrivateIPAddressCount = Nothing + , _cniDescription = Nothing + , _cniDryRun = Nothing + , _cniIPv6Addresses = Nothing + , _cniSubnetId = pSubnetId_ + } -- | The IDs of one or more security groups. cniGroups :: Lens' CreateNetworkInterface [Text] -cniGroups = lens _cniGroups (\ s a -> s{_cniGroups = a}) . _Default . _Coerce; +cniGroups = lens _cniGroups (\ s a -> s{_cniGroups = a}) . _Default . _Coerce -- | One or more private IPv4 addresses. cniPrivateIPAddresses :: Lens' CreateNetworkInterface [PrivateIPAddressSpecification] -cniPrivateIPAddresses = lens _cniPrivateIPAddresses (\ s a -> s{_cniPrivateIPAddresses = a}) . _Default . _Coerce; +cniPrivateIPAddresses = lens _cniPrivateIPAddresses (\ s a -> s{_cniPrivateIPAddresses = a}) . _Default . _Coerce -- | The number of IPv6 addresses to assign to a network interface. Amazon EC2 automatically selects the IPv6 addresses from the subnet range. You can't use this option if specifying specific IPv6 addresses. If your subnet has the @AssignIpv6AddressOnCreation@ attribute set to @true@ , you can specify @0@ to override this setting. cniIPv6AddressCount :: Lens' CreateNetworkInterface (Maybe Int) -cniIPv6AddressCount = lens _cniIPv6AddressCount (\ s a -> s{_cniIPv6AddressCount = a}); +cniIPv6AddressCount = lens _cniIPv6AddressCount (\ s a -> s{_cniIPv6AddressCount = a}) -- | The primary private IPv4 address of the network interface. If you don't specify an IPv4 address, Amazon EC2 selects one for you from the subnet's IPv4 CIDR range. If you specify an IP address, you cannot indicate any IP addresses specified in @privateIpAddresses@ as primary (only one IP address can be designated as primary). cniPrivateIPAddress :: Lens' CreateNetworkInterface (Maybe Text) -cniPrivateIPAddress = lens _cniPrivateIPAddress (\ s a -> s{_cniPrivateIPAddress = a}); +cniPrivateIPAddress = lens _cniPrivateIPAddress (\ s a -> s{_cniPrivateIPAddress = a}) -- | The number of secondary private IPv4 addresses to assign to a network interface. When you specify a number of secondary IPv4 addresses, Amazon EC2 selects these IP addresses within the subnet's IPv4 CIDR range. You can't specify this option and specify more than one private IP address using @privateIpAddresses@ . The number of IP addresses you can assign to a network interface varies by instance type. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . cniSecondaryPrivateIPAddressCount :: Lens' CreateNetworkInterface (Maybe Int) -cniSecondaryPrivateIPAddressCount = lens _cniSecondaryPrivateIPAddressCount (\ s a -> s{_cniSecondaryPrivateIPAddressCount = a}); +cniSecondaryPrivateIPAddressCount = lens _cniSecondaryPrivateIPAddressCount (\ s a -> s{_cniSecondaryPrivateIPAddressCount = a}) -- | A description for the network interface. cniDescription :: Lens' CreateNetworkInterface (Maybe Text) -cniDescription = lens _cniDescription (\ s a -> s{_cniDescription = a}); +cniDescription = lens _cniDescription (\ s a -> s{_cniDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cniDryRun :: Lens' CreateNetworkInterface (Maybe Bool) -cniDryRun = lens _cniDryRun (\ s a -> s{_cniDryRun = a}); +cniDryRun = lens _cniDryRun (\ s a -> s{_cniDryRun = a}) -- | One or more specific IPv6 addresses from the IPv6 CIDR block range of your subnet. You can't use this option if you're specifying a number of IPv6 addresses. cniIPv6Addresses :: Lens' CreateNetworkInterface [InstanceIPv6Address] -cniIPv6Addresses = lens _cniIPv6Addresses (\ s a -> s{_cniIPv6Addresses = a}) . _Default . _Coerce; +cniIPv6Addresses = lens _cniIPv6Addresses (\ s a -> s{_cniIPv6Addresses = a}) . _Default . _Coerce -- | The ID of the subnet to associate with the network interface. cniSubnetId :: Lens' CreateNetworkInterface Text -cniSubnetId = lens _cniSubnetId (\ s a -> s{_cniSubnetId = a}); +cniSubnetId = lens _cniSubnetId (\ s a -> s{_cniSubnetId = a}) instance AWSRequest CreateNetworkInterface where type Rs CreateNetworkInterface = @@ -210,15 +210,15 @@ -> CreateNetworkInterfaceResponse createNetworkInterfaceResponse pResponseStatus_ = CreateNetworkInterfaceResponse' - {_cnirsNetworkInterface = Nothing, _cnirsResponseStatus = pResponseStatus_} + {_cnirsNetworkInterface = Nothing, _cnirsResponseStatus = pResponseStatus_} -- | Information about the network interface. cnirsNetworkInterface :: Lens' CreateNetworkInterfaceResponse (Maybe NetworkInterface) -cnirsNetworkInterface = lens _cnirsNetworkInterface (\ s a -> s{_cnirsNetworkInterface = a}); +cnirsNetworkInterface = lens _cnirsNetworkInterface (\ s a -> s{_cnirsNetworkInterface = a}) -- | -- | The response status code. cnirsResponseStatus :: Lens' CreateNetworkInterfaceResponse Int -cnirsResponseStatus = lens _cnirsResponseStatus (\ s a -> s{_cnirsResponseStatus = a}); +cnirsResponseStatus = lens _cnirsResponseStatus (\ s a -> s{_cnirsResponseStatus = a}) instance NFData CreateNetworkInterfaceResponse where diff --git a/gen/Network/AWS/EC2/CreateNetworkInterfacePermission.hs b/gen/Network/AWS/EC2/CreateNetworkInterfacePermission.hs --- a/gen/Network/AWS/EC2/CreateNetworkInterfacePermission.hs +++ b/gen/Network/AWS/EC2/CreateNetworkInterfacePermission.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateNetworkInterfacePermission --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -83,33 +83,33 @@ -> CreateNetworkInterfacePermission createNetworkInterfacePermission pNetworkInterfaceId_ pPermission_ = CreateNetworkInterfacePermission' - { _cnipAWSAccountId = Nothing - , _cnipAWSService = Nothing - , _cnipDryRun = Nothing - , _cnipNetworkInterfaceId = pNetworkInterfaceId_ - , _cnipPermission = pPermission_ - } + { _cnipAWSAccountId = Nothing + , _cnipAWSService = Nothing + , _cnipDryRun = Nothing + , _cnipNetworkInterfaceId = pNetworkInterfaceId_ + , _cnipPermission = pPermission_ + } -- | The AWS account ID. cnipAWSAccountId :: Lens' CreateNetworkInterfacePermission (Maybe Text) -cnipAWSAccountId = lens _cnipAWSAccountId (\ s a -> s{_cnipAWSAccountId = a}); +cnipAWSAccountId = lens _cnipAWSAccountId (\ s a -> s{_cnipAWSAccountId = a}) -- | The AWS service. Currently not supported. cnipAWSService :: Lens' CreateNetworkInterfacePermission (Maybe Text) -cnipAWSService = lens _cnipAWSService (\ s a -> s{_cnipAWSService = a}); +cnipAWSService = lens _cnipAWSService (\ s a -> s{_cnipAWSService = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cnipDryRun :: Lens' CreateNetworkInterfacePermission (Maybe Bool) -cnipDryRun = lens _cnipDryRun (\ s a -> s{_cnipDryRun = a}); +cnipDryRun = lens _cnipDryRun (\ s a -> s{_cnipDryRun = a}) -- | The ID of the network interface. cnipNetworkInterfaceId :: Lens' CreateNetworkInterfacePermission Text -cnipNetworkInterfaceId = lens _cnipNetworkInterfaceId (\ s a -> s{_cnipNetworkInterfaceId = a}); +cnipNetworkInterfaceId = lens _cnipNetworkInterfaceId (\ s a -> s{_cnipNetworkInterfaceId = a}) -- | The type of permission to grant. cnipPermission :: Lens' CreateNetworkInterfacePermission InterfacePermissionType -cnipPermission = lens _cnipPermission (\ s a -> s{_cnipPermission = a}); +cnipPermission = lens _cnipPermission (\ s a -> s{_cnipPermission = a}) instance AWSRequest CreateNetworkInterfacePermission where @@ -173,18 +173,18 @@ -> CreateNetworkInterfacePermissionResponse createNetworkInterfacePermissionResponse pResponseStatus_ = CreateNetworkInterfacePermissionResponse' - { _cniprsInterfacePermission = Nothing - , _cniprsResponseStatus = pResponseStatus_ - } + { _cniprsInterfacePermission = Nothing + , _cniprsResponseStatus = pResponseStatus_ + } -- | Information about the permission for the network interface. cniprsInterfacePermission :: Lens' CreateNetworkInterfacePermissionResponse (Maybe NetworkInterfacePermission) -cniprsInterfacePermission = lens _cniprsInterfacePermission (\ s a -> s{_cniprsInterfacePermission = a}); +cniprsInterfacePermission = lens _cniprsInterfacePermission (\ s a -> s{_cniprsInterfacePermission = a}) -- | -- | The response status code. cniprsResponseStatus :: Lens' CreateNetworkInterfacePermissionResponse Int -cniprsResponseStatus = lens _cniprsResponseStatus (\ s a -> s{_cniprsResponseStatus = a}); +cniprsResponseStatus = lens _cniprsResponseStatus (\ s a -> s{_cniprsResponseStatus = a}) instance NFData CreateNetworkInterfacePermissionResponse 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 @@ -12,17 +12,19 @@ -- | -- Module : Network.AWS.EC2.CreatePlacementGroup --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a placement group that you launch cluster instances into. Give the group a name that's unique within the scope of your account. +-- Creates a placement group in which to launch instances. The strategy of the placement group determines how the instances are organized within the group. -- -- --- For more information about placement groups and cluster instances, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- A @cluster@ placement group is a logical grouping of instances within a single Availability Zone that benefit from low network latency, high network throughput. A @spread@ placement group places instances on distinct hardware. -- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- module Network.AWS.EC2.CreatePlacementGroup ( -- * Creating a Request @@ -63,7 +65,7 @@ -- -- * 'cpgDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'cpgGroupName' - A name for the placement group. Constraints: Up to 255 ASCII characters +-- * 'cpgGroupName' - A name for the placement group. Must be unique within the scope of your account for the region. Constraints: Up to 255 ASCII characters -- -- * 'cpgStrategy' - The placement strategy. createPlacementGroup @@ -72,20 +74,23 @@ -> CreatePlacementGroup createPlacementGroup pGroupName_ pStrategy_ = CreatePlacementGroup' - {_cpgDryRun = Nothing, _cpgGroupName = pGroupName_, _cpgStrategy = pStrategy_} + { _cpgDryRun = Nothing + , _cpgGroupName = pGroupName_ + , _cpgStrategy = pStrategy_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cpgDryRun :: Lens' CreatePlacementGroup (Maybe Bool) -cpgDryRun = lens _cpgDryRun (\ s a -> s{_cpgDryRun = a}); +cpgDryRun = lens _cpgDryRun (\ s a -> s{_cpgDryRun = a}) --- | A name for the placement group. Constraints: Up to 255 ASCII characters +-- | A name for the placement group. Must be unique within the scope of your account for the region. Constraints: Up to 255 ASCII characters cpgGroupName :: Lens' CreatePlacementGroup Text -cpgGroupName = lens _cpgGroupName (\ s a -> s{_cpgGroupName = a}); +cpgGroupName = lens _cpgGroupName (\ s a -> s{_cpgGroupName = a}) -- | The placement strategy. cpgStrategy :: Lens' CreatePlacementGroup PlacementStrategy -cpgStrategy = lens _cpgStrategy (\ s a -> s{_cpgStrategy = a}); +cpgStrategy = lens _cpgStrategy (\ s a -> s{_cpgStrategy = a}) instance AWSRequest CreatePlacementGroup where type Rs CreatePlacementGroup = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateReservedInstancesListing --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -84,28 +84,28 @@ -> CreateReservedInstancesListing createReservedInstancesListing pClientToken_ pInstanceCount_ pReservedInstancesId_ = CreateReservedInstancesListing' - { _crilClientToken = pClientToken_ - , _crilInstanceCount = pInstanceCount_ - , _crilPriceSchedules = mempty - , _crilReservedInstancesId = pReservedInstancesId_ - } + { _crilClientToken = pClientToken_ + , _crilInstanceCount = pInstanceCount_ + , _crilPriceSchedules = mempty + , _crilReservedInstancesId = pReservedInstancesId_ + } -- | Unique, case-sensitive identifier you provide to ensure idempotency of your listings. This helps avoid duplicate listings. For more information, see . crilClientToken :: Lens' CreateReservedInstancesListing Text -crilClientToken = lens _crilClientToken (\ s a -> s{_crilClientToken = a}); +crilClientToken = lens _crilClientToken (\ s a -> s{_crilClientToken = a}) -- | The number of instances that are a part of a Reserved Instance account to be listed in the Reserved Instance Marketplace. This number should be less than or equal to the instance count associated with the Reserved Instance ID specified in this call. crilInstanceCount :: Lens' CreateReservedInstancesListing Int -crilInstanceCount = lens _crilInstanceCount (\ s a -> s{_crilInstanceCount = a}); +crilInstanceCount = lens _crilInstanceCount (\ s a -> s{_crilInstanceCount = a}) -- | A list specifying the price of the Standard Reserved Instance for each month remaining in the Reserved Instance term. crilPriceSchedules :: Lens' CreateReservedInstancesListing [PriceScheduleSpecification] -crilPriceSchedules = lens _crilPriceSchedules (\ s a -> s{_crilPriceSchedules = a}) . _Coerce; +crilPriceSchedules = lens _crilPriceSchedules (\ s a -> s{_crilPriceSchedules = a}) . _Coerce -- | The ID of the active Standard Reserved Instance. crilReservedInstancesId :: Lens' CreateReservedInstancesListing Text -crilReservedInstancesId = lens _crilReservedInstancesId (\ s a -> s{_crilReservedInstancesId = a}); +crilReservedInstancesId = lens _crilReservedInstancesId (\ s a -> s{_crilReservedInstancesId = a}) instance AWSRequest CreateReservedInstancesListing where @@ -166,18 +166,18 @@ -> CreateReservedInstancesListingResponse createReservedInstancesListingResponse pResponseStatus_ = CreateReservedInstancesListingResponse' - { _crilrrsReservedInstancesListings = Nothing - , _crilrrsResponseStatus = pResponseStatus_ - } + { _crilrrsReservedInstancesListings = Nothing + , _crilrrsResponseStatus = pResponseStatus_ + } -- | Information about the Standard Reserved Instance listing. crilrrsReservedInstancesListings :: Lens' CreateReservedInstancesListingResponse [ReservedInstancesListing] -crilrrsReservedInstancesListings = lens _crilrrsReservedInstancesListings (\ s a -> s{_crilrrsReservedInstancesListings = a}) . _Default . _Coerce; +crilrrsReservedInstancesListings = lens _crilrrsReservedInstancesListings (\ s a -> s{_crilrrsReservedInstancesListings = a}) . _Default . _Coerce -- | -- | The response status code. crilrrsResponseStatus :: Lens' CreateReservedInstancesListingResponse Int -crilrrsResponseStatus = lens _crilrrsResponseStatus (\ s a -> s{_crilrrsResponseStatus = a}); +crilrrsResponseStatus = lens _crilrrsResponseStatus (\ s a -> s{_crilrrsResponseStatus = a}) instance NFData CreateReservedInstancesListingResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateRoute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -114,58 +114,58 @@ -> CreateRoute createRoute pRouteTableId_ = CreateRoute' - { _crVPCPeeringConnectionId = Nothing - , _crInstanceId = Nothing - , _crEgressOnlyInternetGatewayId = Nothing - , _crDestinationIPv6CidrBlock = Nothing - , _crNatGatewayId = Nothing - , _crNetworkInterfaceId = Nothing - , _crGatewayId = Nothing - , _crDryRun = Nothing - , _crDestinationCidrBlock = Nothing - , _crRouteTableId = pRouteTableId_ - } + { _crVPCPeeringConnectionId = Nothing + , _crInstanceId = Nothing + , _crEgressOnlyInternetGatewayId = Nothing + , _crDestinationIPv6CidrBlock = Nothing + , _crNatGatewayId = Nothing + , _crNetworkInterfaceId = Nothing + , _crGatewayId = Nothing + , _crDryRun = Nothing + , _crDestinationCidrBlock = Nothing + , _crRouteTableId = pRouteTableId_ + } -- | The ID of a VPC peering connection. crVPCPeeringConnectionId :: Lens' CreateRoute (Maybe Text) -crVPCPeeringConnectionId = lens _crVPCPeeringConnectionId (\ s a -> s{_crVPCPeeringConnectionId = a}); +crVPCPeeringConnectionId = lens _crVPCPeeringConnectionId (\ s a -> s{_crVPCPeeringConnectionId = a}) -- | The ID of a NAT instance in your VPC. The operation fails if you specify an instance ID unless exactly one network interface is attached. crInstanceId :: Lens' CreateRoute (Maybe Text) -crInstanceId = lens _crInstanceId (\ s a -> s{_crInstanceId = a}); +crInstanceId = lens _crInstanceId (\ s a -> s{_crInstanceId = a}) -- | [IPv6 traffic only] The ID of an egress-only Internet gateway. crEgressOnlyInternetGatewayId :: Lens' CreateRoute (Maybe Text) -crEgressOnlyInternetGatewayId = lens _crEgressOnlyInternetGatewayId (\ s a -> s{_crEgressOnlyInternetGatewayId = a}); +crEgressOnlyInternetGatewayId = lens _crEgressOnlyInternetGatewayId (\ s a -> s{_crEgressOnlyInternetGatewayId = a}) -- | The IPv6 CIDR block used for the destination match. Routing decisions are based on the most specific match. crDestinationIPv6CidrBlock :: Lens' CreateRoute (Maybe Text) -crDestinationIPv6CidrBlock = lens _crDestinationIPv6CidrBlock (\ s a -> s{_crDestinationIPv6CidrBlock = a}); +crDestinationIPv6CidrBlock = lens _crDestinationIPv6CidrBlock (\ s a -> s{_crDestinationIPv6CidrBlock = a}) -- | [IPv4 traffic only] The ID of a NAT gateway. crNatGatewayId :: Lens' CreateRoute (Maybe Text) -crNatGatewayId = lens _crNatGatewayId (\ s a -> s{_crNatGatewayId = a}); +crNatGatewayId = lens _crNatGatewayId (\ s a -> s{_crNatGatewayId = a}) -- | The ID of a network interface. crNetworkInterfaceId :: Lens' CreateRoute (Maybe Text) -crNetworkInterfaceId = lens _crNetworkInterfaceId (\ s a -> s{_crNetworkInterfaceId = a}); +crNetworkInterfaceId = lens _crNetworkInterfaceId (\ s a -> s{_crNetworkInterfaceId = a}) -- | The ID of an Internet gateway or virtual private gateway attached to your VPC. crGatewayId :: Lens' CreateRoute (Maybe Text) -crGatewayId = lens _crGatewayId (\ s a -> s{_crGatewayId = a}); +crGatewayId = lens _crGatewayId (\ s a -> s{_crGatewayId = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . crDryRun :: Lens' CreateRoute (Maybe Bool) -crDryRun = lens _crDryRun (\ s a -> s{_crDryRun = a}); +crDryRun = lens _crDryRun (\ s a -> s{_crDryRun = a}) -- | The IPv4 CIDR address block used for the destination match. Routing decisions are based on the most specific match. crDestinationCidrBlock :: Lens' CreateRoute (Maybe Text) -crDestinationCidrBlock = lens _crDestinationCidrBlock (\ s a -> s{_crDestinationCidrBlock = a}); +crDestinationCidrBlock = lens _crDestinationCidrBlock (\ s a -> s{_crDestinationCidrBlock = a}) -- | The ID of the route table for the route. crRouteTableId :: Lens' CreateRoute Text -crRouteTableId = lens _crRouteTableId (\ s a -> s{_crRouteTableId = a}); +crRouteTableId = lens _crRouteTableId (\ s a -> s{_crRouteTableId = a}) instance AWSRequest CreateRoute where type Rs CreateRoute = CreateRouteResponse @@ -227,15 +227,15 @@ -> CreateRouteResponse createRouteResponse pResponseStatus_ = CreateRouteResponse' - {_crrsReturn = Nothing, _crrsResponseStatus = pResponseStatus_} + {_crrsReturn = Nothing, _crrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. crrsReturn :: Lens' CreateRouteResponse (Maybe Bool) -crrsReturn = lens _crrsReturn (\ s a -> s{_crrsReturn = a}); +crrsReturn = lens _crrsReturn (\ s a -> s{_crrsReturn = a}) -- | -- | The response status code. crrsResponseStatus :: Lens' CreateRouteResponse Int -crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a}); +crrsResponseStatus = lens _crrsResponseStatus (\ s a -> s{_crrsResponseStatus = a}) instance NFData CreateRouteResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateRouteTable --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -74,11 +74,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . crtDryRun :: Lens' CreateRouteTable (Maybe Bool) -crtDryRun = lens _crtDryRun (\ s a -> s{_crtDryRun = a}); +crtDryRun = lens _crtDryRun (\ s a -> s{_crtDryRun = a}) -- | The ID of the VPC. crtVPCId :: Lens' CreateRouteTable Text -crtVPCId = lens _crtVPCId (\ s a -> s{_crtVPCId = a}); +crtVPCId = lens _crtVPCId (\ s a -> s{_crtVPCId = a}) instance AWSRequest CreateRouteTable where type Rs CreateRouteTable = CreateRouteTableResponse @@ -129,15 +129,15 @@ -> CreateRouteTableResponse createRouteTableResponse pResponseStatus_ = CreateRouteTableResponse' - {_crtrsRouteTable = Nothing, _crtrsResponseStatus = pResponseStatus_} + {_crtrsRouteTable = Nothing, _crtrsResponseStatus = pResponseStatus_} -- | Information about the route table. crtrsRouteTable :: Lens' CreateRouteTableResponse (Maybe RouteTable) -crtrsRouteTable = lens _crtrsRouteTable (\ s a -> s{_crtrsRouteTable = a}); +crtrsRouteTable = lens _crtrsRouteTable (\ s a -> s{_crtrsRouteTable = a}) -- | -- | The response status code. crtrsResponseStatus :: Lens' CreateRouteTableResponse Int -crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a}); +crtrsResponseStatus = lens _crtrsResponseStatus (\ s a -> s{_crtrsResponseStatus = a}) instance NFData CreateRouteTableResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateSecurityGroup --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -82,35 +82,35 @@ -- -- * 'csgDescription' - A description for the security group. This is informational only. Constraints: Up to 255 characters in length Constraints for EC2-Classic: ASCII characters Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=&;{}!$* -- --- * 'csgGroupName' - The name of the security group. Constraints: Up to 255 characters in length Constraints for EC2-Classic: ASCII characters Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=&;{}!$* +-- * 'csgGroupName' - The name of the security group. Constraints: Up to 255 characters in length. Cannot start with @sg-@ . Constraints for EC2-Classic: ASCII characters Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=&;{}!$* createSecurityGroup :: Text -- ^ 'csgDescription' -> Text -- ^ 'csgGroupName' -> CreateSecurityGroup createSecurityGroup pDescription_ pGroupName_ = CreateSecurityGroup' - { _csgVPCId = Nothing - , _csgDryRun = Nothing - , _csgDescription = pDescription_ - , _csgGroupName = pGroupName_ - } + { _csgVPCId = Nothing + , _csgDryRun = Nothing + , _csgDescription = pDescription_ + , _csgGroupName = pGroupName_ + } -- | [EC2-VPC] The ID of the VPC. Required for EC2-VPC. csgVPCId :: Lens' CreateSecurityGroup (Maybe Text) -csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a}); +csgVPCId = lens _csgVPCId (\ s a -> s{_csgVPCId = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . csgDryRun :: Lens' CreateSecurityGroup (Maybe Bool) -csgDryRun = lens _csgDryRun (\ s a -> s{_csgDryRun = a}); +csgDryRun = lens _csgDryRun (\ s a -> s{_csgDryRun = a}) -- | A description for the security group. This is informational only. Constraints: Up to 255 characters in length Constraints for EC2-Classic: ASCII characters Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=&;{}!$* csgDescription :: Lens' CreateSecurityGroup Text -csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a}); +csgDescription = lens _csgDescription (\ s a -> s{_csgDescription = a}) --- | The name of the security group. Constraints: Up to 255 characters in length Constraints for EC2-Classic: ASCII characters Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=&;{}!$* +-- | The name of the security group. Constraints: Up to 255 characters in length. Cannot start with @sg-@ . Constraints for EC2-Classic: ASCII characters Constraints for EC2-VPC: a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=&;{}!$* csgGroupName :: Lens' CreateSecurityGroup Text -csgGroupName = lens _csgGroupName (\ s a -> s{_csgGroupName = a}); +csgGroupName = lens _csgGroupName (\ s a -> s{_csgGroupName = a}) instance AWSRequest CreateSecurityGroup where type Rs CreateSecurityGroup = @@ -165,15 +165,15 @@ -> CreateSecurityGroupResponse createSecurityGroupResponse pResponseStatus_ pGroupId_ = CreateSecurityGroupResponse' - {_csgrsResponseStatus = pResponseStatus_, _csgrsGroupId = pGroupId_} + {_csgrsResponseStatus = pResponseStatus_, _csgrsGroupId = pGroupId_} -- | -- | The response status code. csgrsResponseStatus :: Lens' CreateSecurityGroupResponse Int -csgrsResponseStatus = lens _csgrsResponseStatus (\ s a -> s{_csgrsResponseStatus = a}); +csgrsResponseStatus = lens _csgrsResponseStatus (\ s a -> s{_csgrsResponseStatus = a}) -- | The ID of the security group. csgrsGroupId :: Lens' CreateSecurityGroupResponse Text -csgrsGroupId = lens _csgrsGroupId (\ s a -> s{_csgrsGroupId = a}); +csgrsGroupId = lens _csgrsGroupId (\ s a -> s{_csgrsGroupId = a}) instance NFData CreateSecurityGroupResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateSnapshot --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -29,6 +29,8 @@ -- -- Snapshots that are taken from encrypted volumes are automatically encrypted. Volumes that are created from encrypted snapshots are also automatically encrypted. Your encrypted volumes and any associated snapshots always remain protected. -- +-- You can tag your snapshots during creation. For more information, see . +-- -- For more information, see and in the /Amazon Elastic Compute Cloud User Guide/ . -- module Network.AWS.EC2.CreateSnapshot @@ -37,6 +39,7 @@ createSnapshot , CreateSnapshot -- * Request Lenses + , ccTagSpecifications , ccDescription , ccDryRun , ccVolumeId @@ -74,9 +77,10 @@ -- -- /See:/ 'createSnapshot' smart constructor. data CreateSnapshot = CreateSnapshot' - { _ccDescription :: !(Maybe Text) - , _ccDryRun :: !(Maybe Bool) - , _ccVolumeId :: !Text + { _ccTagSpecifications :: !(Maybe [TagSpecification]) + , _ccDescription :: !(Maybe Text) + , _ccDryRun :: !(Maybe Bool) + , _ccVolumeId :: !Text } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -84,6 +88,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'ccTagSpecifications' - The tags to apply to the snapshot during creation. +-- -- * 'ccDescription' - A description for the snapshot. -- -- * 'ccDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . @@ -94,20 +100,28 @@ -> CreateSnapshot createSnapshot pVolumeId_ = CreateSnapshot' - {_ccDescription = Nothing, _ccDryRun = Nothing, _ccVolumeId = pVolumeId_} + { _ccTagSpecifications = Nothing + , _ccDescription = Nothing + , _ccDryRun = Nothing + , _ccVolumeId = pVolumeId_ + } +-- | The tags to apply to the snapshot during creation. +ccTagSpecifications :: Lens' CreateSnapshot [TagSpecification] +ccTagSpecifications = lens _ccTagSpecifications (\ s a -> s{_ccTagSpecifications = a}) . _Default . _Coerce + -- | A description for the snapshot. ccDescription :: Lens' CreateSnapshot (Maybe Text) -ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a}); +ccDescription = lens _ccDescription (\ s a -> s{_ccDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ccDryRun :: Lens' CreateSnapshot (Maybe Bool) -ccDryRun = lens _ccDryRun (\ s a -> s{_ccDryRun = a}); +ccDryRun = lens _ccDryRun (\ s a -> s{_ccDryRun = a}) -- | The ID of the EBS volume. ccVolumeId :: Lens' CreateSnapshot Text -ccVolumeId = lens _ccVolumeId (\ s a -> s{_ccVolumeId = a}); +ccVolumeId = lens _ccVolumeId (\ s a -> s{_ccVolumeId = a}) instance AWSRequest CreateSnapshot where type Rs CreateSnapshot = Snapshot @@ -129,5 +143,8 @@ = mconcat ["Action" =: ("CreateSnapshot" :: ByteString), "Version" =: ("2016-11-15" :: ByteString), + toQuery + (toQueryList "TagSpecification" <$> + _ccTagSpecifications), "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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.CreateSpotDatafeedSubscription --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a data feed for Spot instances, enabling you to view Spot instance usage logs. You can create one data feed per AWS account. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Creates a data feed for Spot Instances, enabling you to view Spot Instance usage logs. You can create one data feed per AWS account. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . -- -- module Network.AWS.EC2.CreateSpotDatafeedSubscription @@ -66,26 +66,26 @@ -- -- * 'csdsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'csdsBucket' - The Amazon S3 bucket in which to store the Spot instance data feed. +-- * 'csdsBucket' - The Amazon S3 bucket in which to store the Spot Instance data feed. createSpotDatafeedSubscription :: Text -- ^ 'csdsBucket' -> CreateSpotDatafeedSubscription createSpotDatafeedSubscription pBucket_ = CreateSpotDatafeedSubscription' - {_csdsPrefix = Nothing, _csdsDryRun = Nothing, _csdsBucket = pBucket_} + {_csdsPrefix = Nothing, _csdsDryRun = Nothing, _csdsBucket = pBucket_} -- | A prefix for the data feed file names. csdsPrefix :: Lens' CreateSpotDatafeedSubscription (Maybe Text) -csdsPrefix = lens _csdsPrefix (\ s a -> s{_csdsPrefix = a}); +csdsPrefix = lens _csdsPrefix (\ s a -> s{_csdsPrefix = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . csdsDryRun :: Lens' CreateSpotDatafeedSubscription (Maybe Bool) -csdsDryRun = lens _csdsDryRun (\ s a -> s{_csdsDryRun = a}); +csdsDryRun = lens _csdsDryRun (\ s a -> s{_csdsDryRun = a}) --- | The Amazon S3 bucket in which to store the Spot instance data feed. +-- | The Amazon S3 bucket in which to store the Spot Instance data feed. csdsBucket :: Lens' CreateSpotDatafeedSubscription Text -csdsBucket = lens _csdsBucket (\ s a -> s{_csdsBucket = a}); +csdsBucket = lens _csdsBucket (\ s a -> s{_csdsBucket = a}) instance AWSRequest CreateSpotDatafeedSubscription where @@ -135,7 +135,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'csdsrsSpotDatafeedSubscription' - The Spot instance data feed subscription. +-- * 'csdsrsSpotDatafeedSubscription' - The Spot Instance data feed subscription. -- -- * 'csdsrsResponseStatus' - -- | The response status code. createSpotDatafeedSubscriptionResponse @@ -143,18 +143,18 @@ -> CreateSpotDatafeedSubscriptionResponse createSpotDatafeedSubscriptionResponse pResponseStatus_ = CreateSpotDatafeedSubscriptionResponse' - { _csdsrsSpotDatafeedSubscription = Nothing - , _csdsrsResponseStatus = pResponseStatus_ - } + { _csdsrsSpotDatafeedSubscription = Nothing + , _csdsrsResponseStatus = pResponseStatus_ + } --- | The Spot instance data feed subscription. +-- | The Spot Instance data feed subscription. csdsrsSpotDatafeedSubscription :: Lens' CreateSpotDatafeedSubscriptionResponse (Maybe SpotDatafeedSubscription) -csdsrsSpotDatafeedSubscription = lens _csdsrsSpotDatafeedSubscription (\ s a -> s{_csdsrsSpotDatafeedSubscription = a}); +csdsrsSpotDatafeedSubscription = lens _csdsrsSpotDatafeedSubscription (\ s a -> s{_csdsrsSpotDatafeedSubscription = a}) -- | -- | The response status code. csdsrsResponseStatus :: Lens' CreateSpotDatafeedSubscriptionResponse Int -csdsrsResponseStatus = lens _csdsrsResponseStatus (\ s a -> s{_csdsrsResponseStatus = a}); +csdsrsResponseStatus = lens _csdsrsResponseStatus (\ s a -> s{_csdsrsResponseStatus = a}) instance NFData CreateSpotDatafeedSubscriptionResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateSubnet --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -93,33 +93,33 @@ -> CreateSubnet createSubnet pCidrBlock_ pVPCId_ = CreateSubnet' - { _cssIPv6CidrBlock = Nothing - , _cssAvailabilityZone = Nothing - , _cssDryRun = Nothing - , _cssCidrBlock = pCidrBlock_ - , _cssVPCId = pVPCId_ - } + { _cssIPv6CidrBlock = Nothing + , _cssAvailabilityZone = Nothing + , _cssDryRun = Nothing + , _cssCidrBlock = pCidrBlock_ + , _cssVPCId = pVPCId_ + } -- | The IPv6 network range for the subnet, in CIDR notation. The subnet size must use a /64 prefix length. cssIPv6CidrBlock :: Lens' CreateSubnet (Maybe Text) -cssIPv6CidrBlock = lens _cssIPv6CidrBlock (\ s a -> s{_cssIPv6CidrBlock = a}); +cssIPv6CidrBlock = lens _cssIPv6CidrBlock (\ s a -> s{_cssIPv6CidrBlock = a}) -- | The Availability Zone for the subnet. Default: AWS selects one for you. If you create more than one subnet in your VPC, we may not necessarily select a different zone for each subnet. cssAvailabilityZone :: Lens' CreateSubnet (Maybe Text) -cssAvailabilityZone = lens _cssAvailabilityZone (\ s a -> s{_cssAvailabilityZone = a}); +cssAvailabilityZone = lens _cssAvailabilityZone (\ s a -> s{_cssAvailabilityZone = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cssDryRun :: Lens' CreateSubnet (Maybe Bool) -cssDryRun = lens _cssDryRun (\ s a -> s{_cssDryRun = a}); +cssDryRun = lens _cssDryRun (\ s a -> s{_cssDryRun = a}) -- | The IPv4 network range for the subnet, in CIDR notation. For example, @10.0.0.0/24@ . cssCidrBlock :: Lens' CreateSubnet Text -cssCidrBlock = lens _cssCidrBlock (\ s a -> s{_cssCidrBlock = a}); +cssCidrBlock = lens _cssCidrBlock (\ s a -> s{_cssCidrBlock = a}) -- | The ID of the VPC. cssVPCId :: Lens' CreateSubnet Text -cssVPCId = lens _cssVPCId (\ s a -> s{_cssVPCId = a}); +cssVPCId = lens _cssVPCId (\ s a -> s{_cssVPCId = a}) instance AWSRequest CreateSubnet where type Rs CreateSubnet = CreateSubnetResponse @@ -173,15 +173,15 @@ -> CreateSubnetResponse createSubnetResponse pResponseStatus_ = CreateSubnetResponse' - {_crersSubnet = Nothing, _crersResponseStatus = pResponseStatus_} + {_crersSubnet = Nothing, _crersResponseStatus = pResponseStatus_} -- | Information about the subnet. crersSubnet :: Lens' CreateSubnetResponse (Maybe Subnet) -crersSubnet = lens _crersSubnet (\ s a -> s{_crersSubnet = a}); +crersSubnet = lens _crersSubnet (\ s a -> s{_crersSubnet = a}) -- | -- | The response status code. crersResponseStatus :: Lens' CreateSubnetResponse Int -crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a}); +crersResponseStatus = lens _crersResponseStatus (\ s a -> s{_crersResponseStatus = a}) instance NFData CreateSubnetResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateTags --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -74,15 +74,15 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cDryRun :: Lens' CreateTags (Maybe Bool) -cDryRun = lens _cDryRun (\ s a -> s{_cDryRun = a}); +cDryRun = lens _cDryRun (\ s a -> s{_cDryRun = a}) -- | The IDs of one or more resources to tag. For example, ami-1a2b3c4d. cResources :: Lens' CreateTags [Text] -cResources = lens _cResources (\ s a -> s{_cResources = a}) . _Coerce; +cResources = lens _cResources (\ s a -> s{_cResources = a}) . _Coerce -- | One or more tags. The @value@ parameter is required, but if you don't want the tag to have a value, specify the parameter with no value, and we set the value to an empty string. cTags :: Lens' CreateTags [Tag] -cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Coerce; +cTags = lens _cTags (\ s a -> s{_cTags = a}) . _Coerce instance AWSRequest CreateTags where type Rs CreateTags = CreateTagsResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateVPC --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -82,28 +82,28 @@ -> CreateVPC createVPC pCidrBlock_ = CreateVPC' - { _cvAmazonProvidedIPv6CidrBlock = Nothing - , _cvInstanceTenancy = Nothing - , _cvDryRun = Nothing - , _cvCidrBlock = pCidrBlock_ - } + { _cvAmazonProvidedIPv6CidrBlock = Nothing + , _cvInstanceTenancy = Nothing + , _cvDryRun = Nothing + , _cvCidrBlock = pCidrBlock_ + } -- | Requests an Amazon-provided IPv6 CIDR block with a /56 prefix length for the VPC. You cannot specify the range of IP addresses, or the size of the CIDR block. cvAmazonProvidedIPv6CidrBlock :: Lens' CreateVPC (Maybe Bool) -cvAmazonProvidedIPv6CidrBlock = lens _cvAmazonProvidedIPv6CidrBlock (\ s a -> s{_cvAmazonProvidedIPv6CidrBlock = a}); +cvAmazonProvidedIPv6CidrBlock = lens _cvAmazonProvidedIPv6CidrBlock (\ s a -> s{_cvAmazonProvidedIPv6CidrBlock = a}) -- | The tenancy options for instances launched into the VPC. For @default@ , instances are launched with shared tenancy by default. You can launch instances with any tenancy into a shared tenancy VPC. For @dedicated@ , instances are launched as dedicated tenancy instances by default. You can only launch instances with a tenancy of @dedicated@ or @host@ into a dedicated tenancy VPC. __Important:__ The @host@ value cannot be used with this parameter. Use the @default@ or @dedicated@ values only. Default: @default@ cvInstanceTenancy :: Lens' CreateVPC (Maybe Tenancy) -cvInstanceTenancy = lens _cvInstanceTenancy (\ s a -> s{_cvInstanceTenancy = a}); +cvInstanceTenancy = lens _cvInstanceTenancy (\ s a -> s{_cvInstanceTenancy = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cvDryRun :: Lens' CreateVPC (Maybe Bool) -cvDryRun = lens _cvDryRun (\ s a -> s{_cvDryRun = a}); +cvDryRun = lens _cvDryRun (\ s a -> s{_cvDryRun = a}) -- | The IPv4 network range for the VPC, in CIDR notation. For example, @10.0.0.0/16@ . cvCidrBlock :: Lens' CreateVPC Text -cvCidrBlock = lens _cvCidrBlock (\ s a -> s{_cvCidrBlock = a}); +cvCidrBlock = lens _cvCidrBlock (\ s a -> s{_cvCidrBlock = a}) instance AWSRequest CreateVPC where type Rs CreateVPC = CreateVPCResponse @@ -157,15 +157,15 @@ -> CreateVPCResponse createVPCResponse pResponseStatus_ = CreateVPCResponse' - {_cvrsVPC = Nothing, _cvrsResponseStatus = pResponseStatus_} + {_cvrsVPC = Nothing, _cvrsResponseStatus = pResponseStatus_} -- | Information about the VPC. cvrsVPC :: Lens' CreateVPCResponse (Maybe VPC) -cvrsVPC = lens _cvrsVPC (\ s a -> s{_cvrsVPC = a}); +cvrsVPC = lens _cvrsVPC (\ s a -> s{_cvrsVPC = a}) -- | -- | The response status code. cvrsResponseStatus :: Lens' CreateVPCResponse Int -cvrsResponseStatus = lens _cvrsResponseStatus (\ s a -> s{_cvrsResponseStatus = a}); +cvrsResponseStatus = lens _cvrsResponseStatus (\ s a -> s{_cvrsResponseStatus = a}) instance NFData CreateVPCResponse where 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 @@ -12,19 +12,21 @@ -- | -- Module : Network.AWS.EC2.CreateVPCEndpoint --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a VPC endpoint for a specified AWS service. An endpoint enables you to create a private connection between your VPC and another AWS service in your account. You can create a gateway endpoint or an interface endpoint. +-- Creates a VPC endpoint for a specified service. An endpoint enables you to create a private connection between your VPC and the service. The service may be provided by AWS, an AWS Marketplace partner, or another AWS account. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . -- -- --- A gateway endpoint serves as a target for a route in your route table for traffic destined for the AWS service. You can specify the VPC route tables that use the endpoint, and you can optionally specify an endpoint policy to attach to the endpoint that will control access to the service from your VPC. +-- A @gateway@ endpoint serves as a target for a route in your route table for traffic destined for the AWS service. You can specify an endpoint policy to attach to the endpoint that will control access to the service from your VPC. You can also specify the VPC route tables that use the endpoint. -- --- An interface endpoint is a network interface in your subnet with a private IP address that serves as an entry point for traffic destined to the AWS service. You can specify the subnets in which to create an endpoint, and the security groups to associate with the network interface. +-- An @interface@ endpoint is a network interface in your subnet that serves as an endpoint for communicating with the specified service. You can specify the subnets in which to create an endpoint, and the security groups to associate with the endpoint network interface. -- +-- Use 'DescribeVpcEndpointServices' to get a list of supported services. +-- module Network.AWS.EC2.CreateVPCEndpoint ( -- * Creating a Request @@ -83,13 +85,13 @@ -- -- * 'cvePolicyDocument' - (Gateway endpoint) A policy to attach to the endpoint that controls access to the service. The policy must be in valid JSON format. If this parameter is not specified, we attach a default policy that allows full access to the service. -- --- * 'cveSecurityGroupIds' - (Interface endpoint) The ID of one or more security groups to associate with the network interface. +-- * 'cveSecurityGroupIds' - (Interface endpoint) The ID of one or more security groups to associate with the endpoint network interface. -- -- * 'cveClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . -- --- * 'cveSubnetIds' - (Interface endpoint) The ID of one or more subnets in which to create a network interface for the endpoint. +-- * 'cveSubnetIds' - (Interface endpoint) The ID of one or more subnets in which to create an endpoint network interface. -- --- * 'cveVPCEndpointType' - The type of endpoint. If not specified, the default is a gateway endpoint. +-- * 'cveVPCEndpointType' - The type of endpoint. Default: Gateway -- -- * 'cvePrivateDNSEnabled' - (Interface endpoint) Indicate whether to associate a private hosted zone with the specified VPC. The private hosted zone contains a record set for the default public DNS name for the service for the region (for example, @kinesis.us-east-1.amazonaws.com@ ) which resolves to the private IP addresses of the endpoint network interfaces in the VPC. This enables you to make requests to the default public DNS name for the service instead of the public DNS names that are automatically generated by the VPC endpoint service. To use a private hosted zone, you must set the following VPC attributes to @true@ : @enableDnsHostnames@ and @enableDnsSupport@ . Use 'ModifyVpcAttribute' to set the VPC attributes. Default: @true@ -- @@ -99,65 +101,65 @@ -- -- * 'cveVPCId' - The ID of the VPC in which the endpoint will be used. -- --- * 'cveServiceName' - The AWS service name, in the form @com.amazonaws./region/ ./service/ @ . To get a list of available services, use the 'DescribeVpcEndpointServices' request. +-- * 'cveServiceName' - The service name. To get a list of available services, use the 'DescribeVpcEndpointServices' request, or get the name from the service provider. createVPCEndpoint :: Text -- ^ 'cveVPCId' -> Text -- ^ 'cveServiceName' -> CreateVPCEndpoint createVPCEndpoint pVPCId_ pServiceName_ = CreateVPCEndpoint' - { _cvePolicyDocument = Nothing - , _cveSecurityGroupIds = Nothing - , _cveClientToken = Nothing - , _cveSubnetIds = Nothing - , _cveVPCEndpointType = Nothing - , _cvePrivateDNSEnabled = Nothing - , _cveDryRun = Nothing - , _cveRouteTableIds = Nothing - , _cveVPCId = pVPCId_ - , _cveServiceName = pServiceName_ - } + { _cvePolicyDocument = Nothing + , _cveSecurityGroupIds = Nothing + , _cveClientToken = Nothing + , _cveSubnetIds = Nothing + , _cveVPCEndpointType = Nothing + , _cvePrivateDNSEnabled = Nothing + , _cveDryRun = Nothing + , _cveRouteTableIds = Nothing + , _cveVPCId = pVPCId_ + , _cveServiceName = pServiceName_ + } -- | (Gateway endpoint) A policy to attach to the endpoint that controls access to the service. The policy must be in valid JSON format. If this parameter is not specified, we attach a default policy that allows full access to the service. cvePolicyDocument :: Lens' CreateVPCEndpoint (Maybe Text) -cvePolicyDocument = lens _cvePolicyDocument (\ s a -> s{_cvePolicyDocument = a}); +cvePolicyDocument = lens _cvePolicyDocument (\ s a -> s{_cvePolicyDocument = a}) --- | (Interface endpoint) The ID of one or more security groups to associate with the network interface. +-- | (Interface endpoint) The ID of one or more security groups to associate with the endpoint network interface. cveSecurityGroupIds :: Lens' CreateVPCEndpoint [Text] -cveSecurityGroupIds = lens _cveSecurityGroupIds (\ s a -> s{_cveSecurityGroupIds = a}) . _Default . _Coerce; +cveSecurityGroupIds = lens _cveSecurityGroupIds (\ s a -> s{_cveSecurityGroupIds = a}) . _Default . _Coerce -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . cveClientToken :: Lens' CreateVPCEndpoint (Maybe Text) -cveClientToken = lens _cveClientToken (\ s a -> s{_cveClientToken = a}); +cveClientToken = lens _cveClientToken (\ s a -> s{_cveClientToken = a}) --- | (Interface endpoint) The ID of one or more subnets in which to create a network interface for the endpoint. +-- | (Interface endpoint) The ID of one or more subnets in which to create an endpoint network interface. cveSubnetIds :: Lens' CreateVPCEndpoint [Text] -cveSubnetIds = lens _cveSubnetIds (\ s a -> s{_cveSubnetIds = a}) . _Default . _Coerce; +cveSubnetIds = lens _cveSubnetIds (\ s a -> s{_cveSubnetIds = a}) . _Default . _Coerce --- | The type of endpoint. If not specified, the default is a gateway endpoint. +-- | The type of endpoint. Default: Gateway cveVPCEndpointType :: Lens' CreateVPCEndpoint (Maybe VPCEndpointType) -cveVPCEndpointType = lens _cveVPCEndpointType (\ s a -> s{_cveVPCEndpointType = a}); +cveVPCEndpointType = lens _cveVPCEndpointType (\ s a -> s{_cveVPCEndpointType = a}) -- | (Interface endpoint) Indicate whether to associate a private hosted zone with the specified VPC. The private hosted zone contains a record set for the default public DNS name for the service for the region (for example, @kinesis.us-east-1.amazonaws.com@ ) which resolves to the private IP addresses of the endpoint network interfaces in the VPC. This enables you to make requests to the default public DNS name for the service instead of the public DNS names that are automatically generated by the VPC endpoint service. To use a private hosted zone, you must set the following VPC attributes to @true@ : @enableDnsHostnames@ and @enableDnsSupport@ . Use 'ModifyVpcAttribute' to set the VPC attributes. Default: @true@ cvePrivateDNSEnabled :: Lens' CreateVPCEndpoint (Maybe Bool) -cvePrivateDNSEnabled = lens _cvePrivateDNSEnabled (\ s a -> s{_cvePrivateDNSEnabled = a}); +cvePrivateDNSEnabled = lens _cvePrivateDNSEnabled (\ s a -> s{_cvePrivateDNSEnabled = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cveDryRun :: Lens' CreateVPCEndpoint (Maybe Bool) -cveDryRun = lens _cveDryRun (\ s a -> s{_cveDryRun = a}); +cveDryRun = lens _cveDryRun (\ s a -> s{_cveDryRun = a}) -- | (Gateway endpoint) One or more route table IDs. cveRouteTableIds :: Lens' CreateVPCEndpoint [Text] -cveRouteTableIds = lens _cveRouteTableIds (\ s a -> s{_cveRouteTableIds = a}) . _Default . _Coerce; +cveRouteTableIds = lens _cveRouteTableIds (\ s a -> s{_cveRouteTableIds = a}) . _Default . _Coerce -- | The ID of the VPC in which the endpoint will be used. cveVPCId :: Lens' CreateVPCEndpoint Text -cveVPCId = lens _cveVPCId (\ s a -> s{_cveVPCId = a}); +cveVPCId = lens _cveVPCId (\ s a -> s{_cveVPCId = a}) --- | The AWS service name, in the form @com.amazonaws./region/ ./service/ @ . To get a list of available services, use the 'DescribeVpcEndpointServices' request. +-- | The service name. To get a list of available services, use the 'DescribeVpcEndpointServices' request, or get the name from the service provider. cveServiceName :: Lens' CreateVPCEndpoint Text -cveServiceName = lens _cveServiceName (\ s a -> s{_cveServiceName = a}); +cveServiceName = lens _cveServiceName (\ s a -> s{_cveServiceName = a}) instance AWSRequest CreateVPCEndpoint where type Rs CreateVPCEndpoint = CreateVPCEndpointResponse @@ -224,22 +226,22 @@ -> CreateVPCEndpointResponse createVPCEndpointResponse pResponseStatus_ = CreateVPCEndpointResponse' - { _cversClientToken = Nothing - , _cversVPCEndpoint = Nothing - , _cversResponseStatus = pResponseStatus_ - } + { _cversClientToken = Nothing + , _cversVPCEndpoint = Nothing + , _cversResponseStatus = pResponseStatus_ + } -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. cversClientToken :: Lens' CreateVPCEndpointResponse (Maybe Text) -cversClientToken = lens _cversClientToken (\ s a -> s{_cversClientToken = a}); +cversClientToken = lens _cversClientToken (\ s a -> s{_cversClientToken = a}) -- | Information about the endpoint. cversVPCEndpoint :: Lens' CreateVPCEndpointResponse (Maybe VPCEndpoint) -cversVPCEndpoint = lens _cversVPCEndpoint (\ s a -> s{_cversVPCEndpoint = a}); +cversVPCEndpoint = lens _cversVPCEndpoint (\ s a -> s{_cversVPCEndpoint = a}) -- | -- | The response status code. cversResponseStatus :: Lens' CreateVPCEndpointResponse Int -cversResponseStatus = lens _cversResponseStatus (\ s a -> s{_cversResponseStatus = a}); +cversResponseStatus = lens _cversResponseStatus (\ s a -> s{_cversResponseStatus = a}) instance NFData CreateVPCEndpointResponse where diff --git a/gen/Network/AWS/EC2/CreateVPCEndpointConnectionNotification.hs b/gen/Network/AWS/EC2/CreateVPCEndpointConnectionNotification.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/CreateVPCEndpointConnectionNotification.hs @@ -0,0 +1,211 @@ +{-# 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.CreateVPCEndpointConnectionNotification +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a connection notification for a specified VPC endpoint or VPC endpoint service. A connection notification notifies you of specific endpoint events. You must create an SNS topic to receive notifications. For more information, see in the /Amazon Simple Notification Service Developer Guide/ . +-- +-- +-- You can create a connection notification for interface endpoints only. +-- +module Network.AWS.EC2.CreateVPCEndpointConnectionNotification + ( + -- * Creating a Request + createVPCEndpointConnectionNotification + , CreateVPCEndpointConnectionNotification + -- * Request Lenses + , cvecnClientToken + , cvecnServiceId + , cvecnVPCEndpointId + , cvecnDryRun + , cvecnConnectionNotificationARN + , cvecnConnectionEvents + + -- * Destructuring the Response + , createVPCEndpointConnectionNotificationResponse + , CreateVPCEndpointConnectionNotificationResponse + -- * Response Lenses + , cvecnrsClientToken + , cvecnrsConnectionNotification + , cvecnrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'createVPCEndpointConnectionNotification' smart constructor. +data CreateVPCEndpointConnectionNotification = CreateVPCEndpointConnectionNotification' + { _cvecnClientToken :: !(Maybe Text) + , _cvecnServiceId :: !(Maybe Text) + , _cvecnVPCEndpointId :: !(Maybe Text) + , _cvecnDryRun :: !(Maybe Bool) + , _cvecnConnectionNotificationARN :: !Text + , _cvecnConnectionEvents :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateVPCEndpointConnectionNotification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cvecnClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +-- +-- * 'cvecnServiceId' - The ID of the endpoint service. +-- +-- * 'cvecnVPCEndpointId' - The ID of the endpoint. +-- +-- * 'cvecnDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'cvecnConnectionNotificationARN' - The ARN of the SNS topic for the notifications. +-- +-- * 'cvecnConnectionEvents' - One or more endpoint events for which to receive notifications. Valid values are @Accept@ , @Connect@ , @Delete@ , and @Reject@ . +createVPCEndpointConnectionNotification + :: Text -- ^ 'cvecnConnectionNotificationARN' + -> CreateVPCEndpointConnectionNotification +createVPCEndpointConnectionNotification pConnectionNotificationARN_ = + CreateVPCEndpointConnectionNotification' + { _cvecnClientToken = Nothing + , _cvecnServiceId = Nothing + , _cvecnVPCEndpointId = Nothing + , _cvecnDryRun = Nothing + , _cvecnConnectionNotificationARN = pConnectionNotificationARN_ + , _cvecnConnectionEvents = mempty + } + + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +cvecnClientToken :: Lens' CreateVPCEndpointConnectionNotification (Maybe Text) +cvecnClientToken = lens _cvecnClientToken (\ s a -> s{_cvecnClientToken = a}) + +-- | The ID of the endpoint service. +cvecnServiceId :: Lens' CreateVPCEndpointConnectionNotification (Maybe Text) +cvecnServiceId = lens _cvecnServiceId (\ s a -> s{_cvecnServiceId = a}) + +-- | The ID of the endpoint. +cvecnVPCEndpointId :: Lens' CreateVPCEndpointConnectionNotification (Maybe Text) +cvecnVPCEndpointId = lens _cvecnVPCEndpointId (\ s a -> s{_cvecnVPCEndpointId = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +cvecnDryRun :: Lens' CreateVPCEndpointConnectionNotification (Maybe Bool) +cvecnDryRun = lens _cvecnDryRun (\ s a -> s{_cvecnDryRun = a}) + +-- | The ARN of the SNS topic for the notifications. +cvecnConnectionNotificationARN :: Lens' CreateVPCEndpointConnectionNotification Text +cvecnConnectionNotificationARN = lens _cvecnConnectionNotificationARN (\ s a -> s{_cvecnConnectionNotificationARN = a}) + +-- | One or more endpoint events for which to receive notifications. Valid values are @Accept@ , @Connect@ , @Delete@ , and @Reject@ . +cvecnConnectionEvents :: Lens' CreateVPCEndpointConnectionNotification [Text] +cvecnConnectionEvents = lens _cvecnConnectionEvents (\ s a -> s{_cvecnConnectionEvents = a}) . _Coerce + +instance AWSRequest + CreateVPCEndpointConnectionNotification + where + type Rs CreateVPCEndpointConnectionNotification = + CreateVPCEndpointConnectionNotificationResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + CreateVPCEndpointConnectionNotificationResponse' <$> + (x .@? "clientToken") <*> + (x .@? "connectionNotification") + <*> (pure (fromEnum s))) + +instance Hashable + CreateVPCEndpointConnectionNotification + where + +instance NFData + CreateVPCEndpointConnectionNotification + where + +instance ToHeaders + CreateVPCEndpointConnectionNotification + where + toHeaders = const mempty + +instance ToPath + CreateVPCEndpointConnectionNotification + where + toPath = const "/" + +instance ToQuery + CreateVPCEndpointConnectionNotification + where + toQuery CreateVPCEndpointConnectionNotification'{..} + = mconcat + ["Action" =: + ("CreateVpcEndpointConnectionNotification" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "ClientToken" =: _cvecnClientToken, + "ServiceId" =: _cvecnServiceId, + "VpcEndpointId" =: _cvecnVPCEndpointId, + "DryRun" =: _cvecnDryRun, + "ConnectionNotificationArn" =: + _cvecnConnectionNotificationARN, + toQueryList "ConnectionEvents" + _cvecnConnectionEvents] + +-- | /See:/ 'createVPCEndpointConnectionNotificationResponse' smart constructor. +data CreateVPCEndpointConnectionNotificationResponse = CreateVPCEndpointConnectionNotificationResponse' + { _cvecnrsClientToken :: !(Maybe Text) + , _cvecnrsConnectionNotification :: !(Maybe ConnectionNotification) + , _cvecnrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateVPCEndpointConnectionNotificationResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cvecnrsClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. +-- +-- * 'cvecnrsConnectionNotification' - Information about the notification. +-- +-- * 'cvecnrsResponseStatus' - -- | The response status code. +createVPCEndpointConnectionNotificationResponse + :: Int -- ^ 'cvecnrsResponseStatus' + -> CreateVPCEndpointConnectionNotificationResponse +createVPCEndpointConnectionNotificationResponse pResponseStatus_ = + CreateVPCEndpointConnectionNotificationResponse' + { _cvecnrsClientToken = Nothing + , _cvecnrsConnectionNotification = Nothing + , _cvecnrsResponseStatus = pResponseStatus_ + } + + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. +cvecnrsClientToken :: Lens' CreateVPCEndpointConnectionNotificationResponse (Maybe Text) +cvecnrsClientToken = lens _cvecnrsClientToken (\ s a -> s{_cvecnrsClientToken = a}) + +-- | Information about the notification. +cvecnrsConnectionNotification :: Lens' CreateVPCEndpointConnectionNotificationResponse (Maybe ConnectionNotification) +cvecnrsConnectionNotification = lens _cvecnrsConnectionNotification (\ s a -> s{_cvecnrsConnectionNotification = a}) + +-- | -- | The response status code. +cvecnrsResponseStatus :: Lens' CreateVPCEndpointConnectionNotificationResponse Int +cvecnrsResponseStatus = lens _cvecnrsResponseStatus (\ s a -> s{_cvecnrsResponseStatus = a}) + +instance NFData + CreateVPCEndpointConnectionNotificationResponse + where diff --git a/gen/Network/AWS/EC2/CreateVPCEndpointServiceConfiguration.hs b/gen/Network/AWS/EC2/CreateVPCEndpointServiceConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/CreateVPCEndpointServiceConfiguration.hs @@ -0,0 +1,187 @@ +{-# 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.CreateVPCEndpointServiceConfiguration +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Creates a VPC endpoint service configuration to which service consumers (AWS accounts, IAM users, and IAM roles) can connect. Service consumers can create an interface VPC endpoint to connect to your service. +-- +-- +-- To create an endpoint service configuration, you must first create a Network Load Balancer for your service. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . +-- +module Network.AWS.EC2.CreateVPCEndpointServiceConfiguration + ( + -- * Creating a Request + createVPCEndpointServiceConfiguration + , CreateVPCEndpointServiceConfiguration + -- * Request Lenses + , cvescClientToken + , cvescAcceptanceRequired + , cvescDryRun + , cvescNetworkLoadBalancerARNs + + -- * Destructuring the Response + , createVPCEndpointServiceConfigurationResponse + , CreateVPCEndpointServiceConfigurationResponse + -- * Response Lenses + , cvescrsClientToken + , cvescrsServiceConfiguration + , cvescrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'createVPCEndpointServiceConfiguration' smart constructor. +data CreateVPCEndpointServiceConfiguration = CreateVPCEndpointServiceConfiguration' + { _cvescClientToken :: !(Maybe Text) + , _cvescAcceptanceRequired :: !(Maybe Bool) + , _cvescDryRun :: !(Maybe Bool) + , _cvescNetworkLoadBalancerARNs :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateVPCEndpointServiceConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cvescClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +-- +-- * 'cvescAcceptanceRequired' - Indicate whether requests from service consumers to create an endpoint to your service must be accepted. To accept a request, use 'AcceptVpcEndpointConnections' . +-- +-- * 'cvescDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'cvescNetworkLoadBalancerARNs' - The Amazon Resource Names (ARNs) of one or more Network Load Balancers for your service. +createVPCEndpointServiceConfiguration + :: CreateVPCEndpointServiceConfiguration +createVPCEndpointServiceConfiguration = + CreateVPCEndpointServiceConfiguration' + { _cvescClientToken = Nothing + , _cvescAcceptanceRequired = Nothing + , _cvescDryRun = Nothing + , _cvescNetworkLoadBalancerARNs = mempty + } + + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +cvescClientToken :: Lens' CreateVPCEndpointServiceConfiguration (Maybe Text) +cvescClientToken = lens _cvescClientToken (\ s a -> s{_cvescClientToken = a}) + +-- | Indicate whether requests from service consumers to create an endpoint to your service must be accepted. To accept a request, use 'AcceptVpcEndpointConnections' . +cvescAcceptanceRequired :: Lens' CreateVPCEndpointServiceConfiguration (Maybe Bool) +cvescAcceptanceRequired = lens _cvescAcceptanceRequired (\ s a -> s{_cvescAcceptanceRequired = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +cvescDryRun :: Lens' CreateVPCEndpointServiceConfiguration (Maybe Bool) +cvescDryRun = lens _cvescDryRun (\ s a -> s{_cvescDryRun = a}) + +-- | The Amazon Resource Names (ARNs) of one or more Network Load Balancers for your service. +cvescNetworkLoadBalancerARNs :: Lens' CreateVPCEndpointServiceConfiguration [Text] +cvescNetworkLoadBalancerARNs = lens _cvescNetworkLoadBalancerARNs (\ s a -> s{_cvescNetworkLoadBalancerARNs = a}) . _Coerce + +instance AWSRequest + CreateVPCEndpointServiceConfiguration + where + type Rs CreateVPCEndpointServiceConfiguration = + CreateVPCEndpointServiceConfigurationResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + CreateVPCEndpointServiceConfigurationResponse' <$> + (x .@? "clientToken") <*> + (x .@? "serviceConfiguration") + <*> (pure (fromEnum s))) + +instance Hashable + CreateVPCEndpointServiceConfiguration + where + +instance NFData CreateVPCEndpointServiceConfiguration + where + +instance ToHeaders + CreateVPCEndpointServiceConfiguration + where + toHeaders = const mempty + +instance ToPath CreateVPCEndpointServiceConfiguration + where + toPath = const "/" + +instance ToQuery + CreateVPCEndpointServiceConfiguration + where + toQuery CreateVPCEndpointServiceConfiguration'{..} + = mconcat + ["Action" =: + ("CreateVpcEndpointServiceConfiguration" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "ClientToken" =: _cvescClientToken, + "AcceptanceRequired" =: _cvescAcceptanceRequired, + "DryRun" =: _cvescDryRun, + toQueryList "NetworkLoadBalancerArn" + _cvescNetworkLoadBalancerARNs] + +-- | /See:/ 'createVPCEndpointServiceConfigurationResponse' smart constructor. +data CreateVPCEndpointServiceConfigurationResponse = CreateVPCEndpointServiceConfigurationResponse' + { _cvescrsClientToken :: !(Maybe Text) + , _cvescrsServiceConfiguration :: !(Maybe ServiceConfiguration) + , _cvescrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateVPCEndpointServiceConfigurationResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cvescrsClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. +-- +-- * 'cvescrsServiceConfiguration' - Information about the service configuration. +-- +-- * 'cvescrsResponseStatus' - -- | The response status code. +createVPCEndpointServiceConfigurationResponse + :: Int -- ^ 'cvescrsResponseStatus' + -> CreateVPCEndpointServiceConfigurationResponse +createVPCEndpointServiceConfigurationResponse pResponseStatus_ = + CreateVPCEndpointServiceConfigurationResponse' + { _cvescrsClientToken = Nothing + , _cvescrsServiceConfiguration = Nothing + , _cvescrsResponseStatus = pResponseStatus_ + } + + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. +cvescrsClientToken :: Lens' CreateVPCEndpointServiceConfigurationResponse (Maybe Text) +cvescrsClientToken = lens _cvescrsClientToken (\ s a -> s{_cvescrsClientToken = a}) + +-- | Information about the service configuration. +cvescrsServiceConfiguration :: Lens' CreateVPCEndpointServiceConfigurationResponse (Maybe ServiceConfiguration) +cvescrsServiceConfiguration = lens _cvescrsServiceConfiguration (\ s a -> s{_cvescrsServiceConfiguration = a}) + +-- | -- | The response status code. +cvescrsResponseStatus :: Lens' CreateVPCEndpointServiceConfigurationResponse Int +cvescrsResponseStatus = lens _cvescrsResponseStatus (\ s a -> s{_cvescrsResponseStatus = a}) + +instance NFData + CreateVPCEndpointServiceConfigurationResponse + where 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 @@ -12,18 +12,18 @@ -- | -- Module : Network.AWS.EC2.CreateVPCPeeringConnection --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Requests a VPC peering connection between two VPCs: a requester VPC that you own and a peer VPC with which to create the connection. The peer VPC can belong to another AWS account. The requester VPC and peer VPC cannot have overlapping CIDR blocks. +-- Requests a VPC peering connection between two VPCs: a requester VPC that you own and an accepter VPC with which to create the connection. The accepter VPC can belong to another AWS account and can be in a different region to the requester VPC. The requester VPC and accepter VPC cannot have overlapping CIDR blocks. -- -- --- The owner of the peer VPC must accept the peering request to activate the peering connection. The VPC peering connection request expires after 7 days, after which it cannot be accepted or rejected. +-- The owner of the accepter VPC must accept the peering request to activate the peering connection. The VPC peering connection request expires after 7 days, after which it cannot be accepted or rejected. -- --- If you try to create a VPC peering connection between VPCs that have overlapping CIDR blocks, the VPC peering connection status goes to @failed@ . +-- If you create a VPC peering connection request between VPCs with overlapping CIDR blocks, the VPC peering connection has a status of @failed@ . -- module Network.AWS.EC2.CreateVPCPeeringConnection ( @@ -34,6 +34,7 @@ , cvpcPeerVPCId , cvpcVPCId , cvpcPeerOwnerId + , cvpcPeerRegion , cvpcDryRun -- * Destructuring the Response @@ -60,6 +61,7 @@ { _cvpcPeerVPCId :: !(Maybe Text) , _cvpcVPCId :: !(Maybe Text) , _cvpcPeerOwnerId :: !(Maybe Text) + , _cvpcPeerRegion :: !(Maybe Text) , _cvpcDryRun :: !(Maybe Bool) } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -68,39 +70,46 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'cvpcPeerVPCId' - The ID of the VPC with which you are creating the VPC peering connection. +-- * 'cvpcPeerVPCId' - The ID of the VPC with which you are creating the VPC peering connection. You must specify this parameter in the request. -- --- * 'cvpcVPCId' - The ID of the requester VPC. +-- * 'cvpcVPCId' - The ID of the requester VPC. You must specify this parameter in the request. -- --- * 'cvpcPeerOwnerId' - The AWS account ID of the owner of the peer VPC. Default: Your AWS account ID +-- * 'cvpcPeerOwnerId' - The AWS account ID of the owner of the accepter VPC. Default: Your AWS account ID -- +-- * 'cvpcPeerRegion' - The region code for the accepter VPC, if the accepter VPC is located in a region other than the region in which you make the request. Default: The region in which you make the request. +-- -- * 'cvpcDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . createVPCPeeringConnection :: CreateVPCPeeringConnection createVPCPeeringConnection = CreateVPCPeeringConnection' - { _cvpcPeerVPCId = Nothing - , _cvpcVPCId = Nothing - , _cvpcPeerOwnerId = Nothing - , _cvpcDryRun = Nothing - } + { _cvpcPeerVPCId = Nothing + , _cvpcVPCId = Nothing + , _cvpcPeerOwnerId = Nothing + , _cvpcPeerRegion = Nothing + , _cvpcDryRun = Nothing + } --- | The ID of the VPC with which you are creating the VPC peering connection. +-- | The ID of the VPC with which you are creating the VPC peering connection. You must specify this parameter in the request. cvpcPeerVPCId :: Lens' CreateVPCPeeringConnection (Maybe Text) -cvpcPeerVPCId = lens _cvpcPeerVPCId (\ s a -> s{_cvpcPeerVPCId = a}); +cvpcPeerVPCId = lens _cvpcPeerVPCId (\ s a -> s{_cvpcPeerVPCId = a}) --- | The ID of the requester VPC. +-- | The ID of the requester VPC. You must specify this parameter in the request. cvpcVPCId :: Lens' CreateVPCPeeringConnection (Maybe Text) -cvpcVPCId = lens _cvpcVPCId (\ s a -> s{_cvpcVPCId = a}); +cvpcVPCId = lens _cvpcVPCId (\ s a -> s{_cvpcVPCId = a}) --- | The AWS account ID of the owner of the peer VPC. Default: Your AWS account ID +-- | The AWS account ID of the owner of the accepter VPC. Default: Your AWS account ID cvpcPeerOwnerId :: Lens' CreateVPCPeeringConnection (Maybe Text) -cvpcPeerOwnerId = lens _cvpcPeerOwnerId (\ s a -> s{_cvpcPeerOwnerId = a}); +cvpcPeerOwnerId = lens _cvpcPeerOwnerId (\ s a -> s{_cvpcPeerOwnerId = a}) +-- | The region code for the accepter VPC, if the accepter VPC is located in a region other than the region in which you make the request. Default: The region in which you make the request. +cvpcPeerRegion :: Lens' CreateVPCPeeringConnection (Maybe Text) +cvpcPeerRegion = lens _cvpcPeerRegion (\ s a -> s{_cvpcPeerRegion = a}) + -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cvpcDryRun :: Lens' CreateVPCPeeringConnection (Maybe Bool) -cvpcDryRun = lens _cvpcDryRun (\ s a -> s{_cvpcDryRun = a}); +cvpcDryRun = lens _cvpcDryRun (\ s a -> s{_cvpcDryRun = a}) instance AWSRequest CreateVPCPeeringConnection where type Rs CreateVPCPeeringConnection = @@ -131,6 +140,7 @@ "Version" =: ("2016-11-15" :: ByteString), "PeerVpcId" =: _cvpcPeerVPCId, "VpcId" =: _cvpcVPCId, "PeerOwnerId" =: _cvpcPeerOwnerId, + "PeerRegion" =: _cvpcPeerRegion, "DryRun" =: _cvpcDryRun] -- | Contains the output of CreateVpcPeeringConnection. @@ -156,18 +166,18 @@ -> CreateVPCPeeringConnectionResponse createVPCPeeringConnectionResponse pResponseStatus_ = CreateVPCPeeringConnectionResponse' - { _cvpcrsVPCPeeringConnection = Nothing - , _cvpcrsResponseStatus = pResponseStatus_ - } + { _cvpcrsVPCPeeringConnection = Nothing + , _cvpcrsResponseStatus = pResponseStatus_ + } -- | Information about the VPC peering connection. cvpcrsVPCPeeringConnection :: Lens' CreateVPCPeeringConnectionResponse (Maybe VPCPeeringConnection) -cvpcrsVPCPeeringConnection = lens _cvpcrsVPCPeeringConnection (\ s a -> s{_cvpcrsVPCPeeringConnection = a}); +cvpcrsVPCPeeringConnection = lens _cvpcrsVPCPeeringConnection (\ s a -> s{_cvpcrsVPCPeeringConnection = a}) -- | -- | The response status code. cvpcrsResponseStatus :: Lens' CreateVPCPeeringConnectionResponse Int -cvpcrsResponseStatus = lens _cvpcrsResponseStatus (\ s a -> s{_cvpcrsResponseStatus = a}); +cvpcrsResponseStatus = lens _cvpcrsResponseStatus (\ s a -> s{_cvpcrsResponseStatus = a}) instance NFData CreateVPCPeeringConnectionResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateVPNConnection --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -92,33 +92,33 @@ -> CreateVPNConnection createVPNConnection pCustomerGatewayId_ pType_ pVPNGatewayId_ = CreateVPNConnection' - { _cvcOptions = Nothing - , _cvcDryRun = Nothing - , _cvcCustomerGatewayId = pCustomerGatewayId_ - , _cvcType = pType_ - , _cvcVPNGatewayId = pVPNGatewayId_ - } + { _cvcOptions = Nothing + , _cvcDryRun = Nothing + , _cvcCustomerGatewayId = pCustomerGatewayId_ + , _cvcType = pType_ + , _cvcVPNGatewayId = pVPNGatewayId_ + } -- | The options for the VPN connection. cvcOptions :: Lens' CreateVPNConnection (Maybe VPNConnectionOptionsSpecification) -cvcOptions = lens _cvcOptions (\ s a -> s{_cvcOptions = a}); +cvcOptions = lens _cvcOptions (\ s a -> s{_cvcOptions = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cvcDryRun :: Lens' CreateVPNConnection (Maybe Bool) -cvcDryRun = lens _cvcDryRun (\ s a -> s{_cvcDryRun = a}); +cvcDryRun = lens _cvcDryRun (\ s a -> s{_cvcDryRun = a}) -- | The ID of the customer gateway. cvcCustomerGatewayId :: Lens' CreateVPNConnection Text -cvcCustomerGatewayId = lens _cvcCustomerGatewayId (\ s a -> s{_cvcCustomerGatewayId = a}); +cvcCustomerGatewayId = lens _cvcCustomerGatewayId (\ s a -> s{_cvcCustomerGatewayId = a}) -- | The type of VPN connection (@ipsec.1@ ). cvcType :: Lens' CreateVPNConnection Text -cvcType = lens _cvcType (\ s a -> s{_cvcType = a}); +cvcType = lens _cvcType (\ s a -> s{_cvcType = a}) -- | The ID of the virtual private gateway. cvcVPNGatewayId :: Lens' CreateVPNConnection Text -cvcVPNGatewayId = lens _cvcVPNGatewayId (\ s a -> s{_cvcVPNGatewayId = a}); +cvcVPNGatewayId = lens _cvcVPNGatewayId (\ s a -> s{_cvcVPNGatewayId = a}) instance AWSRequest CreateVPNConnection where type Rs CreateVPNConnection = @@ -173,15 +173,15 @@ -> CreateVPNConnectionResponse createVPNConnectionResponse pResponseStatus_ = CreateVPNConnectionResponse' - {_cvcrsVPNConnection = Nothing, _cvcrsResponseStatus = pResponseStatus_} + {_cvcrsVPNConnection = Nothing, _cvcrsResponseStatus = pResponseStatus_} -- | Information about the VPN connection. cvcrsVPNConnection :: Lens' CreateVPNConnectionResponse (Maybe VPNConnection) -cvcrsVPNConnection = lens _cvcrsVPNConnection (\ s a -> s{_cvcrsVPNConnection = a}); +cvcrsVPNConnection = lens _cvcrsVPNConnection (\ s a -> s{_cvcrsVPNConnection = a}) -- | -- | The response status code. cvcrsResponseStatus :: Lens' CreateVPNConnectionResponse Int -cvcrsResponseStatus = lens _cvcrsResponseStatus (\ s a -> s{_cvcrsResponseStatus = a}); +cvcrsResponseStatus = lens _cvcrsResponseStatus (\ s a -> s{_cvcrsResponseStatus = a}) instance NFData CreateVPNConnectionResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateVPNConnectionRoute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,18 +68,18 @@ -> CreateVPNConnectionRoute createVPNConnectionRoute pDestinationCidrBlock_ pVPNConnectionId_ = CreateVPNConnectionRoute' - { _cvcrDestinationCidrBlock = pDestinationCidrBlock_ - , _cvcrVPNConnectionId = pVPNConnectionId_ - } + { _cvcrDestinationCidrBlock = pDestinationCidrBlock_ + , _cvcrVPNConnectionId = pVPNConnectionId_ + } -- | The CIDR block associated with the local subnet of the customer network. cvcrDestinationCidrBlock :: Lens' CreateVPNConnectionRoute Text -cvcrDestinationCidrBlock = lens _cvcrDestinationCidrBlock (\ s a -> s{_cvcrDestinationCidrBlock = a}); +cvcrDestinationCidrBlock = lens _cvcrDestinationCidrBlock (\ s a -> s{_cvcrDestinationCidrBlock = a}) -- | The ID of the VPN connection. cvcrVPNConnectionId :: Lens' CreateVPNConnectionRoute Text -cvcrVPNConnectionId = lens _cvcrVPNConnectionId (\ s a -> s{_cvcrVPNConnectionId = a}); +cvcrVPNConnectionId = lens _cvcrVPNConnectionId (\ s a -> s{_cvcrVPNConnectionId = a}) instance AWSRequest CreateVPNConnectionRoute where type Rs CreateVPNConnectionRoute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateVPNGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -78,28 +78,28 @@ -> CreateVPNGateway createVPNGateway pType_ = CreateVPNGateway' - { _cvgAmazonSideASN = Nothing - , _cvgAvailabilityZone = Nothing - , _cvgDryRun = Nothing - , _cvgType = pType_ - } + { _cvgAmazonSideASN = Nothing + , _cvgAvailabilityZone = Nothing + , _cvgDryRun = Nothing + , _cvgType = pType_ + } -- | A private Autonomous System Number (ASN) for the Amazon side of a BGP session. If you're using a 16-bit ASN, it must be in the 64512 to 65534 range. If you're using a 32-bit ASN, it must be in the 4200000000 to 4294967294 range. Default: 64512 cvgAmazonSideASN :: Lens' CreateVPNGateway (Maybe Integer) -cvgAmazonSideASN = lens _cvgAmazonSideASN (\ s a -> s{_cvgAmazonSideASN = a}); +cvgAmazonSideASN = lens _cvgAmazonSideASN (\ s a -> s{_cvgAmazonSideASN = a}) -- | The Availability Zone for the virtual private gateway. cvgAvailabilityZone :: Lens' CreateVPNGateway (Maybe Text) -cvgAvailabilityZone = lens _cvgAvailabilityZone (\ s a -> s{_cvgAvailabilityZone = a}); +cvgAvailabilityZone = lens _cvgAvailabilityZone (\ s a -> s{_cvgAvailabilityZone = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cvgDryRun :: Lens' CreateVPNGateway (Maybe Bool) -cvgDryRun = lens _cvgDryRun (\ s a -> s{_cvgDryRun = a}); +cvgDryRun = lens _cvgDryRun (\ s a -> s{_cvgDryRun = a}) -- | The type of VPN connection this virtual private gateway supports. cvgType :: Lens' CreateVPNGateway GatewayType -cvgType = lens _cvgType (\ s a -> s{_cvgType = a}); +cvgType = lens _cvgType (\ s a -> s{_cvgType = a}) instance AWSRequest CreateVPNGateway where type Rs CreateVPNGateway = CreateVPNGatewayResponse @@ -152,15 +152,15 @@ -> CreateVPNGatewayResponse createVPNGatewayResponse pResponseStatus_ = CreateVPNGatewayResponse' - {_cvgrsVPNGateway = Nothing, _cvgrsResponseStatus = pResponseStatus_} + {_cvgrsVPNGateway = Nothing, _cvgrsResponseStatus = pResponseStatus_} -- | Information about the virtual private gateway. cvgrsVPNGateway :: Lens' CreateVPNGatewayResponse (Maybe VPNGateway) -cvgrsVPNGateway = lens _cvgrsVPNGateway (\ s a -> s{_cvgrsVPNGateway = a}); +cvgrsVPNGateway = lens _cvgrsVPNGateway (\ s a -> s{_cvgrsVPNGateway = a}) -- | -- | The response status code. cvgrsResponseStatus :: Lens' CreateVPNGatewayResponse Int -cvgrsResponseStatus = lens _cvgrsResponseStatus (\ s a -> s{_cvgrsResponseStatus = a}); +cvgrsResponseStatus = lens _cvgrsResponseStatus (\ s a -> s{_cvgrsResponseStatus = a}) instance NFData CreateVPNGatewayResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.CreateVolume --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -94,15 +94,15 @@ -- -- * 'cvvSize' - The size of the volume, in GiBs. Constraints: 1-16384 for @gp2@ , 4-16384 for @io1@ , 500-16384 for @st1@ , 500-16384 for @sc1@ , and 1-1024 for @standard@ . If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. -- --- * 'cvvIOPS' - Only valid for Provisioned IOPS SSD volumes. The number of I/O operations per second (IOPS) to provision for the volume, with a maximum ratio of 50 IOPS/GiB. Constraint: Range is 100 to 20000 for Provisioned IOPS SSD volumes +-- * 'cvvIOPS' - The number of I/O operations per second (IOPS) to provision for the volume, with a maximum ratio of 50 IOPS/GiB. Range is 100 to 32000 IOPS for volumes in most regions. For exceptions, see . This parameter is valid only for Provisioned IOPS SSD (io1) volumes. -- -- * 'cvvEncrypted' - Specifies whether the volume should be encrypted. Encrypted Amazon EBS volumes may only be attached to instances that support Amazon EBS encryption. Volumes that are created from encrypted snapshots are automatically encrypted. There is no way to create an encrypted volume from an unencrypted snapshot or vice versa. If your AMI uses encrypted volumes, you can only launch it on supported instance types. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- -- * 'cvvTagSpecifications' - The tags to apply to the volume during creation. -- --- * 'cvvKMSKeyId' - The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. The ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. +-- * 'cvvKMSKeyId' - An identifier for the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. The CMK identifier may be provided in any of the following formats: * Key ID * Key alias * ARN using key ID. The ID ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . * ARN using key alias. The alias ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @alias@ namespace, and then the CMK alias. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :alias//ExampleAlias/ . AWS parses @KmsKeyId@ asynchronously, meaning that the action you call may appear to complete even though you provided an invalid identifier. The action will eventually fail. -- --- * 'cvvVolumeType' - The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. Default: @standard@ +-- * 'cvvVolumeType' - The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. Defaults: If no volume type is specified, the default is @standard@ in us-east-1, eu-west-1, eu-central-1, us-west-2, us-west-1, sa-east-1, ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, ap-south-1, us-gov-west-1, and cn-north-1. In all other regions, EBS defaults to @gp2@ . -- -- * 'cvvDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- @@ -114,53 +114,53 @@ -> CreateVolume createVolume pAvailabilityZone_ = CreateVolume' - { _cvvSize = Nothing - , _cvvIOPS = Nothing - , _cvvEncrypted = Nothing - , _cvvTagSpecifications = Nothing - , _cvvKMSKeyId = Nothing - , _cvvVolumeType = Nothing - , _cvvDryRun = Nothing - , _cvvSnapshotId = Nothing - , _cvvAvailabilityZone = pAvailabilityZone_ - } + { _cvvSize = Nothing + , _cvvIOPS = Nothing + , _cvvEncrypted = Nothing + , _cvvTagSpecifications = Nothing + , _cvvKMSKeyId = Nothing + , _cvvVolumeType = Nothing + , _cvvDryRun = Nothing + , _cvvSnapshotId = Nothing + , _cvvAvailabilityZone = pAvailabilityZone_ + } -- | The size of the volume, in GiBs. Constraints: 1-16384 for @gp2@ , 4-16384 for @io1@ , 500-16384 for @st1@ , 500-16384 for @sc1@ , and 1-1024 for @standard@ . If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. cvvSize :: Lens' CreateVolume (Maybe Int) -cvvSize = lens _cvvSize (\ s a -> s{_cvvSize = a}); +cvvSize = lens _cvvSize (\ s a -> s{_cvvSize = a}) --- | Only valid for Provisioned IOPS SSD volumes. The number of I/O operations per second (IOPS) to provision for the volume, with a maximum ratio of 50 IOPS/GiB. Constraint: Range is 100 to 20000 for Provisioned IOPS SSD volumes +-- | The number of I/O operations per second (IOPS) to provision for the volume, with a maximum ratio of 50 IOPS/GiB. Range is 100 to 32000 IOPS for volumes in most regions. For exceptions, see . This parameter is valid only for Provisioned IOPS SSD (io1) volumes. cvvIOPS :: Lens' CreateVolume (Maybe Int) -cvvIOPS = lens _cvvIOPS (\ s a -> s{_cvvIOPS = a}); +cvvIOPS = lens _cvvIOPS (\ s a -> s{_cvvIOPS = a}) -- | Specifies whether the volume should be encrypted. Encrypted Amazon EBS volumes may only be attached to instances that support Amazon EBS encryption. Volumes that are created from encrypted snapshots are automatically encrypted. There is no way to create an encrypted volume from an unencrypted snapshot or vice versa. If your AMI uses encrypted volumes, you can only launch it on supported instance types. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . cvvEncrypted :: Lens' CreateVolume (Maybe Bool) -cvvEncrypted = lens _cvvEncrypted (\ s a -> s{_cvvEncrypted = a}); +cvvEncrypted = lens _cvvEncrypted (\ s a -> s{_cvvEncrypted = a}) -- | The tags to apply to the volume during creation. cvvTagSpecifications :: Lens' CreateVolume [TagSpecification] -cvvTagSpecifications = lens _cvvTagSpecifications (\ s a -> s{_cvvTagSpecifications = a}) . _Default . _Coerce; +cvvTagSpecifications = lens _cvvTagSpecifications (\ s a -> s{_cvvTagSpecifications = a}) . _Default . _Coerce --- | The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. The ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. +-- | An identifier for the AWS Key Management Service (AWS KMS) customer master key (CMK) to use when creating the encrypted volume. This parameter is only required if you want to use a non-default CMK; if this parameter is not specified, the default CMK for EBS is used. If a @KmsKeyId@ is specified, the @Encrypted@ flag must also be set. The CMK identifier may be provided in any of the following formats: * Key ID * Key alias * ARN using key ID. The ID ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @key@ namespace, and then the CMK ID. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :key//abcd1234-a123-456a-a12b-a123b4cd56ef/ . * ARN using key alias. The alias ARN contains the @arn:aws:kms@ namespace, followed by the region of the CMK, the AWS account ID of the CMK owner, the @alias@ namespace, and then the CMK alias. For example, arn:aws:kms:/us-east-1/ :/012345678910/ :alias//ExampleAlias/ . AWS parses @KmsKeyId@ asynchronously, meaning that the action you call may appear to complete even though you provided an invalid identifier. The action will eventually fail. cvvKMSKeyId :: Lens' CreateVolume (Maybe Text) -cvvKMSKeyId = lens _cvvKMSKeyId (\ s a -> s{_cvvKMSKeyId = a}); +cvvKMSKeyId = lens _cvvKMSKeyId (\ s a -> s{_cvvKMSKeyId = a}) --- | The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. Default: @standard@ +-- | The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. Defaults: If no volume type is specified, the default is @standard@ in us-east-1, eu-west-1, eu-central-1, us-west-2, us-west-1, sa-east-1, ap-northeast-1, ap-northeast-2, ap-southeast-1, ap-southeast-2, ap-south-1, us-gov-west-1, and cn-north-1. In all other regions, EBS defaults to @gp2@ . cvvVolumeType :: Lens' CreateVolume (Maybe VolumeType) -cvvVolumeType = lens _cvvVolumeType (\ s a -> s{_cvvVolumeType = a}); +cvvVolumeType = lens _cvvVolumeType (\ s a -> s{_cvvVolumeType = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . cvvDryRun :: Lens' CreateVolume (Maybe Bool) -cvvDryRun = lens _cvvDryRun (\ s a -> s{_cvvDryRun = a}); +cvvDryRun = lens _cvvDryRun (\ s a -> s{_cvvDryRun = a}) -- | The snapshot from which to create the volume. cvvSnapshotId :: Lens' CreateVolume (Maybe Text) -cvvSnapshotId = lens _cvvSnapshotId (\ s a -> s{_cvvSnapshotId = a}); +cvvSnapshotId = lens _cvvSnapshotId (\ s a -> s{_cvvSnapshotId = a}) -- | The Availability Zone in which to create the volume. Use 'DescribeAvailabilityZones' to list the Availability Zones that are currently available to you. cvvAvailabilityZone :: Lens' CreateVolume Text -cvvAvailabilityZone = lens _cvvAvailabilityZone (\ s a -> s{_cvvAvailabilityZone = a}); +cvvAvailabilityZone = lens _cvvAvailabilityZone (\ s a -> s{_cvvAvailabilityZone = a}) instance AWSRequest CreateVolume where type Rs CreateVolume = Volume 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteCustomerGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,16 +65,16 @@ -> DeleteCustomerGateway deleteCustomerGateway pCustomerGatewayId_ = DeleteCustomerGateway' - {_dcgcDryRun = Nothing, _dcgcCustomerGatewayId = pCustomerGatewayId_} + {_dcgcDryRun = Nothing, _dcgcCustomerGatewayId = pCustomerGatewayId_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dcgcDryRun :: Lens' DeleteCustomerGateway (Maybe Bool) -dcgcDryRun = lens _dcgcDryRun (\ s a -> s{_dcgcDryRun = a}); +dcgcDryRun = lens _dcgcDryRun (\ s a -> s{_dcgcDryRun = a}) -- | The ID of the customer gateway. dcgcCustomerGatewayId :: Lens' DeleteCustomerGateway Text -dcgcCustomerGatewayId = lens _dcgcCustomerGatewayId (\ s a -> s{_dcgcCustomerGatewayId = a}); +dcgcCustomerGatewayId = lens _dcgcCustomerGatewayId (\ s a -> s{_dcgcCustomerGatewayId = a}) instance AWSRequest DeleteCustomerGateway where type Rs DeleteCustomerGateway = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteDHCPOptions --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,16 +65,16 @@ -> DeleteDHCPOptions deleteDHCPOptions pDHCPOptionsId_ = DeleteDHCPOptions' - {_ddhcpoDryRun = Nothing, _ddhcpoDHCPOptionsId = pDHCPOptionsId_} + {_ddhcpoDryRun = Nothing, _ddhcpoDHCPOptionsId = pDHCPOptionsId_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ddhcpoDryRun :: Lens' DeleteDHCPOptions (Maybe Bool) -ddhcpoDryRun = lens _ddhcpoDryRun (\ s a -> s{_ddhcpoDryRun = a}); +ddhcpoDryRun = lens _ddhcpoDryRun (\ s a -> s{_ddhcpoDryRun = a}) -- | The ID of the DHCP options set. ddhcpoDHCPOptionsId :: Lens' DeleteDHCPOptions Text -ddhcpoDHCPOptionsId = lens _ddhcpoDHCPOptionsId (\ s a -> s{_ddhcpoDHCPOptionsId = a}); +ddhcpoDHCPOptionsId = lens _ddhcpoDHCPOptionsId (\ s a -> s{_ddhcpoDHCPOptionsId = a}) instance AWSRequest DeleteDHCPOptions where type Rs DeleteDHCPOptions = DeleteDHCPOptionsResponse diff --git a/gen/Network/AWS/EC2/DeleteEgressOnlyInternetGateway.hs b/gen/Network/AWS/EC2/DeleteEgressOnlyInternetGateway.hs --- a/gen/Network/AWS/EC2/DeleteEgressOnlyInternetGateway.hs +++ b/gen/Network/AWS/EC2/DeleteEgressOnlyInternetGateway.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteEgressOnlyInternetGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -64,18 +64,18 @@ -> DeleteEgressOnlyInternetGateway deleteEgressOnlyInternetGateway pEgressOnlyInternetGatewayId_ = DeleteEgressOnlyInternetGateway' - { _deoigeDryRun = Nothing - , _deoigeEgressOnlyInternetGatewayId = pEgressOnlyInternetGatewayId_ - } + { _deoigeDryRun = Nothing + , _deoigeEgressOnlyInternetGatewayId = pEgressOnlyInternetGatewayId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . deoigeDryRun :: Lens' DeleteEgressOnlyInternetGateway (Maybe Bool) -deoigeDryRun = lens _deoigeDryRun (\ s a -> s{_deoigeDryRun = a}); +deoigeDryRun = lens _deoigeDryRun (\ s a -> s{_deoigeDryRun = a}) -- | The ID of the egress-only Internet gateway. deoigeEgressOnlyInternetGatewayId :: Lens' DeleteEgressOnlyInternetGateway Text -deoigeEgressOnlyInternetGatewayId = lens _deoigeEgressOnlyInternetGatewayId (\ s a -> s{_deoigeEgressOnlyInternetGatewayId = a}); +deoigeEgressOnlyInternetGatewayId = lens _deoigeEgressOnlyInternetGatewayId (\ s a -> s{_deoigeEgressOnlyInternetGatewayId = a}) instance AWSRequest DeleteEgressOnlyInternetGateway where @@ -130,16 +130,16 @@ -> DeleteEgressOnlyInternetGatewayResponse deleteEgressOnlyInternetGatewayResponse pResponseStatus_ = DeleteEgressOnlyInternetGatewayResponse' - {_deoigersReturnCode = Nothing, _deoigersResponseStatus = pResponseStatus_} + {_deoigersReturnCode = Nothing, _deoigersResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. deoigersReturnCode :: Lens' DeleteEgressOnlyInternetGatewayResponse (Maybe Bool) -deoigersReturnCode = lens _deoigersReturnCode (\ s a -> s{_deoigersReturnCode = a}); +deoigersReturnCode = lens _deoigersReturnCode (\ s a -> s{_deoigersReturnCode = a}) -- | -- | The response status code. deoigersResponseStatus :: Lens' DeleteEgressOnlyInternetGatewayResponse Int -deoigersResponseStatus = lens _deoigersResponseStatus (\ s a -> s{_deoigersResponseStatus = a}); +deoigersResponseStatus = lens _deoigersResponseStatus (\ s a -> s{_deoigersResponseStatus = a}) instance NFData DeleteEgressOnlyInternetGatewayResponse diff --git a/gen/Network/AWS/EC2/DeleteFleets.hs b/gen/Network/AWS/EC2/DeleteFleets.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DeleteFleets.hs @@ -0,0 +1,165 @@ +{-# 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.DeleteFleets +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes the specified EC2 Fleet. +-- +-- +-- After you delete an EC2 Fleet, the EC2 Fleet launches no new instances. You must specify whether the EC2 Fleet should also terminate its instances. If you terminate the instances, the EC2 Fleet enters the @deleted_terminating@ state. Otherwise, the EC2 Fleet enters the @deleted_running@ state, and the instances continue to run until they are interrupted or you terminate them manually. +-- +module Network.AWS.EC2.DeleteFleets + ( + -- * Creating a Request + deleteFleets + , DeleteFleets + -- * Request Lenses + , dfDryRun + , dfFleetIds + , dfTerminateInstances + + -- * Destructuring the Response + , deleteFleetsResponse + , DeleteFleetsResponse + -- * Response Lenses + , dfrsSuccessfulFleetDeletions + , dfrsUnsuccessfulFleetDeletions + , dfrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'deleteFleets' smart constructor. +data DeleteFleets = DeleteFleets' + { _dfDryRun :: !(Maybe Bool) + , _dfFleetIds :: ![Text] + , _dfTerminateInstances :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteFleets' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dfFleetIds' - The IDs of the EC2 Fleets. +-- +-- * 'dfTerminateInstances' - Indicates whether to terminate instances for an EC2 Fleet if it is deleted successfully. +deleteFleets + :: Bool -- ^ 'dfTerminateInstances' + -> DeleteFleets +deleteFleets pTerminateInstances_ = + DeleteFleets' + { _dfDryRun = Nothing + , _dfFleetIds = mempty + , _dfTerminateInstances = pTerminateInstances_ + } + + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dfDryRun :: Lens' DeleteFleets (Maybe Bool) +dfDryRun = lens _dfDryRun (\ s a -> s{_dfDryRun = a}) + +-- | The IDs of the EC2 Fleets. +dfFleetIds :: Lens' DeleteFleets [Text] +dfFleetIds = lens _dfFleetIds (\ s a -> s{_dfFleetIds = a}) . _Coerce + +-- | Indicates whether to terminate instances for an EC2 Fleet if it is deleted successfully. +dfTerminateInstances :: Lens' DeleteFleets Bool +dfTerminateInstances = lens _dfTerminateInstances (\ s a -> s{_dfTerminateInstances = a}) + +instance AWSRequest DeleteFleets where + type Rs DeleteFleets = DeleteFleetsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DeleteFleetsResponse' <$> + (x .@? "successfulFleetDeletionSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "unsuccessfulFleetDeletionSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable DeleteFleets where + +instance NFData DeleteFleets where + +instance ToHeaders DeleteFleets where + toHeaders = const mempty + +instance ToPath DeleteFleets where + toPath = const "/" + +instance ToQuery DeleteFleets where + toQuery DeleteFleets'{..} + = mconcat + ["Action" =: ("DeleteFleets" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "DryRun" =: _dfDryRun, + toQueryList "FleetId" _dfFleetIds, + "TerminateInstances" =: _dfTerminateInstances] + +-- | /See:/ 'deleteFleetsResponse' smart constructor. +data DeleteFleetsResponse = DeleteFleetsResponse' + { _dfrsSuccessfulFleetDeletions :: !(Maybe [DeleteFleetSuccessItem]) + , _dfrsUnsuccessfulFleetDeletions :: !(Maybe [DeleteFleetErrorItem]) + , _dfrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteFleetsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfrsSuccessfulFleetDeletions' - Information about the EC2 Fleets that are successfully deleted. +-- +-- * 'dfrsUnsuccessfulFleetDeletions' - Information about the EC2 Fleets that are not successfully deleted. +-- +-- * 'dfrsResponseStatus' - -- | The response status code. +deleteFleetsResponse + :: Int -- ^ 'dfrsResponseStatus' + -> DeleteFleetsResponse +deleteFleetsResponse pResponseStatus_ = + DeleteFleetsResponse' + { _dfrsSuccessfulFleetDeletions = Nothing + , _dfrsUnsuccessfulFleetDeletions = Nothing + , _dfrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the EC2 Fleets that are successfully deleted. +dfrsSuccessfulFleetDeletions :: Lens' DeleteFleetsResponse [DeleteFleetSuccessItem] +dfrsSuccessfulFleetDeletions = lens _dfrsSuccessfulFleetDeletions (\ s a -> s{_dfrsSuccessfulFleetDeletions = a}) . _Default . _Coerce + +-- | Information about the EC2 Fleets that are not successfully deleted. +dfrsUnsuccessfulFleetDeletions :: Lens' DeleteFleetsResponse [DeleteFleetErrorItem] +dfrsUnsuccessfulFleetDeletions = lens _dfrsUnsuccessfulFleetDeletions (\ s a -> s{_dfrsUnsuccessfulFleetDeletions = a}) . _Default . _Coerce + +-- | -- | The response status code. +dfrsResponseStatus :: Lens' DeleteFleetsResponse Int +dfrsResponseStatus = lens _dfrsResponseStatus (\ s a -> s{_dfrsResponseStatus = a}) + +instance NFData DeleteFleetsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteFlowLogs --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,7 +66,7 @@ -- | One or more flow log IDs. dflFlowLogIds :: Lens' DeleteFlowLogs [Text] -dflFlowLogIds = lens _dflFlowLogIds (\ s a -> s{_dflFlowLogIds = a}) . _Coerce; +dflFlowLogIds = lens _dflFlowLogIds (\ s a -> s{_dflFlowLogIds = a}) . _Coerce instance AWSRequest DeleteFlowLogs where type Rs DeleteFlowLogs = DeleteFlowLogsResponse @@ -119,15 +119,15 @@ -> DeleteFlowLogsResponse deleteFlowLogsResponse pResponseStatus_ = DeleteFlowLogsResponse' - {_dflrsUnsuccessful = Nothing, _dflrsResponseStatus = pResponseStatus_} + {_dflrsUnsuccessful = Nothing, _dflrsResponseStatus = pResponseStatus_} -- | Information about the flow logs that could not be deleted successfully. dflrsUnsuccessful :: Lens' DeleteFlowLogsResponse [UnsuccessfulItem] -dflrsUnsuccessful = lens _dflrsUnsuccessful (\ s a -> s{_dflrsUnsuccessful = a}) . _Default . _Coerce; +dflrsUnsuccessful = lens _dflrsUnsuccessful (\ s a -> s{_dflrsUnsuccessful = a}) . _Default . _Coerce -- | -- | The response status code. dflrsResponseStatus :: Lens' DeleteFlowLogsResponse Int -dflrsResponseStatus = lens _dflrsResponseStatus (\ s a -> s{_dflrsResponseStatus = a}); +dflrsResponseStatus = lens _dflrsResponseStatus (\ s a -> s{_dflrsResponseStatus = a}) instance NFData DeleteFlowLogsResponse where diff --git a/gen/Network/AWS/EC2/DeleteFpgaImage.hs b/gen/Network/AWS/EC2/DeleteFpgaImage.hs --- a/gen/Network/AWS/EC2/DeleteFpgaImage.hs +++ b/gen/Network/AWS/EC2/DeleteFpgaImage.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteFpgaImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,11 +68,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dfiDryRun :: Lens' DeleteFpgaImage (Maybe Bool) -dfiDryRun = lens _dfiDryRun (\ s a -> s{_dfiDryRun = a}); +dfiDryRun = lens _dfiDryRun (\ s a -> s{_dfiDryRun = a}) -- | The ID of the AFI. dfiFpgaImageId :: Lens' DeleteFpgaImage Text -dfiFpgaImageId = lens _dfiFpgaImageId (\ s a -> s{_dfiFpgaImageId = a}); +dfiFpgaImageId = lens _dfiFpgaImageId (\ s a -> s{_dfiFpgaImageId = a}) instance AWSRequest DeleteFpgaImage where type Rs DeleteFpgaImage = DeleteFpgaImageResponse @@ -120,15 +120,15 @@ -> DeleteFpgaImageResponse deleteFpgaImageResponse pResponseStatus_ = DeleteFpgaImageResponse' - {_delrsReturn = Nothing, _delrsResponseStatus = pResponseStatus_} + {_delrsReturn = Nothing, _delrsResponseStatus = pResponseStatus_} -- | Is @true@ if the request succeeds, and an error otherwise. delrsReturn :: Lens' DeleteFpgaImageResponse (Maybe Bool) -delrsReturn = lens _delrsReturn (\ s a -> s{_delrsReturn = a}); +delrsReturn = lens _delrsReturn (\ s a -> s{_delrsReturn = a}) -- | -- | The response status code. delrsResponseStatus :: Lens' DeleteFpgaImageResponse Int -delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}); +delrsResponseStatus = lens _delrsResponseStatus (\ s a -> s{_delrsResponseStatus = a}) instance NFData DeleteFpgaImageResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteInternetGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,16 +65,16 @@ -> DeleteInternetGateway deleteInternetGateway pInternetGatewayId_ = DeleteInternetGateway' - {_digiDryRun = Nothing, _digiInternetGatewayId = pInternetGatewayId_} + {_digiDryRun = Nothing, _digiInternetGatewayId = pInternetGatewayId_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . digiDryRun :: Lens' DeleteInternetGateway (Maybe Bool) -digiDryRun = lens _digiDryRun (\ s a -> s{_digiDryRun = a}); +digiDryRun = lens _digiDryRun (\ s a -> s{_digiDryRun = a}) -- | The ID of the Internet gateway. digiInternetGatewayId :: Lens' DeleteInternetGateway Text -digiInternetGatewayId = lens _digiInternetGatewayId (\ s a -> s{_digiInternetGatewayId = a}); +digiInternetGatewayId = lens _digiInternetGatewayId (\ s a -> s{_digiInternetGatewayId = a}) instance AWSRequest DeleteInternetGateway where type Rs DeleteInternetGateway = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteKeyPair --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,11 +69,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dkpDryRun :: Lens' DeleteKeyPair (Maybe Bool) -dkpDryRun = lens _dkpDryRun (\ s a -> s{_dkpDryRun = a}); +dkpDryRun = lens _dkpDryRun (\ s a -> s{_dkpDryRun = a}) -- | The name of the key pair. dkpKeyName :: Lens' DeleteKeyPair Text -dkpKeyName = lens _dkpKeyName (\ s a -> s{_dkpKeyName = a}); +dkpKeyName = lens _dkpKeyName (\ s a -> s{_dkpKeyName = a}) instance AWSRequest DeleteKeyPair where type Rs DeleteKeyPair = DeleteKeyPairResponse diff --git a/gen/Network/AWS/EC2/DeleteLaunchTemplate.hs b/gen/Network/AWS/EC2/DeleteLaunchTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DeleteLaunchTemplate.hs @@ -0,0 +1,147 @@ +{-# 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.DeleteLaunchTemplate +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes a launch template. Deleting a launch template deletes all of its versions. +-- +-- +module Network.AWS.EC2.DeleteLaunchTemplate + ( + -- * Creating a Request + deleteLaunchTemplate + , DeleteLaunchTemplate + -- * Request Lenses + , dltLaunchTemplateName + , dltLaunchTemplateId + , dltDryRun + + -- * Destructuring the Response + , deleteLaunchTemplateResponse + , DeleteLaunchTemplateResponse + -- * Response Lenses + , dltrsLaunchTemplate + , dltrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'deleteLaunchTemplate' smart constructor. +data DeleteLaunchTemplate = DeleteLaunchTemplate' + { _dltLaunchTemplateName :: !(Maybe Text) + , _dltLaunchTemplateId :: !(Maybe Text) + , _dltDryRun :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteLaunchTemplate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltLaunchTemplateName' - The name of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'dltLaunchTemplateId' - The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'dltDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +deleteLaunchTemplate + :: DeleteLaunchTemplate +deleteLaunchTemplate = + DeleteLaunchTemplate' + { _dltLaunchTemplateName = Nothing + , _dltLaunchTemplateId = Nothing + , _dltDryRun = Nothing + } + + +-- | The name of the launch template. You must specify either the launch template ID or launch template name in the request. +dltLaunchTemplateName :: Lens' DeleteLaunchTemplate (Maybe Text) +dltLaunchTemplateName = lens _dltLaunchTemplateName (\ s a -> s{_dltLaunchTemplateName = a}) + +-- | The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +dltLaunchTemplateId :: Lens' DeleteLaunchTemplate (Maybe Text) +dltLaunchTemplateId = lens _dltLaunchTemplateId (\ s a -> s{_dltLaunchTemplateId = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dltDryRun :: Lens' DeleteLaunchTemplate (Maybe Bool) +dltDryRun = lens _dltDryRun (\ s a -> s{_dltDryRun = a}) + +instance AWSRequest DeleteLaunchTemplate where + type Rs DeleteLaunchTemplate = + DeleteLaunchTemplateResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DeleteLaunchTemplateResponse' <$> + (x .@? "launchTemplate") <*> (pure (fromEnum s))) + +instance Hashable DeleteLaunchTemplate where + +instance NFData DeleteLaunchTemplate where + +instance ToHeaders DeleteLaunchTemplate where + toHeaders = const mempty + +instance ToPath DeleteLaunchTemplate where + toPath = const "/" + +instance ToQuery DeleteLaunchTemplate where + toQuery DeleteLaunchTemplate'{..} + = mconcat + ["Action" =: ("DeleteLaunchTemplate" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "LaunchTemplateName" =: _dltLaunchTemplateName, + "LaunchTemplateId" =: _dltLaunchTemplateId, + "DryRun" =: _dltDryRun] + +-- | /See:/ 'deleteLaunchTemplateResponse' smart constructor. +data DeleteLaunchTemplateResponse = DeleteLaunchTemplateResponse' + { _dltrsLaunchTemplate :: !(Maybe LaunchTemplate) + , _dltrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteLaunchTemplateResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltrsLaunchTemplate' - Information about the launch template. +-- +-- * 'dltrsResponseStatus' - -- | The response status code. +deleteLaunchTemplateResponse + :: Int -- ^ 'dltrsResponseStatus' + -> DeleteLaunchTemplateResponse +deleteLaunchTemplateResponse pResponseStatus_ = + DeleteLaunchTemplateResponse' + {_dltrsLaunchTemplate = Nothing, _dltrsResponseStatus = pResponseStatus_} + + +-- | Information about the launch template. +dltrsLaunchTemplate :: Lens' DeleteLaunchTemplateResponse (Maybe LaunchTemplate) +dltrsLaunchTemplate = lens _dltrsLaunchTemplate (\ s a -> s{_dltrsLaunchTemplate = a}) + +-- | -- | The response status code. +dltrsResponseStatus :: Lens' DeleteLaunchTemplateResponse Int +dltrsResponseStatus = lens _dltrsResponseStatus (\ s a -> s{_dltrsResponseStatus = a}) + +instance NFData DeleteLaunchTemplateResponse where diff --git a/gen/Network/AWS/EC2/DeleteLaunchTemplateVersions.hs b/gen/Network/AWS/EC2/DeleteLaunchTemplateVersions.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DeleteLaunchTemplateVersions.hs @@ -0,0 +1,179 @@ +{-# 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.DeleteLaunchTemplateVersions +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes one or more versions of a launch template. You cannot delete the default version of a launch template; you must first assign a different version as the default. If the default version is the only version for the launch template, you must delete the entire launch template using 'DeleteLaunchTemplate' . +-- +-- +module Network.AWS.EC2.DeleteLaunchTemplateVersions + ( + -- * Creating a Request + deleteLaunchTemplateVersions + , DeleteLaunchTemplateVersions + -- * Request Lenses + , dltvLaunchTemplateName + , dltvLaunchTemplateId + , dltvDryRun + , dltvVersions + + -- * Destructuring the Response + , deleteLaunchTemplateVersionsResponse + , DeleteLaunchTemplateVersionsResponse + -- * Response Lenses + , dltvsrsSuccessfullyDeletedLaunchTemplateVersions + , dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions + , dltvsrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'deleteLaunchTemplateVersions' smart constructor. +data DeleteLaunchTemplateVersions = DeleteLaunchTemplateVersions' + { _dltvLaunchTemplateName :: !(Maybe Text) + , _dltvLaunchTemplateId :: !(Maybe Text) + , _dltvDryRun :: !(Maybe Bool) + , _dltvVersions :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteLaunchTemplateVersions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltvLaunchTemplateName' - The name of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'dltvLaunchTemplateId' - The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'dltvDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dltvVersions' - The version numbers of one or more launch template versions to delete. +deleteLaunchTemplateVersions + :: DeleteLaunchTemplateVersions +deleteLaunchTemplateVersions = + DeleteLaunchTemplateVersions' + { _dltvLaunchTemplateName = Nothing + , _dltvLaunchTemplateId = Nothing + , _dltvDryRun = Nothing + , _dltvVersions = mempty + } + + +-- | The name of the launch template. You must specify either the launch template ID or launch template name in the request. +dltvLaunchTemplateName :: Lens' DeleteLaunchTemplateVersions (Maybe Text) +dltvLaunchTemplateName = lens _dltvLaunchTemplateName (\ s a -> s{_dltvLaunchTemplateName = a}) + +-- | The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +dltvLaunchTemplateId :: Lens' DeleteLaunchTemplateVersions (Maybe Text) +dltvLaunchTemplateId = lens _dltvLaunchTemplateId (\ s a -> s{_dltvLaunchTemplateId = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dltvDryRun :: Lens' DeleteLaunchTemplateVersions (Maybe Bool) +dltvDryRun = lens _dltvDryRun (\ s a -> s{_dltvDryRun = a}) + +-- | The version numbers of one or more launch template versions to delete. +dltvVersions :: Lens' DeleteLaunchTemplateVersions [Text] +dltvVersions = lens _dltvVersions (\ s a -> s{_dltvVersions = a}) . _Coerce + +instance AWSRequest DeleteLaunchTemplateVersions + where + type Rs DeleteLaunchTemplateVersions = + DeleteLaunchTemplateVersionsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DeleteLaunchTemplateVersionsResponse' <$> + (x .@? "successfullyDeletedLaunchTemplateVersionSet" + .!@ mempty + >>= may (parseXMLList "item")) + <*> + (x .@? + "unsuccessfullyDeletedLaunchTemplateVersionSet" + .!@ mempty + >>= may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable DeleteLaunchTemplateVersions where + +instance NFData DeleteLaunchTemplateVersions where + +instance ToHeaders DeleteLaunchTemplateVersions where + toHeaders = const mempty + +instance ToPath DeleteLaunchTemplateVersions where + toPath = const "/" + +instance ToQuery DeleteLaunchTemplateVersions where + toQuery DeleteLaunchTemplateVersions'{..} + = mconcat + ["Action" =: + ("DeleteLaunchTemplateVersions" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "LaunchTemplateName" =: _dltvLaunchTemplateName, + "LaunchTemplateId" =: _dltvLaunchTemplateId, + "DryRun" =: _dltvDryRun, + toQueryList "LaunchTemplateVersion" _dltvVersions] + +-- | /See:/ 'deleteLaunchTemplateVersionsResponse' smart constructor. +data DeleteLaunchTemplateVersionsResponse = DeleteLaunchTemplateVersionsResponse' + { _dltvsrsSuccessfullyDeletedLaunchTemplateVersions :: !(Maybe [DeleteLaunchTemplateVersionsResponseSuccessItem]) + , _dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions :: !(Maybe [DeleteLaunchTemplateVersionsResponseErrorItem]) + , _dltvsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteLaunchTemplateVersionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltvsrsSuccessfullyDeletedLaunchTemplateVersions' - Information about the launch template versions that were successfully deleted. +-- +-- * 'dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions' - Information about the launch template versions that could not be deleted. +-- +-- * 'dltvsrsResponseStatus' - -- | The response status code. +deleteLaunchTemplateVersionsResponse + :: Int -- ^ 'dltvsrsResponseStatus' + -> DeleteLaunchTemplateVersionsResponse +deleteLaunchTemplateVersionsResponse pResponseStatus_ = + DeleteLaunchTemplateVersionsResponse' + { _dltvsrsSuccessfullyDeletedLaunchTemplateVersions = Nothing + , _dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions = Nothing + , _dltvsrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the launch template versions that were successfully deleted. +dltvsrsSuccessfullyDeletedLaunchTemplateVersions :: Lens' DeleteLaunchTemplateVersionsResponse [DeleteLaunchTemplateVersionsResponseSuccessItem] +dltvsrsSuccessfullyDeletedLaunchTemplateVersions = lens _dltvsrsSuccessfullyDeletedLaunchTemplateVersions (\ s a -> s{_dltvsrsSuccessfullyDeletedLaunchTemplateVersions = a}) . _Default . _Coerce + +-- | Information about the launch template versions that could not be deleted. +dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions :: Lens' DeleteLaunchTemplateVersionsResponse [DeleteLaunchTemplateVersionsResponseErrorItem] +dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions = lens _dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions (\ s a -> s{_dltvsrsUnsuccessfullyDeletedLaunchTemplateVersions = a}) . _Default . _Coerce + +-- | -- | The response status code. +dltvsrsResponseStatus :: Lens' DeleteLaunchTemplateVersionsResponse Int +dltvsrsResponseStatus = lens _dltvsrsResponseStatus (\ s a -> s{_dltvsrsResponseStatus = a}) + +instance NFData DeleteLaunchTemplateVersionsResponse + where diff --git a/gen/Network/AWS/EC2/DeleteNatGateway.hs b/gen/Network/AWS/EC2/DeleteNatGateway.hs --- a/gen/Network/AWS/EC2/DeleteNatGateway.hs +++ b/gen/Network/AWS/EC2/DeleteNatGateway.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteNatGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,7 +68,7 @@ -- | The ID of the NAT gateway. dngNatGatewayId :: Lens' DeleteNatGateway Text -dngNatGatewayId = lens _dngNatGatewayId (\ s a -> s{_dngNatGatewayId = a}); +dngNatGatewayId = lens _dngNatGatewayId (\ s a -> s{_dngNatGatewayId = a}) instance AWSRequest DeleteNatGateway where type Rs DeleteNatGateway = DeleteNatGatewayResponse @@ -119,15 +119,15 @@ -> DeleteNatGatewayResponse deleteNatGatewayResponse pResponseStatus_ = DeleteNatGatewayResponse' - {_dngnrsNatGatewayId = Nothing, _dngnrsResponseStatus = pResponseStatus_} + {_dngnrsNatGatewayId = Nothing, _dngnrsResponseStatus = pResponseStatus_} -- | The ID of the NAT gateway. dngnrsNatGatewayId :: Lens' DeleteNatGatewayResponse (Maybe Text) -dngnrsNatGatewayId = lens _dngnrsNatGatewayId (\ s a -> s{_dngnrsNatGatewayId = a}); +dngnrsNatGatewayId = lens _dngnrsNatGatewayId (\ s a -> s{_dngnrsNatGatewayId = a}) -- | -- | The response status code. dngnrsResponseStatus :: Lens' DeleteNatGatewayResponse Int -dngnrsResponseStatus = lens _dngnrsResponseStatus (\ s a -> s{_dngnrsResponseStatus = a}); +dngnrsResponseStatus = lens _dngnrsResponseStatus (\ s a -> s{_dngnrsResponseStatus = a}) instance NFData DeleteNatGatewayResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteNetworkACL --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,11 +69,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dnaDryRun :: Lens' DeleteNetworkACL (Maybe Bool) -dnaDryRun = lens _dnaDryRun (\ s a -> s{_dnaDryRun = a}); +dnaDryRun = lens _dnaDryRun (\ s a -> s{_dnaDryRun = a}) -- | The ID of the network ACL. dnaNetworkACLId :: Lens' DeleteNetworkACL Text -dnaNetworkACLId = lens _dnaNetworkACLId (\ s a -> s{_dnaNetworkACLId = a}); +dnaNetworkACLId = lens _dnaNetworkACLId (\ s a -> s{_dnaNetworkACLId = a}) instance AWSRequest DeleteNetworkACL where type Rs DeleteNetworkACL = DeleteNetworkACLResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteNetworkACLEntry --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,28 +75,28 @@ -> DeleteNetworkACLEntry deleteNetworkACLEntry pEgress_ pNetworkACLId_ pRuleNumber_ = DeleteNetworkACLEntry' - { _dnaeDryRun = Nothing - , _dnaeEgress = pEgress_ - , _dnaeNetworkACLId = pNetworkACLId_ - , _dnaeRuleNumber = pRuleNumber_ - } + { _dnaeDryRun = Nothing + , _dnaeEgress = pEgress_ + , _dnaeNetworkACLId = pNetworkACLId_ + , _dnaeRuleNumber = pRuleNumber_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dnaeDryRun :: Lens' DeleteNetworkACLEntry (Maybe Bool) -dnaeDryRun = lens _dnaeDryRun (\ s a -> s{_dnaeDryRun = a}); +dnaeDryRun = lens _dnaeDryRun (\ s a -> s{_dnaeDryRun = a}) -- | Indicates whether the rule is an egress rule. dnaeEgress :: Lens' DeleteNetworkACLEntry Bool -dnaeEgress = lens _dnaeEgress (\ s a -> s{_dnaeEgress = a}); +dnaeEgress = lens _dnaeEgress (\ s a -> s{_dnaeEgress = a}) -- | The ID of the network ACL. dnaeNetworkACLId :: Lens' DeleteNetworkACLEntry Text -dnaeNetworkACLId = lens _dnaeNetworkACLId (\ s a -> s{_dnaeNetworkACLId = a}); +dnaeNetworkACLId = lens _dnaeNetworkACLId (\ s a -> s{_dnaeNetworkACLId = a}) -- | The rule number of the entry to delete. dnaeRuleNumber :: Lens' DeleteNetworkACLEntry Int -dnaeRuleNumber = lens _dnaeRuleNumber (\ s a -> s{_dnaeRuleNumber = a}); +dnaeRuleNumber = lens _dnaeRuleNumber (\ s a -> s{_dnaeRuleNumber = a}) instance AWSRequest DeleteNetworkACLEntry where type Rs DeleteNetworkACLEntry = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteNetworkInterface --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,16 +65,16 @@ -> DeleteNetworkInterface deleteNetworkInterface pNetworkInterfaceId_ = DeleteNetworkInterface' - {_dninDryRun = Nothing, _dninNetworkInterfaceId = pNetworkInterfaceId_} + {_dninDryRun = Nothing, _dninNetworkInterfaceId = pNetworkInterfaceId_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dninDryRun :: Lens' DeleteNetworkInterface (Maybe Bool) -dninDryRun = lens _dninDryRun (\ s a -> s{_dninDryRun = a}); +dninDryRun = lens _dninDryRun (\ s a -> s{_dninDryRun = a}) -- | The ID of the network interface. dninNetworkInterfaceId :: Lens' DeleteNetworkInterface Text -dninNetworkInterfaceId = lens _dninNetworkInterfaceId (\ s a -> s{_dninNetworkInterfaceId = a}); +dninNetworkInterfaceId = lens _dninNetworkInterfaceId (\ s a -> s{_dninNetworkInterfaceId = a}) instance AWSRequest DeleteNetworkInterface where type Rs DeleteNetworkInterface = diff --git a/gen/Network/AWS/EC2/DeleteNetworkInterfacePermission.hs b/gen/Network/AWS/EC2/DeleteNetworkInterfacePermission.hs --- a/gen/Network/AWS/EC2/DeleteNetworkInterfacePermission.hs +++ b/gen/Network/AWS/EC2/DeleteNetworkInterfacePermission.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteNetworkInterfacePermission --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,23 +72,23 @@ -> DeleteNetworkInterfacePermission deleteNetworkInterfacePermission pNetworkInterfacePermissionId_ = DeleteNetworkInterfacePermission' - { _dnipForce = Nothing - , _dnipDryRun = Nothing - , _dnipNetworkInterfacePermissionId = pNetworkInterfacePermissionId_ - } + { _dnipForce = Nothing + , _dnipDryRun = Nothing + , _dnipNetworkInterfacePermissionId = pNetworkInterfacePermissionId_ + } -- | Specify @true@ to remove the permission even if the network interface is attached to an instance. dnipForce :: Lens' DeleteNetworkInterfacePermission (Maybe Bool) -dnipForce = lens _dnipForce (\ s a -> s{_dnipForce = a}); +dnipForce = lens _dnipForce (\ s a -> s{_dnipForce = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dnipDryRun :: Lens' DeleteNetworkInterfacePermission (Maybe Bool) -dnipDryRun = lens _dnipDryRun (\ s a -> s{_dnipDryRun = a}); +dnipDryRun = lens _dnipDryRun (\ s a -> s{_dnipDryRun = a}) -- | The ID of the network interface permission. dnipNetworkInterfacePermissionId :: Lens' DeleteNetworkInterfacePermission Text -dnipNetworkInterfacePermissionId = lens _dnipNetworkInterfacePermissionId (\ s a -> s{_dnipNetworkInterfacePermissionId = a}); +dnipNetworkInterfacePermissionId = lens _dnipNetworkInterfacePermissionId (\ s a -> s{_dnipNetworkInterfacePermissionId = a}) instance AWSRequest DeleteNetworkInterfacePermission where @@ -149,16 +149,16 @@ -> DeleteNetworkInterfacePermissionResponse deleteNetworkInterfacePermissionResponse pResponseStatus_ = DeleteNetworkInterfacePermissionResponse' - {_dniprsReturn = Nothing, _dniprsResponseStatus = pResponseStatus_} + {_dniprsReturn = Nothing, _dniprsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds, otherwise returns an error. dniprsReturn :: Lens' DeleteNetworkInterfacePermissionResponse (Maybe Bool) -dniprsReturn = lens _dniprsReturn (\ s a -> s{_dniprsReturn = a}); +dniprsReturn = lens _dniprsReturn (\ s a -> s{_dniprsReturn = a}) -- | -- | The response status code. dniprsResponseStatus :: Lens' DeleteNetworkInterfacePermissionResponse Int -dniprsResponseStatus = lens _dniprsResponseStatus (\ s a -> s{_dniprsResponseStatus = a}); +dniprsResponseStatus = lens _dniprsResponseStatus (\ s a -> s{_dniprsResponseStatus = a}) instance NFData DeleteNetworkInterfacePermissionResponse 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DeletePlacementGroup --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Deletes the specified placement group. You must terminate all instances in the placement group before you can delete the placement group. For more information about placement groups and cluster instances, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Deletes the specified placement group. You must terminate all instances in the placement group before you can delete the placement group. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- -- module Network.AWS.EC2.DeletePlacementGroup @@ -69,11 +69,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dpgDryRun :: Lens' DeletePlacementGroup (Maybe Bool) -dpgDryRun = lens _dpgDryRun (\ s a -> s{_dpgDryRun = a}); +dpgDryRun = lens _dpgDryRun (\ s a -> s{_dpgDryRun = a}) -- | The name of the placement group. dpgGroupName :: Lens' DeletePlacementGroup Text -dpgGroupName = lens _dpgGroupName (\ s a -> s{_dpgGroupName = a}); +dpgGroupName = lens _dpgGroupName (\ s a -> s{_dpgGroupName = a}) instance AWSRequest DeletePlacementGroup where type Rs DeletePlacementGroup = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteRoute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,28 +73,28 @@ -> DeleteRoute deleteRoute pRouteTableId_ = DeleteRoute' - { _drDestinationIPv6CidrBlock = Nothing - , _drDryRun = Nothing - , _drDestinationCidrBlock = Nothing - , _drRouteTableId = pRouteTableId_ - } + { _drDestinationIPv6CidrBlock = Nothing + , _drDryRun = Nothing + , _drDestinationCidrBlock = Nothing + , _drRouteTableId = pRouteTableId_ + } -- | The IPv6 CIDR range for the route. The value you specify must match the CIDR for the route exactly. drDestinationIPv6CidrBlock :: Lens' DeleteRoute (Maybe Text) -drDestinationIPv6CidrBlock = lens _drDestinationIPv6CidrBlock (\ s a -> s{_drDestinationIPv6CidrBlock = a}); +drDestinationIPv6CidrBlock = lens _drDestinationIPv6CidrBlock (\ s a -> s{_drDestinationIPv6CidrBlock = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . drDryRun :: Lens' DeleteRoute (Maybe Bool) -drDryRun = lens _drDryRun (\ s a -> s{_drDryRun = a}); +drDryRun = lens _drDryRun (\ s a -> s{_drDryRun = a}) -- | The IPv4 CIDR range for the route. The value you specify must match the CIDR for the route exactly. drDestinationCidrBlock :: Lens' DeleteRoute (Maybe Text) -drDestinationCidrBlock = lens _drDestinationCidrBlock (\ s a -> s{_drDestinationCidrBlock = a}); +drDestinationCidrBlock = lens _drDestinationCidrBlock (\ s a -> s{_drDestinationCidrBlock = a}) -- | The ID of the route table. drRouteTableId :: Lens' DeleteRoute Text -drRouteTableId = lens _drRouteTableId (\ s a -> s{_drRouteTableId = a}); +drRouteTableId = lens _drRouteTableId (\ s a -> s{_drRouteTableId = a}) instance AWSRequest DeleteRoute where type Rs DeleteRoute = DeleteRouteResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteRouteTable --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,11 +69,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . drtrDryRun :: Lens' DeleteRouteTable (Maybe Bool) -drtrDryRun = lens _drtrDryRun (\ s a -> s{_drtrDryRun = a}); +drtrDryRun = lens _drtrDryRun (\ s a -> s{_drtrDryRun = a}) -- | The ID of the route table. drtrRouteTableId :: Lens' DeleteRouteTable Text -drtrRouteTableId = lens _drtrRouteTableId (\ s a -> s{_drtrRouteTableId = a}); +drtrRouteTableId = lens _drtrRouteTableId (\ s a -> s{_drtrRouteTableId = a}) instance AWSRequest DeleteRouteTable where type Rs DeleteRouteTable = DeleteRouteTableResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteSecurityGroup --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -70,20 +70,20 @@ :: DeleteSecurityGroup deleteSecurityGroup = DeleteSecurityGroup' - {_dsgGroupId = Nothing, _dsgGroupName = Nothing, _dsgDryRun = Nothing} + {_dsgGroupId = Nothing, _dsgGroupName = Nothing, _dsgDryRun = Nothing} -- | The ID of the security group. Required for a nondefault VPC. dsgGroupId :: Lens' DeleteSecurityGroup (Maybe Text) -dsgGroupId = lens _dsgGroupId (\ s a -> s{_dsgGroupId = a}); +dsgGroupId = lens _dsgGroupId (\ s a -> s{_dsgGroupId = a}) -- | [EC2-Classic, default VPC] The name of the security group. You can specify either the security group name or the security group ID. dsgGroupName :: Lens' DeleteSecurityGroup (Maybe Text) -dsgGroupName = lens _dsgGroupName (\ s a -> s{_dsgGroupName = a}); +dsgGroupName = lens _dsgGroupName (\ s a -> s{_dsgGroupName = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsgDryRun :: Lens' DeleteSecurityGroup (Maybe Bool) -dsgDryRun = lens _dsgDryRun (\ s a -> s{_dsgDryRun = a}); +dsgDryRun = lens _dsgDryRun (\ s a -> s{_dsgDryRun = a}) instance AWSRequest DeleteSecurityGroup where type Rs DeleteSecurityGroup = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteSnapshot --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,11 +75,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . deleDryRun :: Lens' DeleteSnapshot (Maybe Bool) -deleDryRun = lens _deleDryRun (\ s a -> s{_deleDryRun = a}); +deleDryRun = lens _deleDryRun (\ s a -> s{_deleDryRun = a}) -- | The ID of the EBS snapshot. deleSnapshotId :: Lens' DeleteSnapshot Text -deleSnapshotId = lens _deleSnapshotId (\ s a -> s{_deleSnapshotId = a}); +deleSnapshotId = lens _deleSnapshotId (\ s a -> s{_deleSnapshotId = a}) instance AWSRequest DeleteSnapshot where type Rs DeleteSnapshot = DeleteSnapshotResponse 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DeleteSpotDatafeedSubscription --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Deletes the data feed for Spot instances. +-- Deletes the data feed for Spot Instances. -- -- module Network.AWS.EC2.DeleteSpotDatafeedSubscription @@ -64,7 +64,7 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsdssDryRun :: Lens' DeleteSpotDatafeedSubscription (Maybe Bool) -dsdssDryRun = lens _dsdssDryRun (\ s a -> s{_dsdssDryRun = a}); +dsdssDryRun = lens _dsdssDryRun (\ s a -> s{_dsdssDryRun = a}) instance AWSRequest DeleteSpotDatafeedSubscription where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteSubnet --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,11 +69,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ddDryRun :: Lens' DeleteSubnet (Maybe Bool) -ddDryRun = lens _ddDryRun (\ s a -> s{_ddDryRun = a}); +ddDryRun = lens _ddDryRun (\ s a -> s{_ddDryRun = a}) -- | The ID of the subnet. ddSubnetId :: Lens' DeleteSubnet Text -ddSubnetId = lens _ddSubnetId (\ s a -> s{_ddSubnetId = a}); +ddSubnetId = lens _ddSubnetId (\ s a -> s{_ddSubnetId = a}) instance AWSRequest DeleteSubnet where type Rs DeleteSubnet = DeleteSubnetResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteTags --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,7 +63,7 @@ -- -- * 'dtsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'dtsTags' - One or more tags to delete. If you omit this parameter, we delete all tags for the specified resources. Specify a tag key and an optional tag value to delete specific tags. If you specify a tag key without a tag value, we delete any tag with this key regardless of its value. If you specify a tag key with an empty string as the tag value, we delete the tag only if its value is an empty string. +-- * 'dtsTags' - One or more tags to delete. Specify a tag key and an optional tag value to delete specific tags. If you specify a tag key without a tag value, we delete any tag with this key regardless of its value. If you specify a tag key with an empty string as the tag value, we delete the tag only if its value is an empty string. If you omit this parameter, we delete all user-defined tags for the specified resources. We do not delete AWS-generated tags (tags that have the @aws:@ prefix). -- -- * 'dtsResources' - The IDs of one or more resources. deleteTags @@ -74,15 +74,15 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dtsDryRun :: Lens' DeleteTags (Maybe Bool) -dtsDryRun = lens _dtsDryRun (\ s a -> s{_dtsDryRun = a}); +dtsDryRun = lens _dtsDryRun (\ s a -> s{_dtsDryRun = a}) --- | One or more tags to delete. If you omit this parameter, we delete all tags for the specified resources. Specify a tag key and an optional tag value to delete specific tags. If you specify a tag key without a tag value, we delete any tag with this key regardless of its value. If you specify a tag key with an empty string as the tag value, we delete the tag only if its value is an empty string. +-- | One or more tags to delete. Specify a tag key and an optional tag value to delete specific tags. If you specify a tag key without a tag value, we delete any tag with this key regardless of its value. If you specify a tag key with an empty string as the tag value, we delete the tag only if its value is an empty string. If you omit this parameter, we delete all user-defined tags for the specified resources. We do not delete AWS-generated tags (tags that have the @aws:@ prefix). dtsTags :: Lens' DeleteTags [Tag] -dtsTags = lens _dtsTags (\ s a -> s{_dtsTags = a}) . _Default . _Coerce; +dtsTags = lens _dtsTags (\ s a -> s{_dtsTags = a}) . _Default . _Coerce -- | The IDs of one or more resources. dtsResources :: Lens' DeleteTags [Text] -dtsResources = lens _dtsResources (\ s a -> s{_dtsResources = a}) . _Coerce; +dtsResources = lens _dtsResources (\ s a -> s{_dtsResources = a}) . _Coerce instance AWSRequest DeleteTags where type Rs DeleteTags = DeleteTagsResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteVPC --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,11 +68,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . delDryRun :: Lens' DeleteVPC (Maybe Bool) -delDryRun = lens _delDryRun (\ s a -> s{_delDryRun = a}); +delDryRun = lens _delDryRun (\ s a -> s{_delDryRun = a}) -- | The ID of the VPC. delVPCId :: Lens' DeleteVPC Text -delVPCId = lens _delVPCId (\ s a -> s{_delVPCId = a}); +delVPCId = lens _delVPCId (\ s a -> s{_delVPCId = a}) instance AWSRequest DeleteVPC where type Rs DeleteVPC = DeleteVPCResponse diff --git a/gen/Network/AWS/EC2/DeleteVPCEndpointConnectionNotifications.hs b/gen/Network/AWS/EC2/DeleteVPCEndpointConnectionNotifications.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DeleteVPCEndpointConnectionNotifications.hs @@ -0,0 +1,154 @@ +{-# 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.DeleteVPCEndpointConnectionNotifications +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes one or more VPC endpoint connection notifications. +-- +-- +module Network.AWS.EC2.DeleteVPCEndpointConnectionNotifications + ( + -- * Creating a Request + deleteVPCEndpointConnectionNotifications + , DeleteVPCEndpointConnectionNotifications + -- * Request Lenses + , dvecnDryRun + , dvecnConnectionNotificationIds + + -- * Destructuring the Response + , deleteVPCEndpointConnectionNotificationsResponse + , DeleteVPCEndpointConnectionNotificationsResponse + -- * Response Lenses + , dvecnrsUnsuccessful + , dvecnrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'deleteVPCEndpointConnectionNotifications' smart constructor. +data DeleteVPCEndpointConnectionNotifications = DeleteVPCEndpointConnectionNotifications' + { _dvecnDryRun :: !(Maybe Bool) + , _dvecnConnectionNotificationIds :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteVPCEndpointConnectionNotifications' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvecnDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dvecnConnectionNotificationIds' - One or more notification IDs. +deleteVPCEndpointConnectionNotifications + :: DeleteVPCEndpointConnectionNotifications +deleteVPCEndpointConnectionNotifications = + DeleteVPCEndpointConnectionNotifications' + {_dvecnDryRun = Nothing, _dvecnConnectionNotificationIds = mempty} + + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dvecnDryRun :: Lens' DeleteVPCEndpointConnectionNotifications (Maybe Bool) +dvecnDryRun = lens _dvecnDryRun (\ s a -> s{_dvecnDryRun = a}) + +-- | One or more notification IDs. +dvecnConnectionNotificationIds :: Lens' DeleteVPCEndpointConnectionNotifications [Text] +dvecnConnectionNotificationIds = lens _dvecnConnectionNotificationIds (\ s a -> s{_dvecnConnectionNotificationIds = a}) . _Coerce + +instance AWSRequest + DeleteVPCEndpointConnectionNotifications + where + type Rs DeleteVPCEndpointConnectionNotifications = + DeleteVPCEndpointConnectionNotificationsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DeleteVPCEndpointConnectionNotificationsResponse' <$> + (x .@? "unsuccessful" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable + DeleteVPCEndpointConnectionNotifications + where + +instance NFData + DeleteVPCEndpointConnectionNotifications + where + +instance ToHeaders + DeleteVPCEndpointConnectionNotifications + where + toHeaders = const mempty + +instance ToPath + DeleteVPCEndpointConnectionNotifications + where + toPath = const "/" + +instance ToQuery + DeleteVPCEndpointConnectionNotifications + where + toQuery DeleteVPCEndpointConnectionNotifications'{..} + = mconcat + ["Action" =: + ("DeleteVpcEndpointConnectionNotifications" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "DryRun" =: _dvecnDryRun, + toQueryList "ConnectionNotificationId" + _dvecnConnectionNotificationIds] + +-- | /See:/ 'deleteVPCEndpointConnectionNotificationsResponse' smart constructor. +data DeleteVPCEndpointConnectionNotificationsResponse = DeleteVPCEndpointConnectionNotificationsResponse' + { _dvecnrsUnsuccessful :: !(Maybe [UnsuccessfulItem]) + , _dvecnrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteVPCEndpointConnectionNotificationsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvecnrsUnsuccessful' - Information about the notifications that could not be deleted successfully. +-- +-- * 'dvecnrsResponseStatus' - -- | The response status code. +deleteVPCEndpointConnectionNotificationsResponse + :: Int -- ^ 'dvecnrsResponseStatus' + -> DeleteVPCEndpointConnectionNotificationsResponse +deleteVPCEndpointConnectionNotificationsResponse pResponseStatus_ = + DeleteVPCEndpointConnectionNotificationsResponse' + {_dvecnrsUnsuccessful = Nothing, _dvecnrsResponseStatus = pResponseStatus_} + + +-- | Information about the notifications that could not be deleted successfully. +dvecnrsUnsuccessful :: Lens' DeleteVPCEndpointConnectionNotificationsResponse [UnsuccessfulItem] +dvecnrsUnsuccessful = lens _dvecnrsUnsuccessful (\ s a -> s{_dvecnrsUnsuccessful = a}) . _Default . _Coerce + +-- | -- | The response status code. +dvecnrsResponseStatus :: Lens' DeleteVPCEndpointConnectionNotificationsResponse Int +dvecnrsResponseStatus = lens _dvecnrsResponseStatus (\ s a -> s{_dvecnrsResponseStatus = a}) + +instance NFData + DeleteVPCEndpointConnectionNotificationsResponse + where diff --git a/gen/Network/AWS/EC2/DeleteVPCEndpointServiceConfigurations.hs b/gen/Network/AWS/EC2/DeleteVPCEndpointServiceConfigurations.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DeleteVPCEndpointServiceConfigurations.hs @@ -0,0 +1,155 @@ +{-# 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.DeleteVPCEndpointServiceConfigurations +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Deletes one or more VPC endpoint service configurations in your account. Before you delete the endpoint service configuration, you must reject any @Available@ or @PendingAcceptance@ interface endpoint connections that are attached to the service. +-- +-- +module Network.AWS.EC2.DeleteVPCEndpointServiceConfigurations + ( + -- * Creating a Request + deleteVPCEndpointServiceConfigurations + , DeleteVPCEndpointServiceConfigurations + -- * Request Lenses + , dvpcescDryRun + , dvpcescServiceIds + + -- * Destructuring the Response + , deleteVPCEndpointServiceConfigurationsResponse + , DeleteVPCEndpointServiceConfigurationsResponse + -- * Response Lenses + , dvpcescrsUnsuccessful + , dvpcescrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'deleteVPCEndpointServiceConfigurations' smart constructor. +data DeleteVPCEndpointServiceConfigurations = DeleteVPCEndpointServiceConfigurations' + { _dvpcescDryRun :: !(Maybe Bool) + , _dvpcescServiceIds :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteVPCEndpointServiceConfigurations' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvpcescDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dvpcescServiceIds' - The IDs of one or more services. +deleteVPCEndpointServiceConfigurations + :: DeleteVPCEndpointServiceConfigurations +deleteVPCEndpointServiceConfigurations = + DeleteVPCEndpointServiceConfigurations' + {_dvpcescDryRun = Nothing, _dvpcescServiceIds = mempty} + + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dvpcescDryRun :: Lens' DeleteVPCEndpointServiceConfigurations (Maybe Bool) +dvpcescDryRun = lens _dvpcescDryRun (\ s a -> s{_dvpcescDryRun = a}) + +-- | The IDs of one or more services. +dvpcescServiceIds :: Lens' DeleteVPCEndpointServiceConfigurations [Text] +dvpcescServiceIds = lens _dvpcescServiceIds (\ s a -> s{_dvpcescServiceIds = a}) . _Coerce + +instance AWSRequest + DeleteVPCEndpointServiceConfigurations + where + type Rs DeleteVPCEndpointServiceConfigurations = + DeleteVPCEndpointServiceConfigurationsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DeleteVPCEndpointServiceConfigurationsResponse' <$> + (x .@? "unsuccessful" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable + DeleteVPCEndpointServiceConfigurations + where + +instance NFData + DeleteVPCEndpointServiceConfigurations + where + +instance ToHeaders + DeleteVPCEndpointServiceConfigurations + where + toHeaders = const mempty + +instance ToPath + DeleteVPCEndpointServiceConfigurations + where + toPath = const "/" + +instance ToQuery + DeleteVPCEndpointServiceConfigurations + where + toQuery DeleteVPCEndpointServiceConfigurations'{..} + = mconcat + ["Action" =: + ("DeleteVpcEndpointServiceConfigurations" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "DryRun" =: _dvpcescDryRun, + toQueryList "ServiceId" _dvpcescServiceIds] + +-- | /See:/ 'deleteVPCEndpointServiceConfigurationsResponse' smart constructor. +data DeleteVPCEndpointServiceConfigurationsResponse = DeleteVPCEndpointServiceConfigurationsResponse' + { _dvpcescrsUnsuccessful :: !(Maybe [UnsuccessfulItem]) + , _dvpcescrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteVPCEndpointServiceConfigurationsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvpcescrsUnsuccessful' - Information about the service configurations that were not deleted, if applicable. +-- +-- * 'dvpcescrsResponseStatus' - -- | The response status code. +deleteVPCEndpointServiceConfigurationsResponse + :: Int -- ^ 'dvpcescrsResponseStatus' + -> DeleteVPCEndpointServiceConfigurationsResponse +deleteVPCEndpointServiceConfigurationsResponse pResponseStatus_ = + DeleteVPCEndpointServiceConfigurationsResponse' + { _dvpcescrsUnsuccessful = Nothing + , _dvpcescrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the service configurations that were not deleted, if applicable. +dvpcescrsUnsuccessful :: Lens' DeleteVPCEndpointServiceConfigurationsResponse [UnsuccessfulItem] +dvpcescrsUnsuccessful = lens _dvpcescrsUnsuccessful (\ s a -> s{_dvpcescrsUnsuccessful = a}) . _Default . _Coerce + +-- | -- | The response status code. +dvpcescrsResponseStatus :: Lens' DeleteVPCEndpointServiceConfigurationsResponse Int +dvpcescrsResponseStatus = lens _dvpcescrsResponseStatus (\ s a -> s{_dvpcescrsResponseStatus = a}) + +instance NFData + DeleteVPCEndpointServiceConfigurationsResponse + where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteVPCEndpoints --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- -- * 'dveDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'dveVPCEndpointIds' - One or more endpoint IDs. +-- * 'dveVPCEndpointIds' - One or more VPC endpoint IDs. deleteVPCEndpoints :: DeleteVPCEndpoints deleteVPCEndpoints = @@ -71,11 +71,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dveDryRun :: Lens' DeleteVPCEndpoints (Maybe Bool) -dveDryRun = lens _dveDryRun (\ s a -> s{_dveDryRun = a}); +dveDryRun = lens _dveDryRun (\ s a -> s{_dveDryRun = a}) --- | One or more endpoint IDs. +-- | One or more VPC endpoint IDs. dveVPCEndpointIds :: Lens' DeleteVPCEndpoints [Text] -dveVPCEndpointIds = lens _dveVPCEndpointIds (\ s a -> s{_dveVPCEndpointIds = a}) . _Coerce; +dveVPCEndpointIds = lens _dveVPCEndpointIds (\ s a -> s{_dveVPCEndpointIds = a}) . _Coerce instance AWSRequest DeleteVPCEndpoints where type Rs DeleteVPCEndpoints = @@ -122,7 +122,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dversUnsuccessful' - Information about the endpoints that were not successfully deleted. +-- * 'dversUnsuccessful' - Information about the VPC endpoints that were not successfully deleted. -- -- * 'dversResponseStatus' - -- | The response status code. deleteVPCEndpointsResponse @@ -130,15 +130,15 @@ -> DeleteVPCEndpointsResponse deleteVPCEndpointsResponse pResponseStatus_ = DeleteVPCEndpointsResponse' - {_dversUnsuccessful = Nothing, _dversResponseStatus = pResponseStatus_} + {_dversUnsuccessful = Nothing, _dversResponseStatus = pResponseStatus_} --- | Information about the endpoints that were not successfully deleted. +-- | Information about the VPC endpoints that were not successfully deleted. dversUnsuccessful :: Lens' DeleteVPCEndpointsResponse [UnsuccessfulItem] -dversUnsuccessful = lens _dversUnsuccessful (\ s a -> s{_dversUnsuccessful = a}) . _Default . _Coerce; +dversUnsuccessful = lens _dversUnsuccessful (\ s a -> s{_dversUnsuccessful = a}) . _Default . _Coerce -- | -- | The response status code. dversResponseStatus :: Lens' DeleteVPCEndpointsResponse Int -dversResponseStatus = lens _dversResponseStatus (\ s a -> s{_dversResponseStatus = a}); +dversResponseStatus = lens _dversResponseStatus (\ s a -> s{_dversResponseStatus = a}) instance NFData DeleteVPCEndpointsResponse where 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DeleteVPCPeeringConnection --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Deletes a VPC peering connection. Either the owner of the requester VPC or the owner of the peer VPC can delete the VPC peering connection if it's in the @active@ state. The owner of the requester VPC can delete a VPC peering connection in the @pending-acceptance@ state. +-- Deletes a VPC peering connection. Either the owner of the requester VPC or the owner of the accepter VPC can delete the VPC peering connection if it's in the @active@ state. The owner of the requester VPC can delete a VPC peering connection in the @pending-acceptance@ state. You cannot delete a VPC peering connection that's in the @failed@ state. -- -- module Network.AWS.EC2.DeleteVPCPeeringConnection @@ -68,18 +68,18 @@ -> DeleteVPCPeeringConnection deleteVPCPeeringConnection pVPCPeeringConnectionId_ = DeleteVPCPeeringConnection' - { _dvpcDryRun = Nothing - , _dvpcVPCPeeringConnectionId = pVPCPeeringConnectionId_ - } + { _dvpcDryRun = Nothing + , _dvpcVPCPeeringConnectionId = pVPCPeeringConnectionId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvpcDryRun :: Lens' DeleteVPCPeeringConnection (Maybe Bool) -dvpcDryRun = lens _dvpcDryRun (\ s a -> s{_dvpcDryRun = a}); +dvpcDryRun = lens _dvpcDryRun (\ s a -> s{_dvpcDryRun = a}) -- | The ID of the VPC peering connection. dvpcVPCPeeringConnectionId :: Lens' DeleteVPCPeeringConnection Text -dvpcVPCPeeringConnectionId = lens _dvpcVPCPeeringConnectionId (\ s a -> s{_dvpcVPCPeeringConnectionId = a}); +dvpcVPCPeeringConnectionId = lens _dvpcVPCPeeringConnectionId (\ s a -> s{_dvpcVPCPeeringConnectionId = a}) instance AWSRequest DeleteVPCPeeringConnection where type Rs DeleteVPCPeeringConnection = @@ -134,16 +134,16 @@ -> DeleteVPCPeeringConnectionResponse deleteVPCPeeringConnectionResponse pResponseStatus_ = DeleteVPCPeeringConnectionResponse' - {_dvpcrsReturn = Nothing, _dvpcrsResponseStatus = pResponseStatus_} + {_dvpcrsReturn = Nothing, _dvpcrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. dvpcrsReturn :: Lens' DeleteVPCPeeringConnectionResponse (Maybe Bool) -dvpcrsReturn = lens _dvpcrsReturn (\ s a -> s{_dvpcrsReturn = a}); +dvpcrsReturn = lens _dvpcrsReturn (\ s a -> s{_dvpcrsReturn = a}) -- | -- | The response status code. dvpcrsResponseStatus :: Lens' DeleteVPCPeeringConnectionResponse Int -dvpcrsResponseStatus = lens _dvpcrsResponseStatus (\ s a -> s{_dvpcrsResponseStatus = a}); +dvpcrsResponseStatus = lens _dvpcrsResponseStatus (\ s a -> s{_dvpcrsResponseStatus = a}) instance NFData DeleteVPCPeeringConnectionResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteVPNConnection --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,16 +67,16 @@ -> DeleteVPNConnection deleteVPNConnection pVPNConnectionId_ = DeleteVPNConnection' - {_dvcDryRun = Nothing, _dvcVPNConnectionId = pVPNConnectionId_} + {_dvcDryRun = Nothing, _dvcVPNConnectionId = pVPNConnectionId_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvcDryRun :: Lens' DeleteVPNConnection (Maybe Bool) -dvcDryRun = lens _dvcDryRun (\ s a -> s{_dvcDryRun = a}); +dvcDryRun = lens _dvcDryRun (\ s a -> s{_dvcDryRun = a}) -- | The ID of the VPN connection. dvcVPNConnectionId :: Lens' DeleteVPNConnection Text -dvcVPNConnectionId = lens _dvcVPNConnectionId (\ s a -> s{_dvcVPNConnectionId = a}); +dvcVPNConnectionId = lens _dvcVPNConnectionId (\ s a -> s{_dvcVPNConnectionId = a}) instance AWSRequest DeleteVPNConnection where type Rs DeleteVPNConnection = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteVPNConnectionRoute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,18 +66,18 @@ -> DeleteVPNConnectionRoute deleteVPNConnectionRoute pDestinationCidrBlock_ pVPNConnectionId_ = DeleteVPNConnectionRoute' - { _dvcrDestinationCidrBlock = pDestinationCidrBlock_ - , _dvcrVPNConnectionId = pVPNConnectionId_ - } + { _dvcrDestinationCidrBlock = pDestinationCidrBlock_ + , _dvcrVPNConnectionId = pVPNConnectionId_ + } -- | The CIDR block associated with the local subnet of the customer network. dvcrDestinationCidrBlock :: Lens' DeleteVPNConnectionRoute Text -dvcrDestinationCidrBlock = lens _dvcrDestinationCidrBlock (\ s a -> s{_dvcrDestinationCidrBlock = a}); +dvcrDestinationCidrBlock = lens _dvcrDestinationCidrBlock (\ s a -> s{_dvcrDestinationCidrBlock = a}) -- | The ID of the VPN connection. dvcrVPNConnectionId :: Lens' DeleteVPNConnectionRoute Text -dvcrVPNConnectionId = lens _dvcrVPNConnectionId (\ s a -> s{_dvcrVPNConnectionId = a}); +dvcrVPNConnectionId = lens _dvcrVPNConnectionId (\ s a -> s{_dvcrVPNConnectionId = a}) instance AWSRequest DeleteVPNConnectionRoute where type Rs DeleteVPNConnectionRoute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteVPNGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,11 +69,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvgDryRun :: Lens' DeleteVPNGateway (Maybe Bool) -dvgDryRun = lens _dvgDryRun (\ s a -> s{_dvgDryRun = a}); +dvgDryRun = lens _dvgDryRun (\ s a -> s{_dvgDryRun = a}) -- | The ID of the virtual private gateway. dvgVPNGatewayId :: Lens' DeleteVPNGateway Text -dvgVPNGatewayId = lens _dvgVPNGatewayId (\ s a -> s{_dvgVPNGatewayId = a}); +dvgVPNGatewayId = lens _dvgVPNGatewayId (\ s a -> s{_dvgVPNGatewayId = a}) instance AWSRequest DeleteVPNGateway where type Rs DeleteVPNGateway = DeleteVPNGatewayResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeleteVolume --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,11 +71,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvvDryRun :: Lens' DeleteVolume (Maybe Bool) -dvvDryRun = lens _dvvDryRun (\ s a -> s{_dvvDryRun = a}); +dvvDryRun = lens _dvvDryRun (\ s a -> s{_dvvDryRun = a}) -- | The ID of the volume. dvvVolumeId :: Lens' DeleteVolume Text -dvvVolumeId = lens _dvvVolumeId (\ s a -> s{_dvvVolumeId = a}); +dvvVolumeId = lens _dvvVolumeId (\ s a -> s{_dvvVolumeId = a}) instance AWSRequest DeleteVolume where type Rs DeleteVolume = DeleteVolumeResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DeregisterImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,11 +71,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . diDryRun :: Lens' DeregisterImage (Maybe Bool) -diDryRun = lens _diDryRun (\ s a -> s{_diDryRun = a}); +diDryRun = lens _diDryRun (\ s a -> s{_diDryRun = a}) -- | The ID of the AMI. diImageId :: Lens' DeregisterImage Text -diImageId = lens _diImageId (\ s a -> s{_diImageId = a}); +diImageId = lens _diImageId (\ s a -> s{_diImageId = a}) instance AWSRequest DeregisterImage where type Rs DeregisterImage = DeregisterImageResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeAccountAttributes --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -25,7 +25,7 @@ -- -- * @default-vpc@ : The ID of the default VPC for your account, or @none@ . -- --- * @max-instances@ : The maximum number of On-Demand instances that you can run. +-- * @max-instances@ : The maximum number of On-Demand Instances that you can run. -- -- * @vpc-max-security-groups-per-interface@ : The maximum number of security groups that you can assign to a network interface. -- @@ -81,16 +81,16 @@ :: DescribeAccountAttributes describeAccountAttributes = DescribeAccountAttributes' - {_daaAttributeNames = Nothing, _daaDryRun = Nothing} + {_daaAttributeNames = Nothing, _daaDryRun = Nothing} -- | One or more account attribute names. daaAttributeNames :: Lens' DescribeAccountAttributes [AccountAttributeName] -daaAttributeNames = lens _daaAttributeNames (\ s a -> s{_daaAttributeNames = a}) . _Default . _Coerce; +daaAttributeNames = lens _daaAttributeNames (\ s a -> s{_daaAttributeNames = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . daaDryRun :: Lens' DescribeAccountAttributes (Maybe Bool) -daaDryRun = lens _daaDryRun (\ s a -> s{_daaDryRun = a}); +daaDryRun = lens _daaDryRun (\ s a -> s{_daaDryRun = a}) instance AWSRequest DescribeAccountAttributes where type Rs DescribeAccountAttributes = @@ -147,16 +147,16 @@ -> DescribeAccountAttributesResponse describeAccountAttributesResponse pResponseStatus_ = DescribeAccountAttributesResponse' - {_daarsAccountAttributes = Nothing, _daarsResponseStatus = pResponseStatus_} + {_daarsAccountAttributes = Nothing, _daarsResponseStatus = pResponseStatus_} -- | Information about one or more account attributes. daarsAccountAttributes :: Lens' DescribeAccountAttributesResponse [AccountAttribute] -daarsAccountAttributes = lens _daarsAccountAttributes (\ s a -> s{_daarsAccountAttributes = a}) . _Default . _Coerce; +daarsAccountAttributes = lens _daarsAccountAttributes (\ s a -> s{_daarsAccountAttributes = a}) . _Default . _Coerce -- | -- | The response status code. daarsResponseStatus :: Lens' DescribeAccountAttributesResponse Int -daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a}); +daarsResponseStatus = lens _daarsResponseStatus (\ s a -> s{_daarsResponseStatus = a}) instance NFData DescribeAccountAttributesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeAddresses --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,7 +66,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'daFilters' - One or more filters. Filter names and values are case-sensitive. * @allocation-id@ - [EC2-VPC] The allocation ID for the address. * @association-id@ - [EC2-VPC] The association ID for the address. * @domain@ - Indicates whether the address is for use in EC2-Classic (@standard@ ) or in a VPC (@vpc@ ). * @instance-id@ - The ID of the instance the address is associated with, if any. * @network-interface-id@ - [EC2-VPC] The ID of the network interface that the address is associated with, if any. * @network-interface-owner-id@ - The AWS account ID of the owner. * @private-ip-address@ - [EC2-VPC] The private IP address associated with the Elastic IP address. * @public-ip@ - The Elastic IP address. +-- * 'daFilters' - One or more filters. Filter names and values are case-sensitive. * @allocation-id@ - [EC2-VPC] The allocation ID for the address. * @association-id@ - [EC2-VPC] The association ID for the address. * @domain@ - Indicates whether the address is for use in EC2-Classic (@standard@ ) or in a VPC (@vpc@ ). * @instance-id@ - The ID of the instance the address is associated with, if any. * @network-interface-id@ - [EC2-VPC] The ID of the network interface that the address is associated with, if any. * @network-interface-owner-id@ - The AWS account ID of the owner. * @private-ip-address@ - [EC2-VPC] The private IP address associated with the Elastic IP address. * @public-ip@ - The Elastic IP address. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of the tag's key). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. -- -- * 'daPublicIPs' - [EC2-Classic] One or more Elastic IP addresses. Default: Describes all your Elastic IP addresses. -- @@ -77,28 +77,28 @@ :: DescribeAddresses describeAddresses = DescribeAddresses' - { _daFilters = Nothing - , _daPublicIPs = Nothing - , _daAllocationIds = Nothing - , _daDryRun = Nothing - } + { _daFilters = Nothing + , _daPublicIPs = Nothing + , _daAllocationIds = Nothing + , _daDryRun = Nothing + } --- | One or more filters. Filter names and values are case-sensitive. * @allocation-id@ - [EC2-VPC] The allocation ID for the address. * @association-id@ - [EC2-VPC] The association ID for the address. * @domain@ - Indicates whether the address is for use in EC2-Classic (@standard@ ) or in a VPC (@vpc@ ). * @instance-id@ - The ID of the instance the address is associated with, if any. * @network-interface-id@ - [EC2-VPC] The ID of the network interface that the address is associated with, if any. * @network-interface-owner-id@ - The AWS account ID of the owner. * @private-ip-address@ - [EC2-VPC] The private IP address associated with the Elastic IP address. * @public-ip@ - The Elastic IP address. +-- | One or more filters. Filter names and values are case-sensitive. * @allocation-id@ - [EC2-VPC] The allocation ID for the address. * @association-id@ - [EC2-VPC] The association ID for the address. * @domain@ - Indicates whether the address is for use in EC2-Classic (@standard@ ) or in a VPC (@vpc@ ). * @instance-id@ - The ID of the instance the address is associated with, if any. * @network-interface-id@ - [EC2-VPC] The ID of the network interface that the address is associated with, if any. * @network-interface-owner-id@ - The AWS account ID of the owner. * @private-ip-address@ - [EC2-VPC] The private IP address associated with the Elastic IP address. * @public-ip@ - The Elastic IP address. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of the tag's key). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. daFilters :: Lens' DescribeAddresses [Filter] -daFilters = lens _daFilters (\ s a -> s{_daFilters = a}) . _Default . _Coerce; +daFilters = lens _daFilters (\ s a -> s{_daFilters = a}) . _Default . _Coerce -- | [EC2-Classic] One or more Elastic IP addresses. Default: Describes all your Elastic IP addresses. daPublicIPs :: Lens' DescribeAddresses [Text] -daPublicIPs = lens _daPublicIPs (\ s a -> s{_daPublicIPs = a}) . _Default . _Coerce; +daPublicIPs = lens _daPublicIPs (\ s a -> s{_daPublicIPs = a}) . _Default . _Coerce -- | [EC2-VPC] One or more allocation IDs. Default: Describes all your Elastic IP addresses. daAllocationIds :: Lens' DescribeAddresses [Text] -daAllocationIds = lens _daAllocationIds (\ s a -> s{_daAllocationIds = a}) . _Default . _Coerce; +daAllocationIds = lens _daAllocationIds (\ s a -> s{_daAllocationIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . daDryRun :: Lens' DescribeAddresses (Maybe Bool) -daDryRun = lens _daDryRun (\ s a -> s{_daDryRun = a}); +daDryRun = lens _daDryRun (\ s a -> s{_daDryRun = a}) instance AWSRequest DescribeAddresses where type Rs DescribeAddresses = DescribeAddressesResponse @@ -155,15 +155,15 @@ -> DescribeAddressesResponse describeAddressesResponse pResponseStatus_ = DescribeAddressesResponse' - {_darsAddresses = Nothing, _darsResponseStatus = pResponseStatus_} + {_darsAddresses = Nothing, _darsResponseStatus = pResponseStatus_} -- | Information about one or more Elastic IP addresses. darsAddresses :: Lens' DescribeAddressesResponse [Address] -darsAddresses = lens _darsAddresses (\ s a -> s{_darsAddresses = a}) . _Default . _Coerce; +darsAddresses = lens _darsAddresses (\ s a -> s{_darsAddresses = a}) . _Default . _Coerce -- | -- | The response status code. darsResponseStatus :: Lens' DescribeAddressesResponse Int -darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}); +darsResponseStatus = lens _darsResponseStatus (\ s a -> s{_darsResponseStatus = a}) instance NFData DescribeAddressesResponse where diff --git a/gen/Network/AWS/EC2/DescribeAggregateIdFormat.hs b/gen/Network/AWS/EC2/DescribeAggregateIdFormat.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeAggregateIdFormat.hs @@ -0,0 +1,144 @@ +{-# 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.DescribeAggregateIdFormat +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the longer ID format settings for all resource types in a specific region. This request is useful for performing a quick audit to determine whether a specific region is fully opted in for longer IDs (17-character IDs). +-- +-- +-- This request only returns information about resource types that support longer IDs. +-- +-- The following resource types support longer IDs: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . +-- +module Network.AWS.EC2.DescribeAggregateIdFormat + ( + -- * Creating a Request + describeAggregateIdFormat + , DescribeAggregateIdFormat + -- * Request Lenses + , daifDryRun + + -- * Destructuring the Response + , describeAggregateIdFormatResponse + , DescribeAggregateIdFormatResponse + -- * Response Lenses + , daifrsUseLongIdsAggregated + , daifrsStatuses + , daifrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeAggregateIdFormat' smart constructor. +newtype DescribeAggregateIdFormat = DescribeAggregateIdFormat' + { _daifDryRun :: Maybe Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeAggregateIdFormat' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'daifDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +describeAggregateIdFormat + :: DescribeAggregateIdFormat +describeAggregateIdFormat = DescribeAggregateIdFormat' {_daifDryRun = Nothing} + + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +daifDryRun :: Lens' DescribeAggregateIdFormat (Maybe Bool) +daifDryRun = lens _daifDryRun (\ s a -> s{_daifDryRun = a}) + +instance AWSRequest DescribeAggregateIdFormat where + type Rs DescribeAggregateIdFormat = + DescribeAggregateIdFormatResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeAggregateIdFormatResponse' <$> + (x .@? "useLongIdsAggregated") <*> + (x .@? "statusSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable DescribeAggregateIdFormat where + +instance NFData DescribeAggregateIdFormat where + +instance ToHeaders DescribeAggregateIdFormat where + toHeaders = const mempty + +instance ToPath DescribeAggregateIdFormat where + toPath = const "/" + +instance ToQuery DescribeAggregateIdFormat where + toQuery DescribeAggregateIdFormat'{..} + = mconcat + ["Action" =: + ("DescribeAggregateIdFormat" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "DryRun" =: _daifDryRun] + +-- | /See:/ 'describeAggregateIdFormatResponse' smart constructor. +data DescribeAggregateIdFormatResponse = DescribeAggregateIdFormatResponse' + { _daifrsUseLongIdsAggregated :: !(Maybe Bool) + , _daifrsStatuses :: !(Maybe [IdFormat]) + , _daifrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeAggregateIdFormatResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'daifrsUseLongIdsAggregated' - Indicates whether all resource types in the region are configured to use longer IDs. This value is only @true@ if all users are configured to use longer IDs for all resources types in the region. +-- +-- * 'daifrsStatuses' - Information about each resource's ID format. +-- +-- * 'daifrsResponseStatus' - -- | The response status code. +describeAggregateIdFormatResponse + :: Int -- ^ 'daifrsResponseStatus' + -> DescribeAggregateIdFormatResponse +describeAggregateIdFormatResponse pResponseStatus_ = + DescribeAggregateIdFormatResponse' + { _daifrsUseLongIdsAggregated = Nothing + , _daifrsStatuses = Nothing + , _daifrsResponseStatus = pResponseStatus_ + } + + +-- | Indicates whether all resource types in the region are configured to use longer IDs. This value is only @true@ if all users are configured to use longer IDs for all resources types in the region. +daifrsUseLongIdsAggregated :: Lens' DescribeAggregateIdFormatResponse (Maybe Bool) +daifrsUseLongIdsAggregated = lens _daifrsUseLongIdsAggregated (\ s a -> s{_daifrsUseLongIdsAggregated = a}) + +-- | Information about each resource's ID format. +daifrsStatuses :: Lens' DescribeAggregateIdFormatResponse [IdFormat] +daifrsStatuses = lens _daifrsStatuses (\ s a -> s{_daifrsStatuses = a}) . _Default . _Coerce + +-- | -- | The response status code. +daifrsResponseStatus :: Lens' DescribeAggregateIdFormatResponse Int +daifrsResponseStatus = lens _daifrsResponseStatus (\ s a -> s{_daifrsResponseStatus = a}) + +instance NFData DescribeAggregateIdFormatResponse + where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeAvailabilityZones --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,20 @@ :: DescribeAvailabilityZones describeAvailabilityZones = DescribeAvailabilityZones' - {_dazZoneNames = Nothing, _dazFilters = Nothing, _dazDryRun = Nothing} + {_dazZoneNames = Nothing, _dazFilters = Nothing, _dazDryRun = Nothing} -- | The names of one or more Availability Zones. dazZoneNames :: Lens' DescribeAvailabilityZones [Text] -dazZoneNames = lens _dazZoneNames (\ s a -> s{_dazZoneNames = a}) . _Default . _Coerce; +dazZoneNames = lens _dazZoneNames (\ s a -> s{_dazZoneNames = a}) . _Default . _Coerce -- | One or more filters. * @message@ - Information about the Availability Zone. * @region-name@ - The name of the region for the Availability Zone (for example, @us-east-1@ ). * @state@ - The state of the Availability Zone (@available@ | @information@ | @impaired@ | @unavailable@ ). * @zone-name@ - The name of the Availability Zone (for example, @us-east-1a@ ). dazFilters :: Lens' DescribeAvailabilityZones [Filter] -dazFilters = lens _dazFilters (\ s a -> s{_dazFilters = a}) . _Default . _Coerce; +dazFilters = lens _dazFilters (\ s a -> s{_dazFilters = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dazDryRun :: Lens' DescribeAvailabilityZones (Maybe Bool) -dazDryRun = lens _dazDryRun (\ s a -> s{_dazDryRun = a}); +dazDryRun = lens _dazDryRun (\ s a -> s{_dazDryRun = a}) instance AWSRequest DescribeAvailabilityZones where type Rs DescribeAvailabilityZones = @@ -143,16 +143,16 @@ -> DescribeAvailabilityZonesResponse describeAvailabilityZonesResponse pResponseStatus_ = DescribeAvailabilityZonesResponse' - {_dazrsAvailabilityZones = Nothing, _dazrsResponseStatus = pResponseStatus_} + {_dazrsAvailabilityZones = Nothing, _dazrsResponseStatus = pResponseStatus_} -- | Information about one or more Availability Zones. dazrsAvailabilityZones :: Lens' DescribeAvailabilityZonesResponse [AvailabilityZone] -dazrsAvailabilityZones = lens _dazrsAvailabilityZones (\ s a -> s{_dazrsAvailabilityZones = a}) . _Default . _Coerce; +dazrsAvailabilityZones = lens _dazrsAvailabilityZones (\ s a -> s{_dazrsAvailabilityZones = a}) . _Default . _Coerce -- | -- | The response status code. dazrsResponseStatus :: Lens' DescribeAvailabilityZonesResponse Int -dazrsResponseStatus = lens _dazrsResponseStatus (\ s a -> s{_dazrsResponseStatus = a}); +dazrsResponseStatus = lens _dazrsResponseStatus (\ s a -> s{_dazrsResponseStatus = a}) instance NFData DescribeAvailabilityZonesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeBundleTasks --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,20 +71,20 @@ :: DescribeBundleTasks describeBundleTasks = DescribeBundleTasks' - {_dbtBundleIds = Nothing, _dbtFilters = Nothing, _dbtDryRun = Nothing} + {_dbtBundleIds = Nothing, _dbtFilters = Nothing, _dbtDryRun = Nothing} -- | One or more bundle task IDs. Default: Describes all your bundle tasks. dbtBundleIds :: Lens' DescribeBundleTasks [Text] -dbtBundleIds = lens _dbtBundleIds (\ s a -> s{_dbtBundleIds = a}) . _Default . _Coerce; +dbtBundleIds = lens _dbtBundleIds (\ s a -> s{_dbtBundleIds = a}) . _Default . _Coerce -- | One or more filters. * @bundle-id@ - The ID of the bundle task. * @error-code@ - If the task failed, the error code returned. * @error-message@ - If the task failed, the error message returned. * @instance-id@ - The ID of the instance. * @progress@ - The level of task completion, as a percentage (for example, 20%). * @s3-bucket@ - The Amazon S3 bucket to store the AMI. * @s3-prefix@ - The beginning of the AMI name. * @start-time@ - The time the task started (for example, 2013-09-15T17:15:20.000Z). * @state@ - The state of the task (@pending@ | @waiting-for-shutdown@ | @bundling@ | @storing@ | @cancelling@ | @complete@ | @failed@ ). * @update-time@ - The time of the most recent update for the task. dbtFilters :: Lens' DescribeBundleTasks [Filter] -dbtFilters = lens _dbtFilters (\ s a -> s{_dbtFilters = a}) . _Default . _Coerce; +dbtFilters = lens _dbtFilters (\ s a -> s{_dbtFilters = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dbtDryRun :: Lens' DescribeBundleTasks (Maybe Bool) -dbtDryRun = lens _dbtDryRun (\ s a -> s{_dbtDryRun = a}); +dbtDryRun = lens _dbtDryRun (\ s a -> s{_dbtDryRun = a}) instance AWSRequest DescribeBundleTasks where type Rs DescribeBundleTasks = @@ -140,15 +140,15 @@ -> DescribeBundleTasksResponse describeBundleTasksResponse pResponseStatus_ = DescribeBundleTasksResponse' - {_dbtrsBundleTasks = Nothing, _dbtrsResponseStatus = pResponseStatus_} + {_dbtrsBundleTasks = Nothing, _dbtrsResponseStatus = pResponseStatus_} -- | Information about one or more bundle tasks. dbtrsBundleTasks :: Lens' DescribeBundleTasksResponse [BundleTask] -dbtrsBundleTasks = lens _dbtrsBundleTasks (\ s a -> s{_dbtrsBundleTasks = a}) . _Default . _Coerce; +dbtrsBundleTasks = lens _dbtrsBundleTasks (\ s a -> s{_dbtrsBundleTasks = a}) . _Default . _Coerce -- | -- | The response status code. dbtrsResponseStatus :: Lens' DescribeBundleTasksResponse Int -dbtrsResponseStatus = lens _dbtrsResponseStatus (\ s a -> s{_dbtrsResponseStatus = a}); +dbtrsResponseStatus = lens _dbtrsResponseStatus (\ s a -> s{_dbtrsResponseStatus = a}) instance NFData DescribeBundleTasksResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeClassicLinkInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -80,33 +80,33 @@ :: DescribeClassicLinkInstances describeClassicLinkInstances = DescribeClassicLinkInstances' - { _dcliFilters = Nothing - , _dcliNextToken = Nothing - , _dcliInstanceIds = Nothing - , _dcliDryRun = Nothing - , _dcliMaxResults = Nothing - } + { _dcliFilters = Nothing + , _dcliNextToken = Nothing + , _dcliInstanceIds = Nothing + , _dcliDryRun = Nothing + , _dcliMaxResults = Nothing + } -- | One or more filters. * @group-id@ - The ID of a VPC security group that's associated with the instance. * @instance-id@ - The ID of the instance. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-id@ - The ID of the VPC that the instance is linked to. dcliFilters :: Lens' DescribeClassicLinkInstances [Filter] -dcliFilters = lens _dcliFilters (\ s a -> s{_dcliFilters = a}) . _Default . _Coerce; +dcliFilters = lens _dcliFilters (\ s a -> s{_dcliFilters = a}) . _Default . _Coerce -- | The token to retrieve the next page of results. dcliNextToken :: Lens' DescribeClassicLinkInstances (Maybe Text) -dcliNextToken = lens _dcliNextToken (\ s a -> s{_dcliNextToken = a}); +dcliNextToken = lens _dcliNextToken (\ s a -> s{_dcliNextToken = a}) -- | One or more instance IDs. Must be instances linked to a VPC through ClassicLink. dcliInstanceIds :: Lens' DescribeClassicLinkInstances [Text] -dcliInstanceIds = lens _dcliInstanceIds (\ s a -> s{_dcliInstanceIds = a}) . _Default . _Coerce; +dcliInstanceIds = lens _dcliInstanceIds (\ s a -> s{_dcliInstanceIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dcliDryRun :: Lens' DescribeClassicLinkInstances (Maybe Bool) -dcliDryRun = lens _dcliDryRun (\ s a -> s{_dcliDryRun = a}); +dcliDryRun = lens _dcliDryRun (\ s a -> s{_dcliDryRun = a}) -- | The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. You cannot specify this parameter and the instance IDs parameter in the same request. Constraint: If the value is greater than 1000, we return only 1000 items. dcliMaxResults :: Lens' DescribeClassicLinkInstances (Maybe Int) -dcliMaxResults = lens _dcliMaxResults (\ s a -> s{_dcliMaxResults = a}); +dcliMaxResults = lens _dcliMaxResults (\ s a -> s{_dcliMaxResults = a}) instance AWSRequest DescribeClassicLinkInstances where @@ -171,23 +171,23 @@ -> DescribeClassicLinkInstancesResponse describeClassicLinkInstancesResponse pResponseStatus_ = DescribeClassicLinkInstancesResponse' - { _dclirsNextToken = Nothing - , _dclirsInstances = Nothing - , _dclirsResponseStatus = pResponseStatus_ - } + { _dclirsNextToken = Nothing + , _dclirsInstances = Nothing + , _dclirsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dclirsNextToken :: Lens' DescribeClassicLinkInstancesResponse (Maybe Text) -dclirsNextToken = lens _dclirsNextToken (\ s a -> s{_dclirsNextToken = a}); +dclirsNextToken = lens _dclirsNextToken (\ s a -> s{_dclirsNextToken = a}) -- | Information about one or more linked EC2-Classic instances. dclirsInstances :: Lens' DescribeClassicLinkInstancesResponse [ClassicLinkInstance] -dclirsInstances = lens _dclirsInstances (\ s a -> s{_dclirsInstances = a}) . _Default . _Coerce; +dclirsInstances = lens _dclirsInstances (\ s a -> s{_dclirsInstances = a}) . _Default . _Coerce -- | -- | The response status code. dclirsResponseStatus :: Lens' DescribeClassicLinkInstancesResponse Int -dclirsResponseStatus = lens _dclirsResponseStatus (\ s a -> s{_dclirsResponseStatus = a}); +dclirsResponseStatus = lens _dclirsResponseStatus (\ s a -> s{_dclirsResponseStatus = a}) instance NFData DescribeClassicLinkInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeConversionTasks --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,16 +69,16 @@ :: DescribeConversionTasks describeConversionTasks = DescribeConversionTasks' - {_dctConversionTaskIds = Nothing, _dctDryRun = Nothing} + {_dctConversionTaskIds = Nothing, _dctDryRun = Nothing} -- | One or more conversion task IDs. dctConversionTaskIds :: Lens' DescribeConversionTasks [Text] -dctConversionTaskIds = lens _dctConversionTaskIds (\ s a -> s{_dctConversionTaskIds = a}) . _Default . _Coerce; +dctConversionTaskIds = lens _dctConversionTaskIds (\ s a -> s{_dctConversionTaskIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dctDryRun :: Lens' DescribeConversionTasks (Maybe Bool) -dctDryRun = lens _dctDryRun (\ s a -> s{_dctDryRun = a}); +dctDryRun = lens _dctDryRun (\ s a -> s{_dctDryRun = a}) instance AWSRequest DescribeConversionTasks where type Rs DescribeConversionTasks = @@ -136,15 +136,15 @@ -> DescribeConversionTasksResponse describeConversionTasksResponse pResponseStatus_ = DescribeConversionTasksResponse' - {_dctrsConversionTasks = Nothing, _dctrsResponseStatus = pResponseStatus_} + {_dctrsConversionTasks = Nothing, _dctrsResponseStatus = pResponseStatus_} -- | Information about the conversion tasks. dctrsConversionTasks :: Lens' DescribeConversionTasksResponse [ConversionTask] -dctrsConversionTasks = lens _dctrsConversionTasks (\ s a -> s{_dctrsConversionTasks = a}) . _Default . _Coerce; +dctrsConversionTasks = lens _dctrsConversionTasks (\ s a -> s{_dctrsConversionTasks = a}) . _Default . _Coerce -- | -- | The response status code. dctrsResponseStatus :: Lens' DescribeConversionTasksResponse Int -dctrsResponseStatus = lens _dctrsResponseStatus (\ s a -> s{_dctrsResponseStatus = a}); +dctrsResponseStatus = lens _dctrsResponseStatus (\ s a -> s{_dctrsResponseStatus = a}) instance NFData DescribeConversionTasksResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeCustomerGateways --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,23 +73,23 @@ :: DescribeCustomerGateways describeCustomerGateways = DescribeCustomerGateways' - { _dcgCustomerGatewayIds = Nothing - , _dcgFilters = Nothing - , _dcgDryRun = Nothing - } + { _dcgCustomerGatewayIds = Nothing + , _dcgFilters = Nothing + , _dcgDryRun = Nothing + } -- | One or more customer gateway IDs. Default: Describes all your customer gateways. dcgCustomerGatewayIds :: Lens' DescribeCustomerGateways [Text] -dcgCustomerGatewayIds = lens _dcgCustomerGatewayIds (\ s a -> s{_dcgCustomerGatewayIds = a}) . _Default . _Coerce; +dcgCustomerGatewayIds = lens _dcgCustomerGatewayIds (\ s a -> s{_dcgCustomerGatewayIds = a}) . _Default . _Coerce -- | One or more filters. * @bgp-asn@ - The customer gateway's Border Gateway Protocol (BGP) Autonomous System Number (ASN). * @customer-gateway-id@ - The ID of the customer gateway. * @ip-address@ - The IP address of the customer gateway's Internet-routable external interface. * @state@ - The state of the customer gateway (@pending@ | @available@ | @deleting@ | @deleted@ ). * @type@ - The type of customer gateway. Currently, the only supported type is @ipsec.1@ . * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. dcgFilters :: Lens' DescribeCustomerGateways [Filter] -dcgFilters = lens _dcgFilters (\ s a -> s{_dcgFilters = a}) . _Default . _Coerce; +dcgFilters = lens _dcgFilters (\ s a -> s{_dcgFilters = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dcgDryRun :: Lens' DescribeCustomerGateways (Maybe Bool) -dcgDryRun = lens _dcgDryRun (\ s a -> s{_dcgDryRun = a}); +dcgDryRun = lens _dcgDryRun (\ s a -> s{_dcgDryRun = a}) instance AWSRequest DescribeCustomerGateways where type Rs DescribeCustomerGateways = @@ -148,16 +148,16 @@ -> DescribeCustomerGatewaysResponse describeCustomerGatewaysResponse pResponseStatus_ = DescribeCustomerGatewaysResponse' - {_dcgrsCustomerGateways = Nothing, _dcgrsResponseStatus = pResponseStatus_} + {_dcgrsCustomerGateways = Nothing, _dcgrsResponseStatus = pResponseStatus_} -- | Information about one or more customer gateways. dcgrsCustomerGateways :: Lens' DescribeCustomerGatewaysResponse [CustomerGateway] -dcgrsCustomerGateways = lens _dcgrsCustomerGateways (\ s a -> s{_dcgrsCustomerGateways = a}) . _Default . _Coerce; +dcgrsCustomerGateways = lens _dcgrsCustomerGateways (\ s a -> s{_dcgrsCustomerGateways = a}) . _Default . _Coerce -- | -- | The response status code. dcgrsResponseStatus :: Lens' DescribeCustomerGatewaysResponse Int -dcgrsResponseStatus = lens _dcgrsResponseStatus (\ s a -> s{_dcgrsResponseStatus = a}); +dcgrsResponseStatus = lens _dcgrsResponseStatus (\ s a -> s{_dcgrsResponseStatus = a}) instance NFData DescribeCustomerGatewaysResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeDHCPOptions --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,20 @@ :: DescribeDHCPOptions describeDHCPOptions = DescribeDHCPOptions' - {_ddoFilters = Nothing, _ddoDHCPOptionsIds = Nothing, _ddoDryRun = Nothing} + {_ddoFilters = Nothing, _ddoDHCPOptionsIds = Nothing, _ddoDryRun = Nothing} -- | One or more filters. * @dhcp-options-id@ - The ID of a set of DHCP options. * @key@ - The key for one of the options (for example, @domain-name@ ). * @value@ - The value for one of the options. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. ddoFilters :: Lens' DescribeDHCPOptions [Filter] -ddoFilters = lens _ddoFilters (\ s a -> s{_ddoFilters = a}) . _Default . _Coerce; +ddoFilters = lens _ddoFilters (\ s a -> s{_ddoFilters = a}) . _Default . _Coerce -- | The IDs of one or more DHCP options sets. Default: Describes all your DHCP options sets. ddoDHCPOptionsIds :: Lens' DescribeDHCPOptions [Text] -ddoDHCPOptionsIds = lens _ddoDHCPOptionsIds (\ s a -> s{_ddoDHCPOptionsIds = a}) . _Default . _Coerce; +ddoDHCPOptionsIds = lens _ddoDHCPOptionsIds (\ s a -> s{_ddoDHCPOptionsIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ddoDryRun :: Lens' DescribeDHCPOptions (Maybe Bool) -ddoDryRun = lens _ddoDryRun (\ s a -> s{_ddoDryRun = a}); +ddoDryRun = lens _ddoDryRun (\ s a -> s{_ddoDryRun = a}) instance AWSRequest DescribeDHCPOptions where type Rs DescribeDHCPOptions = @@ -143,15 +143,15 @@ -> DescribeDHCPOptionsResponse describeDHCPOptionsResponse pResponseStatus_ = DescribeDHCPOptionsResponse' - {_ddorsDHCPOptions = Nothing, _ddorsResponseStatus = pResponseStatus_} + {_ddorsDHCPOptions = Nothing, _ddorsResponseStatus = pResponseStatus_} -- | Information about one or more DHCP options sets. ddorsDHCPOptions :: Lens' DescribeDHCPOptionsResponse [DHCPOptions] -ddorsDHCPOptions = lens _ddorsDHCPOptions (\ s a -> s{_ddorsDHCPOptions = a}) . _Default . _Coerce; +ddorsDHCPOptions = lens _ddorsDHCPOptions (\ s a -> s{_ddorsDHCPOptions = a}) . _Default . _Coerce -- | -- | The response status code. ddorsResponseStatus :: Lens' DescribeDHCPOptionsResponse Int -ddorsResponseStatus = lens _ddorsResponseStatus (\ s a -> s{_ddorsResponseStatus = a}); +ddorsResponseStatus = lens _ddorsResponseStatus (\ s a -> s{_ddorsResponseStatus = a}) instance NFData DescribeDHCPOptionsResponse where diff --git a/gen/Network/AWS/EC2/DescribeEgressOnlyInternetGateways.hs b/gen/Network/AWS/EC2/DescribeEgressOnlyInternetGateways.hs --- a/gen/Network/AWS/EC2/DescribeEgressOnlyInternetGateways.hs +++ b/gen/Network/AWS/EC2/DescribeEgressOnlyInternetGateways.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeEgressOnlyInternetGateways --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,28 +72,28 @@ :: DescribeEgressOnlyInternetGateways describeEgressOnlyInternetGateways = DescribeEgressOnlyInternetGateways' - { _deoigEgressOnlyInternetGatewayIds = Nothing - , _deoigNextToken = Nothing - , _deoigDryRun = Nothing - , _deoigMaxResults = Nothing - } + { _deoigEgressOnlyInternetGatewayIds = Nothing + , _deoigNextToken = Nothing + , _deoigDryRun = Nothing + , _deoigMaxResults = Nothing + } -- | One or more egress-only Internet gateway IDs. deoigEgressOnlyInternetGatewayIds :: Lens' DescribeEgressOnlyInternetGateways [Text] -deoigEgressOnlyInternetGatewayIds = lens _deoigEgressOnlyInternetGatewayIds (\ s a -> s{_deoigEgressOnlyInternetGatewayIds = a}) . _Default . _Coerce; +deoigEgressOnlyInternetGatewayIds = lens _deoigEgressOnlyInternetGatewayIds (\ s a -> s{_deoigEgressOnlyInternetGatewayIds = a}) . _Default . _Coerce -- | The token to retrieve the next page of results. deoigNextToken :: Lens' DescribeEgressOnlyInternetGateways (Maybe Text) -deoigNextToken = lens _deoigNextToken (\ s a -> s{_deoigNextToken = a}); +deoigNextToken = lens _deoigNextToken (\ s a -> s{_deoigNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . deoigDryRun :: Lens' DescribeEgressOnlyInternetGateways (Maybe Bool) -deoigDryRun = lens _deoigDryRun (\ s a -> s{_deoigDryRun = a}); +deoigDryRun = lens _deoigDryRun (\ s a -> s{_deoigDryRun = a}) -- | The maximum number of results to return for the request in a single page. The remaining results can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. deoigMaxResults :: Lens' DescribeEgressOnlyInternetGateways (Maybe Int) -deoigMaxResults = lens _deoigMaxResults (\ s a -> s{_deoigMaxResults = a}); +deoigMaxResults = lens _deoigMaxResults (\ s a -> s{_deoigMaxResults = a}) instance AWSRequest DescribeEgressOnlyInternetGateways @@ -160,23 +160,23 @@ -> DescribeEgressOnlyInternetGatewaysResponse describeEgressOnlyInternetGatewaysResponse pResponseStatus_ = DescribeEgressOnlyInternetGatewaysResponse' - { _deoigrsEgressOnlyInternetGateways = Nothing - , _deoigrsNextToken = Nothing - , _deoigrsResponseStatus = pResponseStatus_ - } + { _deoigrsEgressOnlyInternetGateways = Nothing + , _deoigrsNextToken = Nothing + , _deoigrsResponseStatus = pResponseStatus_ + } -- | Information about the egress-only Internet gateways. deoigrsEgressOnlyInternetGateways :: Lens' DescribeEgressOnlyInternetGatewaysResponse [EgressOnlyInternetGateway] -deoigrsEgressOnlyInternetGateways = lens _deoigrsEgressOnlyInternetGateways (\ s a -> s{_deoigrsEgressOnlyInternetGateways = a}) . _Default . _Coerce; +deoigrsEgressOnlyInternetGateways = lens _deoigrsEgressOnlyInternetGateways (\ s a -> s{_deoigrsEgressOnlyInternetGateways = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. deoigrsNextToken :: Lens' DescribeEgressOnlyInternetGatewaysResponse (Maybe Text) -deoigrsNextToken = lens _deoigrsNextToken (\ s a -> s{_deoigrsNextToken = a}); +deoigrsNextToken = lens _deoigrsNextToken (\ s a -> s{_deoigrsNextToken = a}) -- | -- | The response status code. deoigrsResponseStatus :: Lens' DescribeEgressOnlyInternetGatewaysResponse Int -deoigrsResponseStatus = lens _deoigrsResponseStatus (\ s a -> s{_deoigrsResponseStatus = a}); +deoigrsResponseStatus = lens _deoigrsResponseStatus (\ s a -> s{_deoigrsResponseStatus = a}) instance NFData DescribeEgressOnlyInternetGatewaysResponse diff --git a/gen/Network/AWS/EC2/DescribeElasticGpus.hs b/gen/Network/AWS/EC2/DescribeElasticGpus.hs --- a/gen/Network/AWS/EC2/DescribeElasticGpus.hs +++ b/gen/Network/AWS/EC2/DescribeElasticGpus.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeElasticGpus --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,33 +77,33 @@ :: DescribeElasticGpus describeElasticGpus = DescribeElasticGpus' - { _degFilters = Nothing - , _degNextToken = Nothing - , _degDryRun = Nothing - , _degMaxResults = Nothing - , _degElasticGpuIds = Nothing - } + { _degFilters = Nothing + , _degNextToken = Nothing + , _degDryRun = Nothing + , _degMaxResults = Nothing + , _degElasticGpuIds = Nothing + } -- | One or more filters. * @availability-zone@ - The Availability Zone in which the Elastic GPU resides. * @elastic-gpu-health@ - The status of the Elastic GPU (@OK@ | @IMPAIRED@ ). * @elastic-gpu-state@ - The state of the Elastic GPU (@ATTACHED@ ). * @elastic-gpu-type@ - The type of Elastic GPU; for example, @eg1.medium@ . * @instance-id@ - The ID of the instance to which the Elastic GPU is associated. degFilters :: Lens' DescribeElasticGpus [Filter] -degFilters = lens _degFilters (\ s a -> s{_degFilters = a}) . _Default . _Coerce; +degFilters = lens _degFilters (\ s a -> s{_degFilters = a}) . _Default . _Coerce -- | The token to request the next page of results. degNextToken :: Lens' DescribeElasticGpus (Maybe Text) -degNextToken = lens _degNextToken (\ s a -> s{_degNextToken = a}); +degNextToken = lens _degNextToken (\ s a -> s{_degNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . degDryRun :: Lens' DescribeElasticGpus (Maybe Bool) -degDryRun = lens _degDryRun (\ s a -> s{_degDryRun = a}); +degDryRun = lens _degDryRun (\ s a -> s{_degDryRun = a}) -- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. degMaxResults :: Lens' DescribeElasticGpus (Maybe Int) -degMaxResults = lens _degMaxResults (\ s a -> s{_degMaxResults = a}); +degMaxResults = lens _degMaxResults (\ s a -> s{_degMaxResults = a}) -- | One or more Elastic GPU IDs. degElasticGpuIds :: Lens' DescribeElasticGpus [Text] -degElasticGpuIds = lens _degElasticGpuIds (\ s a -> s{_degElasticGpuIds = a}) . _Default . _Coerce; +degElasticGpuIds = lens _degElasticGpuIds (\ s a -> s{_degElasticGpuIds = a}) . _Default . _Coerce instance AWSRequest DescribeElasticGpus where type Rs DescribeElasticGpus = @@ -165,27 +165,27 @@ -> DescribeElasticGpusResponse describeElasticGpusResponse pResponseStatus_ = DescribeElasticGpusResponse' - { _degrsElasticGpuSet = Nothing - , _degrsNextToken = Nothing - , _degrsMaxResults = Nothing - , _degrsResponseStatus = pResponseStatus_ - } + { _degrsElasticGpuSet = Nothing + , _degrsNextToken = Nothing + , _degrsMaxResults = Nothing + , _degrsResponseStatus = pResponseStatus_ + } -- | Information about the Elastic GPUs. degrsElasticGpuSet :: Lens' DescribeElasticGpusResponse [ElasticGpus] -degrsElasticGpuSet = lens _degrsElasticGpuSet (\ s a -> s{_degrsElasticGpuSet = a}) . _Default . _Coerce; +degrsElasticGpuSet = lens _degrsElasticGpuSet (\ s a -> s{_degrsElasticGpuSet = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. degrsNextToken :: Lens' DescribeElasticGpusResponse (Maybe Text) -degrsNextToken = lens _degrsNextToken (\ s a -> s{_degrsNextToken = a}); +degrsNextToken = lens _degrsNextToken (\ s a -> s{_degrsNextToken = a}) -- | The total number of items to return. If the total number of items available is more than the value specified in max-items then a Next-Token will be provided in the output that you can use to resume pagination. degrsMaxResults :: Lens' DescribeElasticGpusResponse (Maybe Int) -degrsMaxResults = lens _degrsMaxResults (\ s a -> s{_degrsMaxResults = a}); +degrsMaxResults = lens _degrsMaxResults (\ s a -> s{_degrsMaxResults = a}) -- | -- | The response status code. degrsResponseStatus :: Lens' DescribeElasticGpusResponse Int -degrsResponseStatus = lens _degrsResponseStatus (\ s a -> s{_degrsResponseStatus = a}); +degrsResponseStatus = lens _degrsResponseStatus (\ s a -> s{_degrsResponseStatus = a}) instance NFData DescribeElasticGpusResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeExportTasks --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,7 +66,7 @@ -- | One or more export task IDs. detExportTaskIds :: Lens' DescribeExportTasks [Text] -detExportTaskIds = lens _detExportTaskIds (\ s a -> s{_detExportTaskIds = a}) . _Default . _Coerce; +detExportTaskIds = lens _detExportTaskIds (\ s a -> s{_detExportTaskIds = a}) . _Default . _Coerce instance AWSRequest DescribeExportTasks where type Rs DescribeExportTasks = @@ -121,15 +121,15 @@ -> DescribeExportTasksResponse describeExportTasksResponse pResponseStatus_ = DescribeExportTasksResponse' - {_detrsExportTasks = Nothing, _detrsResponseStatus = pResponseStatus_} + {_detrsExportTasks = Nothing, _detrsResponseStatus = pResponseStatus_} -- | Information about the export tasks. detrsExportTasks :: Lens' DescribeExportTasksResponse [ExportTask] -detrsExportTasks = lens _detrsExportTasks (\ s a -> s{_detrsExportTasks = a}) . _Default . _Coerce; +detrsExportTasks = lens _detrsExportTasks (\ s a -> s{_detrsExportTasks = a}) . _Default . _Coerce -- | -- | The response status code. detrsResponseStatus :: Lens' DescribeExportTasksResponse Int -detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a}); +detrsResponseStatus = lens _detrsResponseStatus (\ s a -> s{_detrsResponseStatus = a}) instance NFData DescribeExportTasksResponse where diff --git a/gen/Network/AWS/EC2/DescribeFleetHistory.hs b/gen/Network/AWS/EC2/DescribeFleetHistory.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeFleetHistory.hs @@ -0,0 +1,222 @@ +{-# 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.DescribeFleetHistory +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the events for the specified EC2 Fleet during the specified time. +-- +-- +module Network.AWS.EC2.DescribeFleetHistory + ( + -- * Creating a Request + describeFleetHistory + , DescribeFleetHistory + -- * Request Lenses + , dfhNextToken + , dfhEventType + , dfhDryRun + , dfhMaxResults + , dfhFleetId + , dfhStartTime + + -- * Destructuring the Response + , describeFleetHistoryResponse + , DescribeFleetHistoryResponse + -- * Response Lenses + , dfhrsStartTime + , dfhrsLastEvaluatedTime + , dfhrsNextToken + , dfhrsHistoryRecords + , dfhrsFleetId + , dfhrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeFleetHistory' smart constructor. +data DescribeFleetHistory = DescribeFleetHistory' + { _dfhNextToken :: !(Maybe Text) + , _dfhEventType :: !(Maybe FleetEventType) + , _dfhDryRun :: !(Maybe Bool) + , _dfhMaxResults :: !(Maybe Int) + , _dfhFleetId :: !Text + , _dfhStartTime :: !ISO8601 + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeFleetHistory' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfhNextToken' - The token for the next set of results. +-- +-- * 'dfhEventType' - The type of events to describe. By default, all events are described. +-- +-- * 'dfhDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dfhMaxResults' - The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. +-- +-- * 'dfhFleetId' - The ID of the EC2 Fleet. +-- +-- * 'dfhStartTime' - The start date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +describeFleetHistory + :: Text -- ^ 'dfhFleetId' + -> UTCTime -- ^ 'dfhStartTime' + -> DescribeFleetHistory +describeFleetHistory pFleetId_ pStartTime_ = + DescribeFleetHistory' + { _dfhNextToken = Nothing + , _dfhEventType = Nothing + , _dfhDryRun = Nothing + , _dfhMaxResults = Nothing + , _dfhFleetId = pFleetId_ + , _dfhStartTime = _Time # pStartTime_ + } + + +-- | The token for the next set of results. +dfhNextToken :: Lens' DescribeFleetHistory (Maybe Text) +dfhNextToken = lens _dfhNextToken (\ s a -> s{_dfhNextToken = a}) + +-- | The type of events to describe. By default, all events are described. +dfhEventType :: Lens' DescribeFleetHistory (Maybe FleetEventType) +dfhEventType = lens _dfhEventType (\ s a -> s{_dfhEventType = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dfhDryRun :: Lens' DescribeFleetHistory (Maybe Bool) +dfhDryRun = lens _dfhDryRun (\ s a -> s{_dfhDryRun = a}) + +-- | The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. +dfhMaxResults :: Lens' DescribeFleetHistory (Maybe Int) +dfhMaxResults = lens _dfhMaxResults (\ s a -> s{_dfhMaxResults = a}) + +-- | The ID of the EC2 Fleet. +dfhFleetId :: Lens' DescribeFleetHistory Text +dfhFleetId = lens _dfhFleetId (\ s a -> s{_dfhFleetId = a}) + +-- | The start date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +dfhStartTime :: Lens' DescribeFleetHistory UTCTime +dfhStartTime = lens _dfhStartTime (\ s a -> s{_dfhStartTime = a}) . _Time + +instance AWSRequest DescribeFleetHistory where + type Rs DescribeFleetHistory = + DescribeFleetHistoryResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeFleetHistoryResponse' <$> + (x .@? "startTime") <*> (x .@? "lastEvaluatedTime") + <*> (x .@? "nextToken") + <*> + (x .@? "historyRecordSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "fleetId") + <*> (pure (fromEnum s))) + +instance Hashable DescribeFleetHistory where + +instance NFData DescribeFleetHistory where + +instance ToHeaders DescribeFleetHistory where + toHeaders = const mempty + +instance ToPath DescribeFleetHistory where + toPath = const "/" + +instance ToQuery DescribeFleetHistory where + toQuery DescribeFleetHistory'{..} + = mconcat + ["Action" =: ("DescribeFleetHistory" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "NextToken" =: _dfhNextToken, + "EventType" =: _dfhEventType, "DryRun" =: _dfhDryRun, + "MaxResults" =: _dfhMaxResults, + "FleetId" =: _dfhFleetId, + "StartTime" =: _dfhStartTime] + +-- | /See:/ 'describeFleetHistoryResponse' smart constructor. +data DescribeFleetHistoryResponse = DescribeFleetHistoryResponse' + { _dfhrsStartTime :: !(Maybe ISO8601) + , _dfhrsLastEvaluatedTime :: !(Maybe ISO8601) + , _dfhrsNextToken :: !(Maybe Text) + , _dfhrsHistoryRecords :: !(Maybe [HistoryRecordEntry]) + , _dfhrsFleetId :: !(Maybe Text) + , _dfhrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeFleetHistoryResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfhrsStartTime' - The start date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +-- +-- * 'dfhrsLastEvaluatedTime' - The last date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). All records up to this time were retrieved. If @nextToken@ indicates that there are more results, this value is not present. +-- +-- * 'dfhrsNextToken' - The token for the next set of results. +-- +-- * 'dfhrsHistoryRecords' - Information about the events in the history of the EC2 Fleet. +-- +-- * 'dfhrsFleetId' - The ID of the EC Fleet. +-- +-- * 'dfhrsResponseStatus' - -- | The response status code. +describeFleetHistoryResponse + :: Int -- ^ 'dfhrsResponseStatus' + -> DescribeFleetHistoryResponse +describeFleetHistoryResponse pResponseStatus_ = + DescribeFleetHistoryResponse' + { _dfhrsStartTime = Nothing + , _dfhrsLastEvaluatedTime = Nothing + , _dfhrsNextToken = Nothing + , _dfhrsHistoryRecords = Nothing + , _dfhrsFleetId = Nothing + , _dfhrsResponseStatus = pResponseStatus_ + } + + +-- | The start date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +dfhrsStartTime :: Lens' DescribeFleetHistoryResponse (Maybe UTCTime) +dfhrsStartTime = lens _dfhrsStartTime (\ s a -> s{_dfhrsStartTime = a}) . mapping _Time + +-- | The last date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). All records up to this time were retrieved. If @nextToken@ indicates that there are more results, this value is not present. +dfhrsLastEvaluatedTime :: Lens' DescribeFleetHistoryResponse (Maybe UTCTime) +dfhrsLastEvaluatedTime = lens _dfhrsLastEvaluatedTime (\ s a -> s{_dfhrsLastEvaluatedTime = a}) . mapping _Time + +-- | The token for the next set of results. +dfhrsNextToken :: Lens' DescribeFleetHistoryResponse (Maybe Text) +dfhrsNextToken = lens _dfhrsNextToken (\ s a -> s{_dfhrsNextToken = a}) + +-- | Information about the events in the history of the EC2 Fleet. +dfhrsHistoryRecords :: Lens' DescribeFleetHistoryResponse [HistoryRecordEntry] +dfhrsHistoryRecords = lens _dfhrsHistoryRecords (\ s a -> s{_dfhrsHistoryRecords = a}) . _Default . _Coerce + +-- | The ID of the EC Fleet. +dfhrsFleetId :: Lens' DescribeFleetHistoryResponse (Maybe Text) +dfhrsFleetId = lens _dfhrsFleetId (\ s a -> s{_dfhrsFleetId = a}) + +-- | -- | The response status code. +dfhrsResponseStatus :: Lens' DescribeFleetHistoryResponse Int +dfhrsResponseStatus = lens _dfhrsResponseStatus (\ s a -> s{_dfhrsResponseStatus = a}) + +instance NFData DescribeFleetHistoryResponse where diff --git a/gen/Network/AWS/EC2/DescribeFleetInstances.hs b/gen/Network/AWS/EC2/DescribeFleetInstances.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeFleetInstances.hs @@ -0,0 +1,192 @@ +{-# 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.DescribeFleetInstances +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the running instances for the specified EC2 Fleet. +-- +-- +module Network.AWS.EC2.DescribeFleetInstances + ( + -- * Creating a Request + describeFleetInstances + , DescribeFleetInstances + -- * Request Lenses + , dfisFilters + , dfisNextToken + , dfisDryRun + , dfisMaxResults + , dfisFleetId + + -- * Destructuring the Response + , describeFleetInstancesResponse + , DescribeFleetInstancesResponse + -- * Response Lenses + , drsNextToken + , drsFleetId + , drsActiveInstances + , drsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeFleetInstances' smart constructor. +data DescribeFleetInstances = DescribeFleetInstances' + { _dfisFilters :: !(Maybe [Filter]) + , _dfisNextToken :: !(Maybe Text) + , _dfisDryRun :: !(Maybe Bool) + , _dfisMaxResults :: !(Maybe Int) + , _dfisFleetId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeFleetInstances' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfisFilters' - One or more filters. +-- +-- * 'dfisNextToken' - The token for the next set of results. +-- +-- * 'dfisDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dfisMaxResults' - The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. +-- +-- * 'dfisFleetId' - The ID of the EC2 Fleet. +describeFleetInstances + :: Text -- ^ 'dfisFleetId' + -> DescribeFleetInstances +describeFleetInstances pFleetId_ = + DescribeFleetInstances' + { _dfisFilters = Nothing + , _dfisNextToken = Nothing + , _dfisDryRun = Nothing + , _dfisMaxResults = Nothing + , _dfisFleetId = pFleetId_ + } + + +-- | One or more filters. +dfisFilters :: Lens' DescribeFleetInstances [Filter] +dfisFilters = lens _dfisFilters (\ s a -> s{_dfisFilters = a}) . _Default . _Coerce + +-- | The token for the next set of results. +dfisNextToken :: Lens' DescribeFleetInstances (Maybe Text) +dfisNextToken = lens _dfisNextToken (\ s a -> s{_dfisNextToken = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dfisDryRun :: Lens' DescribeFleetInstances (Maybe Bool) +dfisDryRun = lens _dfisDryRun (\ s a -> s{_dfisDryRun = a}) + +-- | The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. +dfisMaxResults :: Lens' DescribeFleetInstances (Maybe Int) +dfisMaxResults = lens _dfisMaxResults (\ s a -> s{_dfisMaxResults = a}) + +-- | The ID of the EC2 Fleet. +dfisFleetId :: Lens' DescribeFleetInstances Text +dfisFleetId = lens _dfisFleetId (\ s a -> s{_dfisFleetId = a}) + +instance AWSRequest DescribeFleetInstances where + type Rs DescribeFleetInstances = + DescribeFleetInstancesResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeFleetInstancesResponse' <$> + (x .@? "nextToken") <*> (x .@? "fleetId") <*> + (x .@? "activeInstanceSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable DescribeFleetInstances where + +instance NFData DescribeFleetInstances where + +instance ToHeaders DescribeFleetInstances where + toHeaders = const mempty + +instance ToPath DescribeFleetInstances where + toPath = const "/" + +instance ToQuery DescribeFleetInstances where + toQuery DescribeFleetInstances'{..} + = mconcat + ["Action" =: + ("DescribeFleetInstances" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dfisFilters), + "NextToken" =: _dfisNextToken, + "DryRun" =: _dfisDryRun, + "MaxResults" =: _dfisMaxResults, + "FleetId" =: _dfisFleetId] + +-- | /See:/ 'describeFleetInstancesResponse' smart constructor. +data DescribeFleetInstancesResponse = DescribeFleetInstancesResponse' + { _drsNextToken :: !(Maybe Text) + , _drsFleetId :: !(Maybe Text) + , _drsActiveInstances :: !(Maybe [ActiveInstance]) + , _drsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeFleetInstancesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'drsNextToken' - The token for the next set of results. +-- +-- * 'drsFleetId' - The ID of the EC2 Fleet. +-- +-- * 'drsActiveInstances' - The running instances. This list is refreshed periodically and might be out of date. +-- +-- * 'drsResponseStatus' - -- | The response status code. +describeFleetInstancesResponse + :: Int -- ^ 'drsResponseStatus' + -> DescribeFleetInstancesResponse +describeFleetInstancesResponse pResponseStatus_ = + DescribeFleetInstancesResponse' + { _drsNextToken = Nothing + , _drsFleetId = Nothing + , _drsActiveInstances = Nothing + , _drsResponseStatus = pResponseStatus_ + } + + +-- | The token for the next set of results. +drsNextToken :: Lens' DescribeFleetInstancesResponse (Maybe Text) +drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a}) + +-- | The ID of the EC2 Fleet. +drsFleetId :: Lens' DescribeFleetInstancesResponse (Maybe Text) +drsFleetId = lens _drsFleetId (\ s a -> s{_drsFleetId = a}) + +-- | The running instances. This list is refreshed periodically and might be out of date. +drsActiveInstances :: Lens' DescribeFleetInstancesResponse [ActiveInstance] +drsActiveInstances = lens _drsActiveInstances (\ s a -> s{_drsActiveInstances = a}) . _Default . _Coerce + +-- | -- | The response status code. +drsResponseStatus :: Lens' DescribeFleetInstancesResponse Int +drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}) + +instance NFData DescribeFleetInstancesResponse where diff --git a/gen/Network/AWS/EC2/DescribeFleets.hs b/gen/Network/AWS/EC2/DescribeFleets.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeFleets.hs @@ -0,0 +1,180 @@ +{-# 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.DescribeFleets +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the specified EC2 Fleet. +-- +-- +module Network.AWS.EC2.DescribeFleets + ( + -- * Creating a Request + describeFleets + , DescribeFleets + -- * Request Lenses + , dfsFilters + , dfsNextToken + , dfsFleetIds + , dfsDryRun + , dfsMaxResults + + -- * Destructuring the Response + , describeFleetsResponse + , DescribeFleetsResponse + -- * Response Lenses + , dfsrsNextToken + , dfsrsFleets + , dfsrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeFleets' smart constructor. +data DescribeFleets = DescribeFleets' + { _dfsFilters :: !(Maybe [Filter]) + , _dfsNextToken :: !(Maybe Text) + , _dfsFleetIds :: !(Maybe [Text]) + , _dfsDryRun :: !(Maybe Bool) + , _dfsMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeFleets' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfsFilters' - One or more filters. +-- +-- * 'dfsNextToken' - The token for the next set of results. +-- +-- * 'dfsFleetIds' - The ID of the EC2 Fleets. +-- +-- * 'dfsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dfsMaxResults' - The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. +describeFleets + :: DescribeFleets +describeFleets = + DescribeFleets' + { _dfsFilters = Nothing + , _dfsNextToken = Nothing + , _dfsFleetIds = Nothing + , _dfsDryRun = Nothing + , _dfsMaxResults = Nothing + } + + +-- | One or more filters. +dfsFilters :: Lens' DescribeFleets [Filter] +dfsFilters = lens _dfsFilters (\ s a -> s{_dfsFilters = a}) . _Default . _Coerce + +-- | The token for the next set of results. +dfsNextToken :: Lens' DescribeFleets (Maybe Text) +dfsNextToken = lens _dfsNextToken (\ s a -> s{_dfsNextToken = a}) + +-- | The ID of the EC2 Fleets. +dfsFleetIds :: Lens' DescribeFleets [Text] +dfsFleetIds = lens _dfsFleetIds (\ s a -> s{_dfsFleetIds = a}) . _Default . _Coerce + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dfsDryRun :: Lens' DescribeFleets (Maybe Bool) +dfsDryRun = lens _dfsDryRun (\ s a -> s{_dfsDryRun = a}) + +-- | The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. +dfsMaxResults :: Lens' DescribeFleets (Maybe Int) +dfsMaxResults = lens _dfsMaxResults (\ s a -> s{_dfsMaxResults = a}) + +instance AWSRequest DescribeFleets where + type Rs DescribeFleets = DescribeFleetsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeFleetsResponse' <$> + (x .@? "nextToken") <*> + (x .@? "fleetSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable DescribeFleets where + +instance NFData DescribeFleets where + +instance ToHeaders DescribeFleets where + toHeaders = const mempty + +instance ToPath DescribeFleets where + toPath = const "/" + +instance ToQuery DescribeFleets where + toQuery DescribeFleets'{..} + = mconcat + ["Action" =: ("DescribeFleets" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dfsFilters), + "NextToken" =: _dfsNextToken, + toQuery (toQueryList "FleetId" <$> _dfsFleetIds), + "DryRun" =: _dfsDryRun, + "MaxResults" =: _dfsMaxResults] + +-- | /See:/ 'describeFleetsResponse' smart constructor. +data DescribeFleetsResponse = DescribeFleetsResponse' + { _dfsrsNextToken :: !(Maybe Text) + , _dfsrsFleets :: !(Maybe [FleetData]) + , _dfsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeFleetsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfsrsNextToken' - The token for the next set of results. +-- +-- * 'dfsrsFleets' - The EC2 Fleets. +-- +-- * 'dfsrsResponseStatus' - -- | The response status code. +describeFleetsResponse + :: Int -- ^ 'dfsrsResponseStatus' + -> DescribeFleetsResponse +describeFleetsResponse pResponseStatus_ = + DescribeFleetsResponse' + { _dfsrsNextToken = Nothing + , _dfsrsFleets = Nothing + , _dfsrsResponseStatus = pResponseStatus_ + } + + +-- | The token for the next set of results. +dfsrsNextToken :: Lens' DescribeFleetsResponse (Maybe Text) +dfsrsNextToken = lens _dfsrsNextToken (\ s a -> s{_dfsrsNextToken = a}) + +-- | The EC2 Fleets. +dfsrsFleets :: Lens' DescribeFleetsResponse [FleetData] +dfsrsFleets = lens _dfsrsFleets (\ s a -> s{_dfsrsFleets = a}) . _Default . _Coerce + +-- | -- | The response status code. +dfsrsResponseStatus :: Lens' DescribeFleetsResponse Int +dfsrsResponseStatus = lens _dfsrsResponseStatus (\ s a -> s{_dfsrsResponseStatus = a}) + +instance NFData DescribeFleetsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeFlowLogs --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -76,28 +76,28 @@ :: DescribeFlowLogs describeFlowLogs = DescribeFlowLogs' - { _dNextToken = Nothing - , _dFlowLogIds = Nothing - , _dFilter = Nothing - , _dMaxResults = Nothing - } + { _dNextToken = Nothing + , _dFlowLogIds = Nothing + , _dFilter = Nothing + , _dMaxResults = Nothing + } -- | The token to retrieve the next page of results. dNextToken :: Lens' DescribeFlowLogs (Maybe Text) -dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a}); +dNextToken = lens _dNextToken (\ s a -> s{_dNextToken = a}) -- | One or more flow log IDs. dFlowLogIds :: Lens' DescribeFlowLogs [Text] -dFlowLogIds = lens _dFlowLogIds (\ s a -> s{_dFlowLogIds = a}) . _Default . _Coerce; +dFlowLogIds = lens _dFlowLogIds (\ s a -> s{_dFlowLogIds = a}) . _Default . _Coerce -- | One or more filters. * @deliver-log-status@ - The status of the logs delivery (@SUCCESS@ | @FAILED@ ). * @flow-log-id@ - The ID of the flow log. * @log-group-name@ - The name of the log group. * @resource-id@ - The ID of the VPC, subnet, or network interface. * @traffic-type@ - The type of traffic (@ACCEPT@ | @REJECT@ | @ALL@ ) dFilter :: Lens' DescribeFlowLogs [Filter] -dFilter = lens _dFilter (\ s a -> s{_dFilter = a}) . _Default . _Coerce; +dFilter = lens _dFilter (\ s a -> s{_dFilter = a}) . _Default . _Coerce -- | The maximum number of results to return for the request in a single page. The remaining results can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. You cannot specify this parameter and the flow log IDs parameter in the same request. dMaxResults :: Lens' DescribeFlowLogs (Maybe Int) -dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}); +dMaxResults = lens _dMaxResults (\ s a -> s{_dMaxResults = a}) instance AWSRequest DescribeFlowLogs where type Rs DescribeFlowLogs = DescribeFlowLogsResponse @@ -157,22 +157,22 @@ -> DescribeFlowLogsResponse describeFlowLogsResponse pResponseStatus_ = DescribeFlowLogsResponse' - { _dflsrsNextToken = Nothing - , _dflsrsFlowLogs = Nothing - , _dflsrsResponseStatus = pResponseStatus_ - } + { _dflsrsNextToken = Nothing + , _dflsrsFlowLogs = Nothing + , _dflsrsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dflsrsNextToken :: Lens' DescribeFlowLogsResponse (Maybe Text) -dflsrsNextToken = lens _dflsrsNextToken (\ s a -> s{_dflsrsNextToken = a}); +dflsrsNextToken = lens _dflsrsNextToken (\ s a -> s{_dflsrsNextToken = a}) -- | Information about the flow logs. dflsrsFlowLogs :: Lens' DescribeFlowLogsResponse [FlowLog] -dflsrsFlowLogs = lens _dflsrsFlowLogs (\ s a -> s{_dflsrsFlowLogs = a}) . _Default . _Coerce; +dflsrsFlowLogs = lens _dflsrsFlowLogs (\ s a -> s{_dflsrsFlowLogs = a}) . _Default . _Coerce -- | -- | The response status code. dflsrsResponseStatus :: Lens' DescribeFlowLogsResponse Int -dflsrsResponseStatus = lens _dflsrsResponseStatus (\ s a -> s{_dflsrsResponseStatus = a}); +dflsrsResponseStatus = lens _dflsrsResponseStatus (\ s a -> s{_dflsrsResponseStatus = a}) instance NFData DescribeFlowLogsResponse where diff --git a/gen/Network/AWS/EC2/DescribeFpgaImageAttribute.hs b/gen/Network/AWS/EC2/DescribeFpgaImageAttribute.hs --- a/gen/Network/AWS/EC2/DescribeFpgaImageAttribute.hs +++ b/gen/Network/AWS/EC2/DescribeFpgaImageAttribute.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeFpgaImageAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,23 +69,23 @@ -> DescribeFpgaImageAttribute describeFpgaImageAttribute pFpgaImageId_ pAttribute_ = DescribeFpgaImageAttribute' - { _dfiaDryRun = Nothing - , _dfiaFpgaImageId = pFpgaImageId_ - , _dfiaAttribute = pAttribute_ - } + { _dfiaDryRun = Nothing + , _dfiaFpgaImageId = pFpgaImageId_ + , _dfiaAttribute = pAttribute_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dfiaDryRun :: Lens' DescribeFpgaImageAttribute (Maybe Bool) -dfiaDryRun = lens _dfiaDryRun (\ s a -> s{_dfiaDryRun = a}); +dfiaDryRun = lens _dfiaDryRun (\ s a -> s{_dfiaDryRun = a}) -- | The ID of the AFI. dfiaFpgaImageId :: Lens' DescribeFpgaImageAttribute Text -dfiaFpgaImageId = lens _dfiaFpgaImageId (\ s a -> s{_dfiaFpgaImageId = a}); +dfiaFpgaImageId = lens _dfiaFpgaImageId (\ s a -> s{_dfiaFpgaImageId = a}) -- | The AFI attribute. dfiaAttribute :: Lens' DescribeFpgaImageAttribute FpgaImageAttributeName -dfiaAttribute = lens _dfiaAttribute (\ s a -> s{_dfiaAttribute = a}); +dfiaAttribute = lens _dfiaAttribute (\ s a -> s{_dfiaAttribute = a}) instance AWSRequest DescribeFpgaImageAttribute where type Rs DescribeFpgaImageAttribute = @@ -136,18 +136,18 @@ -> DescribeFpgaImageAttributeResponse describeFpgaImageAttributeResponse pResponseStatus_ = DescribeFpgaImageAttributeResponse' - { _dfiarsFpgaImageAttribute = Nothing - , _dfiarsResponseStatus = pResponseStatus_ - } + { _dfiarsFpgaImageAttribute = Nothing + , _dfiarsResponseStatus = pResponseStatus_ + } -- | Information about the attribute. dfiarsFpgaImageAttribute :: Lens' DescribeFpgaImageAttributeResponse (Maybe FpgaImageAttribute) -dfiarsFpgaImageAttribute = lens _dfiarsFpgaImageAttribute (\ s a -> s{_dfiarsFpgaImageAttribute = a}); +dfiarsFpgaImageAttribute = lens _dfiarsFpgaImageAttribute (\ s a -> s{_dfiarsFpgaImageAttribute = a}) -- | -- | The response status code. dfiarsResponseStatus :: Lens' DescribeFpgaImageAttributeResponse Int -dfiarsResponseStatus = lens _dfiarsResponseStatus (\ s a -> s{_dfiarsResponseStatus = a}); +dfiarsResponseStatus = lens _dfiarsResponseStatus (\ s a -> s{_dfiarsResponseStatus = a}) instance NFData DescribeFpgaImageAttributeResponse where diff --git a/gen/Network/AWS/EC2/DescribeFpgaImages.hs b/gen/Network/AWS/EC2/DescribeFpgaImages.hs --- a/gen/Network/AWS/EC2/DescribeFpgaImages.hs +++ b/gen/Network/AWS/EC2/DescribeFpgaImages.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeFpgaImages --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -27,12 +27,12 @@ describeFpgaImages , DescribeFpgaImages -- * Request Lenses - , dfisOwners - , dfisFilters - , dfisNextToken - , dfisDryRun - , dfisMaxResults - , dfisFpgaImageIds + , dfifOwners + , dfifFilters + , dfifNextToken + , dfifDryRun + , dfifMaxResults + , dfifFpgaImageIds -- * Destructuring the Response , describeFpgaImagesResponse @@ -52,12 +52,12 @@ -- | /See:/ 'describeFpgaImages' smart constructor. data DescribeFpgaImages = DescribeFpgaImages' - { _dfisOwners :: !(Maybe [Text]) - , _dfisFilters :: !(Maybe [Filter]) - , _dfisNextToken :: !(Maybe Text) - , _dfisDryRun :: !(Maybe Bool) - , _dfisMaxResults :: !(Maybe Nat) - , _dfisFpgaImageIds :: !(Maybe [Text]) + { _dfifOwners :: !(Maybe [Text]) + , _dfifFilters :: !(Maybe [Filter]) + , _dfifNextToken :: !(Maybe Text) + , _dfifDryRun :: !(Maybe Bool) + , _dfifMaxResults :: !(Maybe Nat) + , _dfifFpgaImageIds :: !(Maybe [Text]) } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -65,53 +65,53 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dfisOwners' - Filters the AFI by owner. Specify an AWS account ID, @self@ (owner is the sender of the request), or an AWS owner alias (valid values are @amazon@ | @aws-marketplace@ ). +-- * 'dfifOwners' - Filters the AFI by owner. Specify an AWS account ID, @self@ (owner is the sender of the request), or an AWS owner alias (valid values are @amazon@ | @aws-marketplace@ ). -- --- * 'dfisFilters' - One or more filters. * @create-time@ - The creation time of the AFI. * @fpga-image-id@ - The FPGA image identifier (AFI ID). * @fpga-image-global-id@ - The global FPGA image identifier (AGFI ID). * @name@ - The name of the AFI. * @owner-id@ - The AWS account ID of the AFI owner. * @product-code@ - The product code. * @shell-version@ - The version of the AWS Shell that was used to create the bitstream. * @state@ - The state of the AFI (@pending@ | @failed@ | @available@ | @unavailable@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @update-time@ - The time of the most recent update. +-- * 'dfifFilters' - One or more filters. * @create-time@ - The creation time of the AFI. * @fpga-image-id@ - The FPGA image identifier (AFI ID). * @fpga-image-global-id@ - The global FPGA image identifier (AGFI ID). * @name@ - The name of the AFI. * @owner-id@ - The AWS account ID of the AFI owner. * @product-code@ - The product code. * @shell-version@ - The version of the AWS Shell that was used to create the bitstream. * @state@ - The state of the AFI (@pending@ | @failed@ | @available@ | @unavailable@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @update-time@ - The time of the most recent update. -- --- * 'dfisNextToken' - The token to retrieve the next page of results. +-- * 'dfifNextToken' - The token to retrieve the next page of results. -- --- * 'dfisDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- * 'dfifDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'dfisMaxResults' - The maximum number of results to return in a single call. +-- * 'dfifMaxResults' - The maximum number of results to return in a single call. -- --- * 'dfisFpgaImageIds' - One or more AFI IDs. +-- * 'dfifFpgaImageIds' - One or more AFI IDs. describeFpgaImages :: DescribeFpgaImages describeFpgaImages = DescribeFpgaImages' - { _dfisOwners = Nothing - , _dfisFilters = Nothing - , _dfisNextToken = Nothing - , _dfisDryRun = Nothing - , _dfisMaxResults = Nothing - , _dfisFpgaImageIds = Nothing - } + { _dfifOwners = Nothing + , _dfifFilters = Nothing + , _dfifNextToken = Nothing + , _dfifDryRun = Nothing + , _dfifMaxResults = Nothing + , _dfifFpgaImageIds = Nothing + } -- | Filters the AFI by owner. Specify an AWS account ID, @self@ (owner is the sender of the request), or an AWS owner alias (valid values are @amazon@ | @aws-marketplace@ ). -dfisOwners :: Lens' DescribeFpgaImages [Text] -dfisOwners = lens _dfisOwners (\ s a -> s{_dfisOwners = a}) . _Default . _Coerce; +dfifOwners :: Lens' DescribeFpgaImages [Text] +dfifOwners = lens _dfifOwners (\ s a -> s{_dfifOwners = a}) . _Default . _Coerce -- | One or more filters. * @create-time@ - The creation time of the AFI. * @fpga-image-id@ - The FPGA image identifier (AFI ID). * @fpga-image-global-id@ - The global FPGA image identifier (AGFI ID). * @name@ - The name of the AFI. * @owner-id@ - The AWS account ID of the AFI owner. * @product-code@ - The product code. * @shell-version@ - The version of the AWS Shell that was used to create the bitstream. * @state@ - The state of the AFI (@pending@ | @failed@ | @available@ | @unavailable@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @update-time@ - The time of the most recent update. -dfisFilters :: Lens' DescribeFpgaImages [Filter] -dfisFilters = lens _dfisFilters (\ s a -> s{_dfisFilters = a}) . _Default . _Coerce; +dfifFilters :: Lens' DescribeFpgaImages [Filter] +dfifFilters = lens _dfifFilters (\ s a -> s{_dfifFilters = a}) . _Default . _Coerce -- | The token to retrieve the next page of results. -dfisNextToken :: Lens' DescribeFpgaImages (Maybe Text) -dfisNextToken = lens _dfisNextToken (\ s a -> s{_dfisNextToken = a}); +dfifNextToken :: Lens' DescribeFpgaImages (Maybe Text) +dfifNextToken = lens _dfifNextToken (\ s a -> s{_dfifNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -dfisDryRun :: Lens' DescribeFpgaImages (Maybe Bool) -dfisDryRun = lens _dfisDryRun (\ s a -> s{_dfisDryRun = a}); +dfifDryRun :: Lens' DescribeFpgaImages (Maybe Bool) +dfifDryRun = lens _dfifDryRun (\ s a -> s{_dfifDryRun = a}) -- | The maximum number of results to return in a single call. -dfisMaxResults :: Lens' DescribeFpgaImages (Maybe Natural) -dfisMaxResults = lens _dfisMaxResults (\ s a -> s{_dfisMaxResults = a}) . mapping _Nat; +dfifMaxResults :: Lens' DescribeFpgaImages (Maybe Natural) +dfifMaxResults = lens _dfifMaxResults (\ s a -> s{_dfifMaxResults = a}) . mapping _Nat -- | One or more AFI IDs. -dfisFpgaImageIds :: Lens' DescribeFpgaImages [Text] -dfisFpgaImageIds = lens _dfisFpgaImageIds (\ s a -> s{_dfisFpgaImageIds = a}) . _Default . _Coerce; +dfifFpgaImageIds :: Lens' DescribeFpgaImages [Text] +dfifFpgaImageIds = lens _dfifFpgaImageIds (\ s a -> s{_dfifFpgaImageIds = a}) . _Default . _Coerce instance AWSRequest DescribeFpgaImages where type Rs DescribeFpgaImages = @@ -141,13 +141,13 @@ = mconcat ["Action" =: ("DescribeFpgaImages" :: ByteString), "Version" =: ("2016-11-15" :: ByteString), - toQuery (toQueryList "Owner" <$> _dfisOwners), - toQuery (toQueryList "Filter" <$> _dfisFilters), - "NextToken" =: _dfisNextToken, - "DryRun" =: _dfisDryRun, - "MaxResults" =: _dfisMaxResults, + toQuery (toQueryList "Owner" <$> _dfifOwners), + toQuery (toQueryList "Filter" <$> _dfifFilters), + "NextToken" =: _dfifNextToken, + "DryRun" =: _dfifDryRun, + "MaxResults" =: _dfifMaxResults, toQuery - (toQueryList "FpgaImageId" <$> _dfisFpgaImageIds)] + (toQueryList "FpgaImageId" <$> _dfifFpgaImageIds)] -- | /See:/ 'describeFpgaImagesResponse' smart constructor. data DescribeFpgaImagesResponse = DescribeFpgaImagesResponse' @@ -171,22 +171,22 @@ -> DescribeFpgaImagesResponse describeFpgaImagesResponse pResponseStatus_ = DescribeFpgaImagesResponse' - { _dfirsFpgaImages = Nothing - , _dfirsNextToken = Nothing - , _dfirsResponseStatus = pResponseStatus_ - } + { _dfirsFpgaImages = Nothing + , _dfirsNextToken = Nothing + , _dfirsResponseStatus = pResponseStatus_ + } -- | Information about one or more FPGA images. dfirsFpgaImages :: Lens' DescribeFpgaImagesResponse [FpgaImage] -dfirsFpgaImages = lens _dfirsFpgaImages (\ s a -> s{_dfirsFpgaImages = a}) . _Default . _Coerce; +dfirsFpgaImages = lens _dfirsFpgaImages (\ s a -> s{_dfirsFpgaImages = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dfirsNextToken :: Lens' DescribeFpgaImagesResponse (Maybe Text) -dfirsNextToken = lens _dfirsNextToken (\ s a -> s{_dfirsNextToken = a}); +dfirsNextToken = lens _dfirsNextToken (\ s a -> s{_dfirsNextToken = a}) -- | -- | The response status code. dfirsResponseStatus :: Lens' DescribeFpgaImagesResponse Int -dfirsResponseStatus = lens _dfirsResponseStatus (\ s a -> s{_dfirsResponseStatus = a}); +dfirsResponseStatus = lens _dfirsResponseStatus (\ s a -> s{_dfirsResponseStatus = a}) instance NFData DescribeFpgaImagesResponse where diff --git a/gen/Network/AWS/EC2/DescribeHostReservationOfferings.hs b/gen/Network/AWS/EC2/DescribeHostReservationOfferings.hs --- a/gen/Network/AWS/EC2/DescribeHostReservationOfferings.hs +++ b/gen/Network/AWS/EC2/DescribeHostReservationOfferings.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeHostReservationOfferings --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -82,38 +82,38 @@ :: DescribeHostReservationOfferings describeHostReservationOfferings = DescribeHostReservationOfferings' - { _dhroMaxDuration = Nothing - , _dhroNextToken = Nothing - , _dhroMinDuration = Nothing - , _dhroOfferingId = Nothing - , _dhroFilter = Nothing - , _dhroMaxResults = Nothing - } + { _dhroMaxDuration = Nothing + , _dhroNextToken = Nothing + , _dhroMinDuration = Nothing + , _dhroOfferingId = Nothing + , _dhroFilter = Nothing + , _dhroMaxResults = Nothing + } -- | This is the maximum duration of the reservation you'd like to purchase, specified in seconds. Reservations are available in one-year and three-year terms. The number of seconds specified must be the number of seconds in a year (365x24x60x60) times one of the supported durations (1 or 3). For example, specify 94608000 for three years. dhroMaxDuration :: Lens' DescribeHostReservationOfferings (Maybe Int) -dhroMaxDuration = lens _dhroMaxDuration (\ s a -> s{_dhroMaxDuration = a}); +dhroMaxDuration = lens _dhroMaxDuration (\ s a -> s{_dhroMaxDuration = a}) -- | The token to use to retrieve the next page of results. dhroNextToken :: Lens' DescribeHostReservationOfferings (Maybe Text) -dhroNextToken = lens _dhroNextToken (\ s a -> s{_dhroNextToken = a}); +dhroNextToken = lens _dhroNextToken (\ s a -> s{_dhroNextToken = a}) -- | This is the minimum duration of the reservation you'd like to purchase, specified in seconds. Reservations are available in one-year and three-year terms. The number of seconds specified must be the number of seconds in a year (365x24x60x60) times one of the supported durations (1 or 3). For example, specify 31536000 for one year. dhroMinDuration :: Lens' DescribeHostReservationOfferings (Maybe Int) -dhroMinDuration = lens _dhroMinDuration (\ s a -> s{_dhroMinDuration = a}); +dhroMinDuration = lens _dhroMinDuration (\ s a -> s{_dhroMinDuration = a}) -- | The ID of the reservation offering. dhroOfferingId :: Lens' DescribeHostReservationOfferings (Maybe Text) -dhroOfferingId = lens _dhroOfferingId (\ s a -> s{_dhroOfferingId = a}); +dhroOfferingId = lens _dhroOfferingId (\ s a -> s{_dhroOfferingId = a}) -- | One or more filters. * @instance-family@ - The instance family of the offering (e.g., @m4@ ). * @payment-option@ - The payment option (@NoUpfront@ | @PartialUpfront@ | @AllUpfront@ ). dhroFilter :: Lens' DescribeHostReservationOfferings [Filter] -dhroFilter = lens _dhroFilter (\ s a -> s{_dhroFilter = a}) . _Default . _Coerce; +dhroFilter = lens _dhroFilter (\ s a -> s{_dhroFilter = a}) . _Default . _Coerce -- | The maximum number of results to return for the request in a single page. The remaining results can be seen by sending another request with the returned @nextToken@ value. This value can be between 5 and 500; if @maxResults@ is given a larger value than 500, you will receive an error. dhroMaxResults :: Lens' DescribeHostReservationOfferings (Maybe Int) -dhroMaxResults = lens _dhroMaxResults (\ s a -> s{_dhroMaxResults = a}); +dhroMaxResults = lens _dhroMaxResults (\ s a -> s{_dhroMaxResults = a}) instance AWSRequest DescribeHostReservationOfferings where @@ -179,23 +179,23 @@ -> DescribeHostReservationOfferingsResponse describeHostReservationOfferingsResponse pResponseStatus_ = DescribeHostReservationOfferingsResponse' - { _dhrorsOfferingSet = Nothing - , _dhrorsNextToken = Nothing - , _dhrorsResponseStatus = pResponseStatus_ - } + { _dhrorsOfferingSet = Nothing + , _dhrorsNextToken = Nothing + , _dhrorsResponseStatus = pResponseStatus_ + } -- | Information about the offerings. dhrorsOfferingSet :: Lens' DescribeHostReservationOfferingsResponse [HostOffering] -dhrorsOfferingSet = lens _dhrorsOfferingSet (\ s a -> s{_dhrorsOfferingSet = a}) . _Default . _Coerce; +dhrorsOfferingSet = lens _dhrorsOfferingSet (\ s a -> s{_dhrorsOfferingSet = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dhrorsNextToken :: Lens' DescribeHostReservationOfferingsResponse (Maybe Text) -dhrorsNextToken = lens _dhrorsNextToken (\ s a -> s{_dhrorsNextToken = a}); +dhrorsNextToken = lens _dhrorsNextToken (\ s a -> s{_dhrorsNextToken = a}) -- | -- | The response status code. dhrorsResponseStatus :: Lens' DescribeHostReservationOfferingsResponse Int -dhrorsResponseStatus = lens _dhrorsResponseStatus (\ s a -> s{_dhrorsResponseStatus = a}); +dhrorsResponseStatus = lens _dhrorsResponseStatus (\ s a -> s{_dhrorsResponseStatus = a}) instance NFData DescribeHostReservationOfferingsResponse diff --git a/gen/Network/AWS/EC2/DescribeHostReservations.hs b/gen/Network/AWS/EC2/DescribeHostReservations.hs --- a/gen/Network/AWS/EC2/DescribeHostReservations.hs +++ b/gen/Network/AWS/EC2/DescribeHostReservations.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeHostReservations --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,28 +72,28 @@ :: DescribeHostReservations describeHostReservations = DescribeHostReservations' - { _dhrNextToken = Nothing - , _dhrHostReservationIdSet = Nothing - , _dhrFilter = Nothing - , _dhrMaxResults = Nothing - } + { _dhrNextToken = Nothing + , _dhrHostReservationIdSet = Nothing + , _dhrFilter = Nothing + , _dhrMaxResults = Nothing + } -- | The token to use to retrieve the next page of results. dhrNextToken :: Lens' DescribeHostReservations (Maybe Text) -dhrNextToken = lens _dhrNextToken (\ s a -> s{_dhrNextToken = a}); +dhrNextToken = lens _dhrNextToken (\ s a -> s{_dhrNextToken = a}) -- | One or more host reservation IDs. dhrHostReservationIdSet :: Lens' DescribeHostReservations [Text] -dhrHostReservationIdSet = lens _dhrHostReservationIdSet (\ s a -> s{_dhrHostReservationIdSet = a}) . _Default . _Coerce; +dhrHostReservationIdSet = lens _dhrHostReservationIdSet (\ s a -> s{_dhrHostReservationIdSet = a}) . _Default . _Coerce -- | One or more filters. * @instance-family@ - The instance family (e.g., @m4@ ). * @payment-option@ - The payment option (@NoUpfront@ | @PartialUpfront@ | @AllUpfront@ ). * @state@ - The state of the reservation (@payment-pending@ | @payment-failed@ | @active@ | @retired@ ). dhrFilter :: Lens' DescribeHostReservations [Filter] -dhrFilter = lens _dhrFilter (\ s a -> s{_dhrFilter = a}) . _Default . _Coerce; +dhrFilter = lens _dhrFilter (\ s a -> s{_dhrFilter = a}) . _Default . _Coerce -- | The maximum number of results to return for the request in a single page. The remaining results can be seen by sending another request with the returned @nextToken@ value. This value can be between 5 and 500; if @maxResults@ is given a larger value than 500, you will receive an error. dhrMaxResults :: Lens' DescribeHostReservations (Maybe Int) -dhrMaxResults = lens _dhrMaxResults (\ s a -> s{_dhrMaxResults = a}); +dhrMaxResults = lens _dhrMaxResults (\ s a -> s{_dhrMaxResults = a}) instance AWSRequest DescribeHostReservations where type Rs DescribeHostReservations = @@ -153,23 +153,23 @@ -> DescribeHostReservationsResponse describeHostReservationsResponse pResponseStatus_ = DescribeHostReservationsResponse' - { _dhrrsNextToken = Nothing - , _dhrrsHostReservationSet = Nothing - , _dhrrsResponseStatus = pResponseStatus_ - } + { _dhrrsNextToken = Nothing + , _dhrrsHostReservationSet = Nothing + , _dhrrsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dhrrsNextToken :: Lens' DescribeHostReservationsResponse (Maybe Text) -dhrrsNextToken = lens _dhrrsNextToken (\ s a -> s{_dhrrsNextToken = a}); +dhrrsNextToken = lens _dhrrsNextToken (\ s a -> s{_dhrrsNextToken = a}) -- | Details about the reservation's configuration. dhrrsHostReservationSet :: Lens' DescribeHostReservationsResponse [HostReservation] -dhrrsHostReservationSet = lens _dhrrsHostReservationSet (\ s a -> s{_dhrrsHostReservationSet = a}) . _Default . _Coerce; +dhrrsHostReservationSet = lens _dhrrsHostReservationSet (\ s a -> s{_dhrrsHostReservationSet = a}) . _Default . _Coerce -- | -- | The response status code. dhrrsResponseStatus :: Lens' DescribeHostReservationsResponse Int -dhrrsResponseStatus = lens _dhrrsResponseStatus (\ s a -> s{_dhrrsResponseStatus = a}); +dhrrsResponseStatus = lens _dhrrsResponseStatus (\ s a -> s{_dhrrsResponseStatus = a}) instance NFData DescribeHostReservationsResponse where diff --git a/gen/Network/AWS/EC2/DescribeHosts.hs b/gen/Network/AWS/EC2/DescribeHosts.hs --- a/gen/Network/AWS/EC2/DescribeHosts.hs +++ b/gen/Network/AWS/EC2/DescribeHosts.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeHosts --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,7 +69,7 @@ -- -- * 'dhNextToken' - The token to retrieve the next page of results. -- --- * 'dhFilter' - One or more filters. * @instance-type@ - The instance type size that the Dedicated Host is configured to support. * @auto-placement@ - Whether auto-placement is enabled or disabled (@on@ | @off@ ). * @host-reservation-id@ - The ID of the reservation assigned to this host. * @client-token@ - The idempotency token you provided when you launched the instance * @state@ - The allocation state of the Dedicated Host (@available@ | @under-assessment@ | @permanent-failure@ | @released@ | @released-permanent-failure@ ). * @availability-zone@ - The Availability Zone of the host. +-- * 'dhFilter' - One or more filters. * @auto-placement@ - Whether auto-placement is enabled or disabled (@on@ | @off@ ). * @availability-zone@ - The Availability Zone of the host. * @client-token@ - The idempotency token you provided when you allocated the host. * @host-reservation-id@ - The ID of the reservation assigned to this host. * @instance-type@ - The instance type size that the Dedicated Host is configured to support. * @state@ - The allocation state of the Dedicated Host (@available@ | @under-assessment@ | @permanent-failure@ | @released@ | @released-permanent-failure@ ). -- -- * 'dhHostIds' - The IDs of the Dedicated Hosts. The IDs are used for targeted instance launches. -- @@ -78,28 +78,28 @@ :: DescribeHosts describeHosts = DescribeHosts' - { _dhNextToken = Nothing - , _dhFilter = Nothing - , _dhHostIds = Nothing - , _dhMaxResults = Nothing - } + { _dhNextToken = Nothing + , _dhFilter = Nothing + , _dhHostIds = Nothing + , _dhMaxResults = Nothing + } -- | The token to retrieve the next page of results. dhNextToken :: Lens' DescribeHosts (Maybe Text) -dhNextToken = lens _dhNextToken (\ s a -> s{_dhNextToken = a}); +dhNextToken = lens _dhNextToken (\ s a -> s{_dhNextToken = a}) --- | One or more filters. * @instance-type@ - The instance type size that the Dedicated Host is configured to support. * @auto-placement@ - Whether auto-placement is enabled or disabled (@on@ | @off@ ). * @host-reservation-id@ - The ID of the reservation assigned to this host. * @client-token@ - The idempotency token you provided when you launched the instance * @state@ - The allocation state of the Dedicated Host (@available@ | @under-assessment@ | @permanent-failure@ | @released@ | @released-permanent-failure@ ). * @availability-zone@ - The Availability Zone of the host. +-- | One or more filters. * @auto-placement@ - Whether auto-placement is enabled or disabled (@on@ | @off@ ). * @availability-zone@ - The Availability Zone of the host. * @client-token@ - The idempotency token you provided when you allocated the host. * @host-reservation-id@ - The ID of the reservation assigned to this host. * @instance-type@ - The instance type size that the Dedicated Host is configured to support. * @state@ - The allocation state of the Dedicated Host (@available@ | @under-assessment@ | @permanent-failure@ | @released@ | @released-permanent-failure@ ). dhFilter :: Lens' DescribeHosts [Filter] -dhFilter = lens _dhFilter (\ s a -> s{_dhFilter = a}) . _Default . _Coerce; +dhFilter = lens _dhFilter (\ s a -> s{_dhFilter = a}) . _Default . _Coerce -- | The IDs of the Dedicated Hosts. The IDs are used for targeted instance launches. dhHostIds :: Lens' DescribeHosts [Text] -dhHostIds = lens _dhHostIds (\ s a -> s{_dhHostIds = a}) . _Default . _Coerce; +dhHostIds = lens _dhHostIds (\ s a -> s{_dhHostIds = a}) . _Default . _Coerce -- | The maximum number of results to return for the request in a single page. The remaining results can be seen by sending another request with the returned @nextToken@ value. This value can be between 5 and 500; if @maxResults@ is given a larger value than 500, you will receive an error. You cannot specify this parameter and the host IDs parameter in the same request. dhMaxResults :: Lens' DescribeHosts (Maybe Int) -dhMaxResults = lens _dhMaxResults (\ s a -> s{_dhMaxResults = a}); +dhMaxResults = lens _dhMaxResults (\ s a -> s{_dhMaxResults = a}) instance AWSRequest DescribeHosts where type Rs DescribeHosts = DescribeHostsResponse @@ -159,22 +159,22 @@ -> DescribeHostsResponse describeHostsResponse pResponseStatus_ = DescribeHostsResponse' - { _dhrsHosts = Nothing - , _dhrsNextToken = Nothing - , _dhrsResponseStatus = pResponseStatus_ - } + { _dhrsHosts = Nothing + , _dhrsNextToken = Nothing + , _dhrsResponseStatus = pResponseStatus_ + } -- | Information about the Dedicated Hosts. dhrsHosts :: Lens' DescribeHostsResponse [Host] -dhrsHosts = lens _dhrsHosts (\ s a -> s{_dhrsHosts = a}) . _Default . _Coerce; +dhrsHosts = lens _dhrsHosts (\ s a -> s{_dhrsHosts = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dhrsNextToken :: Lens' DescribeHostsResponse (Maybe Text) -dhrsNextToken = lens _dhrsNextToken (\ s a -> s{_dhrsNextToken = a}); +dhrsNextToken = lens _dhrsNextToken (\ s a -> s{_dhrsNextToken = a}) -- | -- | The response status code. dhrsResponseStatus :: Lens' DescribeHostsResponse Int -dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a}); +dhrsResponseStatus = lens _dhrsResponseStatus (\ s a -> s{_dhrsResponseStatus = a}) instance NFData DescribeHostsResponse where diff --git a/gen/Network/AWS/EC2/DescribeIAMInstanceProfileAssociations.hs b/gen/Network/AWS/EC2/DescribeIAMInstanceProfileAssociations.hs --- a/gen/Network/AWS/EC2/DescribeIAMInstanceProfileAssociations.hs +++ b/gen/Network/AWS/EC2/DescribeIAMInstanceProfileAssociations.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeIAMInstanceProfileAssociations --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,8 @@ -- Describes your IAM instance profile associations. -- -- +-- +-- This operation returns paginated results. module Network.AWS.EC2.DescribeIAMInstanceProfileAssociations ( -- * Creating a Request @@ -44,6 +46,7 @@ import Network.AWS.EC2.Types import Network.AWS.EC2.Types.Product import Network.AWS.Lens +import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response @@ -72,29 +75,39 @@ :: DescribeIAMInstanceProfileAssociations describeIAMInstanceProfileAssociations = DescribeIAMInstanceProfileAssociations' - { _diapaFilters = Nothing - , _diapaNextToken = Nothing - , _diapaAssociationIds = Nothing - , _diapaMaxResults = Nothing - } + { _diapaFilters = Nothing + , _diapaNextToken = Nothing + , _diapaAssociationIds = Nothing + , _diapaMaxResults = Nothing + } -- | One or more filters. * @instance-id@ - The ID of the instance. * @state@ - The state of the association (@associating@ | @associated@ | @disassociating@ | @disassociated@ ). diapaFilters :: Lens' DescribeIAMInstanceProfileAssociations [Filter] -diapaFilters = lens _diapaFilters (\ s a -> s{_diapaFilters = a}) . _Default . _Coerce; +diapaFilters = lens _diapaFilters (\ s a -> s{_diapaFilters = a}) . _Default . _Coerce -- | The token to request the next page of results. diapaNextToken :: Lens' DescribeIAMInstanceProfileAssociations (Maybe Text) -diapaNextToken = lens _diapaNextToken (\ s a -> s{_diapaNextToken = a}); +diapaNextToken = lens _diapaNextToken (\ s a -> s{_diapaNextToken = a}) -- | One or more IAM instance profile associations. diapaAssociationIds :: Lens' DescribeIAMInstanceProfileAssociations [Text] -diapaAssociationIds = lens _diapaAssociationIds (\ s a -> s{_diapaAssociationIds = a}) . _Default . _Coerce; +diapaAssociationIds = lens _diapaAssociationIds (\ s a -> s{_diapaAssociationIds = a}) . _Default . _Coerce -- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. diapaMaxResults :: Lens' DescribeIAMInstanceProfileAssociations (Maybe Natural) -diapaMaxResults = lens _diapaMaxResults (\ s a -> s{_diapaMaxResults = a}) . mapping _Nat; +diapaMaxResults = lens _diapaMaxResults (\ s a -> s{_diapaMaxResults = a}) . mapping _Nat +instance AWSPager + DescribeIAMInstanceProfileAssociations + where + page rq rs + | stop (rs ^. diaparsNextToken) = Nothing + | stop (rs ^. diaparsIAMInstanceProfileAssociations) + = Nothing + | otherwise = + Just $ rq & diapaNextToken .~ rs ^. diaparsNextToken + instance AWSRequest DescribeIAMInstanceProfileAssociations where @@ -166,23 +179,23 @@ -> DescribeIAMInstanceProfileAssociationsResponse describeIAMInstanceProfileAssociationsResponse pResponseStatus_ = DescribeIAMInstanceProfileAssociationsResponse' - { _diaparsIAMInstanceProfileAssociations = Nothing - , _diaparsNextToken = Nothing - , _diaparsResponseStatus = pResponseStatus_ - } + { _diaparsIAMInstanceProfileAssociations = Nothing + , _diaparsNextToken = Nothing + , _diaparsResponseStatus = pResponseStatus_ + } -- | Information about one or more IAM instance profile associations. diaparsIAMInstanceProfileAssociations :: Lens' DescribeIAMInstanceProfileAssociationsResponse [IAMInstanceProfileAssociation] -diaparsIAMInstanceProfileAssociations = lens _diaparsIAMInstanceProfileAssociations (\ s a -> s{_diaparsIAMInstanceProfileAssociations = a}) . _Default . _Coerce; +diaparsIAMInstanceProfileAssociations = lens _diaparsIAMInstanceProfileAssociations (\ s a -> s{_diaparsIAMInstanceProfileAssociations = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. diaparsNextToken :: Lens' DescribeIAMInstanceProfileAssociationsResponse (Maybe Text) -diaparsNextToken = lens _diaparsNextToken (\ s a -> s{_diaparsNextToken = a}); +diaparsNextToken = lens _diaparsNextToken (\ s a -> s{_diaparsNextToken = a}) -- | -- | The response status code. diaparsResponseStatus :: Lens' DescribeIAMInstanceProfileAssociationsResponse Int -diaparsResponseStatus = lens _diaparsResponseStatus (\ s a -> s{_diaparsResponseStatus = a}); +diaparsResponseStatus = lens _diaparsResponseStatus (\ s a -> s{_diaparsResponseStatus = a}) instance NFData DescribeIAMInstanceProfileAssociationsResponse diff --git a/gen/Network/AWS/EC2/DescribeIdFormat.hs b/gen/Network/AWS/EC2/DescribeIdFormat.hs --- a/gen/Network/AWS/EC2/DescribeIdFormat.hs +++ b/gen/Network/AWS/EC2/DescribeIdFormat.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeIdFormat --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,7 +21,7 @@ -- Describes the ID format settings for your resources on a per-region basis, for example, to view which resource types are enabled for longer IDs. This request only returns information about resource types whose ID formats can be modified; it does not return information about other resource types. -- -- --- The following resource types support longer IDs: @instance@ | @reservation@ | @snapshot@ | @volume@ . +-- The following resource types support longer IDs: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . -- -- These settings apply to the IAM user who makes the request; they do not apply to the entire AWS account. By default, an IAM user defaults to the same settings as the root user, unless they explicitly override the settings by running the 'ModifyIdFormat' command. Resources created with longer IDs are visible to all IAM users, regardless of these settings and provided that they have permission to use the relevant @Describe@ command for the resource type. -- @@ -62,15 +62,15 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'difResource' - The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- * 'difResource' - The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ describeIdFormat :: DescribeIdFormat describeIdFormat = DescribeIdFormat' {_difResource = Nothing} --- | The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- | The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ difResource :: Lens' DescribeIdFormat (Maybe Text) -difResource = lens _difResource (\ s a -> s{_difResource = a}); +difResource = lens _difResource (\ s a -> s{_difResource = a}) instance AWSRequest DescribeIdFormat where type Rs DescribeIdFormat = DescribeIdFormatResponse @@ -123,15 +123,15 @@ -> DescribeIdFormatResponse describeIdFormatResponse pResponseStatus_ = DescribeIdFormatResponse' - {_difrsStatuses = Nothing, _difrsResponseStatus = pResponseStatus_} + {_difrsStatuses = Nothing, _difrsResponseStatus = pResponseStatus_} -- | Information about the ID format for the resource. difrsStatuses :: Lens' DescribeIdFormatResponse [IdFormat] -difrsStatuses = lens _difrsStatuses (\ s a -> s{_difrsStatuses = a}) . _Default . _Coerce; +difrsStatuses = lens _difrsStatuses (\ s a -> s{_difrsStatuses = a}) . _Default . _Coerce -- | -- | The response status code. difrsResponseStatus :: Lens' DescribeIdFormatResponse Int -difrsResponseStatus = lens _difrsResponseStatus (\ s a -> s{_difrsResponseStatus = a}); +difrsResponseStatus = lens _difrsResponseStatus (\ s a -> s{_difrsResponseStatus = a}) instance NFData DescribeIdFormatResponse where diff --git a/gen/Network/AWS/EC2/DescribeIdentityIdFormat.hs b/gen/Network/AWS/EC2/DescribeIdentityIdFormat.hs --- a/gen/Network/AWS/EC2/DescribeIdentityIdFormat.hs +++ b/gen/Network/AWS/EC2/DescribeIdentityIdFormat.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeIdentityIdFormat --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,7 +21,7 @@ -- Describes the ID format settings for resources for the specified IAM user, IAM role, or root user. For example, you can view the resource types that are enabled for longer IDs. This request only returns information about resource types whose ID formats can be modified; it does not return information about other resource types. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- -- --- The following resource types support longer IDs: @instance@ | @reservation@ | @snapshot@ | @volume@ . +-- The following resource types support longer IDs: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . -- -- These settings apply to the principal specified in the request. They do not apply to the principal that makes the request. -- @@ -64,7 +64,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'diifResource' - The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- * 'diifResource' - The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ -- -- * 'diifPrincipalARN' - The ARN of the principal, which can be an IAM role, IAM user, or the root user. describeIdentityIdFormat @@ -72,16 +72,16 @@ -> DescribeIdentityIdFormat describeIdentityIdFormat pPrincipalARN_ = DescribeIdentityIdFormat' - {_diifResource = Nothing, _diifPrincipalARN = pPrincipalARN_} + {_diifResource = Nothing, _diifPrincipalARN = pPrincipalARN_} --- | The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- | The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ diifResource :: Lens' DescribeIdentityIdFormat (Maybe Text) -diifResource = lens _diifResource (\ s a -> s{_diifResource = a}); +diifResource = lens _diifResource (\ s a -> s{_diifResource = a}) -- | The ARN of the principal, which can be an IAM role, IAM user, or the root user. diifPrincipalARN :: Lens' DescribeIdentityIdFormat Text -diifPrincipalARN = lens _diifPrincipalARN (\ s a -> s{_diifPrincipalARN = a}); +diifPrincipalARN = lens _diifPrincipalARN (\ s a -> s{_diifPrincipalARN = a}) instance AWSRequest DescribeIdentityIdFormat where type Rs DescribeIdentityIdFormat = @@ -137,16 +137,16 @@ -> DescribeIdentityIdFormatResponse describeIdentityIdFormatResponse pResponseStatus_ = DescribeIdentityIdFormatResponse' - {_diifrsStatuses = Nothing, _diifrsResponseStatus = pResponseStatus_} + {_diifrsStatuses = Nothing, _diifrsResponseStatus = pResponseStatus_} -- | Information about the ID format for the resources. diifrsStatuses :: Lens' DescribeIdentityIdFormatResponse [IdFormat] -diifrsStatuses = lens _diifrsStatuses (\ s a -> s{_diifrsStatuses = a}) . _Default . _Coerce; +diifrsStatuses = lens _diifrsStatuses (\ s a -> s{_diifrsStatuses = a}) . _Default . _Coerce -- | -- | The response status code. diifrsResponseStatus :: Lens' DescribeIdentityIdFormatResponse Int -diifrsResponseStatus = lens _diifrsResponseStatus (\ s a -> s{_diifrsResponseStatus = a}); +diifrsResponseStatus = lens _diifrsResponseStatus (\ s a -> s{_diifrsResponseStatus = a}) instance NFData DescribeIdentityIdFormatResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeImageAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -80,23 +80,23 @@ -> DescribeImageAttribute describeImageAttribute pAttribute_ pImageId_ = DescribeImageAttribute' - { _diaiDryRun = Nothing - , _diaiAttribute = pAttribute_ - , _diaiImageId = pImageId_ - } + { _diaiDryRun = Nothing + , _diaiAttribute = pAttribute_ + , _diaiImageId = pImageId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . diaiDryRun :: Lens' DescribeImageAttribute (Maybe Bool) -diaiDryRun = lens _diaiDryRun (\ s a -> s{_diaiDryRun = a}); +diaiDryRun = lens _diaiDryRun (\ s a -> s{_diaiDryRun = a}) -- | The AMI attribute. __Note__ : Depending on your account privileges, the @blockDeviceMapping@ attribute may return a @Client.AuthFailure@ error. If this happens, use 'DescribeImages' to get information about the block device mapping for the AMI. diaiAttribute :: Lens' DescribeImageAttribute ImageAttributeName -diaiAttribute = lens _diaiAttribute (\ s a -> s{_diaiAttribute = a}); +diaiAttribute = lens _diaiAttribute (\ s a -> s{_diaiAttribute = a}) -- | The ID of the AMI. diaiImageId :: Lens' DescribeImageAttribute Text -diaiImageId = lens _diaiImageId (\ s a -> s{_diaiImageId = a}); +diaiImageId = lens _diaiImageId (\ s a -> s{_diaiImageId = a}) instance AWSRequest DescribeImageAttribute where type Rs DescribeImageAttribute = @@ -185,52 +185,52 @@ -> DescribeImageAttributeResponse describeImageAttributeResponse pResponseStatus_ = DescribeImageAttributeResponse' - { _diarsLaunchPermissions = Nothing - , _diarsRAMDiskId = Nothing - , _diarsKernelId = Nothing - , _diarsSRIOVNetSupport = Nothing - , _diarsImageId = Nothing - , _diarsProductCodes = Nothing - , _diarsDescription = Nothing - , _diarsBlockDeviceMappings = Nothing - , _diarsResponseStatus = pResponseStatus_ - } + { _diarsLaunchPermissions = Nothing + , _diarsRAMDiskId = Nothing + , _diarsKernelId = Nothing + , _diarsSRIOVNetSupport = Nothing + , _diarsImageId = Nothing + , _diarsProductCodes = Nothing + , _diarsDescription = Nothing + , _diarsBlockDeviceMappings = Nothing + , _diarsResponseStatus = pResponseStatus_ + } -- | One or more launch permissions. diarsLaunchPermissions :: Lens' DescribeImageAttributeResponse [LaunchPermission] -diarsLaunchPermissions = lens _diarsLaunchPermissions (\ s a -> s{_diarsLaunchPermissions = a}) . _Default . _Coerce; +diarsLaunchPermissions = lens _diarsLaunchPermissions (\ s a -> s{_diarsLaunchPermissions = a}) . _Default . _Coerce -- | The RAM disk ID. diarsRAMDiskId :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue) -diarsRAMDiskId = lens _diarsRAMDiskId (\ s a -> s{_diarsRAMDiskId = a}); +diarsRAMDiskId = lens _diarsRAMDiskId (\ s a -> s{_diarsRAMDiskId = a}) -- | The kernel ID. diarsKernelId :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue) -diarsKernelId = lens _diarsKernelId (\ s a -> s{_diarsKernelId = a}); +diarsKernelId = lens _diarsKernelId (\ s a -> s{_diarsKernelId = a}) -- | Indicates whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. diarsSRIOVNetSupport :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue) -diarsSRIOVNetSupport = lens _diarsSRIOVNetSupport (\ s a -> s{_diarsSRIOVNetSupport = a}); +diarsSRIOVNetSupport = lens _diarsSRIOVNetSupport (\ s a -> s{_diarsSRIOVNetSupport = a}) -- | The ID of the AMI. diarsImageId :: Lens' DescribeImageAttributeResponse (Maybe Text) -diarsImageId = lens _diarsImageId (\ s a -> s{_diarsImageId = a}); +diarsImageId = lens _diarsImageId (\ s a -> s{_diarsImageId = a}) -- | One or more product codes. diarsProductCodes :: Lens' DescribeImageAttributeResponse [ProductCode] -diarsProductCodes = lens _diarsProductCodes (\ s a -> s{_diarsProductCodes = a}) . _Default . _Coerce; +diarsProductCodes = lens _diarsProductCodes (\ s a -> s{_diarsProductCodes = a}) . _Default . _Coerce -- | A description for the AMI. diarsDescription :: Lens' DescribeImageAttributeResponse (Maybe AttributeValue) -diarsDescription = lens _diarsDescription (\ s a -> s{_diarsDescription = a}); +diarsDescription = lens _diarsDescription (\ s a -> s{_diarsDescription = a}) -- | One or more block device mapping entries. diarsBlockDeviceMappings :: Lens' DescribeImageAttributeResponse [BlockDeviceMapping] -diarsBlockDeviceMappings = lens _diarsBlockDeviceMappings (\ s a -> s{_diarsBlockDeviceMappings = a}) . _Default . _Coerce; +diarsBlockDeviceMappings = lens _diarsBlockDeviceMappings (\ s a -> s{_diarsBlockDeviceMappings = a}) . _Default . _Coerce -- | -- | The response status code. diarsResponseStatus :: Lens' DescribeImageAttributeResponse Int -diarsResponseStatus = lens _diarsResponseStatus (\ s a -> s{_diarsResponseStatus = a}); +diarsResponseStatus = lens _diarsResponseStatus (\ s a -> s{_diarsResponseStatus = a}) instance NFData DescribeImageAttributeResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeImages --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -79,33 +79,33 @@ :: DescribeImages describeImages = DescribeImages' - { _deseOwners = Nothing - , _deseExecutableUsers = Nothing - , _deseFilters = Nothing - , _deseImageIds = Nothing - , _deseDryRun = Nothing - } + { _deseOwners = Nothing + , _deseExecutableUsers = Nothing + , _deseFilters = Nothing + , _deseImageIds = Nothing + , _deseDryRun = Nothing + } -- | Filters the images by the owner. Specify an AWS account ID, @self@ (owner is the sender of the request), or an AWS owner alias (valid values are @amazon@ | @aws-marketplace@ | @microsoft@ ). Omitting this option returns all images for which you have launch permissions, regardless of ownership. deseOwners :: Lens' DescribeImages [Text] -deseOwners = lens _deseOwners (\ s a -> s{_deseOwners = a}) . _Default . _Coerce; +deseOwners = lens _deseOwners (\ s a -> s{_deseOwners = a}) . _Default . _Coerce -- | Scopes the images by users with explicit launch permissions. Specify an AWS account ID, @self@ (the sender of the request), or @all@ (public AMIs). deseExecutableUsers :: Lens' DescribeImages [Text] -deseExecutableUsers = lens _deseExecutableUsers (\ s a -> s{_deseExecutableUsers = a}) . _Default . _Coerce; +deseExecutableUsers = lens _deseExecutableUsers (\ s a -> s{_deseExecutableUsers = a}) . _Default . _Coerce -- | One or more filters. * @architecture@ - The image architecture (@i386@ | @x86_64@ ). * @block-device-mapping.delete-on-termination@ - A Boolean value that indicates whether the Amazon EBS volume is deleted on instance termination. * @block-device-mapping.device-name@ - The device name specified in the block device mapping (for example, @/dev/sdh@ or @xvdh@ ). * @block-device-mapping.snapshot-id@ - The ID of the snapshot used for the EBS volume. * @block-device-mapping.volume-size@ - The volume size of the EBS volume, in GiB. * @block-device-mapping.volume-type@ - The volume type of the EBS volume (@gp2@ | @io1@ | @st1 @ | @sc1@ | @standard@ ). * @description@ - The description of the image (provided during image creation). * @ena-support@ - A Boolean that indicates whether enhanced networking with ENA is enabled. * @hypervisor@ - The hypervisor type (@ovm@ | @xen@ ). * @image-id@ - The ID of the image. * @image-type@ - The image type (@machine@ | @kernel@ | @ramdisk@ ). * @is-public@ - A Boolean that indicates whether the image is public. * @kernel-id@ - The kernel ID. * @manifest-location@ - The location of the image manifest. * @name@ - The name of the AMI (provided during image creation). * @owner-alias@ - String value from an Amazon-maintained list (@amazon@ | @aws-marketplace@ | @microsoft@ ) of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. * @owner-id@ - The AWS account ID of the image owner. * @platform@ - The platform. To only list Windows-based AMIs, use @windows@ . * @product-code@ - The product code. * @product-code.type@ - The type of the product code (@devpay@ | @marketplace@ ). * @ramdisk-id@ - The RAM disk ID. * @root-device-name@ - The device name of the root device volume (for example, @/dev/sda1@ ). * @root-device-type@ - The type of the root device volume (@ebs@ | @instance-store@ ). * @state@ - The state of the image (@available@ | @pending@ | @failed@ ). * @state-reason-code@ - The reason code for the state change. * @state-reason-message@ - The message for the state change. * @sriov-net-support@ - A value of @simple@ indicates that enhanced networking with the Intel 82599 VF interface is enabled. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the tag-value filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @virtualization-type@ - The virtualization type (@paravirtual@ | @hvm@ ). deseFilters :: Lens' DescribeImages [Filter] -deseFilters = lens _deseFilters (\ s a -> s{_deseFilters = a}) . _Default . _Coerce; +deseFilters = lens _deseFilters (\ s a -> s{_deseFilters = a}) . _Default . _Coerce -- | One or more image IDs. Default: Describes all images available to you. deseImageIds :: Lens' DescribeImages [Text] -deseImageIds = lens _deseImageIds (\ s a -> s{_deseImageIds = a}) . _Default . _Coerce; +deseImageIds = lens _deseImageIds (\ s a -> s{_deseImageIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . deseDryRun :: Lens' DescribeImages (Maybe Bool) -deseDryRun = lens _deseDryRun (\ s a -> s{_deseDryRun = a}); +deseDryRun = lens _deseDryRun (\ s a -> s{_deseDryRun = a}) instance AWSRequest DescribeImages where type Rs DescribeImages = DescribeImagesResponse @@ -164,15 +164,15 @@ -> DescribeImagesResponse describeImagesResponse pResponseStatus_ = DescribeImagesResponse' - {_diirsImages = Nothing, _diirsResponseStatus = pResponseStatus_} + {_diirsImages = Nothing, _diirsResponseStatus = pResponseStatus_} -- | Information about one or more images. diirsImages :: Lens' DescribeImagesResponse [Image] -diirsImages = lens _diirsImages (\ s a -> s{_diirsImages = a}) . _Default . _Coerce; +diirsImages = lens _diirsImages (\ s a -> s{_diirsImages = a}) . _Default . _Coerce -- | -- | The response status code. diirsResponseStatus :: Lens' DescribeImagesResponse Int -diirsResponseStatus = lens _diirsResponseStatus (\ s a -> s{_diirsResponseStatus = a}); +diirsResponseStatus = lens _diirsResponseStatus (\ s a -> s{_diirsResponseStatus = a}) instance NFData DescribeImagesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeImportImageTasks --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -80,33 +80,33 @@ :: DescribeImportImageTasks describeImportImageTasks = DescribeImportImageTasks' - { _diitFilters = Nothing - , _diitImportTaskIds = Nothing - , _diitNextToken = Nothing - , _diitDryRun = Nothing - , _diitMaxResults = Nothing - } + { _diitFilters = Nothing + , _diitImportTaskIds = Nothing + , _diitNextToken = Nothing + , _diitDryRun = Nothing + , _diitMaxResults = Nothing + } -- | Filter tasks using the @task-state@ filter and one of the following values: active, completed, deleting, deleted. diitFilters :: Lens' DescribeImportImageTasks [Filter] -diitFilters = lens _diitFilters (\ s a -> s{_diitFilters = a}) . _Default . _Coerce; +diitFilters = lens _diitFilters (\ s a -> s{_diitFilters = a}) . _Default . _Coerce -- | A list of import image task IDs. diitImportTaskIds :: Lens' DescribeImportImageTasks [Text] -diitImportTaskIds = lens _diitImportTaskIds (\ s a -> s{_diitImportTaskIds = a}) . _Default . _Coerce; +diitImportTaskIds = lens _diitImportTaskIds (\ s a -> s{_diitImportTaskIds = a}) . _Default . _Coerce -- | A token that indicates the next page of results. diitNextToken :: Lens' DescribeImportImageTasks (Maybe Text) -diitNextToken = lens _diitNextToken (\ s a -> s{_diitNextToken = a}); +diitNextToken = lens _diitNextToken (\ s a -> s{_diitNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . diitDryRun :: Lens' DescribeImportImageTasks (Maybe Bool) -diitDryRun = lens _diitDryRun (\ s a -> s{_diitDryRun = a}); +diitDryRun = lens _diitDryRun (\ s a -> s{_diitDryRun = a}) -- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. diitMaxResults :: Lens' DescribeImportImageTasks (Maybe Int) -diitMaxResults = lens _diitMaxResults (\ s a -> s{_diitMaxResults = a}); +diitMaxResults = lens _diitMaxResults (\ s a -> s{_diitMaxResults = a}) instance AWSRequest DescribeImportImageTasks where type Rs DescribeImportImageTasks = @@ -170,23 +170,23 @@ -> DescribeImportImageTasksResponse describeImportImageTasksResponse pResponseStatus_ = DescribeImportImageTasksResponse' - { _diitrsNextToken = Nothing - , _diitrsImportImageTasks = Nothing - , _diitrsResponseStatus = pResponseStatus_ - } + { _diitrsNextToken = Nothing + , _diitrsImportImageTasks = Nothing + , _diitrsResponseStatus = pResponseStatus_ + } -- | The token to use to get the next page of results. This value is @null@ when there are no more results to return. diitrsNextToken :: Lens' DescribeImportImageTasksResponse (Maybe Text) -diitrsNextToken = lens _diitrsNextToken (\ s a -> s{_diitrsNextToken = a}); +diitrsNextToken = lens _diitrsNextToken (\ s a -> s{_diitrsNextToken = a}) -- | A list of zero or more import image tasks that are currently active or were completed or canceled in the previous 7 days. diitrsImportImageTasks :: Lens' DescribeImportImageTasksResponse [ImportImageTask] -diitrsImportImageTasks = lens _diitrsImportImageTasks (\ s a -> s{_diitrsImportImageTasks = a}) . _Default . _Coerce; +diitrsImportImageTasks = lens _diitrsImportImageTasks (\ s a -> s{_diitrsImportImageTasks = a}) . _Default . _Coerce -- | -- | The response status code. diitrsResponseStatus :: Lens' DescribeImportImageTasksResponse Int -diitrsResponseStatus = lens _diitrsResponseStatus (\ s a -> s{_diitrsResponseStatus = a}); +diitrsResponseStatus = lens _diitrsResponseStatus (\ s a -> s{_diitrsResponseStatus = a}) instance NFData DescribeImportImageTasksResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeImportSnapshotTasks --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -80,33 +80,33 @@ :: DescribeImportSnapshotTasks describeImportSnapshotTasks = DescribeImportSnapshotTasks' - { _distFilters = Nothing - , _distImportTaskIds = Nothing - , _distNextToken = Nothing - , _distDryRun = Nothing - , _distMaxResults = Nothing - } + { _distFilters = Nothing + , _distImportTaskIds = Nothing + , _distNextToken = Nothing + , _distDryRun = Nothing + , _distMaxResults = Nothing + } -- | One or more filters. distFilters :: Lens' DescribeImportSnapshotTasks [Filter] -distFilters = lens _distFilters (\ s a -> s{_distFilters = a}) . _Default . _Coerce; +distFilters = lens _distFilters (\ s a -> s{_distFilters = a}) . _Default . _Coerce -- | A list of import snapshot task IDs. distImportTaskIds :: Lens' DescribeImportSnapshotTasks [Text] -distImportTaskIds = lens _distImportTaskIds (\ s a -> s{_distImportTaskIds = a}) . _Default . _Coerce; +distImportTaskIds = lens _distImportTaskIds (\ s a -> s{_distImportTaskIds = a}) . _Default . _Coerce -- | A token that indicates the next page of results. distNextToken :: Lens' DescribeImportSnapshotTasks (Maybe Text) -distNextToken = lens _distNextToken (\ s a -> s{_distNextToken = a}); +distNextToken = lens _distNextToken (\ s a -> s{_distNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . distDryRun :: Lens' DescribeImportSnapshotTasks (Maybe Bool) -distDryRun = lens _distDryRun (\ s a -> s{_distDryRun = a}); +distDryRun = lens _distDryRun (\ s a -> s{_distDryRun = a}) -- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. distMaxResults :: Lens' DescribeImportSnapshotTasks (Maybe Int) -distMaxResults = lens _distMaxResults (\ s a -> s{_distMaxResults = a}); +distMaxResults = lens _distMaxResults (\ s a -> s{_distMaxResults = a}) instance AWSRequest DescribeImportSnapshotTasks where type Rs DescribeImportSnapshotTasks = @@ -170,23 +170,23 @@ -> DescribeImportSnapshotTasksResponse describeImportSnapshotTasksResponse pResponseStatus_ = DescribeImportSnapshotTasksResponse' - { _distrsNextToken = Nothing - , _distrsImportSnapshotTasks = Nothing - , _distrsResponseStatus = pResponseStatus_ - } + { _distrsNextToken = Nothing + , _distrsImportSnapshotTasks = Nothing + , _distrsResponseStatus = pResponseStatus_ + } -- | The token to use to get the next page of results. This value is @null@ when there are no more results to return. distrsNextToken :: Lens' DescribeImportSnapshotTasksResponse (Maybe Text) -distrsNextToken = lens _distrsNextToken (\ s a -> s{_distrsNextToken = a}); +distrsNextToken = lens _distrsNextToken (\ s a -> s{_distrsNextToken = a}) -- | A list of zero or more import snapshot tasks that are currently active or were completed or canceled in the previous 7 days. distrsImportSnapshotTasks :: Lens' DescribeImportSnapshotTasksResponse [ImportSnapshotTask] -distrsImportSnapshotTasks = lens _distrsImportSnapshotTasks (\ s a -> s{_distrsImportSnapshotTasks = a}) . _Default . _Coerce; +distrsImportSnapshotTasks = lens _distrsImportSnapshotTasks (\ s a -> s{_distrsImportSnapshotTasks = a}) . _Default . _Coerce -- | -- | The response status code. distrsResponseStatus :: Lens' DescribeImportSnapshotTasksResponse Int -distrsResponseStatus = lens _distrsResponseStatus (\ s a -> s{_distrsResponseStatus = a}); +distrsResponseStatus = lens _distrsResponseStatus (\ s a -> s{_distrsResponseStatus = a}) instance NFData DescribeImportSnapshotTasksResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeInstanceAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -87,23 +87,23 @@ -> DescribeInstanceAttribute describeInstanceAttribute pAttribute_ pInstanceId_ = DescribeInstanceAttribute' - { _diaDryRun = Nothing - , _diaAttribute = pAttribute_ - , _diaInstanceId = pInstanceId_ - } + { _diaDryRun = Nothing + , _diaAttribute = pAttribute_ + , _diaInstanceId = pInstanceId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . diaDryRun :: Lens' DescribeInstanceAttribute (Maybe Bool) -diaDryRun = lens _diaDryRun (\ s a -> s{_diaDryRun = a}); +diaDryRun = lens _diaDryRun (\ s a -> s{_diaDryRun = a}) -- | The instance attribute. Note: The @enaSupport@ attribute is not supported at this time. diaAttribute :: Lens' DescribeInstanceAttribute InstanceAttributeName -diaAttribute = lens _diaAttribute (\ s a -> s{_diaAttribute = a}); +diaAttribute = lens _diaAttribute (\ s a -> s{_diaAttribute = a}) -- | The ID of the instance. diaInstanceId :: Lens' DescribeInstanceAttribute Text -diaInstanceId = lens _diaInstanceId (\ s a -> s{_diaInstanceId = a}); +diaInstanceId = lens _diaInstanceId (\ s a -> s{_diaInstanceId = a}) instance AWSRequest DescribeInstanceAttribute where type Rs DescribeInstanceAttribute = @@ -219,88 +219,88 @@ -> DescribeInstanceAttributeResponse describeInstanceAttributeResponse pResponseStatus_ = DescribeInstanceAttributeResponse' - { _desrsInstanceId = Nothing - , _desrsGroups = Nothing - , _desrsEnaSupport = Nothing - , _desrsSourceDestCheck = Nothing - , _desrsDisableAPITermination = Nothing - , _desrsRAMDiskId = Nothing - , _desrsKernelId = Nothing - , _desrsRootDeviceName = Nothing - , _desrsInstanceType = Nothing - , _desrsSRIOVNetSupport = Nothing - , _desrsEBSOptimized = Nothing - , _desrsUserData = Nothing - , _desrsInstanceInitiatedShutdownBehavior = Nothing - , _desrsProductCodes = Nothing - , _desrsBlockDeviceMappings = Nothing - , _desrsResponseStatus = pResponseStatus_ - } + { _desrsInstanceId = Nothing + , _desrsGroups = Nothing + , _desrsEnaSupport = Nothing + , _desrsSourceDestCheck = Nothing + , _desrsDisableAPITermination = Nothing + , _desrsRAMDiskId = Nothing + , _desrsKernelId = Nothing + , _desrsRootDeviceName = Nothing + , _desrsInstanceType = Nothing + , _desrsSRIOVNetSupport = Nothing + , _desrsEBSOptimized = Nothing + , _desrsUserData = Nothing + , _desrsInstanceInitiatedShutdownBehavior = Nothing + , _desrsProductCodes = Nothing + , _desrsBlockDeviceMappings = Nothing + , _desrsResponseStatus = pResponseStatus_ + } -- | The ID of the instance. desrsInstanceId :: Lens' DescribeInstanceAttributeResponse (Maybe Text) -desrsInstanceId = lens _desrsInstanceId (\ s a -> s{_desrsInstanceId = a}); +desrsInstanceId = lens _desrsInstanceId (\ s a -> s{_desrsInstanceId = a}) -- | The security groups associated with the instance. desrsGroups :: Lens' DescribeInstanceAttributeResponse [GroupIdentifier] -desrsGroups = lens _desrsGroups (\ s a -> s{_desrsGroups = a}) . _Default . _Coerce; +desrsGroups = lens _desrsGroups (\ s a -> s{_desrsGroups = a}) . _Default . _Coerce -- | Indicates whether enhanced networking with ENA is enabled. desrsEnaSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) -desrsEnaSupport = lens _desrsEnaSupport (\ s a -> s{_desrsEnaSupport = a}); +desrsEnaSupport = lens _desrsEnaSupport (\ s a -> s{_desrsEnaSupport = a}) -- | Indicates whether source/destination checking is enabled. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. This value must be @false@ for a NAT instance to perform NAT. desrsSourceDestCheck :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) -desrsSourceDestCheck = lens _desrsSourceDestCheck (\ s a -> s{_desrsSourceDestCheck = a}); +desrsSourceDestCheck = lens _desrsSourceDestCheck (\ s a -> s{_desrsSourceDestCheck = a}) -- | If the value is @true@ , you can't terminate the instance through the Amazon EC2 console, CLI, or API; otherwise, you can. desrsDisableAPITermination :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) -desrsDisableAPITermination = lens _desrsDisableAPITermination (\ s a -> s{_desrsDisableAPITermination = a}); +desrsDisableAPITermination = lens _desrsDisableAPITermination (\ s a -> s{_desrsDisableAPITermination = a}) -- | The RAM disk ID. desrsRAMDiskId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) -desrsRAMDiskId = lens _desrsRAMDiskId (\ s a -> s{_desrsRAMDiskId = a}); +desrsRAMDiskId = lens _desrsRAMDiskId (\ s a -> s{_desrsRAMDiskId = a}) -- | The kernel ID. desrsKernelId :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) -desrsKernelId = lens _desrsKernelId (\ s a -> s{_desrsKernelId = a}); +desrsKernelId = lens _desrsKernelId (\ s a -> s{_desrsKernelId = a}) -- | The device name of the root device volume (for example, @/dev/sda1@ ). desrsRootDeviceName :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) -desrsRootDeviceName = lens _desrsRootDeviceName (\ s a -> s{_desrsRootDeviceName = a}); +desrsRootDeviceName = lens _desrsRootDeviceName (\ s a -> s{_desrsRootDeviceName = a}) -- | The instance type. desrsInstanceType :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) -desrsInstanceType = lens _desrsInstanceType (\ s a -> s{_desrsInstanceType = a}); +desrsInstanceType = lens _desrsInstanceType (\ s a -> s{_desrsInstanceType = a}) -- | Indicates whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. desrsSRIOVNetSupport :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) -desrsSRIOVNetSupport = lens _desrsSRIOVNetSupport (\ s a -> s{_desrsSRIOVNetSupport = a}); +desrsSRIOVNetSupport = lens _desrsSRIOVNetSupport (\ s a -> s{_desrsSRIOVNetSupport = a}) -- | Indicates whether the instance is optimized for Amazon EBS I/O. desrsEBSOptimized :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeBooleanValue) -desrsEBSOptimized = lens _desrsEBSOptimized (\ s a -> s{_desrsEBSOptimized = a}); +desrsEBSOptimized = lens _desrsEBSOptimized (\ s a -> s{_desrsEBSOptimized = a}) -- | The user data. desrsUserData :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) -desrsUserData = lens _desrsUserData (\ s a -> s{_desrsUserData = a}); +desrsUserData = lens _desrsUserData (\ s a -> s{_desrsUserData = a}) -- | Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). desrsInstanceInitiatedShutdownBehavior :: Lens' DescribeInstanceAttributeResponse (Maybe AttributeValue) -desrsInstanceInitiatedShutdownBehavior = lens _desrsInstanceInitiatedShutdownBehavior (\ s a -> s{_desrsInstanceInitiatedShutdownBehavior = a}); +desrsInstanceInitiatedShutdownBehavior = lens _desrsInstanceInitiatedShutdownBehavior (\ s a -> s{_desrsInstanceInitiatedShutdownBehavior = a}) -- | A list of product codes. desrsProductCodes :: Lens' DescribeInstanceAttributeResponse [ProductCode] -desrsProductCodes = lens _desrsProductCodes (\ s a -> s{_desrsProductCodes = a}) . _Default . _Coerce; +desrsProductCodes = lens _desrsProductCodes (\ s a -> s{_desrsProductCodes = a}) . _Default . _Coerce -- | The block device mapping of the instance. desrsBlockDeviceMappings :: Lens' DescribeInstanceAttributeResponse [InstanceBlockDeviceMapping] -desrsBlockDeviceMappings = lens _desrsBlockDeviceMappings (\ s a -> s{_desrsBlockDeviceMappings = a}) . _Default . _Coerce; +desrsBlockDeviceMappings = lens _desrsBlockDeviceMappings (\ s a -> s{_desrsBlockDeviceMappings = a}) . _Default . _Coerce -- | -- | The response status code. desrsResponseStatus :: Lens' DescribeInstanceAttributeResponse Int -desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}); +desrsResponseStatus = lens _desrsResponseStatus (\ s a -> s{_desrsResponseStatus = a}) instance NFData DescribeInstanceAttributeResponse where diff --git a/gen/Network/AWS/EC2/DescribeInstanceCreditSpecifications.hs b/gen/Network/AWS/EC2/DescribeInstanceCreditSpecifications.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeInstanceCreditSpecifications.hs @@ -0,0 +1,203 @@ +{-# 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.DescribeInstanceCreditSpecifications +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the credit option for CPU usage of one or more of your T2 instances. The credit options are @standard@ and @unlimited@ . +-- +-- +-- If you do not specify an instance ID, Amazon EC2 returns only the T2 instances with the @unlimited@ credit option. If you specify one or more instance IDs, Amazon EC2 returns the credit option (@standard@ or @unlimited@ ) of those instances. If you specify an instance ID that is not valid, such as an instance that is not a T2 instance, an error is returned. +-- +-- Recently terminated instances might appear in the returned results. This interval is usually less than one hour. +-- +-- If an Availability Zone is experiencing a service disruption and you specify instance IDs in the affected zone, or do not specify any instance IDs at all, the call fails. If you specify only instance IDs in an unaffected zone, the call works normally. +-- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- +module Network.AWS.EC2.DescribeInstanceCreditSpecifications + ( + -- * Creating a Request + describeInstanceCreditSpecifications + , DescribeInstanceCreditSpecifications + -- * Request Lenses + , dicsFilters + , dicsNextToken + , dicsInstanceIds + , dicsDryRun + , dicsMaxResults + + -- * Destructuring the Response + , describeInstanceCreditSpecificationsResponse + , DescribeInstanceCreditSpecificationsResponse + -- * Response Lenses + , dicsrsNextToken + , dicsrsInstanceCreditSpecifications + , dicsrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeInstanceCreditSpecifications' smart constructor. +data DescribeInstanceCreditSpecifications = DescribeInstanceCreditSpecifications' + { _dicsFilters :: !(Maybe [Filter]) + , _dicsNextToken :: !(Maybe Text) + , _dicsInstanceIds :: !(Maybe [Text]) + , _dicsDryRun :: !(Maybe Bool) + , _dicsMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeInstanceCreditSpecifications' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dicsFilters' - One or more filters. * @instance-id@ - The ID of the instance. +-- +-- * 'dicsNextToken' - The token to retrieve the next page of results. +-- +-- * 'dicsInstanceIds' - One or more instance IDs. Default: Describes all your instances. Constraints: Maximum 1000 explicitly specified instance IDs. +-- +-- * 'dicsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dicsMaxResults' - The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. You cannot specify this parameter and the instance IDs parameter in the same call. +describeInstanceCreditSpecifications + :: DescribeInstanceCreditSpecifications +describeInstanceCreditSpecifications = + DescribeInstanceCreditSpecifications' + { _dicsFilters = Nothing + , _dicsNextToken = Nothing + , _dicsInstanceIds = Nothing + , _dicsDryRun = Nothing + , _dicsMaxResults = Nothing + } + + +-- | One or more filters. * @instance-id@ - The ID of the instance. +dicsFilters :: Lens' DescribeInstanceCreditSpecifications [Filter] +dicsFilters = lens _dicsFilters (\ s a -> s{_dicsFilters = a}) . _Default . _Coerce + +-- | The token to retrieve the next page of results. +dicsNextToken :: Lens' DescribeInstanceCreditSpecifications (Maybe Text) +dicsNextToken = lens _dicsNextToken (\ s a -> s{_dicsNextToken = a}) + +-- | One or more instance IDs. Default: Describes all your instances. Constraints: Maximum 1000 explicitly specified instance IDs. +dicsInstanceIds :: Lens' DescribeInstanceCreditSpecifications [Text] +dicsInstanceIds = lens _dicsInstanceIds (\ s a -> s{_dicsInstanceIds = a}) . _Default . _Coerce + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dicsDryRun :: Lens' DescribeInstanceCreditSpecifications (Maybe Bool) +dicsDryRun = lens _dicsDryRun (\ s a -> s{_dicsDryRun = a}) + +-- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. You cannot specify this parameter and the instance IDs parameter in the same call. +dicsMaxResults :: Lens' DescribeInstanceCreditSpecifications (Maybe Int) +dicsMaxResults = lens _dicsMaxResults (\ s a -> s{_dicsMaxResults = a}) + +instance AWSRequest + DescribeInstanceCreditSpecifications + where + type Rs DescribeInstanceCreditSpecifications = + DescribeInstanceCreditSpecificationsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeInstanceCreditSpecificationsResponse' <$> + (x .@? "nextToken") <*> + (x .@? "instanceCreditSpecificationSet" .!@ mempty + >>= may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable + DescribeInstanceCreditSpecifications + where + +instance NFData DescribeInstanceCreditSpecifications + where + +instance ToHeaders + DescribeInstanceCreditSpecifications + where + toHeaders = const mempty + +instance ToPath DescribeInstanceCreditSpecifications + where + toPath = const "/" + +instance ToQuery DescribeInstanceCreditSpecifications + where + toQuery DescribeInstanceCreditSpecifications'{..} + = mconcat + ["Action" =: + ("DescribeInstanceCreditSpecifications" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dicsFilters), + "NextToken" =: _dicsNextToken, + toQuery + (toQueryList "InstanceId" <$> _dicsInstanceIds), + "DryRun" =: _dicsDryRun, + "MaxResults" =: _dicsMaxResults] + +-- | /See:/ 'describeInstanceCreditSpecificationsResponse' smart constructor. +data DescribeInstanceCreditSpecificationsResponse = DescribeInstanceCreditSpecificationsResponse' + { _dicsrsNextToken :: !(Maybe Text) + , _dicsrsInstanceCreditSpecifications :: !(Maybe [InstanceCreditSpecification]) + , _dicsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeInstanceCreditSpecificationsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dicsrsNextToken' - The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +-- +-- * 'dicsrsInstanceCreditSpecifications' - Information about the credit option for CPU usage of an instance. +-- +-- * 'dicsrsResponseStatus' - -- | The response status code. +describeInstanceCreditSpecificationsResponse + :: Int -- ^ 'dicsrsResponseStatus' + -> DescribeInstanceCreditSpecificationsResponse +describeInstanceCreditSpecificationsResponse pResponseStatus_ = + DescribeInstanceCreditSpecificationsResponse' + { _dicsrsNextToken = Nothing + , _dicsrsInstanceCreditSpecifications = Nothing + , _dicsrsResponseStatus = pResponseStatus_ + } + + +-- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +dicsrsNextToken :: Lens' DescribeInstanceCreditSpecificationsResponse (Maybe Text) +dicsrsNextToken = lens _dicsrsNextToken (\ s a -> s{_dicsrsNextToken = a}) + +-- | Information about the credit option for CPU usage of an instance. +dicsrsInstanceCreditSpecifications :: Lens' DescribeInstanceCreditSpecificationsResponse [InstanceCreditSpecification] +dicsrsInstanceCreditSpecifications = lens _dicsrsInstanceCreditSpecifications (\ s a -> s{_dicsrsInstanceCreditSpecifications = a}) . _Default . _Coerce + +-- | -- | The response status code. +dicsrsResponseStatus :: Lens' DescribeInstanceCreditSpecificationsResponse Int +dicsrsResponseStatus = lens _dicsrsResponseStatus (\ s a -> s{_dicsrsResponseStatus = a}) + +instance NFData + DescribeInstanceCreditSpecificationsResponse + where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeInstanceStatus --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -97,38 +97,38 @@ :: DescribeInstanceStatus describeInstanceStatus = DescribeInstanceStatus' - { _disIncludeAllInstances = Nothing - , _disFilters = Nothing - , _disNextToken = Nothing - , _disInstanceIds = Nothing - , _disDryRun = Nothing - , _disMaxResults = Nothing - } + { _disIncludeAllInstances = Nothing + , _disFilters = Nothing + , _disNextToken = Nothing + , _disInstanceIds = Nothing + , _disDryRun = Nothing + , _disMaxResults = Nothing + } -- | When @true@ , includes the health status for all instances. When @false@ , includes the health status for running instances only. Default: @false@ disIncludeAllInstances :: Lens' DescribeInstanceStatus (Maybe Bool) -disIncludeAllInstances = lens _disIncludeAllInstances (\ s a -> s{_disIncludeAllInstances = a}); +disIncludeAllInstances = lens _disIncludeAllInstances (\ s a -> s{_disIncludeAllInstances = a}) -- | One or more filters. * @availability-zone@ - The Availability Zone of the instance. * @event.code@ - The code for the scheduled event (@instance-reboot@ | @system-reboot@ | @system-maintenance@ | @instance-retirement@ | @instance-stop@ ). * @event.description@ - A description of the event. * @event.not-after@ - The latest end time for the scheduled event (for example, @2014-09-15T17:15:20.000Z@ ). * @event.not-before@ - The earliest start time for the scheduled event (for example, @2014-09-15T17:15:20.000Z@ ). * @instance-state-code@ - The code for the instance state, as a 16-bit unsigned integer. The high byte is an opaque internal value and should be ignored. The low byte is set based on the state represented. The valid values are 0 (pending), 16 (running), 32 (shutting-down), 48 (terminated), 64 (stopping), and 80 (stopped). * @instance-state-name@ - The state of the instance (@pending@ | @running@ | @shutting-down@ | @terminated@ | @stopping@ | @stopped@ ). * @instance-status.reachability@ - Filters on instance status where the name is @reachability@ (@passed@ | @failed@ | @initializing@ | @insufficient-data@ ). * @instance-status.status@ - The status of the instance (@ok@ | @impaired@ | @initializing@ | @insufficient-data@ | @not-applicable@ ). * @system-status.reachability@ - Filters on system status where the name is @reachability@ (@passed@ | @failed@ | @initializing@ | @insufficient-data@ ). * @system-status.status@ - The system status of the instance (@ok@ | @impaired@ | @initializing@ | @insufficient-data@ | @not-applicable@ ). disFilters :: Lens' DescribeInstanceStatus [Filter] -disFilters = lens _disFilters (\ s a -> s{_disFilters = a}) . _Default . _Coerce; +disFilters = lens _disFilters (\ s a -> s{_disFilters = a}) . _Default . _Coerce -- | The token to retrieve the next page of results. disNextToken :: Lens' DescribeInstanceStatus (Maybe Text) -disNextToken = lens _disNextToken (\ s a -> s{_disNextToken = a}); +disNextToken = lens _disNextToken (\ s a -> s{_disNextToken = a}) -- | One or more instance IDs. Default: Describes all your instances. Constraints: Maximum 100 explicitly specified instance IDs. disInstanceIds :: Lens' DescribeInstanceStatus [Text] -disInstanceIds = lens _disInstanceIds (\ s a -> s{_disInstanceIds = a}) . _Default . _Coerce; +disInstanceIds = lens _disInstanceIds (\ s a -> s{_disInstanceIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . disDryRun :: Lens' DescribeInstanceStatus (Maybe Bool) -disDryRun = lens _disDryRun (\ s a -> s{_disDryRun = a}); +disDryRun = lens _disDryRun (\ s a -> s{_disDryRun = a}) -- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. You cannot specify this parameter and the instance IDs parameter in the same call. disMaxResults :: Lens' DescribeInstanceStatus (Maybe Int) -disMaxResults = lens _disMaxResults (\ s a -> s{_disMaxResults = a}); +disMaxResults = lens _disMaxResults (\ s a -> s{_disMaxResults = a}) instance AWSPager DescribeInstanceStatus where page rq rs @@ -200,22 +200,22 @@ -> DescribeInstanceStatusResponse describeInstanceStatusResponse pResponseStatus_ = DescribeInstanceStatusResponse' - { _disrsInstanceStatuses = Nothing - , _disrsNextToken = Nothing - , _disrsResponseStatus = pResponseStatus_ - } + { _disrsInstanceStatuses = Nothing + , _disrsNextToken = Nothing + , _disrsResponseStatus = pResponseStatus_ + } -- | One or more instance status descriptions. disrsInstanceStatuses :: Lens' DescribeInstanceStatusResponse [InstanceStatus] -disrsInstanceStatuses = lens _disrsInstanceStatuses (\ s a -> s{_disrsInstanceStatuses = a}) . _Default . _Coerce; +disrsInstanceStatuses = lens _disrsInstanceStatuses (\ s a -> s{_disrsInstanceStatuses = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. disrsNextToken :: Lens' DescribeInstanceStatusResponse (Maybe Text) -disrsNextToken = lens _disrsNextToken (\ s a -> s{_disrsNextToken = a}); +disrsNextToken = lens _disrsNextToken (\ s a -> s{_disrsNextToken = a}) -- | -- | The response status code. disrsResponseStatus :: Lens' DescribeInstanceStatusResponse Int -disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a}); +disrsResponseStatus = lens _disrsResponseStatus (\ s a -> s{_disrsResponseStatus = a}) instance NFData DescribeInstanceStatusResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -89,33 +89,33 @@ :: DescribeInstances describeInstances = DescribeInstances' - { _diiFilters = Nothing - , _diiNextToken = Nothing - , _diiInstanceIds = Nothing - , _diiDryRun = Nothing - , _diiMaxResults = Nothing - } + { _diiFilters = Nothing + , _diiNextToken = Nothing + , _diiInstanceIds = Nothing + , _diiDryRun = Nothing + , _diiMaxResults = Nothing + } -- | One or more filters. * @affinity@ - The affinity setting for an instance running on a Dedicated Host (@default@ | @host@ ). * @architecture@ - The instance architecture (@i386@ | @x86_64@ ). * @availability-zone@ - The Availability Zone of the instance. * @block-device-mapping.attach-time@ - The attach time for an EBS volume mapped to the instance, for example, @2010-09-15T17:15:20.000Z@ . * @block-device-mapping.delete-on-termination@ - A Boolean that indicates whether the EBS volume is deleted on instance termination. * @block-device-mapping.device-name@ - The device name specified in the block device mapping (for example, @/dev/sdh@ or @xvdh@ ). * @block-device-mapping.status@ - The status for the EBS volume (@attaching@ | @attached@ | @detaching@ | @detached@ ). * @block-device-mapping.volume-id@ - The volume ID of the EBS volume. * @client-token@ - The idempotency token you provided when you launched the instance. * @dns-name@ - The public DNS name of the instance. * @group-id@ - The ID of the security group for the instance. EC2-Classic only. * @group-name@ - The name of the security group for the instance. EC2-Classic only. * @host-id@ - The ID of the Dedicated Host on which the instance is running, if applicable. * @hypervisor@ - The hypervisor type of the instance (@ovm@ | @xen@ ). * @iam-instance-profile.arn@ - The instance profile associated with the instance. Specified as an ARN. * @image-id@ - The ID of the image used to launch the instance. * @instance-id@ - The ID of the instance. * @instance-lifecycle@ - Indicates whether this is a Spot Instance or a Scheduled Instance (@spot@ | @scheduled@ ). * @instance-state-code@ - The state of the instance, as a 16-bit unsigned integer. The high byte is an opaque internal value and should be ignored. The low byte is set based on the state represented. The valid values are: 0 (pending), 16 (running), 32 (shutting-down), 48 (terminated), 64 (stopping), and 80 (stopped). * @instance-state-name@ - The state of the instance (@pending@ | @running@ | @shutting-down@ | @terminated@ | @stopping@ | @stopped@ ). * @instance-type@ - The type of instance (for example, @t2.micro@ ). * @instance.group-id@ - The ID of the security group for the instance. * @instance.group-name@ - The name of the security group for the instance. * @ip-address@ - The public IPv4 address of the instance. * @kernel-id@ - The kernel ID. * @key-name@ - The name of the key pair used when the instance was launched. * @launch-index@ - When launching multiple instances, this is the index for the instance in the launch group (for example, 0, 1, 2, and so on). * @launch-time@ - The time when the instance was launched. * @monitoring-state@ - Indicates whether detailed monitoring is enabled (@disabled@ | @enabled@ ). * @network-interface.addresses.private-ip-address@ - The private IPv4 address associated with the network interface. * @network-interface.addresses.primary@ - Specifies whether the IPv4 address of the network interface is the primary private IPv4 address. * @network-interface.addresses.association.public-ip@ - The ID of the association of an Elastic IP address (IPv4) with a network interface. * @network-interface.addresses.association.ip-owner-id@ - The owner ID of the private IPv4 address associated with the network interface. * @network-interface.association.public-ip@ - The address of the Elastic IP address (IPv4) bound to the network interface. * @network-interface.association.ip-owner-id@ - The owner of the Elastic IP address (IPv4) associated with the network interface. * @network-interface.association.allocation-id@ - The allocation ID returned when you allocated the Elastic IP address (IPv4) for your network interface. * @network-interface.association.association-id@ - The association ID returned when the network interface was associated with an IPv4 address. * @network-interface.attachment.attachment-id@ - The ID of the interface attachment. * @network-interface.attachment.instance-id@ - The ID of the instance to which the network interface is attached. * @network-interface.attachment.instance-owner-id@ - The owner ID of the instance to which the network interface is attached. * @network-interface.attachment.device-index@ - The device index to which the network interface is attached. * @network-interface.attachment.status@ - The status of the attachment (@attaching@ | @attached@ | @detaching@ | @detached@ ). * @network-interface.attachment.attach-time@ - The time that the network interface was attached to an instance. * @network-interface.attachment.delete-on-termination@ - Specifies whether the attachment is deleted when an instance is terminated. * @network-interface.availability-zone@ - The Availability Zone for the network interface. * @network-interface.description@ - The description of the network interface. * @network-interface.group-id@ - The ID of a security group associated with the network interface. * @network-interface.group-name@ - The name of a security group associated with the network interface. * @network-interface.ipv6-addresses.ipv6-address@ - The IPv6 address associated with the network interface. * @network-interface.mac-address@ - The MAC address of the network interface. * @network-interface.network-interface-id@ - The ID of the network interface. * @network-interface.owner-id@ - The ID of the owner of the network interface. * @network-interface.private-dns-name@ - The private DNS name of the network interface. * @network-interface.requester-id@ - The requester ID for the network interface. * @network-interface.requester-managed@ - Indicates whether the network interface is being managed by AWS. * @network-interface.status@ - The status of the network interface (@available@ ) | @in-use@ ). * @network-interface.source-dest-check@ - Whether the network interface performs source/destination checking. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. The value must be @false@ for the network interface to perform network address translation (NAT) in your VPC. * @network-interface.subnet-id@ - The ID of the subnet for the network interface. * @network-interface.vpc-id@ - The ID of the VPC for the network interface. * @owner-id@ - The AWS account ID of the instance owner. * @placement-group-name@ - The name of the placement group for the instance. * @platform@ - The platform. Use @windows@ if you have Windows instances; otherwise, leave blank. * @private-dns-name@ - The private IPv4 DNS name of the instance. * @private-ip-address@ - The private IPv4 address of the instance. * @product-code@ - The product code associated with the AMI used to launch the instance. * @product-code.type@ - The type of product code (@devpay@ | @marketplace@ ). * @ramdisk-id@ - The RAM disk ID. * @reason@ - The reason for the current state of the instance (for example, shows "User Initiated [date]" when you stop or terminate the instance). Similar to the state-reason-code filter. * @requester-id@ - The ID of the entity that launched the instance on your behalf (for example, AWS Management Console, Auto Scaling, and so on). * @reservation-id@ - The ID of the instance's reservation. A reservation ID is created any time you launch an instance. A reservation ID has a one-to-one relationship with an instance launch request, but can be associated with more than one instance if you launch multiple instances using the same launch request. For example, if you launch one instance, you get one reservation ID. If you launch ten instances using the same launch request, you also get one reservation ID. * @root-device-name@ - The device name of the root device volume (for example, @/dev/sda1@ ). * @root-device-type@ - The type of the root device volume (@ebs@ | @instance-store@ ). * @source-dest-check@ - Indicates whether the instance performs source/destination checking. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. The value must be @false@ for the instance to perform network address translation (NAT) in your VPC. * @spot-instance-request-id@ - The ID of the Spot Instance request. * @state-reason-code@ - The reason code for the state change. * @state-reason-message@ - A message that describes the state change. * @subnet-id@ - The ID of the subnet for the instance. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of the tag's key). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @tenancy@ - The tenancy of an instance (@dedicated@ | @default@ | @host@ ). * @virtualization-type@ - The virtualization type of the instance (@paravirtual@ | @hvm@ ). * @vpc-id@ - The ID of the VPC that the instance is running in. diiFilters :: Lens' DescribeInstances [Filter] -diiFilters = lens _diiFilters (\ s a -> s{_diiFilters = a}) . _Default . _Coerce; +diiFilters = lens _diiFilters (\ s a -> s{_diiFilters = a}) . _Default . _Coerce -- | The token to request the next page of results. diiNextToken :: Lens' DescribeInstances (Maybe Text) -diiNextToken = lens _diiNextToken (\ s a -> s{_diiNextToken = a}); +diiNextToken = lens _diiNextToken (\ s a -> s{_diiNextToken = a}) -- | One or more instance IDs. Default: Describes all your instances. diiInstanceIds :: Lens' DescribeInstances [Text] -diiInstanceIds = lens _diiInstanceIds (\ s a -> s{_diiInstanceIds = a}) . _Default . _Coerce; +diiInstanceIds = lens _diiInstanceIds (\ s a -> s{_diiInstanceIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . diiDryRun :: Lens' DescribeInstances (Maybe Bool) -diiDryRun = lens _diiDryRun (\ s a -> s{_diiDryRun = a}); +diiDryRun = lens _diiDryRun (\ s a -> s{_diiDryRun = a}) -- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. You cannot specify this parameter and the instance IDs parameter or tag filters in the same call. diiMaxResults :: Lens' DescribeInstances (Maybe Int) -diiMaxResults = lens _diiMaxResults (\ s a -> s{_diiMaxResults = a}); +diiMaxResults = lens _diiMaxResults (\ s a -> s{_diiMaxResults = a}) instance AWSPager DescribeInstances where page rq rs @@ -184,22 +184,22 @@ -> DescribeInstancesResponse describeInstancesResponse pResponseStatus_ = DescribeInstancesResponse' - { _dirsNextToken = Nothing - , _dirsReservations = Nothing - , _dirsResponseStatus = pResponseStatus_ - } + { _dirsNextToken = Nothing + , _dirsReservations = Nothing + , _dirsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dirsNextToken :: Lens' DescribeInstancesResponse (Maybe Text) -dirsNextToken = lens _dirsNextToken (\ s a -> s{_dirsNextToken = a}); +dirsNextToken = lens _dirsNextToken (\ s a -> s{_dirsNextToken = a}) -- | Zero or more reservations. dirsReservations :: Lens' DescribeInstancesResponse [Reservation] -dirsReservations = lens _dirsReservations (\ s a -> s{_dirsReservations = a}) . _Default . _Coerce; +dirsReservations = lens _dirsReservations (\ s a -> s{_dirsReservations = a}) . _Default . _Coerce -- | -- | The response status code. dirsResponseStatus :: Lens' DescribeInstancesResponse Int -dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}); +dirsResponseStatus = lens _dirsResponseStatus (\ s a -> s{_dirsResponseStatus = a}) instance NFData DescribeInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeInternetGateways --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,20 +71,20 @@ :: DescribeInternetGateways describeInternetGateways = DescribeInternetGateways' - {_dFilters = Nothing, _dInternetGatewayIds = Nothing, _dDryRun = Nothing} + {_dFilters = Nothing, _dInternetGatewayIds = Nothing, _dDryRun = Nothing} -- | One or more filters. * @attachment.state@ - The current state of the attachment between the gateway and the VPC (@available@ ). Present only if a VPC is attached. * @attachment.vpc-id@ - The ID of an attached VPC. * @internet-gateway-id@ - The ID of the Internet gateway. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. dFilters :: Lens' DescribeInternetGateways [Filter] -dFilters = lens _dFilters (\ s a -> s{_dFilters = a}) . _Default . _Coerce; +dFilters = lens _dFilters (\ s a -> s{_dFilters = a}) . _Default . _Coerce -- | One or more Internet gateway IDs. Default: Describes all your Internet gateways. dInternetGatewayIds :: Lens' DescribeInternetGateways [Text] -dInternetGatewayIds = lens _dInternetGatewayIds (\ s a -> s{_dInternetGatewayIds = a}) . _Default . _Coerce; +dInternetGatewayIds = lens _dInternetGatewayIds (\ s a -> s{_dInternetGatewayIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dDryRun :: Lens' DescribeInternetGateways (Maybe Bool) -dDryRun = lens _dDryRun (\ s a -> s{_dDryRun = a}); +dDryRun = lens _dDryRun (\ s a -> s{_dDryRun = a}) instance AWSRequest DescribeInternetGateways where type Rs DescribeInternetGateways = @@ -143,16 +143,16 @@ -> DescribeInternetGatewaysResponse describeInternetGatewaysResponse pResponseStatus_ = DescribeInternetGatewaysResponse' - {_digrsInternetGateways = Nothing, _digrsResponseStatus = pResponseStatus_} + {_digrsInternetGateways = Nothing, _digrsResponseStatus = pResponseStatus_} -- | Information about one or more Internet gateways. digrsInternetGateways :: Lens' DescribeInternetGatewaysResponse [InternetGateway] -digrsInternetGateways = lens _digrsInternetGateways (\ s a -> s{_digrsInternetGateways = a}) . _Default . _Coerce; +digrsInternetGateways = lens _digrsInternetGateways (\ s a -> s{_digrsInternetGateways = a}) . _Default . _Coerce -- | -- | The response status code. digrsResponseStatus :: Lens' DescribeInternetGatewaysResponse Int -digrsResponseStatus = lens _digrsResponseStatus (\ s a -> s{_digrsResponseStatus = a}); +digrsResponseStatus = lens _digrsResponseStatus (\ s a -> s{_digrsResponseStatus = a}) instance NFData DescribeInternetGatewaysResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeKeyPairs --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,20 @@ :: DescribeKeyPairs describeKeyPairs = DescribeKeyPairs' - {_dkpsFilters = Nothing, _dkpsKeyNames = Nothing, _dkpsDryRun = Nothing} + {_dkpsFilters = Nothing, _dkpsKeyNames = Nothing, _dkpsDryRun = Nothing} -- | One or more filters. * @fingerprint@ - The fingerprint of the key pair. * @key-name@ - The name of the key pair. dkpsFilters :: Lens' DescribeKeyPairs [Filter] -dkpsFilters = lens _dkpsFilters (\ s a -> s{_dkpsFilters = a}) . _Default . _Coerce; +dkpsFilters = lens _dkpsFilters (\ s a -> s{_dkpsFilters = a}) . _Default . _Coerce -- | One or more key pair names. Default: Describes all your key pairs. dkpsKeyNames :: Lens' DescribeKeyPairs [Text] -dkpsKeyNames = lens _dkpsKeyNames (\ s a -> s{_dkpsKeyNames = a}) . _Default . _Coerce; +dkpsKeyNames = lens _dkpsKeyNames (\ s a -> s{_dkpsKeyNames = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dkpsDryRun :: Lens' DescribeKeyPairs (Maybe Bool) -dkpsDryRun = lens _dkpsDryRun (\ s a -> s{_dkpsDryRun = a}); +dkpsDryRun = lens _dkpsDryRun (\ s a -> s{_dkpsDryRun = a}) instance AWSRequest DescribeKeyPairs where type Rs DescribeKeyPairs = DescribeKeyPairsResponse @@ -141,15 +141,15 @@ -> DescribeKeyPairsResponse describeKeyPairsResponse pResponseStatus_ = DescribeKeyPairsResponse' - {_dkprsKeyPairs = Nothing, _dkprsResponseStatus = pResponseStatus_} + {_dkprsKeyPairs = Nothing, _dkprsResponseStatus = pResponseStatus_} -- | Information about one or more key pairs. dkprsKeyPairs :: Lens' DescribeKeyPairsResponse [KeyPairInfo] -dkprsKeyPairs = lens _dkprsKeyPairs (\ s a -> s{_dkprsKeyPairs = a}) . _Default . _Coerce; +dkprsKeyPairs = lens _dkprsKeyPairs (\ s a -> s{_dkprsKeyPairs = a}) . _Default . _Coerce -- | -- | The response status code. dkprsResponseStatus :: Lens' DescribeKeyPairsResponse Int -dkprsResponseStatus = lens _dkprsResponseStatus (\ s a -> s{_dkprsResponseStatus = a}); +dkprsResponseStatus = lens _dkprsResponseStatus (\ s a -> s{_dkprsResponseStatus = a}) instance NFData DescribeKeyPairsResponse where diff --git a/gen/Network/AWS/EC2/DescribeLaunchTemplateVersions.hs b/gen/Network/AWS/EC2/DescribeLaunchTemplateVersions.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeLaunchTemplateVersions.hs @@ -0,0 +1,229 @@ +{-# 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.DescribeLaunchTemplateVersions +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes one or more versions of a specified launch template. You can describe all versions, individual versions, or a range of versions. +-- +-- +module Network.AWS.EC2.DescribeLaunchTemplateVersions + ( + -- * Creating a Request + describeLaunchTemplateVersions + , DescribeLaunchTemplateVersions + -- * Request Lenses + , dltvsLaunchTemplateName + , dltvsLaunchTemplateId + , dltvsMinVersion + , dltvsFilters + , dltvsMaxVersion + , dltvsVersions + , dltvsNextToken + , dltvsDryRun + , dltvsMaxResults + + -- * Destructuring the Response + , describeLaunchTemplateVersionsResponse + , DescribeLaunchTemplateVersionsResponse + -- * Response Lenses + , dltvrsNextToken + , dltvrsLaunchTemplateVersions + , dltvrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeLaunchTemplateVersions' smart constructor. +data DescribeLaunchTemplateVersions = DescribeLaunchTemplateVersions' + { _dltvsLaunchTemplateName :: !(Maybe Text) + , _dltvsLaunchTemplateId :: !(Maybe Text) + , _dltvsMinVersion :: !(Maybe Text) + , _dltvsFilters :: !(Maybe [Filter]) + , _dltvsMaxVersion :: !(Maybe Text) + , _dltvsVersions :: !(Maybe [Text]) + , _dltvsNextToken :: !(Maybe Text) + , _dltvsDryRun :: !(Maybe Bool) + , _dltvsMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeLaunchTemplateVersions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltvsLaunchTemplateName' - The name of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'dltvsLaunchTemplateId' - The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'dltvsMinVersion' - The version number after which to describe launch template versions. +-- +-- * 'dltvsFilters' - One or more filters. * @create-time@ - The time the launch template version was created. * @ebs-optimized@ - A boolean that indicates whether the instance is optimized for Amazon EBS I/O. * @iam-instance-profile@ - The ARN of the IAM instance profile. * @image-id@ - The ID of the AMI. * @instance-type@ - The instance type. * @is-default-version@ - A boolean that indicates whether the launch template version is the default version. * @kernel-id@ - The kernel ID. * @ram-disk-id@ - The RAM disk ID. +-- +-- * 'dltvsMaxVersion' - The version number up to which to describe launch template versions. +-- +-- * 'dltvsVersions' - One or more versions of the launch template. +-- +-- * 'dltvsNextToken' - The token to request the next page of results. +-- +-- * 'dltvsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dltvsMaxResults' - The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. +describeLaunchTemplateVersions + :: DescribeLaunchTemplateVersions +describeLaunchTemplateVersions = + DescribeLaunchTemplateVersions' + { _dltvsLaunchTemplateName = Nothing + , _dltvsLaunchTemplateId = Nothing + , _dltvsMinVersion = Nothing + , _dltvsFilters = Nothing + , _dltvsMaxVersion = Nothing + , _dltvsVersions = Nothing + , _dltvsNextToken = Nothing + , _dltvsDryRun = Nothing + , _dltvsMaxResults = Nothing + } + + +-- | The name of the launch template. You must specify either the launch template ID or launch template name in the request. +dltvsLaunchTemplateName :: Lens' DescribeLaunchTemplateVersions (Maybe Text) +dltvsLaunchTemplateName = lens _dltvsLaunchTemplateName (\ s a -> s{_dltvsLaunchTemplateName = a}) + +-- | The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +dltvsLaunchTemplateId :: Lens' DescribeLaunchTemplateVersions (Maybe Text) +dltvsLaunchTemplateId = lens _dltvsLaunchTemplateId (\ s a -> s{_dltvsLaunchTemplateId = a}) + +-- | The version number after which to describe launch template versions. +dltvsMinVersion :: Lens' DescribeLaunchTemplateVersions (Maybe Text) +dltvsMinVersion = lens _dltvsMinVersion (\ s a -> s{_dltvsMinVersion = a}) + +-- | One or more filters. * @create-time@ - The time the launch template version was created. * @ebs-optimized@ - A boolean that indicates whether the instance is optimized for Amazon EBS I/O. * @iam-instance-profile@ - The ARN of the IAM instance profile. * @image-id@ - The ID of the AMI. * @instance-type@ - The instance type. * @is-default-version@ - A boolean that indicates whether the launch template version is the default version. * @kernel-id@ - The kernel ID. * @ram-disk-id@ - The RAM disk ID. +dltvsFilters :: Lens' DescribeLaunchTemplateVersions [Filter] +dltvsFilters = lens _dltvsFilters (\ s a -> s{_dltvsFilters = a}) . _Default . _Coerce + +-- | The version number up to which to describe launch template versions. +dltvsMaxVersion :: Lens' DescribeLaunchTemplateVersions (Maybe Text) +dltvsMaxVersion = lens _dltvsMaxVersion (\ s a -> s{_dltvsMaxVersion = a}) + +-- | One or more versions of the launch template. +dltvsVersions :: Lens' DescribeLaunchTemplateVersions [Text] +dltvsVersions = lens _dltvsVersions (\ s a -> s{_dltvsVersions = a}) . _Default . _Coerce + +-- | The token to request the next page of results. +dltvsNextToken :: Lens' DescribeLaunchTemplateVersions (Maybe Text) +dltvsNextToken = lens _dltvsNextToken (\ s a -> s{_dltvsNextToken = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dltvsDryRun :: Lens' DescribeLaunchTemplateVersions (Maybe Bool) +dltvsDryRun = lens _dltvsDryRun (\ s a -> s{_dltvsDryRun = a}) + +-- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. +dltvsMaxResults :: Lens' DescribeLaunchTemplateVersions (Maybe Int) +dltvsMaxResults = lens _dltvsMaxResults (\ s a -> s{_dltvsMaxResults = a}) + +instance AWSRequest DescribeLaunchTemplateVersions + where + type Rs DescribeLaunchTemplateVersions = + DescribeLaunchTemplateVersionsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeLaunchTemplateVersionsResponse' <$> + (x .@? "nextToken") <*> + (x .@? "launchTemplateVersionSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable DescribeLaunchTemplateVersions + where + +instance NFData DescribeLaunchTemplateVersions where + +instance ToHeaders DescribeLaunchTemplateVersions + where + toHeaders = const mempty + +instance ToPath DescribeLaunchTemplateVersions where + toPath = const "/" + +instance ToQuery DescribeLaunchTemplateVersions where + toQuery DescribeLaunchTemplateVersions'{..} + = mconcat + ["Action" =: + ("DescribeLaunchTemplateVersions" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "LaunchTemplateName" =: _dltvsLaunchTemplateName, + "LaunchTemplateId" =: _dltvsLaunchTemplateId, + "MinVersion" =: _dltvsMinVersion, + toQuery (toQueryList "Filter" <$> _dltvsFilters), + "MaxVersion" =: _dltvsMaxVersion, + toQuery + (toQueryList "LaunchTemplateVersion" <$> + _dltvsVersions), + "NextToken" =: _dltvsNextToken, + "DryRun" =: _dltvsDryRun, + "MaxResults" =: _dltvsMaxResults] + +-- | /See:/ 'describeLaunchTemplateVersionsResponse' smart constructor. +data DescribeLaunchTemplateVersionsResponse = DescribeLaunchTemplateVersionsResponse' + { _dltvrsNextToken :: !(Maybe Text) + , _dltvrsLaunchTemplateVersions :: !(Maybe [LaunchTemplateVersion]) + , _dltvrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeLaunchTemplateVersionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltvrsNextToken' - The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +-- +-- * 'dltvrsLaunchTemplateVersions' - Information about the launch template versions. +-- +-- * 'dltvrsResponseStatus' - -- | The response status code. +describeLaunchTemplateVersionsResponse + :: Int -- ^ 'dltvrsResponseStatus' + -> DescribeLaunchTemplateVersionsResponse +describeLaunchTemplateVersionsResponse pResponseStatus_ = + DescribeLaunchTemplateVersionsResponse' + { _dltvrsNextToken = Nothing + , _dltvrsLaunchTemplateVersions = Nothing + , _dltvrsResponseStatus = pResponseStatus_ + } + + +-- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +dltvrsNextToken :: Lens' DescribeLaunchTemplateVersionsResponse (Maybe Text) +dltvrsNextToken = lens _dltvrsNextToken (\ s a -> s{_dltvrsNextToken = a}) + +-- | Information about the launch template versions. +dltvrsLaunchTemplateVersions :: Lens' DescribeLaunchTemplateVersionsResponse [LaunchTemplateVersion] +dltvrsLaunchTemplateVersions = lens _dltvrsLaunchTemplateVersions (\ s a -> s{_dltvrsLaunchTemplateVersions = a}) . _Default . _Coerce + +-- | -- | The response status code. +dltvrsResponseStatus :: Lens' DescribeLaunchTemplateVersionsResponse Int +dltvrsResponseStatus = lens _dltvrsResponseStatus (\ s a -> s{_dltvrsResponseStatus = a}) + +instance NFData + DescribeLaunchTemplateVersionsResponse + where diff --git a/gen/Network/AWS/EC2/DescribeLaunchTemplates.hs b/gen/Network/AWS/EC2/DescribeLaunchTemplates.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeLaunchTemplates.hs @@ -0,0 +1,196 @@ +{-# 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.DescribeLaunchTemplates +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes one or more launch templates. +-- +-- +module Network.AWS.EC2.DescribeLaunchTemplates + ( + -- * Creating a Request + describeLaunchTemplates + , DescribeLaunchTemplates + -- * Request Lenses + , dltsFilters + , dltsNextToken + , dltsLaunchTemplateIds + , dltsDryRun + , dltsMaxResults + , dltsLaunchTemplateNames + + -- * Destructuring the Response + , describeLaunchTemplatesResponse + , DescribeLaunchTemplatesResponse + -- * Response Lenses + , dltsrsLaunchTemplates + , dltsrsNextToken + , dltsrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeLaunchTemplates' smart constructor. +data DescribeLaunchTemplates = DescribeLaunchTemplates' + { _dltsFilters :: !(Maybe [Filter]) + , _dltsNextToken :: !(Maybe Text) + , _dltsLaunchTemplateIds :: !(Maybe [Text]) + , _dltsDryRun :: !(Maybe Bool) + , _dltsMaxResults :: !(Maybe Int) + , _dltsLaunchTemplateNames :: !(Maybe [Text]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeLaunchTemplates' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltsFilters' - One or more filters. * @create-time@ - The time the launch template was created. * @launch-template-name@ - The name of the launch template. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of the tag's key). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. +-- +-- * 'dltsNextToken' - The token to request the next page of results. +-- +-- * 'dltsLaunchTemplateIds' - One or more launch template IDs. +-- +-- * 'dltsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dltsMaxResults' - The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. +-- +-- * 'dltsLaunchTemplateNames' - One or more launch template names. +describeLaunchTemplates + :: DescribeLaunchTemplates +describeLaunchTemplates = + DescribeLaunchTemplates' + { _dltsFilters = Nothing + , _dltsNextToken = Nothing + , _dltsLaunchTemplateIds = Nothing + , _dltsDryRun = Nothing + , _dltsMaxResults = Nothing + , _dltsLaunchTemplateNames = Nothing + } + + +-- | One or more filters. * @create-time@ - The time the launch template was created. * @launch-template-name@ - The name of the launch template. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of the tag's key). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. +dltsFilters :: Lens' DescribeLaunchTemplates [Filter] +dltsFilters = lens _dltsFilters (\ s a -> s{_dltsFilters = a}) . _Default . _Coerce + +-- | The token to request the next page of results. +dltsNextToken :: Lens' DescribeLaunchTemplates (Maybe Text) +dltsNextToken = lens _dltsNextToken (\ s a -> s{_dltsNextToken = a}) + +-- | One or more launch template IDs. +dltsLaunchTemplateIds :: Lens' DescribeLaunchTemplates [Text] +dltsLaunchTemplateIds = lens _dltsLaunchTemplateIds (\ s a -> s{_dltsLaunchTemplateIds = a}) . _Default . _Coerce + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dltsDryRun :: Lens' DescribeLaunchTemplates (Maybe Bool) +dltsDryRun = lens _dltsDryRun (\ s a -> s{_dltsDryRun = a}) + +-- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. This value can be between 5 and 1000. +dltsMaxResults :: Lens' DescribeLaunchTemplates (Maybe Int) +dltsMaxResults = lens _dltsMaxResults (\ s a -> s{_dltsMaxResults = a}) + +-- | One or more launch template names. +dltsLaunchTemplateNames :: Lens' DescribeLaunchTemplates [Text] +dltsLaunchTemplateNames = lens _dltsLaunchTemplateNames (\ s a -> s{_dltsLaunchTemplateNames = a}) . _Default . _Coerce + +instance AWSRequest DescribeLaunchTemplates where + type Rs DescribeLaunchTemplates = + DescribeLaunchTemplatesResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeLaunchTemplatesResponse' <$> + (x .@? "launchTemplates" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "nextToken") + <*> (pure (fromEnum s))) + +instance Hashable DescribeLaunchTemplates where + +instance NFData DescribeLaunchTemplates where + +instance ToHeaders DescribeLaunchTemplates where + toHeaders = const mempty + +instance ToPath DescribeLaunchTemplates where + toPath = const "/" + +instance ToQuery DescribeLaunchTemplates where + toQuery DescribeLaunchTemplates'{..} + = mconcat + ["Action" =: + ("DescribeLaunchTemplates" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dltsFilters), + "NextToken" =: _dltsNextToken, + toQuery + (toQueryList "LaunchTemplateId" <$> + _dltsLaunchTemplateIds), + "DryRun" =: _dltsDryRun, + "MaxResults" =: _dltsMaxResults, + toQuery + (toQueryList "LaunchTemplateName" <$> + _dltsLaunchTemplateNames)] + +-- | /See:/ 'describeLaunchTemplatesResponse' smart constructor. +data DescribeLaunchTemplatesResponse = DescribeLaunchTemplatesResponse' + { _dltsrsLaunchTemplates :: !(Maybe [LaunchTemplate]) + , _dltsrsNextToken :: !(Maybe Text) + , _dltsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeLaunchTemplatesResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltsrsLaunchTemplates' - Information about the launch templates. +-- +-- * 'dltsrsNextToken' - The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +-- +-- * 'dltsrsResponseStatus' - -- | The response status code. +describeLaunchTemplatesResponse + :: Int -- ^ 'dltsrsResponseStatus' + -> DescribeLaunchTemplatesResponse +describeLaunchTemplatesResponse pResponseStatus_ = + DescribeLaunchTemplatesResponse' + { _dltsrsLaunchTemplates = Nothing + , _dltsrsNextToken = Nothing + , _dltsrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the launch templates. +dltsrsLaunchTemplates :: Lens' DescribeLaunchTemplatesResponse [LaunchTemplate] +dltsrsLaunchTemplates = lens _dltsrsLaunchTemplates (\ s a -> s{_dltsrsLaunchTemplates = a}) . _Default . _Coerce + +-- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +dltsrsNextToken :: Lens' DescribeLaunchTemplatesResponse (Maybe Text) +dltsrsNextToken = lens _dltsrsNextToken (\ s a -> s{_dltsrsNextToken = a}) + +-- | -- | The response status code. +dltsrsResponseStatus :: Lens' DescribeLaunchTemplatesResponse Int +dltsrsResponseStatus = lens _dltsrsResponseStatus (\ s a -> s{_dltsrsResponseStatus = a}) + +instance NFData DescribeLaunchTemplatesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeMovingAddresses --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -80,33 +80,33 @@ :: DescribeMovingAddresses describeMovingAddresses = DescribeMovingAddresses' - { _dmaFilters = Nothing - , _dmaPublicIPs = Nothing - , _dmaNextToken = Nothing - , _dmaDryRun = Nothing - , _dmaMaxResults = Nothing - } + { _dmaFilters = Nothing + , _dmaPublicIPs = Nothing + , _dmaNextToken = Nothing + , _dmaDryRun = Nothing + , _dmaMaxResults = Nothing + } -- | One or more filters. * @moving-status@ - The status of the Elastic IP address (@MovingToVpc@ | @RestoringToClassic@ ). dmaFilters :: Lens' DescribeMovingAddresses [Filter] -dmaFilters = lens _dmaFilters (\ s a -> s{_dmaFilters = a}) . _Default . _Coerce; +dmaFilters = lens _dmaFilters (\ s a -> s{_dmaFilters = a}) . _Default . _Coerce -- | One or more Elastic IP addresses. dmaPublicIPs :: Lens' DescribeMovingAddresses [Text] -dmaPublicIPs = lens _dmaPublicIPs (\ s a -> s{_dmaPublicIPs = a}) . _Default . _Coerce; +dmaPublicIPs = lens _dmaPublicIPs (\ s a -> s{_dmaPublicIPs = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. dmaNextToken :: Lens' DescribeMovingAddresses (Maybe Text) -dmaNextToken = lens _dmaNextToken (\ s a -> s{_dmaNextToken = a}); +dmaNextToken = lens _dmaNextToken (\ s a -> s{_dmaNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dmaDryRun :: Lens' DescribeMovingAddresses (Maybe Bool) -dmaDryRun = lens _dmaDryRun (\ s a -> s{_dmaDryRun = a}); +dmaDryRun = lens _dmaDryRun (\ s a -> s{_dmaDryRun = a}) -- | The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value outside of this range, an error is returned. Default: If no value is provided, the default is 1000. dmaMaxResults :: Lens' DescribeMovingAddresses (Maybe Int) -dmaMaxResults = lens _dmaMaxResults (\ s a -> s{_dmaMaxResults = a}); +dmaMaxResults = lens _dmaMaxResults (\ s a -> s{_dmaMaxResults = a}) instance AWSRequest DescribeMovingAddresses where type Rs DescribeMovingAddresses = @@ -168,22 +168,22 @@ -> DescribeMovingAddressesResponse describeMovingAddressesResponse pResponseStatus_ = DescribeMovingAddressesResponse' - { _dmarsMovingAddressStatuses = Nothing - , _dmarsNextToken = Nothing - , _dmarsResponseStatus = pResponseStatus_ - } + { _dmarsMovingAddressStatuses = Nothing + , _dmarsNextToken = Nothing + , _dmarsResponseStatus = pResponseStatus_ + } -- | The status for each Elastic IP address. dmarsMovingAddressStatuses :: Lens' DescribeMovingAddressesResponse [MovingAddressStatus] -dmarsMovingAddressStatuses = lens _dmarsMovingAddressStatuses (\ s a -> s{_dmarsMovingAddressStatuses = a}) . _Default . _Coerce; +dmarsMovingAddressStatuses = lens _dmarsMovingAddressStatuses (\ s a -> s{_dmarsMovingAddressStatuses = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dmarsNextToken :: Lens' DescribeMovingAddressesResponse (Maybe Text) -dmarsNextToken = lens _dmarsNextToken (\ s a -> s{_dmarsNextToken = a}); +dmarsNextToken = lens _dmarsNextToken (\ s a -> s{_dmarsNextToken = a}) -- | -- | The response status code. dmarsResponseStatus :: Lens' DescribeMovingAddressesResponse Int -dmarsResponseStatus = lens _dmarsResponseStatus (\ s a -> s{_dmarsResponseStatus = a}); +dmarsResponseStatus = lens _dmarsResponseStatus (\ s a -> s{_dmarsResponseStatus = a}) instance NFData DescribeMovingAddressesResponse where diff --git a/gen/Network/AWS/EC2/DescribeNatGateways.hs b/gen/Network/AWS/EC2/DescribeNatGateways.hs --- a/gen/Network/AWS/EC2/DescribeNatGateways.hs +++ b/gen/Network/AWS/EC2/DescribeNatGateways.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeNatGateways --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -79,28 +79,28 @@ :: DescribeNatGateways describeNatGateways = DescribeNatGateways' - { _dngNatGatewayIds = Nothing - , _dngNextToken = Nothing - , _dngFilter = Nothing - , _dngMaxResults = Nothing - } + { _dngNatGatewayIds = Nothing + , _dngNextToken = Nothing + , _dngFilter = Nothing + , _dngMaxResults = Nothing + } -- | One or more NAT gateway IDs. dngNatGatewayIds :: Lens' DescribeNatGateways [Text] -dngNatGatewayIds = lens _dngNatGatewayIds (\ s a -> s{_dngNatGatewayIds = a}) . _Default . _Coerce; +dngNatGatewayIds = lens _dngNatGatewayIds (\ s a -> s{_dngNatGatewayIds = a}) . _Default . _Coerce -- | The token to retrieve the next page of results. dngNextToken :: Lens' DescribeNatGateways (Maybe Text) -dngNextToken = lens _dngNextToken (\ s a -> s{_dngNextToken = a}); +dngNextToken = lens _dngNextToken (\ s a -> s{_dngNextToken = a}) -- | One or more filters. * @nat-gateway-id@ - The ID of the NAT gateway. * @state@ - The state of the NAT gateway (@pending@ | @failed@ | @available@ | @deleting@ | @deleted@ ). * @subnet-id@ - The ID of the subnet in which the NAT gateway resides. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-id@ - The ID of the VPC in which the NAT gateway resides. dngFilter :: Lens' DescribeNatGateways [Filter] -dngFilter = lens _dngFilter (\ s a -> s{_dngFilter = a}) . _Default . _Coerce; +dngFilter = lens _dngFilter (\ s a -> s{_dngFilter = a}) . _Default . _Coerce -- | The maximum number of items to return for this request. The request returns a token that you can specify in a subsequent call to get the next set of results. Constraint: If the value specified is greater than 1000, we return only 1000 items. dngMaxResults :: Lens' DescribeNatGateways (Maybe Int) -dngMaxResults = lens _dngMaxResults (\ s a -> s{_dngMaxResults = a}); +dngMaxResults = lens _dngMaxResults (\ s a -> s{_dngMaxResults = a}) instance AWSPager DescribeNatGateways where page rq rs @@ -169,22 +169,22 @@ -> DescribeNatGatewaysResponse describeNatGatewaysResponse pResponseStatus_ = DescribeNatGatewaysResponse' - { _dngrsNatGateways = Nothing - , _dngrsNextToken = Nothing - , _dngrsResponseStatus = pResponseStatus_ - } + { _dngrsNatGateways = Nothing + , _dngrsNextToken = Nothing + , _dngrsResponseStatus = pResponseStatus_ + } -- | Information about the NAT gateways. dngrsNatGateways :: Lens' DescribeNatGatewaysResponse [NatGateway] -dngrsNatGateways = lens _dngrsNatGateways (\ s a -> s{_dngrsNatGateways = a}) . _Default . _Coerce; +dngrsNatGateways = lens _dngrsNatGateways (\ s a -> s{_dngrsNatGateways = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dngrsNextToken :: Lens' DescribeNatGatewaysResponse (Maybe Text) -dngrsNextToken = lens _dngrsNextToken (\ s a -> s{_dngrsNextToken = a}); +dngrsNextToken = lens _dngrsNextToken (\ s a -> s{_dngrsNextToken = a}) -- | -- | The response status code. dngrsResponseStatus :: Lens' DescribeNatGatewaysResponse Int -dngrsResponseStatus = lens _dngrsResponseStatus (\ s a -> s{_dngrsResponseStatus = a}); +dngrsResponseStatus = lens _dngrsResponseStatus (\ s a -> s{_dngrsResponseStatus = a}) instance NFData DescribeNatGatewaysResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeNetworkACLs --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,23 +73,23 @@ :: DescribeNetworkACLs describeNetworkACLs = DescribeNetworkACLs' - { _dnaclFilters = Nothing - , _dnaclNetworkACLIds = Nothing - , _dnaclDryRun = Nothing - } + { _dnaclFilters = Nothing + , _dnaclNetworkACLIds = Nothing + , _dnaclDryRun = Nothing + } -- | One or more filters. * @association.association-id@ - The ID of an association ID for the ACL. * @association.network-acl-id@ - The ID of the network ACL involved in the association. * @association.subnet-id@ - The ID of the subnet involved in the association. * @default@ - Indicates whether the ACL is the default network ACL for the VPC. * @entry.cidr@ - The IPv4 CIDR range specified in the entry. * @entry.egress@ - Indicates whether the entry applies to egress traffic. * @entry.icmp.code@ - The ICMP code specified in the entry, if any. * @entry.icmp.type@ - The ICMP type specified in the entry, if any. * @entry.ipv6-cidr@ - The IPv6 CIDR range specified in the entry. * @entry.port-range.from@ - The start of the port range specified in the entry. * @entry.port-range.to@ - The end of the port range specified in the entry. * @entry.protocol@ - The protocol specified in the entry (@tcp@ | @udp@ | @icmp@ or a protocol number). * @entry.rule-action@ - Allows or denies the matching traffic (@allow@ | @deny@ ). * @entry.rule-number@ - The number of an entry (in other words, rule) in the ACL's set of entries. * @network-acl-id@ - The ID of the network ACL. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-id@ - The ID of the VPC for the network ACL. dnaclFilters :: Lens' DescribeNetworkACLs [Filter] -dnaclFilters = lens _dnaclFilters (\ s a -> s{_dnaclFilters = a}) . _Default . _Coerce; +dnaclFilters = lens _dnaclFilters (\ s a -> s{_dnaclFilters = a}) . _Default . _Coerce -- | One or more network ACL IDs. Default: Describes all your network ACLs. dnaclNetworkACLIds :: Lens' DescribeNetworkACLs [Text] -dnaclNetworkACLIds = lens _dnaclNetworkACLIds (\ s a -> s{_dnaclNetworkACLIds = a}) . _Default . _Coerce; +dnaclNetworkACLIds = lens _dnaclNetworkACLIds (\ s a -> s{_dnaclNetworkACLIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dnaclDryRun :: Lens' DescribeNetworkACLs (Maybe Bool) -dnaclDryRun = lens _dnaclDryRun (\ s a -> s{_dnaclDryRun = a}); +dnaclDryRun = lens _dnaclDryRun (\ s a -> s{_dnaclDryRun = a}) instance AWSRequest DescribeNetworkACLs where type Rs DescribeNetworkACLs = @@ -146,15 +146,15 @@ -> DescribeNetworkACLsResponse describeNetworkACLsResponse pResponseStatus_ = DescribeNetworkACLsResponse' - {_dnarsNetworkACLs = Nothing, _dnarsResponseStatus = pResponseStatus_} + {_dnarsNetworkACLs = Nothing, _dnarsResponseStatus = pResponseStatus_} -- | Information about one or more network ACLs. dnarsNetworkACLs :: Lens' DescribeNetworkACLsResponse [NetworkACL] -dnarsNetworkACLs = lens _dnarsNetworkACLs (\ s a -> s{_dnarsNetworkACLs = a}) . _Default . _Coerce; +dnarsNetworkACLs = lens _dnarsNetworkACLs (\ s a -> s{_dnarsNetworkACLs = a}) . _Default . _Coerce -- | -- | The response status code. dnarsResponseStatus :: Lens' DescribeNetworkACLsResponse Int -dnarsResponseStatus = lens _dnarsResponseStatus (\ s a -> s{_dnarsResponseStatus = a}); +dnarsResponseStatus = lens _dnarsResponseStatus (\ s a -> s{_dnarsResponseStatus = a}) instance NFData DescribeNetworkACLsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeNetworkInterfaceAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -76,23 +76,23 @@ -> DescribeNetworkInterfaceAttribute describeNetworkInterfaceAttribute pNetworkInterfaceId_ = DescribeNetworkInterfaceAttribute' - { _dniaAttribute = Nothing - , _dniaDryRun = Nothing - , _dniaNetworkInterfaceId = pNetworkInterfaceId_ - } + { _dniaAttribute = Nothing + , _dniaDryRun = Nothing + , _dniaNetworkInterfaceId = pNetworkInterfaceId_ + } -- | The attribute of the network interface. This parameter is required. dniaAttribute :: Lens' DescribeNetworkInterfaceAttribute (Maybe NetworkInterfaceAttribute) -dniaAttribute = lens _dniaAttribute (\ s a -> s{_dniaAttribute = a}); +dniaAttribute = lens _dniaAttribute (\ s a -> s{_dniaAttribute = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dniaDryRun :: Lens' DescribeNetworkInterfaceAttribute (Maybe Bool) -dniaDryRun = lens _dniaDryRun (\ s a -> s{_dniaDryRun = a}); +dniaDryRun = lens _dniaDryRun (\ s a -> s{_dniaDryRun = a}) -- | The ID of the network interface. dniaNetworkInterfaceId :: Lens' DescribeNetworkInterfaceAttribute Text -dniaNetworkInterfaceId = lens _dniaNetworkInterfaceId (\ s a -> s{_dniaNetworkInterfaceId = a}); +dniaNetworkInterfaceId = lens _dniaNetworkInterfaceId (\ s a -> s{_dniaNetworkInterfaceId = a}) instance AWSRequest DescribeNetworkInterfaceAttribute where @@ -171,38 +171,38 @@ -> DescribeNetworkInterfaceAttributeResponse describeNetworkInterfaceAttributeResponse pResponseStatus_ = DescribeNetworkInterfaceAttributeResponse' - { _dniarsGroups = Nothing - , _dniarsSourceDestCheck = Nothing - , _dniarsNetworkInterfaceId = Nothing - , _dniarsAttachment = Nothing - , _dniarsDescription = Nothing - , _dniarsResponseStatus = pResponseStatus_ - } + { _dniarsGroups = Nothing + , _dniarsSourceDestCheck = Nothing + , _dniarsNetworkInterfaceId = Nothing + , _dniarsAttachment = Nothing + , _dniarsDescription = Nothing + , _dniarsResponseStatus = pResponseStatus_ + } -- | The security groups associated with the network interface. dniarsGroups :: Lens' DescribeNetworkInterfaceAttributeResponse [GroupIdentifier] -dniarsGroups = lens _dniarsGroups (\ s a -> s{_dniarsGroups = a}) . _Default . _Coerce; +dniarsGroups = lens _dniarsGroups (\ s a -> s{_dniarsGroups = a}) . _Default . _Coerce -- | Indicates whether source/destination checking is enabled. dniarsSourceDestCheck :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeBooleanValue) -dniarsSourceDestCheck = lens _dniarsSourceDestCheck (\ s a -> s{_dniarsSourceDestCheck = a}); +dniarsSourceDestCheck = lens _dniarsSourceDestCheck (\ s a -> s{_dniarsSourceDestCheck = a}) -- | The ID of the network interface. dniarsNetworkInterfaceId :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe Text) -dniarsNetworkInterfaceId = lens _dniarsNetworkInterfaceId (\ s a -> s{_dniarsNetworkInterfaceId = a}); +dniarsNetworkInterfaceId = lens _dniarsNetworkInterfaceId (\ s a -> s{_dniarsNetworkInterfaceId = a}) -- | The attachment (if any) of the network interface. dniarsAttachment :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe NetworkInterfaceAttachment) -dniarsAttachment = lens _dniarsAttachment (\ s a -> s{_dniarsAttachment = a}); +dniarsAttachment = lens _dniarsAttachment (\ s a -> s{_dniarsAttachment = a}) -- | The description of the network interface. dniarsDescription :: Lens' DescribeNetworkInterfaceAttributeResponse (Maybe AttributeValue) -dniarsDescription = lens _dniarsDescription (\ s a -> s{_dniarsDescription = a}); +dniarsDescription = lens _dniarsDescription (\ s a -> s{_dniarsDescription = a}) -- | -- | The response status code. dniarsResponseStatus :: Lens' DescribeNetworkInterfaceAttributeResponse Int -dniarsResponseStatus = lens _dniarsResponseStatus (\ s a -> s{_dniarsResponseStatus = a}); +dniarsResponseStatus = lens _dniarsResponseStatus (\ s a -> s{_dniarsResponseStatus = a}) instance NFData DescribeNetworkInterfaceAttributeResponse diff --git a/gen/Network/AWS/EC2/DescribeNetworkInterfacePermissions.hs b/gen/Network/AWS/EC2/DescribeNetworkInterfacePermissions.hs --- a/gen/Network/AWS/EC2/DescribeNetworkInterfacePermissions.hs +++ b/gen/Network/AWS/EC2/DescribeNetworkInterfacePermissions.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeNetworkInterfacePermissions --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -36,9 +36,9 @@ , describeNetworkInterfacePermissionsResponse , DescribeNetworkInterfacePermissionsResponse -- * Response Lenses - , drsNetworkInterfacePermissions - , drsNextToken - , drsResponseStatus + , dnipsrsNetworkInterfacePermissions + , dnipsrsNextToken + , dnipsrsResponseStatus ) where import Network.AWS.EC2.Types @@ -76,28 +76,28 @@ :: DescribeNetworkInterfacePermissions describeNetworkInterfacePermissions = DescribeNetworkInterfacePermissions' - { _dnipFilters = Nothing - , _dnipNextToken = Nothing - , _dnipNetworkInterfacePermissionIds = Nothing - , _dnipMaxResults = Nothing - } + { _dnipFilters = Nothing + , _dnipNextToken = Nothing + , _dnipNetworkInterfacePermissionIds = Nothing + , _dnipMaxResults = Nothing + } -- | One or more filters. * @network-interface-permission.network-interface-permission-id@ - The ID of the permission. * @network-interface-permission.network-interface-id@ - The ID of the network interface. * @network-interface-permission.aws-account-id@ - The AWS account ID. * @network-interface-permission.aws-service@ - The AWS service. * @network-interface-permission.permission@ - The type of permission (@INSTANCE-ATTACH@ | @EIP-ASSOCIATE@ ). dnipFilters :: Lens' DescribeNetworkInterfacePermissions [Filter] -dnipFilters = lens _dnipFilters (\ s a -> s{_dnipFilters = a}) . _Default . _Coerce; +dnipFilters = lens _dnipFilters (\ s a -> s{_dnipFilters = a}) . _Default . _Coerce -- | The token to request the next page of results. dnipNextToken :: Lens' DescribeNetworkInterfacePermissions (Maybe Text) -dnipNextToken = lens _dnipNextToken (\ s a -> s{_dnipNextToken = a}); +dnipNextToken = lens _dnipNextToken (\ s a -> s{_dnipNextToken = a}) -- | One or more network interface permission IDs. dnipNetworkInterfacePermissionIds :: Lens' DescribeNetworkInterfacePermissions [Text] -dnipNetworkInterfacePermissionIds = lens _dnipNetworkInterfacePermissionIds (\ s a -> s{_dnipNetworkInterfacePermissionIds = a}) . _Default . _Coerce; +dnipNetworkInterfacePermissionIds = lens _dnipNetworkInterfacePermissionIds (\ s a -> s{_dnipNetworkInterfacePermissionIds = a}) . _Default . _Coerce -- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned @NextToken@ value. If this parameter is not specified, up to 50 results are returned by default. dnipMaxResults :: Lens' DescribeNetworkInterfacePermissions (Maybe Int) -dnipMaxResults = lens _dnipMaxResults (\ s a -> s{_dnipMaxResults = a}); +dnipMaxResults = lens _dnipMaxResults (\ s a -> s{_dnipMaxResults = a}) instance AWSRequest DescribeNetworkInterfacePermissions @@ -150,9 +150,9 @@ -- -- /See:/ 'describeNetworkInterfacePermissionsResponse' smart constructor. data DescribeNetworkInterfacePermissionsResponse = DescribeNetworkInterfacePermissionsResponse' - { _drsNetworkInterfacePermissions :: !(Maybe [NetworkInterfacePermission]) - , _drsNextToken :: !(Maybe Text) - , _drsResponseStatus :: !Int + { _dnipsrsNetworkInterfacePermissions :: !(Maybe [NetworkInterfacePermission]) + , _dnipsrsNextToken :: !(Maybe Text) + , _dnipsrsResponseStatus :: !Int } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -160,33 +160,33 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'drsNetworkInterfacePermissions' - The network interface permissions. +-- * 'dnipsrsNetworkInterfacePermissions' - The network interface permissions. -- --- * 'drsNextToken' - The token to use to retrieve the next page of results. +-- * 'dnipsrsNextToken' - The token to use to retrieve the next page of results. -- --- * 'drsResponseStatus' - -- | The response status code. +-- * 'dnipsrsResponseStatus' - -- | The response status code. describeNetworkInterfacePermissionsResponse - :: Int -- ^ 'drsResponseStatus' + :: Int -- ^ 'dnipsrsResponseStatus' -> DescribeNetworkInterfacePermissionsResponse describeNetworkInterfacePermissionsResponse pResponseStatus_ = DescribeNetworkInterfacePermissionsResponse' - { _drsNetworkInterfacePermissions = Nothing - , _drsNextToken = Nothing - , _drsResponseStatus = pResponseStatus_ - } + { _dnipsrsNetworkInterfacePermissions = Nothing + , _dnipsrsNextToken = Nothing + , _dnipsrsResponseStatus = pResponseStatus_ + } -- | The network interface permissions. -drsNetworkInterfacePermissions :: Lens' DescribeNetworkInterfacePermissionsResponse [NetworkInterfacePermission] -drsNetworkInterfacePermissions = lens _drsNetworkInterfacePermissions (\ s a -> s{_drsNetworkInterfacePermissions = a}) . _Default . _Coerce; +dnipsrsNetworkInterfacePermissions :: Lens' DescribeNetworkInterfacePermissionsResponse [NetworkInterfacePermission] +dnipsrsNetworkInterfacePermissions = lens _dnipsrsNetworkInterfacePermissions (\ s a -> s{_dnipsrsNetworkInterfacePermissions = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. -drsNextToken :: Lens' DescribeNetworkInterfacePermissionsResponse (Maybe Text) -drsNextToken = lens _drsNextToken (\ s a -> s{_drsNextToken = a}); +dnipsrsNextToken :: Lens' DescribeNetworkInterfacePermissionsResponse (Maybe Text) +dnipsrsNextToken = lens _dnipsrsNextToken (\ s a -> s{_dnipsrsNextToken = a}) -- | -- | The response status code. -drsResponseStatus :: Lens' DescribeNetworkInterfacePermissionsResponse Int -drsResponseStatus = lens _drsResponseStatus (\ s a -> s{_drsResponseStatus = a}); +dnipsrsResponseStatus :: Lens' DescribeNetworkInterfacePermissionsResponse Int +dnipsrsResponseStatus = lens _dnipsrsResponseStatus (\ s a -> s{_dnipsrsResponseStatus = a}) instance NFData DescribeNetworkInterfacePermissionsResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeNetworkInterfaces --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,23 +71,23 @@ :: DescribeNetworkInterfaces describeNetworkInterfaces = DescribeNetworkInterfaces' - { _dnisNetworkInterfaceIds = Nothing - , _dnisFilters = Nothing - , _dnisDryRun = Nothing - } + { _dnisNetworkInterfaceIds = Nothing + , _dnisFilters = Nothing + , _dnisDryRun = Nothing + } -- | One or more network interface IDs. Default: Describes all your network interfaces. dnisNetworkInterfaceIds :: Lens' DescribeNetworkInterfaces [Text] -dnisNetworkInterfaceIds = lens _dnisNetworkInterfaceIds (\ s a -> s{_dnisNetworkInterfaceIds = a}) . _Default . _Coerce; +dnisNetworkInterfaceIds = lens _dnisNetworkInterfaceIds (\ s a -> s{_dnisNetworkInterfaceIds = a}) . _Default . _Coerce -- | One or more filters. * @addresses.private-ip-address@ - The private IPv4 addresses associated with the network interface. * @addresses.primary@ - Whether the private IPv4 address is the primary IP address associated with the network interface. * @addresses.association.public-ip@ - The association ID returned when the network interface was associated with the Elastic IP address (IPv4). * @addresses.association.owner-id@ - The owner ID of the addresses associated with the network interface. * @association.association-id@ - The association ID returned when the network interface was associated with an IPv4 address. * @association.allocation-id@ - The allocation ID returned when you allocated the Elastic IP address (IPv4) for your network interface. * @association.ip-owner-id@ - The owner of the Elastic IP address (IPv4) associated with the network interface. * @association.public-ip@ - The address of the Elastic IP address (IPv4) bound to the network interface. * @association.public-dns-name@ - The public DNS name for the network interface (IPv4). * @attachment.attachment-id@ - The ID of the interface attachment. * @attachment.attach.time@ - The time that the network interface was attached to an instance. * @attachment.delete-on-termination@ - Indicates whether the attachment is deleted when an instance is terminated. * @attachment.device-index@ - The device index to which the network interface is attached. * @attachment.instance-id@ - The ID of the instance to which the network interface is attached. * @attachment.instance-owner-id@ - The owner ID of the instance to which the network interface is attached. * @attachment.nat-gateway-id@ - The ID of the NAT gateway to which the network interface is attached. * @attachment.status@ - The status of the attachment (@attaching@ | @attached@ | @detaching@ | @detached@ ). * @availability-zone@ - The Availability Zone of the network interface. * @description@ - The description of the network interface. * @group-id@ - The ID of a security group associated with the network interface. * @group-name@ - The name of a security group associated with the network interface. * @ipv6-addresses.ipv6-address@ - An IPv6 address associated with the network interface. * @mac-address@ - The MAC address of the network interface. * @network-interface-id@ - The ID of the network interface. * @owner-id@ - The AWS account ID of the network interface owner. * @private-ip-address@ - The private IPv4 address or addresses of the network interface. * @private-dns-name@ - The private DNS name of the network interface (IPv4). * @requester-id@ - The ID of the entity that launched the instance on your behalf (for example, AWS Management Console, Auto Scaling, and so on). * @requester-managed@ - Indicates whether the network interface is being managed by an AWS service (for example, AWS Management Console, Auto Scaling, and so on). * @source-desk-check@ - Indicates whether the network interface performs source/destination checking. A value of @true@ means checking is enabled, and @false@ means checking is disabled. The value must be @false@ for the network interface to perform network address translation (NAT) in your VPC. * @status@ - The status of the network interface. If the network interface is not attached to an instance, the status is @available@ ; if a network interface is attached to an instance the status is @in-use@ . * @subnet-id@ - The ID of the subnet for the network interface. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-id@ - The ID of the VPC for the network interface. dnisFilters :: Lens' DescribeNetworkInterfaces [Filter] -dnisFilters = lens _dnisFilters (\ s a -> s{_dnisFilters = a}) . _Default . _Coerce; +dnisFilters = lens _dnisFilters (\ s a -> s{_dnisFilters = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dnisDryRun :: Lens' DescribeNetworkInterfaces (Maybe Bool) -dnisDryRun = lens _dnisDryRun (\ s a -> s{_dnisDryRun = a}); +dnisDryRun = lens _dnisDryRun (\ s a -> s{_dnisDryRun = a}) instance AWSRequest DescribeNetworkInterfaces where type Rs DescribeNetworkInterfaces = @@ -146,16 +146,16 @@ -> DescribeNetworkInterfacesResponse describeNetworkInterfacesResponse pResponseStatus_ = DescribeNetworkInterfacesResponse' - {_dnirsNetworkInterfaces = Nothing, _dnirsResponseStatus = pResponseStatus_} + {_dnirsNetworkInterfaces = Nothing, _dnirsResponseStatus = pResponseStatus_} -- | Information about one or more network interfaces. dnirsNetworkInterfaces :: Lens' DescribeNetworkInterfacesResponse [NetworkInterface] -dnirsNetworkInterfaces = lens _dnirsNetworkInterfaces (\ s a -> s{_dnirsNetworkInterfaces = a}) . _Default . _Coerce; +dnirsNetworkInterfaces = lens _dnirsNetworkInterfaces (\ s a -> s{_dnirsNetworkInterfaces = a}) . _Default . _Coerce -- | -- | The response status code. dnirsResponseStatus :: Lens' DescribeNetworkInterfacesResponse Int -dnirsResponseStatus = lens _dnirsResponseStatus (\ s a -> s{_dnirsResponseStatus = a}); +dnirsResponseStatus = lens _dnirsResponseStatus (\ s a -> s{_dnirsResponseStatus = a}) instance NFData DescribeNetworkInterfacesResponse where 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DescribePlacementGroups --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes one or more of your placement groups. For more information about placement groups and cluster instances, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Describes one or more of your placement groups. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- -- module Network.AWS.EC2.DescribePlacementGroups @@ -62,7 +62,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dpgsFilters' - One or more filters. * @group-name@ - The name of the placement group. * @state@ - The state of the placement group (@pending@ | @available@ | @deleting@ | @deleted@ ). * @strategy@ - The strategy of the placement group (@cluster@ ). +-- * 'dpgsFilters' - One or more filters. * @group-name@ - The name of the placement group. * @state@ - The state of the placement group (@pending@ | @available@ | @deleting@ | @deleted@ ). * @strategy@ - The strategy of the placement group (@cluster@ | @spread@ ). -- -- * 'dpgsGroupNames' - One or more placement group names. Default: Describes all your placement groups, or only those otherwise specified. -- @@ -71,20 +71,20 @@ :: DescribePlacementGroups describePlacementGroups = DescribePlacementGroups' - {_dpgsFilters = Nothing, _dpgsGroupNames = Nothing, _dpgsDryRun = Nothing} + {_dpgsFilters = Nothing, _dpgsGroupNames = Nothing, _dpgsDryRun = Nothing} --- | One or more filters. * @group-name@ - The name of the placement group. * @state@ - The state of the placement group (@pending@ | @available@ | @deleting@ | @deleted@ ). * @strategy@ - The strategy of the placement group (@cluster@ ). +-- | One or more filters. * @group-name@ - The name of the placement group. * @state@ - The state of the placement group (@pending@ | @available@ | @deleting@ | @deleted@ ). * @strategy@ - The strategy of the placement group (@cluster@ | @spread@ ). dpgsFilters :: Lens' DescribePlacementGroups [Filter] -dpgsFilters = lens _dpgsFilters (\ s a -> s{_dpgsFilters = a}) . _Default . _Coerce; +dpgsFilters = lens _dpgsFilters (\ s a -> s{_dpgsFilters = a}) . _Default . _Coerce -- | One or more placement group names. Default: Describes all your placement groups, or only those otherwise specified. dpgsGroupNames :: Lens' DescribePlacementGroups [Text] -dpgsGroupNames = lens _dpgsGroupNames (\ s a -> s{_dpgsGroupNames = a}) . _Default . _Coerce; +dpgsGroupNames = lens _dpgsGroupNames (\ s a -> s{_dpgsGroupNames = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dpgsDryRun :: Lens' DescribePlacementGroups (Maybe Bool) -dpgsDryRun = lens _dpgsDryRun (\ s a -> s{_dpgsDryRun = a}); +dpgsDryRun = lens _dpgsDryRun (\ s a -> s{_dpgsDryRun = a}) instance AWSRequest DescribePlacementGroups where type Rs DescribePlacementGroups = @@ -142,15 +142,15 @@ -> DescribePlacementGroupsResponse describePlacementGroupsResponse pResponseStatus_ = DescribePlacementGroupsResponse' - {_dpgrsPlacementGroups = Nothing, _dpgrsResponseStatus = pResponseStatus_} + {_dpgrsPlacementGroups = Nothing, _dpgrsResponseStatus = pResponseStatus_} -- | One or more placement groups. dpgrsPlacementGroups :: Lens' DescribePlacementGroupsResponse [PlacementGroup] -dpgrsPlacementGroups = lens _dpgrsPlacementGroups (\ s a -> s{_dpgrsPlacementGroups = a}) . _Default . _Coerce; +dpgrsPlacementGroups = lens _dpgrsPlacementGroups (\ s a -> s{_dpgrsPlacementGroups = a}) . _Default . _Coerce -- | -- | The response status code. dpgrsResponseStatus :: Lens' DescribePlacementGroupsResponse Int -dpgrsResponseStatus = lens _dpgrsResponseStatus (\ s a -> s{_dpgrsResponseStatus = a}); +dpgrsResponseStatus = lens _dpgrsResponseStatus (\ s a -> s{_dpgrsResponseStatus = a}) instance NFData DescribePlacementGroupsResponse where 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DescribePrefixLists --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes available AWS services in a prefix list format, which includes the prefix list name and prefix list ID of the service and the IP address range for the service. A prefix list ID is required for creating an outbound security group rule that allows traffic from a VPC to access an AWS service through a VPC endpoint. +-- Describes available AWS services in a prefix list format, which includes the prefix list name and prefix list ID of the service and the IP address range for the service. A prefix list ID is required for creating an outbound security group rule that allows traffic from a VPC to access an AWS service through a gateway VPC endpoint. -- -- module Network.AWS.EC2.DescribePrefixLists @@ -80,33 +80,33 @@ :: DescribePrefixLists describePrefixLists = DescribePrefixLists' - { _dplFilters = Nothing - , _dplPrefixListIds = Nothing - , _dplNextToken = Nothing - , _dplDryRun = Nothing - , _dplMaxResults = Nothing - } + { _dplFilters = Nothing + , _dplPrefixListIds = Nothing + , _dplNextToken = Nothing + , _dplDryRun = Nothing + , _dplMaxResults = Nothing + } -- | One or more filters. * @prefix-list-id@ : The ID of a prefix list. * @prefix-list-name@ : The name of a prefix list. dplFilters :: Lens' DescribePrefixLists [Filter] -dplFilters = lens _dplFilters (\ s a -> s{_dplFilters = a}) . _Default . _Coerce; +dplFilters = lens _dplFilters (\ s a -> s{_dplFilters = a}) . _Default . _Coerce -- | One or more prefix list IDs. dplPrefixListIds :: Lens' DescribePrefixLists [Text] -dplPrefixListIds = lens _dplPrefixListIds (\ s a -> s{_dplPrefixListIds = a}) . _Default . _Coerce; +dplPrefixListIds = lens _dplPrefixListIds (\ s a -> s{_dplPrefixListIds = a}) . _Default . _Coerce -- | The token for the next set of items to return. (You received this token from a prior call.) dplNextToken :: Lens' DescribePrefixLists (Maybe Text) -dplNextToken = lens _dplNextToken (\ s a -> s{_dplNextToken = a}); +dplNextToken = lens _dplNextToken (\ s a -> s{_dplNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dplDryRun :: Lens' DescribePrefixLists (Maybe Bool) -dplDryRun = lens _dplDryRun (\ s a -> s{_dplDryRun = a}); +dplDryRun = lens _dplDryRun (\ s a -> s{_dplDryRun = a}) -- | The maximum number of items to return for this request. The request returns a token that you can specify in a subsequent call to get the next set of results. Constraint: If the value specified is greater than 1000, we return only 1000 items. dplMaxResults :: Lens' DescribePrefixLists (Maybe Int) -dplMaxResults = lens _dplMaxResults (\ s a -> s{_dplMaxResults = a}); +dplMaxResults = lens _dplMaxResults (\ s a -> s{_dplMaxResults = a}) instance AWSRequest DescribePrefixLists where type Rs DescribePrefixLists = @@ -168,22 +168,22 @@ -> DescribePrefixListsResponse describePrefixListsResponse pResponseStatus_ = DescribePrefixListsResponse' - { _dplrsNextToken = Nothing - , _dplrsPrefixLists = Nothing - , _dplrsResponseStatus = pResponseStatus_ - } + { _dplrsNextToken = Nothing + , _dplrsPrefixLists = Nothing + , _dplrsResponseStatus = pResponseStatus_ + } -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dplrsNextToken :: Lens' DescribePrefixListsResponse (Maybe Text) -dplrsNextToken = lens _dplrsNextToken (\ s a -> s{_dplrsNextToken = a}); +dplrsNextToken = lens _dplrsNextToken (\ s a -> s{_dplrsNextToken = a}) -- | All available prefix lists. dplrsPrefixLists :: Lens' DescribePrefixListsResponse [PrefixList] -dplrsPrefixLists = lens _dplrsPrefixLists (\ s a -> s{_dplrsPrefixLists = a}) . _Default . _Coerce; +dplrsPrefixLists = lens _dplrsPrefixLists (\ s a -> s{_dplrsPrefixLists = a}) . _Default . _Coerce -- | -- | The response status code. dplrsResponseStatus :: Lens' DescribePrefixListsResponse Int -dplrsResponseStatus = lens _dplrsResponseStatus (\ s a -> s{_dplrsResponseStatus = a}); +dplrsResponseStatus = lens _dplrsResponseStatus (\ s a -> s{_dplrsResponseStatus = a}) instance NFData DescribePrefixListsResponse where diff --git a/gen/Network/AWS/EC2/DescribePrincipalIdFormat.hs b/gen/Network/AWS/EC2/DescribePrincipalIdFormat.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribePrincipalIdFormat.hs @@ -0,0 +1,177 @@ +{-# 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.DescribePrincipalIdFormat +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the ID format settings for the root user and all IAM roles and IAM users that have explicitly specified a longer ID (17-character ID) preference. +-- +-- +-- By default, all IAM roles and IAM users default to the same ID settings as the root user, unless they explicitly override the settings. This request is useful for identifying those IAM users and IAM roles that have overridden the default ID settings. +-- +-- The following resource types support longer IDs: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . +-- +module Network.AWS.EC2.DescribePrincipalIdFormat + ( + -- * Creating a Request + describePrincipalIdFormat + , DescribePrincipalIdFormat + -- * Request Lenses + , dpifResources + , dpifNextToken + , dpifDryRun + , dpifMaxResults + + -- * Destructuring the Response + , describePrincipalIdFormatResponse + , DescribePrincipalIdFormatResponse + -- * Response Lenses + , dpifrsPrincipals + , dpifrsNextToken + , dpifrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describePrincipalIdFormat' smart constructor. +data DescribePrincipalIdFormat = DescribePrincipalIdFormat' + { _dpifResources :: !(Maybe [Text]) + , _dpifNextToken :: !(Maybe Text) + , _dpifDryRun :: !(Maybe Bool) + , _dpifMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribePrincipalIdFormat' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dpifResources' - The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ +-- +-- * 'dpifNextToken' - The token to request the next page of results. +-- +-- * 'dpifDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dpifMaxResults' - The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value. +describePrincipalIdFormat + :: DescribePrincipalIdFormat +describePrincipalIdFormat = + DescribePrincipalIdFormat' + { _dpifResources = Nothing + , _dpifNextToken = Nothing + , _dpifDryRun = Nothing + , _dpifMaxResults = Nothing + } + + +-- | The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @reservation@ | @route-table@ | @route-table-association@ | @security-group@ | @snapshot@ | @subnet@ | @subnet-cidr-block-association@ | @volume@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ +dpifResources :: Lens' DescribePrincipalIdFormat [Text] +dpifResources = lens _dpifResources (\ s a -> s{_dpifResources = a}) . _Default . _Coerce + +-- | The token to request the next page of results. +dpifNextToken :: Lens' DescribePrincipalIdFormat (Maybe Text) +dpifNextToken = lens _dpifNextToken (\ s a -> s{_dpifNextToken = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dpifDryRun :: Lens' DescribePrincipalIdFormat (Maybe Bool) +dpifDryRun = lens _dpifDryRun (\ s a -> s{_dpifDryRun = a}) + +-- | The maximum number of results to return in a single call. To retrieve the remaining results, make another call with the returned NextToken value. +dpifMaxResults :: Lens' DescribePrincipalIdFormat (Maybe Int) +dpifMaxResults = lens _dpifMaxResults (\ s a -> s{_dpifMaxResults = a}) + +instance AWSRequest DescribePrincipalIdFormat where + type Rs DescribePrincipalIdFormat = + DescribePrincipalIdFormatResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribePrincipalIdFormatResponse' <$> + (x .@? "principalSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "nextToken") + <*> (pure (fromEnum s))) + +instance Hashable DescribePrincipalIdFormat where + +instance NFData DescribePrincipalIdFormat where + +instance ToHeaders DescribePrincipalIdFormat where + toHeaders = const mempty + +instance ToPath DescribePrincipalIdFormat where + toPath = const "/" + +instance ToQuery DescribePrincipalIdFormat where + toQuery DescribePrincipalIdFormat'{..} + = mconcat + ["Action" =: + ("DescribePrincipalIdFormat" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Resource" <$> _dpifResources), + "NextToken" =: _dpifNextToken, + "DryRun" =: _dpifDryRun, + "MaxResults" =: _dpifMaxResults] + +-- | /See:/ 'describePrincipalIdFormatResponse' smart constructor. +data DescribePrincipalIdFormatResponse = DescribePrincipalIdFormatResponse' + { _dpifrsPrincipals :: !(Maybe [PrincipalIdFormat]) + , _dpifrsNextToken :: !(Maybe Text) + , _dpifrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribePrincipalIdFormatResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dpifrsPrincipals' - Information about the ID format settings for the ARN. +-- +-- * 'dpifrsNextToken' - The token to use to retrieve the next page of results. This value is null when there are no more results to return. +-- +-- * 'dpifrsResponseStatus' - -- | The response status code. +describePrincipalIdFormatResponse + :: Int -- ^ 'dpifrsResponseStatus' + -> DescribePrincipalIdFormatResponse +describePrincipalIdFormatResponse pResponseStatus_ = + DescribePrincipalIdFormatResponse' + { _dpifrsPrincipals = Nothing + , _dpifrsNextToken = Nothing + , _dpifrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the ID format settings for the ARN. +dpifrsPrincipals :: Lens' DescribePrincipalIdFormatResponse [PrincipalIdFormat] +dpifrsPrincipals = lens _dpifrsPrincipals (\ s a -> s{_dpifrsPrincipals = a}) . _Default . _Coerce + +-- | The token to use to retrieve the next page of results. This value is null when there are no more results to return. +dpifrsNextToken :: Lens' DescribePrincipalIdFormatResponse (Maybe Text) +dpifrsNextToken = lens _dpifrsNextToken (\ s a -> s{_dpifrsNextToken = a}) + +-- | -- | The response status code. +dpifrsResponseStatus :: Lens' DescribePrincipalIdFormatResponse Int +dpifrsResponseStatus = lens _dpifrsResponseStatus (\ s a -> s{_dpifrsResponseStatus = a}) + +instance NFData DescribePrincipalIdFormatResponse + where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeRegions --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,20 @@ :: DescribeRegions describeRegions = DescribeRegions' - {_drsRegionNames = Nothing, _drsFilters = Nothing, _drsDryRun = Nothing} + {_drsRegionNames = Nothing, _drsFilters = Nothing, _drsDryRun = Nothing} -- | The names of one or more regions. drsRegionNames :: Lens' DescribeRegions [Text] -drsRegionNames = lens _drsRegionNames (\ s a -> s{_drsRegionNames = a}) . _Default . _Coerce; +drsRegionNames = lens _drsRegionNames (\ s a -> s{_drsRegionNames = a}) . _Default . _Coerce -- | One or more filters. * @endpoint@ - The endpoint of the region (for example, @ec2.us-east-1.amazonaws.com@ ). * @region-name@ - The name of the region (for example, @us-east-1@ ). drsFilters :: Lens' DescribeRegions [Filter] -drsFilters = lens _drsFilters (\ s a -> s{_drsFilters = a}) . _Default . _Coerce; +drsFilters = lens _drsFilters (\ s a -> s{_drsFilters = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . drsDryRun :: Lens' DescribeRegions (Maybe Bool) -drsDryRun = lens _drsDryRun (\ s a -> s{_drsDryRun = a}); +drsDryRun = lens _drsDryRun (\ s a -> s{_drsDryRun = a}) instance AWSRequest DescribeRegions where type Rs DescribeRegions = DescribeRegionsResponse @@ -142,15 +142,15 @@ -> DescribeRegionsResponse describeRegionsResponse pResponseStatus_ = DescribeRegionsResponse' - {_drrsRegions = Nothing, _drrsResponseStatus = pResponseStatus_} + {_drrsRegions = Nothing, _drrsResponseStatus = pResponseStatus_} -- | Information about one or more regions. drrsRegions :: Lens' DescribeRegionsResponse [RegionInfo] -drrsRegions = lens _drrsRegions (\ s a -> s{_drrsRegions = a}) . _Default . _Coerce; +drrsRegions = lens _drrsRegions (\ s a -> s{_drrsRegions = a}) . _Default . _Coerce -- | -- | The response status code. drrsResponseStatus :: Lens' DescribeRegionsResponse Int -drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a}); +drrsResponseStatus = lens _drrsResponseStatus (\ s a -> s{_drrsResponseStatus = a}) instance NFData DescribeRegionsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeReservedInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -81,33 +81,33 @@ :: DescribeReservedInstances describeReservedInstances = DescribeReservedInstances' - { _driFilters = Nothing - , _driReservedInstancesIds = Nothing - , _driOfferingType = Nothing - , _driOfferingClass = Nothing - , _driDryRun = Nothing - } + { _driFilters = Nothing + , _driReservedInstancesIds = Nothing + , _driOfferingType = Nothing + , _driOfferingClass = Nothing + , _driDryRun = Nothing + } -- | One or more filters. * @availability-zone@ - The Availability Zone where the Reserved Instance can be used. * @duration@ - The duration of the Reserved Instance (one year or three years), in seconds (@31536000@ | @94608000@ ). * @end@ - The time when the Reserved Instance expires (for example, 2015-08-07T11:54:42.000Z). * @fixed-price@ - The purchase price of the Reserved Instance (for example, 9800.0). * @instance-type@ - The instance type that is covered by the reservation. * @scope@ - The scope of the Reserved Instance (@Region@ or @Availability Zone@ ). * @product-description@ - The Reserved Instance product platform description. Instances that include @(Amazon VPC)@ in the product platform description will only be displayed to EC2-Classic account holders and are for use with Amazon VPC (@Linux/UNIX@ | @Linux/UNIX (Amazon VPC)@ | @SUSE Linux@ | @SUSE Linux (Amazon VPC)@ | @Red Hat Enterprise Linux@ | @Red Hat Enterprise Linux (Amazon VPC)@ | @Windows@ | @Windows (Amazon VPC)@ | @Windows with SQL Server Standard@ | @Windows with SQL Server Standard (Amazon VPC)@ | @Windows with SQL Server Web@ | @Windows with SQL Server Web (Amazon VPC)@ | @Windows with SQL Server Enterprise@ | @Windows with SQL Server Enterprise (Amazon VPC)@ ). * @reserved-instances-id@ - The ID of the Reserved Instance. * @start@ - The time at which the Reserved Instance purchase request was placed (for example, 2014-08-07T11:54:42.000Z). * @state@ - The state of the Reserved Instance (@payment-pending@ | @active@ | @payment-failed@ | @retired@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @usage-price@ - The usage price of the Reserved Instance, per hour (for example, 0.84). driFilters :: Lens' DescribeReservedInstances [Filter] -driFilters = lens _driFilters (\ s a -> s{_driFilters = a}) . _Default . _Coerce; +driFilters = lens _driFilters (\ s a -> s{_driFilters = a}) . _Default . _Coerce -- | One or more Reserved Instance IDs. Default: Describes all your Reserved Instances, or only those otherwise specified. driReservedInstancesIds :: Lens' DescribeReservedInstances [Text] -driReservedInstancesIds = lens _driReservedInstancesIds (\ s a -> s{_driReservedInstancesIds = a}) . _Default . _Coerce; +driReservedInstancesIds = lens _driReservedInstancesIds (\ s a -> s{_driReservedInstancesIds = a}) . _Default . _Coerce -- | The Reserved Instance offering type. If you are using tools that predate the 2011-11-01 API version, you only have access to the @Medium Utilization@ Reserved Instance offering type. driOfferingType :: Lens' DescribeReservedInstances (Maybe OfferingTypeValues) -driOfferingType = lens _driOfferingType (\ s a -> s{_driOfferingType = a}); +driOfferingType = lens _driOfferingType (\ s a -> s{_driOfferingType = a}) -- | Describes whether the Reserved Instance is Standard or Convertible. driOfferingClass :: Lens' DescribeReservedInstances (Maybe OfferingClassType) -driOfferingClass = lens _driOfferingClass (\ s a -> s{_driOfferingClass = a}); +driOfferingClass = lens _driOfferingClass (\ s a -> s{_driOfferingClass = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . driDryRun :: Lens' DescribeReservedInstances (Maybe Bool) -driDryRun = lens _driDryRun (\ s a -> s{_driDryRun = a}); +driDryRun = lens _driDryRun (\ s a -> s{_driDryRun = a}) instance AWSRequest DescribeReservedInstances where type Rs DescribeReservedInstances = @@ -168,16 +168,16 @@ -> DescribeReservedInstancesResponse describeReservedInstancesResponse pResponseStatus_ = DescribeReservedInstancesResponse' - {_drirsReservedInstances = Nothing, _drirsResponseStatus = pResponseStatus_} + {_drirsReservedInstances = Nothing, _drirsResponseStatus = pResponseStatus_} -- | A list of Reserved Instances. drirsReservedInstances :: Lens' DescribeReservedInstancesResponse [ReservedInstances] -drirsReservedInstances = lens _drirsReservedInstances (\ s a -> s{_drirsReservedInstances = a}) . _Default . _Coerce; +drirsReservedInstances = lens _drirsReservedInstances (\ s a -> s{_drirsReservedInstances = a}) . _Default . _Coerce -- | -- | The response status code. drirsResponseStatus :: Lens' DescribeReservedInstancesResponse Int -drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a}); +drirsResponseStatus = lens _drirsResponseStatus (\ s a -> s{_drirsResponseStatus = a}) instance NFData DescribeReservedInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeReservedInstancesListings --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -79,23 +79,23 @@ :: DescribeReservedInstancesListings describeReservedInstancesListings = DescribeReservedInstancesListings' - { _drilFilters = Nothing - , _drilReservedInstancesId = Nothing - , _drilReservedInstancesListingId = Nothing - } + { _drilFilters = Nothing + , _drilReservedInstancesId = Nothing + , _drilReservedInstancesListingId = Nothing + } -- | One or more filters. * @reserved-instances-id@ - The ID of the Reserved Instances. * @reserved-instances-listing-id@ - The ID of the Reserved Instances listing. * @status@ - The status of the Reserved Instance listing (@pending@ | @active@ | @cancelled@ | @closed@ ). * @status-message@ - The reason for the status. drilFilters :: Lens' DescribeReservedInstancesListings [Filter] -drilFilters = lens _drilFilters (\ s a -> s{_drilFilters = a}) . _Default . _Coerce; +drilFilters = lens _drilFilters (\ s a -> s{_drilFilters = a}) . _Default . _Coerce -- | One or more Reserved Instance IDs. drilReservedInstancesId :: Lens' DescribeReservedInstancesListings (Maybe Text) -drilReservedInstancesId = lens _drilReservedInstancesId (\ s a -> s{_drilReservedInstancesId = a}); +drilReservedInstancesId = lens _drilReservedInstancesId (\ s a -> s{_drilReservedInstancesId = a}) -- | One or more Reserved Instance listing IDs. drilReservedInstancesListingId :: Lens' DescribeReservedInstancesListings (Maybe Text) -drilReservedInstancesListingId = lens _drilReservedInstancesListingId (\ s a -> s{_drilReservedInstancesListingId = a}); +drilReservedInstancesListingId = lens _drilReservedInstancesListingId (\ s a -> s{_drilReservedInstancesListingId = a}) instance AWSRequest DescribeReservedInstancesListings where @@ -159,18 +159,18 @@ -> DescribeReservedInstancesListingsResponse describeReservedInstancesListingsResponse pResponseStatus_ = DescribeReservedInstancesListingsResponse' - { _drilrsReservedInstancesListings = Nothing - , _drilrsResponseStatus = pResponseStatus_ - } + { _drilrsReservedInstancesListings = Nothing + , _drilrsResponseStatus = pResponseStatus_ + } -- | Information about the Reserved Instance listing. drilrsReservedInstancesListings :: Lens' DescribeReservedInstancesListingsResponse [ReservedInstancesListing] -drilrsReservedInstancesListings = lens _drilrsReservedInstancesListings (\ s a -> s{_drilrsReservedInstancesListings = a}) . _Default . _Coerce; +drilrsReservedInstancesListings = lens _drilrsReservedInstancesListings (\ s a -> s{_drilrsReservedInstancesListings = a}) . _Default . _Coerce -- | -- | The response status code. drilrsResponseStatus :: Lens' DescribeReservedInstancesListingsResponse Int -drilrsResponseStatus = lens _drilrsResponseStatus (\ s a -> s{_drilrsResponseStatus = a}); +drilrsResponseStatus = lens _drilrsResponseStatus (\ s a -> s{_drilrsResponseStatus = a}) instance NFData DescribeReservedInstancesListingsResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeReservedInstancesModifications --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,23 +77,23 @@ :: DescribeReservedInstancesModifications describeReservedInstancesModifications = DescribeReservedInstancesModifications' - { _drimFilters = Nothing - , _drimReservedInstancesModificationIds = Nothing - , _drimNextToken = Nothing - } + { _drimFilters = Nothing + , _drimReservedInstancesModificationIds = Nothing + , _drimNextToken = Nothing + } -- | One or more filters. * @client-token@ - The idempotency token for the modification request. * @create-date@ - The time when the modification request was created. * @effective-date@ - The time when the modification becomes effective. * @modification-result.reserved-instances-id@ - The ID for the Reserved Instances created as part of the modification request. This ID is only available when the status of the modification is @fulfilled@ . * @modification-result.target-configuration.availability-zone@ - The Availability Zone for the new Reserved Instances. * @modification-result.target-configuration.instance-count @ - The number of new Reserved Instances. * @modification-result.target-configuration.instance-type@ - The instance type of the new Reserved Instances. * @modification-result.target-configuration.platform@ - The network platform of the new Reserved Instances (@EC2-Classic@ | @EC2-VPC@ ). * @reserved-instances-id@ - The ID of the Reserved Instances modified. * @reserved-instances-modification-id@ - The ID of the modification request. * @status@ - The status of the Reserved Instances modification request (@processing@ | @fulfilled@ | @failed@ ). * @status-message@ - The reason for the status. * @update-date@ - The time when the modification request was last updated. drimFilters :: Lens' DescribeReservedInstancesModifications [Filter] -drimFilters = lens _drimFilters (\ s a -> s{_drimFilters = a}) . _Default . _Coerce; +drimFilters = lens _drimFilters (\ s a -> s{_drimFilters = a}) . _Default . _Coerce -- | IDs for the submitted modification request. drimReservedInstancesModificationIds :: Lens' DescribeReservedInstancesModifications [Text] -drimReservedInstancesModificationIds = lens _drimReservedInstancesModificationIds (\ s a -> s{_drimReservedInstancesModificationIds = a}) . _Default . _Coerce; +drimReservedInstancesModificationIds = lens _drimReservedInstancesModificationIds (\ s a -> s{_drimReservedInstancesModificationIds = a}) . _Default . _Coerce -- | The token to retrieve the next page of results. drimNextToken :: Lens' DescribeReservedInstancesModifications (Maybe Text) -drimNextToken = lens _drimNextToken (\ s a -> s{_drimNextToken = a}); +drimNextToken = lens _drimNextToken (\ s a -> s{_drimNextToken = a}) instance AWSPager DescribeReservedInstancesModifications @@ -179,23 +179,23 @@ -> DescribeReservedInstancesModificationsResponse describeReservedInstancesModificationsResponse pResponseStatus_ = DescribeReservedInstancesModificationsResponse' - { _drimrsNextToken = Nothing - , _drimrsReservedInstancesModifications = Nothing - , _drimrsResponseStatus = pResponseStatus_ - } + { _drimrsNextToken = Nothing + , _drimrsReservedInstancesModifications = Nothing + , _drimrsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. drimrsNextToken :: Lens' DescribeReservedInstancesModificationsResponse (Maybe Text) -drimrsNextToken = lens _drimrsNextToken (\ s a -> s{_drimrsNextToken = a}); +drimrsNextToken = lens _drimrsNextToken (\ s a -> s{_drimrsNextToken = a}) -- | The Reserved Instance modification information. drimrsReservedInstancesModifications :: Lens' DescribeReservedInstancesModificationsResponse [ReservedInstancesModification] -drimrsReservedInstancesModifications = lens _drimrsReservedInstancesModifications (\ s a -> s{_drimrsReservedInstancesModifications = a}) . _Default . _Coerce; +drimrsReservedInstancesModifications = lens _drimrsReservedInstancesModifications (\ s a -> s{_drimrsReservedInstancesModifications = a}) . _Default . _Coerce -- | -- | The response status code. drimrsResponseStatus :: Lens' DescribeReservedInstancesModificationsResponse Int -drimrsResponseStatus = lens _drimrsResponseStatus (\ s a -> s{_drimrsResponseStatus = a}); +drimrsResponseStatus = lens _drimrsResponseStatus (\ s a -> s{_drimrsResponseStatus = a}) instance NFData DescribeReservedInstancesModificationsResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeReservedInstancesOfferings --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -127,83 +127,83 @@ :: DescribeReservedInstancesOfferings describeReservedInstancesOfferings = DescribeReservedInstancesOfferings' - { _drioMaxDuration = Nothing - , _drioProductDescription = Nothing - , _drioFilters = Nothing - , _drioIncludeMarketplace = Nothing - , _drioInstanceType = Nothing - , _drioNextToken = Nothing - , _drioMinDuration = Nothing - , _drioAvailabilityZone = Nothing - , _drioOfferingType = Nothing - , _drioReservedInstancesOfferingIds = Nothing - , _drioInstanceTenancy = Nothing - , _drioOfferingClass = Nothing - , _drioMaxInstanceCount = Nothing - , _drioDryRun = Nothing - , _drioMaxResults = Nothing - } + { _drioMaxDuration = Nothing + , _drioProductDescription = Nothing + , _drioFilters = Nothing + , _drioIncludeMarketplace = Nothing + , _drioInstanceType = Nothing + , _drioNextToken = Nothing + , _drioMinDuration = Nothing + , _drioAvailabilityZone = Nothing + , _drioOfferingType = Nothing + , _drioReservedInstancesOfferingIds = Nothing + , _drioInstanceTenancy = Nothing + , _drioOfferingClass = Nothing + , _drioMaxInstanceCount = Nothing + , _drioDryRun = Nothing + , _drioMaxResults = Nothing + } -- | The maximum duration (in seconds) to filter when searching for offerings. Default: 94608000 (3 years) drioMaxDuration :: Lens' DescribeReservedInstancesOfferings (Maybe Integer) -drioMaxDuration = lens _drioMaxDuration (\ s a -> s{_drioMaxDuration = a}); +drioMaxDuration = lens _drioMaxDuration (\ s a -> s{_drioMaxDuration = a}) -- | The Reserved Instance product platform description. Instances that include @(Amazon VPC)@ in the description are for use with Amazon VPC. drioProductDescription :: Lens' DescribeReservedInstancesOfferings (Maybe RIProductDescription) -drioProductDescription = lens _drioProductDescription (\ s a -> s{_drioProductDescription = a}); +drioProductDescription = lens _drioProductDescription (\ s a -> s{_drioProductDescription = a}) -- | One or more filters. * @availability-zone@ - The Availability Zone where the Reserved Instance can be used. * @duration@ - The duration of the Reserved Instance (for example, one year or three years), in seconds (@31536000@ | @94608000@ ). * @fixed-price@ - The purchase price of the Reserved Instance (for example, 9800.0). * @instance-type@ - The instance type that is covered by the reservation. * @marketplace@ - Set to @true@ to show only Reserved Instance Marketplace offerings. When this filter is not used, which is the default behavior, all offerings from both AWS and the Reserved Instance Marketplace are listed. * @product-description@ - The Reserved Instance product platform description. Instances that include @(Amazon VPC)@ in the product platform description will only be displayed to EC2-Classic account holders and are for use with Amazon VPC. (@Linux/UNIX@ | @Linux/UNIX (Amazon VPC)@ | @SUSE Linux@ | @SUSE Linux (Amazon VPC)@ | @Red Hat Enterprise Linux@ | @Red Hat Enterprise Linux (Amazon VPC)@ | @Windows@ | @Windows (Amazon VPC)@ | @Windows with SQL Server Standard@ | @Windows with SQL Server Standard (Amazon VPC)@ | @Windows with SQL Server Web@ | @Windows with SQL Server Web (Amazon VPC)@ | @Windows with SQL Server Enterprise@ | @Windows with SQL Server Enterprise (Amazon VPC)@ ) * @reserved-instances-offering-id@ - The Reserved Instances offering ID. * @scope@ - The scope of the Reserved Instance (@Availability Zone@ or @Region@ ). * @usage-price@ - The usage price of the Reserved Instance, per hour (for example, 0.84). drioFilters :: Lens' DescribeReservedInstancesOfferings [Filter] -drioFilters = lens _drioFilters (\ s a -> s{_drioFilters = a}) . _Default . _Coerce; +drioFilters = lens _drioFilters (\ s a -> s{_drioFilters = a}) . _Default . _Coerce -- | Include Reserved Instance Marketplace offerings in the response. drioIncludeMarketplace :: Lens' DescribeReservedInstancesOfferings (Maybe Bool) -drioIncludeMarketplace = lens _drioIncludeMarketplace (\ s a -> s{_drioIncludeMarketplace = a}); +drioIncludeMarketplace = lens _drioIncludeMarketplace (\ s a -> s{_drioIncludeMarketplace = a}) -- | The instance type that the reservation will cover (for example, @m1.small@ ). For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . drioInstanceType :: Lens' DescribeReservedInstancesOfferings (Maybe InstanceType) -drioInstanceType = lens _drioInstanceType (\ s a -> s{_drioInstanceType = a}); +drioInstanceType = lens _drioInstanceType (\ s a -> s{_drioInstanceType = a}) -- | The token to retrieve the next page of results. drioNextToken :: Lens' DescribeReservedInstancesOfferings (Maybe Text) -drioNextToken = lens _drioNextToken (\ s a -> s{_drioNextToken = a}); +drioNextToken = lens _drioNextToken (\ s a -> s{_drioNextToken = a}) -- | The minimum duration (in seconds) to filter when searching for offerings. Default: 2592000 (1 month) drioMinDuration :: Lens' DescribeReservedInstancesOfferings (Maybe Integer) -drioMinDuration = lens _drioMinDuration (\ s a -> s{_drioMinDuration = a}); +drioMinDuration = lens _drioMinDuration (\ s a -> s{_drioMinDuration = a}) -- | The Availability Zone in which the Reserved Instance can be used. drioAvailabilityZone :: Lens' DescribeReservedInstancesOfferings (Maybe Text) -drioAvailabilityZone = lens _drioAvailabilityZone (\ s a -> s{_drioAvailabilityZone = a}); +drioAvailabilityZone = lens _drioAvailabilityZone (\ s a -> s{_drioAvailabilityZone = a}) -- | The Reserved Instance offering type. If you are using tools that predate the 2011-11-01 API version, you only have access to the @Medium Utilization@ Reserved Instance offering type. drioOfferingType :: Lens' DescribeReservedInstancesOfferings (Maybe OfferingTypeValues) -drioOfferingType = lens _drioOfferingType (\ s a -> s{_drioOfferingType = a}); +drioOfferingType = lens _drioOfferingType (\ s a -> s{_drioOfferingType = a}) -- | One or more Reserved Instances offering IDs. drioReservedInstancesOfferingIds :: Lens' DescribeReservedInstancesOfferings [Text] -drioReservedInstancesOfferingIds = lens _drioReservedInstancesOfferingIds (\ s a -> s{_drioReservedInstancesOfferingIds = a}) . _Default . _Coerce; +drioReservedInstancesOfferingIds = lens _drioReservedInstancesOfferingIds (\ s a -> s{_drioReservedInstancesOfferingIds = a}) . _Default . _Coerce -- | The tenancy of the instances covered by the reservation. A Reserved Instance with a tenancy of @dedicated@ is applied to instances that run in a VPC on single-tenant hardware (i.e., Dedicated Instances). __Important:__ The @host@ value cannot be used with this parameter. Use the @default@ or @dedicated@ values only. Default: @default@ drioInstanceTenancy :: Lens' DescribeReservedInstancesOfferings (Maybe Tenancy) -drioInstanceTenancy = lens _drioInstanceTenancy (\ s a -> s{_drioInstanceTenancy = a}); +drioInstanceTenancy = lens _drioInstanceTenancy (\ s a -> s{_drioInstanceTenancy = a}) -- | The offering class of the Reserved Instance. Can be @standard@ or @convertible@ . drioOfferingClass :: Lens' DescribeReservedInstancesOfferings (Maybe OfferingClassType) -drioOfferingClass = lens _drioOfferingClass (\ s a -> s{_drioOfferingClass = a}); +drioOfferingClass = lens _drioOfferingClass (\ s a -> s{_drioOfferingClass = a}) -- | The maximum number of instances to filter when searching for offerings. Default: 20 drioMaxInstanceCount :: Lens' DescribeReservedInstancesOfferings (Maybe Int) -drioMaxInstanceCount = lens _drioMaxInstanceCount (\ s a -> s{_drioMaxInstanceCount = a}); +drioMaxInstanceCount = lens _drioMaxInstanceCount (\ s a -> s{_drioMaxInstanceCount = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . drioDryRun :: Lens' DescribeReservedInstancesOfferings (Maybe Bool) -drioDryRun = lens _drioDryRun (\ s a -> s{_drioDryRun = a}); +drioDryRun = lens _drioDryRun (\ s a -> s{_drioDryRun = a}) -- | The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. The maximum is 100. Default: 100 drioMaxResults :: Lens' DescribeReservedInstancesOfferings (Maybe Int) -drioMaxResults = lens _drioMaxResults (\ s a -> s{_drioMaxResults = a}); +drioMaxResults = lens _drioMaxResults (\ s a -> s{_drioMaxResults = a}) instance AWSPager DescribeReservedInstancesOfferings where @@ -294,23 +294,23 @@ -> DescribeReservedInstancesOfferingsResponse describeReservedInstancesOfferingsResponse pResponseStatus_ = DescribeReservedInstancesOfferingsResponse' - { _driorsNextToken = Nothing - , _driorsReservedInstancesOfferings = Nothing - , _driorsResponseStatus = pResponseStatus_ - } + { _driorsNextToken = Nothing + , _driorsReservedInstancesOfferings = Nothing + , _driorsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. driorsNextToken :: Lens' DescribeReservedInstancesOfferingsResponse (Maybe Text) -driorsNextToken = lens _driorsNextToken (\ s a -> s{_driorsNextToken = a}); +driorsNextToken = lens _driorsNextToken (\ s a -> s{_driorsNextToken = a}) -- | A list of Reserved Instances offerings. driorsReservedInstancesOfferings :: Lens' DescribeReservedInstancesOfferingsResponse [ReservedInstancesOffering] -driorsReservedInstancesOfferings = lens _driorsReservedInstancesOfferings (\ s a -> s{_driorsReservedInstancesOfferings = a}) . _Default . _Coerce; +driorsReservedInstancesOfferings = lens _driorsReservedInstancesOfferings (\ s a -> s{_driorsReservedInstancesOfferings = a}) . _Default . _Coerce -- | -- | The response status code. driorsResponseStatus :: Lens' DescribeReservedInstancesOfferingsResponse Int -driorsResponseStatus = lens _driorsResponseStatus (\ s a -> s{_driorsResponseStatus = a}); +driorsResponseStatus = lens _driorsResponseStatus (\ s a -> s{_driorsResponseStatus = a}) instance NFData DescribeReservedInstancesOfferingsResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeRouteTables --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,20 +75,23 @@ :: DescribeRouteTables describeRouteTables = DescribeRouteTables' - {_drtsFilters = Nothing, _drtsDryRun = Nothing, _drtsRouteTableIds = Nothing} + { _drtsFilters = Nothing + , _drtsDryRun = Nothing + , _drtsRouteTableIds = Nothing + } -- | One or more filters. * @association.route-table-association-id@ - The ID of an association ID for the route table. * @association.route-table-id@ - The ID of the route table involved in the association. * @association.subnet-id@ - The ID of the subnet involved in the association. * @association.main@ - Indicates whether the route table is the main route table for the VPC (@true@ | @false@ ). Route tables that do not have an association ID are not returned in the response. * @route-table-id@ - The ID of the route table. * @route.destination-cidr-block@ - The IPv4 CIDR range specified in a route in the table. * @route.destination-ipv6-cidr-block@ - The IPv6 CIDR range specified in a route in the route table. * @route.destination-prefix-list-id@ - The ID (prefix) of the AWS service specified in a route in the table. * @route.egress-only-internet-gateway-id@ - The ID of an egress-only Internet gateway specified in a route in the route table. * @route.gateway-id@ - The ID of a gateway specified in a route in the table. * @route.instance-id@ - The ID of an instance specified in a route in the table. * @route.nat-gateway-id@ - The ID of a NAT gateway. * @route.origin@ - Describes how the route was created. @CreateRouteTable@ indicates that the route was automatically created when the route table was created; @CreateRoute@ indicates that the route was manually added to the route table; @EnableVgwRoutePropagation@ indicates that the route was propagated by route propagation. * @route.state@ - The state of a route in the route table (@active@ | @blackhole@ ). The blackhole state indicates that the route's target isn't available (for example, the specified gateway isn't attached to the VPC, the specified NAT instance has been terminated, and so on). * @route.vpc-peering-connection-id@ - The ID of a VPC peering connection specified in a route in the table. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-id@ - The ID of the VPC for the route table. drtsFilters :: Lens' DescribeRouteTables [Filter] -drtsFilters = lens _drtsFilters (\ s a -> s{_drtsFilters = a}) . _Default . _Coerce; +drtsFilters = lens _drtsFilters (\ s a -> s{_drtsFilters = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . drtsDryRun :: Lens' DescribeRouteTables (Maybe Bool) -drtsDryRun = lens _drtsDryRun (\ s a -> s{_drtsDryRun = a}); +drtsDryRun = lens _drtsDryRun (\ s a -> s{_drtsDryRun = a}) -- | One or more route table IDs. Default: Describes all your route tables. drtsRouteTableIds :: Lens' DescribeRouteTables [Text] -drtsRouteTableIds = lens _drtsRouteTableIds (\ s a -> s{_drtsRouteTableIds = a}) . _Default . _Coerce; +drtsRouteTableIds = lens _drtsRouteTableIds (\ s a -> s{_drtsRouteTableIds = a}) . _Default . _Coerce instance AWSRequest DescribeRouteTables where type Rs DescribeRouteTables = @@ -145,15 +148,15 @@ -> DescribeRouteTablesResponse describeRouteTablesResponse pResponseStatus_ = DescribeRouteTablesResponse' - {_drtrsRouteTables = Nothing, _drtrsResponseStatus = pResponseStatus_} + {_drtrsRouteTables = Nothing, _drtrsResponseStatus = pResponseStatus_} -- | Information about one or more route tables. drtrsRouteTables :: Lens' DescribeRouteTablesResponse [RouteTable] -drtrsRouteTables = lens _drtrsRouteTables (\ s a -> s{_drtrsRouteTables = a}) . _Default . _Coerce; +drtrsRouteTables = lens _drtrsRouteTables (\ s a -> s{_drtrsRouteTables = a}) . _Default . _Coerce -- | -- | The response status code. drtrsResponseStatus :: Lens' DescribeRouteTablesResponse Int -drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a}); +drtrsResponseStatus = lens _drtrsResponseStatus (\ s a -> s{_drtrsResponseStatus = a}) instance NFData DescribeRouteTablesResponse where diff --git a/gen/Network/AWS/EC2/DescribeScheduledInstanceAvailability.hs b/gen/Network/AWS/EC2/DescribeScheduledInstanceAvailability.hs --- a/gen/Network/AWS/EC2/DescribeScheduledInstanceAvailability.hs +++ b/gen/Network/AWS/EC2/DescribeScheduledInstanceAvailability.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeScheduledInstanceAvailability --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -98,48 +98,48 @@ -> DescribeScheduledInstanceAvailability describeScheduledInstanceAvailability pFirstSlotStartTimeRange_ pRecurrence_ = DescribeScheduledInstanceAvailability' - { _dsiaMinSlotDurationInHours = Nothing - , _dsiaFilters = Nothing - , _dsiaNextToken = Nothing - , _dsiaMaxSlotDurationInHours = Nothing - , _dsiaDryRun = Nothing - , _dsiaMaxResults = Nothing - , _dsiaFirstSlotStartTimeRange = pFirstSlotStartTimeRange_ - , _dsiaRecurrence = pRecurrence_ - } + { _dsiaMinSlotDurationInHours = Nothing + , _dsiaFilters = Nothing + , _dsiaNextToken = Nothing + , _dsiaMaxSlotDurationInHours = Nothing + , _dsiaDryRun = Nothing + , _dsiaMaxResults = Nothing + , _dsiaFirstSlotStartTimeRange = pFirstSlotStartTimeRange_ + , _dsiaRecurrence = pRecurrence_ + } -- | The minimum available duration, in hours. The minimum required duration is 1,200 hours per year. For example, the minimum daily schedule is 4 hours, the minimum weekly schedule is 24 hours, and the minimum monthly schedule is 100 hours. dsiaMinSlotDurationInHours :: Lens' DescribeScheduledInstanceAvailability (Maybe Int) -dsiaMinSlotDurationInHours = lens _dsiaMinSlotDurationInHours (\ s a -> s{_dsiaMinSlotDurationInHours = a}); +dsiaMinSlotDurationInHours = lens _dsiaMinSlotDurationInHours (\ s a -> s{_dsiaMinSlotDurationInHours = a}) -- | One or more filters. * @availability-zone@ - The Availability Zone (for example, @us-west-2a@ ). * @instance-type@ - The instance type (for example, @c4.large@ ). * @network-platform@ - The network platform (@EC2-Classic@ or @EC2-VPC@ ). * @platform@ - The platform (@Linux/UNIX@ or @Windows@ ). dsiaFilters :: Lens' DescribeScheduledInstanceAvailability [Filter] -dsiaFilters = lens _dsiaFilters (\ s a -> s{_dsiaFilters = a}) . _Default . _Coerce; +dsiaFilters = lens _dsiaFilters (\ s a -> s{_dsiaFilters = a}) . _Default . _Coerce -- | The token for the next set of results. dsiaNextToken :: Lens' DescribeScheduledInstanceAvailability (Maybe Text) -dsiaNextToken = lens _dsiaNextToken (\ s a -> s{_dsiaNextToken = a}); +dsiaNextToken = lens _dsiaNextToken (\ s a -> s{_dsiaNextToken = a}) -- | The maximum available duration, in hours. This value must be greater than @MinSlotDurationInHours@ and less than 1,720. dsiaMaxSlotDurationInHours :: Lens' DescribeScheduledInstanceAvailability (Maybe Int) -dsiaMaxSlotDurationInHours = lens _dsiaMaxSlotDurationInHours (\ s a -> s{_dsiaMaxSlotDurationInHours = a}); +dsiaMaxSlotDurationInHours = lens _dsiaMaxSlotDurationInHours (\ s a -> s{_dsiaMaxSlotDurationInHours = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsiaDryRun :: Lens' DescribeScheduledInstanceAvailability (Maybe Bool) -dsiaDryRun = lens _dsiaDryRun (\ s a -> s{_dsiaDryRun = a}); +dsiaDryRun = lens _dsiaDryRun (\ s a -> s{_dsiaDryRun = a}) -- | The maximum number of results to return in a single call. This value can be between 5 and 300. The default value is 300. To retrieve the remaining results, make another call with the returned @NextToken@ value. dsiaMaxResults :: Lens' DescribeScheduledInstanceAvailability (Maybe Int) -dsiaMaxResults = lens _dsiaMaxResults (\ s a -> s{_dsiaMaxResults = a}); +dsiaMaxResults = lens _dsiaMaxResults (\ s a -> s{_dsiaMaxResults = a}) -- | The time period for the first schedule to start. dsiaFirstSlotStartTimeRange :: Lens' DescribeScheduledInstanceAvailability SlotDateTimeRangeRequest -dsiaFirstSlotStartTimeRange = lens _dsiaFirstSlotStartTimeRange (\ s a -> s{_dsiaFirstSlotStartTimeRange = a}); +dsiaFirstSlotStartTimeRange = lens _dsiaFirstSlotStartTimeRange (\ s a -> s{_dsiaFirstSlotStartTimeRange = a}) -- | The schedule recurrence. dsiaRecurrence :: Lens' DescribeScheduledInstanceAvailability ScheduledInstanceRecurrenceRequest -dsiaRecurrence = lens _dsiaRecurrence (\ s a -> s{_dsiaRecurrence = a}); +dsiaRecurrence = lens _dsiaRecurrence (\ s a -> s{_dsiaRecurrence = a}) instance AWSRequest DescribeScheduledInstanceAvailability @@ -219,23 +219,23 @@ -> DescribeScheduledInstanceAvailabilityResponse describeScheduledInstanceAvailabilityResponse pResponseStatus_ = DescribeScheduledInstanceAvailabilityResponse' - { _dsiarsScheduledInstanceAvailabilitySet = Nothing - , _dsiarsNextToken = Nothing - , _dsiarsResponseStatus = pResponseStatus_ - } + { _dsiarsScheduledInstanceAvailabilitySet = Nothing + , _dsiarsNextToken = Nothing + , _dsiarsResponseStatus = pResponseStatus_ + } -- | Information about the available Scheduled Instances. dsiarsScheduledInstanceAvailabilitySet :: Lens' DescribeScheduledInstanceAvailabilityResponse [ScheduledInstanceAvailability] -dsiarsScheduledInstanceAvailabilitySet = lens _dsiarsScheduledInstanceAvailabilitySet (\ s a -> s{_dsiarsScheduledInstanceAvailabilitySet = a}) . _Default . _Coerce; +dsiarsScheduledInstanceAvailabilitySet = lens _dsiarsScheduledInstanceAvailabilitySet (\ s a -> s{_dsiarsScheduledInstanceAvailabilitySet = a}) . _Default . _Coerce -- | The token required to retrieve the next set of results. This value is @null@ when there are no more results to return. dsiarsNextToken :: Lens' DescribeScheduledInstanceAvailabilityResponse (Maybe Text) -dsiarsNextToken = lens _dsiarsNextToken (\ s a -> s{_dsiarsNextToken = a}); +dsiarsNextToken = lens _dsiarsNextToken (\ s a -> s{_dsiarsNextToken = a}) -- | -- | The response status code. dsiarsResponseStatus :: Lens' DescribeScheduledInstanceAvailabilityResponse Int -dsiarsResponseStatus = lens _dsiarsResponseStatus (\ s a -> s{_dsiarsResponseStatus = a}); +dsiarsResponseStatus = lens _dsiarsResponseStatus (\ s a -> s{_dsiarsResponseStatus = a}) instance NFData DescribeScheduledInstanceAvailabilityResponse diff --git a/gen/Network/AWS/EC2/DescribeScheduledInstances.hs b/gen/Network/AWS/EC2/DescribeScheduledInstances.hs --- a/gen/Network/AWS/EC2/DescribeScheduledInstances.hs +++ b/gen/Network/AWS/EC2/DescribeScheduledInstances.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeScheduledInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -84,38 +84,38 @@ :: DescribeScheduledInstances describeScheduledInstances = DescribeScheduledInstances' - { _dsiFilters = Nothing - , _dsiSlotStartTimeRange = Nothing - , _dsiNextToken = Nothing - , _dsiScheduledInstanceIds = Nothing - , _dsiDryRun = Nothing - , _dsiMaxResults = Nothing - } + { _dsiFilters = Nothing + , _dsiSlotStartTimeRange = Nothing + , _dsiNextToken = Nothing + , _dsiScheduledInstanceIds = Nothing + , _dsiDryRun = Nothing + , _dsiMaxResults = Nothing + } -- | One or more filters. * @availability-zone@ - The Availability Zone (for example, @us-west-2a@ ). * @instance-type@ - The instance type (for example, @c4.large@ ). * @network-platform@ - The network platform (@EC2-Classic@ or @EC2-VPC@ ). * @platform@ - The platform (@Linux/UNIX@ or @Windows@ ). dsiFilters :: Lens' DescribeScheduledInstances [Filter] -dsiFilters = lens _dsiFilters (\ s a -> s{_dsiFilters = a}) . _Default . _Coerce; +dsiFilters = lens _dsiFilters (\ s a -> s{_dsiFilters = a}) . _Default . _Coerce -- | The time period for the first schedule to start. dsiSlotStartTimeRange :: Lens' DescribeScheduledInstances (Maybe SlotStartTimeRangeRequest) -dsiSlotStartTimeRange = lens _dsiSlotStartTimeRange (\ s a -> s{_dsiSlotStartTimeRange = a}); +dsiSlotStartTimeRange = lens _dsiSlotStartTimeRange (\ s a -> s{_dsiSlotStartTimeRange = a}) -- | The token for the next set of results. dsiNextToken :: Lens' DescribeScheduledInstances (Maybe Text) -dsiNextToken = lens _dsiNextToken (\ s a -> s{_dsiNextToken = a}); +dsiNextToken = lens _dsiNextToken (\ s a -> s{_dsiNextToken = a}) -- | One or more Scheduled Instance IDs. dsiScheduledInstanceIds :: Lens' DescribeScheduledInstances [Text] -dsiScheduledInstanceIds = lens _dsiScheduledInstanceIds (\ s a -> s{_dsiScheduledInstanceIds = a}) . _Default . _Coerce; +dsiScheduledInstanceIds = lens _dsiScheduledInstanceIds (\ s a -> s{_dsiScheduledInstanceIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsiDryRun :: Lens' DescribeScheduledInstances (Maybe Bool) -dsiDryRun = lens _dsiDryRun (\ s a -> s{_dsiDryRun = a}); +dsiDryRun = lens _dsiDryRun (\ s a -> s{_dsiDryRun = a}) -- | The maximum number of results to return in a single call. This value can be between 5 and 300. The default value is 100. To retrieve the remaining results, make another call with the returned @NextToken@ value. dsiMaxResults :: Lens' DescribeScheduledInstances (Maybe Int) -dsiMaxResults = lens _dsiMaxResults (\ s a -> s{_dsiMaxResults = a}); +dsiMaxResults = lens _dsiMaxResults (\ s a -> s{_dsiMaxResults = a}) instance AWSRequest DescribeScheduledInstances where type Rs DescribeScheduledInstances = @@ -181,23 +181,23 @@ -> DescribeScheduledInstancesResponse describeScheduledInstancesResponse pResponseStatus_ = DescribeScheduledInstancesResponse' - { _dsirsNextToken = Nothing - , _dsirsScheduledInstanceSet = Nothing - , _dsirsResponseStatus = pResponseStatus_ - } + { _dsirsNextToken = Nothing + , _dsirsScheduledInstanceSet = Nothing + , _dsirsResponseStatus = pResponseStatus_ + } -- | The token required to retrieve the next set of results. This value is @null@ when there are no more results to return. dsirsNextToken :: Lens' DescribeScheduledInstancesResponse (Maybe Text) -dsirsNextToken = lens _dsirsNextToken (\ s a -> s{_dsirsNextToken = a}); +dsirsNextToken = lens _dsirsNextToken (\ s a -> s{_dsirsNextToken = a}) -- | Information about the Scheduled Instances. dsirsScheduledInstanceSet :: Lens' DescribeScheduledInstancesResponse [ScheduledInstance] -dsirsScheduledInstanceSet = lens _dsirsScheduledInstanceSet (\ s a -> s{_dsirsScheduledInstanceSet = a}) . _Default . _Coerce; +dsirsScheduledInstanceSet = lens _dsirsScheduledInstanceSet (\ s a -> s{_dsirsScheduledInstanceSet = a}) . _Default . _Coerce -- | -- | The response status code. dsirsResponseStatus :: Lens' DescribeScheduledInstancesResponse Int -dsirsResponseStatus = lens _dsirsResponseStatus (\ s a -> s{_dsirsResponseStatus = a}); +dsirsResponseStatus = lens _dsirsResponseStatus (\ s a -> s{_dsirsResponseStatus = a}) instance NFData DescribeScheduledInstancesResponse where diff --git a/gen/Network/AWS/EC2/DescribeSecurityGroupReferences.hs b/gen/Network/AWS/EC2/DescribeSecurityGroupReferences.hs --- a/gen/Network/AWS/EC2/DescribeSecurityGroupReferences.hs +++ b/gen/Network/AWS/EC2/DescribeSecurityGroupReferences.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeSecurityGroupReferences --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -63,16 +63,16 @@ :: DescribeSecurityGroupReferences describeSecurityGroupReferences = DescribeSecurityGroupReferences' - {_dsgrDryRun = Nothing, _dsgrGroupId = mempty} + {_dsgrDryRun = Nothing, _dsgrGroupId = mempty} -- | Checks whether you have the required permissions for the operation, without actually making the request, and provides an error response. If you have the required permissions, the error response is DryRunOperation. Otherwise, it is UnauthorizedOperation. dsgrDryRun :: Lens' DescribeSecurityGroupReferences (Maybe Bool) -dsgrDryRun = lens _dsgrDryRun (\ s a -> s{_dsgrDryRun = a}); +dsgrDryRun = lens _dsgrDryRun (\ s a -> s{_dsgrDryRun = a}) -- | One or more security group IDs in your account. dsgrGroupId :: Lens' DescribeSecurityGroupReferences [Text] -dsgrGroupId = lens _dsgrGroupId (\ s a -> s{_dsgrGroupId = a}) . _Coerce; +dsgrGroupId = lens _dsgrGroupId (\ s a -> s{_dsgrGroupId = a}) . _Coerce instance AWSRequest DescribeSecurityGroupReferences where @@ -128,18 +128,18 @@ -> DescribeSecurityGroupReferencesResponse describeSecurityGroupReferencesResponse pResponseStatus_ = DescribeSecurityGroupReferencesResponse' - { _dsgrrsSecurityGroupReferenceSet = Nothing - , _dsgrrsResponseStatus = pResponseStatus_ - } + { _dsgrrsSecurityGroupReferenceSet = Nothing + , _dsgrrsResponseStatus = pResponseStatus_ + } -- | Information about the VPCs with the referencing security groups. dsgrrsSecurityGroupReferenceSet :: Lens' DescribeSecurityGroupReferencesResponse [SecurityGroupReference] -dsgrrsSecurityGroupReferenceSet = lens _dsgrrsSecurityGroupReferenceSet (\ s a -> s{_dsgrrsSecurityGroupReferenceSet = a}) . _Default . _Coerce; +dsgrrsSecurityGroupReferenceSet = lens _dsgrrsSecurityGroupReferenceSet (\ s a -> s{_dsgrrsSecurityGroupReferenceSet = a}) . _Default . _Coerce -- | -- | The response status code. dsgrrsResponseStatus :: Lens' DescribeSecurityGroupReferencesResponse Int -dsgrrsResponseStatus = lens _dsgrrsResponseStatus (\ s a -> s{_dsgrrsResponseStatus = a}); +dsgrrsResponseStatus = lens _dsgrrsResponseStatus (\ s a -> s{_dsgrrsResponseStatus = a}) instance NFData DescribeSecurityGroupReferencesResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeSecurityGroups --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -84,43 +84,43 @@ -- -- * 'dsgsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'dsgsMaxResults' - The maximum number of results to return in a single call. To retrieve the remaining results, make another request with the returned @NextToken@ value. This value can be between 5 and 1000. +-- * 'dsgsMaxResults' - The maximum number of results to return in a single call. To retrieve the remaining results, make another request with the returned @NextToken@ value. This value can be between 5 and 1000. If this parameter is not specified, then all results are returned. describeSecurityGroups :: DescribeSecurityGroups describeSecurityGroups = DescribeSecurityGroups' - { _dsgsFilters = Nothing - , _dsgsGroupNames = Nothing - , _dsgsGroupIds = Nothing - , _dsgsNextToken = Nothing - , _dsgsDryRun = Nothing - , _dsgsMaxResults = Nothing - } + { _dsgsFilters = Nothing + , _dsgsGroupNames = Nothing + , _dsgsGroupIds = Nothing + , _dsgsNextToken = Nothing + , _dsgsDryRun = Nothing + , _dsgsMaxResults = Nothing + } -- | One or more filters. If using multiple filters for rules, the results include security groups for which any combination of rules - not necessarily a single rule - match all filters. * @description@ - The description of the security group. * @egress.ip-permission.cidr@ - An IPv4 CIDR block for an outbound security group rule. * @egress.ip-permission.from-port@ - For an outbound rule, the start of port range for the TCP and UDP protocols, or an ICMP type number. * @egress.ip-permission.group-id@ - The ID of a security group that has been referenced in an outbound security group rule. * @egress.ip-permission.group-name@ - The name of a security group that has been referenced in an outbound security group rule. * @egress.ip-permission.ipv6-cidr@ - An IPv6 CIDR block for an outbound security group rule. * @egress.ip-permission.prefix-list-id@ - The ID (prefix) of the AWS service to which a security group rule allows outbound access. * @egress.ip-permission.protocol@ - The IP protocol for an outbound security group rule (@tcp@ | @udp@ | @icmp@ or a protocol number). * @egress.ip-permission.to-port@ - For an outbound rule, the end of port range for the TCP and UDP protocols, or an ICMP code. * @egress.ip-permission.user-id@ - The ID of an AWS account that has been referenced in an outbound security group rule. * @group-id@ - The ID of the security group. * @group-name@ - The name of the security group. * @ip-permission.cidr@ - An IPv4 CIDR block for an inbound security group rule. * @ip-permission.from-port@ - For an inbound rule, the start of port range for the TCP and UDP protocols, or an ICMP type number. * @ip-permission.group-id@ - The ID of a security group that has been referenced in an inbound security group rule. * @ip-permission.group-name@ - The name of a security group that has been referenced in an inbound security group rule. * @ip-permission.ipv6-cidr@ - An IPv6 CIDR block for an inbound security group rule. * @ip-permission.prefix-list-id@ - The ID (prefix) of the AWS service from which a security group rule allows inbound access. * @ip-permission.protocol@ - The IP protocol for an inbound security group rule (@tcp@ | @udp@ | @icmp@ or a protocol number). * @ip-permission.to-port@ - For an inbound rule, the end of port range for the TCP and UDP protocols, or an ICMP code. * @ip-permission.user-id@ - The ID of an AWS account that has been referenced in an inbound security group rule. * @owner-id@ - The AWS account ID of the owner of the security group. * @tag-key@ - The key of a tag assigned to the security group. * @tag-value@ - The value of a tag assigned to the security group. * @vpc-id@ - The ID of the VPC specified when the security group was created. dsgsFilters :: Lens' DescribeSecurityGroups [Filter] -dsgsFilters = lens _dsgsFilters (\ s a -> s{_dsgsFilters = a}) . _Default . _Coerce; +dsgsFilters = lens _dsgsFilters (\ s a -> s{_dsgsFilters = a}) . _Default . _Coerce -- | [EC2-Classic and default VPC only] One or more security group names. You can specify either the security group name or the security group ID. For security groups in a nondefault VPC, use the @group-name@ filter to describe security groups by name. Default: Describes all your security groups. dsgsGroupNames :: Lens' DescribeSecurityGroups [Text] -dsgsGroupNames = lens _dsgsGroupNames (\ s a -> s{_dsgsGroupNames = a}) . _Default . _Coerce; +dsgsGroupNames = lens _dsgsGroupNames (\ s a -> s{_dsgsGroupNames = a}) . _Default . _Coerce -- | One or more security group IDs. Required for security groups in a nondefault VPC. Default: Describes all your security groups. dsgsGroupIds :: Lens' DescribeSecurityGroups [Text] -dsgsGroupIds = lens _dsgsGroupIds (\ s a -> s{_dsgsGroupIds = a}) . _Default . _Coerce; +dsgsGroupIds = lens _dsgsGroupIds (\ s a -> s{_dsgsGroupIds = a}) . _Default . _Coerce -- | The token to request the next page of results. dsgsNextToken :: Lens' DescribeSecurityGroups (Maybe Text) -dsgsNextToken = lens _dsgsNextToken (\ s a -> s{_dsgsNextToken = a}); +dsgsNextToken = lens _dsgsNextToken (\ s a -> s{_dsgsNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsgsDryRun :: Lens' DescribeSecurityGroups (Maybe Bool) -dsgsDryRun = lens _dsgsDryRun (\ s a -> s{_dsgsDryRun = a}); +dsgsDryRun = lens _dsgsDryRun (\ s a -> s{_dsgsDryRun = a}) --- | The maximum number of results to return in a single call. To retrieve the remaining results, make another request with the returned @NextToken@ value. This value can be between 5 and 1000. +-- | The maximum number of results to return in a single call. To retrieve the remaining results, make another request with the returned @NextToken@ value. This value can be between 5 and 1000. If this parameter is not specified, then all results are returned. dsgsMaxResults :: Lens' DescribeSecurityGroups (Maybe Int) -dsgsMaxResults = lens _dsgsMaxResults (\ s a -> s{_dsgsMaxResults = a}); +dsgsMaxResults = lens _dsgsMaxResults (\ s a -> s{_dsgsMaxResults = a}) instance AWSPager DescribeSecurityGroups where page rq rs @@ -192,22 +192,22 @@ -> DescribeSecurityGroupsResponse describeSecurityGroupsResponse pResponseStatus_ = DescribeSecurityGroupsResponse' - { _dsgrsSecurityGroups = Nothing - , _dsgrsNextToken = Nothing - , _dsgrsResponseStatus = pResponseStatus_ - } + { _dsgrsSecurityGroups = Nothing + , _dsgrsNextToken = Nothing + , _dsgrsResponseStatus = pResponseStatus_ + } -- | Information about one or more security groups. dsgrsSecurityGroups :: Lens' DescribeSecurityGroupsResponse [SecurityGroup] -dsgrsSecurityGroups = lens _dsgrsSecurityGroups (\ s a -> s{_dsgrsSecurityGroups = a}) . _Default . _Coerce; +dsgrsSecurityGroups = lens _dsgrsSecurityGroups (\ s a -> s{_dsgrsSecurityGroups = a}) . _Default . _Coerce -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dsgrsNextToken :: Lens' DescribeSecurityGroupsResponse (Maybe Text) -dsgrsNextToken = lens _dsgrsNextToken (\ s a -> s{_dsgrsNextToken = a}); +dsgrsNextToken = lens _dsgrsNextToken (\ s a -> s{_dsgrsNextToken = a}) -- | -- | The response status code. dsgrsResponseStatus :: Lens' DescribeSecurityGroupsResponse Int -dsgrsResponseStatus = lens _dsgrsResponseStatus (\ s a -> s{_dsgrsResponseStatus = a}); +dsgrsResponseStatus = lens _dsgrsResponseStatus (\ s a -> s{_dsgrsResponseStatus = a}) instance NFData DescribeSecurityGroupsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeSnapshotAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,23 +77,23 @@ -> DescribeSnapshotAttribute describeSnapshotAttribute pAttribute_ pSnapshotId_ = DescribeSnapshotAttribute' - { _dsaDryRun = Nothing - , _dsaAttribute = pAttribute_ - , _dsaSnapshotId = pSnapshotId_ - } + { _dsaDryRun = Nothing + , _dsaAttribute = pAttribute_ + , _dsaSnapshotId = pSnapshotId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsaDryRun :: Lens' DescribeSnapshotAttribute (Maybe Bool) -dsaDryRun = lens _dsaDryRun (\ s a -> s{_dsaDryRun = a}); +dsaDryRun = lens _dsaDryRun (\ s a -> s{_dsaDryRun = a}) -- | The snapshot attribute you would like to view. dsaAttribute :: Lens' DescribeSnapshotAttribute SnapshotAttributeName -dsaAttribute = lens _dsaAttribute (\ s a -> s{_dsaAttribute = a}); +dsaAttribute = lens _dsaAttribute (\ s a -> s{_dsaAttribute = a}) -- | The ID of the EBS snapshot. dsaSnapshotId :: Lens' DescribeSnapshotAttribute Text -dsaSnapshotId = lens _dsaSnapshotId (\ s a -> s{_dsaSnapshotId = a}); +dsaSnapshotId = lens _dsaSnapshotId (\ s a -> s{_dsaSnapshotId = a}) instance AWSRequest DescribeSnapshotAttribute where type Rs DescribeSnapshotAttribute = @@ -159,28 +159,28 @@ -> DescribeSnapshotAttributeResponse describeSnapshotAttributeResponse pResponseStatus_ = DescribeSnapshotAttributeResponse' - { _dsarsCreateVolumePermissions = Nothing - , _dsarsProductCodes = Nothing - , _dsarsSnapshotId = Nothing - , _dsarsResponseStatus = pResponseStatus_ - } + { _dsarsCreateVolumePermissions = Nothing + , _dsarsProductCodes = Nothing + , _dsarsSnapshotId = Nothing + , _dsarsResponseStatus = pResponseStatus_ + } -- | A list of permissions for creating volumes from the snapshot. dsarsCreateVolumePermissions :: Lens' DescribeSnapshotAttributeResponse [CreateVolumePermission] -dsarsCreateVolumePermissions = lens _dsarsCreateVolumePermissions (\ s a -> s{_dsarsCreateVolumePermissions = a}) . _Default . _Coerce; +dsarsCreateVolumePermissions = lens _dsarsCreateVolumePermissions (\ s a -> s{_dsarsCreateVolumePermissions = a}) . _Default . _Coerce -- | A list of product codes. dsarsProductCodes :: Lens' DescribeSnapshotAttributeResponse [ProductCode] -dsarsProductCodes = lens _dsarsProductCodes (\ s a -> s{_dsarsProductCodes = a}) . _Default . _Coerce; +dsarsProductCodes = lens _dsarsProductCodes (\ s a -> s{_dsarsProductCodes = a}) . _Default . _Coerce -- | The ID of the EBS snapshot. dsarsSnapshotId :: Lens' DescribeSnapshotAttributeResponse (Maybe Text) -dsarsSnapshotId = lens _dsarsSnapshotId (\ s a -> s{_dsarsSnapshotId = a}); +dsarsSnapshotId = lens _dsarsSnapshotId (\ s a -> s{_dsarsSnapshotId = a}) -- | -- | The response status code. dsarsResponseStatus :: Lens' DescribeSnapshotAttributeResponse Int -dsarsResponseStatus = lens _dsarsResponseStatus (\ s a -> s{_dsarsResponseStatus = a}); +dsarsResponseStatus = lens _dsarsResponseStatus (\ s a -> s{_dsarsResponseStatus = a}) instance NFData DescribeSnapshotAttributeResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeSnapshots --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -113,43 +113,43 @@ :: DescribeSnapshots describeSnapshots = DescribeSnapshots' - { _dssOwnerIds = Nothing - , _dssFilters = Nothing - , _dssNextToken = Nothing - , _dssSnapshotIds = Nothing - , _dssRestorableByUserIds = Nothing - , _dssDryRun = Nothing - , _dssMaxResults = Nothing - } + { _dssOwnerIds = Nothing + , _dssFilters = Nothing + , _dssNextToken = Nothing + , _dssSnapshotIds = Nothing + , _dssRestorableByUserIds = Nothing + , _dssDryRun = Nothing + , _dssMaxResults = Nothing + } -- | Returns the snapshots owned by the specified owner. Multiple owners can be specified. dssOwnerIds :: Lens' DescribeSnapshots [Text] -dssOwnerIds = lens _dssOwnerIds (\ s a -> s{_dssOwnerIds = a}) . _Default . _Coerce; +dssOwnerIds = lens _dssOwnerIds (\ s a -> s{_dssOwnerIds = a}) . _Default . _Coerce -- | One or more filters. * @description@ - A description of the snapshot. * @owner-alias@ - Value from an Amazon-maintained list (@amazon@ | @aws-marketplace@ | @microsoft@ ) of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. * @owner-id@ - The ID of the AWS account that owns the snapshot. * @progress@ - The progress of the snapshot, as a percentage (for example, 80%). * @snapshot-id@ - The snapshot ID. * @start-time@ - The time stamp when the snapshot was initiated. * @status@ - The status of the snapshot (@pending@ | @completed@ | @error@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @volume-id@ - The ID of the volume the snapshot is for. * @volume-size@ - The size of the volume, in GiB. dssFilters :: Lens' DescribeSnapshots [Filter] -dssFilters = lens _dssFilters (\ s a -> s{_dssFilters = a}) . _Default . _Coerce; +dssFilters = lens _dssFilters (\ s a -> s{_dssFilters = a}) . _Default . _Coerce -- | The @NextToken@ value returned from a previous paginated @DescribeSnapshots@ request where @MaxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @NextToken@ value. This value is @null@ when there are no more results to return. dssNextToken :: Lens' DescribeSnapshots (Maybe Text) -dssNextToken = lens _dssNextToken (\ s a -> s{_dssNextToken = a}); +dssNextToken = lens _dssNextToken (\ s a -> s{_dssNextToken = a}) -- | One or more snapshot IDs. Default: Describes snapshots for which you have launch permissions. dssSnapshotIds :: Lens' DescribeSnapshots [Text] -dssSnapshotIds = lens _dssSnapshotIds (\ s a -> s{_dssSnapshotIds = a}) . _Default . _Coerce; +dssSnapshotIds = lens _dssSnapshotIds (\ s a -> s{_dssSnapshotIds = a}) . _Default . _Coerce -- | One or more AWS accounts IDs that can create volumes from the snapshot. dssRestorableByUserIds :: Lens' DescribeSnapshots [Text] -dssRestorableByUserIds = lens _dssRestorableByUserIds (\ s a -> s{_dssRestorableByUserIds = a}) . _Default . _Coerce; +dssRestorableByUserIds = lens _dssRestorableByUserIds (\ s a -> s{_dssRestorableByUserIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dssDryRun :: Lens' DescribeSnapshots (Maybe Bool) -dssDryRun = lens _dssDryRun (\ s a -> s{_dssDryRun = a}); +dssDryRun = lens _dssDryRun (\ s a -> s{_dssDryRun = a}) -- | The maximum number of snapshot results returned by @DescribeSnapshots@ in paginated output. When this parameter is used, @DescribeSnapshots@ only returns @MaxResults@ results in a single page along with a @NextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeSnapshots@ request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. If this parameter is not used, then @DescribeSnapshots@ returns all results. You cannot specify this parameter and the snapshot IDs parameter in the same request. dssMaxResults :: Lens' DescribeSnapshots (Maybe Int) -dssMaxResults = lens _dssMaxResults (\ s a -> s{_dssMaxResults = a}); +dssMaxResults = lens _dssMaxResults (\ s a -> s{_dssMaxResults = a}) instance AWSPager DescribeSnapshots where page rq rs @@ -222,22 +222,22 @@ -> DescribeSnapshotsResponse describeSnapshotsResponse pResponseStatus_ = DescribeSnapshotsResponse' - { _dssrsNextToken = Nothing - , _dssrsSnapshots = Nothing - , _dssrsResponseStatus = pResponseStatus_ - } + { _dssrsNextToken = Nothing + , _dssrsSnapshots = Nothing + , _dssrsResponseStatus = pResponseStatus_ + } -- | The @NextToken@ value to include in a future @DescribeSnapshots@ request. When the results of a @DescribeSnapshots@ request exceed @MaxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. dssrsNextToken :: Lens' DescribeSnapshotsResponse (Maybe Text) -dssrsNextToken = lens _dssrsNextToken (\ s a -> s{_dssrsNextToken = a}); +dssrsNextToken = lens _dssrsNextToken (\ s a -> s{_dssrsNextToken = a}) -- | Information about the snapshots. dssrsSnapshots :: Lens' DescribeSnapshotsResponse [Snapshot] -dssrsSnapshots = lens _dssrsSnapshots (\ s a -> s{_dssrsSnapshots = a}) . _Default . _Coerce; +dssrsSnapshots = lens _dssrsSnapshots (\ s a -> s{_dssrsSnapshots = a}) . _Default . _Coerce -- | -- | The response status code. dssrsResponseStatus :: Lens' DescribeSnapshotsResponse Int -dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}); +dssrsResponseStatus = lens _dssrsResponseStatus (\ s a -> s{_dssrsResponseStatus = a}) instance NFData DescribeSnapshotsResponse where 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DescribeSpotDatafeedSubscription --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes the data feed for Spot instances. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Describes the data feed for Spot Instances. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . -- -- module Network.AWS.EC2.DescribeSpotDatafeedSubscription @@ -67,7 +67,7 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsdsDryRun :: Lens' DescribeSpotDatafeedSubscription (Maybe Bool) -dsdsDryRun = lens _dsdsDryRun (\ s a -> s{_dsdsDryRun = a}); +dsdsDryRun = lens _dsdsDryRun (\ s a -> s{_dsdsDryRun = a}) instance AWSRequest DescribeSpotDatafeedSubscription where @@ -119,7 +119,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsdsrsSpotDatafeedSubscription' - The Spot instance data feed subscription. +-- * 'dsdsrsSpotDatafeedSubscription' - The Spot Instance data feed subscription. -- -- * 'dsdsrsResponseStatus' - -- | The response status code. describeSpotDatafeedSubscriptionResponse @@ -127,18 +127,18 @@ -> DescribeSpotDatafeedSubscriptionResponse describeSpotDatafeedSubscriptionResponse pResponseStatus_ = DescribeSpotDatafeedSubscriptionResponse' - { _dsdsrsSpotDatafeedSubscription = Nothing - , _dsdsrsResponseStatus = pResponseStatus_ - } + { _dsdsrsSpotDatafeedSubscription = Nothing + , _dsdsrsResponseStatus = pResponseStatus_ + } --- | The Spot instance data feed subscription. +-- | The Spot Instance data feed subscription. dsdsrsSpotDatafeedSubscription :: Lens' DescribeSpotDatafeedSubscriptionResponse (Maybe SpotDatafeedSubscription) -dsdsrsSpotDatafeedSubscription = lens _dsdsrsSpotDatafeedSubscription (\ s a -> s{_dsdsrsSpotDatafeedSubscription = a}); +dsdsrsSpotDatafeedSubscription = lens _dsdsrsSpotDatafeedSubscription (\ s a -> s{_dsdsrsSpotDatafeedSubscription = a}) -- | -- | The response status code. dsdsrsResponseStatus :: Lens' DescribeSpotDatafeedSubscriptionResponse Int -dsdsrsResponseStatus = lens _dsdsrsResponseStatus (\ s a -> s{_dsdsrsResponseStatus = a}); +dsdsrsResponseStatus = lens _dsdsrsResponseStatus (\ s a -> s{_dsdsrsResponseStatus = a}) instance NFData DescribeSpotDatafeedSubscriptionResponse 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 @@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.EC2.DescribeSpotFleetInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes the running instances for the specified Spot fleet. +-- Describes the running instances for the specified Spot Fleet. -- -- +-- +-- This operation returns paginated results. module Network.AWS.EC2.DescribeSpotFleetInstances ( -- * Creating a Request @@ -45,6 +47,7 @@ import Network.AWS.EC2.Types import Network.AWS.EC2.Types.Product import Network.AWS.Lens +import Network.AWS.Pager import Network.AWS.Prelude import Network.AWS.Request import Network.AWS.Response @@ -72,35 +75,42 @@ -- -- * 'dsfiMaxResults' - The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. -- --- * 'dsfiSpotFleetRequestId' - The ID of the Spot fleet request. +-- * 'dsfiSpotFleetRequestId' - The ID of the Spot Fleet request. describeSpotFleetInstances :: Text -- ^ 'dsfiSpotFleetRequestId' -> DescribeSpotFleetInstances describeSpotFleetInstances pSpotFleetRequestId_ = DescribeSpotFleetInstances' - { _dsfiNextToken = Nothing - , _dsfiDryRun = Nothing - , _dsfiMaxResults = Nothing - , _dsfiSpotFleetRequestId = pSpotFleetRequestId_ - } + { _dsfiNextToken = Nothing + , _dsfiDryRun = Nothing + , _dsfiMaxResults = Nothing + , _dsfiSpotFleetRequestId = pSpotFleetRequestId_ + } -- | The token for the next set of results. dsfiNextToken :: Lens' DescribeSpotFleetInstances (Maybe Text) -dsfiNextToken = lens _dsfiNextToken (\ s a -> s{_dsfiNextToken = a}); +dsfiNextToken = lens _dsfiNextToken (\ s a -> s{_dsfiNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsfiDryRun :: Lens' DescribeSpotFleetInstances (Maybe Bool) -dsfiDryRun = lens _dsfiDryRun (\ s a -> s{_dsfiDryRun = a}); +dsfiDryRun = lens _dsfiDryRun (\ s a -> s{_dsfiDryRun = a}) -- | The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. dsfiMaxResults :: Lens' DescribeSpotFleetInstances (Maybe Int) -dsfiMaxResults = lens _dsfiMaxResults (\ s a -> s{_dsfiMaxResults = a}); +dsfiMaxResults = lens _dsfiMaxResults (\ s a -> s{_dsfiMaxResults = a}) --- | The ID of the Spot fleet request. +-- | The ID of the Spot Fleet request. dsfiSpotFleetRequestId :: Lens' DescribeSpotFleetInstances Text -dsfiSpotFleetRequestId = lens _dsfiSpotFleetRequestId (\ s a -> s{_dsfiSpotFleetRequestId = a}); +dsfiSpotFleetRequestId = lens _dsfiSpotFleetRequestId (\ s a -> s{_dsfiSpotFleetRequestId = a}) +instance AWSPager DescribeSpotFleetInstances where + page rq rs + | stop (rs ^. dsfirsNextToken) = Nothing + | stop (rs ^. dsfirsActiveInstances) = Nothing + | otherwise = + Just $ rq & dsfiNextToken .~ rs ^. dsfirsNextToken + instance AWSRequest DescribeSpotFleetInstances where type Rs DescribeSpotFleetInstances = DescribeSpotFleetInstancesResponse @@ -156,37 +166,37 @@ -- -- * 'dsfirsResponseStatus' - -- | The response status code. -- --- * 'dsfirsActiveInstances' - The running instances. Note that this list is refreshed periodically and might be out of date. +-- * 'dsfirsActiveInstances' - The running instances. This list is refreshed periodically and might be out of date. -- --- * 'dsfirsSpotFleetRequestId' - The ID of the Spot fleet request. +-- * 'dsfirsSpotFleetRequestId' - The ID of the Spot Fleet request. describeSpotFleetInstancesResponse :: Int -- ^ 'dsfirsResponseStatus' -> Text -- ^ 'dsfirsSpotFleetRequestId' -> DescribeSpotFleetInstancesResponse describeSpotFleetInstancesResponse pResponseStatus_ pSpotFleetRequestId_ = DescribeSpotFleetInstancesResponse' - { _dsfirsNextToken = Nothing - , _dsfirsResponseStatus = pResponseStatus_ - , _dsfirsActiveInstances = mempty - , _dsfirsSpotFleetRequestId = pSpotFleetRequestId_ - } + { _dsfirsNextToken = Nothing + , _dsfirsResponseStatus = pResponseStatus_ + , _dsfirsActiveInstances = mempty + , _dsfirsSpotFleetRequestId = pSpotFleetRequestId_ + } -- | The token required to retrieve the next set of results. This value is @null@ when there are no more results to return. dsfirsNextToken :: Lens' DescribeSpotFleetInstancesResponse (Maybe Text) -dsfirsNextToken = lens _dsfirsNextToken (\ s a -> s{_dsfirsNextToken = a}); +dsfirsNextToken = lens _dsfirsNextToken (\ s a -> s{_dsfirsNextToken = a}) -- | -- | The response status code. dsfirsResponseStatus :: Lens' DescribeSpotFleetInstancesResponse Int -dsfirsResponseStatus = lens _dsfirsResponseStatus (\ s a -> s{_dsfirsResponseStatus = a}); +dsfirsResponseStatus = lens _dsfirsResponseStatus (\ s a -> s{_dsfirsResponseStatus = a}) --- | The running instances. Note that this list is refreshed periodically and might be out of date. +-- | The running instances. This list is refreshed periodically and might be out of date. dsfirsActiveInstances :: Lens' DescribeSpotFleetInstancesResponse [ActiveInstance] -dsfirsActiveInstances = lens _dsfirsActiveInstances (\ s a -> s{_dsfirsActiveInstances = a}) . _Coerce; +dsfirsActiveInstances = lens _dsfirsActiveInstances (\ s a -> s{_dsfirsActiveInstances = a}) . _Coerce --- | The ID of the Spot fleet request. +-- | The ID of the Spot Fleet request. dsfirsSpotFleetRequestId :: Lens' DescribeSpotFleetInstancesResponse Text -dsfirsSpotFleetRequestId = lens _dsfirsSpotFleetRequestId (\ s a -> s{_dsfirsSpotFleetRequestId = a}); +dsfirsSpotFleetRequestId = lens _dsfirsSpotFleetRequestId (\ s a -> s{_dsfirsSpotFleetRequestId = a}) instance NFData DescribeSpotFleetInstancesResponse where 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 @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.EC2.DescribeSpotFleetRequestHistory --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes the events for the specified Spot fleet request during the specified time. +-- Describes the events for the specified Spot Fleet request during the specified time. -- -- --- Spot fleet events are delayed by up to 30 seconds before they can be described. This ensures that you can query by the last evaluated time and not miss a recorded event. +-- Spot Fleet events are delayed by up to 30 seconds before they can be described. This ensures that you can query by the last evaluated time and not miss a recorded event. -- module Network.AWS.EC2.DescribeSpotFleetRequestHistory ( @@ -82,7 +82,7 @@ -- -- * 'dsfrhMaxResults' - The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. -- --- * 'dsfrhSpotFleetRequestId' - The ID of the Spot fleet request. +-- * 'dsfrhSpotFleetRequestId' - The ID of the Spot Fleet request. -- -- * 'dsfrhStartTime' - The starting date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). describeSpotFleetRequestHistory @@ -91,38 +91,38 @@ -> DescribeSpotFleetRequestHistory describeSpotFleetRequestHistory pSpotFleetRequestId_ pStartTime_ = DescribeSpotFleetRequestHistory' - { _dsfrhNextToken = Nothing - , _dsfrhEventType = Nothing - , _dsfrhDryRun = Nothing - , _dsfrhMaxResults = Nothing - , _dsfrhSpotFleetRequestId = pSpotFleetRequestId_ - , _dsfrhStartTime = _Time # pStartTime_ - } + { _dsfrhNextToken = Nothing + , _dsfrhEventType = Nothing + , _dsfrhDryRun = Nothing + , _dsfrhMaxResults = Nothing + , _dsfrhSpotFleetRequestId = pSpotFleetRequestId_ + , _dsfrhStartTime = _Time # pStartTime_ + } -- | The token for the next set of results. dsfrhNextToken :: Lens' DescribeSpotFleetRequestHistory (Maybe Text) -dsfrhNextToken = lens _dsfrhNextToken (\ s a -> s{_dsfrhNextToken = a}); +dsfrhNextToken = lens _dsfrhNextToken (\ s a -> s{_dsfrhNextToken = a}) -- | The type of events to describe. By default, all events are described. dsfrhEventType :: Lens' DescribeSpotFleetRequestHistory (Maybe EventType) -dsfrhEventType = lens _dsfrhEventType (\ s a -> s{_dsfrhEventType = a}); +dsfrhEventType = lens _dsfrhEventType (\ s a -> s{_dsfrhEventType = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsfrhDryRun :: Lens' DescribeSpotFleetRequestHistory (Maybe Bool) -dsfrhDryRun = lens _dsfrhDryRun (\ s a -> s{_dsfrhDryRun = a}); +dsfrhDryRun = lens _dsfrhDryRun (\ s a -> s{_dsfrhDryRun = a}) -- | The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. dsfrhMaxResults :: Lens' DescribeSpotFleetRequestHistory (Maybe Int) -dsfrhMaxResults = lens _dsfrhMaxResults (\ s a -> s{_dsfrhMaxResults = a}); +dsfrhMaxResults = lens _dsfrhMaxResults (\ s a -> s{_dsfrhMaxResults = a}) --- | The ID of the Spot fleet request. +-- | The ID of the Spot Fleet request. dsfrhSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistory Text -dsfrhSpotFleetRequestId = lens _dsfrhSpotFleetRequestId (\ s a -> s{_dsfrhSpotFleetRequestId = a}); +dsfrhSpotFleetRequestId = lens _dsfrhSpotFleetRequestId (\ s a -> s{_dsfrhSpotFleetRequestId = a}) -- | The starting date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). dsfrhStartTime :: Lens' DescribeSpotFleetRequestHistory UTCTime -dsfrhStartTime = lens _dsfrhStartTime (\ s a -> s{_dsfrhStartTime = a}) . _Time; +dsfrhStartTime = lens _dsfrhStartTime (\ s a -> s{_dsfrhStartTime = a}) . _Time instance AWSRequest DescribeSpotFleetRequestHistory where @@ -189,11 +189,11 @@ -- -- * 'dsfrhrsResponseStatus' - -- | The response status code. -- --- * 'dsfrhrsHistoryRecords' - Information about the events in the history of the Spot fleet request. +-- * 'dsfrhrsHistoryRecords' - Information about the events in the history of the Spot Fleet request. -- -- * 'dsfrhrsLastEvaluatedTime' - The last date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). All records up to this time were retrieved. If @nextToken@ indicates that there are more results, this value is not present. -- --- * 'dsfrhrsSpotFleetRequestId' - The ID of the Spot fleet request. +-- * 'dsfrhrsSpotFleetRequestId' - The ID of the Spot Fleet request. -- -- * 'dsfrhrsStartTime' - The starting date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). describeSpotFleetRequestHistoryResponse @@ -204,38 +204,38 @@ -> DescribeSpotFleetRequestHistoryResponse describeSpotFleetRequestHistoryResponse pResponseStatus_ pLastEvaluatedTime_ pSpotFleetRequestId_ pStartTime_ = DescribeSpotFleetRequestHistoryResponse' - { _dsfrhrsNextToken = Nothing - , _dsfrhrsResponseStatus = pResponseStatus_ - , _dsfrhrsHistoryRecords = mempty - , _dsfrhrsLastEvaluatedTime = _Time # pLastEvaluatedTime_ - , _dsfrhrsSpotFleetRequestId = pSpotFleetRequestId_ - , _dsfrhrsStartTime = _Time # pStartTime_ - } + { _dsfrhrsNextToken = Nothing + , _dsfrhrsResponseStatus = pResponseStatus_ + , _dsfrhrsHistoryRecords = mempty + , _dsfrhrsLastEvaluatedTime = _Time # pLastEvaluatedTime_ + , _dsfrhrsSpotFleetRequestId = pSpotFleetRequestId_ + , _dsfrhrsStartTime = _Time # pStartTime_ + } -- | The token required to retrieve the next set of results. This value is @null@ when there are no more results to return. dsfrhrsNextToken :: Lens' DescribeSpotFleetRequestHistoryResponse (Maybe Text) -dsfrhrsNextToken = lens _dsfrhrsNextToken (\ s a -> s{_dsfrhrsNextToken = a}); +dsfrhrsNextToken = lens _dsfrhrsNextToken (\ s a -> s{_dsfrhrsNextToken = a}) -- | -- | The response status code. dsfrhrsResponseStatus :: Lens' DescribeSpotFleetRequestHistoryResponse Int -dsfrhrsResponseStatus = lens _dsfrhrsResponseStatus (\ s a -> s{_dsfrhrsResponseStatus = a}); +dsfrhrsResponseStatus = lens _dsfrhrsResponseStatus (\ s a -> s{_dsfrhrsResponseStatus = a}) --- | Information about the events in the history of the Spot fleet request. +-- | Information about the events in the history of the Spot Fleet request. dsfrhrsHistoryRecords :: Lens' DescribeSpotFleetRequestHistoryResponse [HistoryRecord] -dsfrhrsHistoryRecords = lens _dsfrhrsHistoryRecords (\ s a -> s{_dsfrhrsHistoryRecords = a}) . _Coerce; +dsfrhrsHistoryRecords = lens _dsfrhrsHistoryRecords (\ s a -> s{_dsfrhrsHistoryRecords = a}) . _Coerce -- | The last date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). All records up to this time were retrieved. If @nextToken@ indicates that there are more results, this value is not present. dsfrhrsLastEvaluatedTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime -dsfrhrsLastEvaluatedTime = lens _dsfrhrsLastEvaluatedTime (\ s a -> s{_dsfrhrsLastEvaluatedTime = a}) . _Time; +dsfrhrsLastEvaluatedTime = lens _dsfrhrsLastEvaluatedTime (\ s a -> s{_dsfrhrsLastEvaluatedTime = a}) . _Time --- | The ID of the Spot fleet request. +-- | The ID of the Spot Fleet request. dsfrhrsSpotFleetRequestId :: Lens' DescribeSpotFleetRequestHistoryResponse Text -dsfrhrsSpotFleetRequestId = lens _dsfrhrsSpotFleetRequestId (\ s a -> s{_dsfrhrsSpotFleetRequestId = a}); +dsfrhrsSpotFleetRequestId = lens _dsfrhrsSpotFleetRequestId (\ s a -> s{_dsfrhrsSpotFleetRequestId = a}) -- | The starting date and time for the events, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). dsfrhrsStartTime :: Lens' DescribeSpotFleetRequestHistoryResponse UTCTime -dsfrhrsStartTime = lens _dsfrhrsStartTime (\ s a -> s{_dsfrhrsStartTime = a}) . _Time; +dsfrhrsStartTime = lens _dsfrhrsStartTime (\ s a -> s{_dsfrhrsStartTime = a}) . _Time instance NFData DescribeSpotFleetRequestHistoryResponse 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 @@ -12,16 +12,16 @@ -- | -- Module : Network.AWS.EC2.DescribeSpotFleetRequests --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes your Spot fleet requests. +-- Describes your Spot Fleet requests. -- -- --- Spot fleet requests are deleted 48 hours after they are canceled and their instances are terminated. +-- Spot Fleet requests are deleted 48 hours after they are canceled and their instances are terminated. -- -- -- This operation returns paginated results. @@ -70,7 +70,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsfrSpotFleetRequestIds' - The IDs of the Spot fleet requests. +-- * 'dsfrSpotFleetRequestIds' - The IDs of the Spot Fleet requests. -- -- * 'dsfrNextToken' - The token for the next set of results. -- @@ -81,28 +81,28 @@ :: DescribeSpotFleetRequests describeSpotFleetRequests = DescribeSpotFleetRequests' - { _dsfrSpotFleetRequestIds = Nothing - , _dsfrNextToken = Nothing - , _dsfrDryRun = Nothing - , _dsfrMaxResults = Nothing - } + { _dsfrSpotFleetRequestIds = Nothing + , _dsfrNextToken = Nothing + , _dsfrDryRun = Nothing + , _dsfrMaxResults = Nothing + } --- | The IDs of the Spot fleet requests. +-- | The IDs of the Spot Fleet requests. dsfrSpotFleetRequestIds :: Lens' DescribeSpotFleetRequests [Text] -dsfrSpotFleetRequestIds = lens _dsfrSpotFleetRequestIds (\ s a -> s{_dsfrSpotFleetRequestIds = a}) . _Default . _Coerce; +dsfrSpotFleetRequestIds = lens _dsfrSpotFleetRequestIds (\ s a -> s{_dsfrSpotFleetRequestIds = a}) . _Default . _Coerce -- | The token for the next set of results. dsfrNextToken :: Lens' DescribeSpotFleetRequests (Maybe Text) -dsfrNextToken = lens _dsfrNextToken (\ s a -> s{_dsfrNextToken = a}); +dsfrNextToken = lens _dsfrNextToken (\ s a -> s{_dsfrNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsfrDryRun :: Lens' DescribeSpotFleetRequests (Maybe Bool) -dsfrDryRun = lens _dsfrDryRun (\ s a -> s{_dsfrDryRun = a}); +dsfrDryRun = lens _dsfrDryRun (\ s a -> s{_dsfrDryRun = a}) -- | The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. dsfrMaxResults :: Lens' DescribeSpotFleetRequests (Maybe Int) -dsfrMaxResults = lens _dsfrMaxResults (\ s a -> s{_dsfrMaxResults = a}); +dsfrMaxResults = lens _dsfrMaxResults (\ s a -> s{_dsfrMaxResults = a}) instance AWSPager DescribeSpotFleetRequests where page rq rs @@ -167,29 +167,29 @@ -- -- * 'dsfrrsResponseStatus' - -- | The response status code. -- --- * 'dsfrrsSpotFleetRequestConfigs' - Information about the configuration of your Spot fleet. +-- * 'dsfrrsSpotFleetRequestConfigs' - Information about the configuration of your Spot Fleet. describeSpotFleetRequestsResponse :: Int -- ^ 'dsfrrsResponseStatus' -> DescribeSpotFleetRequestsResponse describeSpotFleetRequestsResponse pResponseStatus_ = DescribeSpotFleetRequestsResponse' - { _dsfrrsNextToken = Nothing - , _dsfrrsResponseStatus = pResponseStatus_ - , _dsfrrsSpotFleetRequestConfigs = mempty - } + { _dsfrrsNextToken = Nothing + , _dsfrrsResponseStatus = pResponseStatus_ + , _dsfrrsSpotFleetRequestConfigs = mempty + } -- | The token required to retrieve the next set of results. This value is @null@ when there are no more results to return. dsfrrsNextToken :: Lens' DescribeSpotFleetRequestsResponse (Maybe Text) -dsfrrsNextToken = lens _dsfrrsNextToken (\ s a -> s{_dsfrrsNextToken = a}); +dsfrrsNextToken = lens _dsfrrsNextToken (\ s a -> s{_dsfrrsNextToken = a}) -- | -- | The response status code. dsfrrsResponseStatus :: Lens' DescribeSpotFleetRequestsResponse Int -dsfrrsResponseStatus = lens _dsfrrsResponseStatus (\ s a -> s{_dsfrrsResponseStatus = a}); +dsfrrsResponseStatus = lens _dsfrrsResponseStatus (\ s a -> s{_dsfrrsResponseStatus = a}) --- | Information about the configuration of your Spot fleet. +-- | Information about the configuration of your Spot Fleet. dsfrrsSpotFleetRequestConfigs :: Lens' DescribeSpotFleetRequestsResponse [SpotFleetRequestConfig] -dsfrrsSpotFleetRequestConfigs = lens _dsfrrsSpotFleetRequestConfigs (\ s a -> s{_dsfrrsSpotFleetRequestConfigs = a}) . _Coerce; +dsfrrsSpotFleetRequestConfigs = lens _dsfrrsSpotFleetRequestConfigs (\ s a -> s{_dsfrrsSpotFleetRequestConfigs = a}) . _Coerce instance NFData DescribeSpotFleetRequestsResponse where 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 @@ -12,18 +12,18 @@ -- | -- Module : Network.AWS.EC2.DescribeSpotInstanceRequests --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes the Spot instance requests that belong to your account. Spot instances are instances that Amazon EC2 launches when the bid price that you specify exceeds the current Spot price. Amazon EC2 periodically sets the Spot price based on available Spot instance capacity and current Spot instance requests. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Describes the Spot Instance requests that belong to your account. Spot Instances are instances that Amazon EC2 launches when the Spot price that you specify exceeds the current Spot price. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . -- -- --- You can use @DescribeSpotInstanceRequests@ to find a running Spot instance by examining the response. If the status of the Spot instance is @fulfilled@ , the instance ID appears in the response and contains the identifier of the instance. Alternatively, you can use 'DescribeInstances' with a filter to look for instances where the instance lifecycle is @spot@ . +-- You can use @DescribeSpotInstanceRequests@ to find a running Spot Instance by examining the response. If the status of the Spot Instance is @fulfilled@ , the instance ID appears in the response and contains the identifier of the instance. Alternatively, you can use 'DescribeInstances' with a filter to look for instances where the instance lifecycle is @spot@ . -- --- Spot instance requests are deleted 4 hours after they are canceled and their instances are terminated. +-- Spot Instance requests are deleted four hours after they are canceled and their instances are terminated. -- module Network.AWS.EC2.DescribeSpotInstanceRequests ( @@ -66,32 +66,32 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsirFilters' - One or more filters. * @availability-zone-group@ - The Availability Zone group. * @create-time@ - The time stamp when the Spot instance request was created. * @fault-code@ - The fault code related to the request. * @fault-message@ - The fault message related to the request. * @instance-id@ - The ID of the instance that fulfilled the request. * @launch-group@ - The Spot instance launch group. * @launch.block-device-mapping.delete-on-termination@ - Indicates whether the EBS volume is deleted on instance termination. * @launch.block-device-mapping.device-name@ - The device name for the volume in the block device mapping (for example, @/dev/sdh@ or @xvdh@ ). * @launch.block-device-mapping.snapshot-id@ - The ID of the snapshot for the EBS volume. * @launch.block-device-mapping.volume-size@ - The size of the EBS volume, in GiB. * @launch.block-device-mapping.volume-type@ - The type of EBS volume: @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic. * @launch.group-id@ - The security group for the instance. * @launch.image-id@ - The ID of the AMI. * @launch.instance-type@ - The type of instance (for example, @m3.medium@ ). * @launch.kernel-id@ - The kernel ID. * @launch.key-name@ - The name of the key pair the instance launched with. * @launch.monitoring-enabled@ - Whether detailed monitoring is enabled for the Spot instance. * @launch.ramdisk-id@ - The RAM disk ID. * @launched-availability-zone@ - The Availability Zone in which the bid is launched. * @network-interface.addresses.primary@ - Indicates whether the IP address is the primary private IP address. * @network-interface.delete-on-termination@ - Indicates whether the network interface is deleted when the instance is terminated. * @network-interface.description@ - A description of the network interface. * @network-interface.device-index@ - The index of the device for the network interface attachment on the instance. * @network-interface.group-id@ - The ID of the security group associated with the network interface. * @network-interface.network-interface-id@ - The ID of the network interface. * @network-interface.private-ip-address@ - The primary private IP address of the network interface. * @network-interface.subnet-id@ - The ID of the subnet for the instance. * @product-description@ - The product description associated with the instance (@Linux/UNIX@ | @Windows@ ). * @spot-instance-request-id@ - The Spot instance request ID. * @spot-price@ - The maximum hourly price for any Spot instance launched to fulfill the request. * @state@ - The state of the Spot instance request (@open@ | @active@ | @closed@ | @cancelled@ | @failed@ ). Spot bid status information can help you track your Amazon EC2 Spot instance requests. For more information, see in the Amazon Elastic Compute Cloud User Guide. * @status-code@ - The short code describing the most recent evaluation of your Spot instance request. * @status-message@ - The message explaining the status of the Spot instance request. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @type@ - The type of Spot instance request (@one-time@ | @persistent@ ). * @valid-from@ - The start date of the request. * @valid-until@ - The end date of the request. +-- * 'dsirFilters' - One or more filters. * @availability-zone-group@ - The Availability Zone group. * @create-time@ - The time stamp when the Spot Instance request was created. * @fault-code@ - The fault code related to the request. * @fault-message@ - The fault message related to the request. * @instance-id@ - The ID of the instance that fulfilled the request. * @launch-group@ - The Spot Instance launch group. * @launch.block-device-mapping.delete-on-termination@ - Indicates whether the EBS volume is deleted on instance termination. * @launch.block-device-mapping.device-name@ - The device name for the volume in the block device mapping (for example, @/dev/sdh@ or @xvdh@ ). * @launch.block-device-mapping.snapshot-id@ - The ID of the snapshot for the EBS volume. * @launch.block-device-mapping.volume-size@ - The size of the EBS volume, in GiB. * @launch.block-device-mapping.volume-type@ - The type of EBS volume: @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic. * @launch.group-id@ - The ID of the security group for the instance. * @launch.group-name@ - The name of the security group for the instance. * @launch.image-id@ - The ID of the AMI. * @launch.instance-type@ - The type of instance (for example, @m3.medium@ ). * @launch.kernel-id@ - The kernel ID. * @launch.key-name@ - The name of the key pair the instance launched with. * @launch.monitoring-enabled@ - Whether detailed monitoring is enabled for the Spot Instance. * @launch.ramdisk-id@ - The RAM disk ID. * @launched-availability-zone@ - The Availability Zone in which the request is launched. * @network-interface.addresses.primary@ - Indicates whether the IP address is the primary private IP address. * @network-interface.delete-on-termination@ - Indicates whether the network interface is deleted when the instance is terminated. * @network-interface.description@ - A description of the network interface. * @network-interface.device-index@ - The index of the device for the network interface attachment on the instance. * @network-interface.group-id@ - The ID of the security group associated with the network interface. * @network-interface.network-interface-id@ - The ID of the network interface. * @network-interface.private-ip-address@ - The primary private IP address of the network interface. * @network-interface.subnet-id@ - The ID of the subnet for the instance. * @product-description@ - The product description associated with the instance (@Linux/UNIX@ | @Windows@ ). * @spot-instance-request-id@ - The Spot Instance request ID. * @spot-price@ - The maximum hourly price for any Spot Instance launched to fulfill the request. * @state@ - The state of the Spot Instance request (@open@ | @active@ | @closed@ | @cancelled@ | @failed@ ). Spot request status information can help you track your Amazon EC2 Spot Instance requests. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . * @status-code@ - The short code describing the most recent evaluation of your Spot Instance request. * @status-message@ - The message explaining the status of the Spot Instance request. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @type@ - The type of Spot Instance request (@one-time@ | @persistent@ ). * @valid-from@ - The start date of the request. * @valid-until@ - The end date of the request. -- --- * 'dsirSpotInstanceRequestIds' - One or more Spot instance request IDs. +-- * 'dsirSpotInstanceRequestIds' - One or more Spot Instance request IDs. -- -- * 'dsirDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . describeSpotInstanceRequests :: DescribeSpotInstanceRequests describeSpotInstanceRequests = DescribeSpotInstanceRequests' - { _dsirFilters = Nothing - , _dsirSpotInstanceRequestIds = Nothing - , _dsirDryRun = Nothing - } + { _dsirFilters = Nothing + , _dsirSpotInstanceRequestIds = Nothing + , _dsirDryRun = Nothing + } --- | One or more filters. * @availability-zone-group@ - The Availability Zone group. * @create-time@ - The time stamp when the Spot instance request was created. * @fault-code@ - The fault code related to the request. * @fault-message@ - The fault message related to the request. * @instance-id@ - The ID of the instance that fulfilled the request. * @launch-group@ - The Spot instance launch group. * @launch.block-device-mapping.delete-on-termination@ - Indicates whether the EBS volume is deleted on instance termination. * @launch.block-device-mapping.device-name@ - The device name for the volume in the block device mapping (for example, @/dev/sdh@ or @xvdh@ ). * @launch.block-device-mapping.snapshot-id@ - The ID of the snapshot for the EBS volume. * @launch.block-device-mapping.volume-size@ - The size of the EBS volume, in GiB. * @launch.block-device-mapping.volume-type@ - The type of EBS volume: @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic. * @launch.group-id@ - The security group for the instance. * @launch.image-id@ - The ID of the AMI. * @launch.instance-type@ - The type of instance (for example, @m3.medium@ ). * @launch.kernel-id@ - The kernel ID. * @launch.key-name@ - The name of the key pair the instance launched with. * @launch.monitoring-enabled@ - Whether detailed monitoring is enabled for the Spot instance. * @launch.ramdisk-id@ - The RAM disk ID. * @launched-availability-zone@ - The Availability Zone in which the bid is launched. * @network-interface.addresses.primary@ - Indicates whether the IP address is the primary private IP address. * @network-interface.delete-on-termination@ - Indicates whether the network interface is deleted when the instance is terminated. * @network-interface.description@ - A description of the network interface. * @network-interface.device-index@ - The index of the device for the network interface attachment on the instance. * @network-interface.group-id@ - The ID of the security group associated with the network interface. * @network-interface.network-interface-id@ - The ID of the network interface. * @network-interface.private-ip-address@ - The primary private IP address of the network interface. * @network-interface.subnet-id@ - The ID of the subnet for the instance. * @product-description@ - The product description associated with the instance (@Linux/UNIX@ | @Windows@ ). * @spot-instance-request-id@ - The Spot instance request ID. * @spot-price@ - The maximum hourly price for any Spot instance launched to fulfill the request. * @state@ - The state of the Spot instance request (@open@ | @active@ | @closed@ | @cancelled@ | @failed@ ). Spot bid status information can help you track your Amazon EC2 Spot instance requests. For more information, see in the Amazon Elastic Compute Cloud User Guide. * @status-code@ - The short code describing the most recent evaluation of your Spot instance request. * @status-message@ - The message explaining the status of the Spot instance request. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @type@ - The type of Spot instance request (@one-time@ | @persistent@ ). * @valid-from@ - The start date of the request. * @valid-until@ - The end date of the request. +-- | One or more filters. * @availability-zone-group@ - The Availability Zone group. * @create-time@ - The time stamp when the Spot Instance request was created. * @fault-code@ - The fault code related to the request. * @fault-message@ - The fault message related to the request. * @instance-id@ - The ID of the instance that fulfilled the request. * @launch-group@ - The Spot Instance launch group. * @launch.block-device-mapping.delete-on-termination@ - Indicates whether the EBS volume is deleted on instance termination. * @launch.block-device-mapping.device-name@ - The device name for the volume in the block device mapping (for example, @/dev/sdh@ or @xvdh@ ). * @launch.block-device-mapping.snapshot-id@ - The ID of the snapshot for the EBS volume. * @launch.block-device-mapping.volume-size@ - The size of the EBS volume, in GiB. * @launch.block-device-mapping.volume-type@ - The type of EBS volume: @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic. * @launch.group-id@ - The ID of the security group for the instance. * @launch.group-name@ - The name of the security group for the instance. * @launch.image-id@ - The ID of the AMI. * @launch.instance-type@ - The type of instance (for example, @m3.medium@ ). * @launch.kernel-id@ - The kernel ID. * @launch.key-name@ - The name of the key pair the instance launched with. * @launch.monitoring-enabled@ - Whether detailed monitoring is enabled for the Spot Instance. * @launch.ramdisk-id@ - The RAM disk ID. * @launched-availability-zone@ - The Availability Zone in which the request is launched. * @network-interface.addresses.primary@ - Indicates whether the IP address is the primary private IP address. * @network-interface.delete-on-termination@ - Indicates whether the network interface is deleted when the instance is terminated. * @network-interface.description@ - A description of the network interface. * @network-interface.device-index@ - The index of the device for the network interface attachment on the instance. * @network-interface.group-id@ - The ID of the security group associated with the network interface. * @network-interface.network-interface-id@ - The ID of the network interface. * @network-interface.private-ip-address@ - The primary private IP address of the network interface. * @network-interface.subnet-id@ - The ID of the subnet for the instance. * @product-description@ - The product description associated with the instance (@Linux/UNIX@ | @Windows@ ). * @spot-instance-request-id@ - The Spot Instance request ID. * @spot-price@ - The maximum hourly price for any Spot Instance launched to fulfill the request. * @state@ - The state of the Spot Instance request (@open@ | @active@ | @closed@ | @cancelled@ | @failed@ ). Spot request status information can help you track your Amazon EC2 Spot Instance requests. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . * @status-code@ - The short code describing the most recent evaluation of your Spot Instance request. * @status-message@ - The message explaining the status of the Spot Instance request. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @type@ - The type of Spot Instance request (@one-time@ | @persistent@ ). * @valid-from@ - The start date of the request. * @valid-until@ - The end date of the request. dsirFilters :: Lens' DescribeSpotInstanceRequests [Filter] -dsirFilters = lens _dsirFilters (\ s a -> s{_dsirFilters = a}) . _Default . _Coerce; +dsirFilters = lens _dsirFilters (\ s a -> s{_dsirFilters = a}) . _Default . _Coerce --- | One or more Spot instance request IDs. +-- | One or more Spot Instance request IDs. dsirSpotInstanceRequestIds :: Lens' DescribeSpotInstanceRequests [Text] -dsirSpotInstanceRequestIds = lens _dsirSpotInstanceRequestIds (\ s a -> s{_dsirSpotInstanceRequestIds = a}) . _Default . _Coerce; +dsirSpotInstanceRequestIds = lens _dsirSpotInstanceRequestIds (\ s a -> s{_dsirSpotInstanceRequestIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsirDryRun :: Lens' DescribeSpotInstanceRequests (Maybe Bool) -dsirDryRun = lens _dsirDryRun (\ s a -> s{_dsirDryRun = a}); +dsirDryRun = lens _dsirDryRun (\ s a -> s{_dsirDryRun = a}) instance AWSRequest DescribeSpotInstanceRequests where @@ -143,7 +143,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsirrsSpotInstanceRequests' - One or more Spot instance requests. +-- * 'dsirrsSpotInstanceRequests' - One or more Spot Instance requests. -- -- * 'dsirrsResponseStatus' - -- | The response status code. describeSpotInstanceRequestsResponse @@ -151,18 +151,18 @@ -> DescribeSpotInstanceRequestsResponse describeSpotInstanceRequestsResponse pResponseStatus_ = DescribeSpotInstanceRequestsResponse' - { _dsirrsSpotInstanceRequests = Nothing - , _dsirrsResponseStatus = pResponseStatus_ - } + { _dsirrsSpotInstanceRequests = Nothing + , _dsirrsResponseStatus = pResponseStatus_ + } --- | One or more Spot instance requests. +-- | One or more Spot Instance requests. dsirrsSpotInstanceRequests :: Lens' DescribeSpotInstanceRequestsResponse [SpotInstanceRequest] -dsirrsSpotInstanceRequests = lens _dsirrsSpotInstanceRequests (\ s a -> s{_dsirrsSpotInstanceRequests = a}) . _Default . _Coerce; +dsirrsSpotInstanceRequests = lens _dsirrsSpotInstanceRequests (\ s a -> s{_dsirrsSpotInstanceRequests = a}) . _Default . _Coerce -- | -- | The response status code. dsirrsResponseStatus :: Lens' DescribeSpotInstanceRequestsResponse Int -dsirrsResponseStatus = lens _dsirrsResponseStatus (\ s a -> s{_dsirrsResponseStatus = a}); +dsirrsResponseStatus = lens _dsirrsResponseStatus (\ s a -> s{_dsirrsResponseStatus = a}) instance NFData DescribeSpotInstanceRequestsResponse where 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DescribeSpotPriceHistory --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes the Spot price history. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Describes the Spot price history. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . -- -- -- When you specify a start and end time, this operation returns the prices of the instance types within the time range that you specified and the time when the price changed. The price is valid within the time period that you specified; the response merely indicates the last time that the price changed. @@ -80,11 +80,11 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsphInstanceTypes' - Filters the results by the specified instance types. Note that T2 and HS1 instance types are not supported. +-- * 'dsphInstanceTypes' - Filters the results by the specified instance types. -- -- * 'dsphStartTime' - The date and time, up to the past 90 days, from which to start retrieving the price history data, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). -- --- * 'dsphFilters' - One or more filters. * @availability-zone@ - The Availability Zone for which prices should be returned. * @instance-type@ - The type of instance (for example, @m3.medium@ ). * @product-description@ - The product description for the Spot price (@Linux/UNIX@ | @SUSE Linux@ | @Windows@ | @Linux/UNIX (Amazon VPC)@ | @SUSE Linux (Amazon VPC)@ | @Windows (Amazon VPC)@ ). * @spot-price@ - The Spot price. The value must match exactly (or use wildcards; greater than or less than comparison is not supported). * @timestamp@ - The timestamp of the Spot price history, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). You can use wildcards (* and ?). Greater than or less than comparison is not supported. +-- * 'dsphFilters' - One or more filters. * @availability-zone@ - The Availability Zone for which prices should be returned. * @instance-type@ - The type of instance (for example, @m3.medium@ ). * @product-description@ - The product description for the Spot price (@Linux/UNIX@ | @SUSE Linux@ | @Windows@ | @Linux/UNIX (Amazon VPC)@ | @SUSE Linux (Amazon VPC)@ | @Windows (Amazon VPC)@ ). * @spot-price@ - The Spot price. The value must match exactly (or use wildcards; greater than or less than comparison is not supported). * @timestamp@ - The time stamp of the Spot price history, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). You can use wildcards (* and ?). Greater than or less than comparison is not supported. -- -- * 'dsphNextToken' - The token for the next set of results. -- @@ -101,53 +101,53 @@ :: DescribeSpotPriceHistory describeSpotPriceHistory = DescribeSpotPriceHistory' - { _dsphInstanceTypes = Nothing - , _dsphStartTime = Nothing - , _dsphFilters = Nothing - , _dsphNextToken = Nothing - , _dsphAvailabilityZone = Nothing - , _dsphEndTime = Nothing - , _dsphProductDescriptions = Nothing - , _dsphDryRun = Nothing - , _dsphMaxResults = Nothing - } + { _dsphInstanceTypes = Nothing + , _dsphStartTime = Nothing + , _dsphFilters = Nothing + , _dsphNextToken = Nothing + , _dsphAvailabilityZone = Nothing + , _dsphEndTime = Nothing + , _dsphProductDescriptions = Nothing + , _dsphDryRun = Nothing + , _dsphMaxResults = Nothing + } --- | Filters the results by the specified instance types. Note that T2 and HS1 instance types are not supported. +-- | Filters the results by the specified instance types. dsphInstanceTypes :: Lens' DescribeSpotPriceHistory [InstanceType] -dsphInstanceTypes = lens _dsphInstanceTypes (\ s a -> s{_dsphInstanceTypes = a}) . _Default . _Coerce; +dsphInstanceTypes = lens _dsphInstanceTypes (\ s a -> s{_dsphInstanceTypes = a}) . _Default . _Coerce -- | The date and time, up to the past 90 days, from which to start retrieving the price history data, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). dsphStartTime :: Lens' DescribeSpotPriceHistory (Maybe UTCTime) -dsphStartTime = lens _dsphStartTime (\ s a -> s{_dsphStartTime = a}) . mapping _Time; +dsphStartTime = lens _dsphStartTime (\ s a -> s{_dsphStartTime = a}) . mapping _Time --- | One or more filters. * @availability-zone@ - The Availability Zone for which prices should be returned. * @instance-type@ - The type of instance (for example, @m3.medium@ ). * @product-description@ - The product description for the Spot price (@Linux/UNIX@ | @SUSE Linux@ | @Windows@ | @Linux/UNIX (Amazon VPC)@ | @SUSE Linux (Amazon VPC)@ | @Windows (Amazon VPC)@ ). * @spot-price@ - The Spot price. The value must match exactly (or use wildcards; greater than or less than comparison is not supported). * @timestamp@ - The timestamp of the Spot price history, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). You can use wildcards (* and ?). Greater than or less than comparison is not supported. +-- | One or more filters. * @availability-zone@ - The Availability Zone for which prices should be returned. * @instance-type@ - The type of instance (for example, @m3.medium@ ). * @product-description@ - The product description for the Spot price (@Linux/UNIX@ | @SUSE Linux@ | @Windows@ | @Linux/UNIX (Amazon VPC)@ | @SUSE Linux (Amazon VPC)@ | @Windows (Amazon VPC)@ ). * @spot-price@ - The Spot price. The value must match exactly (or use wildcards; greater than or less than comparison is not supported). * @timestamp@ - The time stamp of the Spot price history, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). You can use wildcards (* and ?). Greater than or less than comparison is not supported. dsphFilters :: Lens' DescribeSpotPriceHistory [Filter] -dsphFilters = lens _dsphFilters (\ s a -> s{_dsphFilters = a}) . _Default . _Coerce; +dsphFilters = lens _dsphFilters (\ s a -> s{_dsphFilters = a}) . _Default . _Coerce -- | The token for the next set of results. dsphNextToken :: Lens' DescribeSpotPriceHistory (Maybe Text) -dsphNextToken = lens _dsphNextToken (\ s a -> s{_dsphNextToken = a}); +dsphNextToken = lens _dsphNextToken (\ s a -> s{_dsphNextToken = a}) -- | Filters the results by the specified Availability Zone. dsphAvailabilityZone :: Lens' DescribeSpotPriceHistory (Maybe Text) -dsphAvailabilityZone = lens _dsphAvailabilityZone (\ s a -> s{_dsphAvailabilityZone = a}); +dsphAvailabilityZone = lens _dsphAvailabilityZone (\ s a -> s{_dsphAvailabilityZone = a}) -- | The date and time, up to the current date, from which to stop retrieving the price history data, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). dsphEndTime :: Lens' DescribeSpotPriceHistory (Maybe UTCTime) -dsphEndTime = lens _dsphEndTime (\ s a -> s{_dsphEndTime = a}) . mapping _Time; +dsphEndTime = lens _dsphEndTime (\ s a -> s{_dsphEndTime = a}) . mapping _Time -- | Filters the results by the specified basic product descriptions. dsphProductDescriptions :: Lens' DescribeSpotPriceHistory [Text] -dsphProductDescriptions = lens _dsphProductDescriptions (\ s a -> s{_dsphProductDescriptions = a}) . _Default . _Coerce; +dsphProductDescriptions = lens _dsphProductDescriptions (\ s a -> s{_dsphProductDescriptions = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsphDryRun :: Lens' DescribeSpotPriceHistory (Maybe Bool) -dsphDryRun = lens _dsphDryRun (\ s a -> s{_dsphDryRun = a}); +dsphDryRun = lens _dsphDryRun (\ s a -> s{_dsphDryRun = a}) -- | The maximum number of results to return in a single call. Specify a value between 1 and 1000. The default value is 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. dsphMaxResults :: Lens' DescribeSpotPriceHistory (Maybe Int) -dsphMaxResults = lens _dsphMaxResults (\ s a -> s{_dsphMaxResults = a}); +dsphMaxResults = lens _dsphMaxResults (\ s a -> s{_dsphMaxResults = a}) instance AWSPager DescribeSpotPriceHistory where page rq rs @@ -214,7 +214,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dsphrsNextToken' - The token required to retrieve the next set of results. This value is @null@ when there are no more results to return. +-- * 'dsphrsNextToken' - The token required to retrieve the next set of results. This value is null or an empty string when there are no more results to return. -- -- * 'dsphrsSpotPriceHistory' - The historical Spot prices. -- @@ -224,23 +224,23 @@ -> DescribeSpotPriceHistoryResponse describeSpotPriceHistoryResponse pResponseStatus_ = DescribeSpotPriceHistoryResponse' - { _dsphrsNextToken = Nothing - , _dsphrsSpotPriceHistory = Nothing - , _dsphrsResponseStatus = pResponseStatus_ - } + { _dsphrsNextToken = Nothing + , _dsphrsSpotPriceHistory = Nothing + , _dsphrsResponseStatus = pResponseStatus_ + } --- | The token required to retrieve the next set of results. This value is @null@ when there are no more results to return. +-- | The token required to retrieve the next set of results. This value is null or an empty string when there are no more results to return. dsphrsNextToken :: Lens' DescribeSpotPriceHistoryResponse (Maybe Text) -dsphrsNextToken = lens _dsphrsNextToken (\ s a -> s{_dsphrsNextToken = a}); +dsphrsNextToken = lens _dsphrsNextToken (\ s a -> s{_dsphrsNextToken = a}) -- | The historical Spot prices. dsphrsSpotPriceHistory :: Lens' DescribeSpotPriceHistoryResponse [SpotPrice] -dsphrsSpotPriceHistory = lens _dsphrsSpotPriceHistory (\ s a -> s{_dsphrsSpotPriceHistory = a}) . _Default . _Coerce; +dsphrsSpotPriceHistory = lens _dsphrsSpotPriceHistory (\ s a -> s{_dsphrsSpotPriceHistory = a}) . _Default . _Coerce -- | -- | The response status code. dsphrsResponseStatus :: Lens' DescribeSpotPriceHistoryResponse Int -dsphrsResponseStatus = lens _dsphrsResponseStatus (\ s a -> s{_dsphrsResponseStatus = a}); +dsphrsResponseStatus = lens _dsphrsResponseStatus (\ s a -> s{_dsphrsResponseStatus = a}) instance NFData DescribeSpotPriceHistoryResponse where diff --git a/gen/Network/AWS/EC2/DescribeStaleSecurityGroups.hs b/gen/Network/AWS/EC2/DescribeStaleSecurityGroups.hs --- a/gen/Network/AWS/EC2/DescribeStaleSecurityGroups.hs +++ b/gen/Network/AWS/EC2/DescribeStaleSecurityGroups.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeStaleSecurityGroups --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,28 +73,28 @@ -> DescribeStaleSecurityGroups describeStaleSecurityGroups pVPCId_ = DescribeStaleSecurityGroups' - { _dssgNextToken = Nothing - , _dssgDryRun = Nothing - , _dssgMaxResults = Nothing - , _dssgVPCId = pVPCId_ - } + { _dssgNextToken = Nothing + , _dssgDryRun = Nothing + , _dssgMaxResults = Nothing + , _dssgVPCId = pVPCId_ + } -- | The token for the next set of items to return. (You received this token from a prior call.) dssgNextToken :: Lens' DescribeStaleSecurityGroups (Maybe Text) -dssgNextToken = lens _dssgNextToken (\ s a -> s{_dssgNextToken = a}); +dssgNextToken = lens _dssgNextToken (\ s a -> s{_dssgNextToken = a}) -- | Checks whether you have the required permissions for the operation, without actually making the request, and provides an error response. If you have the required permissions, the error response is DryRunOperation. Otherwise, it is UnauthorizedOperation. dssgDryRun :: Lens' DescribeStaleSecurityGroups (Maybe Bool) -dssgDryRun = lens _dssgDryRun (\ s a -> s{_dssgDryRun = a}); +dssgDryRun = lens _dssgDryRun (\ s a -> s{_dssgDryRun = a}) -- | The maximum number of items to return for this request. The request returns a token that you can specify in a subsequent call to get the next set of results. dssgMaxResults :: Lens' DescribeStaleSecurityGroups (Maybe Natural) -dssgMaxResults = lens _dssgMaxResults (\ s a -> s{_dssgMaxResults = a}) . mapping _Nat; +dssgMaxResults = lens _dssgMaxResults (\ s a -> s{_dssgMaxResults = a}) . mapping _Nat -- | The ID of the VPC. dssgVPCId :: Lens' DescribeStaleSecurityGroups Text -dssgVPCId = lens _dssgVPCId (\ s a -> s{_dssgVPCId = a}); +dssgVPCId = lens _dssgVPCId (\ s a -> s{_dssgVPCId = a}) instance AWSRequest DescribeStaleSecurityGroups where type Rs DescribeStaleSecurityGroups = @@ -152,23 +152,23 @@ -> DescribeStaleSecurityGroupsResponse describeStaleSecurityGroupsResponse pResponseStatus_ = DescribeStaleSecurityGroupsResponse' - { _dssgrsStaleSecurityGroupSet = Nothing - , _dssgrsNextToken = Nothing - , _dssgrsResponseStatus = pResponseStatus_ - } + { _dssgrsStaleSecurityGroupSet = Nothing + , _dssgrsNextToken = Nothing + , _dssgrsResponseStatus = pResponseStatus_ + } -- | Information about the stale security groups. dssgrsStaleSecurityGroupSet :: Lens' DescribeStaleSecurityGroupsResponse [StaleSecurityGroup] -dssgrsStaleSecurityGroupSet = lens _dssgrsStaleSecurityGroupSet (\ s a -> s{_dssgrsStaleSecurityGroupSet = a}) . _Default . _Coerce; +dssgrsStaleSecurityGroupSet = lens _dssgrsStaleSecurityGroupSet (\ s a -> s{_dssgrsStaleSecurityGroupSet = a}) . _Default . _Coerce -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dssgrsNextToken :: Lens' DescribeStaleSecurityGroupsResponse (Maybe Text) -dssgrsNextToken = lens _dssgrsNextToken (\ s a -> s{_dssgrsNextToken = a}); +dssgrsNextToken = lens _dssgrsNextToken (\ s a -> s{_dssgrsNextToken = a}) -- | -- | The response status code. dssgrsResponseStatus :: Lens' DescribeStaleSecurityGroupsResponse Int -dssgrsResponseStatus = lens _dssgrsResponseStatus (\ s a -> s{_dssgrsResponseStatus = a}); +dssgrsResponseStatus = lens _dssgrsResponseStatus (\ s a -> s{_dssgrsResponseStatus = a}) instance NFData DescribeStaleSecurityGroupsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeSubnets --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,20 @@ :: DescribeSubnets describeSubnets = DescribeSubnets' - {_dsSubnetIds = Nothing, _dsFilters = Nothing, _dsDryRun = Nothing} + {_dsSubnetIds = Nothing, _dsFilters = Nothing, _dsDryRun = Nothing} -- | One or more subnet IDs. Default: Describes all your subnets. dsSubnetIds :: Lens' DescribeSubnets [Text] -dsSubnetIds = lens _dsSubnetIds (\ s a -> s{_dsSubnetIds = a}) . _Default . _Coerce; +dsSubnetIds = lens _dsSubnetIds (\ s a -> s{_dsSubnetIds = a}) . _Default . _Coerce -- | One or more filters. * @availabilityZone@ - The Availability Zone for the subnet. You can also use @availability-zone@ as the filter name. * @available-ip-address-count@ - The number of IPv4 addresses in the subnet that are available. * @cidrBlock@ - The IPv4 CIDR block of the subnet. The CIDR block you specify must exactly match the subnet's CIDR block for information to be returned for the subnet. You can also use @cidr@ or @cidr-block@ as the filter names. * @defaultForAz@ - Indicates whether this is the default subnet for the Availability Zone. You can also use @default-for-az@ as the filter name. * @ipv6-cidr-block-association.ipv6-cidr-block@ - An IPv6 CIDR block associated with the subnet. * @ipv6-cidr-block-association.association-id@ - An association ID for an IPv6 CIDR block associated with the subnet. * @ipv6-cidr-block-association.state@ - The state of an IPv6 CIDR block associated with the subnet. * @state@ - The state of the subnet (@pending@ | @available@ ). * @subnet-id@ - The ID of the subnet. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-id@ - The ID of the VPC for the subnet. dsFilters :: Lens' DescribeSubnets [Filter] -dsFilters = lens _dsFilters (\ s a -> s{_dsFilters = a}) . _Default . _Coerce; +dsFilters = lens _dsFilters (\ s a -> s{_dsFilters = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dsDryRun :: Lens' DescribeSubnets (Maybe Bool) -dsDryRun = lens _dsDryRun (\ s a -> s{_dsDryRun = a}); +dsDryRun = lens _dsDryRun (\ s a -> s{_dsDryRun = a}) instance AWSRequest DescribeSubnets where type Rs DescribeSubnets = DescribeSubnetsResponse @@ -141,15 +141,15 @@ -> DescribeSubnetsResponse describeSubnetsResponse pResponseStatus_ = DescribeSubnetsResponse' - {_dsrsSubnets = Nothing, _dsrsResponseStatus = pResponseStatus_} + {_dsrsSubnets = Nothing, _dsrsResponseStatus = pResponseStatus_} -- | Information about one or more subnets. dsrsSubnets :: Lens' DescribeSubnetsResponse [Subnet] -dsrsSubnets = lens _dsrsSubnets (\ s a -> s{_dsrsSubnets = a}) . _Default . _Coerce; +dsrsSubnets = lens _dsrsSubnets (\ s a -> s{_dsrsSubnets = a}) . _Default . _Coerce -- | -- | The response status code. dsrsResponseStatus :: Lens' DescribeSubnetsResponse Int -dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}); +dsrsResponseStatus = lens _dsrsResponseStatus (\ s a -> s{_dsrsResponseStatus = a}) instance NFData DescribeSubnetsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeTags --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -70,7 +70,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dtFilters' - One or more filters. * @key@ - The tag key. * @resource-id@ - The resource ID. * @resource-type@ - The resource type (@customer-gateway@ | @dhcp-options@ | @image@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-interface@ | @reserved-instances@ | @route-table@ | @security-group@ | @snapshot@ | @spot-instances-request@ | @subnet@ | @volume@ | @vpc@ | @vpn-connection@ | @vpn-gateway@ ). * @value@ - The tag value. +-- * 'dtFilters' - One or more filters. * @key@ - The tag key. * @resource-id@ - The resource ID. * @resource-type@ - The resource type (@customer-gateway@ | @dhcp-options@ | @elastic-ip@ | @fpga-image@ | @image@ | @instance@ | @internet-gateway@ | @launch-template@ | @natgateway@ | @network-acl@ | @network-interface@ | @reserved-instances@ | @route-table@ | @security-group@ | @snapshot@ | @spot-instances-request@ | @subnet@ | @volume@ | @vpc@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ ). * @value@ - The tag value. -- -- * 'dtNextToken' - The token to retrieve the next page of results. -- @@ -81,28 +81,28 @@ :: DescribeTags describeTags = DescribeTags' - { _dtFilters = Nothing - , _dtNextToken = Nothing - , _dtDryRun = Nothing - , _dtMaxResults = Nothing - } + { _dtFilters = Nothing + , _dtNextToken = Nothing + , _dtDryRun = Nothing + , _dtMaxResults = Nothing + } --- | One or more filters. * @key@ - The tag key. * @resource-id@ - The resource ID. * @resource-type@ - The resource type (@customer-gateway@ | @dhcp-options@ | @image@ | @instance@ | @internet-gateway@ | @network-acl@ | @network-interface@ | @reserved-instances@ | @route-table@ | @security-group@ | @snapshot@ | @spot-instances-request@ | @subnet@ | @volume@ | @vpc@ | @vpn-connection@ | @vpn-gateway@ ). * @value@ - The tag value. +-- | One or more filters. * @key@ - The tag key. * @resource-id@ - The resource ID. * @resource-type@ - The resource type (@customer-gateway@ | @dhcp-options@ | @elastic-ip@ | @fpga-image@ | @image@ | @instance@ | @internet-gateway@ | @launch-template@ | @natgateway@ | @network-acl@ | @network-interface@ | @reserved-instances@ | @route-table@ | @security-group@ | @snapshot@ | @spot-instances-request@ | @subnet@ | @volume@ | @vpc@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ ). * @value@ - The tag value. dtFilters :: Lens' DescribeTags [Filter] -dtFilters = lens _dtFilters (\ s a -> s{_dtFilters = a}) . _Default . _Coerce; +dtFilters = lens _dtFilters (\ s a -> s{_dtFilters = a}) . _Default . _Coerce -- | The token to retrieve the next page of results. dtNextToken :: Lens' DescribeTags (Maybe Text) -dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a}); +dtNextToken = lens _dtNextToken (\ s a -> s{_dtNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dtDryRun :: Lens' DescribeTags (Maybe Bool) -dtDryRun = lens _dtDryRun (\ s a -> s{_dtDryRun = a}); +dtDryRun = lens _dtDryRun (\ s a -> s{_dtDryRun = a}) -- | The maximum number of results to return in a single call. This value can be between 5 and 1000. To retrieve the remaining results, make another call with the returned @NextToken@ value. dtMaxResults :: Lens' DescribeTags (Maybe Int) -dtMaxResults = lens _dtMaxResults (\ s a -> s{_dtMaxResults = a}); +dtMaxResults = lens _dtMaxResults (\ s a -> s{_dtMaxResults = a}) instance AWSPager DescribeTags where page rq rs @@ -168,22 +168,22 @@ -> DescribeTagsResponse describeTagsResponse pResponseStatus_ = DescribeTagsResponse' - { _dtrsNextToken = Nothing - , _dtrsTags = Nothing - , _dtrsResponseStatus = pResponseStatus_ - } + { _dtrsNextToken = Nothing + , _dtrsTags = Nothing + , _dtrsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return.. dtrsNextToken :: Lens' DescribeTagsResponse (Maybe Text) -dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a}); +dtrsNextToken = lens _dtrsNextToken (\ s a -> s{_dtrsNextToken = a}) -- | A list of tags. dtrsTags :: Lens' DescribeTagsResponse [TagDescription] -dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce; +dtrsTags = lens _dtrsTags (\ s a -> s{_dtrsTags = a}) . _Default . _Coerce -- | -- | The response status code. dtrsResponseStatus :: Lens' DescribeTagsResponse Int -dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}); +dtrsResponseStatus = lens _dtrsResponseStatus (\ s a -> s{_dtrsResponseStatus = a}) instance NFData DescribeTagsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPCAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,20 +75,23 @@ -> DescribeVPCAttribute describeVPCAttribute pAttribute_ pVPCId_ = DescribeVPCAttribute' - {_dvpcaDryRun = Nothing, _dvpcaAttribute = pAttribute_, _dvpcaVPCId = pVPCId_} + { _dvpcaDryRun = Nothing + , _dvpcaAttribute = pAttribute_ + , _dvpcaVPCId = pVPCId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvpcaDryRun :: Lens' DescribeVPCAttribute (Maybe Bool) -dvpcaDryRun = lens _dvpcaDryRun (\ s a -> s{_dvpcaDryRun = a}); +dvpcaDryRun = lens _dvpcaDryRun (\ s a -> s{_dvpcaDryRun = a}) -- | The VPC attribute. dvpcaAttribute :: Lens' DescribeVPCAttribute VPCAttributeName -dvpcaAttribute = lens _dvpcaAttribute (\ s a -> s{_dvpcaAttribute = a}); +dvpcaAttribute = lens _dvpcaAttribute (\ s a -> s{_dvpcaAttribute = a}) -- | The ID of the VPC. dvpcaVPCId :: Lens' DescribeVPCAttribute Text -dvpcaVPCId = lens _dvpcaVPCId (\ s a -> s{_dvpcaVPCId = a}); +dvpcaVPCId = lens _dvpcaVPCId (\ s a -> s{_dvpcaVPCId = a}) instance AWSRequest DescribeVPCAttribute where type Rs DescribeVPCAttribute = @@ -151,27 +154,27 @@ -> DescribeVPCAttributeResponse describeVPCAttributeResponse pResponseStatus_ = DescribeVPCAttributeResponse' - { _dvpcarsEnableDNSHostnames = Nothing - , _dvpcarsEnableDNSSupport = Nothing - , _dvpcarsVPCId = Nothing - , _dvpcarsResponseStatus = pResponseStatus_ - } + { _dvpcarsEnableDNSHostnames = Nothing + , _dvpcarsEnableDNSSupport = Nothing + , _dvpcarsVPCId = Nothing + , _dvpcarsResponseStatus = pResponseStatus_ + } -- | Indicates whether the instances launched in the VPC get DNS hostnames. If this attribute is @true@ , instances in the VPC get DNS hostnames; otherwise, they do not. dvpcarsEnableDNSHostnames :: Lens' DescribeVPCAttributeResponse (Maybe AttributeBooleanValue) -dvpcarsEnableDNSHostnames = lens _dvpcarsEnableDNSHostnames (\ s a -> s{_dvpcarsEnableDNSHostnames = a}); +dvpcarsEnableDNSHostnames = lens _dvpcarsEnableDNSHostnames (\ s a -> s{_dvpcarsEnableDNSHostnames = a}) -- | Indicates whether DNS resolution is enabled for the VPC. If this attribute is @true@ , the Amazon DNS server resolves DNS hostnames for your instances to their corresponding IP addresses; otherwise, it does not. dvpcarsEnableDNSSupport :: Lens' DescribeVPCAttributeResponse (Maybe AttributeBooleanValue) -dvpcarsEnableDNSSupport = lens _dvpcarsEnableDNSSupport (\ s a -> s{_dvpcarsEnableDNSSupport = a}); +dvpcarsEnableDNSSupport = lens _dvpcarsEnableDNSSupport (\ s a -> s{_dvpcarsEnableDNSSupport = a}) -- | The ID of the VPC. dvpcarsVPCId :: Lens' DescribeVPCAttributeResponse (Maybe Text) -dvpcarsVPCId = lens _dvpcarsVPCId (\ s a -> s{_dvpcarsVPCId = a}); +dvpcarsVPCId = lens _dvpcarsVPCId (\ s a -> s{_dvpcarsVPCId = a}) -- | -- | The response status code. dvpcarsResponseStatus :: Lens' DescribeVPCAttributeResponse Int -dvpcarsResponseStatus = lens _dvpcarsResponseStatus (\ s a -> s{_dvpcarsResponseStatus = a}); +dvpcarsResponseStatus = lens _dvpcarsResponseStatus (\ s a -> s{_dvpcarsResponseStatus = a}) instance NFData DescribeVPCAttributeResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPCClassicLink --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,20 +71,20 @@ :: DescribeVPCClassicLink describeVPCClassicLink = DescribeVPCClassicLink' - {_dvclFilters = Nothing, _dvclVPCIds = Nothing, _dvclDryRun = Nothing} + {_dvclFilters = Nothing, _dvclVPCIds = Nothing, _dvclDryRun = Nothing} -- | One or more filters. * @is-classic-link-enabled@ - Whether the VPC is enabled for ClassicLink (@true@ | @false@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. dvclFilters :: Lens' DescribeVPCClassicLink [Filter] -dvclFilters = lens _dvclFilters (\ s a -> s{_dvclFilters = a}) . _Default . _Coerce; +dvclFilters = lens _dvclFilters (\ s a -> s{_dvclFilters = a}) . _Default . _Coerce -- | One or more VPCs for which you want to describe the ClassicLink status. dvclVPCIds :: Lens' DescribeVPCClassicLink [Text] -dvclVPCIds = lens _dvclVPCIds (\ s a -> s{_dvclVPCIds = a}) . _Default . _Coerce; +dvclVPCIds = lens _dvclVPCIds (\ s a -> s{_dvclVPCIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvclDryRun :: Lens' DescribeVPCClassicLink (Maybe Bool) -dvclDryRun = lens _dvclDryRun (\ s a -> s{_dvclDryRun = a}); +dvclDryRun = lens _dvclDryRun (\ s a -> s{_dvclDryRun = a}) instance AWSRequest DescribeVPCClassicLink where type Rs DescribeVPCClassicLink = @@ -141,15 +141,15 @@ -> DescribeVPCClassicLinkResponse describeVPCClassicLinkResponse pResponseStatus_ = DescribeVPCClassicLinkResponse' - {_dvclrsVPCs = Nothing, _dvclrsResponseStatus = pResponseStatus_} + {_dvclrsVPCs = Nothing, _dvclrsResponseStatus = pResponseStatus_} -- | The ClassicLink status of one or more VPCs. dvclrsVPCs :: Lens' DescribeVPCClassicLinkResponse [VPCClassicLink] -dvclrsVPCs = lens _dvclrsVPCs (\ s a -> s{_dvclrsVPCs = a}) . _Default . _Coerce; +dvclrsVPCs = lens _dvclrsVPCs (\ s a -> s{_dvclrsVPCs = a}) . _Default . _Coerce -- | -- | The response status code. dvclrsResponseStatus :: Lens' DescribeVPCClassicLinkResponse Int -dvclrsResponseStatus = lens _dvclrsResponseStatus (\ s a -> s{_dvclrsResponseStatus = a}); +dvclrsResponseStatus = lens _dvclrsResponseStatus (\ s a -> s{_dvclrsResponseStatus = a}) instance NFData DescribeVPCClassicLinkResponse where diff --git a/gen/Network/AWS/EC2/DescribeVPCClassicLinkDNSSupport.hs b/gen/Network/AWS/EC2/DescribeVPCClassicLinkDNSSupport.hs --- a/gen/Network/AWS/EC2/DescribeVPCClassicLinkDNSSupport.hs +++ b/gen/Network/AWS/EC2/DescribeVPCClassicLinkDNSSupport.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPCClassicLinkDNSSupport --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,23 +72,23 @@ :: DescribeVPCClassicLinkDNSSupport describeVPCClassicLinkDNSSupport = DescribeVPCClassicLinkDNSSupport' - { _dvcldsNextToken = Nothing - , _dvcldsVPCIds = Nothing - , _dvcldsMaxResults = Nothing - } + { _dvcldsNextToken = Nothing + , _dvcldsVPCIds = Nothing + , _dvcldsMaxResults = Nothing + } -- | The token for the next set of items to return. (You received this token from a prior call.) dvcldsNextToken :: Lens' DescribeVPCClassicLinkDNSSupport (Maybe Text) -dvcldsNextToken = lens _dvcldsNextToken (\ s a -> s{_dvcldsNextToken = a}); +dvcldsNextToken = lens _dvcldsNextToken (\ s a -> s{_dvcldsNextToken = a}) -- | One or more VPC IDs. dvcldsVPCIds :: Lens' DescribeVPCClassicLinkDNSSupport [Text] -dvcldsVPCIds = lens _dvcldsVPCIds (\ s a -> s{_dvcldsVPCIds = a}) . _Default . _Coerce; +dvcldsVPCIds = lens _dvcldsVPCIds (\ s a -> s{_dvcldsVPCIds = a}) . _Default . _Coerce -- | The maximum number of items to return for this request. The request returns a token that you can specify in a subsequent call to get the next set of results. dvcldsMaxResults :: Lens' DescribeVPCClassicLinkDNSSupport (Maybe Natural) -dvcldsMaxResults = lens _dvcldsMaxResults (\ s a -> s{_dvcldsMaxResults = a}) . mapping _Nat; +dvcldsMaxResults = lens _dvcldsMaxResults (\ s a -> s{_dvcldsMaxResults = a}) . mapping _Nat instance AWSRequest DescribeVPCClassicLinkDNSSupport where @@ -155,23 +155,23 @@ -> DescribeVPCClassicLinkDNSSupportResponse describeVPCClassicLinkDNSSupportResponse pResponseStatus_ = DescribeVPCClassicLinkDNSSupportResponse' - { _dvpccldnssrsVPCs = Nothing - , _dvpccldnssrsNextToken = Nothing - , _dvpccldnssrsResponseStatus = pResponseStatus_ - } + { _dvpccldnssrsVPCs = Nothing + , _dvpccldnssrsNextToken = Nothing + , _dvpccldnssrsResponseStatus = pResponseStatus_ + } -- | Information about the ClassicLink DNS support status of the VPCs. dvpccldnssrsVPCs :: Lens' DescribeVPCClassicLinkDNSSupportResponse [ClassicLinkDNSSupport] -dvpccldnssrsVPCs = lens _dvpccldnssrsVPCs (\ s a -> s{_dvpccldnssrsVPCs = a}) . _Default . _Coerce; +dvpccldnssrsVPCs = lens _dvpccldnssrsVPCs (\ s a -> s{_dvpccldnssrsVPCs = a}) . _Default . _Coerce -- | The token to use when requesting the next set of items. dvpccldnssrsNextToken :: Lens' DescribeVPCClassicLinkDNSSupportResponse (Maybe Text) -dvpccldnssrsNextToken = lens _dvpccldnssrsNextToken (\ s a -> s{_dvpccldnssrsNextToken = a}); +dvpccldnssrsNextToken = lens _dvpccldnssrsNextToken (\ s a -> s{_dvpccldnssrsNextToken = a}) -- | -- | The response status code. dvpccldnssrsResponseStatus :: Lens' DescribeVPCClassicLinkDNSSupportResponse Int -dvpccldnssrsResponseStatus = lens _dvpccldnssrsResponseStatus (\ s a -> s{_dvpccldnssrsResponseStatus = a}); +dvpccldnssrsResponseStatus = lens _dvpccldnssrsResponseStatus (\ s a -> s{_dvpccldnssrsResponseStatus = a}) instance NFData DescribeVPCClassicLinkDNSSupportResponse diff --git a/gen/Network/AWS/EC2/DescribeVPCEndpointConnectionNotifications.hs b/gen/Network/AWS/EC2/DescribeVPCEndpointConnectionNotifications.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeVPCEndpointConnectionNotifications.hs @@ -0,0 +1,200 @@ +{-# 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.DescribeVPCEndpointConnectionNotifications +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the connection notifications for VPC endpoints and VPC endpoint services. +-- +-- +module Network.AWS.EC2.DescribeVPCEndpointConnectionNotifications + ( + -- * Creating a Request + describeVPCEndpointConnectionNotifications + , DescribeVPCEndpointConnectionNotifications + -- * Request Lenses + , dvpcecnFilters + , dvpcecnNextToken + , dvpcecnConnectionNotificationId + , dvpcecnDryRun + , dvpcecnMaxResults + + -- * Destructuring the Response + , describeVPCEndpointConnectionNotificationsResponse + , DescribeVPCEndpointConnectionNotificationsResponse + -- * Response Lenses + , dvpcecnrsConnectionNotificationSet + , dvpcecnrsNextToken + , dvpcecnrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeVPCEndpointConnectionNotifications' smart constructor. +data DescribeVPCEndpointConnectionNotifications = DescribeVPCEndpointConnectionNotifications' + { _dvpcecnFilters :: !(Maybe [Filter]) + , _dvpcecnNextToken :: !(Maybe Text) + , _dvpcecnConnectionNotificationId :: !(Maybe Text) + , _dvpcecnDryRun :: !(Maybe Bool) + , _dvpcecnMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointConnectionNotifications' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvpcecnFilters' - One or more filters. * @connection-notification-arn@ - The ARN of SNS topic for the notification. * @connection-notification-id@ - The ID of the notification. * @connection-notification-state@ - The state of the notification (@Enabled@ | @Disabled@ ). * @connection-notification-type@ - The type of notification (@Topic@ ). * @service-id@ - The ID of the endpoint service. * @vpc-endpoint-id@ - The ID of the VPC endpoint. +-- +-- * 'dvpcecnNextToken' - The token to request the next page of results. +-- +-- * 'dvpcecnConnectionNotificationId' - The ID of the notification. +-- +-- * 'dvpcecnDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dvpcecnMaxResults' - The maximum number of results to return in a single call. To retrieve the remaining results, make another request with the returned @NextToken@ value. +describeVPCEndpointConnectionNotifications + :: DescribeVPCEndpointConnectionNotifications +describeVPCEndpointConnectionNotifications = + DescribeVPCEndpointConnectionNotifications' + { _dvpcecnFilters = Nothing + , _dvpcecnNextToken = Nothing + , _dvpcecnConnectionNotificationId = Nothing + , _dvpcecnDryRun = Nothing + , _dvpcecnMaxResults = Nothing + } + + +-- | One or more filters. * @connection-notification-arn@ - The ARN of SNS topic for the notification. * @connection-notification-id@ - The ID of the notification. * @connection-notification-state@ - The state of the notification (@Enabled@ | @Disabled@ ). * @connection-notification-type@ - The type of notification (@Topic@ ). * @service-id@ - The ID of the endpoint service. * @vpc-endpoint-id@ - The ID of the VPC endpoint. +dvpcecnFilters :: Lens' DescribeVPCEndpointConnectionNotifications [Filter] +dvpcecnFilters = lens _dvpcecnFilters (\ s a -> s{_dvpcecnFilters = a}) . _Default . _Coerce + +-- | The token to request the next page of results. +dvpcecnNextToken :: Lens' DescribeVPCEndpointConnectionNotifications (Maybe Text) +dvpcecnNextToken = lens _dvpcecnNextToken (\ s a -> s{_dvpcecnNextToken = a}) + +-- | The ID of the notification. +dvpcecnConnectionNotificationId :: Lens' DescribeVPCEndpointConnectionNotifications (Maybe Text) +dvpcecnConnectionNotificationId = lens _dvpcecnConnectionNotificationId (\ s a -> s{_dvpcecnConnectionNotificationId = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dvpcecnDryRun :: Lens' DescribeVPCEndpointConnectionNotifications (Maybe Bool) +dvpcecnDryRun = lens _dvpcecnDryRun (\ s a -> s{_dvpcecnDryRun = a}) + +-- | The maximum number of results to return in a single call. To retrieve the remaining results, make another request with the returned @NextToken@ value. +dvpcecnMaxResults :: Lens' DescribeVPCEndpointConnectionNotifications (Maybe Int) +dvpcecnMaxResults = lens _dvpcecnMaxResults (\ s a -> s{_dvpcecnMaxResults = a}) + +instance AWSRequest + DescribeVPCEndpointConnectionNotifications + where + type Rs DescribeVPCEndpointConnectionNotifications = + DescribeVPCEndpointConnectionNotificationsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeVPCEndpointConnectionNotificationsResponse' + <$> + (x .@? "connectionNotificationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "nextToken") + <*> (pure (fromEnum s))) + +instance Hashable + DescribeVPCEndpointConnectionNotifications + where + +instance NFData + DescribeVPCEndpointConnectionNotifications + where + +instance ToHeaders + DescribeVPCEndpointConnectionNotifications + where + toHeaders = const mempty + +instance ToPath + DescribeVPCEndpointConnectionNotifications + where + toPath = const "/" + +instance ToQuery + DescribeVPCEndpointConnectionNotifications + where + toQuery + DescribeVPCEndpointConnectionNotifications'{..} + = mconcat + ["Action" =: + ("DescribeVpcEndpointConnectionNotifications" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dvpcecnFilters), + "NextToken" =: _dvpcecnNextToken, + "ConnectionNotificationId" =: + _dvpcecnConnectionNotificationId, + "DryRun" =: _dvpcecnDryRun, + "MaxResults" =: _dvpcecnMaxResults] + +-- | /See:/ 'describeVPCEndpointConnectionNotificationsResponse' smart constructor. +data DescribeVPCEndpointConnectionNotificationsResponse = DescribeVPCEndpointConnectionNotificationsResponse' + { _dvpcecnrsConnectionNotificationSet :: !(Maybe [ConnectionNotification]) + , _dvpcecnrsNextToken :: !(Maybe Text) + , _dvpcecnrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointConnectionNotificationsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvpcecnrsConnectionNotificationSet' - One or more notifications. +-- +-- * 'dvpcecnrsNextToken' - The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +-- +-- * 'dvpcecnrsResponseStatus' - -- | The response status code. +describeVPCEndpointConnectionNotificationsResponse + :: Int -- ^ 'dvpcecnrsResponseStatus' + -> DescribeVPCEndpointConnectionNotificationsResponse +describeVPCEndpointConnectionNotificationsResponse pResponseStatus_ = + DescribeVPCEndpointConnectionNotificationsResponse' + { _dvpcecnrsConnectionNotificationSet = Nothing + , _dvpcecnrsNextToken = Nothing + , _dvpcecnrsResponseStatus = pResponseStatus_ + } + + +-- | One or more notifications. +dvpcecnrsConnectionNotificationSet :: Lens' DescribeVPCEndpointConnectionNotificationsResponse [ConnectionNotification] +dvpcecnrsConnectionNotificationSet = lens _dvpcecnrsConnectionNotificationSet (\ s a -> s{_dvpcecnrsConnectionNotificationSet = a}) . _Default . _Coerce + +-- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +dvpcecnrsNextToken :: Lens' DescribeVPCEndpointConnectionNotificationsResponse (Maybe Text) +dvpcecnrsNextToken = lens _dvpcecnrsNextToken (\ s a -> s{_dvpcecnrsNextToken = a}) + +-- | -- | The response status code. +dvpcecnrsResponseStatus :: Lens' DescribeVPCEndpointConnectionNotificationsResponse Int +dvpcecnrsResponseStatus = lens _dvpcecnrsResponseStatus (\ s a -> s{_dvpcecnrsResponseStatus = a}) + +instance NFData + DescribeVPCEndpointConnectionNotificationsResponse + where diff --git a/gen/Network/AWS/EC2/DescribeVPCEndpointConnections.hs b/gen/Network/AWS/EC2/DescribeVPCEndpointConnections.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeVPCEndpointConnections.hs @@ -0,0 +1,177 @@ +{-# 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.DescribeVPCEndpointConnections +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the VPC endpoint connections to your VPC endpoint services, including any endpoints that are pending your acceptance. +-- +-- +module Network.AWS.EC2.DescribeVPCEndpointConnections + ( + -- * Creating a Request + describeVPCEndpointConnections + , DescribeVPCEndpointConnections + -- * Request Lenses + , dvecFilters + , dvecNextToken + , dvecDryRun + , dvecMaxResults + + -- * Destructuring the Response + , describeVPCEndpointConnectionsResponse + , DescribeVPCEndpointConnectionsResponse + -- * Response Lenses + , dvecrsVPCEndpointConnections + , dvecrsNextToken + , dvecrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeVPCEndpointConnections' smart constructor. +data DescribeVPCEndpointConnections = DescribeVPCEndpointConnections' + { _dvecFilters :: !(Maybe [Filter]) + , _dvecNextToken :: !(Maybe Text) + , _dvecDryRun :: !(Maybe Bool) + , _dvecMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointConnections' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvecFilters' - One or more filters. * @service-id@ - The ID of the service. * @vpc-endpoint-owner@ - The AWS account number of the owner of the endpoint. * @vpc-endpoint-state@ - The state of the endpoint (@pendingAcceptance@ | @pending@ | @available@ | @deleting@ | @deleted@ | @rejected@ | @failed@ ). * @vpc-endpoint-id@ - The ID of the endpoint. +-- +-- * 'dvecNextToken' - The token to retrieve the next page of results. +-- +-- * 'dvecDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dvecMaxResults' - The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. +describeVPCEndpointConnections + :: DescribeVPCEndpointConnections +describeVPCEndpointConnections = + DescribeVPCEndpointConnections' + { _dvecFilters = Nothing + , _dvecNextToken = Nothing + , _dvecDryRun = Nothing + , _dvecMaxResults = Nothing + } + + +-- | One or more filters. * @service-id@ - The ID of the service. * @vpc-endpoint-owner@ - The AWS account number of the owner of the endpoint. * @vpc-endpoint-state@ - The state of the endpoint (@pendingAcceptance@ | @pending@ | @available@ | @deleting@ | @deleted@ | @rejected@ | @failed@ ). * @vpc-endpoint-id@ - The ID of the endpoint. +dvecFilters :: Lens' DescribeVPCEndpointConnections [Filter] +dvecFilters = lens _dvecFilters (\ s a -> s{_dvecFilters = a}) . _Default . _Coerce + +-- | The token to retrieve the next page of results. +dvecNextToken :: Lens' DescribeVPCEndpointConnections (Maybe Text) +dvecNextToken = lens _dvecNextToken (\ s a -> s{_dvecNextToken = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dvecDryRun :: Lens' DescribeVPCEndpointConnections (Maybe Bool) +dvecDryRun = lens _dvecDryRun (\ s a -> s{_dvecDryRun = a}) + +-- | The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. +dvecMaxResults :: Lens' DescribeVPCEndpointConnections (Maybe Int) +dvecMaxResults = lens _dvecMaxResults (\ s a -> s{_dvecMaxResults = a}) + +instance AWSRequest DescribeVPCEndpointConnections + where + type Rs DescribeVPCEndpointConnections = + DescribeVPCEndpointConnectionsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeVPCEndpointConnectionsResponse' <$> + (x .@? "vpcEndpointConnectionSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "nextToken") + <*> (pure (fromEnum s))) + +instance Hashable DescribeVPCEndpointConnections + where + +instance NFData DescribeVPCEndpointConnections where + +instance ToHeaders DescribeVPCEndpointConnections + where + toHeaders = const mempty + +instance ToPath DescribeVPCEndpointConnections where + toPath = const "/" + +instance ToQuery DescribeVPCEndpointConnections where + toQuery DescribeVPCEndpointConnections'{..} + = mconcat + ["Action" =: + ("DescribeVpcEndpointConnections" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dvecFilters), + "NextToken" =: _dvecNextToken, + "DryRun" =: _dvecDryRun, + "MaxResults" =: _dvecMaxResults] + +-- | /See:/ 'describeVPCEndpointConnectionsResponse' smart constructor. +data DescribeVPCEndpointConnectionsResponse = DescribeVPCEndpointConnectionsResponse' + { _dvecrsVPCEndpointConnections :: !(Maybe [VPCEndpointConnection]) + , _dvecrsNextToken :: !(Maybe Text) + , _dvecrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointConnectionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvecrsVPCEndpointConnections' - Information about one or more VPC endpoint connections. +-- +-- * 'dvecrsNextToken' - The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +-- +-- * 'dvecrsResponseStatus' - -- | The response status code. +describeVPCEndpointConnectionsResponse + :: Int -- ^ 'dvecrsResponseStatus' + -> DescribeVPCEndpointConnectionsResponse +describeVPCEndpointConnectionsResponse pResponseStatus_ = + DescribeVPCEndpointConnectionsResponse' + { _dvecrsVPCEndpointConnections = Nothing + , _dvecrsNextToken = Nothing + , _dvecrsResponseStatus = pResponseStatus_ + } + + +-- | Information about one or more VPC endpoint connections. +dvecrsVPCEndpointConnections :: Lens' DescribeVPCEndpointConnectionsResponse [VPCEndpointConnection] +dvecrsVPCEndpointConnections = lens _dvecrsVPCEndpointConnections (\ s a -> s{_dvecrsVPCEndpointConnections = a}) . _Default . _Coerce + +-- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +dvecrsNextToken :: Lens' DescribeVPCEndpointConnectionsResponse (Maybe Text) +dvecrsNextToken = lens _dvecrsNextToken (\ s a -> s{_dvecrsNextToken = a}) + +-- | -- | The response status code. +dvecrsResponseStatus :: Lens' DescribeVPCEndpointConnectionsResponse Int +dvecrsResponseStatus = lens _dvecrsResponseStatus (\ s a -> s{_dvecrsResponseStatus = a}) + +instance NFData + DescribeVPCEndpointConnectionsResponse + where diff --git a/gen/Network/AWS/EC2/DescribeVPCEndpointServiceConfigurations.hs b/gen/Network/AWS/EC2/DescribeVPCEndpointServiceConfigurations.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeVPCEndpointServiceConfigurations.hs @@ -0,0 +1,198 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Network.AWS.EC2.DescribeVPCEndpointServiceConfigurations +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the VPC endpoint service configurations in your account (your services). +-- +-- +module Network.AWS.EC2.DescribeVPCEndpointServiceConfigurations + ( + -- * Creating a Request + describeVPCEndpointServiceConfigurations + , DescribeVPCEndpointServiceConfigurations + -- * Request Lenses + , dvescFilters + , dvescServiceIds + , dvescNextToken + , dvescDryRun + , dvescMaxResults + + -- * Destructuring the Response + , describeVPCEndpointServiceConfigurationsResponse + , DescribeVPCEndpointServiceConfigurationsResponse + -- * Response Lenses + , dvescrsNextToken + , dvescrsServiceConfigurations + , dvescrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeVPCEndpointServiceConfigurations' smart constructor. +data DescribeVPCEndpointServiceConfigurations = DescribeVPCEndpointServiceConfigurations' + { _dvescFilters :: !(Maybe [Filter]) + , _dvescServiceIds :: !(Maybe [Text]) + , _dvescNextToken :: !(Maybe Text) + , _dvescDryRun :: !(Maybe Bool) + , _dvescMaxResults :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointServiceConfigurations' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvescFilters' - One or more filters. * @service-name@ - The name of the service. * @service-id@ - The ID of the service. * @service-state@ - The state of the service (@Pending@ | @Available@ | @Deleting@ | @Deleted@ | @Failed@ ). +-- +-- * 'dvescServiceIds' - The IDs of one or more services. +-- +-- * 'dvescNextToken' - The token to retrieve the next page of results. +-- +-- * 'dvescDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dvescMaxResults' - The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. +describeVPCEndpointServiceConfigurations + :: DescribeVPCEndpointServiceConfigurations +describeVPCEndpointServiceConfigurations = + DescribeVPCEndpointServiceConfigurations' + { _dvescFilters = Nothing + , _dvescServiceIds = Nothing + , _dvescNextToken = Nothing + , _dvescDryRun = Nothing + , _dvescMaxResults = Nothing + } + + +-- | One or more filters. * @service-name@ - The name of the service. * @service-id@ - The ID of the service. * @service-state@ - The state of the service (@Pending@ | @Available@ | @Deleting@ | @Deleted@ | @Failed@ ). +dvescFilters :: Lens' DescribeVPCEndpointServiceConfigurations [Filter] +dvescFilters = lens _dvescFilters (\ s a -> s{_dvescFilters = a}) . _Default . _Coerce + +-- | The IDs of one or more services. +dvescServiceIds :: Lens' DescribeVPCEndpointServiceConfigurations [Text] +dvescServiceIds = lens _dvescServiceIds (\ s a -> s{_dvescServiceIds = a}) . _Default . _Coerce + +-- | The token to retrieve the next page of results. +dvescNextToken :: Lens' DescribeVPCEndpointServiceConfigurations (Maybe Text) +dvescNextToken = lens _dvescNextToken (\ s a -> s{_dvescNextToken = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dvescDryRun :: Lens' DescribeVPCEndpointServiceConfigurations (Maybe Bool) +dvescDryRun = lens _dvescDryRun (\ s a -> s{_dvescDryRun = a}) + +-- | The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. +dvescMaxResults :: Lens' DescribeVPCEndpointServiceConfigurations (Maybe Int) +dvescMaxResults = lens _dvescMaxResults (\ s a -> s{_dvescMaxResults = a}) + +instance AWSRequest + DescribeVPCEndpointServiceConfigurations + where + type Rs DescribeVPCEndpointServiceConfigurations = + DescribeVPCEndpointServiceConfigurationsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeVPCEndpointServiceConfigurationsResponse' <$> + (x .@? "nextToken") <*> + (x .@? "serviceConfigurationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable + DescribeVPCEndpointServiceConfigurations + where + +instance NFData + DescribeVPCEndpointServiceConfigurations + where + +instance ToHeaders + DescribeVPCEndpointServiceConfigurations + where + toHeaders = const mempty + +instance ToPath + DescribeVPCEndpointServiceConfigurations + where + toPath = const "/" + +instance ToQuery + DescribeVPCEndpointServiceConfigurations + where + toQuery DescribeVPCEndpointServiceConfigurations'{..} + = mconcat + ["Action" =: + ("DescribeVpcEndpointServiceConfigurations" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dvescFilters), + toQuery + (toQueryList "ServiceId" <$> _dvescServiceIds), + "NextToken" =: _dvescNextToken, + "DryRun" =: _dvescDryRun, + "MaxResults" =: _dvescMaxResults] + +-- | /See:/ 'describeVPCEndpointServiceConfigurationsResponse' smart constructor. +data DescribeVPCEndpointServiceConfigurationsResponse = DescribeVPCEndpointServiceConfigurationsResponse' + { _dvescrsNextToken :: !(Maybe Text) + , _dvescrsServiceConfigurations :: !(Maybe [ServiceConfiguration]) + , _dvescrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointServiceConfigurationsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvescrsNextToken' - The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +-- +-- * 'dvescrsServiceConfigurations' - Information about one or more services. +-- +-- * 'dvescrsResponseStatus' - -- | The response status code. +describeVPCEndpointServiceConfigurationsResponse + :: Int -- ^ 'dvescrsResponseStatus' + -> DescribeVPCEndpointServiceConfigurationsResponse +describeVPCEndpointServiceConfigurationsResponse pResponseStatus_ = + DescribeVPCEndpointServiceConfigurationsResponse' + { _dvescrsNextToken = Nothing + , _dvescrsServiceConfigurations = Nothing + , _dvescrsResponseStatus = pResponseStatus_ + } + + +-- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +dvescrsNextToken :: Lens' DescribeVPCEndpointServiceConfigurationsResponse (Maybe Text) +dvescrsNextToken = lens _dvescrsNextToken (\ s a -> s{_dvescrsNextToken = a}) + +-- | Information about one or more services. +dvescrsServiceConfigurations :: Lens' DescribeVPCEndpointServiceConfigurationsResponse [ServiceConfiguration] +dvescrsServiceConfigurations = lens _dvescrsServiceConfigurations (\ s a -> s{_dvescrsServiceConfigurations = a}) . _Default . _Coerce + +-- | -- | The response status code. +dvescrsResponseStatus :: Lens' DescribeVPCEndpointServiceConfigurationsResponse Int +dvescrsResponseStatus = lens _dvescrsResponseStatus (\ s a -> s{_dvescrsResponseStatus = a}) + +instance NFData + DescribeVPCEndpointServiceConfigurationsResponse + where diff --git a/gen/Network/AWS/EC2/DescribeVPCEndpointServicePermissions.hs b/gen/Network/AWS/EC2/DescribeVPCEndpointServicePermissions.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/DescribeVPCEndpointServicePermissions.hs @@ -0,0 +1,196 @@ +{-# 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.DescribeVPCEndpointServicePermissions +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Describes the principals (service consumers) that are permitted to discover your VPC endpoint service. +-- +-- +module Network.AWS.EC2.DescribeVPCEndpointServicePermissions + ( + -- * Creating a Request + describeVPCEndpointServicePermissions + , DescribeVPCEndpointServicePermissions + -- * Request Lenses + , dvespFilters + , dvespNextToken + , dvespDryRun + , dvespMaxResults + , dvespServiceId + + -- * Destructuring the Response + , describeVPCEndpointServicePermissionsResponse + , DescribeVPCEndpointServicePermissionsResponse + -- * Response Lenses + , dvesprsNextToken + , dvesprsAllowedPrincipals + , dvesprsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'describeVPCEndpointServicePermissions' smart constructor. +data DescribeVPCEndpointServicePermissions = DescribeVPCEndpointServicePermissions' + { _dvespFilters :: !(Maybe [Filter]) + , _dvespNextToken :: !(Maybe Text) + , _dvespDryRun :: !(Maybe Bool) + , _dvespMaxResults :: !(Maybe Int) + , _dvespServiceId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointServicePermissions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvespFilters' - One or more filters. * @principal@ - The ARN of the principal. * @principal-type@ - The principal type (@All@ | @Service@ | @OrganizationUnit@ | @Account@ | @User@ | @Role@ ). +-- +-- * 'dvespNextToken' - The token to retrieve the next page of results. +-- +-- * 'dvespDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'dvespMaxResults' - The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. +-- +-- * 'dvespServiceId' - The ID of the service. +describeVPCEndpointServicePermissions + :: Text -- ^ 'dvespServiceId' + -> DescribeVPCEndpointServicePermissions +describeVPCEndpointServicePermissions pServiceId_ = + DescribeVPCEndpointServicePermissions' + { _dvespFilters = Nothing + , _dvespNextToken = Nothing + , _dvespDryRun = Nothing + , _dvespMaxResults = Nothing + , _dvespServiceId = pServiceId_ + } + + +-- | One or more filters. * @principal@ - The ARN of the principal. * @principal-type@ - The principal type (@All@ | @Service@ | @OrganizationUnit@ | @Account@ | @User@ | @Role@ ). +dvespFilters :: Lens' DescribeVPCEndpointServicePermissions [Filter] +dvespFilters = lens _dvespFilters (\ s a -> s{_dvespFilters = a}) . _Default . _Coerce + +-- | The token to retrieve the next page of results. +dvespNextToken :: Lens' DescribeVPCEndpointServicePermissions (Maybe Text) +dvespNextToken = lens _dvespNextToken (\ s a -> s{_dvespNextToken = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +dvespDryRun :: Lens' DescribeVPCEndpointServicePermissions (Maybe Bool) +dvespDryRun = lens _dvespDryRun (\ s a -> s{_dvespDryRun = a}) + +-- | The maximum number of results to return for the request in a single page. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. +dvespMaxResults :: Lens' DescribeVPCEndpointServicePermissions (Maybe Int) +dvespMaxResults = lens _dvespMaxResults (\ s a -> s{_dvespMaxResults = a}) + +-- | The ID of the service. +dvespServiceId :: Lens' DescribeVPCEndpointServicePermissions Text +dvespServiceId = lens _dvespServiceId (\ s a -> s{_dvespServiceId = a}) + +instance AWSRequest + DescribeVPCEndpointServicePermissions + where + type Rs DescribeVPCEndpointServicePermissions = + DescribeVPCEndpointServicePermissionsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + DescribeVPCEndpointServicePermissionsResponse' <$> + (x .@? "nextToken") <*> + (x .@? "allowedPrincipals" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable + DescribeVPCEndpointServicePermissions + where + +instance NFData DescribeVPCEndpointServicePermissions + where + +instance ToHeaders + DescribeVPCEndpointServicePermissions + where + toHeaders = const mempty + +instance ToPath DescribeVPCEndpointServicePermissions + where + toPath = const "/" + +instance ToQuery + DescribeVPCEndpointServicePermissions + where + toQuery DescribeVPCEndpointServicePermissions'{..} + = mconcat + ["Action" =: + ("DescribeVpcEndpointServicePermissions" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery (toQueryList "Filter" <$> _dvespFilters), + "NextToken" =: _dvespNextToken, + "DryRun" =: _dvespDryRun, + "MaxResults" =: _dvespMaxResults, + "ServiceId" =: _dvespServiceId] + +-- | /See:/ 'describeVPCEndpointServicePermissionsResponse' smart constructor. +data DescribeVPCEndpointServicePermissionsResponse = DescribeVPCEndpointServicePermissionsResponse' + { _dvesprsNextToken :: !(Maybe Text) + , _dvesprsAllowedPrincipals :: !(Maybe [AllowedPrincipal]) + , _dvesprsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DescribeVPCEndpointServicePermissionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dvesprsNextToken' - The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +-- +-- * 'dvesprsAllowedPrincipals' - Information about one or more allowed principals. +-- +-- * 'dvesprsResponseStatus' - -- | The response status code. +describeVPCEndpointServicePermissionsResponse + :: Int -- ^ 'dvesprsResponseStatus' + -> DescribeVPCEndpointServicePermissionsResponse +describeVPCEndpointServicePermissionsResponse pResponseStatus_ = + DescribeVPCEndpointServicePermissionsResponse' + { _dvesprsNextToken = Nothing + , _dvesprsAllowedPrincipals = Nothing + , _dvesprsResponseStatus = pResponseStatus_ + } + + +-- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. +dvesprsNextToken :: Lens' DescribeVPCEndpointServicePermissionsResponse (Maybe Text) +dvesprsNextToken = lens _dvesprsNextToken (\ s a -> s{_dvesprsNextToken = a}) + +-- | Information about one or more allowed principals. +dvesprsAllowedPrincipals :: Lens' DescribeVPCEndpointServicePermissionsResponse [AllowedPrincipal] +dvesprsAllowedPrincipals = lens _dvesprsAllowedPrincipals (\ s a -> s{_dvesprsAllowedPrincipals = a}) . _Default . _Coerce + +-- | -- | The response status code. +dvesprsResponseStatus :: Lens' DescribeVPCEndpointServicePermissionsResponse Int +dvesprsResponseStatus = lens _dvesprsResponseStatus (\ s a -> s{_dvesprsResponseStatus = a}) + +instance NFData + DescribeVPCEndpointServicePermissionsResponse + where 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.DescribeVPCEndpointServices --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Describes all supported AWS services that can be specified when creating a VPC endpoint. +-- Describes available services to which you can create a VPC endpoint. -- -- module Network.AWS.EC2.DescribeVPCEndpointServices @@ -81,33 +81,33 @@ :: DescribeVPCEndpointServices describeVPCEndpointServices = DescribeVPCEndpointServices' - { _dvesFilters = Nothing - , _dvesServiceNames = Nothing - , _dvesNextToken = Nothing - , _dvesDryRun = Nothing - , _dvesMaxResults = Nothing - } + { _dvesFilters = Nothing + , _dvesServiceNames = Nothing + , _dvesNextToken = Nothing + , _dvesDryRun = Nothing + , _dvesMaxResults = Nothing + } -- | One or more filters. * @service-name@ : The name of the service. dvesFilters :: Lens' DescribeVPCEndpointServices [Filter] -dvesFilters = lens _dvesFilters (\ s a -> s{_dvesFilters = a}) . _Default . _Coerce; +dvesFilters = lens _dvesFilters (\ s a -> s{_dvesFilters = a}) . _Default . _Coerce -- | One or more service names. dvesServiceNames :: Lens' DescribeVPCEndpointServices [Text] -dvesServiceNames = lens _dvesServiceNames (\ s a -> s{_dvesServiceNames = a}) . _Default . _Coerce; +dvesServiceNames = lens _dvesServiceNames (\ s a -> s{_dvesServiceNames = a}) . _Default . _Coerce -- | The token for the next set of items to return. (You received this token from a prior call.) dvesNextToken :: Lens' DescribeVPCEndpointServices (Maybe Text) -dvesNextToken = lens _dvesNextToken (\ s a -> s{_dvesNextToken = a}); +dvesNextToken = lens _dvesNextToken (\ s a -> s{_dvesNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvesDryRun :: Lens' DescribeVPCEndpointServices (Maybe Bool) -dvesDryRun = lens _dvesDryRun (\ s a -> s{_dvesDryRun = a}); +dvesDryRun = lens _dvesDryRun (\ s a -> s{_dvesDryRun = a}) -- | The maximum number of items to return for this request. The request returns a token that you can specify in a subsequent call to get the next set of results. Constraint: If the value is greater than 1000, we return only 1000 items. dvesMaxResults :: Lens' DescribeVPCEndpointServices (Maybe Int) -dvesMaxResults = lens _dvesMaxResults (\ s a -> s{_dvesMaxResults = a}); +dvesMaxResults = lens _dvesMaxResults (\ s a -> s{_dvesMaxResults = a}) instance AWSRequest DescribeVPCEndpointServices where type Rs DescribeVPCEndpointServices = @@ -167,7 +167,7 @@ -- -- * 'dvesrsServiceDetails' - Information about the service. -- --- * 'dvesrsServiceNames' - A list of supported AWS services. +-- * 'dvesrsServiceNames' - A list of supported services. -- -- * 'dvesrsNextToken' - The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. -- @@ -177,28 +177,28 @@ -> DescribeVPCEndpointServicesResponse describeVPCEndpointServicesResponse pResponseStatus_ = DescribeVPCEndpointServicesResponse' - { _dvesrsServiceDetails = Nothing - , _dvesrsServiceNames = Nothing - , _dvesrsNextToken = Nothing - , _dvesrsResponseStatus = pResponseStatus_ - } + { _dvesrsServiceDetails = Nothing + , _dvesrsServiceNames = Nothing + , _dvesrsNextToken = Nothing + , _dvesrsResponseStatus = pResponseStatus_ + } -- | Information about the service. dvesrsServiceDetails :: Lens' DescribeVPCEndpointServicesResponse [ServiceDetail] -dvesrsServiceDetails = lens _dvesrsServiceDetails (\ s a -> s{_dvesrsServiceDetails = a}) . _Default . _Coerce; +dvesrsServiceDetails = lens _dvesrsServiceDetails (\ s a -> s{_dvesrsServiceDetails = a}) . _Default . _Coerce --- | A list of supported AWS services. +-- | A list of supported services. dvesrsServiceNames :: Lens' DescribeVPCEndpointServicesResponse [Text] -dvesrsServiceNames = lens _dvesrsServiceNames (\ s a -> s{_dvesrsServiceNames = a}) . _Default . _Coerce; +dvesrsServiceNames = lens _dvesrsServiceNames (\ s a -> s{_dvesrsServiceNames = a}) . _Default . _Coerce -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dvesrsNextToken :: Lens' DescribeVPCEndpointServicesResponse (Maybe Text) -dvesrsNextToken = lens _dvesrsNextToken (\ s a -> s{_dvesrsNextToken = a}); +dvesrsNextToken = lens _dvesrsNextToken (\ s a -> s{_dvesrsNextToken = a}) -- | -- | The response status code. dvesrsResponseStatus :: Lens' DescribeVPCEndpointServicesResponse Int -dvesrsResponseStatus = lens _dvesrsResponseStatus (\ s a -> s{_dvesrsResponseStatus = a}); +dvesrsResponseStatus = lens _dvesrsResponseStatus (\ s a -> s{_dvesrsResponseStatus = a}) instance NFData DescribeVPCEndpointServicesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPCEndpoints --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,7 +67,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dvpceFilters' - One or more filters. * @service-name@ : The name of the AWS service. * @vpc-id@ : The ID of the VPC in which the endpoint resides. * @vpc-endpoint-id@ : The ID of the endpoint. * @vpc-endpoint-state@ : The state of the endpoint. (@pending@ | @available@ | @deleting@ | @deleted@ ) +-- * 'dvpceFilters' - One or more filters. * @service-name@ : The name of the service. * @vpc-id@ : The ID of the VPC in which the endpoint resides. * @vpc-endpoint-id@ : The ID of the endpoint. * @vpc-endpoint-state@ : The state of the endpoint. (@pending@ | @available@ | @deleting@ | @deleted@ ) -- -- * 'dvpceNextToken' - The token for the next set of items to return. (You received this token from a prior call.) -- @@ -80,33 +80,33 @@ :: DescribeVPCEndpoints describeVPCEndpoints = DescribeVPCEndpoints' - { _dvpceFilters = Nothing - , _dvpceNextToken = Nothing - , _dvpceVPCEndpointIds = Nothing - , _dvpceDryRun = Nothing - , _dvpceMaxResults = Nothing - } + { _dvpceFilters = Nothing + , _dvpceNextToken = Nothing + , _dvpceVPCEndpointIds = Nothing + , _dvpceDryRun = Nothing + , _dvpceMaxResults = Nothing + } --- | One or more filters. * @service-name@ : The name of the AWS service. * @vpc-id@ : The ID of the VPC in which the endpoint resides. * @vpc-endpoint-id@ : The ID of the endpoint. * @vpc-endpoint-state@ : The state of the endpoint. (@pending@ | @available@ | @deleting@ | @deleted@ ) +-- | One or more filters. * @service-name@ : The name of the service. * @vpc-id@ : The ID of the VPC in which the endpoint resides. * @vpc-endpoint-id@ : The ID of the endpoint. * @vpc-endpoint-state@ : The state of the endpoint. (@pending@ | @available@ | @deleting@ | @deleted@ ) dvpceFilters :: Lens' DescribeVPCEndpoints [Filter] -dvpceFilters = lens _dvpceFilters (\ s a -> s{_dvpceFilters = a}) . _Default . _Coerce; +dvpceFilters = lens _dvpceFilters (\ s a -> s{_dvpceFilters = a}) . _Default . _Coerce -- | The token for the next set of items to return. (You received this token from a prior call.) dvpceNextToken :: Lens' DescribeVPCEndpoints (Maybe Text) -dvpceNextToken = lens _dvpceNextToken (\ s a -> s{_dvpceNextToken = a}); +dvpceNextToken = lens _dvpceNextToken (\ s a -> s{_dvpceNextToken = a}) -- | One or more endpoint IDs. dvpceVPCEndpointIds :: Lens' DescribeVPCEndpoints [Text] -dvpceVPCEndpointIds = lens _dvpceVPCEndpointIds (\ s a -> s{_dvpceVPCEndpointIds = a}) . _Default . _Coerce; +dvpceVPCEndpointIds = lens _dvpceVPCEndpointIds (\ s a -> s{_dvpceVPCEndpointIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvpceDryRun :: Lens' DescribeVPCEndpoints (Maybe Bool) -dvpceDryRun = lens _dvpceDryRun (\ s a -> s{_dvpceDryRun = a}); +dvpceDryRun = lens _dvpceDryRun (\ s a -> s{_dvpceDryRun = a}) -- | The maximum number of items to return for this request. The request returns a token that you can specify in a subsequent call to get the next set of results. Constraint: If the value is greater than 1000, we return only 1000 items. dvpceMaxResults :: Lens' DescribeVPCEndpoints (Maybe Int) -dvpceMaxResults = lens _dvpceMaxResults (\ s a -> s{_dvpceMaxResults = a}); +dvpceMaxResults = lens _dvpceMaxResults (\ s a -> s{_dvpceMaxResults = a}) instance AWSRequest DescribeVPCEndpoints where type Rs DescribeVPCEndpoints = @@ -170,22 +170,22 @@ -> DescribeVPCEndpointsResponse describeVPCEndpointsResponse pResponseStatus_ = DescribeVPCEndpointsResponse' - { _dvpcersNextToken = Nothing - , _dvpcersVPCEndpoints = Nothing - , _dvpcersResponseStatus = pResponseStatus_ - } + { _dvpcersNextToken = Nothing + , _dvpcersVPCEndpoints = Nothing + , _dvpcersResponseStatus = pResponseStatus_ + } -- | The token to use when requesting the next set of items. If there are no additional items to return, the string is empty. dvpcersNextToken :: Lens' DescribeVPCEndpointsResponse (Maybe Text) -dvpcersNextToken = lens _dvpcersNextToken (\ s a -> s{_dvpcersNextToken = a}); +dvpcersNextToken = lens _dvpcersNextToken (\ s a -> s{_dvpcersNextToken = a}) -- | Information about the endpoints. dvpcersVPCEndpoints :: Lens' DescribeVPCEndpointsResponse [VPCEndpoint] -dvpcersVPCEndpoints = lens _dvpcersVPCEndpoints (\ s a -> s{_dvpcersVPCEndpoints = a}) . _Default . _Coerce; +dvpcersVPCEndpoints = lens _dvpcersVPCEndpoints (\ s a -> s{_dvpcersVPCEndpoints = a}) . _Default . _Coerce -- | -- | The response status code. dvpcersResponseStatus :: Lens' DescribeVPCEndpointsResponse Int -dvpcersResponseStatus = lens _dvpcersResponseStatus (\ s a -> s{_dvpcersResponseStatus = a}); +dvpcersResponseStatus = lens _dvpcersResponseStatus (\ s a -> s{_dvpcersResponseStatus = a}) instance NFData DescribeVPCEndpointsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPCPeeringConnections --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,7 +62,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'dvpcpcFilters' - One or more filters. * @accepter-vpc-info.cidr-block@ - The IPv4 CIDR block of the peer VPC. * @accepter-vpc-info.owner-id@ - The AWS account ID of the owner of the peer VPC. * @accepter-vpc-info.vpc-id@ - The ID of the peer VPC. * @expiration-time@ - The expiration date and time for the VPC peering connection. * @requester-vpc-info.cidr-block@ - The IPv4 CIDR block of the requester's VPC. * @requester-vpc-info.owner-id@ - The AWS account ID of the owner of the requester VPC. * @requester-vpc-info.vpc-id@ - The ID of the requester VPC. * @status-code@ - The status of the VPC peering connection (@pending-acceptance@ | @failed@ | @expired@ | @provisioning@ | @active@ | @deleted@ | @rejected@ ). * @status-message@ - A message that provides more information about the status of the VPC peering connection, if applicable. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-peering-connection-id@ - The ID of the VPC peering connection. +-- * 'dvpcpcFilters' - One or more filters. * @accepter-vpc-info.cidr-block@ - The IPv4 CIDR block of the accepter VPC. * @accepter-vpc-info.owner-id@ - The AWS account ID of the owner of the accepter VPC. * @accepter-vpc-info.vpc-id@ - The ID of the accepter VPC. * @expiration-time@ - The expiration date and time for the VPC peering connection. * @requester-vpc-info.cidr-block@ - The IPv4 CIDR block of the requester's VPC. * @requester-vpc-info.owner-id@ - The AWS account ID of the owner of the requester VPC. * @requester-vpc-info.vpc-id@ - The ID of the requester VPC. * @status-code@ - The status of the VPC peering connection (@pending-acceptance@ | @failed@ | @expired@ | @provisioning@ | @active@ | @deleting@ | @deleted@ | @rejected@ ). * @status-message@ - A message that provides more information about the status of the VPC peering connection, if applicable. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-peering-connection-id@ - The ID of the VPC peering connection. -- -- * 'dvpcpcVPCPeeringConnectionIds' - One or more VPC peering connection IDs. Default: Describes all your VPC peering connections. -- @@ -71,23 +71,23 @@ :: DescribeVPCPeeringConnections describeVPCPeeringConnections = DescribeVPCPeeringConnections' - { _dvpcpcFilters = Nothing - , _dvpcpcVPCPeeringConnectionIds = Nothing - , _dvpcpcDryRun = Nothing - } + { _dvpcpcFilters = Nothing + , _dvpcpcVPCPeeringConnectionIds = Nothing + , _dvpcpcDryRun = Nothing + } --- | One or more filters. * @accepter-vpc-info.cidr-block@ - The IPv4 CIDR block of the peer VPC. * @accepter-vpc-info.owner-id@ - The AWS account ID of the owner of the peer VPC. * @accepter-vpc-info.vpc-id@ - The ID of the peer VPC. * @expiration-time@ - The expiration date and time for the VPC peering connection. * @requester-vpc-info.cidr-block@ - The IPv4 CIDR block of the requester's VPC. * @requester-vpc-info.owner-id@ - The AWS account ID of the owner of the requester VPC. * @requester-vpc-info.vpc-id@ - The ID of the requester VPC. * @status-code@ - The status of the VPC peering connection (@pending-acceptance@ | @failed@ | @expired@ | @provisioning@ | @active@ | @deleted@ | @rejected@ ). * @status-message@ - A message that provides more information about the status of the VPC peering connection, if applicable. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-peering-connection-id@ - The ID of the VPC peering connection. +-- | One or more filters. * @accepter-vpc-info.cidr-block@ - The IPv4 CIDR block of the accepter VPC. * @accepter-vpc-info.owner-id@ - The AWS account ID of the owner of the accepter VPC. * @accepter-vpc-info.vpc-id@ - The ID of the accepter VPC. * @expiration-time@ - The expiration date and time for the VPC peering connection. * @requester-vpc-info.cidr-block@ - The IPv4 CIDR block of the requester's VPC. * @requester-vpc-info.owner-id@ - The AWS account ID of the owner of the requester VPC. * @requester-vpc-info.vpc-id@ - The ID of the requester VPC. * @status-code@ - The status of the VPC peering connection (@pending-acceptance@ | @failed@ | @expired@ | @provisioning@ | @active@ | @deleting@ | @deleted@ | @rejected@ ). * @status-message@ - A message that provides more information about the status of the VPC peering connection, if applicable. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-peering-connection-id@ - The ID of the VPC peering connection. dvpcpcFilters :: Lens' DescribeVPCPeeringConnections [Filter] -dvpcpcFilters = lens _dvpcpcFilters (\ s a -> s{_dvpcpcFilters = a}) . _Default . _Coerce; +dvpcpcFilters = lens _dvpcpcFilters (\ s a -> s{_dvpcpcFilters = a}) . _Default . _Coerce -- | One or more VPC peering connection IDs. Default: Describes all your VPC peering connections. dvpcpcVPCPeeringConnectionIds :: Lens' DescribeVPCPeeringConnections [Text] -dvpcpcVPCPeeringConnectionIds = lens _dvpcpcVPCPeeringConnectionIds (\ s a -> s{_dvpcpcVPCPeeringConnectionIds = a}) . _Default . _Coerce; +dvpcpcVPCPeeringConnectionIds = lens _dvpcpcVPCPeeringConnectionIds (\ s a -> s{_dvpcpcVPCPeeringConnectionIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvpcpcDryRun :: Lens' DescribeVPCPeeringConnections (Maybe Bool) -dvpcpcDryRun = lens _dvpcpcDryRun (\ s a -> s{_dvpcpcDryRun = a}); +dvpcpcDryRun = lens _dvpcpcDryRun (\ s a -> s{_dvpcpcDryRun = a}) instance AWSRequest DescribeVPCPeeringConnections where @@ -148,18 +148,18 @@ -> DescribeVPCPeeringConnectionsResponse describeVPCPeeringConnectionsResponse pResponseStatus_ = DescribeVPCPeeringConnectionsResponse' - { _dvpcpcrsVPCPeeringConnections = Nothing - , _dvpcpcrsResponseStatus = pResponseStatus_ - } + { _dvpcpcrsVPCPeeringConnections = Nothing + , _dvpcpcrsResponseStatus = pResponseStatus_ + } -- | Information about the VPC peering connections. dvpcpcrsVPCPeeringConnections :: Lens' DescribeVPCPeeringConnectionsResponse [VPCPeeringConnection] -dvpcpcrsVPCPeeringConnections = lens _dvpcpcrsVPCPeeringConnections (\ s a -> s{_dvpcpcrsVPCPeeringConnections = a}) . _Default . _Coerce; +dvpcpcrsVPCPeeringConnections = lens _dvpcpcrsVPCPeeringConnections (\ s a -> s{_dvpcpcrsVPCPeeringConnections = a}) . _Default . _Coerce -- | -- | The response status code. dvpcpcrsResponseStatus :: Lens' DescribeVPCPeeringConnectionsResponse Int -dvpcpcrsResponseStatus = lens _dvpcpcrsResponseStatus (\ s a -> s{_dvpcpcrsResponseStatus = a}); +dvpcpcrsResponseStatus = lens _dvpcpcrsResponseStatus (\ s a -> s{_dvpcpcrsResponseStatus = a}) instance NFData DescribeVPCPeeringConnectionsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPCs --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,20 +71,20 @@ :: DescribeVPCs describeVPCs = DescribeVPCs' - {_dvsFilters = Nothing, _dvsVPCIds = Nothing, _dvsDryRun = Nothing} + {_dvsFilters = Nothing, _dvsVPCIds = Nothing, _dvsDryRun = Nothing} -- | One or more filters. * @cidr@ - The primary IPv4 CIDR block of the VPC. The CIDR block you specify must exactly match the VPC's CIDR block for information to be returned for the VPC. Must contain the slash followed by one or two digits (for example, @/28@ ). * @cidr-block-association.cidr-block@ - An IPv4 CIDR block associated with the VPC. * @cidr-block-association.association-id@ - The association ID for an IPv4 CIDR block associated with the VPC. * @cidr-block-association.state@ - The state of an IPv4 CIDR block associated with the VPC. * @dhcp-options-id@ - The ID of a set of DHCP options. * @ipv6-cidr-block-association.ipv6-cidr-block@ - An IPv6 CIDR block associated with the VPC. * @ipv6-cidr-block-association.association-id@ - The association ID for an IPv6 CIDR block associated with the VPC. * @ipv6-cidr-block-association.state@ - The state of an IPv6 CIDR block associated with the VPC. * @isDefault@ - Indicates whether the VPC is the default VPC. * @state@ - The state of the VPC (@pending@ | @available@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @vpc-id@ - The ID of the VPC. dvsFilters :: Lens' DescribeVPCs [Filter] -dvsFilters = lens _dvsFilters (\ s a -> s{_dvsFilters = a}) . _Default . _Coerce; +dvsFilters = lens _dvsFilters (\ s a -> s{_dvsFilters = a}) . _Default . _Coerce -- | One or more VPC IDs. Default: Describes all your VPCs. dvsVPCIds :: Lens' DescribeVPCs [Text] -dvsVPCIds = lens _dvsVPCIds (\ s a -> s{_dvsVPCIds = a}) . _Default . _Coerce; +dvsVPCIds = lens _dvsVPCIds (\ s a -> s{_dvsVPCIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvsDryRun :: Lens' DescribeVPCs (Maybe Bool) -dvsDryRun = lens _dvsDryRun (\ s a -> s{_dvsDryRun = a}); +dvsDryRun = lens _dvsDryRun (\ s a -> s{_dvsDryRun = a}) instance AWSRequest DescribeVPCs where type Rs DescribeVPCs = DescribeVPCsResponse @@ -139,15 +139,15 @@ -> DescribeVPCsResponse describeVPCsResponse pResponseStatus_ = DescribeVPCsResponse' - {_dvrsVPCs = Nothing, _dvrsResponseStatus = pResponseStatus_} + {_dvrsVPCs = Nothing, _dvrsResponseStatus = pResponseStatus_} -- | Information about one or more VPCs. dvrsVPCs :: Lens' DescribeVPCsResponse [VPC] -dvrsVPCs = lens _dvrsVPCs (\ s a -> s{_dvrsVPCs = a}) . _Default . _Coerce; +dvrsVPCs = lens _dvrsVPCs (\ s a -> s{_dvrsVPCs = a}) . _Default . _Coerce -- | -- | The response status code. dvrsResponseStatus :: Lens' DescribeVPCsResponse Int -dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a}); +dvrsResponseStatus = lens _dvrsResponseStatus (\ s a -> s{_dvrsResponseStatus = a}) instance NFData DescribeVPCsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPNConnections --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,23 +73,23 @@ :: DescribeVPNConnections describeVPNConnections = DescribeVPNConnections' - { _dvpncFilters = Nothing - , _dvpncVPNConnectionIds = Nothing - , _dvpncDryRun = Nothing - } + { _dvpncFilters = Nothing + , _dvpncVPNConnectionIds = Nothing + , _dvpncDryRun = Nothing + } -- | One or more filters. * @customer-gateway-configuration@ - The configuration information for the customer gateway. * @customer-gateway-id@ - The ID of a customer gateway associated with the VPN connection. * @state@ - The state of the VPN connection (@pending@ | @available@ | @deleting@ | @deleted@ ). * @option.static-routes-only@ - Indicates whether the connection has static routes only. Used for devices that do not support Border Gateway Protocol (BGP). * @route.destination-cidr-block@ - The destination CIDR block. This corresponds to the subnet used in a customer data center. * @bgp-asn@ - The BGP Autonomous System Number (ASN) associated with a BGP device. * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @type@ - The type of VPN connection. Currently the only supported type is @ipsec.1@ . * @vpn-connection-id@ - The ID of the VPN connection. * @vpn-gateway-id@ - The ID of a virtual private gateway associated with the VPN connection. dvpncFilters :: Lens' DescribeVPNConnections [Filter] -dvpncFilters = lens _dvpncFilters (\ s a -> s{_dvpncFilters = a}) . _Default . _Coerce; +dvpncFilters = lens _dvpncFilters (\ s a -> s{_dvpncFilters = a}) . _Default . _Coerce -- | One or more VPN connection IDs. Default: Describes your VPN connections. dvpncVPNConnectionIds :: Lens' DescribeVPNConnections [Text] -dvpncVPNConnectionIds = lens _dvpncVPNConnectionIds (\ s a -> s{_dvpncVPNConnectionIds = a}) . _Default . _Coerce; +dvpncVPNConnectionIds = lens _dvpncVPNConnectionIds (\ s a -> s{_dvpncVPNConnectionIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvpncDryRun :: Lens' DescribeVPNConnections (Maybe Bool) -dvpncDryRun = lens _dvpncDryRun (\ s a -> s{_dvpncDryRun = a}); +dvpncDryRun = lens _dvpncDryRun (\ s a -> s{_dvpncDryRun = a}) instance AWSRequest DescribeVPNConnections where type Rs DescribeVPNConnections = @@ -148,15 +148,15 @@ -> DescribeVPNConnectionsResponse describeVPNConnectionsResponse pResponseStatus_ = DescribeVPNConnectionsResponse' - {_dvcrsVPNConnections = Nothing, _dvcrsResponseStatus = pResponseStatus_} + {_dvcrsVPNConnections = Nothing, _dvcrsResponseStatus = pResponseStatus_} -- | Information about one or more VPN connections. dvcrsVPNConnections :: Lens' DescribeVPNConnectionsResponse [VPNConnection] -dvcrsVPNConnections = lens _dvcrsVPNConnections (\ s a -> s{_dvcrsVPNConnections = a}) . _Default . _Coerce; +dvcrsVPNConnections = lens _dvcrsVPNConnections (\ s a -> s{_dvcrsVPNConnections = a}) . _Default . _Coerce -- | -- | The response status code. dvcrsResponseStatus :: Lens' DescribeVPNConnectionsResponse Int -dvcrsResponseStatus = lens _dvcrsResponseStatus (\ s a -> s{_dvcrsResponseStatus = a}); +dvcrsResponseStatus = lens _dvcrsResponseStatus (\ s a -> s{_dvcrsResponseStatus = a}) instance NFData DescribeVPNConnectionsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVPNGateways --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,23 @@ :: DescribeVPNGateways describeVPNGateways = DescribeVPNGateways' - {_dvgsFilters = Nothing, _dvgsVPNGatewayIds = Nothing, _dvgsDryRun = Nothing} + { _dvgsFilters = Nothing + , _dvgsVPNGatewayIds = Nothing + , _dvgsDryRun = Nothing + } -- | One or more filters. * @amazon-side-asn@ - The Autonomous System Number (ASN) for the Amazon side of the gateway. * @attachment.state@ - The current state of the attachment between the gateway and the VPC (@attaching@ | @attached@ | @detaching@ | @detached@ ). * @attachment.vpc-id@ - The ID of an attached VPC. * @availability-zone@ - The Availability Zone for the virtual private gateway (if applicable). * @state@ - The state of the virtual private gateway (@pending@ | @available@ | @deleting@ | @deleted@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @type@ - The type of virtual private gateway. Currently the only supported type is @ipsec.1@ . * @vpn-gateway-id@ - The ID of the virtual private gateway. dvgsFilters :: Lens' DescribeVPNGateways [Filter] -dvgsFilters = lens _dvgsFilters (\ s a -> s{_dvgsFilters = a}) . _Default . _Coerce; +dvgsFilters = lens _dvgsFilters (\ s a -> s{_dvgsFilters = a}) . _Default . _Coerce -- | One or more virtual private gateway IDs. Default: Describes all your virtual private gateways. dvgsVPNGatewayIds :: Lens' DescribeVPNGateways [Text] -dvgsVPNGatewayIds = lens _dvgsVPNGatewayIds (\ s a -> s{_dvgsVPNGatewayIds = a}) . _Default . _Coerce; +dvgsVPNGatewayIds = lens _dvgsVPNGatewayIds (\ s a -> s{_dvgsVPNGatewayIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvgsDryRun :: Lens' DescribeVPNGateways (Maybe Bool) -dvgsDryRun = lens _dvgsDryRun (\ s a -> s{_dvgsDryRun = a}); +dvgsDryRun = lens _dvgsDryRun (\ s a -> s{_dvgsDryRun = a}) instance AWSRequest DescribeVPNGateways where type Rs DescribeVPNGateways = @@ -143,15 +146,15 @@ -> DescribeVPNGatewaysResponse describeVPNGatewaysResponse pResponseStatus_ = DescribeVPNGatewaysResponse' - {_dvgrsVPNGateways = Nothing, _dvgrsResponseStatus = pResponseStatus_} + {_dvgrsVPNGateways = Nothing, _dvgrsResponseStatus = pResponseStatus_} -- | Information about one or more virtual private gateways. dvgrsVPNGateways :: Lens' DescribeVPNGatewaysResponse [VPNGateway] -dvgrsVPNGateways = lens _dvgrsVPNGateways (\ s a -> s{_dvgrsVPNGateways = a}) . _Default . _Coerce; +dvgrsVPNGateways = lens _dvgrsVPNGateways (\ s a -> s{_dvgrsVPNGateways = a}) . _Default . _Coerce -- | -- | The response status code. dvgrsResponseStatus :: Lens' DescribeVPNGatewaysResponse Int -dvgrsResponseStatus = lens _dvgrsResponseStatus (\ s a -> s{_dvgrsResponseStatus = a}); +dvgrsResponseStatus = lens _dvgrsResponseStatus (\ s a -> s{_dvgrsResponseStatus = a}) instance NFData DescribeVPNGatewaysResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVolumeAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -76,20 +76,20 @@ -> DescribeVolumeAttribute describeVolumeAttribute pVolumeId_ = DescribeVolumeAttribute' - {_dvaAttribute = Nothing, _dvaDryRun = Nothing, _dvaVolumeId = pVolumeId_} + {_dvaAttribute = Nothing, _dvaDryRun = Nothing, _dvaVolumeId = pVolumeId_} -- | The attribute of the volume. This parameter is required. dvaAttribute :: Lens' DescribeVolumeAttribute (Maybe VolumeAttributeName) -dvaAttribute = lens _dvaAttribute (\ s a -> s{_dvaAttribute = a}); +dvaAttribute = lens _dvaAttribute (\ s a -> s{_dvaAttribute = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvaDryRun :: Lens' DescribeVolumeAttribute (Maybe Bool) -dvaDryRun = lens _dvaDryRun (\ s a -> s{_dvaDryRun = a}); +dvaDryRun = lens _dvaDryRun (\ s a -> s{_dvaDryRun = a}) -- | The ID of the volume. dvaVolumeId :: Lens' DescribeVolumeAttribute Text -dvaVolumeId = lens _dvaVolumeId (\ s a -> s{_dvaVolumeId = a}); +dvaVolumeId = lens _dvaVolumeId (\ s a -> s{_dvaVolumeId = a}) instance AWSRequest DescribeVolumeAttribute where type Rs DescribeVolumeAttribute = @@ -153,27 +153,27 @@ -> DescribeVolumeAttributeResponse describeVolumeAttributeResponse pResponseStatus_ = DescribeVolumeAttributeResponse' - { _dvarsVolumeId = Nothing - , _dvarsProductCodes = Nothing - , _dvarsAutoEnableIO = Nothing - , _dvarsResponseStatus = pResponseStatus_ - } + { _dvarsVolumeId = Nothing + , _dvarsProductCodes = Nothing + , _dvarsAutoEnableIO = Nothing + , _dvarsResponseStatus = pResponseStatus_ + } -- | The ID of the volume. dvarsVolumeId :: Lens' DescribeVolumeAttributeResponse (Maybe Text) -dvarsVolumeId = lens _dvarsVolumeId (\ s a -> s{_dvarsVolumeId = a}); +dvarsVolumeId = lens _dvarsVolumeId (\ s a -> s{_dvarsVolumeId = a}) -- | A list of product codes. dvarsProductCodes :: Lens' DescribeVolumeAttributeResponse [ProductCode] -dvarsProductCodes = lens _dvarsProductCodes (\ s a -> s{_dvarsProductCodes = a}) . _Default . _Coerce; +dvarsProductCodes = lens _dvarsProductCodes (\ s a -> s{_dvarsProductCodes = a}) . _Default . _Coerce -- | The state of @autoEnableIO@ attribute. dvarsAutoEnableIO :: Lens' DescribeVolumeAttributeResponse (Maybe AttributeBooleanValue) -dvarsAutoEnableIO = lens _dvarsAutoEnableIO (\ s a -> s{_dvarsAutoEnableIO = a}); +dvarsAutoEnableIO = lens _dvarsAutoEnableIO (\ s a -> s{_dvarsAutoEnableIO = a}) -- | -- | The response status code. dvarsResponseStatus :: Lens' DescribeVolumeAttributeResponse Int -dvarsResponseStatus = lens _dvarsResponseStatus (\ s a -> s{_dvarsResponseStatus = a}); +dvarsResponseStatus = lens _dvarsResponseStatus (\ s a -> s{_dvarsResponseStatus = a}) instance NFData DescribeVolumeAttributeResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVolumeStatus --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -91,33 +91,33 @@ :: DescribeVolumeStatus describeVolumeStatus = DescribeVolumeStatus' - { _dvssFilters = Nothing - , _dvssVolumeIds = Nothing - , _dvssNextToken = Nothing - , _dvssDryRun = Nothing - , _dvssMaxResults = Nothing - } + { _dvssFilters = Nothing + , _dvssVolumeIds = Nothing + , _dvssNextToken = Nothing + , _dvssDryRun = Nothing + , _dvssMaxResults = Nothing + } -- | One or more filters. * @action.code@ - The action code for the event (for example, @enable-volume-io@ ). * @action.description@ - A description of the action. * @action.event-id@ - The event ID associated with the action. * @availability-zone@ - The Availability Zone of the instance. * @event.description@ - A description of the event. * @event.event-id@ - The event ID. * @event.event-type@ - The event type (for @io-enabled@ : @passed@ | @failed@ ; for @io-performance@ : @io-performance:degraded@ | @io-performance:severely-degraded@ | @io-performance:stalled@ ). * @event.not-after@ - The latest end time for the event. * @event.not-before@ - The earliest start time for the event. * @volume-status.details-name@ - The cause for @volume-status.status@ (@io-enabled@ | @io-performance@ ). * @volume-status.details-status@ - The status of @volume-status.details-name@ (for @io-enabled@ : @passed@ | @failed@ ; for @io-performance@ : @normal@ | @degraded@ | @severely-degraded@ | @stalled@ ). * @volume-status.status@ - The status of the volume (@ok@ | @impaired@ | @warning@ | @insufficient-data@ ). dvssFilters :: Lens' DescribeVolumeStatus [Filter] -dvssFilters = lens _dvssFilters (\ s a -> s{_dvssFilters = a}) . _Default . _Coerce; +dvssFilters = lens _dvssFilters (\ s a -> s{_dvssFilters = a}) . _Default . _Coerce -- | One or more volume IDs. Default: Describes all your volumes. dvssVolumeIds :: Lens' DescribeVolumeStatus [Text] -dvssVolumeIds = lens _dvssVolumeIds (\ s a -> s{_dvssVolumeIds = a}) . _Default . _Coerce; +dvssVolumeIds = lens _dvssVolumeIds (\ s a -> s{_dvssVolumeIds = a}) . _Default . _Coerce -- | The @NextToken@ value to include in a future @DescribeVolumeStatus@ request. When the results of the request exceed @MaxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. dvssNextToken :: Lens' DescribeVolumeStatus (Maybe Text) -dvssNextToken = lens _dvssNextToken (\ s a -> s{_dvssNextToken = a}); +dvssNextToken = lens _dvssNextToken (\ s a -> s{_dvssNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvssDryRun :: Lens' DescribeVolumeStatus (Maybe Bool) -dvssDryRun = lens _dvssDryRun (\ s a -> s{_dvssDryRun = a}); +dvssDryRun = lens _dvssDryRun (\ s a -> s{_dvssDryRun = a}) -- | The maximum number of volume results returned by @DescribeVolumeStatus@ in paginated output. When this parameter is used, the request only returns @MaxResults@ results in a single page along with a @NextToken@ response element. The remaining results of the initial request can be seen by sending another request with the returned @NextToken@ value. This value can be between 5 and 1000; if @MaxResults@ is given a value larger than 1000, only 1000 results are returned. If this parameter is not used, then @DescribeVolumeStatus@ returns all results. You cannot specify this parameter and the volume IDs parameter in the same request. dvssMaxResults :: Lens' DescribeVolumeStatus (Maybe Int) -dvssMaxResults = lens _dvssMaxResults (\ s a -> s{_dvssMaxResults = a}); +dvssMaxResults = lens _dvssMaxResults (\ s a -> s{_dvssMaxResults = a}) instance AWSPager DescribeVolumeStatus where page rq rs @@ -186,22 +186,22 @@ -> DescribeVolumeStatusResponse describeVolumeStatusResponse pResponseStatus_ = DescribeVolumeStatusResponse' - { _dvsrsNextToken = Nothing - , _dvsrsVolumeStatuses = Nothing - , _dvsrsResponseStatus = pResponseStatus_ - } + { _dvsrsNextToken = Nothing + , _dvsrsVolumeStatuses = Nothing + , _dvsrsResponseStatus = pResponseStatus_ + } -- | The token to use to retrieve the next page of results. This value is @null@ when there are no more results to return. dvsrsNextToken :: Lens' DescribeVolumeStatusResponse (Maybe Text) -dvsrsNextToken = lens _dvsrsNextToken (\ s a -> s{_dvsrsNextToken = a}); +dvsrsNextToken = lens _dvsrsNextToken (\ s a -> s{_dvsrsNextToken = a}) -- | A list of volumes. dvsrsVolumeStatuses :: Lens' DescribeVolumeStatusResponse [VolumeStatusItem] -dvsrsVolumeStatuses = lens _dvsrsVolumeStatuses (\ s a -> s{_dvsrsVolumeStatuses = a}) . _Default . _Coerce; +dvsrsVolumeStatuses = lens _dvsrsVolumeStatuses (\ s a -> s{_dvsrsVolumeStatuses = a}) . _Default . _Coerce -- | -- | The response status code. dvsrsResponseStatus :: Lens' DescribeVolumeStatusResponse Int -dvsrsResponseStatus = lens _dvsrsResponseStatus (\ s a -> s{_dvsrsResponseStatus = a}); +dvsrsResponseStatus = lens _dvsrsResponseStatus (\ s a -> s{_dvsrsResponseStatus = a}) instance NFData DescribeVolumeStatusResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVolumes --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -74,7 +74,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'desFilters' - One or more filters. * @attachment.attach-time@ - The time stamp when the attachment initiated. * @attachment.delete-on-termination@ - Whether the volume is deleted on instance termination. * @attachment.device@ - The device name specified in the block device mapping (for example, @/dev/sda1@ ). * @attachment.instance-id@ - The ID of the instance the volume is attached to. * @attachment.status@ - The attachment state (@attaching@ | @attached@ | @detaching@ | @detached@ ). * @availability-zone@ - The Availability Zone in which the volume was created. * @create-time@ - The time stamp when the volume was created. * @encrypted@ - The encryption status of the volume. * @size@ - The size of the volume, in GiB. * @snapshot-id@ - The snapshot from which the volume was created. * @status@ - The status of the volume (@creating@ | @available@ | @in-use@ | @deleting@ | @deleted@ | @error@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @volume-id@ - The volume ID. * @volume-type@ - The Amazon EBS volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. +-- * 'desFilters' - One or more filters. * @attachment.attach-time@ - The time stamp when the attachment initiated. * @attachment.delete-on-termination@ - Whether the volume is deleted on instance termination. * @attachment.device@ - The device name specified in the block device mapping (for example, @/dev/sda1@ ). * @attachment.instance-id@ - The ID of the instance the volume is attached to. * @attachment.status@ - The attachment state (@attaching@ | @attached@ | @detaching@ ). * @availability-zone@ - The Availability Zone in which the volume was created. * @create-time@ - The time stamp when the volume was created. * @encrypted@ - The encryption status of the volume. * @size@ - The size of the volume, in GiB. * @snapshot-id@ - The snapshot from which the volume was created. * @status@ - The status of the volume (@creating@ | @available@ | @in-use@ | @deleting@ | @deleted@ | @error@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @volume-id@ - The volume ID. * @volume-type@ - The Amazon EBS volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. -- -- * 'desVolumeIds' - One or more volume IDs. -- @@ -87,33 +87,33 @@ :: DescribeVolumes describeVolumes = DescribeVolumes' - { _desFilters = Nothing - , _desVolumeIds = Nothing - , _desNextToken = Nothing - , _desDryRun = Nothing - , _desMaxResults = Nothing - } + { _desFilters = Nothing + , _desVolumeIds = Nothing + , _desNextToken = Nothing + , _desDryRun = Nothing + , _desMaxResults = Nothing + } --- | One or more filters. * @attachment.attach-time@ - The time stamp when the attachment initiated. * @attachment.delete-on-termination@ - Whether the volume is deleted on instance termination. * @attachment.device@ - The device name specified in the block device mapping (for example, @/dev/sda1@ ). * @attachment.instance-id@ - The ID of the instance the volume is attached to. * @attachment.status@ - The attachment state (@attaching@ | @attached@ | @detaching@ | @detached@ ). * @availability-zone@ - The Availability Zone in which the volume was created. * @create-time@ - The time stamp when the volume was created. * @encrypted@ - The encryption status of the volume. * @size@ - The size of the volume, in GiB. * @snapshot-id@ - The snapshot from which the volume was created. * @status@ - The status of the volume (@creating@ | @available@ | @in-use@ | @deleting@ | @deleted@ | @error@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @volume-id@ - The volume ID. * @volume-type@ - The Amazon EBS volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. +-- | One or more filters. * @attachment.attach-time@ - The time stamp when the attachment initiated. * @attachment.delete-on-termination@ - Whether the volume is deleted on instance termination. * @attachment.device@ - The device name specified in the block device mapping (for example, @/dev/sda1@ ). * @attachment.instance-id@ - The ID of the instance the volume is attached to. * @attachment.status@ - The attachment state (@attaching@ | @attached@ | @detaching@ ). * @availability-zone@ - The Availability Zone in which the volume was created. * @create-time@ - The time stamp when the volume was created. * @encrypted@ - The encryption status of the volume. * @size@ - The size of the volume, in GiB. * @snapshot-id@ - The snapshot from which the volume was created. * @status@ - The status of the volume (@creating@ | @available@ | @in-use@ | @deleting@ | @deleted@ | @error@ ). * @tag@ :/key/ =/value/ - The key/value combination of a tag assigned to the resource. Specify the key of the tag in the filter name and the value of the tag in the filter value. For example, for the tag Purpose=X, specify @tag:Purpose@ for the filter name and @X@ for the filter value. * @tag-key@ - The key of a tag assigned to the resource. This filter is independent of the @tag-value@ filter. For example, if you use both the filter "tag-key=Purpose" and the filter "tag-value=X", you get any resources assigned both the tag key Purpose (regardless of what the tag's value is), and the tag value X (regardless of what the tag's key is). If you want to list only resources where Purpose is X, see the @tag@ :/key/ =/value/ filter. * @tag-value@ - The value of a tag assigned to the resource. This filter is independent of the @tag-key@ filter. * @volume-id@ - The volume ID. * @volume-type@ - The Amazon EBS volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. desFilters :: Lens' DescribeVolumes [Filter] -desFilters = lens _desFilters (\ s a -> s{_desFilters = a}) . _Default . _Coerce; +desFilters = lens _desFilters (\ s a -> s{_desFilters = a}) . _Default . _Coerce -- | One or more volume IDs. desVolumeIds :: Lens' DescribeVolumes [Text] -desVolumeIds = lens _desVolumeIds (\ s a -> s{_desVolumeIds = a}) . _Default . _Coerce; +desVolumeIds = lens _desVolumeIds (\ s a -> s{_desVolumeIds = a}) . _Default . _Coerce -- | The @NextToken@ value returned from a previous paginated @DescribeVolumes@ request where @MaxResults@ was used and the results exceeded the value of that parameter. Pagination continues from the end of the previous results that returned the @NextToken@ value. This value is @null@ when there are no more results to return. desNextToken :: Lens' DescribeVolumes (Maybe Text) -desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a}); +desNextToken = lens _desNextToken (\ s a -> s{_desNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . desDryRun :: Lens' DescribeVolumes (Maybe Bool) -desDryRun = lens _desDryRun (\ s a -> s{_desDryRun = a}); +desDryRun = lens _desDryRun (\ s a -> s{_desDryRun = a}) -- | The maximum number of volume results returned by @DescribeVolumes@ in paginated output. When this parameter is used, @DescribeVolumes@ only returns @MaxResults@ results in a single page along with a @NextToken@ response element. The remaining results of the initial request can be seen by sending another @DescribeVolumes@ request with the returned @NextToken@ value. This value can be between 5 and 500; if @MaxResults@ is given a value larger than 500, only 500 results are returned. If this parameter is not used, then @DescribeVolumes@ returns all results. You cannot specify this parameter and the volume IDs parameter in the same request. desMaxResults :: Lens' DescribeVolumes (Maybe Int) -desMaxResults = lens _desMaxResults (\ s a -> s{_desMaxResults = a}); +desMaxResults = lens _desMaxResults (\ s a -> s{_desMaxResults = a}) instance AWSPager DescribeVolumes where page rq rs @@ -180,22 +180,22 @@ -> DescribeVolumesResponse describeVolumesResponse pResponseStatus_ = DescribeVolumesResponse' - { _dvvrsNextToken = Nothing - , _dvvrsVolumes = Nothing - , _dvvrsResponseStatus = pResponseStatus_ - } + { _dvvrsNextToken = Nothing + , _dvvrsVolumes = Nothing + , _dvvrsResponseStatus = pResponseStatus_ + } -- | The @NextToken@ value to include in a future @DescribeVolumes@ request. When the results of a @DescribeVolumes@ request exceed @MaxResults@ , this value can be used to retrieve the next page of results. This value is @null@ when there are no more results to return. dvvrsNextToken :: Lens' DescribeVolumesResponse (Maybe Text) -dvvrsNextToken = lens _dvvrsNextToken (\ s a -> s{_dvvrsNextToken = a}); +dvvrsNextToken = lens _dvvrsNextToken (\ s a -> s{_dvvrsNextToken = a}) -- | Information about the volumes. dvvrsVolumes :: Lens' DescribeVolumesResponse [Volume] -dvvrsVolumes = lens _dvvrsVolumes (\ s a -> s{_dvvrsVolumes = a}) . _Default . _Coerce; +dvvrsVolumes = lens _dvvrsVolumes (\ s a -> s{_dvvrsVolumes = a}) . _Default . _Coerce -- | -- | The response status code. dvvrsResponseStatus :: Lens' DescribeVolumesResponse Int -dvvrsResponseStatus = lens _dvvrsResponseStatus (\ s a -> s{_dvvrsResponseStatus = a}); +dvvrsResponseStatus = lens _dvvrsResponseStatus (\ s a -> s{_dvvrsResponseStatus = a}) instance NFData DescribeVolumesResponse where diff --git a/gen/Network/AWS/EC2/DescribeVolumesModifications.hs b/gen/Network/AWS/EC2/DescribeVolumesModifications.hs --- a/gen/Network/AWS/EC2/DescribeVolumesModifications.hs +++ b/gen/Network/AWS/EC2/DescribeVolumesModifications.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DescribeVolumesModifications --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -80,33 +80,33 @@ :: DescribeVolumesModifications describeVolumesModifications = DescribeVolumesModifications' - { _dvmFilters = Nothing - , _dvmVolumeIds = Nothing - , _dvmNextToken = Nothing - , _dvmDryRun = Nothing - , _dvmMaxResults = Nothing - } + { _dvmFilters = Nothing + , _dvmVolumeIds = Nothing + , _dvmNextToken = Nothing + , _dvmDryRun = Nothing + , _dvmMaxResults = Nothing + } -- | One or more filters. Supported filters: @volume-id@ , @modification-state@ , @target-size@ , @target-iops@ , @target-volume-type@ , @original-size@ , @original-iops@ , @original-volume-type@ , @start-time@ . dvmFilters :: Lens' DescribeVolumesModifications [Filter] -dvmFilters = lens _dvmFilters (\ s a -> s{_dvmFilters = a}) . _Default . _Coerce; +dvmFilters = lens _dvmFilters (\ s a -> s{_dvmFilters = a}) . _Default . _Coerce -- | One or more volume IDs for which in-progress modifications will be described. dvmVolumeIds :: Lens' DescribeVolumesModifications [Text] -dvmVolumeIds = lens _dvmVolumeIds (\ s a -> s{_dvmVolumeIds = a}) . _Default . _Coerce; +dvmVolumeIds = lens _dvmVolumeIds (\ s a -> s{_dvmVolumeIds = a}) . _Default . _Coerce -- | The @nextToken@ value returned by a previous paginated request. dvmNextToken :: Lens' DescribeVolumesModifications (Maybe Text) -dvmNextToken = lens _dvmNextToken (\ s a -> s{_dvmNextToken = a}); +dvmNextToken = lens _dvmNextToken (\ s a -> s{_dvmNextToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvmDryRun :: Lens' DescribeVolumesModifications (Maybe Bool) -dvmDryRun = lens _dvmDryRun (\ s a -> s{_dvmDryRun = a}); +dvmDryRun = lens _dvmDryRun (\ s a -> s{_dvmDryRun = a}) -- | The maximum number of results (up to a limit of 500) to be returned in a paginated request. dvmMaxResults :: Lens' DescribeVolumesModifications (Maybe Int) -dvmMaxResults = lens _dvmMaxResults (\ s a -> s{_dvmMaxResults = a}); +dvmMaxResults = lens _dvmMaxResults (\ s a -> s{_dvmMaxResults = a}) instance AWSRequest DescribeVolumesModifications where @@ -165,23 +165,23 @@ -> DescribeVolumesModificationsResponse describeVolumesModificationsResponse pResponseStatus_ = DescribeVolumesModificationsResponse' - { _dvmrsVolumesModifications = Nothing - , _dvmrsNextToken = Nothing - , _dvmrsResponseStatus = pResponseStatus_ - } + { _dvmrsVolumesModifications = Nothing + , _dvmrsNextToken = Nothing + , _dvmrsResponseStatus = pResponseStatus_ + } -- | A list of returned 'VolumeModification' objects. dvmrsVolumesModifications :: Lens' DescribeVolumesModificationsResponse [VolumeModification] -dvmrsVolumesModifications = lens _dvmrsVolumesModifications (\ s a -> s{_dvmrsVolumesModifications = a}) . _Default . _Coerce; +dvmrsVolumesModifications = lens _dvmrsVolumesModifications (\ s a -> s{_dvmrsVolumesModifications = a}) . _Default . _Coerce -- | Token for pagination, null if there are no more results dvmrsNextToken :: Lens' DescribeVolumesModificationsResponse (Maybe Text) -dvmrsNextToken = lens _dvmrsNextToken (\ s a -> s{_dvmrsNextToken = a}); +dvmrsNextToken = lens _dvmrsNextToken (\ s a -> s{_dvmrsNextToken = a}) -- | -- | The response status code. dvmrsResponseStatus :: Lens' DescribeVolumesModificationsResponse Int -dvmrsResponseStatus = lens _dvmrsResponseStatus (\ s a -> s{_dvmrsResponseStatus = a}); +dvmrsResponseStatus = lens _dvmrsResponseStatus (\ s a -> s{_dvmrsResponseStatus = a}) instance NFData DescribeVolumesModificationsResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DetachClassicLinkVPC --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,23 @@ -> DetachClassicLinkVPC detachClassicLinkVPC pInstanceId_ pVPCId_ = DetachClassicLinkVPC' - {_dclvDryRun = Nothing, _dclvInstanceId = pInstanceId_, _dclvVPCId = pVPCId_} + { _dclvDryRun = Nothing + , _dclvInstanceId = pInstanceId_ + , _dclvVPCId = pVPCId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dclvDryRun :: Lens' DetachClassicLinkVPC (Maybe Bool) -dclvDryRun = lens _dclvDryRun (\ s a -> s{_dclvDryRun = a}); +dclvDryRun = lens _dclvDryRun (\ s a -> s{_dclvDryRun = a}) -- | The ID of the instance to unlink from the VPC. dclvInstanceId :: Lens' DetachClassicLinkVPC Text -dclvInstanceId = lens _dclvInstanceId (\ s a -> s{_dclvInstanceId = a}); +dclvInstanceId = lens _dclvInstanceId (\ s a -> s{_dclvInstanceId = a}) -- | The ID of the VPC to which the instance is linked. dclvVPCId :: Lens' DetachClassicLinkVPC Text -dclvVPCId = lens _dclvVPCId (\ s a -> s{_dclvVPCId = a}); +dclvVPCId = lens _dclvVPCId (\ s a -> s{_dclvVPCId = a}) instance AWSRequest DetachClassicLinkVPC where type Rs DetachClassicLinkVPC = @@ -140,15 +143,15 @@ -> DetachClassicLinkVPCResponse detachClassicLinkVPCResponse pResponseStatus_ = DetachClassicLinkVPCResponse' - {_dclvrsReturn = Nothing, _dclvrsResponseStatus = pResponseStatus_} + {_dclvrsReturn = Nothing, _dclvrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. dclvrsReturn :: Lens' DetachClassicLinkVPCResponse (Maybe Bool) -dclvrsReturn = lens _dclvrsReturn (\ s a -> s{_dclvrsReturn = a}); +dclvrsReturn = lens _dclvrsReturn (\ s a -> s{_dclvrsReturn = a}) -- | -- | The response status code. dclvrsResponseStatus :: Lens' DetachClassicLinkVPCResponse Int -dclvrsResponseStatus = lens _dclvrsResponseStatus (\ s a -> s{_dclvrsResponseStatus = a}); +dclvrsResponseStatus = lens _dclvrsResponseStatus (\ s a -> s{_dclvrsResponseStatus = a}) instance NFData DetachClassicLinkVPCResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DetachInternetGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -70,23 +70,23 @@ -> DetachInternetGateway detachInternetGateway pInternetGatewayId_ pVPCId_ = DetachInternetGateway' - { _digDryRun = Nothing - , _digInternetGatewayId = pInternetGatewayId_ - , _digVPCId = pVPCId_ - } + { _digDryRun = Nothing + , _digInternetGatewayId = pInternetGatewayId_ + , _digVPCId = pVPCId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . digDryRun :: Lens' DetachInternetGateway (Maybe Bool) -digDryRun = lens _digDryRun (\ s a -> s{_digDryRun = a}); +digDryRun = lens _digDryRun (\ s a -> s{_digDryRun = a}) -- | The ID of the Internet gateway. digInternetGatewayId :: Lens' DetachInternetGateway Text -digInternetGatewayId = lens _digInternetGatewayId (\ s a -> s{_digInternetGatewayId = a}); +digInternetGatewayId = lens _digInternetGatewayId (\ s a -> s{_digInternetGatewayId = a}) -- | The ID of the VPC. digVPCId :: Lens' DetachInternetGateway Text -digVPCId = lens _digVPCId (\ s a -> s{_digVPCId = a}); +digVPCId = lens _digVPCId (\ s a -> s{_digVPCId = a}) instance AWSRequest DetachInternetGateway where type Rs DetachInternetGateway = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DetachNetworkInterface --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,20 +69,23 @@ -> DetachNetworkInterface detachNetworkInterface pAttachmentId_ = DetachNetworkInterface' - {_dniForce = Nothing, _dniDryRun = Nothing, _dniAttachmentId = pAttachmentId_} + { _dniForce = Nothing + , _dniDryRun = Nothing + , _dniAttachmentId = pAttachmentId_ + } -- | Specifies whether to force a detachment. dniForce :: Lens' DetachNetworkInterface (Maybe Bool) -dniForce = lens _dniForce (\ s a -> s{_dniForce = a}); +dniForce = lens _dniForce (\ s a -> s{_dniForce = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dniDryRun :: Lens' DetachNetworkInterface (Maybe Bool) -dniDryRun = lens _dniDryRun (\ s a -> s{_dniDryRun = a}); +dniDryRun = lens _dniDryRun (\ s a -> s{_dniDryRun = a}) -- | The ID of the attachment. dniAttachmentId :: Lens' DetachNetworkInterface Text -dniAttachmentId = lens _dniAttachmentId (\ s a -> s{_dniAttachmentId = a}); +dniAttachmentId = lens _dniAttachmentId (\ s a -> s{_dniAttachmentId = a}) instance AWSRequest DetachNetworkInterface where type Rs DetachNetworkInterface = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DetachVPNGateway --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,23 +72,23 @@ -> DetachVPNGateway detachVPNGateway pVPCId_ pVPNGatewayId_ = DetachVPNGateway' - { _dvpngDryRun = Nothing - , _dvpngVPCId = pVPCId_ - , _dvpngVPNGatewayId = pVPNGatewayId_ - } + { _dvpngDryRun = Nothing + , _dvpngVPCId = pVPCId_ + , _dvpngVPNGatewayId = pVPNGatewayId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvpngDryRun :: Lens' DetachVPNGateway (Maybe Bool) -dvpngDryRun = lens _dvpngDryRun (\ s a -> s{_dvpngDryRun = a}); +dvpngDryRun = lens _dvpngDryRun (\ s a -> s{_dvpngDryRun = a}) -- | The ID of the VPC. dvpngVPCId :: Lens' DetachVPNGateway Text -dvpngVPCId = lens _dvpngVPCId (\ s a -> s{_dvpngVPCId = a}); +dvpngVPCId = lens _dvpngVPCId (\ s a -> s{_dvpngVPCId = a}) -- | The ID of the virtual private gateway. dvpngVPNGatewayId :: Lens' DetachVPNGateway Text -dvpngVPNGatewayId = lens _dvpngVPNGatewayId (\ s a -> s{_dvpngVPNGatewayId = a}); +dvpngVPNGatewayId = lens _dvpngVPNGatewayId (\ s a -> s{_dvpngVPNGatewayId = a}) instance AWSRequest DetachVPNGateway where type Rs DetachVPNGateway = DetachVPNGatewayResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DetachVolume --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -88,33 +88,33 @@ -> DetachVolume detachVolume pVolumeId_ = DetachVolume' - { _dvInstanceId = Nothing - , _dvForce = Nothing - , _dvDevice = Nothing - , _dvDryRun = Nothing - , _dvVolumeId = pVolumeId_ - } + { _dvInstanceId = Nothing + , _dvForce = Nothing + , _dvDevice = Nothing + , _dvDryRun = Nothing + , _dvVolumeId = pVolumeId_ + } -- | The ID of the instance. dvInstanceId :: Lens' DetachVolume (Maybe Text) -dvInstanceId = lens _dvInstanceId (\ s a -> s{_dvInstanceId = a}); +dvInstanceId = lens _dvInstanceId (\ s a -> s{_dvInstanceId = a}) -- | Forces detachment if the previous detachment attempt did not occur cleanly (for example, logging into an instance, unmounting the volume, and detaching normally). This option can lead to data loss or a corrupted file system. Use this option only as a last resort to detach a volume from a failed instance. The instance won't have an opportunity to flush file system caches or file system metadata. If you use this option, you must perform file system check and repair procedures. dvForce :: Lens' DetachVolume (Maybe Bool) -dvForce = lens _dvForce (\ s a -> s{_dvForce = a}); +dvForce = lens _dvForce (\ s a -> s{_dvForce = a}) -- | The device name. dvDevice :: Lens' DetachVolume (Maybe Text) -dvDevice = lens _dvDevice (\ s a -> s{_dvDevice = a}); +dvDevice = lens _dvDevice (\ s a -> s{_dvDevice = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvDryRun :: Lens' DetachVolume (Maybe Bool) -dvDryRun = lens _dvDryRun (\ s a -> s{_dvDryRun = a}); +dvDryRun = lens _dvDryRun (\ s a -> s{_dvDryRun = a}) -- | The ID of the volume. dvVolumeId :: Lens' DetachVolume Text -dvVolumeId = lens _dvVolumeId (\ s a -> s{_dvVolumeId = a}); +dvVolumeId = lens _dvVolumeId (\ s a -> s{_dvVolumeId = a}) instance AWSRequest DetachVolume where type Rs DetachVolume = VolumeAttachment 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisableVGWRoutePropagation --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,16 +66,16 @@ -> DisableVGWRoutePropagation disableVGWRoutePropagation pGatewayId_ pRouteTableId_ = DisableVGWRoutePropagation' - {_dvrpGatewayId = pGatewayId_, _dvrpRouteTableId = pRouteTableId_} + {_dvrpGatewayId = pGatewayId_, _dvrpRouteTableId = pRouteTableId_} -- | The ID of the virtual private gateway. dvrpGatewayId :: Lens' DisableVGWRoutePropagation Text -dvrpGatewayId = lens _dvrpGatewayId (\ s a -> s{_dvrpGatewayId = a}); +dvrpGatewayId = lens _dvrpGatewayId (\ s a -> s{_dvrpGatewayId = a}) -- | The ID of the route table. dvrpRouteTableId :: Lens' DisableVGWRoutePropagation Text -dvrpRouteTableId = lens _dvrpRouteTableId (\ s a -> s{_dvrpRouteTableId = a}); +dvrpRouteTableId = lens _dvrpRouteTableId (\ s a -> s{_dvrpRouteTableId = a}) instance AWSRequest DisableVGWRoutePropagation where type Rs DisableVGWRoutePropagation = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisableVPCClassicLink --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,11 +72,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dvpcclDryRun :: Lens' DisableVPCClassicLink (Maybe Bool) -dvpcclDryRun = lens _dvpcclDryRun (\ s a -> s{_dvpcclDryRun = a}); +dvpcclDryRun = lens _dvpcclDryRun (\ s a -> s{_dvpcclDryRun = a}) -- | The ID of the VPC. dvpcclVPCId :: Lens' DisableVPCClassicLink Text -dvpcclVPCId = lens _dvpcclVPCId (\ s a -> s{_dvpcclVPCId = a}); +dvpcclVPCId = lens _dvpcclVPCId (\ s a -> s{_dvpcclVPCId = a}) instance AWSRequest DisableVPCClassicLink where type Rs DisableVPCClassicLink = @@ -128,15 +128,15 @@ -> DisableVPCClassicLinkResponse disableVPCClassicLinkResponse pResponseStatus_ = DisableVPCClassicLinkResponse' - {_dvpcclrsReturn = Nothing, _dvpcclrsResponseStatus = pResponseStatus_} + {_dvpcclrsReturn = Nothing, _dvpcclrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. dvpcclrsReturn :: Lens' DisableVPCClassicLinkResponse (Maybe Bool) -dvpcclrsReturn = lens _dvpcclrsReturn (\ s a -> s{_dvpcclrsReturn = a}); +dvpcclrsReturn = lens _dvpcclrsReturn (\ s a -> s{_dvpcclrsReturn = a}) -- | -- | The response status code. dvpcclrsResponseStatus :: Lens' DisableVPCClassicLinkResponse Int -dvpcclrsResponseStatus = lens _dvpcclrsResponseStatus (\ s a -> s{_dvpcclrsResponseStatus = a}); +dvpcclrsResponseStatus = lens _dvpcclrsResponseStatus (\ s a -> s{_dvpcclrsResponseStatus = a}) instance NFData DisableVPCClassicLinkResponse where diff --git a/gen/Network/AWS/EC2/DisableVPCClassicLinkDNSSupport.hs b/gen/Network/AWS/EC2/DisableVPCClassicLinkDNSSupport.hs --- a/gen/Network/AWS/EC2/DisableVPCClassicLinkDNSSupport.hs +++ b/gen/Network/AWS/EC2/DisableVPCClassicLinkDNSSupport.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisableVPCClassicLinkDNSSupport --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,7 +67,7 @@ -- | The ID of the VPC. dvcldsVPCId :: Lens' DisableVPCClassicLinkDNSSupport (Maybe Text) -dvcldsVPCId = lens _dvcldsVPCId (\ s a -> s{_dvcldsVPCId = a}); +dvcldsVPCId = lens _dvcldsVPCId (\ s a -> s{_dvcldsVPCId = a}) instance AWSRequest DisableVPCClassicLinkDNSSupport where @@ -124,16 +124,16 @@ -> DisableVPCClassicLinkDNSSupportResponse disableVPCClassicLinkDNSSupportResponse pResponseStatus_ = DisableVPCClassicLinkDNSSupportResponse' - {_dvcldsrsReturn = Nothing, _dvcldsrsResponseStatus = pResponseStatus_} + {_dvcldsrsReturn = Nothing, _dvcldsrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. dvcldsrsReturn :: Lens' DisableVPCClassicLinkDNSSupportResponse (Maybe Bool) -dvcldsrsReturn = lens _dvcldsrsReturn (\ s a -> s{_dvcldsrsReturn = a}); +dvcldsrsReturn = lens _dvcldsrsReturn (\ s a -> s{_dvcldsrsReturn = a}) -- | -- | The response status code. dvcldsrsResponseStatus :: Lens' DisableVPCClassicLinkDNSSupportResponse Int -dvcldsrsResponseStatus = lens _dvcldsrsResponseStatus (\ s a -> s{_dvcldsrsResponseStatus = a}); +dvcldsrsResponseStatus = lens _dvcldsrsResponseStatus (\ s a -> s{_dvcldsrsResponseStatus = a}) instance NFData DisableVPCClassicLinkDNSSupportResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisassociateAddress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,20 +72,20 @@ :: DisassociateAddress disassociateAddress = DisassociateAddress' - {_dasAssociationId = Nothing, _dasPublicIP = Nothing, _dasDryRun = Nothing} + {_dasAssociationId = Nothing, _dasPublicIP = Nothing, _dasDryRun = Nothing} -- | [EC2-VPC] The association ID. Required for EC2-VPC. dasAssociationId :: Lens' DisassociateAddress (Maybe Text) -dasAssociationId = lens _dasAssociationId (\ s a -> s{_dasAssociationId = a}); +dasAssociationId = lens _dasAssociationId (\ s a -> s{_dasAssociationId = a}) -- | [EC2-Classic] The Elastic IP address. Required for EC2-Classic. dasPublicIP :: Lens' DisassociateAddress (Maybe Text) -dasPublicIP = lens _dasPublicIP (\ s a -> s{_dasPublicIP = a}); +dasPublicIP = lens _dasPublicIP (\ s a -> s{_dasPublicIP = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . dasDryRun :: Lens' DisassociateAddress (Maybe Bool) -dasDryRun = lens _dasDryRun (\ s a -> s{_dasDryRun = a}); +dasDryRun = lens _dasDryRun (\ s a -> s{_dasDryRun = a}) instance AWSRequest DisassociateAddress where type Rs DisassociateAddress = diff --git a/gen/Network/AWS/EC2/DisassociateIAMInstanceProfile.hs b/gen/Network/AWS/EC2/DisassociateIAMInstanceProfile.hs --- a/gen/Network/AWS/EC2/DisassociateIAMInstanceProfile.hs +++ b/gen/Network/AWS/EC2/DisassociateIAMInstanceProfile.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisassociateIAMInstanceProfile --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,7 +66,7 @@ -- | The ID of the IAM instance profile association. diapAssociationId :: Lens' DisassociateIAMInstanceProfile Text -diapAssociationId = lens _diapAssociationId (\ s a -> s{_diapAssociationId = a}); +diapAssociationId = lens _diapAssociationId (\ s a -> s{_diapAssociationId = a}) instance AWSRequest DisassociateIAMInstanceProfile where @@ -119,18 +119,18 @@ -> DisassociateIAMInstanceProfileResponse disassociateIAMInstanceProfileResponse pResponseStatus_ = DisassociateIAMInstanceProfileResponse' - { _diaprsIAMInstanceProfileAssociation = Nothing - , _diaprsResponseStatus = pResponseStatus_ - } + { _diaprsIAMInstanceProfileAssociation = Nothing + , _diaprsResponseStatus = pResponseStatus_ + } -- | Information about the IAM instance profile association. diaprsIAMInstanceProfileAssociation :: Lens' DisassociateIAMInstanceProfileResponse (Maybe IAMInstanceProfileAssociation) -diaprsIAMInstanceProfileAssociation = lens _diaprsIAMInstanceProfileAssociation (\ s a -> s{_diaprsIAMInstanceProfileAssociation = a}); +diaprsIAMInstanceProfileAssociation = lens _diaprsIAMInstanceProfileAssociation (\ s a -> s{_diaprsIAMInstanceProfileAssociation = a}) -- | -- | The response status code. diaprsResponseStatus :: Lens' DisassociateIAMInstanceProfileResponse Int -diaprsResponseStatus = lens _diaprsResponseStatus (\ s a -> s{_diaprsResponseStatus = a}); +diaprsResponseStatus = lens _diaprsResponseStatus (\ s a -> s{_diaprsResponseStatus = a}) instance NFData DisassociateIAMInstanceProfileResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisassociateRouteTable --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,16 +67,16 @@ -> DisassociateRouteTable disassociateRouteTable pAssociationId_ = DisassociateRouteTable' - {_drtDryRun = Nothing, _drtAssociationId = pAssociationId_} + {_drtDryRun = Nothing, _drtAssociationId = pAssociationId_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . drtDryRun :: Lens' DisassociateRouteTable (Maybe Bool) -drtDryRun = lens _drtDryRun (\ s a -> s{_drtDryRun = a}); +drtDryRun = lens _drtDryRun (\ s a -> s{_drtDryRun = a}) -- | The association ID representing the current association between the route table and subnet. drtAssociationId :: Lens' DisassociateRouteTable Text -drtAssociationId = lens _drtAssociationId (\ s a -> s{_drtAssociationId = a}); +drtAssociationId = lens _drtAssociationId (\ s a -> s{_drtAssociationId = a}) instance AWSRequest DisassociateRouteTable where type Rs DisassociateRouteTable = diff --git a/gen/Network/AWS/EC2/DisassociateSubnetCidrBlock.hs b/gen/Network/AWS/EC2/DisassociateSubnetCidrBlock.hs --- a/gen/Network/AWS/EC2/DisassociateSubnetCidrBlock.hs +++ b/gen/Network/AWS/EC2/DisassociateSubnetCidrBlock.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisassociateSubnetCidrBlock --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,7 +65,7 @@ -- | The association ID for the CIDR block. dscbAssociationId :: Lens' DisassociateSubnetCidrBlock Text -dscbAssociationId = lens _dscbAssociationId (\ s a -> s{_dscbAssociationId = a}); +dscbAssociationId = lens _dscbAssociationId (\ s a -> s{_dscbAssociationId = a}) instance AWSRequest DisassociateSubnetCidrBlock where type Rs DisassociateSubnetCidrBlock = @@ -119,23 +119,23 @@ -> DisassociateSubnetCidrBlockResponse disassociateSubnetCidrBlockResponse pResponseStatus_ = DisassociateSubnetCidrBlockResponse' - { _dscbrsSubnetId = Nothing - , _dscbrsIPv6CidrBlockAssociation = Nothing - , _dscbrsResponseStatus = pResponseStatus_ - } + { _dscbrsSubnetId = Nothing + , _dscbrsIPv6CidrBlockAssociation = Nothing + , _dscbrsResponseStatus = pResponseStatus_ + } -- | The ID of the subnet. dscbrsSubnetId :: Lens' DisassociateSubnetCidrBlockResponse (Maybe Text) -dscbrsSubnetId = lens _dscbrsSubnetId (\ s a -> s{_dscbrsSubnetId = a}); +dscbrsSubnetId = lens _dscbrsSubnetId (\ s a -> s{_dscbrsSubnetId = a}) -- | Information about the IPv6 CIDR block association. dscbrsIPv6CidrBlockAssociation :: Lens' DisassociateSubnetCidrBlockResponse (Maybe SubnetIPv6CidrBlockAssociation) -dscbrsIPv6CidrBlockAssociation = lens _dscbrsIPv6CidrBlockAssociation (\ s a -> s{_dscbrsIPv6CidrBlockAssociation = a}); +dscbrsIPv6CidrBlockAssociation = lens _dscbrsIPv6CidrBlockAssociation (\ s a -> s{_dscbrsIPv6CidrBlockAssociation = a}) -- | -- | The response status code. dscbrsResponseStatus :: Lens' DisassociateSubnetCidrBlockResponse Int -dscbrsResponseStatus = lens _dscbrsResponseStatus (\ s a -> s{_dscbrsResponseStatus = a}); +dscbrsResponseStatus = lens _dscbrsResponseStatus (\ s a -> s{_dscbrsResponseStatus = a}) instance NFData DisassociateSubnetCidrBlockResponse where diff --git a/gen/Network/AWS/EC2/DisassociateVPCCidrBlock.hs b/gen/Network/AWS/EC2/DisassociateVPCCidrBlock.hs --- a/gen/Network/AWS/EC2/DisassociateVPCCidrBlock.hs +++ b/gen/Network/AWS/EC2/DisassociateVPCCidrBlock.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.DisassociateVPCCidrBlock --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,7 +68,7 @@ -- | The association ID for the CIDR block. dvcbAssociationId :: Lens' DisassociateVPCCidrBlock Text -dvcbAssociationId = lens _dvcbAssociationId (\ s a -> s{_dvcbAssociationId = a}); +dvcbAssociationId = lens _dvcbAssociationId (\ s a -> s{_dvcbAssociationId = a}) instance AWSRequest DisassociateVPCCidrBlock where type Rs DisassociateVPCCidrBlock = @@ -125,28 +125,28 @@ -> DisassociateVPCCidrBlockResponse disassociateVPCCidrBlockResponse pResponseStatus_ = DisassociateVPCCidrBlockResponse' - { _dvcbrsVPCId = Nothing - , _dvcbrsCidrBlockAssociation = Nothing - , _dvcbrsIPv6CidrBlockAssociation = Nothing - , _dvcbrsResponseStatus = pResponseStatus_ - } + { _dvcbrsVPCId = Nothing + , _dvcbrsCidrBlockAssociation = Nothing + , _dvcbrsIPv6CidrBlockAssociation = Nothing + , _dvcbrsResponseStatus = pResponseStatus_ + } -- | The ID of the VPC. dvcbrsVPCId :: Lens' DisassociateVPCCidrBlockResponse (Maybe Text) -dvcbrsVPCId = lens _dvcbrsVPCId (\ s a -> s{_dvcbrsVPCId = a}); +dvcbrsVPCId = lens _dvcbrsVPCId (\ s a -> s{_dvcbrsVPCId = a}) -- | Information about the IPv4 CIDR block association. dvcbrsCidrBlockAssociation :: Lens' DisassociateVPCCidrBlockResponse (Maybe VPCCidrBlockAssociation) -dvcbrsCidrBlockAssociation = lens _dvcbrsCidrBlockAssociation (\ s a -> s{_dvcbrsCidrBlockAssociation = a}); +dvcbrsCidrBlockAssociation = lens _dvcbrsCidrBlockAssociation (\ s a -> s{_dvcbrsCidrBlockAssociation = a}) -- | Information about the IPv6 CIDR block association. dvcbrsIPv6CidrBlockAssociation :: Lens' DisassociateVPCCidrBlockResponse (Maybe VPCIPv6CidrBlockAssociation) -dvcbrsIPv6CidrBlockAssociation = lens _dvcbrsIPv6CidrBlockAssociation (\ s a -> s{_dvcbrsIPv6CidrBlockAssociation = a}); +dvcbrsIPv6CidrBlockAssociation = lens _dvcbrsIPv6CidrBlockAssociation (\ s a -> s{_dvcbrsIPv6CidrBlockAssociation = a}) -- | -- | The response status code. dvcbrsResponseStatus :: Lens' DisassociateVPCCidrBlockResponse Int -dvcbrsResponseStatus = lens _dvcbrsResponseStatus (\ s a -> s{_dvcbrsResponseStatus = a}); +dvcbrsResponseStatus = lens _dvcbrsResponseStatus (\ s a -> s{_dvcbrsResponseStatus = a}) instance NFData DisassociateVPCCidrBlockResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.EnableVGWRoutePropagation --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -66,16 +66,16 @@ -> EnableVGWRoutePropagation enableVGWRoutePropagation pGatewayId_ pRouteTableId_ = EnableVGWRoutePropagation' - {_evrpGatewayId = pGatewayId_, _evrpRouteTableId = pRouteTableId_} + {_evrpGatewayId = pGatewayId_, _evrpRouteTableId = pRouteTableId_} -- | The ID of the virtual private gateway. evrpGatewayId :: Lens' EnableVGWRoutePropagation Text -evrpGatewayId = lens _evrpGatewayId (\ s a -> s{_evrpGatewayId = a}); +evrpGatewayId = lens _evrpGatewayId (\ s a -> s{_evrpGatewayId = a}) -- | The ID of the route table. evrpRouteTableId :: Lens' EnableVGWRoutePropagation Text -evrpRouteTableId = lens _evrpRouteTableId (\ s a -> s{_evrpRouteTableId = a}); +evrpRouteTableId = lens _evrpRouteTableId (\ s a -> s{_evrpRouteTableId = a}) instance AWSRequest EnableVGWRoutePropagation where type Rs EnableVGWRoutePropagation = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.EnableVPCClassicLink --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,11 +72,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . evclDryRun :: Lens' EnableVPCClassicLink (Maybe Bool) -evclDryRun = lens _evclDryRun (\ s a -> s{_evclDryRun = a}); +evclDryRun = lens _evclDryRun (\ s a -> s{_evclDryRun = a}) -- | The ID of the VPC. evclVPCId :: Lens' EnableVPCClassicLink Text -evclVPCId = lens _evclVPCId (\ s a -> s{_evclVPCId = a}); +evclVPCId = lens _evclVPCId (\ s a -> s{_evclVPCId = a}) instance AWSRequest EnableVPCClassicLink where type Rs EnableVPCClassicLink = @@ -128,15 +128,15 @@ -> EnableVPCClassicLinkResponse enableVPCClassicLinkResponse pResponseStatus_ = EnableVPCClassicLinkResponse' - {_evclrsReturn = Nothing, _evclrsResponseStatus = pResponseStatus_} + {_evclrsReturn = Nothing, _evclrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. evclrsReturn :: Lens' EnableVPCClassicLinkResponse (Maybe Bool) -evclrsReturn = lens _evclrsReturn (\ s a -> s{_evclrsReturn = a}); +evclrsReturn = lens _evclrsReturn (\ s a -> s{_evclrsReturn = a}) -- | -- | The response status code. evclrsResponseStatus :: Lens' EnableVPCClassicLinkResponse Int -evclrsResponseStatus = lens _evclrsResponseStatus (\ s a -> s{_evclrsResponseStatus = a}); +evclrsResponseStatus = lens _evclrsResponseStatus (\ s a -> s{_evclrsResponseStatus = a}) instance NFData EnableVPCClassicLinkResponse where diff --git a/gen/Network/AWS/EC2/EnableVPCClassicLinkDNSSupport.hs b/gen/Network/AWS/EC2/EnableVPCClassicLinkDNSSupport.hs --- a/gen/Network/AWS/EC2/EnableVPCClassicLinkDNSSupport.hs +++ b/gen/Network/AWS/EC2/EnableVPCClassicLinkDNSSupport.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.EnableVPCClassicLinkDNSSupport --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,7 +67,7 @@ -- | The ID of the VPC. evcldsVPCId :: Lens' EnableVPCClassicLinkDNSSupport (Maybe Text) -evcldsVPCId = lens _evcldsVPCId (\ s a -> s{_evcldsVPCId = a}); +evcldsVPCId = lens _evcldsVPCId (\ s a -> s{_evcldsVPCId = a}) instance AWSRequest EnableVPCClassicLinkDNSSupport where @@ -123,16 +123,16 @@ -> EnableVPCClassicLinkDNSSupportResponse enableVPCClassicLinkDNSSupportResponse pResponseStatus_ = EnableVPCClassicLinkDNSSupportResponse' - {_evcldsrsReturn = Nothing, _evcldsrsResponseStatus = pResponseStatus_} + {_evcldsrsReturn = Nothing, _evcldsrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. evcldsrsReturn :: Lens' EnableVPCClassicLinkDNSSupportResponse (Maybe Bool) -evcldsrsReturn = lens _evcldsrsReturn (\ s a -> s{_evcldsrsReturn = a}); +evcldsrsReturn = lens _evcldsrsReturn (\ s a -> s{_evcldsrsReturn = a}) -- | -- | The response status code. evcldsrsResponseStatus :: Lens' EnableVPCClassicLinkDNSSupportResponse Int -evcldsrsResponseStatus = lens _evcldsrsResponseStatus (\ s a -> s{_evcldsrsResponseStatus = a}); +evcldsrsResponseStatus = lens _evcldsrsResponseStatus (\ s a -> s{_evcldsrsResponseStatus = a}) instance NFData EnableVPCClassicLinkDNSSupportResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.EnableVolumeIO --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,11 +69,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . evioDryRun :: Lens' EnableVolumeIO (Maybe Bool) -evioDryRun = lens _evioDryRun (\ s a -> s{_evioDryRun = a}); +evioDryRun = lens _evioDryRun (\ s a -> s{_evioDryRun = a}) -- | The ID of the volume. evioVolumeId :: Lens' EnableVolumeIO Text -evioVolumeId = lens _evioVolumeId (\ s a -> s{_evioVolumeId = a}); +evioVolumeId = lens _evioVolumeId (\ s a -> s{_evioVolumeId = a}) instance AWSRequest EnableVolumeIO where type Rs EnableVolumeIO = EnableVolumeIOResponse 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 @@ -12,22 +12,20 @@ -- | -- Module : Network.AWS.EC2.GetConsoleOutput --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Gets the console output for the specified instance. +-- Gets the console output for the specified instance. For Linux instances, the instance console output displays the exact console output that would normally be displayed on a physical monitor attached to a computer. For Windows instances, the instance console output includes output from the EC2Config service. -- -- --- Instances do not have a physical monitor through which you can view their console output. They also lack physical controls that allow you to power up, reboot, or shut them down. To allow these actions, we provide them through the Amazon EC2 API and command line interface. --- --- Instance console output is buffered and posted shortly after instance boot, reboot, and termination. Amazon EC2 preserves the most recent 64 KB output, which is available for at least one hour after the most recent post. +-- 'GetConsoleOutput' returns up to 64 KB of console output shortly after it's generated by the instance. -- --- For Linux instances, the instance console output displays the exact console output that would normally be displayed on a physical monitor attached to a computer. This output is buffered because the instance produces it and then posts it to a store where the instance's owner can retrieve it. +-- By default, the console output returns buffered information that was posted shortly after an instance transition state (start, stop, reboot, or terminate). This information is available for at least one hour after the most recent post. -- --- For Windows instances, the instance console output includes output from the EC2Config service. +-- You can optionally retrieve the latest serial console output at any time during the instance lifecycle. This option is only supported on C5, M5, and @i3.metal@ instances. -- module Network.AWS.EC2.GetConsoleOutput ( @@ -35,6 +33,7 @@ getConsoleOutput , GetConsoleOutput -- * Request Lenses + , gcoLatest , gcoDryRun , gcoInstanceId @@ -61,7 +60,8 @@ -- -- /See:/ 'getConsoleOutput' smart constructor. data GetConsoleOutput = GetConsoleOutput' - { _gcoDryRun :: !(Maybe Bool) + { _gcoLatest :: !(Maybe Bool) + , _gcoDryRun :: !(Maybe Bool) , _gcoInstanceId :: !Text } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -70,6 +70,8 @@ -- -- Use one of the following lenses to modify other fields as desired: -- +-- * 'gcoLatest' - When enabled, retrieves the latest console output for the instance. Default: disabled (@false@ ) +-- -- * 'gcoDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- -- * 'gcoInstanceId' - The ID of the instance. @@ -77,16 +79,21 @@ :: Text -- ^ 'gcoInstanceId' -> GetConsoleOutput getConsoleOutput pInstanceId_ = - GetConsoleOutput' {_gcoDryRun = Nothing, _gcoInstanceId = pInstanceId_} + GetConsoleOutput' + {_gcoLatest = Nothing, _gcoDryRun = Nothing, _gcoInstanceId = pInstanceId_} +-- | When enabled, retrieves the latest console output for the instance. Default: disabled (@false@ ) +gcoLatest :: Lens' GetConsoleOutput (Maybe Bool) +gcoLatest = lens _gcoLatest (\ s a -> s{_gcoLatest = a}) + -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . gcoDryRun :: Lens' GetConsoleOutput (Maybe Bool) -gcoDryRun = lens _gcoDryRun (\ s a -> s{_gcoDryRun = a}); +gcoDryRun = lens _gcoDryRun (\ s a -> s{_gcoDryRun = a}) -- | The ID of the instance. gcoInstanceId :: Lens' GetConsoleOutput Text -gcoInstanceId = lens _gcoInstanceId (\ s a -> s{_gcoInstanceId = a}); +gcoInstanceId = lens _gcoInstanceId (\ s a -> s{_gcoInstanceId = a}) instance AWSRequest GetConsoleOutput where type Rs GetConsoleOutput = GetConsoleOutputResponse @@ -114,7 +121,7 @@ = mconcat ["Action" =: ("GetConsoleOutput" :: ByteString), "Version" =: ("2016-11-15" :: ByteString), - "DryRun" =: _gcoDryRun, + "Latest" =: _gcoLatest, "DryRun" =: _gcoDryRun, "InstanceId" =: _gcoInstanceId] -- | Contains the output of GetConsoleOutput. @@ -136,9 +143,9 @@ -- -- * 'gcorsInstanceId' - The ID of the instance. -- --- * 'gcorsOutput' - The console output, Base64-encoded. If using a command line tool, the tool decodes the output for you. +-- * 'gcorsOutput' - The console output, base64-encoded. If you are using a command line tool, the tool decodes the output for you. -- --- * 'gcorsTimestamp' - The time the output was last updated. +-- * 'gcorsTimestamp' - The time at which the output was last updated. -- -- * 'gcorsResponseStatus' - -- | The response status code. getConsoleOutputResponse @@ -146,27 +153,27 @@ -> GetConsoleOutputResponse getConsoleOutputResponse pResponseStatus_ = GetConsoleOutputResponse' - { _gcorsInstanceId = Nothing - , _gcorsOutput = Nothing - , _gcorsTimestamp = Nothing - , _gcorsResponseStatus = pResponseStatus_ - } + { _gcorsInstanceId = Nothing + , _gcorsOutput = Nothing + , _gcorsTimestamp = Nothing + , _gcorsResponseStatus = pResponseStatus_ + } -- | The ID of the instance. gcorsInstanceId :: Lens' GetConsoleOutputResponse (Maybe Text) -gcorsInstanceId = lens _gcorsInstanceId (\ s a -> s{_gcorsInstanceId = a}); +gcorsInstanceId = lens _gcorsInstanceId (\ s a -> s{_gcorsInstanceId = a}) --- | The console output, Base64-encoded. If using a command line tool, the tool decodes the output for you. +-- | The console output, base64-encoded. If you are using a command line tool, the tool decodes the output for you. gcorsOutput :: Lens' GetConsoleOutputResponse (Maybe Text) -gcorsOutput = lens _gcorsOutput (\ s a -> s{_gcorsOutput = a}); +gcorsOutput = lens _gcorsOutput (\ s a -> s{_gcorsOutput = a}) --- | The time the output was last updated. +-- | The time at which the output was last updated. gcorsTimestamp :: Lens' GetConsoleOutputResponse (Maybe UTCTime) -gcorsTimestamp = lens _gcorsTimestamp (\ s a -> s{_gcorsTimestamp = a}) . mapping _Time; +gcorsTimestamp = lens _gcorsTimestamp (\ s a -> s{_gcorsTimestamp = a}) . mapping _Time -- | -- | The response status code. gcorsResponseStatus :: Lens' GetConsoleOutputResponse Int -gcorsResponseStatus = lens _gcorsResponseStatus (\ s a -> s{_gcorsResponseStatus = a}); +gcorsResponseStatus = lens _gcorsResponseStatus (\ s a -> s{_gcorsResponseStatus = a}) instance NFData GetConsoleOutputResponse where diff --git a/gen/Network/AWS/EC2/GetConsoleScreenshot.hs b/gen/Network/AWS/EC2/GetConsoleScreenshot.hs --- a/gen/Network/AWS/EC2/GetConsoleScreenshot.hs +++ b/gen/Network/AWS/EC2/GetConsoleScreenshot.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.GetConsoleScreenshot --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,20 +75,20 @@ -> GetConsoleScreenshot getConsoleScreenshot pInstanceId_ = GetConsoleScreenshot' - {_gcsWakeUp = Nothing, _gcsDryRun = Nothing, _gcsInstanceId = pInstanceId_} + {_gcsWakeUp = Nothing, _gcsDryRun = Nothing, _gcsInstanceId = pInstanceId_} -- | When set to @true@ , acts as keystroke input and wakes up an instance that's in standby or "sleep" mode. gcsWakeUp :: Lens' GetConsoleScreenshot (Maybe Bool) -gcsWakeUp = lens _gcsWakeUp (\ s a -> s{_gcsWakeUp = a}); +gcsWakeUp = lens _gcsWakeUp (\ s a -> s{_gcsWakeUp = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . gcsDryRun :: Lens' GetConsoleScreenshot (Maybe Bool) -gcsDryRun = lens _gcsDryRun (\ s a -> s{_gcsDryRun = a}); +gcsDryRun = lens _gcsDryRun (\ s a -> s{_gcsDryRun = a}) -- | The ID of the instance. gcsInstanceId :: Lens' GetConsoleScreenshot Text -gcsInstanceId = lens _gcsInstanceId (\ s a -> s{_gcsInstanceId = a}); +gcsInstanceId = lens _gcsInstanceId (\ s a -> s{_gcsInstanceId = a}) instance AWSRequest GetConsoleScreenshot where type Rs GetConsoleScreenshot = @@ -145,22 +145,22 @@ -> GetConsoleScreenshotResponse getConsoleScreenshotResponse pResponseStatus_ = GetConsoleScreenshotResponse' - { _gcsrsInstanceId = Nothing - , _gcsrsImageData = Nothing - , _gcsrsResponseStatus = pResponseStatus_ - } + { _gcsrsInstanceId = Nothing + , _gcsrsImageData = Nothing + , _gcsrsResponseStatus = pResponseStatus_ + } -- | The ID of the instance. gcsrsInstanceId :: Lens' GetConsoleScreenshotResponse (Maybe Text) -gcsrsInstanceId = lens _gcsrsInstanceId (\ s a -> s{_gcsrsInstanceId = a}); +gcsrsInstanceId = lens _gcsrsInstanceId (\ s a -> s{_gcsrsInstanceId = a}) -- | The data that comprises the image. gcsrsImageData :: Lens' GetConsoleScreenshotResponse (Maybe Text) -gcsrsImageData = lens _gcsrsImageData (\ s a -> s{_gcsrsImageData = a}); +gcsrsImageData = lens _gcsrsImageData (\ s a -> s{_gcsrsImageData = a}) -- | -- | The response status code. gcsrsResponseStatus :: Lens' GetConsoleScreenshotResponse Int -gcsrsResponseStatus = lens _gcsrsResponseStatus (\ s a -> s{_gcsrsResponseStatus = a}); +gcsrsResponseStatus = lens _gcsrsResponseStatus (\ s a -> s{_gcsrsResponseStatus = a}) instance NFData GetConsoleScreenshotResponse where diff --git a/gen/Network/AWS/EC2/GetHostReservationPurchasePreview.hs b/gen/Network/AWS/EC2/GetHostReservationPurchasePreview.hs --- a/gen/Network/AWS/EC2/GetHostReservationPurchasePreview.hs +++ b/gen/Network/AWS/EC2/GetHostReservationPurchasePreview.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.GetHostReservationPurchasePreview --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,16 +69,16 @@ -> GetHostReservationPurchasePreview getHostReservationPurchasePreview pOfferingId_ = GetHostReservationPurchasePreview' - {_ghrppHostIdSet = mempty, _ghrppOfferingId = pOfferingId_} + {_ghrppHostIdSet = mempty, _ghrppOfferingId = pOfferingId_} -- | The ID/s of the Dedicated Host/s that the reservation will be associated with. ghrppHostIdSet :: Lens' GetHostReservationPurchasePreview [Text] -ghrppHostIdSet = lens _ghrppHostIdSet (\ s a -> s{_ghrppHostIdSet = a}) . _Coerce; +ghrppHostIdSet = lens _ghrppHostIdSet (\ s a -> s{_ghrppHostIdSet = a}) . _Coerce -- | The offering ID of the reservation. ghrppOfferingId :: Lens' GetHostReservationPurchasePreview Text -ghrppOfferingId = lens _ghrppOfferingId (\ s a -> s{_ghrppOfferingId = a}); +ghrppOfferingId = lens _ghrppOfferingId (\ s a -> s{_ghrppOfferingId = a}) instance AWSRequest GetHostReservationPurchasePreview where @@ -148,33 +148,33 @@ -> GetHostReservationPurchasePreviewResponse getHostReservationPurchasePreviewResponse pResponseStatus_ = GetHostReservationPurchasePreviewResponse' - { _ghrpprsCurrencyCode = Nothing - , _ghrpprsTotalHourlyPrice = Nothing - , _ghrpprsTotalUpfrontPrice = Nothing - , _ghrpprsPurchase = Nothing - , _ghrpprsResponseStatus = pResponseStatus_ - } + { _ghrpprsCurrencyCode = Nothing + , _ghrpprsTotalHourlyPrice = Nothing + , _ghrpprsTotalUpfrontPrice = Nothing + , _ghrpprsPurchase = Nothing + , _ghrpprsResponseStatus = pResponseStatus_ + } -- | The currency in which the @totalUpfrontPrice@ and @totalHourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . ghrpprsCurrencyCode :: Lens' GetHostReservationPurchasePreviewResponse (Maybe CurrencyCodeValues) -ghrpprsCurrencyCode = lens _ghrpprsCurrencyCode (\ s a -> s{_ghrpprsCurrencyCode = a}); +ghrpprsCurrencyCode = lens _ghrpprsCurrencyCode (\ s a -> s{_ghrpprsCurrencyCode = a}) -- | The potential total hourly price of the reservation per hour. ghrpprsTotalHourlyPrice :: Lens' GetHostReservationPurchasePreviewResponse (Maybe Text) -ghrpprsTotalHourlyPrice = lens _ghrpprsTotalHourlyPrice (\ s a -> s{_ghrpprsTotalHourlyPrice = a}); +ghrpprsTotalHourlyPrice = lens _ghrpprsTotalHourlyPrice (\ s a -> s{_ghrpprsTotalHourlyPrice = a}) -- | The potential total upfront price. This is billed immediately. ghrpprsTotalUpfrontPrice :: Lens' GetHostReservationPurchasePreviewResponse (Maybe Text) -ghrpprsTotalUpfrontPrice = lens _ghrpprsTotalUpfrontPrice (\ s a -> s{_ghrpprsTotalUpfrontPrice = a}); +ghrpprsTotalUpfrontPrice = lens _ghrpprsTotalUpfrontPrice (\ s a -> s{_ghrpprsTotalUpfrontPrice = a}) -- | The purchase information of the Dedicated Host Reservation and the Dedicated Hosts associated with it. ghrpprsPurchase :: Lens' GetHostReservationPurchasePreviewResponse [Purchase] -ghrpprsPurchase = lens _ghrpprsPurchase (\ s a -> s{_ghrpprsPurchase = a}) . _Default . _Coerce; +ghrpprsPurchase = lens _ghrpprsPurchase (\ s a -> s{_ghrpprsPurchase = a}) . _Default . _Coerce -- | -- | The response status code. ghrpprsResponseStatus :: Lens' GetHostReservationPurchasePreviewResponse Int -ghrpprsResponseStatus = lens _ghrpprsResponseStatus (\ s a -> s{_ghrpprsResponseStatus = a}); +ghrpprsResponseStatus = lens _ghrpprsResponseStatus (\ s a -> s{_ghrpprsResponseStatus = a}) instance NFData GetHostReservationPurchasePreviewResponse diff --git a/gen/Network/AWS/EC2/GetLaunchTemplateData.hs b/gen/Network/AWS/EC2/GetLaunchTemplateData.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/GetLaunchTemplateData.hs @@ -0,0 +1,137 @@ +{-# 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.GetLaunchTemplateData +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Retrieves the configuration data of the specified instance. You can use this data to create a launch template. +-- +-- +module Network.AWS.EC2.GetLaunchTemplateData + ( + -- * Creating a Request + getLaunchTemplateData + , GetLaunchTemplateData + -- * Request Lenses + , gltdDryRun + , gltdInstanceId + + -- * Destructuring the Response + , getLaunchTemplateDataResponse + , GetLaunchTemplateDataResponse + -- * Response Lenses + , gltdrsLaunchTemplateData + , gltdrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'getLaunchTemplateData' smart constructor. +data GetLaunchTemplateData = GetLaunchTemplateData' + { _gltdDryRun :: !(Maybe Bool) + , _gltdInstanceId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GetLaunchTemplateData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gltdDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'gltdInstanceId' - The ID of the instance. +getLaunchTemplateData + :: Text -- ^ 'gltdInstanceId' + -> GetLaunchTemplateData +getLaunchTemplateData pInstanceId_ = + GetLaunchTemplateData' {_gltdDryRun = Nothing, _gltdInstanceId = pInstanceId_} + + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +gltdDryRun :: Lens' GetLaunchTemplateData (Maybe Bool) +gltdDryRun = lens _gltdDryRun (\ s a -> s{_gltdDryRun = a}) + +-- | The ID of the instance. +gltdInstanceId :: Lens' GetLaunchTemplateData Text +gltdInstanceId = lens _gltdInstanceId (\ s a -> s{_gltdInstanceId = a}) + +instance AWSRequest GetLaunchTemplateData where + type Rs GetLaunchTemplateData = + GetLaunchTemplateDataResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + GetLaunchTemplateDataResponse' <$> + (x .@? "launchTemplateData") <*> (pure (fromEnum s))) + +instance Hashable GetLaunchTemplateData where + +instance NFData GetLaunchTemplateData where + +instance ToHeaders GetLaunchTemplateData where + toHeaders = const mempty + +instance ToPath GetLaunchTemplateData where + toPath = const "/" + +instance ToQuery GetLaunchTemplateData where + toQuery GetLaunchTemplateData'{..} + = mconcat + ["Action" =: ("GetLaunchTemplateData" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "DryRun" =: _gltdDryRun, + "InstanceId" =: _gltdInstanceId] + +-- | /See:/ 'getLaunchTemplateDataResponse' smart constructor. +data GetLaunchTemplateDataResponse = GetLaunchTemplateDataResponse' + { _gltdrsLaunchTemplateData :: !(Maybe ResponseLaunchTemplateData) + , _gltdrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GetLaunchTemplateDataResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'gltdrsLaunchTemplateData' - The instance data. +-- +-- * 'gltdrsResponseStatus' - -- | The response status code. +getLaunchTemplateDataResponse + :: Int -- ^ 'gltdrsResponseStatus' + -> GetLaunchTemplateDataResponse +getLaunchTemplateDataResponse pResponseStatus_ = + GetLaunchTemplateDataResponse' + { _gltdrsLaunchTemplateData = Nothing + , _gltdrsResponseStatus = pResponseStatus_ + } + + +-- | The instance data. +gltdrsLaunchTemplateData :: Lens' GetLaunchTemplateDataResponse (Maybe ResponseLaunchTemplateData) +gltdrsLaunchTemplateData = lens _gltdrsLaunchTemplateData (\ s a -> s{_gltdrsLaunchTemplateData = a}) + +-- | -- | The response status code. +gltdrsResponseStatus :: Lens' GetLaunchTemplateDataResponse Int +gltdrsResponseStatus = lens _gltdrsResponseStatus (\ s a -> s{_gltdrsResponseStatus = a}) + +instance NFData GetLaunchTemplateDataResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.GetPasswordData --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -82,11 +82,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . gpdDryRun :: Lens' GetPasswordData (Maybe Bool) -gpdDryRun = lens _gpdDryRun (\ s a -> s{_gpdDryRun = a}); +gpdDryRun = lens _gpdDryRun (\ s a -> s{_gpdDryRun = a}) -- | The ID of the Windows instance. gpdInstanceId :: Lens' GetPasswordData Text -gpdInstanceId = lens _gpdInstanceId (\ s a -> s{_gpdInstanceId = a}); +gpdInstanceId = lens _gpdInstanceId (\ s a -> s{_gpdInstanceId = a}) instance AWSRequest GetPasswordData where type Rs GetPasswordData = GetPasswordDataResponse @@ -149,27 +149,27 @@ -> GetPasswordDataResponse getPasswordDataResponse pResponseStatus_ pInstanceId_ pPasswordData_ pTimestamp_ = GetPasswordDataResponse' - { _gpdrsResponseStatus = pResponseStatus_ - , _gpdrsInstanceId = pInstanceId_ - , _gpdrsPasswordData = pPasswordData_ - , _gpdrsTimestamp = _Time # pTimestamp_ - } + { _gpdrsResponseStatus = pResponseStatus_ + , _gpdrsInstanceId = pInstanceId_ + , _gpdrsPasswordData = pPasswordData_ + , _gpdrsTimestamp = _Time # pTimestamp_ + } -- | -- | The response status code. gpdrsResponseStatus :: Lens' GetPasswordDataResponse Int -gpdrsResponseStatus = lens _gpdrsResponseStatus (\ s a -> s{_gpdrsResponseStatus = a}); +gpdrsResponseStatus = lens _gpdrsResponseStatus (\ s a -> s{_gpdrsResponseStatus = a}) -- | The ID of the Windows instance. gpdrsInstanceId :: Lens' GetPasswordDataResponse Text -gpdrsInstanceId = lens _gpdrsInstanceId (\ s a -> s{_gpdrsInstanceId = a}); +gpdrsInstanceId = lens _gpdrsInstanceId (\ s a -> s{_gpdrsInstanceId = a}) -- | The password of the instance. Returns an empty string if the password is not available. gpdrsPasswordData :: Lens' GetPasswordDataResponse Text -gpdrsPasswordData = lens _gpdrsPasswordData (\ s a -> s{_gpdrsPasswordData = a}); +gpdrsPasswordData = lens _gpdrsPasswordData (\ s a -> s{_gpdrsPasswordData = a}) -- | The time the data was last updated. gpdrsTimestamp :: Lens' GetPasswordDataResponse UTCTime -gpdrsTimestamp = lens _gpdrsTimestamp (\ s a -> s{_gpdrsTimestamp = a}) . _Time; +gpdrsTimestamp = lens _gpdrsTimestamp (\ s a -> s{_gpdrsTimestamp = a}) . _Time instance NFData GetPasswordDataResponse where diff --git a/gen/Network/AWS/EC2/GetReservedInstancesExchangeQuote.hs b/gen/Network/AWS/EC2/GetReservedInstancesExchangeQuote.hs --- a/gen/Network/AWS/EC2/GetReservedInstancesExchangeQuote.hs +++ b/gen/Network/AWS/EC2/GetReservedInstancesExchangeQuote.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.GetReservedInstancesExchangeQuote --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -79,23 +79,23 @@ :: GetReservedInstancesExchangeQuote getReservedInstancesExchangeQuote = GetReservedInstancesExchangeQuote' - { _grieqTargetConfigurations = Nothing - , _grieqDryRun = Nothing - , _grieqReservedInstanceIds = mempty - } + { _grieqTargetConfigurations = Nothing + , _grieqDryRun = Nothing + , _grieqReservedInstanceIds = mempty + } -- | The configuration of the target Convertible Reserved Instance to exchange for your current Convertible Reserved Instances. grieqTargetConfigurations :: Lens' GetReservedInstancesExchangeQuote [TargetConfigurationRequest] -grieqTargetConfigurations = lens _grieqTargetConfigurations (\ s a -> s{_grieqTargetConfigurations = a}) . _Default . _Coerce; +grieqTargetConfigurations = lens _grieqTargetConfigurations (\ s a -> s{_grieqTargetConfigurations = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . grieqDryRun :: Lens' GetReservedInstancesExchangeQuote (Maybe Bool) -grieqDryRun = lens _grieqDryRun (\ s a -> s{_grieqDryRun = a}); +grieqDryRun = lens _grieqDryRun (\ s a -> s{_grieqDryRun = a}) -- | The IDs of the Convertible Reserved Instances to exchange. grieqReservedInstanceIds :: Lens' GetReservedInstancesExchangeQuote [Text] -grieqReservedInstanceIds = lens _grieqReservedInstanceIds (\ s a -> s{_grieqReservedInstanceIds = a}) . _Coerce; +grieqReservedInstanceIds = lens _grieqReservedInstanceIds (\ s a -> s{_grieqReservedInstanceIds = a}) . _Coerce instance AWSRequest GetReservedInstancesExchangeQuote where @@ -196,58 +196,58 @@ -> GetReservedInstancesExchangeQuoteResponse getReservedInstancesExchangeQuoteResponse pResponseStatus_ = GetReservedInstancesExchangeQuoteResponse' - { _grieqrsValidationFailureReason = Nothing - , _grieqrsTargetConfigurationValueRollup = Nothing - , _grieqrsCurrencyCode = Nothing - , _grieqrsTargetConfigurationValueSet = Nothing - , _grieqrsReservedInstanceValueRollup = Nothing - , _grieqrsOutputReservedInstancesWillExpireAt = Nothing - , _grieqrsReservedInstanceValueSet = Nothing - , _grieqrsIsValidExchange = Nothing - , _grieqrsPaymentDue = Nothing - , _grieqrsResponseStatus = pResponseStatus_ - } + { _grieqrsValidationFailureReason = Nothing + , _grieqrsTargetConfigurationValueRollup = Nothing + , _grieqrsCurrencyCode = Nothing + , _grieqrsTargetConfigurationValueSet = Nothing + , _grieqrsReservedInstanceValueRollup = Nothing + , _grieqrsOutputReservedInstancesWillExpireAt = Nothing + , _grieqrsReservedInstanceValueSet = Nothing + , _grieqrsIsValidExchange = Nothing + , _grieqrsPaymentDue = Nothing + , _grieqrsResponseStatus = pResponseStatus_ + } -- | Describes the reason why the exchange cannot be completed. grieqrsValidationFailureReason :: Lens' GetReservedInstancesExchangeQuoteResponse (Maybe Text) -grieqrsValidationFailureReason = lens _grieqrsValidationFailureReason (\ s a -> s{_grieqrsValidationFailureReason = a}); +grieqrsValidationFailureReason = lens _grieqrsValidationFailureReason (\ s a -> s{_grieqrsValidationFailureReason = a}) -- | The cost associated with the Reserved Instance. grieqrsTargetConfigurationValueRollup :: Lens' GetReservedInstancesExchangeQuoteResponse (Maybe ReservationValue) -grieqrsTargetConfigurationValueRollup = lens _grieqrsTargetConfigurationValueRollup (\ s a -> s{_grieqrsTargetConfigurationValueRollup = a}); +grieqrsTargetConfigurationValueRollup = lens _grieqrsTargetConfigurationValueRollup (\ s a -> s{_grieqrsTargetConfigurationValueRollup = a}) -- | The currency of the transaction. grieqrsCurrencyCode :: Lens' GetReservedInstancesExchangeQuoteResponse (Maybe Text) -grieqrsCurrencyCode = lens _grieqrsCurrencyCode (\ s a -> s{_grieqrsCurrencyCode = a}); +grieqrsCurrencyCode = lens _grieqrsCurrencyCode (\ s a -> s{_grieqrsCurrencyCode = a}) -- | The values of the target Convertible Reserved Instances. grieqrsTargetConfigurationValueSet :: Lens' GetReservedInstancesExchangeQuoteResponse [TargetReservationValue] -grieqrsTargetConfigurationValueSet = lens _grieqrsTargetConfigurationValueSet (\ s a -> s{_grieqrsTargetConfigurationValueSet = a}) . _Default . _Coerce; +grieqrsTargetConfigurationValueSet = lens _grieqrsTargetConfigurationValueSet (\ s a -> s{_grieqrsTargetConfigurationValueSet = a}) . _Default . _Coerce -- | The cost associated with the Reserved Instance. grieqrsReservedInstanceValueRollup :: Lens' GetReservedInstancesExchangeQuoteResponse (Maybe ReservationValue) -grieqrsReservedInstanceValueRollup = lens _grieqrsReservedInstanceValueRollup (\ s a -> s{_grieqrsReservedInstanceValueRollup = a}); +grieqrsReservedInstanceValueRollup = lens _grieqrsReservedInstanceValueRollup (\ s a -> s{_grieqrsReservedInstanceValueRollup = a}) -- | The new end date of the reservation term. grieqrsOutputReservedInstancesWillExpireAt :: Lens' GetReservedInstancesExchangeQuoteResponse (Maybe UTCTime) -grieqrsOutputReservedInstancesWillExpireAt = lens _grieqrsOutputReservedInstancesWillExpireAt (\ s a -> s{_grieqrsOutputReservedInstancesWillExpireAt = a}) . mapping _Time; +grieqrsOutputReservedInstancesWillExpireAt = lens _grieqrsOutputReservedInstancesWillExpireAt (\ s a -> s{_grieqrsOutputReservedInstancesWillExpireAt = a}) . mapping _Time -- | The configuration of your Convertible Reserved Instances. grieqrsReservedInstanceValueSet :: Lens' GetReservedInstancesExchangeQuoteResponse [ReservedInstanceReservationValue] -grieqrsReservedInstanceValueSet = lens _grieqrsReservedInstanceValueSet (\ s a -> s{_grieqrsReservedInstanceValueSet = a}) . _Default . _Coerce; +grieqrsReservedInstanceValueSet = lens _grieqrsReservedInstanceValueSet (\ s a -> s{_grieqrsReservedInstanceValueSet = a}) . _Default . _Coerce -- | If @true@ , the exchange is valid. If @false@ , the exchange cannot be completed. grieqrsIsValidExchange :: Lens' GetReservedInstancesExchangeQuoteResponse (Maybe Bool) -grieqrsIsValidExchange = lens _grieqrsIsValidExchange (\ s a -> s{_grieqrsIsValidExchange = a}); +grieqrsIsValidExchange = lens _grieqrsIsValidExchange (\ s a -> s{_grieqrsIsValidExchange = a}) -- | The total true upfront charge for the exchange. grieqrsPaymentDue :: Lens' GetReservedInstancesExchangeQuoteResponse (Maybe Text) -grieqrsPaymentDue = lens _grieqrsPaymentDue (\ s a -> s{_grieqrsPaymentDue = a}); +grieqrsPaymentDue = lens _grieqrsPaymentDue (\ s a -> s{_grieqrsPaymentDue = a}) -- | -- | The response status code. grieqrsResponseStatus :: Lens' GetReservedInstancesExchangeQuoteResponse Int -grieqrsResponseStatus = lens _grieqrsResponseStatus (\ s a -> s{_grieqrsResponseStatus = a}); +grieqrsResponseStatus = lens _grieqrsResponseStatus (\ s a -> s{_grieqrsResponseStatus = a}) instance NFData GetReservedInstancesExchangeQuoteResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ImportImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -109,58 +109,58 @@ :: ImportImage importImage = ImportImage' - { _impHypervisor = Nothing - , _impPlatform = Nothing - , _impClientToken = Nothing - , _impLicenseType = Nothing - , _impRoleName = Nothing - , _impArchitecture = Nothing - , _impDescription = Nothing - , _impDryRun = Nothing - , _impClientData = Nothing - , _impDiskContainers = Nothing - } + { _impHypervisor = Nothing + , _impPlatform = Nothing + , _impClientToken = Nothing + , _impLicenseType = Nothing + , _impRoleName = Nothing + , _impArchitecture = Nothing + , _impDescription = Nothing + , _impDryRun = Nothing + , _impClientData = Nothing + , _impDiskContainers = Nothing + } -- | The target hypervisor platform. Valid values: @xen@ impHypervisor :: Lens' ImportImage (Maybe Text) -impHypervisor = lens _impHypervisor (\ s a -> s{_impHypervisor = a}); +impHypervisor = lens _impHypervisor (\ s a -> s{_impHypervisor = a}) -- | The operating system of the virtual machine. Valid values: @Windows@ | @Linux@ impPlatform :: Lens' ImportImage (Maybe Text) -impPlatform = lens _impPlatform (\ s a -> s{_impPlatform = a}); +impPlatform = lens _impPlatform (\ s a -> s{_impPlatform = a}) -- | The token to enable idempotency for VM import requests. impClientToken :: Lens' ImportImage (Maybe Text) -impClientToken = lens _impClientToken (\ s a -> s{_impClientToken = a}); +impClientToken = lens _impClientToken (\ s a -> s{_impClientToken = a}) -- | The license type to be used for the Amazon Machine Image (AMI) after importing. __Note:__ You may only use BYOL if you have existing licenses with rights to use these licenses in a third party cloud like AWS. For more information, see in the VM Import/Export User Guide. Valid values: @AWS@ | @BYOL@ impLicenseType :: Lens' ImportImage (Maybe Text) -impLicenseType = lens _impLicenseType (\ s a -> s{_impLicenseType = a}); +impLicenseType = lens _impLicenseType (\ s a -> s{_impLicenseType = a}) -- | The name of the role to use when not using the default role, 'vmimport'. impRoleName :: Lens' ImportImage (Maybe Text) -impRoleName = lens _impRoleName (\ s a -> s{_impRoleName = a}); +impRoleName = lens _impRoleName (\ s a -> s{_impRoleName = a}) -- | The architecture of the virtual machine. Valid values: @i386@ | @x86_64@ impArchitecture :: Lens' ImportImage (Maybe Text) -impArchitecture = lens _impArchitecture (\ s a -> s{_impArchitecture = a}); +impArchitecture = lens _impArchitecture (\ s a -> s{_impArchitecture = a}) -- | A description string for the import image task. impDescription :: Lens' ImportImage (Maybe Text) -impDescription = lens _impDescription (\ s a -> s{_impDescription = a}); +impDescription = lens _impDescription (\ s a -> s{_impDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . impDryRun :: Lens' ImportImage (Maybe Bool) -impDryRun = lens _impDryRun (\ s a -> s{_impDryRun = a}); +impDryRun = lens _impDryRun (\ s a -> s{_impDryRun = a}) -- | The client-specific data. impClientData :: Lens' ImportImage (Maybe ClientData) -impClientData = lens _impClientData (\ s a -> s{_impClientData = a}); +impClientData = lens _impClientData (\ s a -> s{_impClientData = a}) -- | Information about the disk containers. impDiskContainers :: Lens' ImportImage [ImageDiskContainer] -impDiskContainers = lens _impDiskContainers (\ s a -> s{_impDiskContainers = a}) . _Default . _Coerce; +impDiskContainers = lens _impDiskContainers (\ s a -> s{_impDiskContainers = a}) . _Default . _Coerce instance AWSRequest ImportImage where type Rs ImportImage = ImportImageResponse @@ -263,67 +263,67 @@ -> ImportImageResponse importImageResponse pResponseStatus_ = ImportImageResponse' - { _irsStatus = Nothing - , _irsHypervisor = Nothing - , _irsPlatform = Nothing - , _irsProgress = Nothing - , _irsLicenseType = Nothing - , _irsSnapshotDetails = Nothing - , _irsStatusMessage = Nothing - , _irsImageId = Nothing - , _irsImportTaskId = Nothing - , _irsArchitecture = Nothing - , _irsDescription = Nothing - , _irsResponseStatus = pResponseStatus_ - } + { _irsStatus = Nothing + , _irsHypervisor = Nothing + , _irsPlatform = Nothing + , _irsProgress = Nothing + , _irsLicenseType = Nothing + , _irsSnapshotDetails = Nothing + , _irsStatusMessage = Nothing + , _irsImageId = Nothing + , _irsImportTaskId = Nothing + , _irsArchitecture = Nothing + , _irsDescription = Nothing + , _irsResponseStatus = pResponseStatus_ + } -- | A brief status of the task. irsStatus :: Lens' ImportImageResponse (Maybe Text) -irsStatus = lens _irsStatus (\ s a -> s{_irsStatus = a}); +irsStatus = lens _irsStatus (\ s a -> s{_irsStatus = a}) -- | The target hypervisor of the import task. irsHypervisor :: Lens' ImportImageResponse (Maybe Text) -irsHypervisor = lens _irsHypervisor (\ s a -> s{_irsHypervisor = a}); +irsHypervisor = lens _irsHypervisor (\ s a -> s{_irsHypervisor = a}) -- | The operating system of the virtual machine. irsPlatform :: Lens' ImportImageResponse (Maybe Text) -irsPlatform = lens _irsPlatform (\ s a -> s{_irsPlatform = a}); +irsPlatform = lens _irsPlatform (\ s a -> s{_irsPlatform = a}) -- | The progress of the task. irsProgress :: Lens' ImportImageResponse (Maybe Text) -irsProgress = lens _irsProgress (\ s a -> s{_irsProgress = a}); +irsProgress = lens _irsProgress (\ s a -> s{_irsProgress = a}) -- | The license type of the virtual machine. irsLicenseType :: Lens' ImportImageResponse (Maybe Text) -irsLicenseType = lens _irsLicenseType (\ s a -> s{_irsLicenseType = a}); +irsLicenseType = lens _irsLicenseType (\ s a -> s{_irsLicenseType = a}) -- | Information about the snapshots. irsSnapshotDetails :: Lens' ImportImageResponse [SnapshotDetail] -irsSnapshotDetails = lens _irsSnapshotDetails (\ s a -> s{_irsSnapshotDetails = a}) . _Default . _Coerce; +irsSnapshotDetails = lens _irsSnapshotDetails (\ s a -> s{_irsSnapshotDetails = a}) . _Default . _Coerce -- | A detailed status message of the import task. irsStatusMessage :: Lens' ImportImageResponse (Maybe Text) -irsStatusMessage = lens _irsStatusMessage (\ s a -> s{_irsStatusMessage = a}); +irsStatusMessage = lens _irsStatusMessage (\ s a -> s{_irsStatusMessage = a}) -- | The ID of the Amazon Machine Image (AMI) created by the import task. irsImageId :: Lens' ImportImageResponse (Maybe Text) -irsImageId = lens _irsImageId (\ s a -> s{_irsImageId = a}); +irsImageId = lens _irsImageId (\ s a -> s{_irsImageId = a}) -- | The task ID of the import image task. irsImportTaskId :: Lens' ImportImageResponse (Maybe Text) -irsImportTaskId = lens _irsImportTaskId (\ s a -> s{_irsImportTaskId = a}); +irsImportTaskId = lens _irsImportTaskId (\ s a -> s{_irsImportTaskId = a}) -- | The architecture of the virtual machine. irsArchitecture :: Lens' ImportImageResponse (Maybe Text) -irsArchitecture = lens _irsArchitecture (\ s a -> s{_irsArchitecture = a}); +irsArchitecture = lens _irsArchitecture (\ s a -> s{_irsArchitecture = a}) -- | A description of the import task. irsDescription :: Lens' ImportImageResponse (Maybe Text) -irsDescription = lens _irsDescription (\ s a -> s{_irsDescription = a}); +irsDescription = lens _irsDescription (\ s a -> s{_irsDescription = a}) -- | -- | The response status code. irsResponseStatus :: Lens' ImportImageResponse Int -irsResponseStatus = lens _irsResponseStatus (\ s a -> s{_irsResponseStatus = a}); +irsResponseStatus = lens _irsResponseStatus (\ s a -> s{_irsResponseStatus = a}) instance NFData ImportImageResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ImportInstance --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -82,33 +82,33 @@ -> ImportInstance importInstance pPlatform_ = ImportInstance' - { _iiLaunchSpecification = Nothing - , _iiDiskImages = Nothing - , _iiDescription = Nothing - , _iiDryRun = Nothing - , _iiPlatform = pPlatform_ - } + { _iiLaunchSpecification = Nothing + , _iiDiskImages = Nothing + , _iiDescription = Nothing + , _iiDryRun = Nothing + , _iiPlatform = pPlatform_ + } -- | The launch specification. iiLaunchSpecification :: Lens' ImportInstance (Maybe ImportInstanceLaunchSpecification) -iiLaunchSpecification = lens _iiLaunchSpecification (\ s a -> s{_iiLaunchSpecification = a}); +iiLaunchSpecification = lens _iiLaunchSpecification (\ s a -> s{_iiLaunchSpecification = a}) -- | The disk image. iiDiskImages :: Lens' ImportInstance [DiskImage] -iiDiskImages = lens _iiDiskImages (\ s a -> s{_iiDiskImages = a}) . _Default . _Coerce; +iiDiskImages = lens _iiDiskImages (\ s a -> s{_iiDiskImages = a}) . _Default . _Coerce -- | A description for the instance being imported. iiDescription :: Lens' ImportInstance (Maybe Text) -iiDescription = lens _iiDescription (\ s a -> s{_iiDescription = a}); +iiDescription = lens _iiDescription (\ s a -> s{_iiDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . iiDryRun :: Lens' ImportInstance (Maybe Bool) -iiDryRun = lens _iiDryRun (\ s a -> s{_iiDryRun = a}); +iiDryRun = lens _iiDryRun (\ s a -> s{_iiDryRun = a}) -- | The instance operating system. iiPlatform :: Lens' ImportInstance PlatformValues -iiPlatform = lens _iiPlatform (\ s a -> s{_iiPlatform = a}); +iiPlatform = lens _iiPlatform (\ s a -> s{_iiPlatform = a}) instance AWSRequest ImportInstance where type Rs ImportInstance = ImportInstanceResponse @@ -162,15 +162,15 @@ -> ImportInstanceResponse importInstanceResponse pResponseStatus_ = ImportInstanceResponse' - {_iirsConversionTask = Nothing, _iirsResponseStatus = pResponseStatus_} + {_iirsConversionTask = Nothing, _iirsResponseStatus = pResponseStatus_} -- | Information about the conversion task. iirsConversionTask :: Lens' ImportInstanceResponse (Maybe ConversionTask) -iirsConversionTask = lens _iirsConversionTask (\ s a -> s{_iirsConversionTask = a}); +iirsConversionTask = lens _iirsConversionTask (\ s a -> s{_iirsConversionTask = a}) -- | -- | The response status code. iirsResponseStatus :: Lens' ImportInstanceResponse Int -iirsResponseStatus = lens _iirsResponseStatus (\ s a -> s{_iirsResponseStatus = a}); +iirsResponseStatus = lens _iirsResponseStatus (\ s a -> s{_iirsResponseStatus = a}) instance NFData ImportInstanceResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ImportKeyPair --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -76,23 +76,23 @@ -> ImportKeyPair importKeyPair pKeyName_ pPublicKeyMaterial_ = ImportKeyPair' - { _ikpDryRun = Nothing - , _ikpKeyName = pKeyName_ - , _ikpPublicKeyMaterial = _Base64 # pPublicKeyMaterial_ - } + { _ikpDryRun = Nothing + , _ikpKeyName = pKeyName_ + , _ikpPublicKeyMaterial = _Base64 # pPublicKeyMaterial_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ikpDryRun :: Lens' ImportKeyPair (Maybe Bool) -ikpDryRun = lens _ikpDryRun (\ s a -> s{_ikpDryRun = a}); +ikpDryRun = lens _ikpDryRun (\ s a -> s{_ikpDryRun = a}) -- | A unique name for the key pair. ikpKeyName :: Lens' ImportKeyPair Text -ikpKeyName = lens _ikpKeyName (\ s a -> s{_ikpKeyName = a}); +ikpKeyName = lens _ikpKeyName (\ s a -> s{_ikpKeyName = a}) -- | The public key. For API calls, the text must be base64-encoded. For command line tools, base64 encoding is performed for you.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. ikpPublicKeyMaterial :: Lens' ImportKeyPair ByteString -ikpPublicKeyMaterial = lens _ikpPublicKeyMaterial (\ s a -> s{_ikpPublicKeyMaterial = a}) . _Base64; +ikpPublicKeyMaterial = lens _ikpPublicKeyMaterial (\ s a -> s{_ikpPublicKeyMaterial = a}) . _Base64 instance AWSRequest ImportKeyPair where type Rs ImportKeyPair = ImportKeyPairResponse @@ -148,22 +148,22 @@ -> ImportKeyPairResponse importKeyPairResponse pResponseStatus_ = ImportKeyPairResponse' - { _ikprsKeyFingerprint = Nothing - , _ikprsKeyName = Nothing - , _ikprsResponseStatus = pResponseStatus_ - } + { _ikprsKeyFingerprint = Nothing + , _ikprsKeyName = Nothing + , _ikprsResponseStatus = pResponseStatus_ + } -- | The MD5 public key fingerprint as specified in section 4 of RFC 4716. ikprsKeyFingerprint :: Lens' ImportKeyPairResponse (Maybe Text) -ikprsKeyFingerprint = lens _ikprsKeyFingerprint (\ s a -> s{_ikprsKeyFingerprint = a}); +ikprsKeyFingerprint = lens _ikprsKeyFingerprint (\ s a -> s{_ikprsKeyFingerprint = a}) -- | The key pair name you provided. ikprsKeyName :: Lens' ImportKeyPairResponse (Maybe Text) -ikprsKeyName = lens _ikprsKeyName (\ s a -> s{_ikprsKeyName = a}); +ikprsKeyName = lens _ikprsKeyName (\ s a -> s{_ikprsKeyName = a}) -- | -- | The response status code. ikprsResponseStatus :: Lens' ImportKeyPairResponse Int -ikprsResponseStatus = lens _ikprsResponseStatus (\ s a -> s{_ikprsResponseStatus = a}); +ikprsResponseStatus = lens _ikprsResponseStatus (\ s a -> s{_ikprsResponseStatus = a}) instance NFData ImportKeyPairResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ImportSnapshot --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -85,38 +85,38 @@ :: ImportSnapshot importSnapshot = ImportSnapshot' - { _isDiskContainer = Nothing - , _isClientToken = Nothing - , _isRoleName = Nothing - , _isDescription = Nothing - , _isDryRun = Nothing - , _isClientData = Nothing - } + { _isDiskContainer = Nothing + , _isClientToken = Nothing + , _isRoleName = Nothing + , _isDescription = Nothing + , _isDryRun = Nothing + , _isClientData = Nothing + } -- | Information about the disk container. isDiskContainer :: Lens' ImportSnapshot (Maybe SnapshotDiskContainer) -isDiskContainer = lens _isDiskContainer (\ s a -> s{_isDiskContainer = a}); +isDiskContainer = lens _isDiskContainer (\ s a -> s{_isDiskContainer = a}) -- | Token to enable idempotency for VM import requests. isClientToken :: Lens' ImportSnapshot (Maybe Text) -isClientToken = lens _isClientToken (\ s a -> s{_isClientToken = a}); +isClientToken = lens _isClientToken (\ s a -> s{_isClientToken = a}) -- | The name of the role to use when not using the default role, 'vmimport'. isRoleName :: Lens' ImportSnapshot (Maybe Text) -isRoleName = lens _isRoleName (\ s a -> s{_isRoleName = a}); +isRoleName = lens _isRoleName (\ s a -> s{_isRoleName = a}) -- | The description string for the import snapshot task. isDescription :: Lens' ImportSnapshot (Maybe Text) -isDescription = lens _isDescription (\ s a -> s{_isDescription = a}); +isDescription = lens _isDescription (\ s a -> s{_isDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . isDryRun :: Lens' ImportSnapshot (Maybe Bool) -isDryRun = lens _isDryRun (\ s a -> s{_isDryRun = a}); +isDryRun = lens _isDryRun (\ s a -> s{_isDryRun = a}) -- | The client-specific data. isClientData :: Lens' ImportSnapshot (Maybe ClientData) -isClientData = lens _isClientData (\ s a -> s{_isClientData = a}); +isClientData = lens _isClientData (\ s a -> s{_isClientData = a}) instance AWSRequest ImportSnapshot where type Rs ImportSnapshot = ImportSnapshotResponse @@ -180,27 +180,27 @@ -> ImportSnapshotResponse importSnapshotResponse pResponseStatus_ = ImportSnapshotResponse' - { _isrsSnapshotTaskDetail = Nothing - , _isrsImportTaskId = Nothing - , _isrsDescription = Nothing - , _isrsResponseStatus = pResponseStatus_ - } + { _isrsSnapshotTaskDetail = Nothing + , _isrsImportTaskId = Nothing + , _isrsDescription = Nothing + , _isrsResponseStatus = pResponseStatus_ + } -- | Information about the import snapshot task. isrsSnapshotTaskDetail :: Lens' ImportSnapshotResponse (Maybe SnapshotTaskDetail) -isrsSnapshotTaskDetail = lens _isrsSnapshotTaskDetail (\ s a -> s{_isrsSnapshotTaskDetail = a}); +isrsSnapshotTaskDetail = lens _isrsSnapshotTaskDetail (\ s a -> s{_isrsSnapshotTaskDetail = a}) -- | The ID of the import snapshot task. isrsImportTaskId :: Lens' ImportSnapshotResponse (Maybe Text) -isrsImportTaskId = lens _isrsImportTaskId (\ s a -> s{_isrsImportTaskId = a}); +isrsImportTaskId = lens _isrsImportTaskId (\ s a -> s{_isrsImportTaskId = a}) -- | A description of the import snapshot task. isrsDescription :: Lens' ImportSnapshotResponse (Maybe Text) -isrsDescription = lens _isrsDescription (\ s a -> s{_isrsDescription = a}); +isrsDescription = lens _isrsDescription (\ s a -> s{_isrsDescription = a}) -- | -- | The response status code. isrsResponseStatus :: Lens' ImportSnapshotResponse Int -isrsResponseStatus = lens _isrsResponseStatus (\ s a -> s{_isrsResponseStatus = a}); +isrsResponseStatus = lens _isrsResponseStatus (\ s a -> s{_isrsResponseStatus = a}) instance NFData ImportSnapshotResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ImportVolume --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -84,33 +84,33 @@ -> ImportVolume importVolume pAvailabilityZone_ pImage_ pVolume_ = ImportVolume' - { _ivDescription = Nothing - , _ivDryRun = Nothing - , _ivAvailabilityZone = pAvailabilityZone_ - , _ivImage = pImage_ - , _ivVolume = pVolume_ - } + { _ivDescription = Nothing + , _ivDryRun = Nothing + , _ivAvailabilityZone = pAvailabilityZone_ + , _ivImage = pImage_ + , _ivVolume = pVolume_ + } -- | A description of the volume. ivDescription :: Lens' ImportVolume (Maybe Text) -ivDescription = lens _ivDescription (\ s a -> s{_ivDescription = a}); +ivDescription = lens _ivDescription (\ s a -> s{_ivDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ivDryRun :: Lens' ImportVolume (Maybe Bool) -ivDryRun = lens _ivDryRun (\ s a -> s{_ivDryRun = a}); +ivDryRun = lens _ivDryRun (\ s a -> s{_ivDryRun = a}) -- | The Availability Zone for the resulting EBS volume. ivAvailabilityZone :: Lens' ImportVolume Text -ivAvailabilityZone = lens _ivAvailabilityZone (\ s a -> s{_ivAvailabilityZone = a}); +ivAvailabilityZone = lens _ivAvailabilityZone (\ s a -> s{_ivAvailabilityZone = a}) -- | The disk image. ivImage :: Lens' ImportVolume DiskImageDetail -ivImage = lens _ivImage (\ s a -> s{_ivImage = a}); +ivImage = lens _ivImage (\ s a -> s{_ivImage = a}) -- | The volume size. ivVolume :: Lens' ImportVolume VolumeDetail -ivVolume = lens _ivVolume (\ s a -> s{_ivVolume = a}); +ivVolume = lens _ivVolume (\ s a -> s{_ivVolume = a}) instance AWSRequest ImportVolume where type Rs ImportVolume = ImportVolumeResponse @@ -164,15 +164,15 @@ -> ImportVolumeResponse importVolumeResponse pResponseStatus_ = ImportVolumeResponse' - {_ivrsConversionTask = Nothing, _ivrsResponseStatus = pResponseStatus_} + {_ivrsConversionTask = Nothing, _ivrsResponseStatus = pResponseStatus_} -- | Information about the conversion task. ivrsConversionTask :: Lens' ImportVolumeResponse (Maybe ConversionTask) -ivrsConversionTask = lens _ivrsConversionTask (\ s a -> s{_ivrsConversionTask = a}); +ivrsConversionTask = lens _ivrsConversionTask (\ s a -> s{_ivrsConversionTask = a}) -- | -- | The response status code. ivrsResponseStatus :: Lens' ImportVolumeResponse Int -ivrsResponseStatus = lens _ivrsResponseStatus (\ s a -> s{_ivrsResponseStatus = a}); +ivrsResponseStatus = lens _ivrsResponseStatus (\ s a -> s{_ivrsResponseStatus = a}) instance NFData ImportVolumeResponse where diff --git a/gen/Network/AWS/EC2/ModifyFleet.hs b/gen/Network/AWS/EC2/ModifyFleet.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/ModifyFleet.hs @@ -0,0 +1,161 @@ +{-# 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.ModifyFleet +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies the specified EC2 Fleet. +-- +-- +-- While the EC2 Fleet is being modified, it is in the @modifying@ state. +-- +module Network.AWS.EC2.ModifyFleet + ( + -- * Creating a Request + modifyFleet + , ModifyFleet + -- * Request Lenses + , mfExcessCapacityTerminationPolicy + , mfDryRun + , mfFleetId + , mfTargetCapacitySpecification + + -- * Destructuring the Response + , modifyFleetResponse + , ModifyFleetResponse + -- * Response Lenses + , mfrsReturn + , mfrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'modifyFleet' smart constructor. +data ModifyFleet = ModifyFleet' + { _mfExcessCapacityTerminationPolicy :: !(Maybe FleetExcessCapacityTerminationPolicy) + , _mfDryRun :: !(Maybe Bool) + , _mfFleetId :: !Text + , _mfTargetCapacitySpecification :: !TargetCapacitySpecificationRequest + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyFleet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mfExcessCapacityTerminationPolicy' - Indicates whether running instances should be terminated if the total target capacity of the EC2 Fleet is decreased below the current size of the EC2 Fleet. +-- +-- * 'mfDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'mfFleetId' - The ID of the EC2 Fleet. +-- +-- * 'mfTargetCapacitySpecification' - The size of the EC2 Fleet. +modifyFleet + :: Text -- ^ 'mfFleetId' + -> TargetCapacitySpecificationRequest -- ^ 'mfTargetCapacitySpecification' + -> ModifyFleet +modifyFleet pFleetId_ pTargetCapacitySpecification_ = + ModifyFleet' + { _mfExcessCapacityTerminationPolicy = Nothing + , _mfDryRun = Nothing + , _mfFleetId = pFleetId_ + , _mfTargetCapacitySpecification = pTargetCapacitySpecification_ + } + + +-- | Indicates whether running instances should be terminated if the total target capacity of the EC2 Fleet is decreased below the current size of the EC2 Fleet. +mfExcessCapacityTerminationPolicy :: Lens' ModifyFleet (Maybe FleetExcessCapacityTerminationPolicy) +mfExcessCapacityTerminationPolicy = lens _mfExcessCapacityTerminationPolicy (\ s a -> s{_mfExcessCapacityTerminationPolicy = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +mfDryRun :: Lens' ModifyFleet (Maybe Bool) +mfDryRun = lens _mfDryRun (\ s a -> s{_mfDryRun = a}) + +-- | The ID of the EC2 Fleet. +mfFleetId :: Lens' ModifyFleet Text +mfFleetId = lens _mfFleetId (\ s a -> s{_mfFleetId = a}) + +-- | The size of the EC2 Fleet. +mfTargetCapacitySpecification :: Lens' ModifyFleet TargetCapacitySpecificationRequest +mfTargetCapacitySpecification = lens _mfTargetCapacitySpecification (\ s a -> s{_mfTargetCapacitySpecification = a}) + +instance AWSRequest ModifyFleet where + type Rs ModifyFleet = ModifyFleetResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + ModifyFleetResponse' <$> + (x .@? "return") <*> (pure (fromEnum s))) + +instance Hashable ModifyFleet where + +instance NFData ModifyFleet where + +instance ToHeaders ModifyFleet where + toHeaders = const mempty + +instance ToPath ModifyFleet where + toPath = const "/" + +instance ToQuery ModifyFleet where + toQuery ModifyFleet'{..} + = mconcat + ["Action" =: ("ModifyFleet" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "ExcessCapacityTerminationPolicy" =: + _mfExcessCapacityTerminationPolicy, + "DryRun" =: _mfDryRun, "FleetId" =: _mfFleetId, + "TargetCapacitySpecification" =: + _mfTargetCapacitySpecification] + +-- | /See:/ 'modifyFleetResponse' smart constructor. +data ModifyFleetResponse = ModifyFleetResponse' + { _mfrsReturn :: !(Maybe Bool) + , _mfrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyFleetResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mfrsReturn' - Is @true@ if the request succeeds, and an error otherwise. +-- +-- * 'mfrsResponseStatus' - -- | The response status code. +modifyFleetResponse + :: Int -- ^ 'mfrsResponseStatus' + -> ModifyFleetResponse +modifyFleetResponse pResponseStatus_ = + ModifyFleetResponse' + {_mfrsReturn = Nothing, _mfrsResponseStatus = pResponseStatus_} + + +-- | Is @true@ if the request succeeds, and an error otherwise. +mfrsReturn :: Lens' ModifyFleetResponse (Maybe Bool) +mfrsReturn = lens _mfrsReturn (\ s a -> s{_mfrsReturn = a}) + +-- | -- | The response status code. +mfrsResponseStatus :: Lens' ModifyFleetResponse Int +mfrsResponseStatus = lens _mfrsResponseStatus (\ s a -> s{_mfrsResponseStatus = a}) + +instance NFData ModifyFleetResponse where diff --git a/gen/Network/AWS/EC2/ModifyFpgaImageAttribute.hs b/gen/Network/AWS/EC2/ModifyFpgaImageAttribute.hs --- a/gen/Network/AWS/EC2/ModifyFpgaImageAttribute.hs +++ b/gen/Network/AWS/EC2/ModifyFpgaImageAttribute.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyFpgaImageAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -96,58 +96,58 @@ -> ModifyFpgaImageAttribute modifyFpgaImageAttribute pFpgaImageId_ = ModifyFpgaImageAttribute' - { _mfiaAttribute = Nothing - , _mfiaUserIds = Nothing - , _mfiaUserGroups = Nothing - , _mfiaLoadPermission = Nothing - , _mfiaName = Nothing - , _mfiaOperationType = Nothing - , _mfiaProductCodes = Nothing - , _mfiaDescription = Nothing - , _mfiaDryRun = Nothing - , _mfiaFpgaImageId = pFpgaImageId_ - } + { _mfiaAttribute = Nothing + , _mfiaUserIds = Nothing + , _mfiaUserGroups = Nothing + , _mfiaLoadPermission = Nothing + , _mfiaName = Nothing + , _mfiaOperationType = Nothing + , _mfiaProductCodes = Nothing + , _mfiaDescription = Nothing + , _mfiaDryRun = Nothing + , _mfiaFpgaImageId = pFpgaImageId_ + } -- | The name of the attribute. mfiaAttribute :: Lens' ModifyFpgaImageAttribute (Maybe FpgaImageAttributeName) -mfiaAttribute = lens _mfiaAttribute (\ s a -> s{_mfiaAttribute = a}); +mfiaAttribute = lens _mfiaAttribute (\ s a -> s{_mfiaAttribute = a}) -- | One or more AWS account IDs. This parameter is valid only when modifying the @loadPermission@ attribute. mfiaUserIds :: Lens' ModifyFpgaImageAttribute [Text] -mfiaUserIds = lens _mfiaUserIds (\ s a -> s{_mfiaUserIds = a}) . _Default . _Coerce; +mfiaUserIds = lens _mfiaUserIds (\ s a -> s{_mfiaUserIds = a}) . _Default . _Coerce -- | One or more user groups. This parameter is valid only when modifying the @loadPermission@ attribute. mfiaUserGroups :: Lens' ModifyFpgaImageAttribute [Text] -mfiaUserGroups = lens _mfiaUserGroups (\ s a -> s{_mfiaUserGroups = a}) . _Default . _Coerce; +mfiaUserGroups = lens _mfiaUserGroups (\ s a -> s{_mfiaUserGroups = a}) . _Default . _Coerce -- | The load permission for the AFI. mfiaLoadPermission :: Lens' ModifyFpgaImageAttribute (Maybe LoadPermissionModifications) -mfiaLoadPermission = lens _mfiaLoadPermission (\ s a -> s{_mfiaLoadPermission = a}); +mfiaLoadPermission = lens _mfiaLoadPermission (\ s a -> s{_mfiaLoadPermission = a}) -- | A name for the AFI. mfiaName :: Lens' ModifyFpgaImageAttribute (Maybe Text) -mfiaName = lens _mfiaName (\ s a -> s{_mfiaName = a}); +mfiaName = lens _mfiaName (\ s a -> s{_mfiaName = a}) -- | The operation type. mfiaOperationType :: Lens' ModifyFpgaImageAttribute (Maybe OperationType) -mfiaOperationType = lens _mfiaOperationType (\ s a -> s{_mfiaOperationType = a}); +mfiaOperationType = lens _mfiaOperationType (\ s a -> s{_mfiaOperationType = a}) -- | One or more product codes. After you add a product code to an AFI, it can't be removed. This parameter is valid only when modifying the @productCodes@ attribute. mfiaProductCodes :: Lens' ModifyFpgaImageAttribute [Text] -mfiaProductCodes = lens _mfiaProductCodes (\ s a -> s{_mfiaProductCodes = a}) . _Default . _Coerce; +mfiaProductCodes = lens _mfiaProductCodes (\ s a -> s{_mfiaProductCodes = a}) . _Default . _Coerce -- | A description for the AFI. mfiaDescription :: Lens' ModifyFpgaImageAttribute (Maybe Text) -mfiaDescription = lens _mfiaDescription (\ s a -> s{_mfiaDescription = a}); +mfiaDescription = lens _mfiaDescription (\ s a -> s{_mfiaDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mfiaDryRun :: Lens' ModifyFpgaImageAttribute (Maybe Bool) -mfiaDryRun = lens _mfiaDryRun (\ s a -> s{_mfiaDryRun = a}); +mfiaDryRun = lens _mfiaDryRun (\ s a -> s{_mfiaDryRun = a}) -- | The ID of the AFI. mfiaFpgaImageId :: Lens' ModifyFpgaImageAttribute Text -mfiaFpgaImageId = lens _mfiaFpgaImageId (\ s a -> s{_mfiaFpgaImageId = a}); +mfiaFpgaImageId = lens _mfiaFpgaImageId (\ s a -> s{_mfiaFpgaImageId = a}) instance AWSRequest ModifyFpgaImageAttribute where type Rs ModifyFpgaImageAttribute = @@ -207,18 +207,18 @@ -> ModifyFpgaImageAttributeResponse modifyFpgaImageAttributeResponse pResponseStatus_ = ModifyFpgaImageAttributeResponse' - { _mfiarsFpgaImageAttribute = Nothing - , _mfiarsResponseStatus = pResponseStatus_ - } + { _mfiarsFpgaImageAttribute = Nothing + , _mfiarsResponseStatus = pResponseStatus_ + } -- | Information about the attribute. mfiarsFpgaImageAttribute :: Lens' ModifyFpgaImageAttributeResponse (Maybe FpgaImageAttribute) -mfiarsFpgaImageAttribute = lens _mfiarsFpgaImageAttribute (\ s a -> s{_mfiarsFpgaImageAttribute = a}); +mfiarsFpgaImageAttribute = lens _mfiarsFpgaImageAttribute (\ s a -> s{_mfiarsFpgaImageAttribute = a}) -- | -- | The response status code. mfiarsResponseStatus :: Lens' ModifyFpgaImageAttributeResponse Int -mfiarsResponseStatus = lens _mfiarsResponseStatus (\ s a -> s{_mfiarsResponseStatus = a}); +mfiarsResponseStatus = lens _mfiarsResponseStatus (\ s a -> s{_mfiarsResponseStatus = a}) instance NFData ModifyFpgaImageAttributeResponse where diff --git a/gen/Network/AWS/EC2/ModifyHosts.hs b/gen/Network/AWS/EC2/ModifyHosts.hs --- a/gen/Network/AWS/EC2/ModifyHosts.hs +++ b/gen/Network/AWS/EC2/ModifyHosts.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyHosts --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,11 +73,11 @@ -- | Specify whether to enable or disable auto-placement. mhAutoPlacement :: Lens' ModifyHosts AutoPlacement -mhAutoPlacement = lens _mhAutoPlacement (\ s a -> s{_mhAutoPlacement = a}); +mhAutoPlacement = lens _mhAutoPlacement (\ s a -> s{_mhAutoPlacement = a}) -- | The host IDs of the Dedicated Hosts you want to modify. mhHostIds :: Lens' ModifyHosts [Text] -mhHostIds = lens _mhHostIds (\ s a -> s{_mhHostIds = a}) . _Coerce; +mhHostIds = lens _mhHostIds (\ s a -> s{_mhHostIds = a}) . _Coerce instance AWSRequest ModifyHosts where type Rs ModifyHosts = ModifyHostsResponse @@ -137,22 +137,22 @@ -> ModifyHostsResponse modifyHostsResponse pResponseStatus_ = ModifyHostsResponse' - { _mhrsUnsuccessful = Nothing - , _mhrsSuccessful = Nothing - , _mhrsResponseStatus = pResponseStatus_ - } + { _mhrsUnsuccessful = Nothing + , _mhrsSuccessful = Nothing + , _mhrsResponseStatus = pResponseStatus_ + } -- | The IDs of the Dedicated Hosts that could not be modified. Check whether the setting you requested can be used. mhrsUnsuccessful :: Lens' ModifyHostsResponse [UnsuccessfulItem] -mhrsUnsuccessful = lens _mhrsUnsuccessful (\ s a -> s{_mhrsUnsuccessful = a}) . _Default . _Coerce; +mhrsUnsuccessful = lens _mhrsUnsuccessful (\ s a -> s{_mhrsUnsuccessful = a}) . _Default . _Coerce -- | The IDs of the Dedicated Hosts that were successfully modified. mhrsSuccessful :: Lens' ModifyHostsResponse [Text] -mhrsSuccessful = lens _mhrsSuccessful (\ s a -> s{_mhrsSuccessful = a}) . _Default . _Coerce; +mhrsSuccessful = lens _mhrsSuccessful (\ s a -> s{_mhrsSuccessful = a}) . _Default . _Coerce -- | -- | The response status code. mhrsResponseStatus :: Lens' ModifyHostsResponse Int -mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a}); +mhrsResponseStatus = lens _mhrsResponseStatus (\ s a -> s{_mhrsResponseStatus = a}) instance NFData ModifyHostsResponse where diff --git a/gen/Network/AWS/EC2/ModifyIdFormat.hs b/gen/Network/AWS/EC2/ModifyIdFormat.hs --- a/gen/Network/AWS/EC2/ModifyIdFormat.hs +++ b/gen/Network/AWS/EC2/ModifyIdFormat.hs @@ -12,15 +12,17 @@ -- | -- Module : Network.AWS.EC2.ModifyIdFormat --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Modifies the ID format for the specified resource on a per-region basis. You can specify that resources should receive longer IDs (17-character IDs) when they are created. The following resource types support longer IDs: @instance@ | @reservation@ | @snapshot@ | @volume@ . +-- Modifies the ID format for the specified resource on a per-region basis. You can specify that resources should receive longer IDs (17-character IDs) when they are created. -- -- +-- This request can only be used to modify longer ID settings for resource types that are within the opt-in period. Resources currently in their opt-in period include: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @route-table@ | @route-table-association@ | @security-group@ | @subnet@ | @subnet-cidr-block-association@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . +-- -- This setting applies to the IAM user who makes the request; it does not apply to the entire AWS account. By default, an IAM user defaults to the same settings as the root user. If you're using this action as the root user, then these settings apply to the entire account, unless an IAM user explicitly overrides these settings for themselves. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- -- Resources created with longer IDs are visible to all IAM roles and users, regardless of these settings and provided that they have permission to use the relevant @Describe@ command for the resource type. @@ -61,7 +63,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'mifResource' - The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- * 'mifResource' - The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @route-table@ | @route-table-association@ | @security-group@ | @subnet@ | @subnet-cidr-block-association@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . Alternatively, use the @all-current@ option to include all resource types that are currently within their opt-in period for longer IDs. -- -- * 'mifUseLongIds' - Indicate whether the resource should use longer IDs (17-character IDs). modifyIdFormat @@ -72,13 +74,13 @@ ModifyIdFormat' {_mifResource = pResource_, _mifUseLongIds = pUseLongIds_} --- | The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- | The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @route-table@ | @route-table-association@ | @security-group@ | @subnet@ | @subnet-cidr-block-association@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . Alternatively, use the @all-current@ option to include all resource types that are currently within their opt-in period for longer IDs. mifResource :: Lens' ModifyIdFormat Text -mifResource = lens _mifResource (\ s a -> s{_mifResource = a}); +mifResource = lens _mifResource (\ s a -> s{_mifResource = a}) -- | Indicate whether the resource should use longer IDs (17-character IDs). mifUseLongIds :: Lens' ModifyIdFormat Bool -mifUseLongIds = lens _mifUseLongIds (\ s a -> s{_mifUseLongIds = a}); +mifUseLongIds = lens _mifUseLongIds (\ s a -> s{_mifUseLongIds = a}) instance AWSRequest ModifyIdFormat where type Rs ModifyIdFormat = ModifyIdFormatResponse diff --git a/gen/Network/AWS/EC2/ModifyIdentityIdFormat.hs b/gen/Network/AWS/EC2/ModifyIdentityIdFormat.hs --- a/gen/Network/AWS/EC2/ModifyIdentityIdFormat.hs +++ b/gen/Network/AWS/EC2/ModifyIdentityIdFormat.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyIdentityIdFormat --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,8 +21,10 @@ -- Modifies the ID format of a resource for a specified IAM user, IAM role, or the root user for an account; or all IAM users, IAM roles, and the root user for an account. You can specify that resources should receive longer IDs (17-character IDs) when they are created. -- -- --- The following resource types support longer IDs: @instance@ | @reservation@ | @snapshot@ | @volume@ . For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- This request can only be used to modify longer ID settings for resource types that are within the opt-in period. Resources currently in their opt-in period include: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @route-table@ | @route-table-association@ | @security-group@ | @subnet@ | @subnet-cidr-block-association@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . -- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- -- This setting applies to the principal specified in the request; it does not apply to the principal that makes the request. -- -- Resources created with longer IDs are visible to all IAM roles and users, regardless of these settings and provided that they have permission to use the relevant @Describe@ command for the resource type. @@ -67,7 +69,7 @@ -- -- * 'miifPrincipalARN' - The ARN of the principal, which can be an IAM user, IAM role, or the root user. Specify @all@ to modify the ID format for all IAM users, IAM roles, and the root user of the account. -- --- * 'miifResource' - The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- * 'miifResource' - The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @route-table@ | @route-table-association@ | @security-group@ | @subnet@ | @subnet-cidr-block-association@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . Alternatively, use the @all-current@ option to include all resource types that are currently within their opt-in period for longer IDs. -- -- * 'miifUseLongIds' - Indicates whether the resource should use longer IDs (17-character IDs) modifyIdentityIdFormat @@ -77,23 +79,23 @@ -> ModifyIdentityIdFormat modifyIdentityIdFormat pPrincipalARN_ pResource_ pUseLongIds_ = ModifyIdentityIdFormat' - { _miifPrincipalARN = pPrincipalARN_ - , _miifResource = pResource_ - , _miifUseLongIds = pUseLongIds_ - } + { _miifPrincipalARN = pPrincipalARN_ + , _miifResource = pResource_ + , _miifUseLongIds = pUseLongIds_ + } -- | The ARN of the principal, which can be an IAM user, IAM role, or the root user. Specify @all@ to modify the ID format for all IAM users, IAM roles, and the root user of the account. miifPrincipalARN :: Lens' ModifyIdentityIdFormat Text -miifPrincipalARN = lens _miifPrincipalARN (\ s a -> s{_miifPrincipalARN = a}); +miifPrincipalARN = lens _miifPrincipalARN (\ s a -> s{_miifPrincipalARN = a}) --- | The type of resource: @instance@ | @reservation@ | @snapshot@ | @volume@ +-- | The type of resource: @bundle@ | @conversion-task@ | @customer-gateway@ | @dhcp-options@ | @elastic-ip-allocation@ | @elastic-ip-association@ | @export-task@ | @flow-log@ | @image@ | @import-task@ | @internet-gateway@ | @network-acl@ | @network-acl-association@ | @network-interface@ | @network-interface-attachment@ | @prefix-list@ | @route-table@ | @route-table-association@ | @security-group@ | @subnet@ | @subnet-cidr-block-association@ | @vpc@ | @vpc-cidr-block-association@ | @vpc-endpoint@ | @vpc-peering-connection@ | @vpn-connection@ | @vpn-gateway@ . Alternatively, use the @all-current@ option to include all resource types that are currently within their opt-in period for longer IDs. miifResource :: Lens' ModifyIdentityIdFormat Text -miifResource = lens _miifResource (\ s a -> s{_miifResource = a}); +miifResource = lens _miifResource (\ s a -> s{_miifResource = a}) -- | Indicates whether the resource should use longer IDs (17-character IDs) miifUseLongIds :: Lens' ModifyIdentityIdFormat Bool -miifUseLongIds = lens _miifUseLongIds (\ s a -> s{_miifUseLongIds = a}); +miifUseLongIds = lens _miifUseLongIds (\ s a -> s{_miifUseLongIds = a}) instance AWSRequest ModifyIdentityIdFormat where type Rs ModifyIdentityIdFormat = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyImageAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -101,58 +101,58 @@ -> ModifyImageAttribute modifyImageAttribute pImageId_ = ModifyImageAttribute' - { _miaAttribute = Nothing - , _miaUserIds = Nothing - , _miaUserGroups = Nothing - , _miaValue = Nothing - , _miaLaunchPermission = Nothing - , _miaOperationType = Nothing - , _miaProductCodes = Nothing - , _miaDescription = Nothing - , _miaDryRun = Nothing - , _miaImageId = pImageId_ - } + { _miaAttribute = Nothing + , _miaUserIds = Nothing + , _miaUserGroups = Nothing + , _miaValue = Nothing + , _miaLaunchPermission = Nothing + , _miaOperationType = Nothing + , _miaProductCodes = Nothing + , _miaDescription = Nothing + , _miaDryRun = Nothing + , _miaImageId = pImageId_ + } -- | The name of the attribute to modify. The valid values are @description@ , @launchPermission@ , and @productCodes@ . miaAttribute :: Lens' ModifyImageAttribute (Maybe Text) -miaAttribute = lens _miaAttribute (\ s a -> s{_miaAttribute = a}); +miaAttribute = lens _miaAttribute (\ s a -> s{_miaAttribute = a}) -- | One or more AWS account IDs. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . miaUserIds :: Lens' ModifyImageAttribute [Text] -miaUserIds = lens _miaUserIds (\ s a -> s{_miaUserIds = a}) . _Default . _Coerce; +miaUserIds = lens _miaUserIds (\ s a -> s{_miaUserIds = a}) . _Default . _Coerce -- | One or more user groups. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . miaUserGroups :: Lens' ModifyImageAttribute [Text] -miaUserGroups = lens _miaUserGroups (\ s a -> s{_miaUserGroups = a}) . _Default . _Coerce; +miaUserGroups = lens _miaUserGroups (\ s a -> s{_miaUserGroups = a}) . _Default . _Coerce -- | The value of the attribute being modified. This parameter can be used only when the @Attribute@ parameter is @description@ or @productCodes@ . miaValue :: Lens' ModifyImageAttribute (Maybe Text) -miaValue = lens _miaValue (\ s a -> s{_miaValue = a}); +miaValue = lens _miaValue (\ s a -> s{_miaValue = a}) -- | A new launch permission for the AMI. miaLaunchPermission :: Lens' ModifyImageAttribute (Maybe LaunchPermissionModifications) -miaLaunchPermission = lens _miaLaunchPermission (\ s a -> s{_miaLaunchPermission = a}); +miaLaunchPermission = lens _miaLaunchPermission (\ s a -> s{_miaLaunchPermission = a}) -- | The operation type. This parameter can be used only when the @Attribute@ parameter is @launchPermission@ . miaOperationType :: Lens' ModifyImageAttribute (Maybe OperationType) -miaOperationType = lens _miaOperationType (\ s a -> s{_miaOperationType = a}); +miaOperationType = lens _miaOperationType (\ s a -> s{_miaOperationType = a}) -- | One or more DevPay product codes. After you add a product code to an AMI, it can't be removed. miaProductCodes :: Lens' ModifyImageAttribute [Text] -miaProductCodes = lens _miaProductCodes (\ s a -> s{_miaProductCodes = a}) . _Default . _Coerce; +miaProductCodes = lens _miaProductCodes (\ s a -> s{_miaProductCodes = a}) . _Default . _Coerce -- | A new description for the AMI. miaDescription :: Lens' ModifyImageAttribute (Maybe AttributeValue) -miaDescription = lens _miaDescription (\ s a -> s{_miaDescription = a}); +miaDescription = lens _miaDescription (\ s a -> s{_miaDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . miaDryRun :: Lens' ModifyImageAttribute (Maybe Bool) -miaDryRun = lens _miaDryRun (\ s a -> s{_miaDryRun = a}); +miaDryRun = lens _miaDryRun (\ s a -> s{_miaDryRun = a}) -- | The ID of the AMI. miaImageId :: Lens' ModifyImageAttribute Text -miaImageId = lens _miaImageId (\ s a -> s{_miaImageId = a}); +miaImageId = lens _miaImageId (\ s a -> s{_miaImageId = a}) instance AWSRequest ModifyImageAttribute where type Rs ModifyImageAttribute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyInstanceAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,8 @@ -- Modifies the specified attribute of the specified instance. You can specify only one attribute at a time. -- -- +-- __Note: __ Using this action to change the security groups associated with an elastic network interface (ENI) attached to an instance in a VPC can result in an error if the instance has more than one ENI. To change the security groups associated with an ENI attached to an instance that has multiple ENIs, we recommend that you use the 'ModifyNetworkInterfaceAttribute' action. +-- -- To modify some attributes, the instance must be stopped. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- module Network.AWS.EC2.ModifyInstanceAttribute @@ -123,88 +125,88 @@ -> ModifyInstanceAttribute modifyInstanceAttribute pInstanceId_ = ModifyInstanceAttribute' - { _mGroups = Nothing - , _mAttribute = Nothing - , _mEnaSupport = Nothing - , _mSourceDestCheck = Nothing - , _mDisableAPITermination = Nothing - , _mKernel = Nothing - , _mRAMDisk = Nothing - , _mValue = Nothing - , _mInstanceType = Nothing - , _mSRIOVNetSupport = Nothing - , _mEBSOptimized = Nothing - , _mUserData = Nothing - , _mInstanceInitiatedShutdownBehavior = Nothing - , _mBlockDeviceMappings = Nothing - , _mDryRun = Nothing - , _mInstanceId = pInstanceId_ - } + { _mGroups = Nothing + , _mAttribute = Nothing + , _mEnaSupport = Nothing + , _mSourceDestCheck = Nothing + , _mDisableAPITermination = Nothing + , _mKernel = Nothing + , _mRAMDisk = Nothing + , _mValue = Nothing + , _mInstanceType = Nothing + , _mSRIOVNetSupport = Nothing + , _mEBSOptimized = Nothing + , _mUserData = Nothing + , _mInstanceInitiatedShutdownBehavior = Nothing + , _mBlockDeviceMappings = Nothing + , _mDryRun = Nothing + , _mInstanceId = pInstanceId_ + } -- | [EC2-VPC] Changes the security groups of the instance. You must specify at least one security group, even if it's just the default security group for the VPC. You must specify the security group ID, not the security group name. mGroups :: Lens' ModifyInstanceAttribute [Text] -mGroups = lens _mGroups (\ s a -> s{_mGroups = a}) . _Default . _Coerce; +mGroups = lens _mGroups (\ s a -> s{_mGroups = a}) . _Default . _Coerce -- | The name of the attribute. mAttribute :: Lens' ModifyInstanceAttribute (Maybe InstanceAttributeName) -mAttribute = lens _mAttribute (\ s a -> s{_mAttribute = a}); +mAttribute = lens _mAttribute (\ s a -> s{_mAttribute = a}) -- | Set to @true@ to enable enhanced networking with ENA for the instance. This option is supported only for HVM instances. Specifying this option with a PV instance can make it unreachable. mEnaSupport :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) -mEnaSupport = lens _mEnaSupport (\ s a -> s{_mEnaSupport = a}); +mEnaSupport = lens _mEnaSupport (\ s a -> s{_mEnaSupport = a}) -- | Specifies whether source/destination checking is enabled. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. This value must be @false@ for a NAT instance to perform NAT. mSourceDestCheck :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) -mSourceDestCheck = lens _mSourceDestCheck (\ s a -> s{_mSourceDestCheck = a}); +mSourceDestCheck = lens _mSourceDestCheck (\ s a -> s{_mSourceDestCheck = a}) -- | If the value is @true@ , you can't terminate the instance using the Amazon EC2 console, CLI, or API; otherwise, you can. You cannot use this parameter for Spot Instances. mDisableAPITermination :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) -mDisableAPITermination = lens _mDisableAPITermination (\ s a -> s{_mDisableAPITermination = a}); +mDisableAPITermination = lens _mDisableAPITermination (\ s a -> s{_mDisableAPITermination = a}) -- | Changes the instance's kernel to the specified value. We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see . mKernel :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) -mKernel = lens _mKernel (\ s a -> s{_mKernel = a}); +mKernel = lens _mKernel (\ s a -> s{_mKernel = a}) -- | Changes the instance's RAM disk to the specified value. We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see . mRAMDisk :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) -mRAMDisk = lens _mRAMDisk (\ s a -> s{_mRAMDisk = a}); +mRAMDisk = lens _mRAMDisk (\ s a -> s{_mRAMDisk = a}) -- | A new value for the attribute. Use only with the @kernel@ , @ramdisk@ , @userData@ , @disableApiTermination@ , or @instanceInitiatedShutdownBehavior@ attribute. mValue :: Lens' ModifyInstanceAttribute (Maybe Text) -mValue = lens _mValue (\ s a -> s{_mValue = a}); +mValue = lens _mValue (\ s a -> s{_mValue = a}) -- | Changes the instance type to the specified value. For more information, see . If the instance type is not valid, the error returned is @InvalidInstanceAttributeValue@ . mInstanceType :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) -mInstanceType = lens _mInstanceType (\ s a -> s{_mInstanceType = a}); +mInstanceType = lens _mInstanceType (\ s a -> s{_mInstanceType = a}) -- | Set to @simple@ to enable enhanced networking with the Intel 82599 Virtual Function interface for the instance. There is no way to disable enhanced networking with the Intel 82599 Virtual Function interface at this time. This option is supported only for HVM instances. Specifying this option with a PV instance can make it unreachable. mSRIOVNetSupport :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) -mSRIOVNetSupport = lens _mSRIOVNetSupport (\ s a -> s{_mSRIOVNetSupport = a}); +mSRIOVNetSupport = lens _mSRIOVNetSupport (\ s a -> s{_mSRIOVNetSupport = a}) -- | Specifies whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. mEBSOptimized :: Lens' ModifyInstanceAttribute (Maybe AttributeBooleanValue) -mEBSOptimized = lens _mEBSOptimized (\ s a -> s{_mEBSOptimized = a}); +mEBSOptimized = lens _mEBSOptimized (\ s a -> s{_mEBSOptimized = a}) -- | Changes the instance's user data to the specified value. If you are using an AWS SDK or command line tool, base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide base64-encoded text. mUserData :: Lens' ModifyInstanceAttribute (Maybe BlobAttributeValue) -mUserData = lens _mUserData (\ s a -> s{_mUserData = a}); +mUserData = lens _mUserData (\ s a -> s{_mUserData = a}) -- | Specifies whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). mInstanceInitiatedShutdownBehavior :: Lens' ModifyInstanceAttribute (Maybe AttributeValue) -mInstanceInitiatedShutdownBehavior = lens _mInstanceInitiatedShutdownBehavior (\ s a -> s{_mInstanceInitiatedShutdownBehavior = a}); +mInstanceInitiatedShutdownBehavior = lens _mInstanceInitiatedShutdownBehavior (\ s a -> s{_mInstanceInitiatedShutdownBehavior = a}) -- | Modifies the @DeleteOnTermination@ attribute for volumes that are currently attached. The volume must be owned by the caller. If no value is specified for @DeleteOnTermination@ , the default is @true@ and the volume is deleted when the instance is terminated. To add instance store volumes to an Amazon EBS-backed instance, you must add them when you launch the instance. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . mBlockDeviceMappings :: Lens' ModifyInstanceAttribute [InstanceBlockDeviceMappingSpecification] -mBlockDeviceMappings = lens _mBlockDeviceMappings (\ s a -> s{_mBlockDeviceMappings = a}) . _Default . _Coerce; +mBlockDeviceMappings = lens _mBlockDeviceMappings (\ s a -> s{_mBlockDeviceMappings = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mDryRun :: Lens' ModifyInstanceAttribute (Maybe Bool) -mDryRun = lens _mDryRun (\ s a -> s{_mDryRun = a}); +mDryRun = lens _mDryRun (\ s a -> s{_mDryRun = a}) -- | The ID of the instance. mInstanceId :: Lens' ModifyInstanceAttribute Text -mInstanceId = lens _mInstanceId (\ s a -> s{_mInstanceId = a}); +mInstanceId = lens _mInstanceId (\ s a -> s{_mInstanceId = a}) instance AWSRequest ModifyInstanceAttribute where type Rs ModifyInstanceAttribute = diff --git a/gen/Network/AWS/EC2/ModifyInstanceCreditSpecification.hs b/gen/Network/AWS/EC2/ModifyInstanceCreditSpecification.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/ModifyInstanceCreditSpecification.hs @@ -0,0 +1,177 @@ +{-# 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.ModifyInstanceCreditSpecification +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies the credit option for CPU usage on a running or stopped T2 instance. The credit options are @standard@ and @unlimited@ . +-- +-- +-- For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- +module Network.AWS.EC2.ModifyInstanceCreditSpecification + ( + -- * Creating a Request + modifyInstanceCreditSpecification + , ModifyInstanceCreditSpecification + -- * Request Lenses + , micsClientToken + , micsDryRun + , micsInstanceCreditSpecifications + + -- * Destructuring the Response + , modifyInstanceCreditSpecificationResponse + , ModifyInstanceCreditSpecificationResponse + -- * Response Lenses + , micsrsUnsuccessfulInstanceCreditSpecifications + , micsrsSuccessfulInstanceCreditSpecifications + , micsrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'modifyInstanceCreditSpecification' smart constructor. +data ModifyInstanceCreditSpecification = ModifyInstanceCreditSpecification' + { _micsClientToken :: !(Maybe Text) + , _micsDryRun :: !(Maybe Bool) + , _micsInstanceCreditSpecifications :: ![InstanceCreditSpecificationRequest] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyInstanceCreditSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'micsClientToken' - A unique, case-sensitive token that you provide to ensure idempotency of your modification request. For more information, see . +-- +-- * 'micsDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'micsInstanceCreditSpecifications' - Information about the credit option for CPU usage. +modifyInstanceCreditSpecification + :: ModifyInstanceCreditSpecification +modifyInstanceCreditSpecification = + ModifyInstanceCreditSpecification' + { _micsClientToken = Nothing + , _micsDryRun = Nothing + , _micsInstanceCreditSpecifications = mempty + } + + +-- | A unique, case-sensitive token that you provide to ensure idempotency of your modification request. For more information, see . +micsClientToken :: Lens' ModifyInstanceCreditSpecification (Maybe Text) +micsClientToken = lens _micsClientToken (\ s a -> s{_micsClientToken = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +micsDryRun :: Lens' ModifyInstanceCreditSpecification (Maybe Bool) +micsDryRun = lens _micsDryRun (\ s a -> s{_micsDryRun = a}) + +-- | Information about the credit option for CPU usage. +micsInstanceCreditSpecifications :: Lens' ModifyInstanceCreditSpecification [InstanceCreditSpecificationRequest] +micsInstanceCreditSpecifications = lens _micsInstanceCreditSpecifications (\ s a -> s{_micsInstanceCreditSpecifications = a}) . _Coerce + +instance AWSRequest ModifyInstanceCreditSpecification + where + type Rs ModifyInstanceCreditSpecification = + ModifyInstanceCreditSpecificationResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + ModifyInstanceCreditSpecificationResponse' <$> + (x .@? "unsuccessfulInstanceCreditSpecificationSet" + .!@ mempty + >>= may (parseXMLList "item")) + <*> + (x .@? "successfulInstanceCreditSpecificationSet" .!@ + mempty + >>= may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable ModifyInstanceCreditSpecification + where + +instance NFData ModifyInstanceCreditSpecification + where + +instance ToHeaders ModifyInstanceCreditSpecification + where + toHeaders = const mempty + +instance ToPath ModifyInstanceCreditSpecification + where + toPath = const "/" + +instance ToQuery ModifyInstanceCreditSpecification + where + toQuery ModifyInstanceCreditSpecification'{..} + = mconcat + ["Action" =: + ("ModifyInstanceCreditSpecification" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "ClientToken" =: _micsClientToken, + "DryRun" =: _micsDryRun, + toQueryList "InstanceCreditSpecification" + _micsInstanceCreditSpecifications] + +-- | /See:/ 'modifyInstanceCreditSpecificationResponse' smart constructor. +data ModifyInstanceCreditSpecificationResponse = ModifyInstanceCreditSpecificationResponse' + { _micsrsUnsuccessfulInstanceCreditSpecifications :: !(Maybe [UnsuccessfulInstanceCreditSpecificationItem]) + , _micsrsSuccessfulInstanceCreditSpecifications :: !(Maybe [SuccessfulInstanceCreditSpecificationItem]) + , _micsrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyInstanceCreditSpecificationResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'micsrsUnsuccessfulInstanceCreditSpecifications' - Information about the instances whose credit option for CPU usage was not modified. +-- +-- * 'micsrsSuccessfulInstanceCreditSpecifications' - Information about the instances whose credit option for CPU usage was successfully modified. +-- +-- * 'micsrsResponseStatus' - -- | The response status code. +modifyInstanceCreditSpecificationResponse + :: Int -- ^ 'micsrsResponseStatus' + -> ModifyInstanceCreditSpecificationResponse +modifyInstanceCreditSpecificationResponse pResponseStatus_ = + ModifyInstanceCreditSpecificationResponse' + { _micsrsUnsuccessfulInstanceCreditSpecifications = Nothing + , _micsrsSuccessfulInstanceCreditSpecifications = Nothing + , _micsrsResponseStatus = pResponseStatus_ + } + + +-- | Information about the instances whose credit option for CPU usage was not modified. +micsrsUnsuccessfulInstanceCreditSpecifications :: Lens' ModifyInstanceCreditSpecificationResponse [UnsuccessfulInstanceCreditSpecificationItem] +micsrsUnsuccessfulInstanceCreditSpecifications = lens _micsrsUnsuccessfulInstanceCreditSpecifications (\ s a -> s{_micsrsUnsuccessfulInstanceCreditSpecifications = a}) . _Default . _Coerce + +-- | Information about the instances whose credit option for CPU usage was successfully modified. +micsrsSuccessfulInstanceCreditSpecifications :: Lens' ModifyInstanceCreditSpecificationResponse [SuccessfulInstanceCreditSpecificationItem] +micsrsSuccessfulInstanceCreditSpecifications = lens _micsrsSuccessfulInstanceCreditSpecifications (\ s a -> s{_micsrsSuccessfulInstanceCreditSpecifications = a}) . _Default . _Coerce + +-- | -- | The response status code. +micsrsResponseStatus :: Lens' ModifyInstanceCreditSpecificationResponse Int +micsrsResponseStatus = lens _micsrsResponseStatus (\ s a -> s{_micsrsResponseStatus = a}) + +instance NFData + ModifyInstanceCreditSpecificationResponse + where diff --git a/gen/Network/AWS/EC2/ModifyInstancePlacement.hs b/gen/Network/AWS/EC2/ModifyInstancePlacement.hs --- a/gen/Network/AWS/EC2/ModifyInstancePlacement.hs +++ b/gen/Network/AWS/EC2/ModifyInstancePlacement.hs @@ -12,23 +12,29 @@ -- | -- Module : Network.AWS.EC2.ModifyInstancePlacement --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Set the instance affinity value for a specific stopped instance and modify the instance tenancy setting. +-- Modifies the placement attributes for a specified instance. You can do the following: -- -- --- Instance affinity is disabled by default. When instance affinity is @host@ and it is not associated with a specific Dedicated Host, the next time it is launched it will automatically be associated with the host it lands on. This relationship will persist if the instance is stopped/started, or rebooted. +-- * Modify the affinity between an instance and a . When affinity is set to @host@ and the instance is not associated with a specific Dedicated Host, the next time the instance is launched, it is automatically associated with the host on which it lands. If the instance is restarted or rebooted, this relationship persists. -- --- You can modify the host ID associated with a stopped instance. If a stopped instance has a new host ID association, the instance will target that host when restarted. +-- * Change the Dedicated Host with which an instance is associated. -- --- You can modify the tenancy of a stopped instance with a tenancy of @host@ or @dedicated@ . +-- * Change the instance tenancy of an instance from @host@ to @dedicated@ , or from @dedicated@ to @host@ . -- --- Affinity, hostID, and tenancy are not required parameters, but at least one of them must be specified in the request. Affinity and tenancy can be modified in the same request, but tenancy can only be modified on instances that are stopped. +-- * Move an instance to or from a . -- +-- +-- +-- At least one attribute for affinity, host ID, tenancy, or placement group name must be specified in the request. Affinity and tenancy can be modified in the same request. +-- +-- To modify the host ID, tenancy, or placement group for an instance, the instance must be in the @stopped@ state. +-- module Network.AWS.EC2.ModifyInstancePlacement ( -- * Creating a Request @@ -38,6 +44,7 @@ , mipAffinity , mipHostId , mipTenancy + , mipGroupName , mipInstanceId -- * Destructuring the Response @@ -64,6 +71,7 @@ { _mipAffinity :: !(Maybe Affinity) , _mipHostId :: !(Maybe Text) , _mipTenancy :: !(Maybe HostTenancy) + , _mipGroupName :: !(Maybe Text) , _mipInstanceId :: !Text } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -72,40 +80,47 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'mipAffinity' - The new affinity setting for the instance. +-- * 'mipAffinity' - The affinity setting for the instance. -- --- * 'mipHostId' - The ID of the Dedicated Host that the instance will have affinity with. +-- * 'mipHostId' - The ID of the Dedicated Host with which to associate the instance. -- --- * 'mipTenancy' - The tenancy of the instance that you are modifying. +-- * 'mipTenancy' - The tenancy for the instance. -- +-- * 'mipGroupName' - The name of the placement group in which to place the instance. For spread placement groups, the instance must have a tenancy of @default@ . For cluster placement groups, the instance must have a tenancy of @default@ or @dedicated@ . To remove an instance from a placement group, specify an empty string (""). +-- -- * 'mipInstanceId' - The ID of the instance that you are modifying. modifyInstancePlacement :: Text -- ^ 'mipInstanceId' -> ModifyInstancePlacement modifyInstancePlacement pInstanceId_ = ModifyInstancePlacement' - { _mipAffinity = Nothing - , _mipHostId = Nothing - , _mipTenancy = Nothing - , _mipInstanceId = pInstanceId_ - } + { _mipAffinity = Nothing + , _mipHostId = Nothing + , _mipTenancy = Nothing + , _mipGroupName = Nothing + , _mipInstanceId = pInstanceId_ + } --- | The new affinity setting for the instance. +-- | The affinity setting for the instance. mipAffinity :: Lens' ModifyInstancePlacement (Maybe Affinity) -mipAffinity = lens _mipAffinity (\ s a -> s{_mipAffinity = a}); +mipAffinity = lens _mipAffinity (\ s a -> s{_mipAffinity = a}) --- | The ID of the Dedicated Host that the instance will have affinity with. +-- | The ID of the Dedicated Host with which to associate the instance. mipHostId :: Lens' ModifyInstancePlacement (Maybe Text) -mipHostId = lens _mipHostId (\ s a -> s{_mipHostId = a}); +mipHostId = lens _mipHostId (\ s a -> s{_mipHostId = a}) --- | The tenancy of the instance that you are modifying. +-- | The tenancy for the instance. mipTenancy :: Lens' ModifyInstancePlacement (Maybe HostTenancy) -mipTenancy = lens _mipTenancy (\ s a -> s{_mipTenancy = a}); +mipTenancy = lens _mipTenancy (\ s a -> s{_mipTenancy = a}) +-- | The name of the placement group in which to place the instance. For spread placement groups, the instance must have a tenancy of @default@ . For cluster placement groups, the instance must have a tenancy of @default@ or @dedicated@ . To remove an instance from a placement group, specify an empty string (""). +mipGroupName :: Lens' ModifyInstancePlacement (Maybe Text) +mipGroupName = lens _mipGroupName (\ s a -> s{_mipGroupName = a}) + -- | The ID of the instance that you are modifying. mipInstanceId :: Lens' ModifyInstancePlacement Text -mipInstanceId = lens _mipInstanceId (\ s a -> s{_mipInstanceId = a}); +mipInstanceId = lens _mipInstanceId (\ s a -> s{_mipInstanceId = a}) instance AWSRequest ModifyInstancePlacement where type Rs ModifyInstancePlacement = @@ -135,6 +150,7 @@ "Version" =: ("2016-11-15" :: ByteString), "Affinity" =: _mipAffinity, "HostId" =: _mipHostId, "Tenancy" =: _mipTenancy, + "GroupName" =: _mipGroupName, "InstanceId" =: _mipInstanceId] -- | Contains the output of ModifyInstancePlacement. @@ -160,15 +176,15 @@ -> ModifyInstancePlacementResponse modifyInstancePlacementResponse pResponseStatus_ = ModifyInstancePlacementResponse' - {_miprsReturn = Nothing, _miprsResponseStatus = pResponseStatus_} + {_miprsReturn = Nothing, _miprsResponseStatus = pResponseStatus_} -- | Is @true@ if the request succeeds, and an error otherwise. miprsReturn :: Lens' ModifyInstancePlacementResponse (Maybe Bool) -miprsReturn = lens _miprsReturn (\ s a -> s{_miprsReturn = a}); +miprsReturn = lens _miprsReturn (\ s a -> s{_miprsReturn = a}) -- | -- | The response status code. miprsResponseStatus :: Lens' ModifyInstancePlacementResponse Int -miprsResponseStatus = lens _miprsResponseStatus (\ s a -> s{_miprsResponseStatus = a}); +miprsResponseStatus = lens _miprsResponseStatus (\ s a -> s{_miprsResponseStatus = a}) instance NFData ModifyInstancePlacementResponse where diff --git a/gen/Network/AWS/EC2/ModifyLaunchTemplate.hs b/gen/Network/AWS/EC2/ModifyLaunchTemplate.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/ModifyLaunchTemplate.hs @@ -0,0 +1,167 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Network.AWS.EC2.ModifyLaunchTemplate +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies a launch template. You can specify which version of the launch template to set as the default version. When launching an instance, the default version applies when a launch template version is not specified. +-- +-- +module Network.AWS.EC2.ModifyLaunchTemplate + ( + -- * Creating a Request + modifyLaunchTemplate + , ModifyLaunchTemplate + -- * Request Lenses + , mltLaunchTemplateName + , mltClientToken + , mltLaunchTemplateId + , mltDefaultVersion + , mltDryRun + + -- * Destructuring the Response + , modifyLaunchTemplateResponse + , ModifyLaunchTemplateResponse + -- * Response Lenses + , mltrsLaunchTemplate + , mltrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'modifyLaunchTemplate' smart constructor. +data ModifyLaunchTemplate = ModifyLaunchTemplate' + { _mltLaunchTemplateName :: !(Maybe Text) + , _mltClientToken :: !(Maybe Text) + , _mltLaunchTemplateId :: !(Maybe Text) + , _mltDefaultVersion :: !(Maybe Text) + , _mltDryRun :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyLaunchTemplate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mltLaunchTemplateName' - The name of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'mltClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +-- +-- * 'mltLaunchTemplateId' - The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +-- +-- * 'mltDefaultVersion' - The version number of the launch template to set as the default version. +-- +-- * 'mltDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +modifyLaunchTemplate + :: ModifyLaunchTemplate +modifyLaunchTemplate = + ModifyLaunchTemplate' + { _mltLaunchTemplateName = Nothing + , _mltClientToken = Nothing + , _mltLaunchTemplateId = Nothing + , _mltDefaultVersion = Nothing + , _mltDryRun = Nothing + } + + +-- | The name of the launch template. You must specify either the launch template ID or launch template name in the request. +mltLaunchTemplateName :: Lens' ModifyLaunchTemplate (Maybe Text) +mltLaunchTemplateName = lens _mltLaunchTemplateName (\ s a -> s{_mltLaunchTemplateName = a}) + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . +mltClientToken :: Lens' ModifyLaunchTemplate (Maybe Text) +mltClientToken = lens _mltClientToken (\ s a -> s{_mltClientToken = a}) + +-- | The ID of the launch template. You must specify either the launch template ID or launch template name in the request. +mltLaunchTemplateId :: Lens' ModifyLaunchTemplate (Maybe Text) +mltLaunchTemplateId = lens _mltLaunchTemplateId (\ s a -> s{_mltLaunchTemplateId = a}) + +-- | The version number of the launch template to set as the default version. +mltDefaultVersion :: Lens' ModifyLaunchTemplate (Maybe Text) +mltDefaultVersion = lens _mltDefaultVersion (\ s a -> s{_mltDefaultVersion = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +mltDryRun :: Lens' ModifyLaunchTemplate (Maybe Bool) +mltDryRun = lens _mltDryRun (\ s a -> s{_mltDryRun = a}) + +instance AWSRequest ModifyLaunchTemplate where + type Rs ModifyLaunchTemplate = + ModifyLaunchTemplateResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + ModifyLaunchTemplateResponse' <$> + (x .@? "launchTemplate") <*> (pure (fromEnum s))) + +instance Hashable ModifyLaunchTemplate where + +instance NFData ModifyLaunchTemplate where + +instance ToHeaders ModifyLaunchTemplate where + toHeaders = const mempty + +instance ToPath ModifyLaunchTemplate where + toPath = const "/" + +instance ToQuery ModifyLaunchTemplate where + toQuery ModifyLaunchTemplate'{..} + = mconcat + ["Action" =: ("ModifyLaunchTemplate" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "LaunchTemplateName" =: _mltLaunchTemplateName, + "ClientToken" =: _mltClientToken, + "LaunchTemplateId" =: _mltLaunchTemplateId, + "SetDefaultVersion" =: _mltDefaultVersion, + "DryRun" =: _mltDryRun] + +-- | /See:/ 'modifyLaunchTemplateResponse' smart constructor. +data ModifyLaunchTemplateResponse = ModifyLaunchTemplateResponse' + { _mltrsLaunchTemplate :: !(Maybe LaunchTemplate) + , _mltrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyLaunchTemplateResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mltrsLaunchTemplate' - Information about the launch template. +-- +-- * 'mltrsResponseStatus' - -- | The response status code. +modifyLaunchTemplateResponse + :: Int -- ^ 'mltrsResponseStatus' + -> ModifyLaunchTemplateResponse +modifyLaunchTemplateResponse pResponseStatus_ = + ModifyLaunchTemplateResponse' + {_mltrsLaunchTemplate = Nothing, _mltrsResponseStatus = pResponseStatus_} + + +-- | Information about the launch template. +mltrsLaunchTemplate :: Lens' ModifyLaunchTemplateResponse (Maybe LaunchTemplate) +mltrsLaunchTemplate = lens _mltrsLaunchTemplate (\ s a -> s{_mltrsLaunchTemplate = a}) + +-- | -- | The response status code. +mltrsResponseStatus :: Lens' ModifyLaunchTemplateResponse Int +mltrsResponseStatus = lens _mltrsResponseStatus (\ s a -> s{_mltrsResponseStatus = a}) + +instance NFData ModifyLaunchTemplateResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyNetworkInterfaceAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -81,38 +81,38 @@ -> ModifyNetworkInterfaceAttribute modifyNetworkInterfaceAttribute pNetworkInterfaceId_ = ModifyNetworkInterfaceAttribute' - { _mniaGroups = Nothing - , _mniaSourceDestCheck = Nothing - , _mniaAttachment = Nothing - , _mniaDescription = Nothing - , _mniaDryRun = Nothing - , _mniaNetworkInterfaceId = pNetworkInterfaceId_ - } + { _mniaGroups = Nothing + , _mniaSourceDestCheck = Nothing + , _mniaAttachment = Nothing + , _mniaDescription = Nothing + , _mniaDryRun = Nothing + , _mniaNetworkInterfaceId = pNetworkInterfaceId_ + } -- | Changes the security groups for the network interface. The new set of groups you specify replaces the current set. You must specify at least one group, even if it's just the default security group in the VPC. You must specify the ID of the security group, not the name. mniaGroups :: Lens' ModifyNetworkInterfaceAttribute [Text] -mniaGroups = lens _mniaGroups (\ s a -> s{_mniaGroups = a}) . _Default . _Coerce; +mniaGroups = lens _mniaGroups (\ s a -> s{_mniaGroups = a}) . _Default . _Coerce -- | Indicates whether source/destination checking is enabled. A value of @true@ means checking is enabled, and @false@ means checking is disabled. This value must be @false@ for a NAT instance to perform NAT. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . mniaSourceDestCheck :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeBooleanValue) -mniaSourceDestCheck = lens _mniaSourceDestCheck (\ s a -> s{_mniaSourceDestCheck = a}); +mniaSourceDestCheck = lens _mniaSourceDestCheck (\ s a -> s{_mniaSourceDestCheck = a}) -- | Information about the interface attachment. If modifying the 'delete on termination' attribute, you must specify the ID of the interface attachment. mniaAttachment :: Lens' ModifyNetworkInterfaceAttribute (Maybe NetworkInterfaceAttachmentChanges) -mniaAttachment = lens _mniaAttachment (\ s a -> s{_mniaAttachment = a}); +mniaAttachment = lens _mniaAttachment (\ s a -> s{_mniaAttachment = a}) -- | A description for the network interface. mniaDescription :: Lens' ModifyNetworkInterfaceAttribute (Maybe AttributeValue) -mniaDescription = lens _mniaDescription (\ s a -> s{_mniaDescription = a}); +mniaDescription = lens _mniaDescription (\ s a -> s{_mniaDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mniaDryRun :: Lens' ModifyNetworkInterfaceAttribute (Maybe Bool) -mniaDryRun = lens _mniaDryRun (\ s a -> s{_mniaDryRun = a}); +mniaDryRun = lens _mniaDryRun (\ s a -> s{_mniaDryRun = a}) -- | The ID of the network interface. mniaNetworkInterfaceId :: Lens' ModifyNetworkInterfaceAttribute Text -mniaNetworkInterfaceId = lens _mniaNetworkInterfaceId (\ s a -> s{_mniaNetworkInterfaceId = a}); +mniaNetworkInterfaceId = lens _mniaNetworkInterfaceId (\ s a -> s{_mniaNetworkInterfaceId = a}) instance AWSRequest ModifyNetworkInterfaceAttribute where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyReservedInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,23 +73,23 @@ :: ModifyReservedInstances modifyReservedInstances = ModifyReservedInstances' - { _mriClientToken = Nothing - , _mriReservedInstancesIds = mempty - , _mriTargetConfigurations = mempty - } + { _mriClientToken = Nothing + , _mriReservedInstancesIds = mempty + , _mriTargetConfigurations = mempty + } -- | A unique, case-sensitive token you provide to ensure idempotency of your modification request. For more information, see . mriClientToken :: Lens' ModifyReservedInstances (Maybe Text) -mriClientToken = lens _mriClientToken (\ s a -> s{_mriClientToken = a}); +mriClientToken = lens _mriClientToken (\ s a -> s{_mriClientToken = a}) -- | The IDs of the Reserved Instances to modify. mriReservedInstancesIds :: Lens' ModifyReservedInstances [Text] -mriReservedInstancesIds = lens _mriReservedInstancesIds (\ s a -> s{_mriReservedInstancesIds = a}) . _Coerce; +mriReservedInstancesIds = lens _mriReservedInstancesIds (\ s a -> s{_mriReservedInstancesIds = a}) . _Coerce -- | The configuration settings for the Reserved Instances to modify. mriTargetConfigurations :: Lens' ModifyReservedInstances [ReservedInstancesConfiguration] -mriTargetConfigurations = lens _mriTargetConfigurations (\ s a -> s{_mriTargetConfigurations = a}) . _Coerce; +mriTargetConfigurations = lens _mriTargetConfigurations (\ s a -> s{_mriTargetConfigurations = a}) . _Coerce instance AWSRequest ModifyReservedInstances where type Rs ModifyReservedInstances = @@ -148,17 +148,17 @@ -> ModifyReservedInstancesResponse modifyReservedInstancesResponse pResponseStatus_ = ModifyReservedInstancesResponse' - { _mrirsReservedInstancesModificationId = Nothing - , _mrirsResponseStatus = pResponseStatus_ - } + { _mrirsReservedInstancesModificationId = Nothing + , _mrirsResponseStatus = pResponseStatus_ + } -- | The ID for the modification. mrirsReservedInstancesModificationId :: Lens' ModifyReservedInstancesResponse (Maybe Text) -mrirsReservedInstancesModificationId = lens _mrirsReservedInstancesModificationId (\ s a -> s{_mrirsReservedInstancesModificationId = a}); +mrirsReservedInstancesModificationId = lens _mrirsReservedInstancesModificationId (\ s a -> s{_mrirsReservedInstancesModificationId = a}) -- | -- | The response status code. mrirsResponseStatus :: Lens' ModifyReservedInstancesResponse Int -mrirsResponseStatus = lens _mrirsResponseStatus (\ s a -> s{_mrirsResponseStatus = a}); +mrirsResponseStatus = lens _mrirsResponseStatus (\ s a -> s{_mrirsResponseStatus = a}) instance NFData ModifyReservedInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifySnapshotAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -87,43 +87,43 @@ -> ModifySnapshotAttribute modifySnapshotAttribute pSnapshotId_ = ModifySnapshotAttribute' - { _msaAttribute = Nothing - , _msaCreateVolumePermission = Nothing - , _msaUserIds = Nothing - , _msaGroupNames = Nothing - , _msaOperationType = Nothing - , _msaDryRun = Nothing - , _msaSnapshotId = pSnapshotId_ - } + { _msaAttribute = Nothing + , _msaCreateVolumePermission = Nothing + , _msaUserIds = Nothing + , _msaGroupNames = Nothing + , _msaOperationType = Nothing + , _msaDryRun = Nothing + , _msaSnapshotId = pSnapshotId_ + } -- | The snapshot attribute to modify. msaAttribute :: Lens' ModifySnapshotAttribute (Maybe SnapshotAttributeName) -msaAttribute = lens _msaAttribute (\ s a -> s{_msaAttribute = a}); +msaAttribute = lens _msaAttribute (\ s a -> s{_msaAttribute = a}) -- | A JSON representation of the snapshot attribute modification. msaCreateVolumePermission :: Lens' ModifySnapshotAttribute (Maybe CreateVolumePermissionModifications) -msaCreateVolumePermission = lens _msaCreateVolumePermission (\ s a -> s{_msaCreateVolumePermission = a}); +msaCreateVolumePermission = lens _msaCreateVolumePermission (\ s a -> s{_msaCreateVolumePermission = a}) -- | The account ID to modify for the snapshot. msaUserIds :: Lens' ModifySnapshotAttribute [Text] -msaUserIds = lens _msaUserIds (\ s a -> s{_msaUserIds = a}) . _Default . _Coerce; +msaUserIds = lens _msaUserIds (\ s a -> s{_msaUserIds = a}) . _Default . _Coerce -- | The group to modify for the snapshot. msaGroupNames :: Lens' ModifySnapshotAttribute [Text] -msaGroupNames = lens _msaGroupNames (\ s a -> s{_msaGroupNames = a}) . _Default . _Coerce; +msaGroupNames = lens _msaGroupNames (\ s a -> s{_msaGroupNames = a}) . _Default . _Coerce -- | The type of operation to perform to the attribute. msaOperationType :: Lens' ModifySnapshotAttribute (Maybe OperationType) -msaOperationType = lens _msaOperationType (\ s a -> s{_msaOperationType = a}); +msaOperationType = lens _msaOperationType (\ s a -> s{_msaOperationType = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . msaDryRun :: Lens' ModifySnapshotAttribute (Maybe Bool) -msaDryRun = lens _msaDryRun (\ s a -> s{_msaDryRun = a}); +msaDryRun = lens _msaDryRun (\ s a -> s{_msaDryRun = a}) -- | The ID of the snapshot. msaSnapshotId :: Lens' ModifySnapshotAttribute Text -msaSnapshotId = lens _msaSnapshotId (\ s a -> s{_msaSnapshotId = a}); +msaSnapshotId = lens _msaSnapshotId (\ s a -> s{_msaSnapshotId = a}) instance AWSRequest ModifySnapshotAttribute where type Rs ModifySnapshotAttribute = diff --git a/gen/Network/AWS/EC2/ModifySpotFleetRequest.hs b/gen/Network/AWS/EC2/ModifySpotFleetRequest.hs --- a/gen/Network/AWS/EC2/ModifySpotFleetRequest.hs +++ b/gen/Network/AWS/EC2/ModifySpotFleetRequest.hs @@ -12,21 +12,23 @@ -- | -- Module : Network.AWS.EC2.ModifySpotFleetRequest --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 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. +-- Modifies the specified Spot Fleet request. -- -- --- While the Spot fleet request is being modified, it is in the @modifying@ state. +-- 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 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. +-- To scale down your Spot Fleet, decrease its target capacity. First, the Spot Fleet cancels any open requests 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. -- +-- If you are finished with your Spot Fleet for now, but will use it again later, you can set the target capacity to 0. +-- module Network.AWS.EC2.ModifySpotFleetRequest ( -- * Creating a Request @@ -70,31 +72,31 @@ -- -- * 'msfrTargetCapacity' - The size of the fleet. -- --- * 'msfrExcessCapacityTerminationPolicy' - 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' - 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. -- --- * 'msfrSpotFleetRequestId' - The ID of the Spot fleet request. +-- * 'msfrSpotFleetRequestId' - The ID of the Spot Fleet request. modifySpotFleetRequest :: Text -- ^ 'msfrSpotFleetRequestId' -> ModifySpotFleetRequest modifySpotFleetRequest pSpotFleetRequestId_ = ModifySpotFleetRequest' - { _msfrTargetCapacity = Nothing - , _msfrExcessCapacityTerminationPolicy = Nothing - , _msfrSpotFleetRequestId = pSpotFleetRequestId_ - } + { _msfrTargetCapacity = Nothing + , _msfrExcessCapacityTerminationPolicy = Nothing + , _msfrSpotFleetRequestId = pSpotFleetRequestId_ + } -- | The size of the fleet. msfrTargetCapacity :: Lens' ModifySpotFleetRequest (Maybe Int) -msfrTargetCapacity = lens _msfrTargetCapacity (\ s a -> s{_msfrTargetCapacity = a}); +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. +-- | 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}); +msfrExcessCapacityTerminationPolicy = lens _msfrExcessCapacityTerminationPolicy (\ s a -> s{_msfrExcessCapacityTerminationPolicy = a}) --- | The ID of the Spot fleet request. +-- | The ID of the Spot Fleet request. msfrSpotFleetRequestId :: Lens' ModifySpotFleetRequest Text -msfrSpotFleetRequestId = lens _msfrSpotFleetRequestId (\ s a -> s{_msfrSpotFleetRequestId = a}); +msfrSpotFleetRequestId = lens _msfrSpotFleetRequestId (\ s a -> s{_msfrSpotFleetRequestId = a}) instance AWSRequest ModifySpotFleetRequest where type Rs ModifySpotFleetRequest = @@ -150,15 +152,15 @@ -> ModifySpotFleetRequestResponse modifySpotFleetRequestResponse pResponseStatus_ = ModifySpotFleetRequestResponse' - {_msfrrsReturn = Nothing, _msfrrsResponseStatus = pResponseStatus_} + {_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}); +msfrrsReturn = lens _msfrrsReturn (\ s a -> s{_msfrrsReturn = a}) -- | -- | The response status code. msfrrsResponseStatus :: Lens' ModifySpotFleetRequestResponse Int -msfrrsResponseStatus = lens _msfrrsResponseStatus (\ s a -> s{_msfrrsResponseStatus = a}); +msfrrsResponseStatus = lens _msfrrsResponseStatus (\ s a -> s{_msfrrsResponseStatus = a}) instance NFData ModifySpotFleetRequestResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifySubnetAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,23 +69,23 @@ -> ModifySubnetAttribute modifySubnetAttribute pSubnetId_ = ModifySubnetAttribute' - { _msaAssignIPv6AddressOnCreation = Nothing - , _msaMapPublicIPOnLaunch = Nothing - , _msaSubnetId = pSubnetId_ - } + { _msaAssignIPv6AddressOnCreation = Nothing + , _msaMapPublicIPOnLaunch = Nothing + , _msaSubnetId = pSubnetId_ + } -- | Specify @true@ to indicate that network interfaces created in the specified subnet should be assigned an IPv6 address. This includes a network interface that's created when launching an instance into the subnet (the instance therefore receives an IPv6 address). If you enable the IPv6 addressing feature for your subnet, your network interface or instance only receives an IPv6 address if it's created using version @2016-11-15@ or later of the Amazon EC2 API. msaAssignIPv6AddressOnCreation :: Lens' ModifySubnetAttribute (Maybe AttributeBooleanValue) -msaAssignIPv6AddressOnCreation = lens _msaAssignIPv6AddressOnCreation (\ s a -> s{_msaAssignIPv6AddressOnCreation = a}); +msaAssignIPv6AddressOnCreation = lens _msaAssignIPv6AddressOnCreation (\ s a -> s{_msaAssignIPv6AddressOnCreation = a}) -- | Specify @true@ to indicate that network interfaces created in the specified subnet should be assigned a public IPv4 address. This includes a network interface that's created when launching an instance into the subnet (the instance therefore receives a public IPv4 address). msaMapPublicIPOnLaunch :: Lens' ModifySubnetAttribute (Maybe AttributeBooleanValue) -msaMapPublicIPOnLaunch = lens _msaMapPublicIPOnLaunch (\ s a -> s{_msaMapPublicIPOnLaunch = a}); +msaMapPublicIPOnLaunch = lens _msaMapPublicIPOnLaunch (\ s a -> s{_msaMapPublicIPOnLaunch = a}) -- | The ID of the subnet. msaSubnetId :: Lens' ModifySubnetAttribute Text -msaSubnetId = lens _msaSubnetId (\ s a -> s{_msaSubnetId = a}); +msaSubnetId = lens _msaSubnetId (\ s a -> s{_msaSubnetId = a}) instance AWSRequest ModifySubnetAttribute where type Rs ModifySubnetAttribute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyVPCAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,23 +69,23 @@ -> ModifyVPCAttribute modifyVPCAttribute pVPCId_ = ModifyVPCAttribute' - { _mvaEnableDNSHostnames = Nothing - , _mvaEnableDNSSupport = Nothing - , _mvaVPCId = pVPCId_ - } + { _mvaEnableDNSHostnames = Nothing + , _mvaEnableDNSSupport = Nothing + , _mvaVPCId = pVPCId_ + } -- | Indicates whether the instances launched in the VPC get DNS hostnames. If enabled, instances in the VPC get DNS hostnames; otherwise, they do not. You cannot modify the DNS resolution and DNS hostnames attributes in the same request. Use separate requests for each attribute. You can only enable DNS hostnames if you've enabled DNS support. mvaEnableDNSHostnames :: Lens' ModifyVPCAttribute (Maybe AttributeBooleanValue) -mvaEnableDNSHostnames = lens _mvaEnableDNSHostnames (\ s a -> s{_mvaEnableDNSHostnames = a}); +mvaEnableDNSHostnames = lens _mvaEnableDNSHostnames (\ s a -> s{_mvaEnableDNSHostnames = a}) -- | Indicates whether the DNS resolution is supported for the VPC. If enabled, queries to the Amazon provided DNS server at the 169.254.169.253 IP address, or the reserved IP address at the base of the VPC network range "plus two" will succeed. If disabled, the Amazon provided DNS service in the VPC that resolves public DNS hostnames to IP addresses is not enabled. You cannot modify the DNS resolution and DNS hostnames attributes in the same request. Use separate requests for each attribute. mvaEnableDNSSupport :: Lens' ModifyVPCAttribute (Maybe AttributeBooleanValue) -mvaEnableDNSSupport = lens _mvaEnableDNSSupport (\ s a -> s{_mvaEnableDNSSupport = a}); +mvaEnableDNSSupport = lens _mvaEnableDNSSupport (\ s a -> s{_mvaEnableDNSSupport = a}) -- | The ID of the VPC. mvaVPCId :: Lens' ModifyVPCAttribute Text -mvaVPCId = lens _mvaVPCId (\ s a -> s{_mvaVPCId = a}); +mvaVPCId = lens _mvaVPCId (\ s a -> s{_mvaVPCId = a}) instance AWSRequest ModifyVPCAttribute where type Rs ModifyVPCAttribute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyVPCEndpoint --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -104,63 +104,63 @@ -> ModifyVPCEndpoint modifyVPCEndpoint pVPCEndpointId_ = ModifyVPCEndpoint' - { _mvePolicyDocument = Nothing - , _mveRemoveRouteTableIds = Nothing - , _mveResetPolicy = Nothing - , _mveAddRouteTableIds = Nothing - , _mvePrivateDNSEnabled = Nothing - , _mveAddSubnetIds = Nothing - , _mveRemoveSubnetIds = Nothing - , _mveAddSecurityGroupIds = Nothing - , _mveDryRun = Nothing - , _mveRemoveSecurityGroupIds = Nothing - , _mveVPCEndpointId = pVPCEndpointId_ - } + { _mvePolicyDocument = Nothing + , _mveRemoveRouteTableIds = Nothing + , _mveResetPolicy = Nothing + , _mveAddRouteTableIds = Nothing + , _mvePrivateDNSEnabled = Nothing + , _mveAddSubnetIds = Nothing + , _mveRemoveSubnetIds = Nothing + , _mveAddSecurityGroupIds = Nothing + , _mveDryRun = Nothing + , _mveRemoveSecurityGroupIds = Nothing + , _mveVPCEndpointId = pVPCEndpointId_ + } -- | (Gateway endpoint) A policy document to attach to the endpoint. The policy must be in valid JSON format. mvePolicyDocument :: Lens' ModifyVPCEndpoint (Maybe Text) -mvePolicyDocument = lens _mvePolicyDocument (\ s a -> s{_mvePolicyDocument = a}); +mvePolicyDocument = lens _mvePolicyDocument (\ s a -> s{_mvePolicyDocument = a}) -- | (Gateway endpoint) One or more route table IDs to disassociate from the endpoint. mveRemoveRouteTableIds :: Lens' ModifyVPCEndpoint [Text] -mveRemoveRouteTableIds = lens _mveRemoveRouteTableIds (\ s a -> s{_mveRemoveRouteTableIds = a}) . _Default . _Coerce; +mveRemoveRouteTableIds = lens _mveRemoveRouteTableIds (\ s a -> s{_mveRemoveRouteTableIds = a}) . _Default . _Coerce -- | (Gateway endpoint) Specify @true@ to reset the policy document to the default policy. The default policy allows full access to the service. mveResetPolicy :: Lens' ModifyVPCEndpoint (Maybe Bool) -mveResetPolicy = lens _mveResetPolicy (\ s a -> s{_mveResetPolicy = a}); +mveResetPolicy = lens _mveResetPolicy (\ s a -> s{_mveResetPolicy = a}) -- | (Gateway endpoint) One or more route tables IDs to associate with the endpoint. mveAddRouteTableIds :: Lens' ModifyVPCEndpoint [Text] -mveAddRouteTableIds = lens _mveAddRouteTableIds (\ s a -> s{_mveAddRouteTableIds = a}) . _Default . _Coerce; +mveAddRouteTableIds = lens _mveAddRouteTableIds (\ s a -> s{_mveAddRouteTableIds = a}) . _Default . _Coerce -- | (Interface endpoint) Indicate whether a private hosted zone is associated with the VPC. mvePrivateDNSEnabled :: Lens' ModifyVPCEndpoint (Maybe Bool) -mvePrivateDNSEnabled = lens _mvePrivateDNSEnabled (\ s a -> s{_mvePrivateDNSEnabled = a}); +mvePrivateDNSEnabled = lens _mvePrivateDNSEnabled (\ s a -> s{_mvePrivateDNSEnabled = a}) -- | (Interface endpoint) One or more subnet IDs in which to serve the endpoint. mveAddSubnetIds :: Lens' ModifyVPCEndpoint [Text] -mveAddSubnetIds = lens _mveAddSubnetIds (\ s a -> s{_mveAddSubnetIds = a}) . _Default . _Coerce; +mveAddSubnetIds = lens _mveAddSubnetIds (\ s a -> s{_mveAddSubnetIds = a}) . _Default . _Coerce -- | (Interface endpoint) One or more subnets IDs in which to remove the endpoint. mveRemoveSubnetIds :: Lens' ModifyVPCEndpoint [Text] -mveRemoveSubnetIds = lens _mveRemoveSubnetIds (\ s a -> s{_mveRemoveSubnetIds = a}) . _Default . _Coerce; +mveRemoveSubnetIds = lens _mveRemoveSubnetIds (\ s a -> s{_mveRemoveSubnetIds = a}) . _Default . _Coerce -- | (Interface endpoint) One or more security group IDs to associate with the network interface. mveAddSecurityGroupIds :: Lens' ModifyVPCEndpoint [Text] -mveAddSecurityGroupIds = lens _mveAddSecurityGroupIds (\ s a -> s{_mveAddSecurityGroupIds = a}) . _Default . _Coerce; +mveAddSecurityGroupIds = lens _mveAddSecurityGroupIds (\ s a -> s{_mveAddSecurityGroupIds = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mveDryRun :: Lens' ModifyVPCEndpoint (Maybe Bool) -mveDryRun = lens _mveDryRun (\ s a -> s{_mveDryRun = a}); +mveDryRun = lens _mveDryRun (\ s a -> s{_mveDryRun = a}) -- | (Interface endpoint) One or more security group IDs to disassociate from the network interface. mveRemoveSecurityGroupIds :: Lens' ModifyVPCEndpoint [Text] -mveRemoveSecurityGroupIds = lens _mveRemoveSecurityGroupIds (\ s a -> s{_mveRemoveSecurityGroupIds = a}) . _Default . _Coerce; +mveRemoveSecurityGroupIds = lens _mveRemoveSecurityGroupIds (\ s a -> s{_mveRemoveSecurityGroupIds = a}) . _Default . _Coerce -- | The ID of the endpoint. mveVPCEndpointId :: Lens' ModifyVPCEndpoint Text -mveVPCEndpointId = lens _mveVPCEndpointId (\ s a -> s{_mveVPCEndpointId = a}); +mveVPCEndpointId = lens _mveVPCEndpointId (\ s a -> s{_mveVPCEndpointId = a}) instance AWSRequest ModifyVPCEndpoint where type Rs ModifyVPCEndpoint = ModifyVPCEndpointResponse @@ -228,15 +228,15 @@ -> ModifyVPCEndpointResponse modifyVPCEndpointResponse pResponseStatus_ = ModifyVPCEndpointResponse' - {_mversReturn = Nothing, _mversResponseStatus = pResponseStatus_} + {_mversReturn = Nothing, _mversResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. mversReturn :: Lens' ModifyVPCEndpointResponse (Maybe Bool) -mversReturn = lens _mversReturn (\ s a -> s{_mversReturn = a}); +mversReturn = lens _mversReturn (\ s a -> s{_mversReturn = a}) -- | -- | The response status code. mversResponseStatus :: Lens' ModifyVPCEndpointResponse Int -mversResponseStatus = lens _mversResponseStatus (\ s a -> s{_mversResponseStatus = a}); +mversResponseStatus = lens _mversResponseStatus (\ s a -> s{_mversResponseStatus = a}) instance NFData ModifyVPCEndpointResponse where diff --git a/gen/Network/AWS/EC2/ModifyVPCEndpointConnectionNotification.hs b/gen/Network/AWS/EC2/ModifyVPCEndpointConnectionNotification.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/ModifyVPCEndpointConnectionNotification.hs @@ -0,0 +1,178 @@ +{-# 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.ModifyVPCEndpointConnectionNotification +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies a connection notification for VPC endpoint or VPC endpoint service. You can change the SNS topic for the notification, or the events for which to be notified. +-- +-- +module Network.AWS.EC2.ModifyVPCEndpointConnectionNotification + ( + -- * Creating a Request + modifyVPCEndpointConnectionNotification + , ModifyVPCEndpointConnectionNotification + -- * Request Lenses + , mvecnConnectionEvents + , mvecnConnectionNotificationARN + , mvecnDryRun + , mvecnConnectionNotificationId + + -- * Destructuring the Response + , modifyVPCEndpointConnectionNotificationResponse + , ModifyVPCEndpointConnectionNotificationResponse + -- * Response Lenses + , mvecnrsReturnValue + , mvecnrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'modifyVPCEndpointConnectionNotification' smart constructor. +data ModifyVPCEndpointConnectionNotification = ModifyVPCEndpointConnectionNotification' + { _mvecnConnectionEvents :: !(Maybe [Text]) + , _mvecnConnectionNotificationARN :: !(Maybe Text) + , _mvecnDryRun :: !(Maybe Bool) + , _mvecnConnectionNotificationId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyVPCEndpointConnectionNotification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mvecnConnectionEvents' - One or more events for the endpoint. Valid values are @Accept@ , @Connect@ , @Delete@ , and @Reject@ . +-- +-- * 'mvecnConnectionNotificationARN' - The ARN for the SNS topic for the notification. +-- +-- * 'mvecnDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'mvecnConnectionNotificationId' - The ID of the notification. +modifyVPCEndpointConnectionNotification + :: Text -- ^ 'mvecnConnectionNotificationId' + -> ModifyVPCEndpointConnectionNotification +modifyVPCEndpointConnectionNotification pConnectionNotificationId_ = + ModifyVPCEndpointConnectionNotification' + { _mvecnConnectionEvents = Nothing + , _mvecnConnectionNotificationARN = Nothing + , _mvecnDryRun = Nothing + , _mvecnConnectionNotificationId = pConnectionNotificationId_ + } + + +-- | One or more events for the endpoint. Valid values are @Accept@ , @Connect@ , @Delete@ , and @Reject@ . +mvecnConnectionEvents :: Lens' ModifyVPCEndpointConnectionNotification [Text] +mvecnConnectionEvents = lens _mvecnConnectionEvents (\ s a -> s{_mvecnConnectionEvents = a}) . _Default . _Coerce + +-- | The ARN for the SNS topic for the notification. +mvecnConnectionNotificationARN :: Lens' ModifyVPCEndpointConnectionNotification (Maybe Text) +mvecnConnectionNotificationARN = lens _mvecnConnectionNotificationARN (\ s a -> s{_mvecnConnectionNotificationARN = a}) + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +mvecnDryRun :: Lens' ModifyVPCEndpointConnectionNotification (Maybe Bool) +mvecnDryRun = lens _mvecnDryRun (\ s a -> s{_mvecnDryRun = a}) + +-- | The ID of the notification. +mvecnConnectionNotificationId :: Lens' ModifyVPCEndpointConnectionNotification Text +mvecnConnectionNotificationId = lens _mvecnConnectionNotificationId (\ s a -> s{_mvecnConnectionNotificationId = a}) + +instance AWSRequest + ModifyVPCEndpointConnectionNotification + where + type Rs ModifyVPCEndpointConnectionNotification = + ModifyVPCEndpointConnectionNotificationResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + ModifyVPCEndpointConnectionNotificationResponse' <$> + (x .@? "return") <*> (pure (fromEnum s))) + +instance Hashable + ModifyVPCEndpointConnectionNotification + where + +instance NFData + ModifyVPCEndpointConnectionNotification + where + +instance ToHeaders + ModifyVPCEndpointConnectionNotification + where + toHeaders = const mempty + +instance ToPath + ModifyVPCEndpointConnectionNotification + where + toPath = const "/" + +instance ToQuery + ModifyVPCEndpointConnectionNotification + where + toQuery ModifyVPCEndpointConnectionNotification'{..} + = mconcat + ["Action" =: + ("ModifyVpcEndpointConnectionNotification" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery + (toQueryList "ConnectionEvents" <$> + _mvecnConnectionEvents), + "ConnectionNotificationArn" =: + _mvecnConnectionNotificationARN, + "DryRun" =: _mvecnDryRun, + "ConnectionNotificationId" =: + _mvecnConnectionNotificationId] + +-- | /See:/ 'modifyVPCEndpointConnectionNotificationResponse' smart constructor. +data ModifyVPCEndpointConnectionNotificationResponse = ModifyVPCEndpointConnectionNotificationResponse' + { _mvecnrsReturnValue :: !(Maybe Bool) + , _mvecnrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyVPCEndpointConnectionNotificationResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mvecnrsReturnValue' - Returns @true@ if the request succeeds; otherwise, it returns an error. +-- +-- * 'mvecnrsResponseStatus' - -- | The response status code. +modifyVPCEndpointConnectionNotificationResponse + :: Int -- ^ 'mvecnrsResponseStatus' + -> ModifyVPCEndpointConnectionNotificationResponse +modifyVPCEndpointConnectionNotificationResponse pResponseStatus_ = + ModifyVPCEndpointConnectionNotificationResponse' + {_mvecnrsReturnValue = Nothing, _mvecnrsResponseStatus = pResponseStatus_} + + +-- | Returns @true@ if the request succeeds; otherwise, it returns an error. +mvecnrsReturnValue :: Lens' ModifyVPCEndpointConnectionNotificationResponse (Maybe Bool) +mvecnrsReturnValue = lens _mvecnrsReturnValue (\ s a -> s{_mvecnrsReturnValue = a}) + +-- | -- | The response status code. +mvecnrsResponseStatus :: Lens' ModifyVPCEndpointConnectionNotificationResponse Int +mvecnrsResponseStatus = lens _mvecnrsResponseStatus (\ s a -> s{_mvecnrsResponseStatus = a}) + +instance NFData + ModifyVPCEndpointConnectionNotificationResponse + where diff --git a/gen/Network/AWS/EC2/ModifyVPCEndpointServiceConfiguration.hs b/gen/Network/AWS/EC2/ModifyVPCEndpointServiceConfiguration.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/ModifyVPCEndpointServiceConfiguration.hs @@ -0,0 +1,186 @@ +{-# 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.ModifyVPCEndpointServiceConfiguration +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies the attributes of your VPC endpoint service configuration. You can change the Network Load Balancers for your service, and you can specify whether acceptance is required for requests to connect to your endpoint service through an interface VPC endpoint. +-- +-- +module Network.AWS.EC2.ModifyVPCEndpointServiceConfiguration + ( + -- * Creating a Request + modifyVPCEndpointServiceConfiguration + , ModifyVPCEndpointServiceConfiguration + -- * Request Lenses + , mvescRemoveNetworkLoadBalancerARNs + , mvescAcceptanceRequired + , mvescAddNetworkLoadBalancerARNs + , mvescDryRun + , mvescServiceId + + -- * Destructuring the Response + , modifyVPCEndpointServiceConfigurationResponse + , ModifyVPCEndpointServiceConfigurationResponse + -- * Response Lenses + , mvescrsReturn + , mvescrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'modifyVPCEndpointServiceConfiguration' smart constructor. +data ModifyVPCEndpointServiceConfiguration = ModifyVPCEndpointServiceConfiguration' + { _mvescRemoveNetworkLoadBalancerARNs :: !(Maybe [Text]) + , _mvescAcceptanceRequired :: !(Maybe Bool) + , _mvescAddNetworkLoadBalancerARNs :: !(Maybe [Text]) + , _mvescDryRun :: !(Maybe Bool) + , _mvescServiceId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyVPCEndpointServiceConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mvescRemoveNetworkLoadBalancerARNs' - The Amazon Resource Names (ARNs) of Network Load Balancers to remove from your service configuration. +-- +-- * 'mvescAcceptanceRequired' - Indicate whether requests to create an endpoint to your service must be accepted. +-- +-- * 'mvescAddNetworkLoadBalancerARNs' - The Amazon Resource Names (ARNs) of Network Load Balancers to add to your service configuration. +-- +-- * 'mvescDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'mvescServiceId' - The ID of the service. +modifyVPCEndpointServiceConfiguration + :: Text -- ^ 'mvescServiceId' + -> ModifyVPCEndpointServiceConfiguration +modifyVPCEndpointServiceConfiguration pServiceId_ = + ModifyVPCEndpointServiceConfiguration' + { _mvescRemoveNetworkLoadBalancerARNs = Nothing + , _mvescAcceptanceRequired = Nothing + , _mvescAddNetworkLoadBalancerARNs = Nothing + , _mvescDryRun = Nothing + , _mvescServiceId = pServiceId_ + } + + +-- | The Amazon Resource Names (ARNs) of Network Load Balancers to remove from your service configuration. +mvescRemoveNetworkLoadBalancerARNs :: Lens' ModifyVPCEndpointServiceConfiguration [Text] +mvescRemoveNetworkLoadBalancerARNs = lens _mvescRemoveNetworkLoadBalancerARNs (\ s a -> s{_mvescRemoveNetworkLoadBalancerARNs = a}) . _Default . _Coerce + +-- | Indicate whether requests to create an endpoint to your service must be accepted. +mvescAcceptanceRequired :: Lens' ModifyVPCEndpointServiceConfiguration (Maybe Bool) +mvescAcceptanceRequired = lens _mvescAcceptanceRequired (\ s a -> s{_mvescAcceptanceRequired = a}) + +-- | The Amazon Resource Names (ARNs) of Network Load Balancers to add to your service configuration. +mvescAddNetworkLoadBalancerARNs :: Lens' ModifyVPCEndpointServiceConfiguration [Text] +mvescAddNetworkLoadBalancerARNs = lens _mvescAddNetworkLoadBalancerARNs (\ s a -> s{_mvescAddNetworkLoadBalancerARNs = a}) . _Default . _Coerce + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +mvescDryRun :: Lens' ModifyVPCEndpointServiceConfiguration (Maybe Bool) +mvescDryRun = lens _mvescDryRun (\ s a -> s{_mvescDryRun = a}) + +-- | The ID of the service. +mvescServiceId :: Lens' ModifyVPCEndpointServiceConfiguration Text +mvescServiceId = lens _mvescServiceId (\ s a -> s{_mvescServiceId = a}) + +instance AWSRequest + ModifyVPCEndpointServiceConfiguration + where + type Rs ModifyVPCEndpointServiceConfiguration = + ModifyVPCEndpointServiceConfigurationResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + ModifyVPCEndpointServiceConfigurationResponse' <$> + (x .@? "return") <*> (pure (fromEnum s))) + +instance Hashable + ModifyVPCEndpointServiceConfiguration + where + +instance NFData ModifyVPCEndpointServiceConfiguration + where + +instance ToHeaders + ModifyVPCEndpointServiceConfiguration + where + toHeaders = const mempty + +instance ToPath ModifyVPCEndpointServiceConfiguration + where + toPath = const "/" + +instance ToQuery + ModifyVPCEndpointServiceConfiguration + where + toQuery ModifyVPCEndpointServiceConfiguration'{..} + = mconcat + ["Action" =: + ("ModifyVpcEndpointServiceConfiguration" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery + (toQueryList "RemoveNetworkLoadBalancerArn" <$> + _mvescRemoveNetworkLoadBalancerARNs), + "AcceptanceRequired" =: _mvescAcceptanceRequired, + toQuery + (toQueryList "AddNetworkLoadBalancerArn" <$> + _mvescAddNetworkLoadBalancerARNs), + "DryRun" =: _mvescDryRun, + "ServiceId" =: _mvescServiceId] + +-- | /See:/ 'modifyVPCEndpointServiceConfigurationResponse' smart constructor. +data ModifyVPCEndpointServiceConfigurationResponse = ModifyVPCEndpointServiceConfigurationResponse' + { _mvescrsReturn :: !(Maybe Bool) + , _mvescrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyVPCEndpointServiceConfigurationResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mvescrsReturn' - Returns @true@ if the request succeeds; otherwise, it returns an error. +-- +-- * 'mvescrsResponseStatus' - -- | The response status code. +modifyVPCEndpointServiceConfigurationResponse + :: Int -- ^ 'mvescrsResponseStatus' + -> ModifyVPCEndpointServiceConfigurationResponse +modifyVPCEndpointServiceConfigurationResponse pResponseStatus_ = + ModifyVPCEndpointServiceConfigurationResponse' + {_mvescrsReturn = Nothing, _mvescrsResponseStatus = pResponseStatus_} + + +-- | Returns @true@ if the request succeeds; otherwise, it returns an error. +mvescrsReturn :: Lens' ModifyVPCEndpointServiceConfigurationResponse (Maybe Bool) +mvescrsReturn = lens _mvescrsReturn (\ s a -> s{_mvescrsReturn = a}) + +-- | -- | The response status code. +mvescrsResponseStatus :: Lens' ModifyVPCEndpointServiceConfigurationResponse Int +mvescrsResponseStatus = lens _mvescrsResponseStatus (\ s a -> s{_mvescrsResponseStatus = a}) + +instance NFData + ModifyVPCEndpointServiceConfigurationResponse + where diff --git a/gen/Network/AWS/EC2/ModifyVPCEndpointServicePermissions.hs b/gen/Network/AWS/EC2/ModifyVPCEndpointServicePermissions.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/ModifyVPCEndpointServicePermissions.hs @@ -0,0 +1,174 @@ +{-# LANGUAGE DeriveDataTypeable #-} +{-# LANGUAGE DeriveGeneric #-} +{-# LANGUAGE OverloadedStrings #-} +{-# LANGUAGE RecordWildCards #-} +{-# LANGUAGE TypeFamilies #-} + +{-# OPTIONS_GHC -fno-warn-unused-imports #-} +{-# OPTIONS_GHC -fno-warn-unused-binds #-} +{-# OPTIONS_GHC -fno-warn-unused-matches #-} + +-- Derived from AWS service descriptions, licensed under Apache 2.0. + +-- | +-- Module : Network.AWS.EC2.ModifyVPCEndpointServicePermissions +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Modifies the permissions for your . You can add or remove permissions for service consumers (IAM users, IAM roles, and AWS accounts) to connect to your endpoint service. +-- +-- +module Network.AWS.EC2.ModifyVPCEndpointServicePermissions + ( + -- * Creating a Request + modifyVPCEndpointServicePermissions + , ModifyVPCEndpointServicePermissions + -- * Request Lenses + , mvespRemoveAllowedPrincipals + , mvespAddAllowedPrincipals + , mvespDryRun + , mvespServiceId + + -- * Destructuring the Response + , modifyVPCEndpointServicePermissionsResponse + , ModifyVPCEndpointServicePermissionsResponse + -- * Response Lenses + , mvesprsReturnValue + , mvesprsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'modifyVPCEndpointServicePermissions' smart constructor. +data ModifyVPCEndpointServicePermissions = ModifyVPCEndpointServicePermissions' + { _mvespRemoveAllowedPrincipals :: !(Maybe [Text]) + , _mvespAddAllowedPrincipals :: !(Maybe [Text]) + , _mvespDryRun :: !(Maybe Bool) + , _mvespServiceId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyVPCEndpointServicePermissions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mvespRemoveAllowedPrincipals' - One or more Amazon Resource Names (ARNs) of principals for which to remove permission. +-- +-- * 'mvespAddAllowedPrincipals' - One or more Amazon Resource Names (ARNs) of principals for which to allow permission. Specify @*@ to allow all principals. +-- +-- * 'mvespDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'mvespServiceId' - The ID of the service. +modifyVPCEndpointServicePermissions + :: Text -- ^ 'mvespServiceId' + -> ModifyVPCEndpointServicePermissions +modifyVPCEndpointServicePermissions pServiceId_ = + ModifyVPCEndpointServicePermissions' + { _mvespRemoveAllowedPrincipals = Nothing + , _mvespAddAllowedPrincipals = Nothing + , _mvespDryRun = Nothing + , _mvespServiceId = pServiceId_ + } + + +-- | One or more Amazon Resource Names (ARNs) of principals for which to remove permission. +mvespRemoveAllowedPrincipals :: Lens' ModifyVPCEndpointServicePermissions [Text] +mvespRemoveAllowedPrincipals = lens _mvespRemoveAllowedPrincipals (\ s a -> s{_mvespRemoveAllowedPrincipals = a}) . _Default . _Coerce + +-- | One or more Amazon Resource Names (ARNs) of principals for which to allow permission. Specify @*@ to allow all principals. +mvespAddAllowedPrincipals :: Lens' ModifyVPCEndpointServicePermissions [Text] +mvespAddAllowedPrincipals = lens _mvespAddAllowedPrincipals (\ s a -> s{_mvespAddAllowedPrincipals = a}) . _Default . _Coerce + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +mvespDryRun :: Lens' ModifyVPCEndpointServicePermissions (Maybe Bool) +mvespDryRun = lens _mvespDryRun (\ s a -> s{_mvespDryRun = a}) + +-- | The ID of the service. +mvespServiceId :: Lens' ModifyVPCEndpointServicePermissions Text +mvespServiceId = lens _mvespServiceId (\ s a -> s{_mvespServiceId = a}) + +instance AWSRequest + ModifyVPCEndpointServicePermissions + where + type Rs ModifyVPCEndpointServicePermissions = + ModifyVPCEndpointServicePermissionsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + ModifyVPCEndpointServicePermissionsResponse' <$> + (x .@? "return") <*> (pure (fromEnum s))) + +instance Hashable ModifyVPCEndpointServicePermissions + where + +instance NFData ModifyVPCEndpointServicePermissions + where + +instance ToHeaders + ModifyVPCEndpointServicePermissions + where + toHeaders = const mempty + +instance ToPath ModifyVPCEndpointServicePermissions + where + toPath = const "/" + +instance ToQuery ModifyVPCEndpointServicePermissions + where + toQuery ModifyVPCEndpointServicePermissions'{..} + = mconcat + ["Action" =: + ("ModifyVpcEndpointServicePermissions" :: + ByteString), + "Version" =: ("2016-11-15" :: ByteString), + toQuery + (toQueryList "RemoveAllowedPrincipals" <$> + _mvespRemoveAllowedPrincipals), + toQuery + (toQueryList "AddAllowedPrincipals" <$> + _mvespAddAllowedPrincipals), + "DryRun" =: _mvespDryRun, + "ServiceId" =: _mvespServiceId] + +-- | /See:/ 'modifyVPCEndpointServicePermissionsResponse' smart constructor. +data ModifyVPCEndpointServicePermissionsResponse = ModifyVPCEndpointServicePermissionsResponse' + { _mvesprsReturnValue :: !(Maybe Bool) + , _mvesprsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ModifyVPCEndpointServicePermissionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mvesprsReturnValue' - Returns @true@ if the request succeeds; otherwise, it returns an error. +-- +-- * 'mvesprsResponseStatus' - -- | The response status code. +modifyVPCEndpointServicePermissionsResponse + :: Int -- ^ 'mvesprsResponseStatus' + -> ModifyVPCEndpointServicePermissionsResponse +modifyVPCEndpointServicePermissionsResponse pResponseStatus_ = + ModifyVPCEndpointServicePermissionsResponse' + {_mvesprsReturnValue = Nothing, _mvesprsResponseStatus = pResponseStatus_} + + +-- | Returns @true@ if the request succeeds; otherwise, it returns an error. +mvesprsReturnValue :: Lens' ModifyVPCEndpointServicePermissionsResponse (Maybe Bool) +mvesprsReturnValue = lens _mvesprsReturnValue (\ s a -> s{_mvesprsReturnValue = a}) + +-- | -- | The response status code. +mvesprsResponseStatus :: Lens' ModifyVPCEndpointServicePermissionsResponse Int +mvesprsResponseStatus = lens _mvesprsResponseStatus (\ s a -> s{_mvesprsResponseStatus = a}) + +instance NFData + ModifyVPCEndpointServicePermissionsResponse + where diff --git a/gen/Network/AWS/EC2/ModifyVPCPeeringConnectionOptions.hs b/gen/Network/AWS/EC2/ModifyVPCPeeringConnectionOptions.hs --- a/gen/Network/AWS/EC2/ModifyVPCPeeringConnectionOptions.hs +++ b/gen/Network/AWS/EC2/ModifyVPCPeeringConnectionOptions.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyVPCPeeringConnectionOptions --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -25,7 +25,7 @@ -- -- * Enable/disable communication over the peering connection between instances in your VPC and an EC2-Classic instance that's linked to the peer VPC. -- --- * Enable/disable a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. +-- * Enable/disable the ability to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. -- -- -- @@ -83,28 +83,28 @@ -> ModifyVPCPeeringConnectionOptions modifyVPCPeeringConnectionOptions pVPCPeeringConnectionId_ = ModifyVPCPeeringConnectionOptions' - { _mvpcoRequesterPeeringConnectionOptions = Nothing - , _mvpcoAccepterPeeringConnectionOptions = Nothing - , _mvpcoDryRun = Nothing - , _mvpcoVPCPeeringConnectionId = pVPCPeeringConnectionId_ - } + { _mvpcoRequesterPeeringConnectionOptions = Nothing + , _mvpcoAccepterPeeringConnectionOptions = Nothing + , _mvpcoDryRun = Nothing + , _mvpcoVPCPeeringConnectionId = pVPCPeeringConnectionId_ + } -- | The VPC peering connection options for the requester VPC. mvpcoRequesterPeeringConnectionOptions :: Lens' ModifyVPCPeeringConnectionOptions (Maybe PeeringConnectionOptionsRequest) -mvpcoRequesterPeeringConnectionOptions = lens _mvpcoRequesterPeeringConnectionOptions (\ s a -> s{_mvpcoRequesterPeeringConnectionOptions = a}); +mvpcoRequesterPeeringConnectionOptions = lens _mvpcoRequesterPeeringConnectionOptions (\ s a -> s{_mvpcoRequesterPeeringConnectionOptions = a}) -- | The VPC peering connection options for the accepter VPC. mvpcoAccepterPeeringConnectionOptions :: Lens' ModifyVPCPeeringConnectionOptions (Maybe PeeringConnectionOptionsRequest) -mvpcoAccepterPeeringConnectionOptions = lens _mvpcoAccepterPeeringConnectionOptions (\ s a -> s{_mvpcoAccepterPeeringConnectionOptions = a}); +mvpcoAccepterPeeringConnectionOptions = lens _mvpcoAccepterPeeringConnectionOptions (\ s a -> s{_mvpcoAccepterPeeringConnectionOptions = a}) -- | Checks whether you have the required permissions for the operation, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mvpcoDryRun :: Lens' ModifyVPCPeeringConnectionOptions (Maybe Bool) -mvpcoDryRun = lens _mvpcoDryRun (\ s a -> s{_mvpcoDryRun = a}); +mvpcoDryRun = lens _mvpcoDryRun (\ s a -> s{_mvpcoDryRun = a}) -- | The ID of the VPC peering connection. mvpcoVPCPeeringConnectionId :: Lens' ModifyVPCPeeringConnectionOptions Text -mvpcoVPCPeeringConnectionId = lens _mvpcoVPCPeeringConnectionId (\ s a -> s{_mvpcoVPCPeeringConnectionId = a}); +mvpcoVPCPeeringConnectionId = lens _mvpcoVPCPeeringConnectionId (\ s a -> s{_mvpcoVPCPeeringConnectionId = a}) instance AWSRequest ModifyVPCPeeringConnectionOptions where @@ -170,23 +170,23 @@ -> ModifyVPCPeeringConnectionOptionsResponse modifyVPCPeeringConnectionOptionsResponse pResponseStatus_ = ModifyVPCPeeringConnectionOptionsResponse' - { _mvpcorsRequesterPeeringConnectionOptions = Nothing - , _mvpcorsAccepterPeeringConnectionOptions = Nothing - , _mvpcorsResponseStatus = pResponseStatus_ - } + { _mvpcorsRequesterPeeringConnectionOptions = Nothing + , _mvpcorsAccepterPeeringConnectionOptions = Nothing + , _mvpcorsResponseStatus = pResponseStatus_ + } -- | Information about the VPC peering connection options for the requester VPC. mvpcorsRequesterPeeringConnectionOptions :: Lens' ModifyVPCPeeringConnectionOptionsResponse (Maybe PeeringConnectionOptions) -mvpcorsRequesterPeeringConnectionOptions = lens _mvpcorsRequesterPeeringConnectionOptions (\ s a -> s{_mvpcorsRequesterPeeringConnectionOptions = a}); +mvpcorsRequesterPeeringConnectionOptions = lens _mvpcorsRequesterPeeringConnectionOptions (\ s a -> s{_mvpcorsRequesterPeeringConnectionOptions = a}) -- | Information about the VPC peering connection options for the accepter VPC. mvpcorsAccepterPeeringConnectionOptions :: Lens' ModifyVPCPeeringConnectionOptionsResponse (Maybe PeeringConnectionOptions) -mvpcorsAccepterPeeringConnectionOptions = lens _mvpcorsAccepterPeeringConnectionOptions (\ s a -> s{_mvpcorsAccepterPeeringConnectionOptions = a}); +mvpcorsAccepterPeeringConnectionOptions = lens _mvpcorsAccepterPeeringConnectionOptions (\ s a -> s{_mvpcorsAccepterPeeringConnectionOptions = a}) -- | -- | The response status code. mvpcorsResponseStatus :: Lens' ModifyVPCPeeringConnectionOptionsResponse Int -mvpcorsResponseStatus = lens _mvpcorsResponseStatus (\ s a -> s{_mvpcorsResponseStatus = a}); +mvpcorsResponseStatus = lens _mvpcorsResponseStatus (\ s a -> s{_mvpcorsResponseStatus = a}) instance NFData ModifyVPCPeeringConnectionOptionsResponse diff --git a/gen/Network/AWS/EC2/ModifyVPCTenancy.hs b/gen/Network/AWS/EC2/ModifyVPCTenancy.hs --- a/gen/Network/AWS/EC2/ModifyVPCTenancy.hs +++ b/gen/Network/AWS/EC2/ModifyVPCTenancy.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyVPCTenancy --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,23 +77,23 @@ -> ModifyVPCTenancy modifyVPCTenancy pVPCId_ pInstanceTenancy_ = ModifyVPCTenancy' - { _mvtDryRun = Nothing - , _mvtVPCId = pVPCId_ - , _mvtInstanceTenancy = pInstanceTenancy_ - } + { _mvtDryRun = Nothing + , _mvtVPCId = pVPCId_ + , _mvtInstanceTenancy = pInstanceTenancy_ + } -- | Checks whether you have the required permissions for the operation, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mvtDryRun :: Lens' ModifyVPCTenancy (Maybe Bool) -mvtDryRun = lens _mvtDryRun (\ s a -> s{_mvtDryRun = a}); +mvtDryRun = lens _mvtDryRun (\ s a -> s{_mvtDryRun = a}) -- | The ID of the VPC. mvtVPCId :: Lens' ModifyVPCTenancy Text -mvtVPCId = lens _mvtVPCId (\ s a -> s{_mvtVPCId = a}); +mvtVPCId = lens _mvtVPCId (\ s a -> s{_mvtVPCId = a}) -- | The instance tenancy attribute for the VPC. mvtInstanceTenancy :: Lens' ModifyVPCTenancy VPCTenancy -mvtInstanceTenancy = lens _mvtInstanceTenancy (\ s a -> s{_mvtInstanceTenancy = a}); +mvtInstanceTenancy = lens _mvtInstanceTenancy (\ s a -> s{_mvtInstanceTenancy = a}) instance AWSRequest ModifyVPCTenancy where type Rs ModifyVPCTenancy = ModifyVPCTenancyResponse @@ -145,15 +145,15 @@ -> ModifyVPCTenancyResponse modifyVPCTenancyResponse pResponseStatus_ = ModifyVPCTenancyResponse' - {_mvtrsReturnValue = Nothing, _mvtrsResponseStatus = pResponseStatus_} + {_mvtrsReturnValue = Nothing, _mvtrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, returns an error. mvtrsReturnValue :: Lens' ModifyVPCTenancyResponse (Maybe Bool) -mvtrsReturnValue = lens _mvtrsReturnValue (\ s a -> s{_mvtrsReturnValue = a}); +mvtrsReturnValue = lens _mvtrsReturnValue (\ s a -> s{_mvtrsReturnValue = a}) -- | -- | The response status code. mvtrsResponseStatus :: Lens' ModifyVPCTenancyResponse Int -mvtrsResponseStatus = lens _mvtrsResponseStatus (\ s a -> s{_mvtrsResponseStatus = a}); +mvtrsResponseStatus = lens _mvtrsResponseStatus (\ s a -> s{_mvtrsResponseStatus = a}) instance NFData ModifyVPCTenancyResponse where diff --git a/gen/Network/AWS/EC2/ModifyVolume.hs b/gen/Network/AWS/EC2/ModifyVolume.hs --- a/gen/Network/AWS/EC2/ModifyVolume.hs +++ b/gen/Network/AWS/EC2/ModifyVolume.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyVolume --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -74,39 +74,39 @@ -- -- * 'mvDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'mvVolumeId' - Undocumented member. +-- * 'mvVolumeId' - The ID of the volume. modifyVolume :: Text -- ^ 'mvVolumeId' -> ModifyVolume modifyVolume pVolumeId_ = ModifyVolume' - { _mvSize = Nothing - , _mvIOPS = Nothing - , _mvVolumeType = Nothing - , _mvDryRun = Nothing - , _mvVolumeId = pVolumeId_ - } + { _mvSize = Nothing + , _mvIOPS = Nothing + , _mvVolumeType = Nothing + , _mvDryRun = Nothing + , _mvVolumeId = pVolumeId_ + } -- | Target size in GiB of the volume to be modified. Target volume size must be greater than or equal to than the existing size of the volume. For information about available EBS volume sizes, see . Default: If no size is specified, the existing size is retained. mvSize :: Lens' ModifyVolume (Maybe Int) -mvSize = lens _mvSize (\ s a -> s{_mvSize = a}); +mvSize = lens _mvSize (\ s a -> s{_mvSize = a}) -- | Target IOPS rate of the volume to be modified. Only valid for Provisioned IOPS SSD (@io1@ ) volumes. For more information about @io1@ IOPS configuration, see . Default: If no IOPS value is specified, the existing value is retained. mvIOPS :: Lens' ModifyVolume (Maybe Int) -mvIOPS = lens _mvIOPS (\ s a -> s{_mvIOPS = a}); +mvIOPS = lens _mvIOPS (\ s a -> s{_mvIOPS = a}) -- | Target EBS volume type of the volume to be modified The API does not support modifications for volume type @standard@ . You also cannot change the type of a volume to @standard@ . Default: If no type is specified, the existing type is retained. mvVolumeType :: Lens' ModifyVolume (Maybe VolumeType) -mvVolumeType = lens _mvVolumeType (\ s a -> s{_mvVolumeType = a}); +mvVolumeType = lens _mvVolumeType (\ s a -> s{_mvVolumeType = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mvDryRun :: Lens' ModifyVolume (Maybe Bool) -mvDryRun = lens _mvDryRun (\ s a -> s{_mvDryRun = a}); +mvDryRun = lens _mvDryRun (\ s a -> s{_mvDryRun = a}) --- | Undocumented member. +-- | The ID of the volume. mvVolumeId :: Lens' ModifyVolume Text -mvVolumeId = lens _mvVolumeId (\ s a -> s{_mvVolumeId = a}); +mvVolumeId = lens _mvVolumeId (\ s a -> s{_mvVolumeId = a}) instance AWSRequest ModifyVolume where type Rs ModifyVolume = ModifyVolumeResponse @@ -155,15 +155,15 @@ -> ModifyVolumeResponse modifyVolumeResponse pResponseStatus_ = ModifyVolumeResponse' - {_mvrsVolumeModification = Nothing, _mvrsResponseStatus = pResponseStatus_} + {_mvrsVolumeModification = Nothing, _mvrsResponseStatus = pResponseStatus_} -- | A 'VolumeModification' object. mvrsVolumeModification :: Lens' ModifyVolumeResponse (Maybe VolumeModification) -mvrsVolumeModification = lens _mvrsVolumeModification (\ s a -> s{_mvrsVolumeModification = a}); +mvrsVolumeModification = lens _mvrsVolumeModification (\ s a -> s{_mvrsVolumeModification = a}) -- | -- | The response status code. mvrsResponseStatus :: Lens' ModifyVolumeResponse Int -mvrsResponseStatus = lens _mvrsResponseStatus (\ s a -> s{_mvrsResponseStatus = a}); +mvrsResponseStatus = lens _mvrsResponseStatus (\ s a -> s{_mvrsResponseStatus = a}) instance NFData ModifyVolumeResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ModifyVolumeAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,20 +73,23 @@ -> ModifyVolumeAttribute modifyVolumeAttribute pVolumeId_ = ModifyVolumeAttribute' - {_mvaAutoEnableIO = Nothing, _mvaDryRun = Nothing, _mvaVolumeId = pVolumeId_} + { _mvaAutoEnableIO = Nothing + , _mvaDryRun = Nothing + , _mvaVolumeId = pVolumeId_ + } -- | Indicates whether the volume should be auto-enabled for I/O operations. mvaAutoEnableIO :: Lens' ModifyVolumeAttribute (Maybe AttributeBooleanValue) -mvaAutoEnableIO = lens _mvaAutoEnableIO (\ s a -> s{_mvaAutoEnableIO = a}); +mvaAutoEnableIO = lens _mvaAutoEnableIO (\ s a -> s{_mvaAutoEnableIO = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . mvaDryRun :: Lens' ModifyVolumeAttribute (Maybe Bool) -mvaDryRun = lens _mvaDryRun (\ s a -> s{_mvaDryRun = a}); +mvaDryRun = lens _mvaDryRun (\ s a -> s{_mvaDryRun = a}) -- | The ID of the volume. mvaVolumeId :: Lens' ModifyVolumeAttribute Text -mvaVolumeId = lens _mvaVolumeId (\ s a -> s{_mvaVolumeId = a}); +mvaVolumeId = lens _mvaVolumeId (\ s a -> s{_mvaVolumeId = a}) instance AWSRequest ModifyVolumeAttribute where type Rs ModifyVolumeAttribute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.MonitorInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,11 +73,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . miDryRun :: Lens' MonitorInstances (Maybe Bool) -miDryRun = lens _miDryRun (\ s a -> s{_miDryRun = a}); +miDryRun = lens _miDryRun (\ s a -> s{_miDryRun = a}) -- | One or more instance IDs. miInstanceIds :: Lens' MonitorInstances [Text] -miInstanceIds = lens _miInstanceIds (\ s a -> s{_miInstanceIds = a}) . _Coerce; +miInstanceIds = lens _miInstanceIds (\ s a -> s{_miInstanceIds = a}) . _Coerce instance AWSRequest MonitorInstances where type Rs MonitorInstances = MonitorInstancesResponse @@ -131,15 +131,15 @@ -> MonitorInstancesResponse monitorInstancesResponse pResponseStatus_ = MonitorInstancesResponse' - {_mirsInstanceMonitorings = Nothing, _mirsResponseStatus = pResponseStatus_} + {_mirsInstanceMonitorings = Nothing, _mirsResponseStatus = pResponseStatus_} -- | The monitoring information. mirsInstanceMonitorings :: Lens' MonitorInstancesResponse [InstanceMonitoring] -mirsInstanceMonitorings = lens _mirsInstanceMonitorings (\ s a -> s{_mirsInstanceMonitorings = a}) . _Default . _Coerce; +mirsInstanceMonitorings = lens _mirsInstanceMonitorings (\ s a -> s{_mirsInstanceMonitorings = a}) . _Default . _Coerce -- | -- | The response status code. mirsResponseStatus :: Lens' MonitorInstancesResponse Int -mirsResponseStatus = lens _mirsResponseStatus (\ s a -> s{_mirsResponseStatus = a}); +mirsResponseStatus = lens _mirsResponseStatus (\ s a -> s{_mirsResponseStatus = a}) instance NFData MonitorInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.MoveAddressToVPC --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,11 +73,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . matvDryRun :: Lens' MoveAddressToVPC (Maybe Bool) -matvDryRun = lens _matvDryRun (\ s a -> s{_matvDryRun = a}); +matvDryRun = lens _matvDryRun (\ s a -> s{_matvDryRun = a}) -- | The Elastic IP address. matvPublicIP :: Lens' MoveAddressToVPC Text -matvPublicIP = lens _matvPublicIP (\ s a -> s{_matvPublicIP = a}); +matvPublicIP = lens _matvPublicIP (\ s a -> s{_matvPublicIP = a}) instance AWSRequest MoveAddressToVPC where type Rs MoveAddressToVPC = MoveAddressToVPCResponse @@ -132,22 +132,22 @@ -> MoveAddressToVPCResponse moveAddressToVPCResponse pResponseStatus_ = MoveAddressToVPCResponse' - { _matvrsStatus = Nothing - , _matvrsAllocationId = Nothing - , _matvrsResponseStatus = pResponseStatus_ - } + { _matvrsStatus = Nothing + , _matvrsAllocationId = Nothing + , _matvrsResponseStatus = pResponseStatus_ + } -- | The status of the move of the IP address. matvrsStatus :: Lens' MoveAddressToVPCResponse (Maybe AddressStatus) -matvrsStatus = lens _matvrsStatus (\ s a -> s{_matvrsStatus = a}); +matvrsStatus = lens _matvrsStatus (\ s a -> s{_matvrsStatus = a}) -- | The allocation ID for the Elastic IP address. matvrsAllocationId :: Lens' MoveAddressToVPCResponse (Maybe Text) -matvrsAllocationId = lens _matvrsAllocationId (\ s a -> s{_matvrsAllocationId = a}); +matvrsAllocationId = lens _matvrsAllocationId (\ s a -> s{_matvrsAllocationId = a}) -- | -- | The response status code. matvrsResponseStatus :: Lens' MoveAddressToVPCResponse Int -matvrsResponseStatus = lens _matvrsResponseStatus (\ s a -> s{_matvrsResponseStatus = a}); +matvrsResponseStatus = lens _matvrsResponseStatus (\ s a -> s{_matvrsResponseStatus = a}) instance NFData MoveAddressToVPCResponse where diff --git a/gen/Network/AWS/EC2/PurchaseHostReservation.hs b/gen/Network/AWS/EC2/PurchaseHostReservation.hs --- a/gen/Network/AWS/EC2/PurchaseHostReservation.hs +++ b/gen/Network/AWS/EC2/PurchaseHostReservation.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.PurchaseHostReservation --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -80,33 +80,33 @@ -> PurchaseHostReservation purchaseHostReservation pOfferingId_ = PurchaseHostReservation' - { _phrCurrencyCode = Nothing - , _phrClientToken = Nothing - , _phrLimitPrice = Nothing - , _phrHostIdSet = mempty - , _phrOfferingId = pOfferingId_ - } + { _phrCurrencyCode = Nothing + , _phrClientToken = Nothing + , _phrLimitPrice = Nothing + , _phrHostIdSet = mempty + , _phrOfferingId = pOfferingId_ + } -- | The currency in which the @totalUpfrontPrice@ , @LimitPrice@ , and @totalHourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . phrCurrencyCode :: Lens' PurchaseHostReservation (Maybe CurrencyCodeValues) -phrCurrencyCode = lens _phrCurrencyCode (\ s a -> s{_phrCurrencyCode = a}); +phrCurrencyCode = lens _phrCurrencyCode (\ s a -> s{_phrCurrencyCode = a}) -- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . phrClientToken :: Lens' PurchaseHostReservation (Maybe Text) -phrClientToken = lens _phrClientToken (\ s a -> s{_phrClientToken = a}); +phrClientToken = lens _phrClientToken (\ s a -> s{_phrClientToken = a}) -- | The specified limit is checked against the total upfront cost of the reservation (calculated as the offering's upfront cost multiplied by the host count). If the total upfront cost is greater than the specified price limit, the request will fail. This is used to ensure that the purchase does not exceed the expected upfront cost of the purchase. At this time, the only supported currency is @USD@ . For example, to indicate a limit price of USD 100, specify 100.00. phrLimitPrice :: Lens' PurchaseHostReservation (Maybe Text) -phrLimitPrice = lens _phrLimitPrice (\ s a -> s{_phrLimitPrice = a}); +phrLimitPrice = lens _phrLimitPrice (\ s a -> s{_phrLimitPrice = a}) -- | The ID/s of the Dedicated Host/s that the reservation will be associated with. phrHostIdSet :: Lens' PurchaseHostReservation [Text] -phrHostIdSet = lens _phrHostIdSet (\ s a -> s{_phrHostIdSet = a}) . _Coerce; +phrHostIdSet = lens _phrHostIdSet (\ s a -> s{_phrHostIdSet = a}) . _Coerce -- | The ID of the offering. phrOfferingId :: Lens' PurchaseHostReservation Text -phrOfferingId = lens _phrOfferingId (\ s a -> s{_phrOfferingId = a}); +phrOfferingId = lens _phrOfferingId (\ s a -> s{_phrOfferingId = a}) instance AWSRequest PurchaseHostReservation where type Rs PurchaseHostReservation = @@ -177,37 +177,37 @@ -> PurchaseHostReservationResponse purchaseHostReservationResponse pResponseStatus_ = PurchaseHostReservationResponse' - { _phrrsCurrencyCode = Nothing - , _phrrsClientToken = Nothing - , _phrrsTotalHourlyPrice = Nothing - , _phrrsTotalUpfrontPrice = Nothing - , _phrrsPurchase = Nothing - , _phrrsResponseStatus = pResponseStatus_ - } + { _phrrsCurrencyCode = Nothing + , _phrrsClientToken = Nothing + , _phrrsTotalHourlyPrice = Nothing + , _phrrsTotalUpfrontPrice = Nothing + , _phrrsPurchase = Nothing + , _phrrsResponseStatus = pResponseStatus_ + } -- | The currency in which the @totalUpfrontPrice@ and @totalHourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . phrrsCurrencyCode :: Lens' PurchaseHostReservationResponse (Maybe CurrencyCodeValues) -phrrsCurrencyCode = lens _phrrsCurrencyCode (\ s a -> s{_phrrsCurrencyCode = a}); +phrrsCurrencyCode = lens _phrrsCurrencyCode (\ s a -> s{_phrrsCurrencyCode = a}) -- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ phrrsClientToken :: Lens' PurchaseHostReservationResponse (Maybe Text) -phrrsClientToken = lens _phrrsClientToken (\ s a -> s{_phrrsClientToken = a}); +phrrsClientToken = lens _phrrsClientToken (\ s a -> s{_phrrsClientToken = a}) -- | The total hourly price of the reservation calculated per hour. phrrsTotalHourlyPrice :: Lens' PurchaseHostReservationResponse (Maybe Text) -phrrsTotalHourlyPrice = lens _phrrsTotalHourlyPrice (\ s a -> s{_phrrsTotalHourlyPrice = a}); +phrrsTotalHourlyPrice = lens _phrrsTotalHourlyPrice (\ s a -> s{_phrrsTotalHourlyPrice = a}) -- | The total amount that will be charged to your account when you purchase the reservation. phrrsTotalUpfrontPrice :: Lens' PurchaseHostReservationResponse (Maybe Text) -phrrsTotalUpfrontPrice = lens _phrrsTotalUpfrontPrice (\ s a -> s{_phrrsTotalUpfrontPrice = a}); +phrrsTotalUpfrontPrice = lens _phrrsTotalUpfrontPrice (\ s a -> s{_phrrsTotalUpfrontPrice = a}) -- | Describes the details of the purchase. phrrsPurchase :: Lens' PurchaseHostReservationResponse [Purchase] -phrrsPurchase = lens _phrrsPurchase (\ s a -> s{_phrrsPurchase = a}) . _Default . _Coerce; +phrrsPurchase = lens _phrrsPurchase (\ s a -> s{_phrrsPurchase = a}) . _Default . _Coerce -- | -- | The response status code. phrrsResponseStatus :: Lens' PurchaseHostReservationResponse Int -phrrsResponseStatus = lens _phrrsResponseStatus (\ s a -> s{_phrrsResponseStatus = a}); +phrrsResponseStatus = lens _phrrsResponseStatus (\ s a -> s{_phrrsResponseStatus = a}) instance NFData PurchaseHostReservationResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.PurchaseReservedInstancesOffering --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -81,28 +81,28 @@ -> PurchaseReservedInstancesOffering purchaseReservedInstancesOffering pInstanceCount_ pReservedInstancesOfferingId_ = PurchaseReservedInstancesOffering' - { _prioLimitPrice = Nothing - , _prioDryRun = Nothing - , _prioInstanceCount = pInstanceCount_ - , _prioReservedInstancesOfferingId = pReservedInstancesOfferingId_ - } + { _prioLimitPrice = Nothing + , _prioDryRun = Nothing + , _prioInstanceCount = pInstanceCount_ + , _prioReservedInstancesOfferingId = pReservedInstancesOfferingId_ + } -- | Specified for Reserved Instance Marketplace offerings to limit the total order and ensure that the Reserved Instances are not purchased at unexpected prices. prioLimitPrice :: Lens' PurchaseReservedInstancesOffering (Maybe ReservedInstanceLimitPrice) -prioLimitPrice = lens _prioLimitPrice (\ s a -> s{_prioLimitPrice = a}); +prioLimitPrice = lens _prioLimitPrice (\ s a -> s{_prioLimitPrice = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . prioDryRun :: Lens' PurchaseReservedInstancesOffering (Maybe Bool) -prioDryRun = lens _prioDryRun (\ s a -> s{_prioDryRun = a}); +prioDryRun = lens _prioDryRun (\ s a -> s{_prioDryRun = a}) -- | The number of Reserved Instances to purchase. prioInstanceCount :: Lens' PurchaseReservedInstancesOffering Int -prioInstanceCount = lens _prioInstanceCount (\ s a -> s{_prioInstanceCount = a}); +prioInstanceCount = lens _prioInstanceCount (\ s a -> s{_prioInstanceCount = a}) -- | The ID of the Reserved Instance offering to purchase. prioReservedInstancesOfferingId :: Lens' PurchaseReservedInstancesOffering Text -prioReservedInstancesOfferingId = lens _prioReservedInstancesOfferingId (\ s a -> s{_prioReservedInstancesOfferingId = a}); +prioReservedInstancesOfferingId = lens _prioReservedInstancesOfferingId (\ s a -> s{_prioReservedInstancesOfferingId = a}) instance AWSRequest PurchaseReservedInstancesOffering where @@ -166,18 +166,18 @@ -> PurchaseReservedInstancesOfferingResponse purchaseReservedInstancesOfferingResponse pResponseStatus_ = PurchaseReservedInstancesOfferingResponse' - { _priorsReservedInstancesId = Nothing - , _priorsResponseStatus = pResponseStatus_ - } + { _priorsReservedInstancesId = Nothing + , _priorsResponseStatus = pResponseStatus_ + } -- | The IDs of the purchased Reserved Instances. priorsReservedInstancesId :: Lens' PurchaseReservedInstancesOfferingResponse (Maybe Text) -priorsReservedInstancesId = lens _priorsReservedInstancesId (\ s a -> s{_priorsReservedInstancesId = a}); +priorsReservedInstancesId = lens _priorsReservedInstancesId (\ s a -> s{_priorsReservedInstancesId = a}) -- | -- | The response status code. priorsResponseStatus :: Lens' PurchaseReservedInstancesOfferingResponse Int -priorsResponseStatus = lens _priorsResponseStatus (\ s a -> s{_priorsResponseStatus = a}); +priorsResponseStatus = lens _priorsResponseStatus (\ s a -> s{_priorsResponseStatus = a}) instance NFData PurchaseReservedInstancesOfferingResponse diff --git a/gen/Network/AWS/EC2/PurchaseScheduledInstances.hs b/gen/Network/AWS/EC2/PurchaseScheduledInstances.hs --- a/gen/Network/AWS/EC2/PurchaseScheduledInstances.hs +++ b/gen/Network/AWS/EC2/PurchaseScheduledInstances.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.PurchaseScheduledInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -76,23 +76,23 @@ -> PurchaseScheduledInstances purchaseScheduledInstances pPurchaseRequests_ = PurchaseScheduledInstances' - { _psiClientToken = Nothing - , _psiDryRun = Nothing - , _psiPurchaseRequests = _List1 # pPurchaseRequests_ - } + { _psiClientToken = Nothing + , _psiDryRun = Nothing + , _psiPurchaseRequests = _List1 # pPurchaseRequests_ + } -- | Unique, case-sensitive identifier that ensures the idempotency of the request. For more information, see . psiClientToken :: Lens' PurchaseScheduledInstances (Maybe Text) -psiClientToken = lens _psiClientToken (\ s a -> s{_psiClientToken = a}); +psiClientToken = lens _psiClientToken (\ s a -> s{_psiClientToken = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . psiDryRun :: Lens' PurchaseScheduledInstances (Maybe Bool) -psiDryRun = lens _psiDryRun (\ s a -> s{_psiDryRun = a}); +psiDryRun = lens _psiDryRun (\ s a -> s{_psiDryRun = a}) -- | One or more purchase requests. psiPurchaseRequests :: Lens' PurchaseScheduledInstances (NonEmpty PurchaseRequest) -psiPurchaseRequests = lens _psiPurchaseRequests (\ s a -> s{_psiPurchaseRequests = a}) . _List1; +psiPurchaseRequests = lens _psiPurchaseRequests (\ s a -> s{_psiPurchaseRequests = a}) . _List1 instance AWSRequest PurchaseScheduledInstances where type Rs PurchaseScheduledInstances = @@ -149,18 +149,18 @@ -> PurchaseScheduledInstancesResponse purchaseScheduledInstancesResponse pResponseStatus_ = PurchaseScheduledInstancesResponse' - { _psirsScheduledInstanceSet = Nothing - , _psirsResponseStatus = pResponseStatus_ - } + { _psirsScheduledInstanceSet = Nothing + , _psirsResponseStatus = pResponseStatus_ + } -- | Information about the Scheduled Instances. psirsScheduledInstanceSet :: Lens' PurchaseScheduledInstancesResponse [ScheduledInstance] -psirsScheduledInstanceSet = lens _psirsScheduledInstanceSet (\ s a -> s{_psirsScheduledInstanceSet = a}) . _Default . _Coerce; +psirsScheduledInstanceSet = lens _psirsScheduledInstanceSet (\ s a -> s{_psirsScheduledInstanceSet = a}) . _Default . _Coerce -- | -- | The response status code. psirsResponseStatus :: Lens' PurchaseScheduledInstancesResponse Int -psirsResponseStatus = lens _psirsResponseStatus (\ s a -> s{_psirsResponseStatus = a}); +psirsResponseStatus = lens _psirsResponseStatus (\ s a -> s{_psirsResponseStatus = a}) instance NFData PurchaseScheduledInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RebootInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,11 +72,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rebDryRun :: Lens' RebootInstances (Maybe Bool) -rebDryRun = lens _rebDryRun (\ s a -> s{_rebDryRun = a}); +rebDryRun = lens _rebDryRun (\ s a -> s{_rebDryRun = a}) -- | One or more instance IDs. rebInstanceIds :: Lens' RebootInstances [Text] -rebInstanceIds = lens _rebInstanceIds (\ s a -> s{_rebInstanceIds = a}) . _Coerce; +rebInstanceIds = lens _rebInstanceIds (\ s a -> s{_rebInstanceIds = a}) . _Coerce instance AWSRequest RebootInstances where type Rs RebootInstances = RebootInstancesResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RegisterImage --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -90,7 +90,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'riVirtualizationType' - The type of virtualization. Default: @paravirtual@ +-- * 'riVirtualizationType' - The type of virtualization (@hvm@ | @paravirtual@ ). Default: @paravirtual@ -- -- * 'riImageLocation' - The full path to your AMI manifest in Amazon S3 storage. -- @@ -120,73 +120,73 @@ -> RegisterImage registerImage pName_ = RegisterImage' - { _riVirtualizationType = Nothing - , _riImageLocation = Nothing - , _riEnaSupport = Nothing - , _riBillingProducts = Nothing - , _riRAMDiskId = Nothing - , _riKernelId = Nothing - , _riRootDeviceName = Nothing - , _riSRIOVNetSupport = Nothing - , _riArchitecture = Nothing - , _riDescription = Nothing - , _riBlockDeviceMappings = Nothing - , _riDryRun = Nothing - , _riName = pName_ - } + { _riVirtualizationType = Nothing + , _riImageLocation = Nothing + , _riEnaSupport = Nothing + , _riBillingProducts = Nothing + , _riRAMDiskId = Nothing + , _riKernelId = Nothing + , _riRootDeviceName = Nothing + , _riSRIOVNetSupport = Nothing + , _riArchitecture = Nothing + , _riDescription = Nothing + , _riBlockDeviceMappings = Nothing + , _riDryRun = Nothing + , _riName = pName_ + } --- | The type of virtualization. Default: @paravirtual@ +-- | The type of virtualization (@hvm@ | @paravirtual@ ). Default: @paravirtual@ riVirtualizationType :: Lens' RegisterImage (Maybe Text) -riVirtualizationType = lens _riVirtualizationType (\ s a -> s{_riVirtualizationType = a}); +riVirtualizationType = lens _riVirtualizationType (\ s a -> s{_riVirtualizationType = a}) -- | The full path to your AMI manifest in Amazon S3 storage. riImageLocation :: Lens' RegisterImage (Maybe Text) -riImageLocation = lens _riImageLocation (\ s a -> s{_riImageLocation = a}); +riImageLocation = lens _riImageLocation (\ s a -> s{_riImageLocation = a}) -- | Set to @true@ to enable enhanced networking with ENA for the AMI and any instances that you launch from the AMI. This option is supported only for HVM AMIs. Specifying this option with a PV AMI can make instances launched from the AMI unreachable. riEnaSupport :: Lens' RegisterImage (Maybe Bool) -riEnaSupport = lens _riEnaSupport (\ s a -> s{_riEnaSupport = a}); +riEnaSupport = lens _riEnaSupport (\ s a -> s{_riEnaSupport = a}) -- | The billing product codes. Your account must be authorized to specify billing product codes. Otherwise, you can use the AWS Marketplace to bill for the use of an AMI. riBillingProducts :: Lens' RegisterImage [Text] -riBillingProducts = lens _riBillingProducts (\ s a -> s{_riBillingProducts = a}) . _Default . _Coerce; +riBillingProducts = lens _riBillingProducts (\ s a -> s{_riBillingProducts = a}) . _Default . _Coerce -- | The ID of the RAM disk. riRAMDiskId :: Lens' RegisterImage (Maybe Text) -riRAMDiskId = lens _riRAMDiskId (\ s a -> s{_riRAMDiskId = a}); +riRAMDiskId = lens _riRAMDiskId (\ s a -> s{_riRAMDiskId = a}) -- | The ID of the kernel. riKernelId :: Lens' RegisterImage (Maybe Text) -riKernelId = lens _riKernelId (\ s a -> s{_riKernelId = a}); +riKernelId = lens _riKernelId (\ s a -> s{_riKernelId = a}) -- | The device name of the root device volume (for example, @/dev/sda1@ ). riRootDeviceName :: Lens' RegisterImage (Maybe Text) -riRootDeviceName = lens _riRootDeviceName (\ s a -> s{_riRootDeviceName = a}); +riRootDeviceName = lens _riRootDeviceName (\ s a -> s{_riRootDeviceName = a}) -- | Set to @simple@ to enable enhanced networking with the Intel 82599 Virtual Function interface for the AMI and any instances that you launch from the AMI. There is no way to disable @sriovNetSupport@ at this time. This option is supported only for HVM AMIs. Specifying this option with a PV AMI can make instances launched from the AMI unreachable. riSRIOVNetSupport :: Lens' RegisterImage (Maybe Text) -riSRIOVNetSupport = lens _riSRIOVNetSupport (\ s a -> s{_riSRIOVNetSupport = a}); +riSRIOVNetSupport = lens _riSRIOVNetSupport (\ s a -> s{_riSRIOVNetSupport = a}) -- | The architecture of the AMI. Default: For Amazon EBS-backed AMIs, @i386@ . For instance store-backed AMIs, the architecture specified in the manifest file. riArchitecture :: Lens' RegisterImage (Maybe ArchitectureValues) -riArchitecture = lens _riArchitecture (\ s a -> s{_riArchitecture = a}); +riArchitecture = lens _riArchitecture (\ s a -> s{_riArchitecture = a}) -- | A description for your AMI. riDescription :: Lens' RegisterImage (Maybe Text) -riDescription = lens _riDescription (\ s a -> s{_riDescription = a}); +riDescription = lens _riDescription (\ s a -> s{_riDescription = a}) -- | One or more block device mapping entries. riBlockDeviceMappings :: Lens' RegisterImage [BlockDeviceMapping] -riBlockDeviceMappings = lens _riBlockDeviceMappings (\ s a -> s{_riBlockDeviceMappings = a}) . _Default . _Coerce; +riBlockDeviceMappings = lens _riBlockDeviceMappings (\ s a -> s{_riBlockDeviceMappings = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . riDryRun :: Lens' RegisterImage (Maybe Bool) -riDryRun = lens _riDryRun (\ s a -> s{_riDryRun = a}); +riDryRun = lens _riDryRun (\ s a -> s{_riDryRun = a}) -- | A name for your AMI. Constraints: 3-128 alphanumeric characters, parentheses (()), square brackets ([]), spaces ( ), periods (.), slashes (/), dashes (-), single quotes ('), at-signs (@), or underscores(_) riName :: Lens' RegisterImage Text -riName = lens _riName (\ s a -> s{_riName = a}); +riName = lens _riName (\ s a -> s{_riName = a}) instance AWSRequest RegisterImage where type Rs RegisterImage = RegisterImageResponse @@ -252,15 +252,15 @@ -> RegisterImageResponse registerImageResponse pResponseStatus_ = RegisterImageResponse' - {_rirsImageId = Nothing, _rirsResponseStatus = pResponseStatus_} + {_rirsImageId = Nothing, _rirsResponseStatus = pResponseStatus_} -- | The ID of the newly registered AMI. rirsImageId :: Lens' RegisterImageResponse (Maybe Text) -rirsImageId = lens _rirsImageId (\ s a -> s{_rirsImageId = a}); +rirsImageId = lens _rirsImageId (\ s a -> s{_rirsImageId = a}) -- | -- | The response status code. rirsResponseStatus :: Lens' RegisterImageResponse Int -rirsResponseStatus = lens _rirsResponseStatus (\ s a -> s{_rirsResponseStatus = a}); +rirsResponseStatus = lens _rirsResponseStatus (\ s a -> s{_rirsResponseStatus = a}) instance NFData RegisterImageResponse where diff --git a/gen/Network/AWS/EC2/RejectVPCEndpointConnections.hs b/gen/Network/AWS/EC2/RejectVPCEndpointConnections.hs new file mode 100644 --- /dev/null +++ b/gen/Network/AWS/EC2/RejectVPCEndpointConnections.hs @@ -0,0 +1,153 @@ +{-# 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.RejectVPCEndpointConnections +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +-- Rejects one or more VPC endpoint connection requests to your VPC endpoint service. +-- +-- +module Network.AWS.EC2.RejectVPCEndpointConnections + ( + -- * Creating a Request + rejectVPCEndpointConnections + , RejectVPCEndpointConnections + -- * Request Lenses + , rvecDryRun + , rvecServiceId + , rvecVPCEndpointIds + + -- * Destructuring the Response + , rejectVPCEndpointConnectionsResponse + , RejectVPCEndpointConnectionsResponse + -- * Response Lenses + , rvecrsUnsuccessful + , rvecrsResponseStatus + ) where + +import Network.AWS.EC2.Types +import Network.AWS.EC2.Types.Product +import Network.AWS.Lens +import Network.AWS.Prelude +import Network.AWS.Request +import Network.AWS.Response + +-- | /See:/ 'rejectVPCEndpointConnections' smart constructor. +data RejectVPCEndpointConnections = RejectVPCEndpointConnections' + { _rvecDryRun :: !(Maybe Bool) + , _rvecServiceId :: !Text + , _rvecVPCEndpointIds :: ![Text] + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RejectVPCEndpointConnections' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rvecDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'rvecServiceId' - The ID of the service. +-- +-- * 'rvecVPCEndpointIds' - The IDs of one or more VPC endpoints. +rejectVPCEndpointConnections + :: Text -- ^ 'rvecServiceId' + -> RejectVPCEndpointConnections +rejectVPCEndpointConnections pServiceId_ = + RejectVPCEndpointConnections' + { _rvecDryRun = Nothing + , _rvecServiceId = pServiceId_ + , _rvecVPCEndpointIds = mempty + } + + +-- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +rvecDryRun :: Lens' RejectVPCEndpointConnections (Maybe Bool) +rvecDryRun = lens _rvecDryRun (\ s a -> s{_rvecDryRun = a}) + +-- | The ID of the service. +rvecServiceId :: Lens' RejectVPCEndpointConnections Text +rvecServiceId = lens _rvecServiceId (\ s a -> s{_rvecServiceId = a}) + +-- | The IDs of one or more VPC endpoints. +rvecVPCEndpointIds :: Lens' RejectVPCEndpointConnections [Text] +rvecVPCEndpointIds = lens _rvecVPCEndpointIds (\ s a -> s{_rvecVPCEndpointIds = a}) . _Coerce + +instance AWSRequest RejectVPCEndpointConnections + where + type Rs RejectVPCEndpointConnections = + RejectVPCEndpointConnectionsResponse + request = postQuery ec2 + response + = receiveXML + (\ s h x -> + RejectVPCEndpointConnectionsResponse' <$> + (x .@? "unsuccessful" .!@ mempty >>= + may (parseXMLList "item")) + <*> (pure (fromEnum s))) + +instance Hashable RejectVPCEndpointConnections where + +instance NFData RejectVPCEndpointConnections where + +instance ToHeaders RejectVPCEndpointConnections where + toHeaders = const mempty + +instance ToPath RejectVPCEndpointConnections where + toPath = const "/" + +instance ToQuery RejectVPCEndpointConnections where + toQuery RejectVPCEndpointConnections'{..} + = mconcat + ["Action" =: + ("RejectVpcEndpointConnections" :: ByteString), + "Version" =: ("2016-11-15" :: ByteString), + "DryRun" =: _rvecDryRun, + "ServiceId" =: _rvecServiceId, + toQueryList "VpcEndpointId" _rvecVPCEndpointIds] + +-- | /See:/ 'rejectVPCEndpointConnectionsResponse' smart constructor. +data RejectVPCEndpointConnectionsResponse = RejectVPCEndpointConnectionsResponse' + { _rvecrsUnsuccessful :: !(Maybe [UnsuccessfulItem]) + , _rvecrsResponseStatus :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RejectVPCEndpointConnectionsResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rvecrsUnsuccessful' - Information about the endpoints that were not rejected, if applicable. +-- +-- * 'rvecrsResponseStatus' - -- | The response status code. +rejectVPCEndpointConnectionsResponse + :: Int -- ^ 'rvecrsResponseStatus' + -> RejectVPCEndpointConnectionsResponse +rejectVPCEndpointConnectionsResponse pResponseStatus_ = + RejectVPCEndpointConnectionsResponse' + {_rvecrsUnsuccessful = Nothing, _rvecrsResponseStatus = pResponseStatus_} + + +-- | Information about the endpoints that were not rejected, if applicable. +rvecrsUnsuccessful :: Lens' RejectVPCEndpointConnectionsResponse [UnsuccessfulItem] +rvecrsUnsuccessful = lens _rvecrsUnsuccessful (\ s a -> s{_rvecrsUnsuccessful = a}) . _Default . _Coerce + +-- | -- | The response status code. +rvecrsResponseStatus :: Lens' RejectVPCEndpointConnectionsResponse Int +rvecrsResponseStatus = lens _rvecrsResponseStatus (\ s a -> s{_rvecrsResponseStatus = a}) + +instance NFData RejectVPCEndpointConnectionsResponse + where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RejectVPCPeeringConnection --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,18 +68,18 @@ -> RejectVPCPeeringConnection rejectVPCPeeringConnection pVPCPeeringConnectionId_ = RejectVPCPeeringConnection' - { _rvpcDryRun = Nothing - , _rvpcVPCPeeringConnectionId = pVPCPeeringConnectionId_ - } + { _rvpcDryRun = Nothing + , _rvpcVPCPeeringConnectionId = pVPCPeeringConnectionId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rvpcDryRun :: Lens' RejectVPCPeeringConnection (Maybe Bool) -rvpcDryRun = lens _rvpcDryRun (\ s a -> s{_rvpcDryRun = a}); +rvpcDryRun = lens _rvpcDryRun (\ s a -> s{_rvpcDryRun = a}) -- | The ID of the VPC peering connection. rvpcVPCPeeringConnectionId :: Lens' RejectVPCPeeringConnection Text -rvpcVPCPeeringConnectionId = lens _rvpcVPCPeeringConnectionId (\ s a -> s{_rvpcVPCPeeringConnectionId = a}); +rvpcVPCPeeringConnectionId = lens _rvpcVPCPeeringConnectionId (\ s a -> s{_rvpcVPCPeeringConnectionId = a}) instance AWSRequest RejectVPCPeeringConnection where type Rs RejectVPCPeeringConnection = @@ -134,16 +134,16 @@ -> RejectVPCPeeringConnectionResponse rejectVPCPeeringConnectionResponse pResponseStatus_ = RejectVPCPeeringConnectionResponse' - {_rvpcrsReturn = Nothing, _rvpcrsResponseStatus = pResponseStatus_} + {_rvpcrsReturn = Nothing, _rvpcrsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, it returns an error. rvpcrsReturn :: Lens' RejectVPCPeeringConnectionResponse (Maybe Bool) -rvpcrsReturn = lens _rvpcrsReturn (\ s a -> s{_rvpcrsReturn = a}); +rvpcrsReturn = lens _rvpcrsReturn (\ s a -> s{_rvpcrsReturn = a}) -- | -- | The response status code. rvpcrsResponseStatus :: Lens' RejectVPCPeeringConnectionResponse Int -rvpcrsResponseStatus = lens _rvpcrsResponseStatus (\ s a -> s{_rvpcrsResponseStatus = a}); +rvpcrsResponseStatus = lens _rvpcrsResponseStatus (\ s a -> s{_rvpcrsResponseStatus = a}) instance NFData RejectVPCPeeringConnectionResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReleaseAddress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -76,20 +76,20 @@ :: ReleaseAddress releaseAddress = ReleaseAddress' - {_raAllocationId = Nothing, _raPublicIP = Nothing, _raDryRun = Nothing} + {_raAllocationId = Nothing, _raPublicIP = Nothing, _raDryRun = Nothing} -- | [EC2-VPC] The allocation ID. Required for EC2-VPC. raAllocationId :: Lens' ReleaseAddress (Maybe Text) -raAllocationId = lens _raAllocationId (\ s a -> s{_raAllocationId = a}); +raAllocationId = lens _raAllocationId (\ s a -> s{_raAllocationId = a}) -- | [EC2-Classic] The Elastic IP address. Required for EC2-Classic. raPublicIP :: Lens' ReleaseAddress (Maybe Text) -raPublicIP = lens _raPublicIP (\ s a -> s{_raPublicIP = a}); +raPublicIP = lens _raPublicIP (\ s a -> s{_raPublicIP = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . raDryRun :: Lens' ReleaseAddress (Maybe Bool) -raDryRun = lens _raDryRun (\ s a -> s{_raDryRun = a}); +raDryRun = lens _raDryRun (\ s a -> s{_raDryRun = a}) instance AWSRequest ReleaseAddress where type Rs ReleaseAddress = ReleaseAddressResponse diff --git a/gen/Network/AWS/EC2/ReleaseHosts.hs b/gen/Network/AWS/EC2/ReleaseHosts.hs --- a/gen/Network/AWS/EC2/ReleaseHosts.hs +++ b/gen/Network/AWS/EC2/ReleaseHosts.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReleaseHosts --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,7 +71,7 @@ -- | The IDs of the Dedicated Hosts you want to release. rhHostIds :: Lens' ReleaseHosts [Text] -rhHostIds = lens _rhHostIds (\ s a -> s{_rhHostIds = a}) . _Coerce; +rhHostIds = lens _rhHostIds (\ s a -> s{_rhHostIds = a}) . _Coerce instance AWSRequest ReleaseHosts where type Rs ReleaseHosts = ReleaseHostsResponse @@ -130,22 +130,22 @@ -> ReleaseHostsResponse releaseHostsResponse pResponseStatus_ = ReleaseHostsResponse' - { _rhrsUnsuccessful = Nothing - , _rhrsSuccessful = Nothing - , _rhrsResponseStatus = pResponseStatus_ - } + { _rhrsUnsuccessful = Nothing + , _rhrsSuccessful = Nothing + , _rhrsResponseStatus = pResponseStatus_ + } -- | The IDs of the Dedicated Hosts that could not be released, including an error message. rhrsUnsuccessful :: Lens' ReleaseHostsResponse [UnsuccessfulItem] -rhrsUnsuccessful = lens _rhrsUnsuccessful (\ s a -> s{_rhrsUnsuccessful = a}) . _Default . _Coerce; +rhrsUnsuccessful = lens _rhrsUnsuccessful (\ s a -> s{_rhrsUnsuccessful = a}) . _Default . _Coerce -- | The IDs of the Dedicated Hosts that were successfully released. rhrsSuccessful :: Lens' ReleaseHostsResponse [Text] -rhrsSuccessful = lens _rhrsSuccessful (\ s a -> s{_rhrsSuccessful = a}) . _Default . _Coerce; +rhrsSuccessful = lens _rhrsSuccessful (\ s a -> s{_rhrsSuccessful = a}) . _Default . _Coerce -- | -- | The response status code. rhrsResponseStatus :: Lens' ReleaseHostsResponse Int -rhrsResponseStatus = lens _rhrsResponseStatus (\ s a -> s{_rhrsResponseStatus = a}); +rhrsResponseStatus = lens _rhrsResponseStatus (\ s a -> s{_rhrsResponseStatus = a}) instance NFData ReleaseHostsResponse where diff --git a/gen/Network/AWS/EC2/ReplaceIAMInstanceProfileAssociation.hs b/gen/Network/AWS/EC2/ReplaceIAMInstanceProfileAssociation.hs --- a/gen/Network/AWS/EC2/ReplaceIAMInstanceProfileAssociation.hs +++ b/gen/Network/AWS/EC2/ReplaceIAMInstanceProfileAssociation.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReplaceIAMInstanceProfileAssociation --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -67,18 +67,18 @@ -> ReplaceIAMInstanceProfileAssociation replaceIAMInstanceProfileAssociation pIAMInstanceProfile_ pAssociationId_ = ReplaceIAMInstanceProfileAssociation' - { _riapaIAMInstanceProfile = pIAMInstanceProfile_ - , _riapaAssociationId = pAssociationId_ - } + { _riapaIAMInstanceProfile = pIAMInstanceProfile_ + , _riapaAssociationId = pAssociationId_ + } -- | The IAM instance profile. riapaIAMInstanceProfile :: Lens' ReplaceIAMInstanceProfileAssociation IAMInstanceProfileSpecification -riapaIAMInstanceProfile = lens _riapaIAMInstanceProfile (\ s a -> s{_riapaIAMInstanceProfile = a}); +riapaIAMInstanceProfile = lens _riapaIAMInstanceProfile (\ s a -> s{_riapaIAMInstanceProfile = a}) -- | The ID of the existing IAM instance profile association. riapaAssociationId :: Lens' ReplaceIAMInstanceProfileAssociation Text -riapaAssociationId = lens _riapaAssociationId (\ s a -> s{_riapaAssociationId = a}); +riapaAssociationId = lens _riapaAssociationId (\ s a -> s{_riapaAssociationId = a}) instance AWSRequest ReplaceIAMInstanceProfileAssociation @@ -139,18 +139,18 @@ -> ReplaceIAMInstanceProfileAssociationResponse replaceIAMInstanceProfileAssociationResponse pResponseStatus_ = ReplaceIAMInstanceProfileAssociationResponse' - { _riaparsIAMInstanceProfileAssociation = Nothing - , _riaparsResponseStatus = pResponseStatus_ - } + { _riaparsIAMInstanceProfileAssociation = Nothing + , _riaparsResponseStatus = pResponseStatus_ + } -- | Information about the IAM instance profile association. riaparsIAMInstanceProfileAssociation :: Lens' ReplaceIAMInstanceProfileAssociationResponse (Maybe IAMInstanceProfileAssociation) -riaparsIAMInstanceProfileAssociation = lens _riaparsIAMInstanceProfileAssociation (\ s a -> s{_riaparsIAMInstanceProfileAssociation = a}); +riaparsIAMInstanceProfileAssociation = lens _riaparsIAMInstanceProfileAssociation (\ s a -> s{_riaparsIAMInstanceProfileAssociation = a}) -- | -- | The response status code. riaparsResponseStatus :: Lens' ReplaceIAMInstanceProfileAssociationResponse Int -riaparsResponseStatus = lens _riaparsResponseStatus (\ s a -> s{_riaparsResponseStatus = a}); +riaparsResponseStatus = lens _riaparsResponseStatus (\ s a -> s{_riaparsResponseStatus = a}) instance NFData ReplaceIAMInstanceProfileAssociationResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReplaceNetworkACLAssociation --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -21,6 +21,8 @@ -- Changes which network ACL a subnet is associated with. By default when you create a subnet, it's automatically associated with the default network ACL. For more information about network ACLs, see in the /Amazon Virtual Private Cloud User Guide/ . -- -- +-- This is an idempotent operation. +-- module Network.AWS.EC2.ReplaceNetworkACLAssociation ( -- * Creating a Request @@ -73,23 +75,23 @@ -> ReplaceNetworkACLAssociation replaceNetworkACLAssociation pAssociationId_ pNetworkACLId_ = ReplaceNetworkACLAssociation' - { _rnaaDryRun = Nothing - , _rnaaAssociationId = pAssociationId_ - , _rnaaNetworkACLId = pNetworkACLId_ - } + { _rnaaDryRun = Nothing + , _rnaaAssociationId = pAssociationId_ + , _rnaaNetworkACLId = pNetworkACLId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rnaaDryRun :: Lens' ReplaceNetworkACLAssociation (Maybe Bool) -rnaaDryRun = lens _rnaaDryRun (\ s a -> s{_rnaaDryRun = a}); +rnaaDryRun = lens _rnaaDryRun (\ s a -> s{_rnaaDryRun = a}) -- | The ID of the current association between the original network ACL and the subnet. rnaaAssociationId :: Lens' ReplaceNetworkACLAssociation Text -rnaaAssociationId = lens _rnaaAssociationId (\ s a -> s{_rnaaAssociationId = a}); +rnaaAssociationId = lens _rnaaAssociationId (\ s a -> s{_rnaaAssociationId = a}) -- | The ID of the new network ACL to associate with the subnet. rnaaNetworkACLId :: Lens' ReplaceNetworkACLAssociation Text -rnaaNetworkACLId = lens _rnaaNetworkACLId (\ s a -> s{_rnaaNetworkACLId = a}); +rnaaNetworkACLId = lens _rnaaNetworkACLId (\ s a -> s{_rnaaNetworkACLId = a}) instance AWSRequest ReplaceNetworkACLAssociation where @@ -145,16 +147,18 @@ -> ReplaceNetworkACLAssociationResponse replaceNetworkACLAssociationResponse pResponseStatus_ = ReplaceNetworkACLAssociationResponse' - {_rnaarsNewAssociationId = Nothing, _rnaarsResponseStatus = pResponseStatus_} + { _rnaarsNewAssociationId = Nothing + , _rnaarsResponseStatus = pResponseStatus_ + } -- | The ID of the new association. rnaarsNewAssociationId :: Lens' ReplaceNetworkACLAssociationResponse (Maybe Text) -rnaarsNewAssociationId = lens _rnaarsNewAssociationId (\ s a -> s{_rnaarsNewAssociationId = a}); +rnaarsNewAssociationId = lens _rnaarsNewAssociationId (\ s a -> s{_rnaarsNewAssociationId = a}) -- | -- | The response status code. rnaarsResponseStatus :: Lens' ReplaceNetworkACLAssociationResponse Int -rnaarsResponseStatus = lens _rnaarsResponseStatus (\ s a -> s{_rnaarsResponseStatus = a}); +rnaarsResponseStatus = lens _rnaarsResponseStatus (\ s a -> s{_rnaarsResponseStatus = a}) instance NFData ReplaceNetworkACLAssociationResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReplaceNetworkACLEntry --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -101,58 +101,58 @@ -> ReplaceNetworkACLEntry replaceNetworkACLEntry pEgress_ pNetworkACLId_ pProtocol_ pRuleAction_ pRuleNumber_ = ReplaceNetworkACLEntry' - { _rnaeIPv6CidrBlock = Nothing - , _rnaeICMPTypeCode = Nothing - , _rnaePortRange = Nothing - , _rnaeCidrBlock = Nothing - , _rnaeDryRun = Nothing - , _rnaeEgress = pEgress_ - , _rnaeNetworkACLId = pNetworkACLId_ - , _rnaeProtocol = pProtocol_ - , _rnaeRuleAction = pRuleAction_ - , _rnaeRuleNumber = pRuleNumber_ - } + { _rnaeIPv6CidrBlock = Nothing + , _rnaeICMPTypeCode = Nothing + , _rnaePortRange = Nothing + , _rnaeCidrBlock = Nothing + , _rnaeDryRun = Nothing + , _rnaeEgress = pEgress_ + , _rnaeNetworkACLId = pNetworkACLId_ + , _rnaeProtocol = pProtocol_ + , _rnaeRuleAction = pRuleAction_ + , _rnaeRuleNumber = pRuleNumber_ + } -- | The IPv6 network range to allow or deny, in CIDR notation (for example @2001:bd8:1234:1a00::/64@ ). rnaeIPv6CidrBlock :: Lens' ReplaceNetworkACLEntry (Maybe Text) -rnaeIPv6CidrBlock = lens _rnaeIPv6CidrBlock (\ s a -> s{_rnaeIPv6CidrBlock = a}); +rnaeIPv6CidrBlock = lens _rnaeIPv6CidrBlock (\ s a -> s{_rnaeIPv6CidrBlock = a}) -- | ICMP protocol: The ICMP or ICMPv6 type and code. Required if specifying the ICMP (1) protocol, or protocol 58 (ICMPv6) with an IPv6 CIDR block. rnaeICMPTypeCode :: Lens' ReplaceNetworkACLEntry (Maybe ICMPTypeCode) -rnaeICMPTypeCode = lens _rnaeICMPTypeCode (\ s a -> s{_rnaeICMPTypeCode = a}); +rnaeICMPTypeCode = lens _rnaeICMPTypeCode (\ s a -> s{_rnaeICMPTypeCode = a}) -- | TCP or UDP protocols: The range of ports the rule applies to. Required if specifying TCP (6) or UDP (17) for the protocol. rnaePortRange :: Lens' ReplaceNetworkACLEntry (Maybe PortRange) -rnaePortRange = lens _rnaePortRange (\ s a -> s{_rnaePortRange = a}); +rnaePortRange = lens _rnaePortRange (\ s a -> s{_rnaePortRange = a}) -- | The IPv4 network range to allow or deny, in CIDR notation (for example @172.16.0.0/24@ ). rnaeCidrBlock :: Lens' ReplaceNetworkACLEntry (Maybe Text) -rnaeCidrBlock = lens _rnaeCidrBlock (\ s a -> s{_rnaeCidrBlock = a}); +rnaeCidrBlock = lens _rnaeCidrBlock (\ s a -> s{_rnaeCidrBlock = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rnaeDryRun :: Lens' ReplaceNetworkACLEntry (Maybe Bool) -rnaeDryRun = lens _rnaeDryRun (\ s a -> s{_rnaeDryRun = a}); +rnaeDryRun = lens _rnaeDryRun (\ s a -> s{_rnaeDryRun = a}) -- | Indicates whether to replace the egress rule. Default: If no value is specified, we replace the ingress rule. rnaeEgress :: Lens' ReplaceNetworkACLEntry Bool -rnaeEgress = lens _rnaeEgress (\ s a -> s{_rnaeEgress = a}); +rnaeEgress = lens _rnaeEgress (\ s a -> s{_rnaeEgress = a}) -- | The ID of the ACL. rnaeNetworkACLId :: Lens' ReplaceNetworkACLEntry Text -rnaeNetworkACLId = lens _rnaeNetworkACLId (\ s a -> s{_rnaeNetworkACLId = a}); +rnaeNetworkACLId = lens _rnaeNetworkACLId (\ s a -> s{_rnaeNetworkACLId = a}) -- | The IP protocol. You can specify @all@ or @-1@ to mean all protocols. If you specify @all@ , @-1@ , or a protocol number other than @tcp@ , @udp@ , or @icmp@ , traffic on all ports is allowed, regardless of any ports or ICMP types or codes you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv4 CIDR block, traffic for all ICMP types and codes allowed, regardless of any that you specify. If you specify protocol @58@ (ICMPv6) and specify an IPv6 CIDR block, you must specify an ICMP type and code. rnaeProtocol :: Lens' ReplaceNetworkACLEntry Text -rnaeProtocol = lens _rnaeProtocol (\ s a -> s{_rnaeProtocol = a}); +rnaeProtocol = lens _rnaeProtocol (\ s a -> s{_rnaeProtocol = a}) -- | Indicates whether to allow or deny the traffic that matches the rule. rnaeRuleAction :: Lens' ReplaceNetworkACLEntry RuleAction -rnaeRuleAction = lens _rnaeRuleAction (\ s a -> s{_rnaeRuleAction = a}); +rnaeRuleAction = lens _rnaeRuleAction (\ s a -> s{_rnaeRuleAction = a}) -- | The rule number of the entry to replace. rnaeRuleNumber :: Lens' ReplaceNetworkACLEntry Int -rnaeRuleNumber = lens _rnaeRuleNumber (\ s a -> s{_rnaeRuleNumber = a}); +rnaeRuleNumber = lens _rnaeRuleNumber (\ s a -> s{_rnaeRuleNumber = a}) instance AWSRequest ReplaceNetworkACLEntry where type Rs ReplaceNetworkACLEntry = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReplaceRoute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -99,58 +99,58 @@ -> ReplaceRoute replaceRoute pRouteTableId_ = ReplaceRoute' - { _rrVPCPeeringConnectionId = Nothing - , _rrInstanceId = Nothing - , _rrEgressOnlyInternetGatewayId = Nothing - , _rrDestinationIPv6CidrBlock = Nothing - , _rrNatGatewayId = Nothing - , _rrNetworkInterfaceId = Nothing - , _rrGatewayId = Nothing - , _rrDryRun = Nothing - , _rrDestinationCidrBlock = Nothing - , _rrRouteTableId = pRouteTableId_ - } + { _rrVPCPeeringConnectionId = Nothing + , _rrInstanceId = Nothing + , _rrEgressOnlyInternetGatewayId = Nothing + , _rrDestinationIPv6CidrBlock = Nothing + , _rrNatGatewayId = Nothing + , _rrNetworkInterfaceId = Nothing + , _rrGatewayId = Nothing + , _rrDryRun = Nothing + , _rrDestinationCidrBlock = Nothing + , _rrRouteTableId = pRouteTableId_ + } -- | The ID of a VPC peering connection. rrVPCPeeringConnectionId :: Lens' ReplaceRoute (Maybe Text) -rrVPCPeeringConnectionId = lens _rrVPCPeeringConnectionId (\ s a -> s{_rrVPCPeeringConnectionId = a}); +rrVPCPeeringConnectionId = lens _rrVPCPeeringConnectionId (\ s a -> s{_rrVPCPeeringConnectionId = a}) -- | The ID of a NAT instance in your VPC. rrInstanceId :: Lens' ReplaceRoute (Maybe Text) -rrInstanceId = lens _rrInstanceId (\ s a -> s{_rrInstanceId = a}); +rrInstanceId = lens _rrInstanceId (\ s a -> s{_rrInstanceId = a}) -- | [IPv6 traffic only] The ID of an egress-only Internet gateway. rrEgressOnlyInternetGatewayId :: Lens' ReplaceRoute (Maybe Text) -rrEgressOnlyInternetGatewayId = lens _rrEgressOnlyInternetGatewayId (\ s a -> s{_rrEgressOnlyInternetGatewayId = a}); +rrEgressOnlyInternetGatewayId = lens _rrEgressOnlyInternetGatewayId (\ s a -> s{_rrEgressOnlyInternetGatewayId = a}) -- | The IPv6 CIDR address block used for the destination match. The value you provide must match the CIDR of an existing route in the table. rrDestinationIPv6CidrBlock :: Lens' ReplaceRoute (Maybe Text) -rrDestinationIPv6CidrBlock = lens _rrDestinationIPv6CidrBlock (\ s a -> s{_rrDestinationIPv6CidrBlock = a}); +rrDestinationIPv6CidrBlock = lens _rrDestinationIPv6CidrBlock (\ s a -> s{_rrDestinationIPv6CidrBlock = a}) -- | [IPv4 traffic only] The ID of a NAT gateway. rrNatGatewayId :: Lens' ReplaceRoute (Maybe Text) -rrNatGatewayId = lens _rrNatGatewayId (\ s a -> s{_rrNatGatewayId = a}); +rrNatGatewayId = lens _rrNatGatewayId (\ s a -> s{_rrNatGatewayId = a}) -- | The ID of a network interface. rrNetworkInterfaceId :: Lens' ReplaceRoute (Maybe Text) -rrNetworkInterfaceId = lens _rrNetworkInterfaceId (\ s a -> s{_rrNetworkInterfaceId = a}); +rrNetworkInterfaceId = lens _rrNetworkInterfaceId (\ s a -> s{_rrNetworkInterfaceId = a}) -- | The ID of an Internet gateway or virtual private gateway. rrGatewayId :: Lens' ReplaceRoute (Maybe Text) -rrGatewayId = lens _rrGatewayId (\ s a -> s{_rrGatewayId = a}); +rrGatewayId = lens _rrGatewayId (\ s a -> s{_rrGatewayId = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rrDryRun :: Lens' ReplaceRoute (Maybe Bool) -rrDryRun = lens _rrDryRun (\ s a -> s{_rrDryRun = a}); +rrDryRun = lens _rrDryRun (\ s a -> s{_rrDryRun = a}) -- | The IPv4 CIDR address block used for the destination match. The value you provide must match the CIDR of an existing route in the table. rrDestinationCidrBlock :: Lens' ReplaceRoute (Maybe Text) -rrDestinationCidrBlock = lens _rrDestinationCidrBlock (\ s a -> s{_rrDestinationCidrBlock = a}); +rrDestinationCidrBlock = lens _rrDestinationCidrBlock (\ s a -> s{_rrDestinationCidrBlock = a}) -- | The ID of the route table. rrRouteTableId :: Lens' ReplaceRoute Text -rrRouteTableId = lens _rrRouteTableId (\ s a -> s{_rrRouteTableId = a}); +rrRouteTableId = lens _rrRouteTableId (\ s a -> s{_rrRouteTableId = a}) instance AWSRequest ReplaceRoute where type Rs ReplaceRoute = ReplaceRouteResponse 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReplaceRouteTableAssociation --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -75,23 +75,23 @@ -> ReplaceRouteTableAssociation replaceRouteTableAssociation pAssociationId_ pRouteTableId_ = ReplaceRouteTableAssociation' - { _rrtaDryRun = Nothing - , _rrtaAssociationId = pAssociationId_ - , _rrtaRouteTableId = pRouteTableId_ - } + { _rrtaDryRun = Nothing + , _rrtaAssociationId = pAssociationId_ + , _rrtaRouteTableId = pRouteTableId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rrtaDryRun :: Lens' ReplaceRouteTableAssociation (Maybe Bool) -rrtaDryRun = lens _rrtaDryRun (\ s a -> s{_rrtaDryRun = a}); +rrtaDryRun = lens _rrtaDryRun (\ s a -> s{_rrtaDryRun = a}) -- | The association ID. rrtaAssociationId :: Lens' ReplaceRouteTableAssociation Text -rrtaAssociationId = lens _rrtaAssociationId (\ s a -> s{_rrtaAssociationId = a}); +rrtaAssociationId = lens _rrtaAssociationId (\ s a -> s{_rrtaAssociationId = a}) -- | The ID of the new route table to associate with the subnet. rrtaRouteTableId :: Lens' ReplaceRouteTableAssociation Text -rrtaRouteTableId = lens _rrtaRouteTableId (\ s a -> s{_rrtaRouteTableId = a}); +rrtaRouteTableId = lens _rrtaRouteTableId (\ s a -> s{_rrtaRouteTableId = a}) instance AWSRequest ReplaceRouteTableAssociation where @@ -147,16 +147,18 @@ -> ReplaceRouteTableAssociationResponse replaceRouteTableAssociationResponse pResponseStatus_ = ReplaceRouteTableAssociationResponse' - {_rrtarsNewAssociationId = Nothing, _rrtarsResponseStatus = pResponseStatus_} + { _rrtarsNewAssociationId = Nothing + , _rrtarsResponseStatus = pResponseStatus_ + } -- | The ID of the new association. rrtarsNewAssociationId :: Lens' ReplaceRouteTableAssociationResponse (Maybe Text) -rrtarsNewAssociationId = lens _rrtarsNewAssociationId (\ s a -> s{_rrtarsNewAssociationId = a}); +rrtarsNewAssociationId = lens _rrtarsNewAssociationId (\ s a -> s{_rrtarsNewAssociationId = a}) -- | -- | The response status code. rrtarsResponseStatus :: Lens' ReplaceRouteTableAssociationResponse Int -rrtarsResponseStatus = lens _rrtarsResponseStatus (\ s a -> s{_rrtarsResponseStatus = a}); +rrtarsResponseStatus = lens _rrtarsResponseStatus (\ s a -> s{_rrtarsResponseStatus = a}) instance NFData ReplaceRouteTableAssociationResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ReportInstanceStatus --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -29,13 +29,13 @@ reportInstanceStatus , ReportInstanceStatus -- * Request Lenses - , risStartTime - , risEndTime - , risDescription - , risDryRun - , risInstances - , risReasonCodes - , risStatus + , rissStartTime + , rissEndTime + , rissDescription + , rissDryRun + , rissInstances + , rissReasonCodes + , rissStatus -- * Destructuring the Response , reportInstanceStatusResponse @@ -55,13 +55,13 @@ -- -- /See:/ 'reportInstanceStatus' smart constructor. data ReportInstanceStatus = ReportInstanceStatus' - { _risStartTime :: !(Maybe ISO8601) - , _risEndTime :: !(Maybe ISO8601) - , _risDescription :: !(Maybe Text) - , _risDryRun :: !(Maybe Bool) - , _risInstances :: ![Text] - , _risReasonCodes :: ![ReportInstanceReasonCodes] - , _risStatus :: !ReportStatusType + { _rissStartTime :: !(Maybe ISO8601) + , _rissEndTime :: !(Maybe ISO8601) + , _rissDescription :: !(Maybe Text) + , _rissDryRun :: !(Maybe Bool) + , _rissInstances :: ![Text] + , _rissReasonCodes :: ![ReportInstanceReasonCodes] + , _rissStatus :: !ReportStatusType } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -69,61 +69,61 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'risStartTime' - The time at which the reported instance health state began. +-- * 'rissStartTime' - The time at which the reported instance health state began. -- --- * 'risEndTime' - The time at which the reported instance health state ended. +-- * 'rissEndTime' - The time at which the reported instance health state ended. -- --- * 'risDescription' - Descriptive text about the health state of your instance. +-- * 'rissDescription' - Descriptive text about the health state of your instance. -- --- * 'risDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- * 'rissDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'risInstances' - One or more instances. +-- * 'rissInstances' - One or more instances. -- --- * 'risReasonCodes' - One or more reason codes that describe the health state of your instance. * @instance-stuck-in-state@ : My instance is stuck in a state. * @unresponsive@ : My instance is unresponsive. * @not-accepting-credentials@ : My instance is not accepting my credentials. * @password-not-available@ : A password is not available for my instance. * @performance-network@ : My instance is experiencing performance problems that I believe are network related. * @performance-instance-store@ : My instance is experiencing performance problems that I believe are related to the instance stores. * @performance-ebs-volume@ : My instance is experiencing performance problems that I believe are related to an EBS volume. * @performance-other@ : My instance is experiencing performance problems. * @other@ : [explain using the description parameter] +-- * 'rissReasonCodes' - One or more reason codes that describe the health state of your instance. * @instance-stuck-in-state@ : My instance is stuck in a state. * @unresponsive@ : My instance is unresponsive. * @not-accepting-credentials@ : My instance is not accepting my credentials. * @password-not-available@ : A password is not available for my instance. * @performance-network@ : My instance is experiencing performance problems that I believe are network related. * @performance-instance-store@ : My instance is experiencing performance problems that I believe are related to the instance stores. * @performance-ebs-volume@ : My instance is experiencing performance problems that I believe are related to an EBS volume. * @performance-other@ : My instance is experiencing performance problems. * @other@ : [explain using the description parameter] -- --- * 'risStatus' - The status of all instances listed. +-- * 'rissStatus' - The status of all instances listed. reportInstanceStatus - :: ReportStatusType -- ^ 'risStatus' + :: ReportStatusType -- ^ 'rissStatus' -> ReportInstanceStatus reportInstanceStatus pStatus_ = ReportInstanceStatus' - { _risStartTime = Nothing - , _risEndTime = Nothing - , _risDescription = Nothing - , _risDryRun = Nothing - , _risInstances = mempty - , _risReasonCodes = mempty - , _risStatus = pStatus_ - } + { _rissStartTime = Nothing + , _rissEndTime = Nothing + , _rissDescription = Nothing + , _rissDryRun = Nothing + , _rissInstances = mempty + , _rissReasonCodes = mempty + , _rissStatus = pStatus_ + } -- | The time at which the reported instance health state began. -risStartTime :: Lens' ReportInstanceStatus (Maybe UTCTime) -risStartTime = lens _risStartTime (\ s a -> s{_risStartTime = a}) . mapping _Time; +rissStartTime :: Lens' ReportInstanceStatus (Maybe UTCTime) +rissStartTime = lens _rissStartTime (\ s a -> s{_rissStartTime = a}) . mapping _Time -- | The time at which the reported instance health state ended. -risEndTime :: Lens' ReportInstanceStatus (Maybe UTCTime) -risEndTime = lens _risEndTime (\ s a -> s{_risEndTime = a}) . mapping _Time; +rissEndTime :: Lens' ReportInstanceStatus (Maybe UTCTime) +rissEndTime = lens _rissEndTime (\ s a -> s{_rissEndTime = a}) . mapping _Time -- | Descriptive text about the health state of your instance. -risDescription :: Lens' ReportInstanceStatus (Maybe Text) -risDescription = lens _risDescription (\ s a -> s{_risDescription = a}); +rissDescription :: Lens' ReportInstanceStatus (Maybe Text) +rissDescription = lens _rissDescription (\ s a -> s{_rissDescription = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -risDryRun :: Lens' ReportInstanceStatus (Maybe Bool) -risDryRun = lens _risDryRun (\ s a -> s{_risDryRun = a}); +rissDryRun :: Lens' ReportInstanceStatus (Maybe Bool) +rissDryRun = lens _rissDryRun (\ s a -> s{_rissDryRun = a}) -- | One or more instances. -risInstances :: Lens' ReportInstanceStatus [Text] -risInstances = lens _risInstances (\ s a -> s{_risInstances = a}) . _Coerce; +rissInstances :: Lens' ReportInstanceStatus [Text] +rissInstances = lens _rissInstances (\ s a -> s{_rissInstances = a}) . _Coerce -- | One or more reason codes that describe the health state of your instance. * @instance-stuck-in-state@ : My instance is stuck in a state. * @unresponsive@ : My instance is unresponsive. * @not-accepting-credentials@ : My instance is not accepting my credentials. * @password-not-available@ : A password is not available for my instance. * @performance-network@ : My instance is experiencing performance problems that I believe are network related. * @performance-instance-store@ : My instance is experiencing performance problems that I believe are related to the instance stores. * @performance-ebs-volume@ : My instance is experiencing performance problems that I believe are related to an EBS volume. * @performance-other@ : My instance is experiencing performance problems. * @other@ : [explain using the description parameter] -risReasonCodes :: Lens' ReportInstanceStatus [ReportInstanceReasonCodes] -risReasonCodes = lens _risReasonCodes (\ s a -> s{_risReasonCodes = a}) . _Coerce; +rissReasonCodes :: Lens' ReportInstanceStatus [ReportInstanceReasonCodes] +rissReasonCodes = lens _rissReasonCodes (\ s a -> s{_rissReasonCodes = a}) . _Coerce -- | The status of all instances listed. -risStatus :: Lens' ReportInstanceStatus ReportStatusType -risStatus = lens _risStatus (\ s a -> s{_risStatus = a}); +rissStatus :: Lens' ReportInstanceStatus ReportStatusType +rissStatus = lens _rissStatus (\ s a -> s{_rissStatus = a}) instance AWSRequest ReportInstanceStatus where type Rs ReportInstanceStatus = @@ -146,13 +146,13 @@ = mconcat ["Action" =: ("ReportInstanceStatus" :: ByteString), "Version" =: ("2016-11-15" :: ByteString), - "StartTime" =: _risStartTime, - "EndTime" =: _risEndTime, - "Description" =: _risDescription, - "DryRun" =: _risDryRun, - toQueryList "InstanceId" _risInstances, - toQueryList "ReasonCode" _risReasonCodes, - "Status" =: _risStatus] + "StartTime" =: _rissStartTime, + "EndTime" =: _rissEndTime, + "Description" =: _rissDescription, + "DryRun" =: _rissDryRun, + toQueryList "InstanceId" _rissInstances, + toQueryList "ReasonCode" _rissReasonCodes, + "Status" =: _rissStatus] -- | /See:/ 'reportInstanceStatusResponse' smart constructor. data ReportInstanceStatusResponse = 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 @@ -12,23 +12,27 @@ -- | -- Module : Network.AWS.EC2.RequestSpotFleet --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a Spot fleet request. +-- Creates a Spot Fleet request. -- -- +-- The Spot Fleet request specifies the total target capacity and the On-Demand target capacity. Amazon EC2 calculates the difference between the total capacity and On-Demand capacity, and launches the difference as Spot capacity. +-- -- You can submit a single request that includes multiple launch specifications that vary by instance type, AMI, Availability Zone, or subnet. -- --- By default, the Spot fleet requests Spot instances in the Spot pool where the price per unit is the lowest. Each launch specification can include its own instance weighting that reflects the value of the instance type to your application workload. +-- By default, the Spot Fleet requests Spot Instances in the Spot pool where the price per unit is the lowest. Each launch specification can include its own instance weighting that reflects the value of the instance type to your application workload. -- --- Alternatively, you can specify that the Spot fleet distribute the target capacity across the Spot pools included in its launch specifications. By ensuring that the Spot instances in your Spot fleet are in different Spot pools, you can improve the availability of your fleet. +-- Alternatively, you can specify that the Spot Fleet distribute the target capacity across the Spot pools included in its launch specifications. By ensuring that the Spot Instances in your Spot Fleet are in different Spot pools, you can improve the availability of your fleet. -- --- For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- You can specify tags for the Spot Instances. You cannot tag other resource types in a Spot Fleet request because only the @instance@ resource type is supported. -- +-- For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . +-- module Network.AWS.EC2.RequestSpotFleet ( -- * Creating a Request @@ -70,22 +74,24 @@ -- -- * 'rsfDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -- --- * 'rsfSpotFleetRequestConfig' - The configuration for the Spot fleet request. +-- * 'rsfSpotFleetRequestConfig' - The configuration for the Spot Fleet request. requestSpotFleet :: SpotFleetRequestConfigData -- ^ 'rsfSpotFleetRequestConfig' -> RequestSpotFleet requestSpotFleet pSpotFleetRequestConfig_ = RequestSpotFleet' - {_rsfDryRun = Nothing, _rsfSpotFleetRequestConfig = pSpotFleetRequestConfig_} + { _rsfDryRun = Nothing + , _rsfSpotFleetRequestConfig = pSpotFleetRequestConfig_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rsfDryRun :: Lens' RequestSpotFleet (Maybe Bool) -rsfDryRun = lens _rsfDryRun (\ s a -> s{_rsfDryRun = a}); +rsfDryRun = lens _rsfDryRun (\ s a -> s{_rsfDryRun = a}) --- | The configuration for the Spot fleet request. +-- | The configuration for the Spot Fleet request. rsfSpotFleetRequestConfig :: Lens' RequestSpotFleet SpotFleetRequestConfigData -rsfSpotFleetRequestConfig = lens _rsfSpotFleetRequestConfig (\ s a -> s{_rsfSpotFleetRequestConfig = a}); +rsfSpotFleetRequestConfig = lens _rsfSpotFleetRequestConfig (\ s a -> s{_rsfSpotFleetRequestConfig = a}) instance AWSRequest RequestSpotFleet where type Rs RequestSpotFleet = RequestSpotFleetResponse @@ -132,24 +138,24 @@ -- -- * 'rsfrsResponseStatus' - -- | The response status code. -- --- * 'rsfrsSpotFleetRequestId' - The ID of the Spot fleet request. +-- * 'rsfrsSpotFleetRequestId' - The ID of the Spot Fleet request. requestSpotFleetResponse :: Int -- ^ 'rsfrsResponseStatus' -> Text -- ^ 'rsfrsSpotFleetRequestId' -> RequestSpotFleetResponse requestSpotFleetResponse pResponseStatus_ pSpotFleetRequestId_ = RequestSpotFleetResponse' - { _rsfrsResponseStatus = pResponseStatus_ - , _rsfrsSpotFleetRequestId = pSpotFleetRequestId_ - } + { _rsfrsResponseStatus = pResponseStatus_ + , _rsfrsSpotFleetRequestId = pSpotFleetRequestId_ + } -- | -- | The response status code. rsfrsResponseStatus :: Lens' RequestSpotFleetResponse Int -rsfrsResponseStatus = lens _rsfrsResponseStatus (\ s a -> s{_rsfrsResponseStatus = a}); +rsfrsResponseStatus = lens _rsfrsResponseStatus (\ s a -> s{_rsfrsResponseStatus = a}) --- | The ID of the Spot fleet request. +-- | The ID of the Spot Fleet request. rsfrsSpotFleetRequestId :: Lens' RequestSpotFleetResponse Text -rsfrsSpotFleetRequestId = lens _rsfrsSpotFleetRequestId (\ s a -> s{_rsfrsSpotFleetRequestId = a}); +rsfrsSpotFleetRequestId = lens _rsfrsSpotFleetRequestId (\ s a -> s{_rsfrsSpotFleetRequestId = a}) instance NFData RequestSpotFleetResponse where 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 @@ -12,13 +12,13 @@ -- | -- Module : Network.AWS.EC2.RequestSpotInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated -- Portability : non-portable (GHC extensions) -- --- Creates a Spot instance request. Spot instances are instances that Amazon EC2 launches when the bid price that you specify exceeds the current Spot price. Amazon EC2 periodically sets the Spot price based on available Spot Instance capacity and current Spot instance requests. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- Creates a Spot Instance request. Spot Instances are instances that Amazon EC2 launches when the maximum price that you specify exceeds the current Spot price. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . -- -- module Network.AWS.EC2.RequestSpotInstances @@ -27,18 +27,18 @@ requestSpotInstances , RequestSpotInstances -- * Request Lenses - , rsisBlockDurationMinutes - , rsisClientToken - , rsisInstanceCount - , rsisInstanceInterruptionBehavior - , rsisLaunchSpecification - , rsisAvailabilityZoneGroup - , rsisValidUntil - , rsisLaunchGroup - , rsisType - , rsisValidFrom - , rsisDryRun - , rsisSpotPrice + , rBlockDurationMinutes + , rClientToken + , rInstanceCount + , rInstanceInterruptionBehavior + , rSpotPrice + , rLaunchSpecification + , rAvailabilityZoneGroup + , rValidUntil + , rLaunchGroup + , rType + , rValidFrom + , rDryRun -- * Destructuring the Response , requestSpotInstancesResponse @@ -61,18 +61,18 @@ -- -- /See:/ 'requestSpotInstances' smart constructor. data RequestSpotInstances = RequestSpotInstances' - { _rsisBlockDurationMinutes :: !(Maybe Int) - , _rsisClientToken :: !(Maybe Text) - , _rsisInstanceCount :: !(Maybe Int) - , _rsisInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) - , _rsisLaunchSpecification :: !(Maybe RequestSpotLaunchSpecification) - , _rsisAvailabilityZoneGroup :: !(Maybe Text) - , _rsisValidUntil :: !(Maybe ISO8601) - , _rsisLaunchGroup :: !(Maybe Text) - , _rsisType :: !(Maybe SpotInstanceType) - , _rsisValidFrom :: !(Maybe ISO8601) - , _rsisDryRun :: !(Maybe Bool) - , _rsisSpotPrice :: !Text + { _rBlockDurationMinutes :: !(Maybe Int) + , _rClientToken :: !(Maybe Text) + , _rInstanceCount :: !(Maybe Int) + , _rInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) + , _rSpotPrice :: !(Maybe Text) + , _rLaunchSpecification :: !(Maybe RequestSpotLaunchSpecification) + , _rAvailabilityZoneGroup :: !(Maybe Text) + , _rValidUntil :: !(Maybe ISO8601) + , _rLaunchGroup :: !(Maybe Text) + , _rType :: !(Maybe SpotInstanceType) + , _rValidFrom :: !(Maybe ISO8601) + , _rDryRun :: !(Maybe Bool) } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -80,96 +80,95 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rsisBlockDurationMinutes' - The required duration for the Spot instances (also known as Spot blocks), 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 duration. +-- * 'rBlockDurationMinutes' - The required duration for the Spot Instances (also known as Spot blocks), 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. You can't specify an Availability Zone group or a launch group if you specify a duration. -- --- * 'rsisClientToken' - Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- * 'rClientToken' - Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . -- --- * 'rsisInstanceCount' - The maximum number of Spot instances to launch. Default: 1 +-- * 'rInstanceCount' - The maximum number of Spot Instances to launch. Default: 1 -- --- * 'rsisInstanceInterruptionBehavior' - Indicates whether a Spot instance stops or terminates when it is interrupted. +-- * 'rInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. The default is @terminate@ . -- --- * 'rsisLaunchSpecification' - The launch specification. +-- * 'rSpotPrice' - The maximum price per hour that you are willing to pay for a Spot Instance. The default is the On-Demand price. -- --- * 'rsisAvailabilityZoneGroup' - The user-specified name for a logical grouping of bids. When you specify an Availability Zone group in a Spot Instance request, all Spot instances in the request are launched in the same Availability Zone. Instance proximity is maintained with this parameter, but the choice of Availability Zone is not. The group applies only to bids for Spot Instances of the same instance type. Any additional Spot instance requests that are specified with the same Availability Zone group name are launched in that same Availability Zone, as long as at least one instance from the group is still active. If there is no active instance running in the Availability Zone group that you specify for a new Spot instance request (all instances are terminated, the bid is expired, or the bid falls below current market), then Amazon EC2 launches the instance in any Availability Zone where the constraint can be met. Consequently, the subsequent set of Spot instances could be placed in a different zone from the original request, even if you specified the same Availability Zone group. Default: Instances are launched in any available Availability Zone. +-- * 'rLaunchSpecification' - The launch specification. -- --- * 'rsisValidUntil' - The end date of the request. 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 and time is reached. Default: The request is effective indefinitely. +-- * 'rAvailabilityZoneGroup' - The user-specified name for a logical grouping of requests. When you specify an Availability Zone group in a Spot Instance request, all Spot Instances in the request are launched in the same Availability Zone. Instance proximity is maintained with this parameter, but the choice of Availability Zone is not. The group applies only to requests for Spot Instances of the same instance type. Any additional Spot Instance requests that are specified with the same Availability Zone group name are launched in that same Availability Zone, as long as at least one instance from the group is still active. If there is no active instance running in the Availability Zone group that you specify for a new Spot Instance request (all instances are terminated, the request is expired, or the maximum price you specified falls below current Spot price), then Amazon EC2 launches the instance in any Availability Zone where the constraint can be met. Consequently, the subsequent set of Spot Instances could be placed in a different zone from the original request, even if you specified the same Availability Zone group. Default: Instances are launched in any available Availability Zone. -- --- * 'rsisLaunchGroup' - The instance launch group. Launch groups are Spot instances that launch together and terminate together. Default: Instances are launched and terminated individually +-- * 'rValidUntil' - The end date of the request. 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. The default end date is 7 days from the current date. -- --- * 'rsisType' - The Spot instance request type. Default: @one-time@ +-- * 'rLaunchGroup' - The instance launch group. Launch groups are Spot Instances that launch together and terminate together. Default: Instances are launched and terminated individually -- --- * 'rsisValidFrom' - The start date of the request. 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. Default: The request is effective indefinitely. +-- * 'rType' - The Spot Instance request type. Default: @one-time@ -- --- * 'rsisDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- * 'rValidFrom' - The start date of the request. 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. -- --- * 'rsisSpotPrice' - The maximum hourly price (bid) for any Spot instance launched to fulfill the request. +-- * 'rDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . requestSpotInstances - :: Text -- ^ 'rsisSpotPrice' - -> RequestSpotInstances -requestSpotInstances pSpotPrice_ = + :: RequestSpotInstances +requestSpotInstances = RequestSpotInstances' - { _rsisBlockDurationMinutes = Nothing - , _rsisClientToken = Nothing - , _rsisInstanceCount = Nothing - , _rsisInstanceInterruptionBehavior = Nothing - , _rsisLaunchSpecification = Nothing - , _rsisAvailabilityZoneGroup = Nothing - , _rsisValidUntil = Nothing - , _rsisLaunchGroup = Nothing - , _rsisType = Nothing - , _rsisValidFrom = Nothing - , _rsisDryRun = Nothing - , _rsisSpotPrice = pSpotPrice_ - } + { _rBlockDurationMinutes = Nothing + , _rClientToken = Nothing + , _rInstanceCount = Nothing + , _rInstanceInterruptionBehavior = Nothing + , _rSpotPrice = Nothing + , _rLaunchSpecification = Nothing + , _rAvailabilityZoneGroup = Nothing + , _rValidUntil = Nothing + , _rLaunchGroup = Nothing + , _rType = Nothing + , _rValidFrom = Nothing + , _rDryRun = Nothing + } --- | The required duration for the Spot instances (also known as Spot blocks), 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 duration. -rsisBlockDurationMinutes :: Lens' RequestSpotInstances (Maybe Int) -rsisBlockDurationMinutes = lens _rsisBlockDurationMinutes (\ s a -> s{_rsisBlockDurationMinutes = a}); +-- | The required duration for the Spot Instances (also known as Spot blocks), 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. You can't specify an Availability Zone group or a launch group if you specify a duration. +rBlockDurationMinutes :: Lens' RequestSpotInstances (Maybe Int) +rBlockDurationMinutes = lens _rBlockDurationMinutes (\ s a -> s{_rBlockDurationMinutes = a}) --- | Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -rsisClientToken :: Lens' RequestSpotInstances (Maybe Text) -rsisClientToken = lens _rsisClientToken (\ s a -> s{_rsisClientToken = a}); +-- | Unique, case-sensitive identifier that you provide to ensure the idempotency of the request. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . +rClientToken :: Lens' RequestSpotInstances (Maybe Text) +rClientToken = lens _rClientToken (\ s a -> s{_rClientToken = a}) --- | The maximum number of Spot instances to launch. Default: 1 -rsisInstanceCount :: Lens' RequestSpotInstances (Maybe Int) -rsisInstanceCount = lens _rsisInstanceCount (\ s a -> s{_rsisInstanceCount = a}); +-- | The maximum number of Spot Instances to launch. Default: 1 +rInstanceCount :: Lens' RequestSpotInstances (Maybe Int) +rInstanceCount = lens _rInstanceCount (\ s a -> s{_rInstanceCount = a}) --- | Indicates whether a Spot instance stops or terminates when it is interrupted. -rsisInstanceInterruptionBehavior :: Lens' RequestSpotInstances (Maybe InstanceInterruptionBehavior) -rsisInstanceInterruptionBehavior = lens _rsisInstanceInterruptionBehavior (\ s a -> s{_rsisInstanceInterruptionBehavior = a}); +-- | The behavior when a Spot Instance is interrupted. The default is @terminate@ . +rInstanceInterruptionBehavior :: Lens' RequestSpotInstances (Maybe InstanceInterruptionBehavior) +rInstanceInterruptionBehavior = lens _rInstanceInterruptionBehavior (\ s a -> s{_rInstanceInterruptionBehavior = a}) +-- | The maximum price per hour that you are willing to pay for a Spot Instance. The default is the On-Demand price. +rSpotPrice :: Lens' RequestSpotInstances (Maybe Text) +rSpotPrice = lens _rSpotPrice (\ s a -> s{_rSpotPrice = a}) + -- | The launch specification. -rsisLaunchSpecification :: Lens' RequestSpotInstances (Maybe RequestSpotLaunchSpecification) -rsisLaunchSpecification = lens _rsisLaunchSpecification (\ s a -> s{_rsisLaunchSpecification = a}); +rLaunchSpecification :: Lens' RequestSpotInstances (Maybe RequestSpotLaunchSpecification) +rLaunchSpecification = lens _rLaunchSpecification (\ s a -> s{_rLaunchSpecification = a}) --- | The user-specified name for a logical grouping of bids. When you specify an Availability Zone group in a Spot Instance request, all Spot instances in the request are launched in the same Availability Zone. Instance proximity is maintained with this parameter, but the choice of Availability Zone is not. The group applies only to bids for Spot Instances of the same instance type. Any additional Spot instance requests that are specified with the same Availability Zone group name are launched in that same Availability Zone, as long as at least one instance from the group is still active. If there is no active instance running in the Availability Zone group that you specify for a new Spot instance request (all instances are terminated, the bid is expired, or the bid falls below current market), then Amazon EC2 launches the instance in any Availability Zone where the constraint can be met. Consequently, the subsequent set of Spot instances could be placed in a different zone from the original request, even if you specified the same Availability Zone group. Default: Instances are launched in any available Availability Zone. -rsisAvailabilityZoneGroup :: Lens' RequestSpotInstances (Maybe Text) -rsisAvailabilityZoneGroup = lens _rsisAvailabilityZoneGroup (\ s a -> s{_rsisAvailabilityZoneGroup = a}); +-- | The user-specified name for a logical grouping of requests. When you specify an Availability Zone group in a Spot Instance request, all Spot Instances in the request are launched in the same Availability Zone. Instance proximity is maintained with this parameter, but the choice of Availability Zone is not. The group applies only to requests for Spot Instances of the same instance type. Any additional Spot Instance requests that are specified with the same Availability Zone group name are launched in that same Availability Zone, as long as at least one instance from the group is still active. If there is no active instance running in the Availability Zone group that you specify for a new Spot Instance request (all instances are terminated, the request is expired, or the maximum price you specified falls below current Spot price), then Amazon EC2 launches the instance in any Availability Zone where the constraint can be met. Consequently, the subsequent set of Spot Instances could be placed in a different zone from the original request, even if you specified the same Availability Zone group. Default: Instances are launched in any available Availability Zone. +rAvailabilityZoneGroup :: Lens' RequestSpotInstances (Maybe Text) +rAvailabilityZoneGroup = lens _rAvailabilityZoneGroup (\ s a -> s{_rAvailabilityZoneGroup = a}) --- | The end date of the request. 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 and time is reached. Default: The request is effective indefinitely. -rsisValidUntil :: Lens' RequestSpotInstances (Maybe UTCTime) -rsisValidUntil = lens _rsisValidUntil (\ s a -> s{_rsisValidUntil = a}) . mapping _Time; +-- | The end date of the request. 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. The default end date is 7 days from the current date. +rValidUntil :: Lens' RequestSpotInstances (Maybe UTCTime) +rValidUntil = lens _rValidUntil (\ s a -> s{_rValidUntil = a}) . mapping _Time --- | The instance launch group. Launch groups are Spot instances that launch together and terminate together. Default: Instances are launched and terminated individually -rsisLaunchGroup :: Lens' RequestSpotInstances (Maybe Text) -rsisLaunchGroup = lens _rsisLaunchGroup (\ s a -> s{_rsisLaunchGroup = a}); +-- | The instance launch group. Launch groups are Spot Instances that launch together and terminate together. Default: Instances are launched and terminated individually +rLaunchGroup :: Lens' RequestSpotInstances (Maybe Text) +rLaunchGroup = lens _rLaunchGroup (\ s a -> s{_rLaunchGroup = a}) --- | The Spot instance request type. Default: @one-time@ -rsisType :: Lens' RequestSpotInstances (Maybe SpotInstanceType) -rsisType = lens _rsisType (\ s a -> s{_rsisType = a}); +-- | The Spot Instance request type. Default: @one-time@ +rType :: Lens' RequestSpotInstances (Maybe SpotInstanceType) +rType = lens _rType (\ s a -> s{_rType = a}) --- | The start date of the request. 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. Default: The request is effective indefinitely. -rsisValidFrom :: Lens' RequestSpotInstances (Maybe UTCTime) -rsisValidFrom = lens _rsisValidFrom (\ s a -> s{_rsisValidFrom = a}) . mapping _Time; +-- | The start date of the request. 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. +rValidFrom :: Lens' RequestSpotInstances (Maybe UTCTime) +rValidFrom = lens _rValidFrom (\ s a -> s{_rValidFrom = a}) . mapping _Time -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -rsisDryRun :: Lens' RequestSpotInstances (Maybe Bool) -rsisDryRun = lens _rsisDryRun (\ s a -> s{_rsisDryRun = a}); - --- | The maximum hourly price (bid) for any Spot instance launched to fulfill the request. -rsisSpotPrice :: Lens' RequestSpotInstances Text -rsisSpotPrice = lens _rsisSpotPrice (\ s a -> s{_rsisSpotPrice = a}); +rDryRun :: Lens' RequestSpotInstances (Maybe Bool) +rDryRun = lens _rDryRun (\ s a -> s{_rDryRun = a}) instance AWSRequest RequestSpotInstances where type Rs RequestSpotInstances = @@ -198,19 +197,17 @@ = mconcat ["Action" =: ("RequestSpotInstances" :: ByteString), "Version" =: ("2016-11-15" :: ByteString), - "BlockDurationMinutes" =: _rsisBlockDurationMinutes, - "ClientToken" =: _rsisClientToken, - "InstanceCount" =: _rsisInstanceCount, + "BlockDurationMinutes" =: _rBlockDurationMinutes, + "ClientToken" =: _rClientToken, + "InstanceCount" =: _rInstanceCount, "InstanceInterruptionBehavior" =: - _rsisInstanceInterruptionBehavior, - "LaunchSpecification" =: _rsisLaunchSpecification, - "AvailabilityZoneGroup" =: - _rsisAvailabilityZoneGroup, - "ValidUntil" =: _rsisValidUntil, - "LaunchGroup" =: _rsisLaunchGroup, - "Type" =: _rsisType, "ValidFrom" =: _rsisValidFrom, - "DryRun" =: _rsisDryRun, - "SpotPrice" =: _rsisSpotPrice] + _rInstanceInterruptionBehavior, + "SpotPrice" =: _rSpotPrice, + "LaunchSpecification" =: _rLaunchSpecification, + "AvailabilityZoneGroup" =: _rAvailabilityZoneGroup, + "ValidUntil" =: _rValidUntil, + "LaunchGroup" =: _rLaunchGroup, "Type" =: _rType, + "ValidFrom" =: _rValidFrom, "DryRun" =: _rDryRun] -- | Contains the output of RequestSpotInstances. -- @@ -227,7 +224,7 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rsirsSpotInstanceRequests' - One or more Spot instance requests. +-- * 'rsirsSpotInstanceRequests' - One or more Spot Instance requests. -- -- * 'rsirsResponseStatus' - -- | The response status code. requestSpotInstancesResponse @@ -235,17 +232,17 @@ -> RequestSpotInstancesResponse requestSpotInstancesResponse pResponseStatus_ = RequestSpotInstancesResponse' - { _rsirsSpotInstanceRequests = Nothing - , _rsirsResponseStatus = pResponseStatus_ - } + { _rsirsSpotInstanceRequests = Nothing + , _rsirsResponseStatus = pResponseStatus_ + } --- | One or more Spot instance requests. +-- | One or more Spot Instance requests. rsirsSpotInstanceRequests :: Lens' RequestSpotInstancesResponse [SpotInstanceRequest] -rsirsSpotInstanceRequests = lens _rsirsSpotInstanceRequests (\ s a -> s{_rsirsSpotInstanceRequests = a}) . _Default . _Coerce; +rsirsSpotInstanceRequests = lens _rsirsSpotInstanceRequests (\ s a -> s{_rsirsSpotInstanceRequests = a}) . _Default . _Coerce -- | -- | The response status code. rsirsResponseStatus :: Lens' RequestSpotInstancesResponse Int -rsirsResponseStatus = lens _rsirsResponseStatus (\ s a -> s{_rsirsResponseStatus = a}); +rsirsResponseStatus = lens _rsirsResponseStatus (\ s a -> s{_rsirsResponseStatus = a}) instance NFData RequestSpotInstancesResponse where diff --git a/gen/Network/AWS/EC2/ResetFpgaImageAttribute.hs b/gen/Network/AWS/EC2/ResetFpgaImageAttribute.hs --- a/gen/Network/AWS/EC2/ResetFpgaImageAttribute.hs +++ b/gen/Network/AWS/EC2/ResetFpgaImageAttribute.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ResetFpgaImageAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -68,23 +68,23 @@ -> ResetFpgaImageAttribute resetFpgaImageAttribute pFpgaImageId_ = ResetFpgaImageAttribute' - { _rfiaAttribute = Nothing - , _rfiaDryRun = Nothing - , _rfiaFpgaImageId = pFpgaImageId_ - } + { _rfiaAttribute = Nothing + , _rfiaDryRun = Nothing + , _rfiaFpgaImageId = pFpgaImageId_ + } -- | The attribute. rfiaAttribute :: Lens' ResetFpgaImageAttribute (Maybe ResetFpgaImageAttributeName) -rfiaAttribute = lens _rfiaAttribute (\ s a -> s{_rfiaAttribute = a}); +rfiaAttribute = lens _rfiaAttribute (\ s a -> s{_rfiaAttribute = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rfiaDryRun :: Lens' ResetFpgaImageAttribute (Maybe Bool) -rfiaDryRun = lens _rfiaDryRun (\ s a -> s{_rfiaDryRun = a}); +rfiaDryRun = lens _rfiaDryRun (\ s a -> s{_rfiaDryRun = a}) -- | The ID of the AFI. rfiaFpgaImageId :: Lens' ResetFpgaImageAttribute Text -rfiaFpgaImageId = lens _rfiaFpgaImageId (\ s a -> s{_rfiaFpgaImageId = a}); +rfiaFpgaImageId = lens _rfiaFpgaImageId (\ s a -> s{_rfiaFpgaImageId = a}) instance AWSRequest ResetFpgaImageAttribute where type Rs ResetFpgaImageAttribute = @@ -135,15 +135,15 @@ -> ResetFpgaImageAttributeResponse resetFpgaImageAttributeResponse pResponseStatus_ = ResetFpgaImageAttributeResponse' - {_rfiarsReturn = Nothing, _rfiarsResponseStatus = pResponseStatus_} + {_rfiarsReturn = Nothing, _rfiarsResponseStatus = pResponseStatus_} -- | Is @true@ if the request succeeds, and an error otherwise. rfiarsReturn :: Lens' ResetFpgaImageAttributeResponse (Maybe Bool) -rfiarsReturn = lens _rfiarsReturn (\ s a -> s{_rfiarsReturn = a}); +rfiarsReturn = lens _rfiarsReturn (\ s a -> s{_rfiarsReturn = a}) -- | -- | The response status code. rfiarsResponseStatus :: Lens' ResetFpgaImageAttributeResponse Int -rfiarsResponseStatus = lens _rfiarsResponseStatus (\ s a -> s{_rfiarsResponseStatus = a}); +rfiarsResponseStatus = lens _rfiarsResponseStatus (\ s a -> s{_rfiarsResponseStatus = a}) instance NFData ResetFpgaImageAttributeResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ResetImageAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -70,20 +70,20 @@ -> ResetImageAttribute resetImageAttribute pAttribute_ pImageId_ = ResetImageAttribute' - {_resDryRun = Nothing, _resAttribute = pAttribute_, _resImageId = pImageId_} + {_resDryRun = Nothing, _resAttribute = pAttribute_, _resImageId = pImageId_} -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . resDryRun :: Lens' ResetImageAttribute (Maybe Bool) -resDryRun = lens _resDryRun (\ s a -> s{_resDryRun = a}); +resDryRun = lens _resDryRun (\ s a -> s{_resDryRun = a}) -- | The attribute to reset (currently you can only reset the launch permission attribute). resAttribute :: Lens' ResetImageAttribute ResetImageAttributeName -resAttribute = lens _resAttribute (\ s a -> s{_resAttribute = a}); +resAttribute = lens _resAttribute (\ s a -> s{_resAttribute = a}) -- | The ID of the AMI. resImageId :: Lens' ResetImageAttribute Text -resImageId = lens _resImageId (\ s a -> s{_resImageId = a}); +resImageId = lens _resImageId (\ s a -> s{_resImageId = a}) instance AWSRequest ResetImageAttribute where type Rs ResetImageAttribute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ResetInstanceAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,23 +72,23 @@ -> ResetInstanceAttribute resetInstanceAttribute pAttribute_ pInstanceId_ = ResetInstanceAttribute' - { _riaDryRun = Nothing - , _riaAttribute = pAttribute_ - , _riaInstanceId = pInstanceId_ - } + { _riaDryRun = Nothing + , _riaAttribute = pAttribute_ + , _riaInstanceId = pInstanceId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . riaDryRun :: Lens' ResetInstanceAttribute (Maybe Bool) -riaDryRun = lens _riaDryRun (\ s a -> s{_riaDryRun = a}); +riaDryRun = lens _riaDryRun (\ s a -> s{_riaDryRun = a}) -- | The attribute to reset. /Important:/ You can only reset the following attributes: @kernel@ | @ramdisk@ | @sourceDestCheck@ . To change an instance attribute, use 'ModifyInstanceAttribute' . riaAttribute :: Lens' ResetInstanceAttribute InstanceAttributeName -riaAttribute = lens _riaAttribute (\ s a -> s{_riaAttribute = a}); +riaAttribute = lens _riaAttribute (\ s a -> s{_riaAttribute = a}) -- | The ID of the instance. riaInstanceId :: Lens' ResetInstanceAttribute Text -riaInstanceId = lens _riaInstanceId (\ s a -> s{_riaInstanceId = a}); +riaInstanceId = lens _riaInstanceId (\ s a -> s{_riaInstanceId = a}) instance AWSRequest ResetInstanceAttribute where type Rs ResetInstanceAttribute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ResetNetworkInterfaceAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -69,23 +69,23 @@ -> ResetNetworkInterfaceAttribute resetNetworkInterfaceAttribute pNetworkInterfaceId_ = ResetNetworkInterfaceAttribute' - { _rniaSourceDestCheck = Nothing - , _rniaDryRun = Nothing - , _rniaNetworkInterfaceId = pNetworkInterfaceId_ - } + { _rniaSourceDestCheck = Nothing + , _rniaDryRun = Nothing + , _rniaNetworkInterfaceId = pNetworkInterfaceId_ + } -- | The source/destination checking attribute. Resets the value to @true@ . rniaSourceDestCheck :: Lens' ResetNetworkInterfaceAttribute (Maybe Text) -rniaSourceDestCheck = lens _rniaSourceDestCheck (\ s a -> s{_rniaSourceDestCheck = a}); +rniaSourceDestCheck = lens _rniaSourceDestCheck (\ s a -> s{_rniaSourceDestCheck = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rniaDryRun :: Lens' ResetNetworkInterfaceAttribute (Maybe Bool) -rniaDryRun = lens _rniaDryRun (\ s a -> s{_rniaDryRun = a}); +rniaDryRun = lens _rniaDryRun (\ s a -> s{_rniaDryRun = a}) -- | The ID of the network interface. rniaNetworkInterfaceId :: Lens' ResetNetworkInterfaceAttribute Text -rniaNetworkInterfaceId = lens _rniaNetworkInterfaceId (\ s a -> s{_rniaNetworkInterfaceId = a}); +rniaNetworkInterfaceId = lens _rniaNetworkInterfaceId (\ s a -> s{_rniaNetworkInterfaceId = a}) instance AWSRequest ResetNetworkInterfaceAttribute where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.ResetSnapshotAttribute --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -72,23 +72,23 @@ -> ResetSnapshotAttribute resetSnapshotAttribute pAttribute_ pSnapshotId_ = ResetSnapshotAttribute' - { _rsaDryRun = Nothing - , _rsaAttribute = pAttribute_ - , _rsaSnapshotId = pSnapshotId_ - } + { _rsaDryRun = Nothing + , _rsaAttribute = pAttribute_ + , _rsaSnapshotId = pSnapshotId_ + } -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rsaDryRun :: Lens' ResetSnapshotAttribute (Maybe Bool) -rsaDryRun = lens _rsaDryRun (\ s a -> s{_rsaDryRun = a}); +rsaDryRun = lens _rsaDryRun (\ s a -> s{_rsaDryRun = a}) -- | The attribute to reset. Currently, only the attribute for permission to create volumes can be reset. rsaAttribute :: Lens' ResetSnapshotAttribute SnapshotAttributeName -rsaAttribute = lens _rsaAttribute (\ s a -> s{_rsaAttribute = a}); +rsaAttribute = lens _rsaAttribute (\ s a -> s{_rsaAttribute = a}) -- | The ID of the snapshot. rsaSnapshotId :: Lens' ResetSnapshotAttribute Text -rsaSnapshotId = lens _rsaSnapshotId (\ s a -> s{_rsaSnapshotId = a}); +rsaSnapshotId = lens _rsaSnapshotId (\ s a -> s{_rsaSnapshotId = a}) instance AWSRequest ResetSnapshotAttribute where type Rs ResetSnapshotAttribute = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RestoreAddressToClassic --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -73,11 +73,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . ratcDryRun :: Lens' RestoreAddressToClassic (Maybe Bool) -ratcDryRun = lens _ratcDryRun (\ s a -> s{_ratcDryRun = a}); +ratcDryRun = lens _ratcDryRun (\ s a -> s{_ratcDryRun = a}) -- | The Elastic IP address. ratcPublicIP :: Lens' RestoreAddressToClassic Text -ratcPublicIP = lens _ratcPublicIP (\ s a -> s{_ratcPublicIP = a}); +ratcPublicIP = lens _ratcPublicIP (\ s a -> s{_ratcPublicIP = a}) instance AWSRequest RestoreAddressToClassic where type Rs RestoreAddressToClassic = @@ -134,22 +134,22 @@ -> RestoreAddressToClassicResponse restoreAddressToClassicResponse pResponseStatus_ = RestoreAddressToClassicResponse' - { _ratcrsStatus = Nothing - , _ratcrsPublicIP = Nothing - , _ratcrsResponseStatus = pResponseStatus_ - } + { _ratcrsStatus = Nothing + , _ratcrsPublicIP = Nothing + , _ratcrsResponseStatus = pResponseStatus_ + } -- | The move status for the IP address. ratcrsStatus :: Lens' RestoreAddressToClassicResponse (Maybe AddressStatus) -ratcrsStatus = lens _ratcrsStatus (\ s a -> s{_ratcrsStatus = a}); +ratcrsStatus = lens _ratcrsStatus (\ s a -> s{_ratcrsStatus = a}) -- | The Elastic IP address. ratcrsPublicIP :: Lens' RestoreAddressToClassicResponse (Maybe Text) -ratcrsPublicIP = lens _ratcrsPublicIP (\ s a -> s{_ratcrsPublicIP = a}); +ratcrsPublicIP = lens _ratcrsPublicIP (\ s a -> s{_ratcrsPublicIP = a}) -- | -- | The response status code. ratcrsResponseStatus :: Lens' RestoreAddressToClassicResponse Int -ratcrsResponseStatus = lens _ratcrsResponseStatus (\ s a -> s{_ratcrsResponseStatus = a}); +ratcrsResponseStatus = lens _ratcrsResponseStatus (\ s a -> s{_ratcrsResponseStatus = a}) instance NFData RestoreAddressToClassicResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RevokeSecurityGroupEgress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -97,53 +97,53 @@ -> RevokeSecurityGroupEgress revokeSecurityGroupEgress pGroupId_ = RevokeSecurityGroupEgress' - { _rsgeFromPort = Nothing - , _rsgeIPPermissions = Nothing - , _rsgeIPProtocol = Nothing - , _rsgeToPort = Nothing - , _rsgeCidrIP = Nothing - , _rsgeSourceSecurityGroupOwnerId = Nothing - , _rsgeSourceSecurityGroupName = Nothing - , _rsgeDryRun = Nothing - , _rsgeGroupId = pGroupId_ - } + { _rsgeFromPort = Nothing + , _rsgeIPPermissions = Nothing + , _rsgeIPProtocol = Nothing + , _rsgeToPort = Nothing + , _rsgeCidrIP = Nothing + , _rsgeSourceSecurityGroupOwnerId = Nothing + , _rsgeSourceSecurityGroupName = Nothing + , _rsgeDryRun = Nothing + , _rsgeGroupId = pGroupId_ + } -- | Not supported. Use a set of IP permissions to specify the port. rsgeFromPort :: Lens' RevokeSecurityGroupEgress (Maybe Int) -rsgeFromPort = lens _rsgeFromPort (\ s a -> s{_rsgeFromPort = a}); +rsgeFromPort = lens _rsgeFromPort (\ s a -> s{_rsgeFromPort = a}) -- | One or more sets of IP permissions. You can't specify a destination security group and a CIDR IP address range in the same set of permissions. rsgeIPPermissions :: Lens' RevokeSecurityGroupEgress [IPPermission] -rsgeIPPermissions = lens _rsgeIPPermissions (\ s a -> s{_rsgeIPPermissions = a}) . _Default . _Coerce; +rsgeIPPermissions = lens _rsgeIPPermissions (\ s a -> s{_rsgeIPPermissions = a}) . _Default . _Coerce -- | Not supported. Use a set of IP permissions to specify the protocol name or number. rsgeIPProtocol :: Lens' RevokeSecurityGroupEgress (Maybe Text) -rsgeIPProtocol = lens _rsgeIPProtocol (\ s a -> s{_rsgeIPProtocol = a}); +rsgeIPProtocol = lens _rsgeIPProtocol (\ s a -> s{_rsgeIPProtocol = a}) -- | Not supported. Use a set of IP permissions to specify the port. rsgeToPort :: Lens' RevokeSecurityGroupEgress (Maybe Int) -rsgeToPort = lens _rsgeToPort (\ s a -> s{_rsgeToPort = a}); +rsgeToPort = lens _rsgeToPort (\ s a -> s{_rsgeToPort = a}) -- | Not supported. Use a set of IP permissions to specify the CIDR. rsgeCidrIP :: Lens' RevokeSecurityGroupEgress (Maybe Text) -rsgeCidrIP = lens _rsgeCidrIP (\ s a -> s{_rsgeCidrIP = a}); +rsgeCidrIP = lens _rsgeCidrIP (\ s a -> s{_rsgeCidrIP = a}) -- | Not supported. Use a set of IP permissions to specify a destination security group. rsgeSourceSecurityGroupOwnerId :: Lens' RevokeSecurityGroupEgress (Maybe Text) -rsgeSourceSecurityGroupOwnerId = lens _rsgeSourceSecurityGroupOwnerId (\ s a -> s{_rsgeSourceSecurityGroupOwnerId = a}); +rsgeSourceSecurityGroupOwnerId = lens _rsgeSourceSecurityGroupOwnerId (\ s a -> s{_rsgeSourceSecurityGroupOwnerId = a}) -- | Not supported. Use a set of IP permissions to specify a destination security group. rsgeSourceSecurityGroupName :: Lens' RevokeSecurityGroupEgress (Maybe Text) -rsgeSourceSecurityGroupName = lens _rsgeSourceSecurityGroupName (\ s a -> s{_rsgeSourceSecurityGroupName = a}); +rsgeSourceSecurityGroupName = lens _rsgeSourceSecurityGroupName (\ s a -> s{_rsgeSourceSecurityGroupName = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rsgeDryRun :: Lens' RevokeSecurityGroupEgress (Maybe Bool) -rsgeDryRun = lens _rsgeDryRun (\ s a -> s{_rsgeDryRun = a}); +rsgeDryRun = lens _rsgeDryRun (\ s a -> s{_rsgeDryRun = a}) -- | The ID of the security group. rsgeGroupId :: Lens' RevokeSecurityGroupEgress Text -rsgeGroupId = lens _rsgeGroupId (\ s a -> s{_rsgeGroupId = a}); +rsgeGroupId = lens _rsgeGroupId (\ s a -> s{_rsgeGroupId = a}) instance AWSRequest RevokeSecurityGroupEgress where type Rs RevokeSecurityGroupEgress = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RevokeSecurityGroupIngress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -100,58 +100,58 @@ :: RevokeSecurityGroupIngress revokeSecurityGroupIngress = RevokeSecurityGroupIngress' - { _rsgiFromPort = Nothing - , _rsgiIPPermissions = Nothing - , _rsgiIPProtocol = Nothing - , _rsgiGroupId = Nothing - , _rsgiToPort = Nothing - , _rsgiCidrIP = Nothing - , _rsgiSourceSecurityGroupOwnerId = Nothing - , _rsgiGroupName = Nothing - , _rsgiSourceSecurityGroupName = Nothing - , _rsgiDryRun = Nothing - } + { _rsgiFromPort = Nothing + , _rsgiIPPermissions = Nothing + , _rsgiIPProtocol = Nothing + , _rsgiGroupId = Nothing + , _rsgiToPort = Nothing + , _rsgiCidrIP = Nothing + , _rsgiSourceSecurityGroupOwnerId = Nothing + , _rsgiGroupName = Nothing + , _rsgiSourceSecurityGroupName = Nothing + , _rsgiDryRun = Nothing + } -- | The start of port range for the TCP and UDP protocols, or an ICMP type number. For the ICMP type number, use @-1@ to specify all ICMP types. rsgiFromPort :: Lens' RevokeSecurityGroupIngress (Maybe Int) -rsgiFromPort = lens _rsgiFromPort (\ s a -> s{_rsgiFromPort = a}); +rsgiFromPort = lens _rsgiFromPort (\ s a -> s{_rsgiFromPort = a}) -- | One or more sets of IP permissions. You can't specify a source security group and a CIDR IP address range in the same set of permissions. rsgiIPPermissions :: Lens' RevokeSecurityGroupIngress [IPPermission] -rsgiIPPermissions = lens _rsgiIPPermissions (\ s a -> s{_rsgiIPPermissions = a}) . _Default . _Coerce; +rsgiIPPermissions = lens _rsgiIPPermissions (\ s a -> s{_rsgiIPPermissions = a}) . _Default . _Coerce -- | The IP protocol name (@tcp@ , @udp@ , @icmp@ ) or number (see ). Use @-1@ to specify all. rsgiIPProtocol :: Lens' RevokeSecurityGroupIngress (Maybe Text) -rsgiIPProtocol = lens _rsgiIPProtocol (\ s a -> s{_rsgiIPProtocol = a}); +rsgiIPProtocol = lens _rsgiIPProtocol (\ s a -> s{_rsgiIPProtocol = a}) -- | The ID of the security group. You must specify either the security group ID or the security group name in the request. For security groups in a nondefault VPC, you must specify the security group ID. rsgiGroupId :: Lens' RevokeSecurityGroupIngress (Maybe Text) -rsgiGroupId = lens _rsgiGroupId (\ s a -> s{_rsgiGroupId = a}); +rsgiGroupId = lens _rsgiGroupId (\ s a -> s{_rsgiGroupId = a}) -- | The end of port range for the TCP and UDP protocols, or an ICMP code number. For the ICMP code number, use @-1@ to specify all ICMP codes for the ICMP type. rsgiToPort :: Lens' RevokeSecurityGroupIngress (Maybe Int) -rsgiToPort = lens _rsgiToPort (\ s a -> s{_rsgiToPort = a}); +rsgiToPort = lens _rsgiToPort (\ s a -> s{_rsgiToPort = a}) -- | The CIDR IP address range. You can't specify this parameter when specifying a source security group. rsgiCidrIP :: Lens' RevokeSecurityGroupIngress (Maybe Text) -rsgiCidrIP = lens _rsgiCidrIP (\ s a -> s{_rsgiCidrIP = a}); +rsgiCidrIP = lens _rsgiCidrIP (\ s a -> s{_rsgiCidrIP = a}) -- | [EC2-Classic] The AWS account ID of the source security group, if the source security group is in a different account. You can't specify this parameter in combination with the following parameters: the CIDR IP address range, the IP protocol, the start of the port range, and the end of the port range. To revoke a specific rule for an IP protocol and port range, use a set of IP permissions instead. rsgiSourceSecurityGroupOwnerId :: Lens' RevokeSecurityGroupIngress (Maybe Text) -rsgiSourceSecurityGroupOwnerId = lens _rsgiSourceSecurityGroupOwnerId (\ s a -> s{_rsgiSourceSecurityGroupOwnerId = a}); +rsgiSourceSecurityGroupOwnerId = lens _rsgiSourceSecurityGroupOwnerId (\ s a -> s{_rsgiSourceSecurityGroupOwnerId = a}) -- | [EC2-Classic, default VPC] The name of the security group. You must specify either the security group ID or the security group name in the request. rsgiGroupName :: Lens' RevokeSecurityGroupIngress (Maybe Text) -rsgiGroupName = lens _rsgiGroupName (\ s a -> s{_rsgiGroupName = a}); +rsgiGroupName = lens _rsgiGroupName (\ s a -> s{_rsgiGroupName = a}) -- | [EC2-Classic, default VPC] The name of the source security group. You can't specify this parameter in combination with the following parameters: the CIDR IP address range, the start of the port range, the IP protocol, and the end of the port range. For EC2-VPC, the source security group must be in the same VPC. To revoke a specific rule for an IP protocol and port range, use a set of IP permissions instead. rsgiSourceSecurityGroupName :: Lens' RevokeSecurityGroupIngress (Maybe Text) -rsgiSourceSecurityGroupName = lens _rsgiSourceSecurityGroupName (\ s a -> s{_rsgiSourceSecurityGroupName = a}); +rsgiSourceSecurityGroupName = lens _rsgiSourceSecurityGroupName (\ s a -> s{_rsgiSourceSecurityGroupName = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rsgiDryRun :: Lens' RevokeSecurityGroupIngress (Maybe Bool) -rsgiDryRun = lens _rsgiDryRun (\ s a -> s{_rsgiDryRun = a}); +rsgiDryRun = lens _rsgiDryRun (\ s a -> s{_rsgiDryRun = a}) instance AWSRequest RevokeSecurityGroupIngress where type Rs RevokeSecurityGroupIngress = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RunInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -39,6 +39,8 @@ -- -- -- +-- You can create a , which is a resource that contains the parameters to launch an instance. When you launch an instance using 'RunInstances' , you can specify the launch template instead of specifying the launch parameters. +-- -- To ensure faster instance launches, break up large requests into smaller batches. For example, create five separate launch requests for 100 instances each instead of one launch request for 500 instances. -- -- An instance is ready for you to use when it's in the @running@ state. You can check the state of your instance using 'DescribeInstances' . You can tag instances and EBS volumes during launch, after launch, or both. For more information, see 'CreateTags' and . @@ -53,33 +55,37 @@ runInstances , RunInstances -- * Request Lenses - , rAdditionalInfo - , rSecurityGroupIds - , rSecurityGroups - , rClientToken - , rDisableAPITermination - , rKeyName - , rNetworkInterfaces - , rRAMDiskId - , rSubnetId - , rKernelId - , rInstanceType - , rEBSOptimized - , rUserData - , rMonitoring - , rTagSpecifications - , rIPv6AddressCount - , rIAMInstanceProfile - , rElasticGpuSpecification - , rPrivateIPAddress - , rInstanceInitiatedShutdownBehavior - , rBlockDeviceMappings - , rDryRun - , rPlacement - , rIPv6Addresses - , rImageId - , rMaxCount - , rMinCount + , risAdditionalInfo + , risSecurityGroupIds + , risSecurityGroups + , risClientToken + , risInstanceMarketOptions + , risDisableAPITermination + , risKeyName + , risNetworkInterfaces + , risRAMDiskId + , risCPUOptions + , risSubnetId + , risKernelId + , risInstanceType + , risEBSOptimized + , risUserData + , risMonitoring + , risTagSpecifications + , risIPv6AddressCount + , risIAMInstanceProfile + , risElasticGpuSpecification + , risImageId + , risPrivateIPAddress + , risInstanceInitiatedShutdownBehavior + , risLaunchTemplate + , risCreditSpecification + , risBlockDeviceMappings + , risDryRun + , risPlacement + , risIPv6Addresses + , risMaxCount + , risMinCount -- * Destructuring the Response , reservation @@ -105,33 +111,37 @@ -- -- /See:/ 'runInstances' smart constructor. data RunInstances = RunInstances' - { _rAdditionalInfo :: !(Maybe Text) - , _rSecurityGroupIds :: !(Maybe [Text]) - , _rSecurityGroups :: !(Maybe [Text]) - , _rClientToken :: !(Maybe Text) - , _rDisableAPITermination :: !(Maybe Bool) - , _rKeyName :: !(Maybe Text) - , _rNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) - , _rRAMDiskId :: !(Maybe Text) - , _rSubnetId :: !(Maybe Text) - , _rKernelId :: !(Maybe Text) - , _rInstanceType :: !(Maybe InstanceType) - , _rEBSOptimized :: !(Maybe Bool) - , _rUserData :: !(Maybe Text) - , _rMonitoring :: !(Maybe RunInstancesMonitoringEnabled) - , _rTagSpecifications :: !(Maybe [TagSpecification]) - , _rIPv6AddressCount :: !(Maybe Int) - , _rIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) - , _rElasticGpuSpecification :: !(Maybe [ElasticGpuSpecification]) - , _rPrivateIPAddress :: !(Maybe Text) - , _rInstanceInitiatedShutdownBehavior :: !(Maybe ShutdownBehavior) - , _rBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) - , _rDryRun :: !(Maybe Bool) - , _rPlacement :: !(Maybe Placement) - , _rIPv6Addresses :: !(Maybe [InstanceIPv6Address]) - , _rImageId :: !Text - , _rMaxCount :: !Int - , _rMinCount :: !Int + { _risAdditionalInfo :: !(Maybe Text) + , _risSecurityGroupIds :: !(Maybe [Text]) + , _risSecurityGroups :: !(Maybe [Text]) + , _risClientToken :: !(Maybe Text) + , _risInstanceMarketOptions :: !(Maybe InstanceMarketOptionsRequest) + , _risDisableAPITermination :: !(Maybe Bool) + , _risKeyName :: !(Maybe Text) + , _risNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) + , _risRAMDiskId :: !(Maybe Text) + , _risCPUOptions :: !(Maybe CPUOptionsRequest) + , _risSubnetId :: !(Maybe Text) + , _risKernelId :: !(Maybe Text) + , _risInstanceType :: !(Maybe InstanceType) + , _risEBSOptimized :: !(Maybe Bool) + , _risUserData :: !(Maybe Text) + , _risMonitoring :: !(Maybe RunInstancesMonitoringEnabled) + , _risTagSpecifications :: !(Maybe [TagSpecification]) + , _risIPv6AddressCount :: !(Maybe Int) + , _risIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) + , _risElasticGpuSpecification :: !(Maybe [ElasticGpuSpecification]) + , _risImageId :: !(Maybe Text) + , _risPrivateIPAddress :: !(Maybe Text) + , _risInstanceInitiatedShutdownBehavior :: !(Maybe ShutdownBehavior) + , _risLaunchTemplate :: !(Maybe LaunchTemplateSpecification) + , _risCreditSpecification :: !(Maybe CreditSpecificationRequest) + , _risBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) + , _risDryRun :: !(Maybe Bool) + , _risPlacement :: !(Maybe Placement) + , _risIPv6Addresses :: !(Maybe [InstanceIPv6Address]) + , _risMaxCount :: !Int + , _risMinCount :: !Int } deriving (Eq, Read, Show, Data, Typeable, Generic) @@ -139,203 +149,230 @@ -- -- Use one of the following lenses to modify other fields as desired: -- --- * 'rAdditionalInfo' - Reserved. +-- * 'risAdditionalInfo' - Reserved. -- --- * 'rSecurityGroupIds' - One or more security group IDs. You can create a security group using 'CreateSecurityGroup' . Default: Amazon EC2 uses the default security group. +-- * 'risSecurityGroupIds' - One or more security group IDs. You can create a security group using 'CreateSecurityGroup' . Default: Amazon EC2 uses the default security group. -- --- * 'rSecurityGroups' - [EC2-Classic, default VPC] One or more security group names. For a nondefault VPC, you must use security group IDs instead. Default: Amazon EC2 uses the default security group. +-- * 'risSecurityGroups' - [EC2-Classic, default VPC] One or more security group names. For a nondefault VPC, you must use security group IDs instead. Default: Amazon EC2 uses the default security group. -- --- * 'rClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . Constraints: Maximum 64 ASCII characters +-- * 'risClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . Constraints: Maximum 64 ASCII characters -- --- * 'rDisableAPITermination' - If you set this parameter to @true@ , you can't terminate the instance using the Amazon EC2 console, CLI, or API; otherwise, you can. To change this attribute to @false@ after launch, use 'ModifyInstanceAttribute' . Alternatively, if you set @InstanceInitiatedShutdownBehavior@ to @terminate@ , you can terminate the instance by running the shutdown command from the instance. Default: @false@ +-- * 'risInstanceMarketOptions' - The market (purchasing) option for the instances. -- --- * 'rKeyName' - The name of the key pair. You can create a key pair using 'CreateKeyPair' or 'ImportKeyPair' . /Important:/ If you do not specify a key pair, you can't connect to the instance unless you choose an AMI that is configured to allow users another way to log in. +-- * 'risDisableAPITermination' - If you set this parameter to @true@ , you can't terminate the instance using the Amazon EC2 console, CLI, or API; otherwise, you can. To change this attribute to @false@ after launch, use 'ModifyInstanceAttribute' . Alternatively, if you set @InstanceInitiatedShutdownBehavior@ to @terminate@ , you can terminate the instance by running the shutdown command from the instance. Default: @false@ -- --- * 'rNetworkInterfaces' - One or more network interfaces. +-- * 'risKeyName' - The name of the key pair. You can create a key pair using 'CreateKeyPair' or 'ImportKeyPair' . /Important:/ If you do not specify a key pair, you can't connect to the instance unless you choose an AMI that is configured to allow users another way to log in. -- --- * 'rRAMDiskId' - The ID of the RAM disk. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- * 'risNetworkInterfaces' - One or more network interfaces. -- --- * 'rSubnetId' - [EC2-VPC] The ID of the subnet to launch the instance into. +-- * 'risRAMDiskId' - The ID of the RAM disk. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- --- * 'rKernelId' - The ID of the kernel. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- * 'risCPUOptions' - The CPU options for the instance. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- --- * 'rInstanceType' - The instance type. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . Default: @m1.small@ +-- * 'risSubnetId' - [EC2-VPC] The ID of the subnet to launch the instance into. -- --- * 'rEBSOptimized' - Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal Amazon EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. Default: @false@ +-- * 'risKernelId' - The ID of the kernel. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -- --- * 'rUserData' - The user data to make available to the instance. For more information, see (Linux) and (Windows). If you are using a command line tool, base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide base64-encoded text. +-- * 'risInstanceType' - The instance type. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . Default: @m1.small@ -- --- * 'rMonitoring' - The monitoring for the instance. +-- * 'risEBSOptimized' - Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal Amazon EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. Default: @false@ -- --- * 'rTagSpecifications' - The tags to apply to the resources during launch. You can tag instances and volumes. The specified tags are applied to all instances or volumes that are created during launch. +-- * 'risUserData' - The user data to make available to the instance. For more information, see (Linux) and (Windows). If you are using a command line tool, base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide base64-encoded text. -- --- * 'rIPv6AddressCount' - [EC2-VPC] A number of IPv6 addresses to associate with the primary network interface. Amazon EC2 chooses the IPv6 addresses from the range of your subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch. +-- * 'risMonitoring' - The monitoring for the instance. -- --- * 'rIAMInstanceProfile' - The IAM instance profile. +-- * 'risTagSpecifications' - The tags to apply to the resources during launch. You can tag instances and volumes. The specified tags are applied to all instances or volumes that are created during launch. -- --- * 'rElasticGpuSpecification' - An Elastic GPU to associate with the instance. +-- * 'risIPv6AddressCount' - [EC2-VPC] A number of IPv6 addresses to associate with the primary network interface. Amazon EC2 chooses the IPv6 addresses from the range of your subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch. -- --- * 'rPrivateIPAddress' - [EC2-VPC] The primary IPv4 address. You must specify a value from the IPv4 address range of the subnet. Only one private IP address can be designated as primary. You can't specify this option if you've specified the option to designate a private IP address as the primary IP address in a network interface specification. You cannot specify this option if you're launching more than one instance in the request. +-- * 'risIAMInstanceProfile' - The IAM instance profile. -- --- * 'rInstanceInitiatedShutdownBehavior' - Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). Default: @stop@ +-- * 'risElasticGpuSpecification' - An elastic GPU to associate with the instance. -- --- * 'rBlockDeviceMappings' - One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. +-- * 'risImageId' - The ID of the AMI, which you can get by calling 'DescribeImages' . An AMI is required to launch an instance and must be specified here or in a launch template. -- --- * 'rDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- * 'risPrivateIPAddress' - [EC2-VPC] The primary IPv4 address. You must specify a value from the IPv4 address range of the subnet. Only one private IP address can be designated as primary. You can't specify this option if you've specified the option to designate a private IP address as the primary IP address in a network interface specification. You cannot specify this option if you're launching more than one instance in the request. -- --- * 'rPlacement' - The placement for the instance. +-- * 'risInstanceInitiatedShutdownBehavior' - Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). Default: @stop@ -- --- * 'rIPv6Addresses' - [EC2-VPC] Specify one or more IPv6 addresses from the range of the subnet to associate with the primary network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch. +-- * 'risLaunchTemplate' - The launch template to use to launch the instances. Any parameters that you specify in 'RunInstances' override the same parameters in the launch template. You can specify either the name or ID of a launch template, but not both. -- --- * 'rImageId' - The ID of the AMI, which you can get by calling 'DescribeImages' . +-- * 'risCreditSpecification' - The credit option for CPU usage of the instance. Valid values are @standard@ and @unlimited@ . To change this attribute after launch, use 'ModifyInstanceCreditSpecification' . For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . Default: @standard@ -- --- * 'rMaxCount' - The maximum number of instances to launch. If you specify more instances than Amazon EC2 can launch in the target Availability Zone, Amazon EC2 launches the largest possible number of instances above @MinCount@ . Constraints: Between 1 and the maximum number you're allowed for the specified instance type. For more information about the default limits, and how to request an increase, see in the Amazon EC2 FAQ. +-- * 'risBlockDeviceMappings' - One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. -- --- * 'rMinCount' - The minimum number of instances to launch. If you specify a minimum that is more instances than Amazon EC2 can launch in the target Availability Zone, Amazon EC2 launches no instances. Constraints: Between 1 and the maximum number you're allowed for the specified instance type. For more information about the default limits, and how to request an increase, see in the Amazon EC2 General FAQ. +-- * 'risDryRun' - Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . +-- +-- * 'risPlacement' - The placement for the instance. +-- +-- * 'risIPv6Addresses' - [EC2-VPC] Specify one or more IPv6 addresses from the range of the subnet to associate with the primary network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch. +-- +-- * 'risMaxCount' - The maximum number of instances to launch. If you specify more instances than Amazon EC2 can launch in the target Availability Zone, Amazon EC2 launches the largest possible number of instances above @MinCount@ . Constraints: Between 1 and the maximum number you're allowed for the specified instance type. For more information about the default limits, and how to request an increase, see in the Amazon EC2 FAQ. +-- +-- * 'risMinCount' - The minimum number of instances to launch. If you specify a minimum that is more instances than Amazon EC2 can launch in the target Availability Zone, Amazon EC2 launches no instances. Constraints: Between 1 and the maximum number you're allowed for the specified instance type. For more information about the default limits, and how to request an increase, see in the Amazon EC2 General FAQ. runInstances - :: Text -- ^ 'rImageId' - -> Int -- ^ 'rMaxCount' - -> Int -- ^ 'rMinCount' + :: Int -- ^ 'risMaxCount' + -> Int -- ^ 'risMinCount' -> RunInstances -runInstances pImageId_ pMaxCount_ pMinCount_ = +runInstances pMaxCount_ pMinCount_ = RunInstances' - { _rAdditionalInfo = Nothing - , _rSecurityGroupIds = Nothing - , _rSecurityGroups = Nothing - , _rClientToken = Nothing - , _rDisableAPITermination = Nothing - , _rKeyName = Nothing - , _rNetworkInterfaces = Nothing - , _rRAMDiskId = Nothing - , _rSubnetId = Nothing - , _rKernelId = Nothing - , _rInstanceType = Nothing - , _rEBSOptimized = Nothing - , _rUserData = Nothing - , _rMonitoring = Nothing - , _rTagSpecifications = Nothing - , _rIPv6AddressCount = Nothing - , _rIAMInstanceProfile = Nothing - , _rElasticGpuSpecification = Nothing - , _rPrivateIPAddress = Nothing - , _rInstanceInitiatedShutdownBehavior = Nothing - , _rBlockDeviceMappings = Nothing - , _rDryRun = Nothing - , _rPlacement = Nothing - , _rIPv6Addresses = Nothing - , _rImageId = pImageId_ - , _rMaxCount = pMaxCount_ - , _rMinCount = pMinCount_ - } + { _risAdditionalInfo = Nothing + , _risSecurityGroupIds = Nothing + , _risSecurityGroups = Nothing + , _risClientToken = Nothing + , _risInstanceMarketOptions = Nothing + , _risDisableAPITermination = Nothing + , _risKeyName = Nothing + , _risNetworkInterfaces = Nothing + , _risRAMDiskId = Nothing + , _risCPUOptions = Nothing + , _risSubnetId = Nothing + , _risKernelId = Nothing + , _risInstanceType = Nothing + , _risEBSOptimized = Nothing + , _risUserData = Nothing + , _risMonitoring = Nothing + , _risTagSpecifications = Nothing + , _risIPv6AddressCount = Nothing + , _risIAMInstanceProfile = Nothing + , _risElasticGpuSpecification = Nothing + , _risImageId = Nothing + , _risPrivateIPAddress = Nothing + , _risInstanceInitiatedShutdownBehavior = Nothing + , _risLaunchTemplate = Nothing + , _risCreditSpecification = Nothing + , _risBlockDeviceMappings = Nothing + , _risDryRun = Nothing + , _risPlacement = Nothing + , _risIPv6Addresses = Nothing + , _risMaxCount = pMaxCount_ + , _risMinCount = pMinCount_ + } -- | Reserved. -rAdditionalInfo :: Lens' RunInstances (Maybe Text) -rAdditionalInfo = lens _rAdditionalInfo (\ s a -> s{_rAdditionalInfo = a}); +risAdditionalInfo :: Lens' RunInstances (Maybe Text) +risAdditionalInfo = lens _risAdditionalInfo (\ s a -> s{_risAdditionalInfo = a}) -- | One or more security group IDs. You can create a security group using 'CreateSecurityGroup' . Default: Amazon EC2 uses the default security group. -rSecurityGroupIds :: Lens' RunInstances [Text] -rSecurityGroupIds = lens _rSecurityGroupIds (\ s a -> s{_rSecurityGroupIds = a}) . _Default . _Coerce; +risSecurityGroupIds :: Lens' RunInstances [Text] +risSecurityGroupIds = lens _risSecurityGroupIds (\ s a -> s{_risSecurityGroupIds = a}) . _Default . _Coerce -- | [EC2-Classic, default VPC] One or more security group names. For a nondefault VPC, you must use security group IDs instead. Default: Amazon EC2 uses the default security group. -rSecurityGroups :: Lens' RunInstances [Text] -rSecurityGroups = lens _rSecurityGroups (\ s a -> s{_rSecurityGroups = a}) . _Default . _Coerce; +risSecurityGroups :: Lens' RunInstances [Text] +risSecurityGroups = lens _risSecurityGroups (\ s a -> s{_risSecurityGroups = a}) . _Default . _Coerce -- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . Constraints: Maximum 64 ASCII characters -rClientToken :: Lens' RunInstances (Maybe Text) -rClientToken = lens _rClientToken (\ s a -> s{_rClientToken = a}); +risClientToken :: Lens' RunInstances (Maybe Text) +risClientToken = lens _risClientToken (\ s a -> s{_risClientToken = a}) +-- | The market (purchasing) option for the instances. +risInstanceMarketOptions :: Lens' RunInstances (Maybe InstanceMarketOptionsRequest) +risInstanceMarketOptions = lens _risInstanceMarketOptions (\ s a -> s{_risInstanceMarketOptions = a}) + -- | If you set this parameter to @true@ , you can't terminate the instance using the Amazon EC2 console, CLI, or API; otherwise, you can. To change this attribute to @false@ after launch, use 'ModifyInstanceAttribute' . Alternatively, if you set @InstanceInitiatedShutdownBehavior@ to @terminate@ , you can terminate the instance by running the shutdown command from the instance. Default: @false@ -rDisableAPITermination :: Lens' RunInstances (Maybe Bool) -rDisableAPITermination = lens _rDisableAPITermination (\ s a -> s{_rDisableAPITermination = a}); +risDisableAPITermination :: Lens' RunInstances (Maybe Bool) +risDisableAPITermination = lens _risDisableAPITermination (\ s a -> s{_risDisableAPITermination = a}) -- | The name of the key pair. You can create a key pair using 'CreateKeyPair' or 'ImportKeyPair' . /Important:/ If you do not specify a key pair, you can't connect to the instance unless you choose an AMI that is configured to allow users another way to log in. -rKeyName :: Lens' RunInstances (Maybe Text) -rKeyName = lens _rKeyName (\ s a -> s{_rKeyName = a}); +risKeyName :: Lens' RunInstances (Maybe Text) +risKeyName = lens _risKeyName (\ s a -> s{_risKeyName = a}) -- | One or more network interfaces. -rNetworkInterfaces :: Lens' RunInstances [InstanceNetworkInterfaceSpecification] -rNetworkInterfaces = lens _rNetworkInterfaces (\ s a -> s{_rNetworkInterfaces = a}) . _Default . _Coerce; +risNetworkInterfaces :: Lens' RunInstances [InstanceNetworkInterfaceSpecification] +risNetworkInterfaces = lens _risNetworkInterfaces (\ s a -> s{_risNetworkInterfaces = a}) . _Default . _Coerce -- | The ID of the RAM disk. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -rRAMDiskId :: Lens' RunInstances (Maybe Text) -rRAMDiskId = lens _rRAMDiskId (\ s a -> s{_rRAMDiskId = a}); +risRAMDiskId :: Lens' RunInstances (Maybe Text) +risRAMDiskId = lens _risRAMDiskId (\ s a -> s{_risRAMDiskId = a}) +-- | The CPU options for the instance. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +risCPUOptions :: Lens' RunInstances (Maybe CPUOptionsRequest) +risCPUOptions = lens _risCPUOptions (\ s a -> s{_risCPUOptions = a}) + -- | [EC2-VPC] The ID of the subnet to launch the instance into. -rSubnetId :: Lens' RunInstances (Maybe Text) -rSubnetId = lens _rSubnetId (\ s a -> s{_rSubnetId = a}); +risSubnetId :: Lens' RunInstances (Maybe Text) +risSubnetId = lens _risSubnetId (\ s a -> s{_risSubnetId = a}) -- | The ID of the kernel. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -rKernelId :: Lens' RunInstances (Maybe Text) -rKernelId = lens _rKernelId (\ s a -> s{_rKernelId = a}); +risKernelId :: Lens' RunInstances (Maybe Text) +risKernelId = lens _risKernelId (\ s a -> s{_risKernelId = a}) -- | The instance type. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . Default: @m1.small@ -rInstanceType :: Lens' RunInstances (Maybe InstanceType) -rInstanceType = lens _rInstanceType (\ s a -> s{_rInstanceType = a}); +risInstanceType :: Lens' RunInstances (Maybe InstanceType) +risInstanceType = lens _risInstanceType (\ s a -> s{_risInstanceType = a}) -- | Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal Amazon EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. Default: @false@ -rEBSOptimized :: Lens' RunInstances (Maybe Bool) -rEBSOptimized = lens _rEBSOptimized (\ s a -> s{_rEBSOptimized = a}); +risEBSOptimized :: Lens' RunInstances (Maybe Bool) +risEBSOptimized = lens _risEBSOptimized (\ s a -> s{_risEBSOptimized = a}) -- | The user data to make available to the instance. For more information, see (Linux) and (Windows). If you are using a command line tool, base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide base64-encoded text. -rUserData :: Lens' RunInstances (Maybe Text) -rUserData = lens _rUserData (\ s a -> s{_rUserData = a}); +risUserData :: Lens' RunInstances (Maybe Text) +risUserData = lens _risUserData (\ s a -> s{_risUserData = a}) -- | The monitoring for the instance. -rMonitoring :: Lens' RunInstances (Maybe RunInstancesMonitoringEnabled) -rMonitoring = lens _rMonitoring (\ s a -> s{_rMonitoring = a}); +risMonitoring :: Lens' RunInstances (Maybe RunInstancesMonitoringEnabled) +risMonitoring = lens _risMonitoring (\ s a -> s{_risMonitoring = a}) -- | The tags to apply to the resources during launch. You can tag instances and volumes. The specified tags are applied to all instances or volumes that are created during launch. -rTagSpecifications :: Lens' RunInstances [TagSpecification] -rTagSpecifications = lens _rTagSpecifications (\ s a -> s{_rTagSpecifications = a}) . _Default . _Coerce; +risTagSpecifications :: Lens' RunInstances [TagSpecification] +risTagSpecifications = lens _risTagSpecifications (\ s a -> s{_risTagSpecifications = a}) . _Default . _Coerce -- | [EC2-VPC] A number of IPv6 addresses to associate with the primary network interface. Amazon EC2 chooses the IPv6 addresses from the range of your subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch. -rIPv6AddressCount :: Lens' RunInstances (Maybe Int) -rIPv6AddressCount = lens _rIPv6AddressCount (\ s a -> s{_rIPv6AddressCount = a}); +risIPv6AddressCount :: Lens' RunInstances (Maybe Int) +risIPv6AddressCount = lens _risIPv6AddressCount (\ s a -> s{_risIPv6AddressCount = a}) -- | The IAM instance profile. -rIAMInstanceProfile :: Lens' RunInstances (Maybe IAMInstanceProfileSpecification) -rIAMInstanceProfile = lens _rIAMInstanceProfile (\ s a -> s{_rIAMInstanceProfile = a}); +risIAMInstanceProfile :: Lens' RunInstances (Maybe IAMInstanceProfileSpecification) +risIAMInstanceProfile = lens _risIAMInstanceProfile (\ s a -> s{_risIAMInstanceProfile = a}) --- | An Elastic GPU to associate with the instance. -rElasticGpuSpecification :: Lens' RunInstances [ElasticGpuSpecification] -rElasticGpuSpecification = lens _rElasticGpuSpecification (\ s a -> s{_rElasticGpuSpecification = a}) . _Default . _Coerce; +-- | An elastic GPU to associate with the instance. +risElasticGpuSpecification :: Lens' RunInstances [ElasticGpuSpecification] +risElasticGpuSpecification = lens _risElasticGpuSpecification (\ s a -> s{_risElasticGpuSpecification = a}) . _Default . _Coerce +-- | The ID of the AMI, which you can get by calling 'DescribeImages' . An AMI is required to launch an instance and must be specified here or in a launch template. +risImageId :: Lens' RunInstances (Maybe Text) +risImageId = lens _risImageId (\ s a -> s{_risImageId = a}) + -- | [EC2-VPC] The primary IPv4 address. You must specify a value from the IPv4 address range of the subnet. Only one private IP address can be designated as primary. You can't specify this option if you've specified the option to designate a private IP address as the primary IP address in a network interface specification. You cannot specify this option if you're launching more than one instance in the request. -rPrivateIPAddress :: Lens' RunInstances (Maybe Text) -rPrivateIPAddress = lens _rPrivateIPAddress (\ s a -> s{_rPrivateIPAddress = a}); +risPrivateIPAddress :: Lens' RunInstances (Maybe Text) +risPrivateIPAddress = lens _risPrivateIPAddress (\ s a -> s{_risPrivateIPAddress = a}) -- | Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). Default: @stop@ -rInstanceInitiatedShutdownBehavior :: Lens' RunInstances (Maybe ShutdownBehavior) -rInstanceInitiatedShutdownBehavior = lens _rInstanceInitiatedShutdownBehavior (\ s a -> s{_rInstanceInitiatedShutdownBehavior = a}); +risInstanceInitiatedShutdownBehavior :: Lens' RunInstances (Maybe ShutdownBehavior) +risInstanceInitiatedShutdownBehavior = lens _risInstanceInitiatedShutdownBehavior (\ s a -> s{_risInstanceInitiatedShutdownBehavior = a}) +-- | The launch template to use to launch the instances. Any parameters that you specify in 'RunInstances' override the same parameters in the launch template. You can specify either the name or ID of a launch template, but not both. +risLaunchTemplate :: Lens' RunInstances (Maybe LaunchTemplateSpecification) +risLaunchTemplate = lens _risLaunchTemplate (\ s a -> s{_risLaunchTemplate = a}) + +-- | The credit option for CPU usage of the instance. Valid values are @standard@ and @unlimited@ . To change this attribute after launch, use 'ModifyInstanceCreditSpecification' . For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . Default: @standard@ +risCreditSpecification :: Lens' RunInstances (Maybe CreditSpecificationRequest) +risCreditSpecification = lens _risCreditSpecification (\ s a -> s{_risCreditSpecification = a}) + -- | One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. -rBlockDeviceMappings :: Lens' RunInstances [BlockDeviceMapping] -rBlockDeviceMappings = lens _rBlockDeviceMappings (\ s a -> s{_rBlockDeviceMappings = a}) . _Default . _Coerce; +risBlockDeviceMappings :: Lens' RunInstances [BlockDeviceMapping] +risBlockDeviceMappings = lens _risBlockDeviceMappings (\ s a -> s{_risBlockDeviceMappings = a}) . _Default . _Coerce -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . -rDryRun :: Lens' RunInstances (Maybe Bool) -rDryRun = lens _rDryRun (\ s a -> s{_rDryRun = a}); +risDryRun :: Lens' RunInstances (Maybe Bool) +risDryRun = lens _risDryRun (\ s a -> s{_risDryRun = a}) -- | The placement for the instance. -rPlacement :: Lens' RunInstances (Maybe Placement) -rPlacement = lens _rPlacement (\ s a -> s{_rPlacement = a}); +risPlacement :: Lens' RunInstances (Maybe Placement) +risPlacement = lens _risPlacement (\ s a -> s{_risPlacement = a}) -- | [EC2-VPC] Specify one or more IPv6 addresses from the range of the subnet to associate with the primary network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch. -rIPv6Addresses :: Lens' RunInstances [InstanceIPv6Address] -rIPv6Addresses = lens _rIPv6Addresses (\ s a -> s{_rIPv6Addresses = a}) . _Default . _Coerce; - --- | The ID of the AMI, which you can get by calling 'DescribeImages' . -rImageId :: Lens' RunInstances Text -rImageId = lens _rImageId (\ s a -> s{_rImageId = a}); +risIPv6Addresses :: Lens' RunInstances [InstanceIPv6Address] +risIPv6Addresses = lens _risIPv6Addresses (\ s a -> s{_risIPv6Addresses = a}) . _Default . _Coerce -- | The maximum number of instances to launch. If you specify more instances than Amazon EC2 can launch in the target Availability Zone, Amazon EC2 launches the largest possible number of instances above @MinCount@ . Constraints: Between 1 and the maximum number you're allowed for the specified instance type. For more information about the default limits, and how to request an increase, see in the Amazon EC2 FAQ. -rMaxCount :: Lens' RunInstances Int -rMaxCount = lens _rMaxCount (\ s a -> s{_rMaxCount = a}); +risMaxCount :: Lens' RunInstances Int +risMaxCount = lens _risMaxCount (\ s a -> s{_risMaxCount = a}) -- | The minimum number of instances to launch. If you specify a minimum that is more instances than Amazon EC2 can launch in the target Availability Zone, Amazon EC2 launches no instances. Constraints: Between 1 and the maximum number you're allowed for the specified instance type. For more information about the default limits, and how to request an increase, see in the Amazon EC2 General FAQ. -rMinCount :: Lens' RunInstances Int -rMinCount = lens _rMinCount (\ s a -> s{_rMinCount = a}); +risMinCount :: Lens' RunInstances Int +risMinCount = lens _risMinCount (\ s a -> s{_risMinCount = a}) instance AWSRequest RunInstances where type Rs RunInstances = Reservation @@ -357,40 +394,46 @@ = mconcat ["Action" =: ("RunInstances" :: ByteString), "Version" =: ("2016-11-15" :: ByteString), - "AdditionalInfo" =: _rAdditionalInfo, + "AdditionalInfo" =: _risAdditionalInfo, toQuery (toQueryList "SecurityGroupId" <$> - _rSecurityGroupIds), + _risSecurityGroupIds), toQuery - (toQueryList "SecurityGroup" <$> _rSecurityGroups), - "ClientToken" =: _rClientToken, - "DisableApiTermination" =: _rDisableAPITermination, - "KeyName" =: _rKeyName, + (toQueryList "SecurityGroup" <$> _risSecurityGroups), + "ClientToken" =: _risClientToken, + "InstanceMarketOptions" =: _risInstanceMarketOptions, + "DisableApiTermination" =: _risDisableAPITermination, + "KeyName" =: _risKeyName, toQuery (toQueryList "NetworkInterface" <$> - _rNetworkInterfaces), - "RamdiskId" =: _rRAMDiskId, "SubnetId" =: _rSubnetId, - "KernelId" =: _rKernelId, - "InstanceType" =: _rInstanceType, - "EbsOptimized" =: _rEBSOptimized, - "UserData" =: _rUserData, - "Monitoring" =: _rMonitoring, + _risNetworkInterfaces), + "RamdiskId" =: _risRAMDiskId, + "CpuOptions" =: _risCPUOptions, + "SubnetId" =: _risSubnetId, + "KernelId" =: _risKernelId, + "InstanceType" =: _risInstanceType, + "EbsOptimized" =: _risEBSOptimized, + "UserData" =: _risUserData, + "Monitoring" =: _risMonitoring, toQuery (toQueryList "TagSpecification" <$> - _rTagSpecifications), - "Ipv6AddressCount" =: _rIPv6AddressCount, - "IamInstanceProfile" =: _rIAMInstanceProfile, + _risTagSpecifications), + "Ipv6AddressCount" =: _risIPv6AddressCount, + "IamInstanceProfile" =: _risIAMInstanceProfile, toQuery (toQueryList "ElasticGpuSpecification" <$> - _rElasticGpuSpecification), - "PrivateIpAddress" =: _rPrivateIPAddress, + _risElasticGpuSpecification), + "ImageId" =: _risImageId, + "PrivateIpAddress" =: _risPrivateIPAddress, "InstanceInitiatedShutdownBehavior" =: - _rInstanceInitiatedShutdownBehavior, + _risInstanceInitiatedShutdownBehavior, + "LaunchTemplate" =: _risLaunchTemplate, + "CreditSpecification" =: _risCreditSpecification, toQuery (toQueryList "BlockDeviceMapping" <$> - _rBlockDeviceMappings), - "DryRun" =: _rDryRun, "Placement" =: _rPlacement, + _risBlockDeviceMappings), + "DryRun" =: _risDryRun, "Placement" =: _risPlacement, toQuery - (toQueryList "Ipv6Address" <$> _rIPv6Addresses), - "ImageId" =: _rImageId, "MaxCount" =: _rMaxCount, - "MinCount" =: _rMinCount] + (toQueryList "Ipv6Address" <$> _risIPv6Addresses), + "MaxCount" =: _risMaxCount, + "MinCount" =: _risMinCount] diff --git a/gen/Network/AWS/EC2/RunScheduledInstances.hs b/gen/Network/AWS/EC2/RunScheduledInstances.hs --- a/gen/Network/AWS/EC2/RunScheduledInstances.hs +++ b/gen/Network/AWS/EC2/RunScheduledInstances.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.RunScheduledInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -85,33 +85,33 @@ -> RunScheduledInstances runScheduledInstances pLaunchSpecification_ pScheduledInstanceId_ = RunScheduledInstances' - { _rsiClientToken = Nothing - , _rsiInstanceCount = Nothing - , _rsiDryRun = Nothing - , _rsiLaunchSpecification = pLaunchSpecification_ - , _rsiScheduledInstanceId = pScheduledInstanceId_ - } + { _rsiClientToken = Nothing + , _rsiInstanceCount = Nothing + , _rsiDryRun = Nothing + , _rsiLaunchSpecification = pLaunchSpecification_ + , _rsiScheduledInstanceId = pScheduledInstanceId_ + } -- | Unique, case-sensitive identifier that ensures the idempotency of the request. For more information, see . rsiClientToken :: Lens' RunScheduledInstances (Maybe Text) -rsiClientToken = lens _rsiClientToken (\ s a -> s{_rsiClientToken = a}); +rsiClientToken = lens _rsiClientToken (\ s a -> s{_rsiClientToken = a}) -- | The number of instances. Default: 1 rsiInstanceCount :: Lens' RunScheduledInstances (Maybe Int) -rsiInstanceCount = lens _rsiInstanceCount (\ s a -> s{_rsiInstanceCount = a}); +rsiInstanceCount = lens _rsiInstanceCount (\ s a -> s{_rsiInstanceCount = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . rsiDryRun :: Lens' RunScheduledInstances (Maybe Bool) -rsiDryRun = lens _rsiDryRun (\ s a -> s{_rsiDryRun = a}); +rsiDryRun = lens _rsiDryRun (\ s a -> s{_rsiDryRun = a}) -- | The launch specification. You must match the instance type, Availability Zone, network, and platform of the schedule that you purchased. rsiLaunchSpecification :: Lens' RunScheduledInstances ScheduledInstancesLaunchSpecification -rsiLaunchSpecification = lens _rsiLaunchSpecification (\ s a -> s{_rsiLaunchSpecification = a}); +rsiLaunchSpecification = lens _rsiLaunchSpecification (\ s a -> s{_rsiLaunchSpecification = a}) -- | The Scheduled Instance ID. rsiScheduledInstanceId :: Lens' RunScheduledInstances Text -rsiScheduledInstanceId = lens _rsiScheduledInstanceId (\ s a -> s{_rsiScheduledInstanceId = a}); +rsiScheduledInstanceId = lens _rsiScheduledInstanceId (\ s a -> s{_rsiScheduledInstanceId = a}) instance AWSRequest RunScheduledInstances where type Rs RunScheduledInstances = @@ -169,15 +169,15 @@ -> RunScheduledInstancesResponse runScheduledInstancesResponse pResponseStatus_ = RunScheduledInstancesResponse' - {_rrsInstanceIdSet = Nothing, _rrsResponseStatus = pResponseStatus_} + {_rrsInstanceIdSet = Nothing, _rrsResponseStatus = pResponseStatus_} -- | The IDs of the newly launched instances. rrsInstanceIdSet :: Lens' RunScheduledInstancesResponse [Text] -rrsInstanceIdSet = lens _rrsInstanceIdSet (\ s a -> s{_rrsInstanceIdSet = a}) . _Default . _Coerce; +rrsInstanceIdSet = lens _rrsInstanceIdSet (\ s a -> s{_rrsInstanceIdSet = a}) . _Default . _Coerce -- | -- | The response status code. rrsResponseStatus :: Lens' RunScheduledInstancesResponse Int -rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a}); +rrsResponseStatus = lens _rrsResponseStatus (\ s a -> s{_rrsResponseStatus = a}) instance NFData RunScheduledInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.StartInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -79,20 +79,20 @@ :: StartInstances startInstances = StartInstances' - {_sAdditionalInfo = Nothing, _sDryRun = Nothing, _sInstanceIds = mempty} + {_sAdditionalInfo = Nothing, _sDryRun = Nothing, _sInstanceIds = mempty} -- | Reserved. sAdditionalInfo :: Lens' StartInstances (Maybe Text) -sAdditionalInfo = lens _sAdditionalInfo (\ s a -> s{_sAdditionalInfo = a}); +sAdditionalInfo = lens _sAdditionalInfo (\ s a -> s{_sAdditionalInfo = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . sDryRun :: Lens' StartInstances (Maybe Bool) -sDryRun = lens _sDryRun (\ s a -> s{_sDryRun = a}); +sDryRun = lens _sDryRun (\ s a -> s{_sDryRun = a}) -- | One or more instance IDs. sInstanceIds :: Lens' StartInstances [Text] -sInstanceIds = lens _sInstanceIds (\ s a -> s{_sInstanceIds = a}) . _Coerce; +sInstanceIds = lens _sInstanceIds (\ s a -> s{_sInstanceIds = a}) . _Coerce instance AWSRequest StartInstances where type Rs StartInstances = StartInstancesResponse @@ -147,15 +147,15 @@ -> StartInstancesResponse startInstancesResponse pResponseStatus_ = StartInstancesResponse' - {_srsStartingInstances = Nothing, _srsResponseStatus = pResponseStatus_} + {_srsStartingInstances = Nothing, _srsResponseStatus = pResponseStatus_} -- | Information about one or more started instances. srsStartingInstances :: Lens' StartInstancesResponse [InstanceStateChange] -srsStartingInstances = lens _srsStartingInstances (\ s a -> s{_srsStartingInstances = a}) . _Default . _Coerce; +srsStartingInstances = lens _srsStartingInstances (\ s a -> s{_srsStartingInstances = a}) . _Default . _Coerce -- | -- | The response status code. srsResponseStatus :: Lens' StartInstancesResponse Int -srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}); +srsResponseStatus = lens _srsResponseStatus (\ s a -> s{_srsResponseStatus = a}) instance NFData StartInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.StopInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -81,20 +81,20 @@ :: StopInstances stopInstances = StopInstances' - {_siForce = Nothing, _siDryRun = Nothing, _siInstanceIds = mempty} + {_siForce = Nothing, _siDryRun = Nothing, _siInstanceIds = mempty} -- | Forces the instances to stop. The instances do not have an opportunity to flush file system caches or file system metadata. If you use this option, you must perform file system check and repair procedures. This option is not recommended for Windows instances. Default: @false@ siForce :: Lens' StopInstances (Maybe Bool) -siForce = lens _siForce (\ s a -> s{_siForce = a}); +siForce = lens _siForce (\ s a -> s{_siForce = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . siDryRun :: Lens' StopInstances (Maybe Bool) -siDryRun = lens _siDryRun (\ s a -> s{_siDryRun = a}); +siDryRun = lens _siDryRun (\ s a -> s{_siDryRun = a}) -- | One or more instance IDs. siInstanceIds :: Lens' StopInstances [Text] -siInstanceIds = lens _siInstanceIds (\ s a -> s{_siInstanceIds = a}) . _Coerce; +siInstanceIds = lens _siInstanceIds (\ s a -> s{_siInstanceIds = a}) . _Coerce instance AWSRequest StopInstances where type Rs StopInstances = StopInstancesResponse @@ -148,15 +148,15 @@ -> StopInstancesResponse stopInstancesResponse pResponseStatus_ = StopInstancesResponse' - {_sirsStoppingInstances = Nothing, _sirsResponseStatus = pResponseStatus_} + {_sirsStoppingInstances = Nothing, _sirsResponseStatus = pResponseStatus_} -- | Information about one or more stopped instances. sirsStoppingInstances :: Lens' StopInstancesResponse [InstanceStateChange] -sirsStoppingInstances = lens _sirsStoppingInstances (\ s a -> s{_sirsStoppingInstances = a}) . _Default . _Coerce; +sirsStoppingInstances = lens _sirsStoppingInstances (\ s a -> s{_sirsStoppingInstances = a}) . _Default . _Coerce -- | -- | The response status code. sirsResponseStatus :: Lens' StopInstancesResponse Int -sirsResponseStatus = lens _sirsResponseStatus (\ s a -> s{_sirsResponseStatus = a}); +sirsResponseStatus = lens _sirsResponseStatus (\ s a -> s{_sirsResponseStatus = a}) instance NFData StopInstancesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.TerminateInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -81,11 +81,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . tiDryRun :: Lens' TerminateInstances (Maybe Bool) -tiDryRun = lens _tiDryRun (\ s a -> s{_tiDryRun = a}); +tiDryRun = lens _tiDryRun (\ s a -> s{_tiDryRun = a}) -- | One or more instance IDs. Constraints: Up to 1000 instance IDs. We recommend breaking up this request into smaller batches. tiInstanceIds :: Lens' TerminateInstances [Text] -tiInstanceIds = lens _tiInstanceIds (\ s a -> s{_tiInstanceIds = a}) . _Coerce; +tiInstanceIds = lens _tiInstanceIds (\ s a -> s{_tiInstanceIds = a}) . _Coerce instance AWSRequest TerminateInstances where type Rs TerminateInstances = @@ -140,15 +140,17 @@ -> TerminateInstancesResponse terminateInstancesResponse pResponseStatus_ = TerminateInstancesResponse' - {_tirsTerminatingInstances = Nothing, _tirsResponseStatus = pResponseStatus_} + { _tirsTerminatingInstances = Nothing + , _tirsResponseStatus = pResponseStatus_ + } -- | Information about one or more terminated instances. tirsTerminatingInstances :: Lens' TerminateInstancesResponse [InstanceStateChange] -tirsTerminatingInstances = lens _tirsTerminatingInstances (\ s a -> s{_tirsTerminatingInstances = a}) . _Default . _Coerce; +tirsTerminatingInstances = lens _tirsTerminatingInstances (\ s a -> s{_tirsTerminatingInstances = a}) . _Default . _Coerce -- | -- | The response status code. tirsResponseStatus :: Lens' TerminateInstancesResponse Int -tirsResponseStatus = lens _tirsResponseStatus (\ s a -> s{_tirsResponseStatus = a}); +tirsResponseStatus = lens _tirsResponseStatus (\ s a -> s{_tirsResponseStatus = a}) instance NFData TerminateInstancesResponse where 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 @@ -4,7 +4,7 @@ -- | -- Module : Network.AWS.EC2.Types --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -62,6 +62,12 @@ -- * CancelSpotInstanceRequestState , CancelSpotInstanceRequestState (..) + -- * ConnectionNotificationState + , ConnectionNotificationState (..) + + -- * ConnectionNotificationType + , ConnectionNotificationType (..) + -- * ContainerFormat , ContainerFormat (..) @@ -74,6 +80,12 @@ -- * DatafeedSubscriptionState , DatafeedSubscriptionState (..) + -- * DefaultTargetCapacityType + , DefaultTargetCapacityType (..) + + -- * DeleteFleetErrorCode + , DeleteFleetErrorCode (..) + -- * DeviceType , DeviceType (..) @@ -104,6 +116,18 @@ -- * ExportTaskState , ExportTaskState (..) + -- * FleetActivityStatus + , FleetActivityStatus (..) + + -- * FleetEventType + , FleetEventType (..) + + -- * FleetExcessCapacityTerminationPolicy + , FleetExcessCapacityTerminationPolicy (..) + + -- * FleetStateCode + , FleetStateCode (..) + -- * FleetType , FleetType (..) @@ -158,12 +182,18 @@ -- * InterfacePermissionType , InterfacePermissionType (..) + -- * LaunchTemplateErrorCode + , LaunchTemplateErrorCode (..) + -- * ListingState , ListingState (..) -- * ListingStatus , ListingStatus (..) + -- * MarketType + , MarketType (..) + -- * MonitoringState , MonitoringState (..) @@ -209,6 +239,9 @@ -- * PlatformValues , PlatformValues (..) + -- * PrincipalType + , PrincipalType (..) + -- * ProductCodeValues , ProductCodeValues (..) @@ -251,6 +284,9 @@ -- * Scope , Scope (..) + -- * ServiceState + , ServiceState (..) + -- * ServiceType , ServiceType (..) @@ -263,6 +299,12 @@ -- * SnapshotState , SnapshotState (..) + -- * SpotAllocationStrategy + , SpotAllocationStrategy (..) + + -- * SpotInstanceInterruptionBehavior + , SpotInstanceInterruptionBehavior (..) + -- * SpotInstanceState , SpotInstanceState (..) @@ -296,6 +338,9 @@ -- * TrafficType , TrafficType (..) + -- * UnsuccessfulInstanceCreditSpecificationErrorCode + , UnsuccessfulInstanceCreditSpecificationErrorCode (..) + -- * VPCAttributeName , VPCAttributeName (..) @@ -374,7 +419,14 @@ , aNetworkInterfaceId , aPrivateIPAddress , aPublicIP + , aTags + -- * AllowedPrincipal + , AllowedPrincipal + , allowedPrincipal + , apPrincipalType + , apPrincipal + -- * AttributeBooleanValue , AttributeBooleanValue , attributeBooleanValue @@ -435,6 +487,18 @@ , bteCode , bteMessage + -- * CPUOptions + , CPUOptions + , cpuOptions + , coCoreCount + , coThreadsPerCore + + -- * CPUOptionsRequest + , CPUOptionsRequest + , cpuOptionsRequest + , corCoreCount + , corThreadsPerCore + -- * CancelSpotFleetRequestsError , CancelSpotFleetRequestsError , cancelSpotFleetRequestsError @@ -497,16 +561,27 @@ , cdUploadEnd , cdComment + -- * ConnectionNotification + , ConnectionNotification + , connectionNotification + , cnConnectionNotificationState + , cnConnectionNotificationType + , cnConnectionEvents + , cnServiceId + , cnVPCEndpointId + , cnConnectionNotificationId + , cnConnectionNotificationARN + -- * ConversionTask , ConversionTask , conversionTask , ctImportInstance + , ctState , ctStatusMessage , ctImportVolume + , ctConversionTaskId , ctExpirationTime , ctTags - , ctConversionTaskId - , ctState -- * CreateVolumePermission , CreateVolumePermission @@ -520,6 +595,16 @@ , cvpmRemove , cvpmAdd + -- * CreditSpecification + , CreditSpecification + , creditSpecification + , csCPUCredits + + -- * CreditSpecificationRequest + , CreditSpecificationRequest + , creditSpecificationRequest + , csrCPUCredits + -- * CustomerGateway , CustomerGateway , customerGateway @@ -549,6 +634,40 @@ , deHostedZoneId , deDNSName + -- * DeleteFleetError + , DeleteFleetError + , deleteFleetError + , dfeCode + , dfeMessage + + -- * DeleteFleetErrorItem + , DeleteFleetErrorItem + , deleteFleetErrorItem + , dfeiError + , dfeiFleetId + + -- * DeleteFleetSuccessItem + , DeleteFleetSuccessItem + , deleteFleetSuccessItem + , dfsiCurrentFleetState + , dfsiPreviousFleetState + , dfsiFleetId + + -- * DeleteLaunchTemplateVersionsResponseErrorItem + , DeleteLaunchTemplateVersionsResponseErrorItem + , deleteLaunchTemplateVersionsResponseErrorItem + , dltvreiLaunchTemplateName + , dltvreiLaunchTemplateId + , dltvreiVersionNumber + , dltvreiResponseError + + -- * DeleteLaunchTemplateVersionsResponseSuccessItem + , DeleteLaunchTemplateVersionsResponseSuccessItem + , deleteLaunchTemplateVersionsResponseSuccessItem + , dltvrsiLaunchTemplateName + , dltvrsiLaunchTemplateId + , dltvrsiVersionNumber + -- * DiskImage , DiskImage , diskImage @@ -559,10 +678,10 @@ -- * DiskImageDescription , DiskImageDescription , diskImageDescription + , dSize , dChecksum , dFormat , dImportManifestURL - , dSize -- * DiskImageDetail , DiskImageDetail @@ -584,6 +703,7 @@ , ebdVolumeSize , ebdIOPS , ebdEncrypted + , ebdKMSKeyId , ebdVolumeType , ebdSnapshotId @@ -625,6 +745,11 @@ , elasticGpuSpecification , egsType + -- * ElasticGpuSpecificationResponse + , ElasticGpuSpecificationResponse + , elasticGpuSpecificationResponse + , eType + -- * ElasticGpus , ElasticGpus , elasticGpus @@ -674,6 +799,71 @@ , fValues , fName + -- * FleetData + , FleetData + , fleetData + , fdClientToken + , fdTargetCapacitySpecification + , fdSpotOptions + , fdExcessCapacityTerminationPolicy + , fdFleetState + , fdLaunchTemplateConfigs + , fdValidUntil + , fdTerminateInstancesWithExpiration + , fdFulfilledCapacity + , fdType + , fdValidFrom + , fdReplaceUnhealthyInstances + , fdFulfilledOnDemandCapacity + , fdFleetId + , fdCreateTime + , fdTags + , fdActivityStatus + + -- * FleetLaunchTemplateConfig + , FleetLaunchTemplateConfig + , fleetLaunchTemplateConfig + , fltcOverrides + , fltcLaunchTemplateSpecification + + -- * FleetLaunchTemplateConfigRequest + , FleetLaunchTemplateConfigRequest + , fleetLaunchTemplateConfigRequest + , fltcrOverrides + , fltcrLaunchTemplateSpecification + + -- * FleetLaunchTemplateOverrides + , FleetLaunchTemplateOverrides + , fleetLaunchTemplateOverrides + , fltoWeightedCapacity + , fltoSubnetId + , fltoInstanceType + , fltoAvailabilityZone + , fltoMaxPrice + + -- * FleetLaunchTemplateOverridesRequest + , FleetLaunchTemplateOverridesRequest + , fleetLaunchTemplateOverridesRequest + , fltorWeightedCapacity + , fltorSubnetId + , fltorInstanceType + , fltorAvailabilityZone + , fltorMaxPrice + + -- * FleetLaunchTemplateSpecification + , FleetLaunchTemplateSpecification + , fleetLaunchTemplateSpecification + , fltsLaunchTemplateName + , fltsLaunchTemplateId + , fltsVersion + + -- * FleetLaunchTemplateSpecificationRequest + , FleetLaunchTemplateSpecificationRequest + , fleetLaunchTemplateSpecificationRequest + , fltsrLaunchTemplateName + , fltsrLaunchTemplateId + , fltsrVersion + -- * FlowLog , FlowLog , flowLog @@ -733,9 +923,17 @@ , hrEventType , hrTimestamp + -- * HistoryRecordEntry + , HistoryRecordEntry + , historyRecordEntry + , hreEventType + , hreEventInformation + , hreTimestamp + -- * Host , Host , host + , hReleaseTime , hState , hClientToken , hHostId @@ -744,6 +942,7 @@ , hHostProperties , hAvailabilityZone , hInstances + , hAllocationTime , hAutoPlacement -- * HostInstance @@ -923,8 +1122,8 @@ , importInstanceTaskDetails , iitdInstanceId , iitdPlatform - , iitdDescription , iitdVolumes + , iitdDescription -- * ImportInstanceVolumeDetailItem , ImportInstanceVolumeDetailItem @@ -947,11 +1146,11 @@ -- * ImportVolumeTaskDetails , ImportVolumeTaskDetails , importVolumeTaskDetails - , ivtdDescription - , ivtdAvailabilityZone , ivtdBytesConverted , ivtdImage , ivtdVolume + , ivtdAvailabilityZone + , ivtdDescription -- * Instance , Instance @@ -967,6 +1166,7 @@ , insKeyName , insNetworkInterfaces , insRAMDiskId + , insCPUOptions , insSubnetId , insKernelId , insRootDeviceName @@ -1023,6 +1223,18 @@ , icState , icInstanceCount + -- * InstanceCreditSpecification + , InstanceCreditSpecification + , instanceCreditSpecification + , icsInstanceId + , icsCPUCredits + + -- * InstanceCreditSpecificationRequest + , InstanceCreditSpecificationRequest + , instanceCreditSpecificationRequest + , icsrInstanceId + , icsrCPUCredits + -- * InstanceExportDetails , InstanceExportDetails , instanceExportDetails @@ -1034,6 +1246,17 @@ , instanceIPv6Address , iiaIPv6Address + -- * InstanceIPv6AddressRequest + , InstanceIPv6AddressRequest + , instanceIPv6AddressRequest + , iiarIPv6Address + + -- * InstanceMarketOptionsRequest + , InstanceMarketOptionsRequest + , instanceMarketOptionsRequest + , imorMarketType + , imorSpotOptions + -- * InstanceMonitoring , InstanceMonitoring , instanceMonitoring @@ -1193,6 +1416,205 @@ , lsBlockDeviceMappings , lsPlacement + -- * LaunchTemplate + , LaunchTemplate + , launchTemplate + , ltLaunchTemplateName + , ltLatestVersionNumber + , ltLaunchTemplateId + , ltCreatedBy + , ltDefaultVersionNumber + , ltCreateTime + , ltTags + + -- * LaunchTemplateBlockDeviceMapping + , LaunchTemplateBlockDeviceMapping + , launchTemplateBlockDeviceMapping + , ltbdmVirtualName + , ltbdmNoDevice + , ltbdmEBS + , ltbdmDeviceName + + -- * LaunchTemplateBlockDeviceMappingRequest + , LaunchTemplateBlockDeviceMappingRequest + , launchTemplateBlockDeviceMappingRequest + , ltbdmrVirtualName + , ltbdmrNoDevice + , ltbdmrEBS + , ltbdmrDeviceName + + -- * LaunchTemplateConfig + , LaunchTemplateConfig + , launchTemplateConfig + , ltcOverrides + , ltcLaunchTemplateSpecification + + -- * LaunchTemplateEBSBlockDevice + , LaunchTemplateEBSBlockDevice + , launchTemplateEBSBlockDevice + , ltebdDeleteOnTermination + , ltebdVolumeSize + , ltebdIOPS + , ltebdEncrypted + , ltebdKMSKeyId + , ltebdVolumeType + , ltebdSnapshotId + + -- * LaunchTemplateEBSBlockDeviceRequest + , LaunchTemplateEBSBlockDeviceRequest + , launchTemplateEBSBlockDeviceRequest + , ltebdrDeleteOnTermination + , ltebdrVolumeSize + , ltebdrIOPS + , ltebdrEncrypted + , ltebdrKMSKeyId + , ltebdrVolumeType + , ltebdrSnapshotId + + -- * LaunchTemplateIAMInstanceProfileSpecification + , LaunchTemplateIAMInstanceProfileSpecification + , launchTemplateIAMInstanceProfileSpecification + , ltiapsARN + , ltiapsName + + -- * LaunchTemplateIAMInstanceProfileSpecificationRequest + , LaunchTemplateIAMInstanceProfileSpecificationRequest + , launchTemplateIAMInstanceProfileSpecificationRequest + , ltiapsrARN + , ltiapsrName + + -- * LaunchTemplateInstanceMarketOptions + , LaunchTemplateInstanceMarketOptions + , launchTemplateInstanceMarketOptions + , ltimoMarketType + , ltimoSpotOptions + + -- * LaunchTemplateInstanceMarketOptionsRequest + , LaunchTemplateInstanceMarketOptionsRequest + , launchTemplateInstanceMarketOptionsRequest + , ltimorMarketType + , ltimorSpotOptions + + -- * LaunchTemplateInstanceNetworkInterfaceSpecification + , LaunchTemplateInstanceNetworkInterfaceSpecification + , launchTemplateInstanceNetworkInterfaceSpecification + , ltinisGroups + , ltinisPrivateIPAddresses + , ltinisDeleteOnTermination + , ltinisAssociatePublicIPAddress + , ltinisNetworkInterfaceId + , ltinisSubnetId + , ltinisIPv6AddressCount + , ltinisPrivateIPAddress + , ltinisSecondaryPrivateIPAddressCount + , ltinisDescription + , ltinisDeviceIndex + , ltinisIPv6Addresses + + -- * LaunchTemplateInstanceNetworkInterfaceSpecificationRequest + , LaunchTemplateInstanceNetworkInterfaceSpecificationRequest + , launchTemplateInstanceNetworkInterfaceSpecificationRequest + , ltinisrGroups + , ltinisrPrivateIPAddresses + , ltinisrDeleteOnTermination + , ltinisrAssociatePublicIPAddress + , ltinisrNetworkInterfaceId + , ltinisrSubnetId + , ltinisrIPv6AddressCount + , ltinisrPrivateIPAddress + , ltinisrSecondaryPrivateIPAddressCount + , ltinisrDescription + , ltinisrDeviceIndex + , ltinisrIPv6Addresses + + -- * LaunchTemplateOverrides + , LaunchTemplateOverrides + , launchTemplateOverrides + , ltoSpotPrice + , ltoWeightedCapacity + , ltoSubnetId + , ltoInstanceType + , ltoAvailabilityZone + + -- * LaunchTemplatePlacement + , LaunchTemplatePlacement + , launchTemplatePlacement + , ltpAffinity + , ltpHostId + , ltpSpreadDomain + , ltpAvailabilityZone + , ltpTenancy + , ltpGroupName + + -- * LaunchTemplatePlacementRequest + , LaunchTemplatePlacementRequest + , launchTemplatePlacementRequest + , ltprAffinity + , ltprHostId + , ltprSpreadDomain + , ltprAvailabilityZone + , ltprTenancy + , ltprGroupName + + -- * LaunchTemplateSpecification + , LaunchTemplateSpecification + , launchTemplateSpecification + , ltsLaunchTemplateName + , ltsLaunchTemplateId + , ltsVersion + + -- * LaunchTemplateSpotMarketOptions + , LaunchTemplateSpotMarketOptions + , launchTemplateSpotMarketOptions + , ltsmoBlockDurationMinutes + , ltsmoInstanceInterruptionBehavior + , ltsmoValidUntil + , ltsmoSpotInstanceType + , ltsmoMaxPrice + + -- * LaunchTemplateSpotMarketOptionsRequest + , LaunchTemplateSpotMarketOptionsRequest + , launchTemplateSpotMarketOptionsRequest + , ltsmorBlockDurationMinutes + , ltsmorInstanceInterruptionBehavior + , ltsmorValidUntil + , ltsmorSpotInstanceType + , ltsmorMaxPrice + + -- * LaunchTemplateTagSpecification + , LaunchTemplateTagSpecification + , launchTemplateTagSpecification + , lttsResourceType + , lttsTags + + -- * LaunchTemplateTagSpecificationRequest + , LaunchTemplateTagSpecificationRequest + , launchTemplateTagSpecificationRequest + , lttsrResourceType + , lttsrTags + + -- * LaunchTemplateVersion + , LaunchTemplateVersion + , launchTemplateVersion + , ltvLaunchTemplateName + , ltvLaunchTemplateId + , ltvCreatedBy + , ltvDefaultVersion + , ltvVersionNumber + , ltvVersionDescription + , ltvLaunchTemplateData + , ltvCreateTime + + -- * LaunchTemplatesMonitoring + , LaunchTemplatesMonitoring + , launchTemplatesMonitoring + , ltmEnabled + + -- * LaunchTemplatesMonitoringRequest + , LaunchTemplatesMonitoringRequest + , launchTemplatesMonitoringRequest + , ltmrEnabled + -- * LoadBalancersConfig , LoadBalancersConfig , loadBalancersConfig @@ -1444,6 +1866,12 @@ , pdCount , pdPrice + -- * PrincipalIdFormat + , PrincipalIdFormat + , principalIdFormat + , pifARN + , pifStatuses + -- * PrivateIPAddressSpecification , PrivateIPAddressSpecification , privateIPAddressSpecification @@ -1500,6 +1928,30 @@ , riRegionName , riEndpoint + -- * RequestLaunchTemplateData + , RequestLaunchTemplateData + , requestLaunchTemplateData + , rltdSecurityGroupIds + , rltdSecurityGroups + , rltdInstanceMarketOptions + , rltdDisableAPITermination + , rltdKeyName + , rltdNetworkInterfaces + , rltdRamDiskId + , rltdKernelId + , rltdElasticGpuSpecifications + , rltdInstanceType + , rltdEBSOptimized + , rltdUserData + , rltdMonitoring + , rltdTagSpecifications + , rltdIAMInstanceProfile + , rltdImageId + , rltdInstanceInitiatedShutdownBehavior + , rltdCreditSpecification + , rltdBlockDeviceMappings + , rltdPlacement + -- * RequestSpotLaunchSpecification , RequestSpotLaunchSpecification , requestSpotLaunchSpecification @@ -1636,6 +2088,36 @@ , rioOfferingClass , rioDuration + -- * ResponseError + , ResponseError + , responseError + , reCode + , reMessage + + -- * ResponseLaunchTemplateData + , ResponseLaunchTemplateData + , responseLaunchTemplateData + , rSecurityGroupIds + , rSecurityGroups + , rInstanceMarketOptions + , rDisableAPITermination + , rKeyName + , rNetworkInterfaces + , rRamDiskId + , rKernelId + , rElasticGpuSpecifications + , rInstanceType + , rEBSOptimized + , rUserData + , rMonitoring + , rTagSpecifications + , rIAMInstanceProfile + , rImageId + , rInstanceInitiatedShutdownBehavior + , rCreditSpecification + , rBlockDeviceMappings + , rPlacement + -- * Route , Route , route @@ -1843,6 +2325,19 @@ , sgrGroupId , sgrReferencingVPCId + -- * ServiceConfiguration + , ServiceConfiguration + , serviceConfiguration + , scNetworkLoadBalancerARNs + , scBaseEndpointDNSNames + , scAvailabilityZones + , scServiceName + , scServiceState + , scServiceType + , scAcceptanceRequired + , scServiceId + , scPrivateDNSName + -- * ServiceDetail , ServiceDetail , serviceDetail @@ -1975,18 +2470,21 @@ , spotFleetRequestConfigData , sfrcdClientToken , sfrcdInstanceInterruptionBehavior + , sfrcdSpotPrice , sfrcdLoadBalancersConfig , sfrcdExcessCapacityTerminationPolicy + , sfrcdOnDemandTargetCapacity + , sfrcdLaunchTemplateConfigs , sfrcdValidUntil , sfrcdTerminateInstancesWithExpiration , sfrcdFulfilledCapacity , sfrcdType , sfrcdValidFrom , sfrcdReplaceUnhealthyInstances + , sfrcdLaunchSpecifications + , sfrcdOnDemandFulfilledCapacity , sfrcdAllocationStrategy , sfrcdIAMFleetRole - , sfrcdLaunchSpecifications - , sfrcdSpotPrice , sfrcdTargetCapacity -- * SpotFleetTagSpecification @@ -2031,6 +2529,27 @@ , sisCode , sisMessage + -- * SpotMarketOptions + , SpotMarketOptions + , spotMarketOptions + , smoBlockDurationMinutes + , smoInstanceInterruptionBehavior + , smoValidUntil + , smoSpotInstanceType + , smoMaxPrice + + -- * SpotOptions + , SpotOptions + , spotOptions + , soInstanceInterruptionBehavior + , soAllocationStrategy + + -- * SpotOptionsRequest + , SpotOptionsRequest + , spotOptionsRequest + , sorInstanceInterruptionBehavior + , sorAllocationStrategy + -- * SpotPlacement , SpotPlacement , spotPlacement @@ -2112,6 +2631,11 @@ , sicbaIPv6CidrBlock , sicbaIPv6CidrBlockState + -- * SuccessfulInstanceCreditSpecificationItem + , SuccessfulInstanceCreditSpecificationItem + , successfulInstanceCreditSpecificationItem + , sicsiInstanceId + -- * Tag , Tag , tag @@ -2132,6 +2656,22 @@ , tsResourceType , tsTags + -- * TargetCapacitySpecification + , TargetCapacitySpecification + , targetCapacitySpecification + , tcsOnDemandTargetCapacity + , tcsDefaultTargetCapacityType + , tcsTotalTargetCapacity + , tcsSpotTargetCapacity + + -- * TargetCapacitySpecificationRequest + , TargetCapacitySpecificationRequest + , targetCapacitySpecificationRequest + , tcsrOnDemandTargetCapacity + , tcsrDefaultTargetCapacityType + , tcsrSpotTargetCapacity + , tcsrTotalTargetCapacity + -- * TargetConfiguration , TargetConfiguration , targetConfiguration @@ -2160,6 +2700,18 @@ , trvReservationValue , trvTargetConfiguration + -- * UnsuccessfulInstanceCreditSpecificationItem + , UnsuccessfulInstanceCreditSpecificationItem + , unsuccessfulInstanceCreditSpecificationItem + , uicsiInstanceId + , uicsiError + + -- * UnsuccessfulInstanceCreditSpecificationItemError + , UnsuccessfulInstanceCreditSpecificationItemError + , unsuccessfulInstanceCreditSpecificationItemError + , uicsieCode + , uicsieMessage + -- * UnsuccessfulItem , UnsuccessfulItem , unsuccessfulItem @@ -2265,6 +2817,15 @@ , veVPCEndpointId , veRouteTableIds + -- * VPCEndpointConnection + , VPCEndpointConnection + , vpcEndpointConnection + , vecVPCEndpointOwner + , vecVPCEndpointState + , vecCreationTimestamp + , vecServiceId + , vecVPCEndpointId + -- * VPCIPv6CidrBlockAssociation , VPCIPv6CidrBlockAssociation , vpcIPv6CidrBlockAssociation @@ -2303,6 +2864,7 @@ , vpcviOwnerId , vpcviPeeringOptions , vpcviCidrBlock + , vpcviRegion , vpcviIPv6CidrBlockSet -- * VPNConnection @@ -2452,24 +3014,24 @@ ec2 :: Service ec2 = Service - { _svcAbbrev = "EC2" - , _svcSigner = v4 - , _svcPrefix = "ec2" - , _svcVersion = "2016-11-15" - , _svcEndpoint = defaultEndpoint ec2 - , _svcTimeout = Just 70 - , _svcCheck = statusSuccess - , _svcError = parseXMLError "EC2" - , _svcRetry = retry - } + { _svcAbbrev = "EC2" + , _svcSigner = v4 + , _svcPrefix = "ec2" + , _svcVersion = "2016-11-15" + , _svcEndpoint = defaultEndpoint ec2 + , _svcTimeout = Just 70 + , _svcCheck = statusSuccess + , _svcError = parseXMLError "EC2" + , _svcRetry = retry + } where retry = Exponential - { _retryBase = 5.0e-2 - , _retryGrowth = 2 - , _retryAttempts = 5 - , _retryCheck = check - } + { _retryBase = 5.0e-2 + , _retryGrowth = 2 + , _retryAttempts = 5 + , _retryCheck = check + } check e | has (hasCode "ThrottledException" . hasStatus 400) e = Just "throttled_exception" @@ -2480,6 +3042,8 @@ Just "throttling_exception" | has (hasCode "Throttling" . hasStatus 400) e = Just "throttling" | has (hasStatus 504) e = Just "gateway_timeout" + | has (hasCode "RequestThrottledException" . hasStatus 400) e = + Just "request_throttled_exception" | has (hasStatus 502) e = Just "bad_gateway" | has (hasStatus 503) e = Just "service_unavailable" | has (hasStatus 500) e = Just "general_server_error" 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 @@ -9,16916 +9,21165 @@ -- | -- Module : Network.AWS.EC2.Types.Product --- Copyright : (c) 2013-2017 Brendan Hay --- License : Mozilla Public License, v. 2.0. --- Maintainer : Brendan Hay --- Stability : auto-generated --- Portability : non-portable (GHC extensions) --- -module Network.AWS.EC2.Types.Product where - -import Network.AWS.EC2.Internal -import Network.AWS.EC2.Types.Sum -import Network.AWS.Lens -import Network.AWS.Prelude - --- | Describes an account attribute. --- --- --- --- /See:/ 'accountAttribute' smart constructor. -data AccountAttribute = AccountAttribute' - { _aaAttributeValues :: !(Maybe [AccountAttributeValue]) - , _aaAttributeName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AccountAttribute' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aaAttributeValues' - One or more values for the account attribute. --- --- * 'aaAttributeName' - The name of the account attribute. -accountAttribute - :: AccountAttribute -accountAttribute = - AccountAttribute' {_aaAttributeValues = Nothing, _aaAttributeName = Nothing} - - --- | One or more values for the account attribute. -aaAttributeValues :: Lens' AccountAttribute [AccountAttributeValue] -aaAttributeValues = lens _aaAttributeValues (\ s a -> s{_aaAttributeValues = a}) . _Default . _Coerce; - --- | The name of the account attribute. -aaAttributeName :: Lens' AccountAttribute (Maybe Text) -aaAttributeName = lens _aaAttributeName (\ s a -> s{_aaAttributeName = a}); - -instance FromXML AccountAttribute where - parseXML x - = AccountAttribute' <$> - (x .@? "attributeValueSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "attributeName") - -instance Hashable AccountAttribute where - -instance NFData AccountAttribute where - --- | Describes a value of an account attribute. --- --- --- --- /See:/ 'accountAttributeValue' smart constructor. -newtype AccountAttributeValue = AccountAttributeValue' - { _aavAttributeValue :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AccountAttributeValue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aavAttributeValue' - The value of the attribute. -accountAttributeValue - :: AccountAttributeValue -accountAttributeValue = AccountAttributeValue' {_aavAttributeValue = Nothing} - - --- | The value of the attribute. -aavAttributeValue :: Lens' AccountAttributeValue (Maybe Text) -aavAttributeValue = lens _aavAttributeValue (\ s a -> s{_aavAttributeValue = a}); - -instance FromXML AccountAttributeValue where - parseXML x - = AccountAttributeValue' <$> (x .@? "attributeValue") - -instance Hashable AccountAttributeValue where - -instance NFData AccountAttributeValue where - --- | Describes a running instance in a Spot fleet. --- --- --- --- /See:/ 'activeInstance' smart constructor. -data ActiveInstance = ActiveInstance' - { _aiInstanceId :: !(Maybe Text) - , _aiInstanceHealth :: !(Maybe InstanceHealthStatus) - , _aiInstanceType :: !(Maybe Text) - , _aiSpotInstanceRequestId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ActiveInstance' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aiInstanceId' - The ID of the instance. --- --- * 'aiInstanceHealth' - The health status of the instance. If the status of either the instance status check or the system status check is @impaired@ , the health status of the instance is @unhealthy@ . Otherwise, the health status is @healthy@ . --- --- * 'aiInstanceType' - The instance type. --- --- * 'aiSpotInstanceRequestId' - The ID of the Spot instance request. -activeInstance - :: ActiveInstance -activeInstance = - ActiveInstance' - { _aiInstanceId = Nothing - , _aiInstanceHealth = Nothing - , _aiInstanceType = Nothing - , _aiSpotInstanceRequestId = Nothing - } - - --- | The ID of the instance. -aiInstanceId :: Lens' ActiveInstance (Maybe Text) -aiInstanceId = lens _aiInstanceId (\ s a -> s{_aiInstanceId = a}); - --- | The health status of the instance. If the status of either the instance status check or the system status check is @impaired@ , the health status of the instance is @unhealthy@ . Otherwise, the health status is @healthy@ . -aiInstanceHealth :: Lens' ActiveInstance (Maybe InstanceHealthStatus) -aiInstanceHealth = lens _aiInstanceHealth (\ s a -> s{_aiInstanceHealth = a}); - --- | The instance type. -aiInstanceType :: Lens' ActiveInstance (Maybe Text) -aiInstanceType = lens _aiInstanceType (\ s a -> s{_aiInstanceType = a}); - --- | The ID of the Spot instance request. -aiSpotInstanceRequestId :: Lens' ActiveInstance (Maybe Text) -aiSpotInstanceRequestId = lens _aiSpotInstanceRequestId (\ s a -> s{_aiSpotInstanceRequestId = a}); - -instance FromXML ActiveInstance where - parseXML x - = ActiveInstance' <$> - (x .@? "instanceId") <*> (x .@? "instanceHealth") <*> - (x .@? "instanceType") - <*> (x .@? "spotInstanceRequestId") - -instance Hashable ActiveInstance where - -instance NFData ActiveInstance where - --- | Describes an Elastic IP address. --- --- --- --- /See:/ 'address' smart constructor. -data Address = Address' - { _aAssociationId :: !(Maybe Text) - , _aInstanceId :: !(Maybe Text) - , _aNetworkInterfaceOwnerId :: !(Maybe Text) - , _aAllocationId :: !(Maybe Text) - , _aDomain :: !(Maybe DomainType) - , _aNetworkInterfaceId :: !(Maybe Text) - , _aPrivateIPAddress :: !(Maybe Text) - , _aPublicIP :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Address' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'aAssociationId' - The ID representing the association of the address with an instance in a VPC. --- --- * 'aInstanceId' - The ID of the instance that the address is associated with (if any). --- --- * 'aNetworkInterfaceOwnerId' - The ID of the AWS account that owns the network interface. --- --- * 'aAllocationId' - The ID representing the allocation of the address for use with EC2-VPC. --- --- * 'aDomain' - Indicates whether this Elastic IP address is for use with instances in EC2-Classic (@standard@ ) or instances in a VPC (@vpc@ ). --- --- * 'aNetworkInterfaceId' - The ID of the network interface. --- --- * 'aPrivateIPAddress' - The private IP address associated with the Elastic IP address. --- --- * 'aPublicIP' - The Elastic IP address. -address - :: Address -address = - Address' - { _aAssociationId = Nothing - , _aInstanceId = Nothing - , _aNetworkInterfaceOwnerId = Nothing - , _aAllocationId = Nothing - , _aDomain = Nothing - , _aNetworkInterfaceId = Nothing - , _aPrivateIPAddress = Nothing - , _aPublicIP = Nothing - } - - --- | The ID representing the association of the address with an instance in a VPC. -aAssociationId :: Lens' Address (Maybe Text) -aAssociationId = lens _aAssociationId (\ s a -> s{_aAssociationId = a}); - --- | The ID of the instance that the address is associated with (if any). -aInstanceId :: Lens' Address (Maybe Text) -aInstanceId = lens _aInstanceId (\ s a -> s{_aInstanceId = a}); - --- | The ID of the AWS account that owns the network interface. -aNetworkInterfaceOwnerId :: Lens' Address (Maybe Text) -aNetworkInterfaceOwnerId = lens _aNetworkInterfaceOwnerId (\ s a -> s{_aNetworkInterfaceOwnerId = a}); - --- | The ID representing the allocation of the address for use with EC2-VPC. -aAllocationId :: Lens' Address (Maybe Text) -aAllocationId = lens _aAllocationId (\ s a -> s{_aAllocationId = a}); - --- | Indicates whether this Elastic IP address is for use with instances in EC2-Classic (@standard@ ) or instances in a VPC (@vpc@ ). -aDomain :: Lens' Address (Maybe DomainType) -aDomain = lens _aDomain (\ s a -> s{_aDomain = a}); - --- | The ID of the network interface. -aNetworkInterfaceId :: Lens' Address (Maybe Text) -aNetworkInterfaceId = lens _aNetworkInterfaceId (\ s a -> s{_aNetworkInterfaceId = a}); - --- | The private IP address associated with the Elastic IP address. -aPrivateIPAddress :: Lens' Address (Maybe Text) -aPrivateIPAddress = lens _aPrivateIPAddress (\ s a -> s{_aPrivateIPAddress = a}); - --- | The Elastic IP address. -aPublicIP :: Lens' Address (Maybe Text) -aPublicIP = lens _aPublicIP (\ s a -> s{_aPublicIP = a}); - -instance FromXML Address where - parseXML x - = Address' <$> - (x .@? "associationId") <*> (x .@? "instanceId") <*> - (x .@? "networkInterfaceOwnerId") - <*> (x .@? "allocationId") - <*> (x .@? "domain") - <*> (x .@? "networkInterfaceId") - <*> (x .@? "privateIpAddress") - <*> (x .@? "publicIp") - -instance Hashable Address where - -instance NFData Address where - --- | Describes a value for a resource attribute that is a Boolean value. --- --- --- --- /See:/ 'attributeBooleanValue' smart constructor. -newtype AttributeBooleanValue = AttributeBooleanValue' - { _abvValue :: Maybe Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AttributeBooleanValue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'abvValue' - The attribute value. The valid values are @true@ or @false@ . -attributeBooleanValue - :: AttributeBooleanValue -attributeBooleanValue = AttributeBooleanValue' {_abvValue = Nothing} - - --- | The attribute value. The valid values are @true@ or @false@ . -abvValue :: Lens' AttributeBooleanValue (Maybe Bool) -abvValue = lens _abvValue (\ s a -> s{_abvValue = a}); - -instance FromXML AttributeBooleanValue where - parseXML x - = AttributeBooleanValue' <$> (x .@? "value") - -instance Hashable AttributeBooleanValue where - -instance NFData AttributeBooleanValue where - -instance ToQuery AttributeBooleanValue where - toQuery AttributeBooleanValue'{..} - = mconcat ["Value" =: _abvValue] - --- | Describes a value for a resource attribute that is a String. --- --- --- --- /See:/ 'attributeValue' smart constructor. -newtype AttributeValue = AttributeValue' - { _avValue :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AttributeValue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'avValue' - The attribute value. Note that the value is case-sensitive. -attributeValue - :: AttributeValue -attributeValue = AttributeValue' {_avValue = Nothing} - - --- | The attribute value. Note that the value is case-sensitive. -avValue :: Lens' AttributeValue (Maybe Text) -avValue = lens _avValue (\ s a -> s{_avValue = a}); - -instance FromXML AttributeValue where - parseXML x = AttributeValue' <$> (x .@? "value") - -instance Hashable AttributeValue where - -instance NFData AttributeValue where - -instance ToQuery AttributeValue where - toQuery AttributeValue'{..} - = mconcat ["Value" =: _avValue] - --- | Describes an Availability Zone. --- --- --- --- /See:/ 'availabilityZone' smart constructor. -data AvailabilityZone = AvailabilityZone' - { _azState :: !(Maybe AvailabilityZoneState) - , _azRegionName :: !(Maybe Text) - , _azZoneName :: !(Maybe Text) - , _azMessages :: !(Maybe [AvailabilityZoneMessage]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'azState' - The state of the Availability Zone. --- --- * 'azRegionName' - The name of the region. --- --- * 'azZoneName' - The name of the Availability Zone. --- --- * 'azMessages' - Any messages about the Availability Zone. -availabilityZone - :: AvailabilityZone -availabilityZone = - AvailabilityZone' - { _azState = Nothing - , _azRegionName = Nothing - , _azZoneName = Nothing - , _azMessages = Nothing - } - - --- | The state of the Availability Zone. -azState :: Lens' AvailabilityZone (Maybe AvailabilityZoneState) -azState = lens _azState (\ s a -> s{_azState = a}); - --- | The name of the region. -azRegionName :: Lens' AvailabilityZone (Maybe Text) -azRegionName = lens _azRegionName (\ s a -> s{_azRegionName = a}); - --- | The name of the Availability Zone. -azZoneName :: Lens' AvailabilityZone (Maybe Text) -azZoneName = lens _azZoneName (\ s a -> s{_azZoneName = a}); - --- | Any messages about the Availability Zone. -azMessages :: Lens' AvailabilityZone [AvailabilityZoneMessage] -azMessages = lens _azMessages (\ s a -> s{_azMessages = a}) . _Default . _Coerce; - -instance FromXML AvailabilityZone where - parseXML x - = AvailabilityZone' <$> - (x .@? "zoneState") <*> (x .@? "regionName") <*> - (x .@? "zoneName") - <*> - (x .@? "messageSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable AvailabilityZone where - -instance NFData AvailabilityZone where - --- | Describes a message about an Availability Zone. --- --- --- --- /See:/ 'availabilityZoneMessage' smart constructor. -newtype AvailabilityZoneMessage = AvailabilityZoneMessage' - { _azmMessage :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AvailabilityZoneMessage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'azmMessage' - The message about the Availability Zone. -availabilityZoneMessage - :: AvailabilityZoneMessage -availabilityZoneMessage = AvailabilityZoneMessage' {_azmMessage = Nothing} - - --- | The message about the Availability Zone. -azmMessage :: Lens' AvailabilityZoneMessage (Maybe Text) -azmMessage = lens _azmMessage (\ s a -> s{_azmMessage = a}); - -instance FromXML AvailabilityZoneMessage where - parseXML x - = AvailabilityZoneMessage' <$> (x .@? "message") - -instance Hashable AvailabilityZoneMessage where - -instance NFData AvailabilityZoneMessage where - --- | The capacity information for instances launched onto the Dedicated Host. --- --- --- --- /See:/ 'availableCapacity' smart constructor. -data AvailableCapacity = AvailableCapacity' - { _acAvailableInstanceCapacity :: !(Maybe [InstanceCapacity]) - , _acAvailableVCPUs :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'AvailableCapacity' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'acAvailableInstanceCapacity' - The total number of instances that the Dedicated Host supports. --- --- * 'acAvailableVCPUs' - The number of vCPUs available on the Dedicated Host. -availableCapacity - :: AvailableCapacity -availableCapacity = - AvailableCapacity' - {_acAvailableInstanceCapacity = Nothing, _acAvailableVCPUs = Nothing} - - --- | The total number of instances that the Dedicated Host supports. -acAvailableInstanceCapacity :: Lens' AvailableCapacity [InstanceCapacity] -acAvailableInstanceCapacity = lens _acAvailableInstanceCapacity (\ s a -> s{_acAvailableInstanceCapacity = a}) . _Default . _Coerce; - --- | The number of vCPUs available on the Dedicated Host. -acAvailableVCPUs :: Lens' AvailableCapacity (Maybe Int) -acAvailableVCPUs = lens _acAvailableVCPUs (\ s a -> s{_acAvailableVCPUs = a}); - -instance FromXML AvailableCapacity where - parseXML x - = AvailableCapacity' <$> - (x .@? "availableInstanceCapacity" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "availableVCpus") - -instance Hashable AvailableCapacity where - -instance NFData AvailableCapacity where - --- | /See:/ 'blobAttributeValue' smart constructor. -newtype BlobAttributeValue = BlobAttributeValue' - { _bavValue :: Maybe Base64 - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'BlobAttributeValue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'bavValue' - Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. -blobAttributeValue - :: BlobAttributeValue -blobAttributeValue = BlobAttributeValue' {_bavValue = Nothing} - - --- | Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. -bavValue :: Lens' BlobAttributeValue (Maybe ByteString) -bavValue = lens _bavValue (\ s a -> s{_bavValue = a}) . mapping _Base64; - -instance Hashable BlobAttributeValue where - -instance NFData BlobAttributeValue where - -instance ToQuery BlobAttributeValue where - toQuery BlobAttributeValue'{..} - = mconcat ["Value" =: _bavValue] - --- | Describes a block device mapping. --- --- --- --- /See:/ 'blockDeviceMapping' smart constructor. -data BlockDeviceMapping = BlockDeviceMapping' - { _bdmVirtualName :: !(Maybe Text) - , _bdmNoDevice :: !(Maybe Text) - , _bdmEBS :: !(Maybe EBSBlockDevice) - , _bdmDeviceName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'BlockDeviceMapping' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'bdmVirtualName' - The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ .The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. --- --- * 'bdmNoDevice' - Suppresses the specified device included in the block device mapping of the AMI. --- --- * 'bdmEBS' - Parameters used to automatically set up EBS volumes when the instance is launched. --- --- * 'bdmDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). -blockDeviceMapping - :: Text -- ^ 'bdmDeviceName' - -> BlockDeviceMapping -blockDeviceMapping pDeviceName_ = - BlockDeviceMapping' - { _bdmVirtualName = Nothing - , _bdmNoDevice = Nothing - , _bdmEBS = Nothing - , _bdmDeviceName = pDeviceName_ - } - - --- | The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ .The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. -bdmVirtualName :: Lens' BlockDeviceMapping (Maybe Text) -bdmVirtualName = lens _bdmVirtualName (\ s a -> s{_bdmVirtualName = a}); - --- | Suppresses the specified device included in the block device mapping of the AMI. -bdmNoDevice :: Lens' BlockDeviceMapping (Maybe Text) -bdmNoDevice = lens _bdmNoDevice (\ s a -> s{_bdmNoDevice = a}); - --- | Parameters used to automatically set up EBS volumes when the instance is launched. -bdmEBS :: Lens' BlockDeviceMapping (Maybe EBSBlockDevice) -bdmEBS = lens _bdmEBS (\ s a -> s{_bdmEBS = a}); - --- | The device name (for example, @/dev/sdh@ or @xvdh@ ). -bdmDeviceName :: Lens' BlockDeviceMapping Text -bdmDeviceName = lens _bdmDeviceName (\ s a -> s{_bdmDeviceName = a}); - -instance FromXML BlockDeviceMapping where - parseXML x - = BlockDeviceMapping' <$> - (x .@? "virtualName") <*> (x .@? "noDevice") <*> - (x .@? "ebs") - <*> (x .@ "deviceName") - -instance Hashable BlockDeviceMapping where - -instance NFData BlockDeviceMapping where - -instance ToQuery BlockDeviceMapping where - toQuery BlockDeviceMapping'{..} - = mconcat - ["VirtualName" =: _bdmVirtualName, - "NoDevice" =: _bdmNoDevice, "Ebs" =: _bdmEBS, - "DeviceName" =: _bdmDeviceName] - --- | Describes a bundle task. --- --- --- --- /See:/ 'bundleTask' smart constructor. -data BundleTask = BundleTask' - { _btBundleTaskError :: !(Maybe BundleTaskError) - , _btBundleId :: !Text - , _btInstanceId :: !Text - , _btProgress :: !Text - , _btStartTime :: !ISO8601 - , _btState :: !BundleTaskState - , _btStorage :: !Storage - , _btUpdateTime :: !ISO8601 - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'BundleTask' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'btBundleTaskError' - If the task fails, a description of the error. --- --- * 'btBundleId' - The ID of the bundle task. --- --- * 'btInstanceId' - The ID of the instance associated with this bundle task. --- --- * 'btProgress' - The level of task completion, as a percent (for example, 20%). --- --- * 'btStartTime' - The time this task started. --- --- * 'btState' - The state of the task. --- --- * 'btStorage' - The Amazon S3 storage locations. --- --- * 'btUpdateTime' - The time of the most recent update for the task. -bundleTask - :: Text -- ^ 'btBundleId' - -> Text -- ^ 'btInstanceId' - -> Text -- ^ 'btProgress' - -> UTCTime -- ^ 'btStartTime' - -> BundleTaskState -- ^ 'btState' - -> Storage -- ^ 'btStorage' - -> UTCTime -- ^ 'btUpdateTime' - -> BundleTask -bundleTask pBundleId_ pInstanceId_ pProgress_ pStartTime_ pState_ pStorage_ pUpdateTime_ = - BundleTask' - { _btBundleTaskError = Nothing - , _btBundleId = pBundleId_ - , _btInstanceId = pInstanceId_ - , _btProgress = pProgress_ - , _btStartTime = _Time # pStartTime_ - , _btState = pState_ - , _btStorage = pStorage_ - , _btUpdateTime = _Time # pUpdateTime_ - } - - --- | If the task fails, a description of the error. -btBundleTaskError :: Lens' BundleTask (Maybe BundleTaskError) -btBundleTaskError = lens _btBundleTaskError (\ s a -> s{_btBundleTaskError = a}); - --- | The ID of the bundle task. -btBundleId :: Lens' BundleTask Text -btBundleId = lens _btBundleId (\ s a -> s{_btBundleId = a}); - --- | The ID of the instance associated with this bundle task. -btInstanceId :: Lens' BundleTask Text -btInstanceId = lens _btInstanceId (\ s a -> s{_btInstanceId = a}); - --- | The level of task completion, as a percent (for example, 20%). -btProgress :: Lens' BundleTask Text -btProgress = lens _btProgress (\ s a -> s{_btProgress = a}); - --- | The time this task started. -btStartTime :: Lens' BundleTask UTCTime -btStartTime = lens _btStartTime (\ s a -> s{_btStartTime = a}) . _Time; - --- | The state of the task. -btState :: Lens' BundleTask BundleTaskState -btState = lens _btState (\ s a -> s{_btState = a}); - --- | The Amazon S3 storage locations. -btStorage :: Lens' BundleTask Storage -btStorage = lens _btStorage (\ s a -> s{_btStorage = a}); - --- | The time of the most recent update for the task. -btUpdateTime :: Lens' BundleTask UTCTime -btUpdateTime = lens _btUpdateTime (\ s a -> s{_btUpdateTime = a}) . _Time; - -instance FromXML BundleTask where - parseXML x - = BundleTask' <$> - (x .@? "error") <*> (x .@ "bundleId") <*> - (x .@ "instanceId") - <*> (x .@ "progress") - <*> (x .@ "startTime") - <*> (x .@ "state") - <*> (x .@ "storage") - <*> (x .@ "updateTime") - -instance Hashable BundleTask where - -instance NFData BundleTask where - --- | Describes an error for 'BundleInstance' . --- --- --- --- /See:/ 'bundleTaskError' smart constructor. -data BundleTaskError = BundleTaskError' - { _bteCode :: !(Maybe Text) - , _bteMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'BundleTaskError' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'bteCode' - The error code. --- --- * 'bteMessage' - The error message. -bundleTaskError - :: BundleTaskError -bundleTaskError = BundleTaskError' {_bteCode = Nothing, _bteMessage = Nothing} - - --- | The error code. -bteCode :: Lens' BundleTaskError (Maybe Text) -bteCode = lens _bteCode (\ s a -> s{_bteCode = a}); - --- | The error message. -bteMessage :: Lens' BundleTaskError (Maybe Text) -bteMessage = lens _bteMessage (\ s a -> s{_bteMessage = a}); - -instance FromXML BundleTaskError where - parseXML x - = BundleTaskError' <$> - (x .@? "code") <*> (x .@? "message") - -instance Hashable BundleTaskError where - -instance NFData BundleTaskError where - --- | Describes a Spot fleet error. --- --- --- --- /See:/ 'cancelSpotFleetRequestsError' smart constructor. -data CancelSpotFleetRequestsError = CancelSpotFleetRequestsError' - { _csfreCode :: !CancelBatchErrorCode - , _csfreMessage :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelSpotFleetRequestsError' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csfreCode' - The error code. --- --- * 'csfreMessage' - The description for the error code. -cancelSpotFleetRequestsError - :: CancelBatchErrorCode -- ^ 'csfreCode' - -> Text -- ^ 'csfreMessage' - -> CancelSpotFleetRequestsError -cancelSpotFleetRequestsError pCode_ pMessage_ = - CancelSpotFleetRequestsError' {_csfreCode = pCode_, _csfreMessage = pMessage_} - - --- | The error code. -csfreCode :: Lens' CancelSpotFleetRequestsError CancelBatchErrorCode -csfreCode = lens _csfreCode (\ s a -> s{_csfreCode = a}); - --- | The description for the error code. -csfreMessage :: Lens' CancelSpotFleetRequestsError Text -csfreMessage = lens _csfreMessage (\ s a -> s{_csfreMessage = a}); - -instance FromXML CancelSpotFleetRequestsError where - parseXML x - = CancelSpotFleetRequestsError' <$> - (x .@ "code") <*> (x .@ "message") - -instance Hashable CancelSpotFleetRequestsError where - -instance NFData CancelSpotFleetRequestsError where - --- | Describes a Spot fleet request that was not successfully canceled. --- --- --- --- /See:/ 'cancelSpotFleetRequestsErrorItem' smart constructor. -data CancelSpotFleetRequestsErrorItem = CancelSpotFleetRequestsErrorItem' - { _csfreiError :: !CancelSpotFleetRequestsError - , _csfreiSpotFleetRequestId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelSpotFleetRequestsErrorItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csfreiError' - The error. --- --- * 'csfreiSpotFleetRequestId' - The ID of the Spot fleet request. -cancelSpotFleetRequestsErrorItem - :: CancelSpotFleetRequestsError -- ^ 'csfreiError' - -> Text -- ^ 'csfreiSpotFleetRequestId' - -> CancelSpotFleetRequestsErrorItem -cancelSpotFleetRequestsErrorItem pError_ pSpotFleetRequestId_ = - CancelSpotFleetRequestsErrorItem' - {_csfreiError = pError_, _csfreiSpotFleetRequestId = pSpotFleetRequestId_} - - --- | The error. -csfreiError :: Lens' CancelSpotFleetRequestsErrorItem CancelSpotFleetRequestsError -csfreiError = lens _csfreiError (\ s a -> s{_csfreiError = a}); - --- | The ID of the Spot fleet request. -csfreiSpotFleetRequestId :: Lens' CancelSpotFleetRequestsErrorItem Text -csfreiSpotFleetRequestId = lens _csfreiSpotFleetRequestId (\ s a -> s{_csfreiSpotFleetRequestId = a}); - -instance FromXML CancelSpotFleetRequestsErrorItem - where - parseXML x - = CancelSpotFleetRequestsErrorItem' <$> - (x .@ "error") <*> (x .@ "spotFleetRequestId") - -instance Hashable CancelSpotFleetRequestsErrorItem - where - -instance NFData CancelSpotFleetRequestsErrorItem - where - --- | Describes a Spot fleet request that was successfully canceled. --- --- --- --- /See:/ 'cancelSpotFleetRequestsSuccessItem' smart constructor. -data CancelSpotFleetRequestsSuccessItem = CancelSpotFleetRequestsSuccessItem' - { _csfrsiCurrentSpotFleetRequestState :: !BatchState - , _csfrsiPreviousSpotFleetRequestState :: !BatchState - , _csfrsiSpotFleetRequestId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelSpotFleetRequestsSuccessItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csfrsiCurrentSpotFleetRequestState' - The current state of the Spot fleet request. --- --- * 'csfrsiPreviousSpotFleetRequestState' - The previous state of the Spot fleet request. --- --- * 'csfrsiSpotFleetRequestId' - The ID of the Spot fleet request. -cancelSpotFleetRequestsSuccessItem - :: BatchState -- ^ 'csfrsiCurrentSpotFleetRequestState' - -> BatchState -- ^ 'csfrsiPreviousSpotFleetRequestState' - -> Text -- ^ 'csfrsiSpotFleetRequestId' - -> CancelSpotFleetRequestsSuccessItem -cancelSpotFleetRequestsSuccessItem pCurrentSpotFleetRequestState_ pPreviousSpotFleetRequestState_ pSpotFleetRequestId_ = - CancelSpotFleetRequestsSuccessItem' - { _csfrsiCurrentSpotFleetRequestState = pCurrentSpotFleetRequestState_ - , _csfrsiPreviousSpotFleetRequestState = pPreviousSpotFleetRequestState_ - , _csfrsiSpotFleetRequestId = pSpotFleetRequestId_ - } - - --- | The current state of the Spot fleet request. -csfrsiCurrentSpotFleetRequestState :: Lens' CancelSpotFleetRequestsSuccessItem BatchState -csfrsiCurrentSpotFleetRequestState = lens _csfrsiCurrentSpotFleetRequestState (\ s a -> s{_csfrsiCurrentSpotFleetRequestState = a}); - --- | The previous state of the Spot fleet request. -csfrsiPreviousSpotFleetRequestState :: Lens' CancelSpotFleetRequestsSuccessItem BatchState -csfrsiPreviousSpotFleetRequestState = lens _csfrsiPreviousSpotFleetRequestState (\ s a -> s{_csfrsiPreviousSpotFleetRequestState = a}); - --- | The ID of the Spot fleet request. -csfrsiSpotFleetRequestId :: Lens' CancelSpotFleetRequestsSuccessItem Text -csfrsiSpotFleetRequestId = lens _csfrsiSpotFleetRequestId (\ s a -> s{_csfrsiSpotFleetRequestId = a}); - -instance FromXML CancelSpotFleetRequestsSuccessItem - where - parseXML x - = CancelSpotFleetRequestsSuccessItem' <$> - (x .@ "currentSpotFleetRequestState") <*> - (x .@ "previousSpotFleetRequestState") - <*> (x .@ "spotFleetRequestId") - -instance Hashable CancelSpotFleetRequestsSuccessItem - where - -instance NFData CancelSpotFleetRequestsSuccessItem - where - --- | Describes a request to cancel a Spot instance. --- --- --- --- /See:/ 'cancelledSpotInstanceRequest' smart constructor. -data CancelledSpotInstanceRequest = CancelledSpotInstanceRequest' - { _csirState :: !(Maybe CancelSpotInstanceRequestState) - , _csirSpotInstanceRequestId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CancelledSpotInstanceRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'csirState' - The state of the Spot instance request. --- --- * 'csirSpotInstanceRequestId' - The ID of the Spot instance request. -cancelledSpotInstanceRequest - :: CancelledSpotInstanceRequest -cancelledSpotInstanceRequest = - CancelledSpotInstanceRequest' - {_csirState = Nothing, _csirSpotInstanceRequestId = Nothing} - - --- | The state of the Spot instance request. -csirState :: Lens' CancelledSpotInstanceRequest (Maybe CancelSpotInstanceRequestState) -csirState = lens _csirState (\ s a -> s{_csirState = a}); - --- | The ID of the Spot instance request. -csirSpotInstanceRequestId :: Lens' CancelledSpotInstanceRequest (Maybe Text) -csirSpotInstanceRequestId = lens _csirSpotInstanceRequestId (\ s a -> s{_csirSpotInstanceRequestId = a}); - -instance FromXML CancelledSpotInstanceRequest where - parseXML x - = CancelledSpotInstanceRequest' <$> - (x .@? "state") <*> (x .@? "spotInstanceRequestId") - -instance Hashable CancelledSpotInstanceRequest where - -instance NFData CancelledSpotInstanceRequest where - --- | Describes an IPv4 CIDR block. --- --- --- --- /See:/ 'cidrBlock' smart constructor. -newtype CidrBlock = CidrBlock' - { _cbCidrBlock :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CidrBlock' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cbCidrBlock' - The IPv4 CIDR block. -cidrBlock - :: CidrBlock -cidrBlock = CidrBlock' {_cbCidrBlock = Nothing} - - --- | The IPv4 CIDR block. -cbCidrBlock :: Lens' CidrBlock (Maybe Text) -cbCidrBlock = lens _cbCidrBlock (\ s a -> s{_cbCidrBlock = a}); - -instance FromXML CidrBlock where - parseXML x = CidrBlock' <$> (x .@? "cidrBlock") - -instance Hashable CidrBlock where - -instance NFData CidrBlock where - --- | Describes the ClassicLink DNS support status of a VPC. --- --- --- --- /See:/ 'classicLinkDNSSupport' smart constructor. -data ClassicLinkDNSSupport = ClassicLinkDNSSupport' - { _cldsVPCId :: !(Maybe Text) - , _cldsClassicLinkDNSSupported :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ClassicLinkDNSSupport' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cldsVPCId' - The ID of the VPC. --- --- * 'cldsClassicLinkDNSSupported' - Indicates whether ClassicLink DNS support is enabled for the VPC. -classicLinkDNSSupport - :: ClassicLinkDNSSupport -classicLinkDNSSupport = - ClassicLinkDNSSupport' - {_cldsVPCId = Nothing, _cldsClassicLinkDNSSupported = Nothing} - - --- | The ID of the VPC. -cldsVPCId :: Lens' ClassicLinkDNSSupport (Maybe Text) -cldsVPCId = lens _cldsVPCId (\ s a -> s{_cldsVPCId = a}); - --- | Indicates whether ClassicLink DNS support is enabled for the VPC. -cldsClassicLinkDNSSupported :: Lens' ClassicLinkDNSSupport (Maybe Bool) -cldsClassicLinkDNSSupported = lens _cldsClassicLinkDNSSupported (\ s a -> s{_cldsClassicLinkDNSSupported = a}); - -instance FromXML ClassicLinkDNSSupport where - parseXML x - = ClassicLinkDNSSupport' <$> - (x .@? "vpcId") <*> (x .@? "classicLinkDnsSupported") - -instance Hashable ClassicLinkDNSSupport where - -instance NFData ClassicLinkDNSSupport where - --- | Describes a linked EC2-Classic instance. --- --- --- --- /See:/ 'classicLinkInstance' smart constructor. -data ClassicLinkInstance = ClassicLinkInstance' - { _cliInstanceId :: !(Maybe Text) - , _cliGroups :: !(Maybe [GroupIdentifier]) - , _cliVPCId :: !(Maybe Text) - , _cliTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ClassicLinkInstance' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cliInstanceId' - The ID of the instance. --- --- * 'cliGroups' - A list of security groups. --- --- * 'cliVPCId' - The ID of the VPC. --- --- * 'cliTags' - Any tags assigned to the instance. -classicLinkInstance - :: ClassicLinkInstance -classicLinkInstance = - ClassicLinkInstance' - { _cliInstanceId = Nothing - , _cliGroups = Nothing - , _cliVPCId = Nothing - , _cliTags = Nothing - } - - --- | The ID of the instance. -cliInstanceId :: Lens' ClassicLinkInstance (Maybe Text) -cliInstanceId = lens _cliInstanceId (\ s a -> s{_cliInstanceId = a}); - --- | A list of security groups. -cliGroups :: Lens' ClassicLinkInstance [GroupIdentifier] -cliGroups = lens _cliGroups (\ s a -> s{_cliGroups = a}) . _Default . _Coerce; - --- | The ID of the VPC. -cliVPCId :: Lens' ClassicLinkInstance (Maybe Text) -cliVPCId = lens _cliVPCId (\ s a -> s{_cliVPCId = a}); - --- | Any tags assigned to the instance. -cliTags :: Lens' ClassicLinkInstance [Tag] -cliTags = lens _cliTags (\ s a -> s{_cliTags = a}) . _Default . _Coerce; - -instance FromXML ClassicLinkInstance where - parseXML x - = ClassicLinkInstance' <$> - (x .@? "instanceId") <*> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpcId") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable ClassicLinkInstance where - -instance NFData ClassicLinkInstance where - --- | Describes a Classic Load Balancer. --- --- --- --- /See:/ 'classicLoadBalancer' smart constructor. -newtype ClassicLoadBalancer = ClassicLoadBalancer' - { _clbName :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ClassicLoadBalancer' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'clbName' - The name of the load balancer. -classicLoadBalancer - :: Text -- ^ 'clbName' - -> ClassicLoadBalancer -classicLoadBalancer pName_ = ClassicLoadBalancer' {_clbName = pName_} - - --- | The name of the load balancer. -clbName :: Lens' ClassicLoadBalancer Text -clbName = lens _clbName (\ s a -> s{_clbName = a}); - -instance FromXML ClassicLoadBalancer where - parseXML x = ClassicLoadBalancer' <$> (x .@ "name") - -instance Hashable ClassicLoadBalancer where - -instance NFData ClassicLoadBalancer where - -instance ToQuery ClassicLoadBalancer where - toQuery ClassicLoadBalancer'{..} - = mconcat ["Name" =: _clbName] - --- | Describes the Classic Load Balancers to attach to a Spot fleet. Spot fleet registers the running Spot instances with these Classic Load Balancers. --- --- --- --- /See:/ 'classicLoadBalancersConfig' smart constructor. -newtype ClassicLoadBalancersConfig = ClassicLoadBalancersConfig' - { _clbcClassicLoadBalancers :: List1 ClassicLoadBalancer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ClassicLoadBalancersConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'clbcClassicLoadBalancers' - One or more Classic Load Balancers. -classicLoadBalancersConfig - :: NonEmpty ClassicLoadBalancer -- ^ 'clbcClassicLoadBalancers' - -> ClassicLoadBalancersConfig -classicLoadBalancersConfig pClassicLoadBalancers_ = - ClassicLoadBalancersConfig' - {_clbcClassicLoadBalancers = _List1 # pClassicLoadBalancers_} - - --- | One or more Classic Load Balancers. -clbcClassicLoadBalancers :: Lens' ClassicLoadBalancersConfig (NonEmpty ClassicLoadBalancer) -clbcClassicLoadBalancers = lens _clbcClassicLoadBalancers (\ s a -> s{_clbcClassicLoadBalancers = a}) . _List1; - -instance FromXML ClassicLoadBalancersConfig where - parseXML x - = ClassicLoadBalancersConfig' <$> - (x .@? "classicLoadBalancers" .!@ mempty >>= - parseXMLList1 "item") - -instance Hashable ClassicLoadBalancersConfig where - -instance NFData ClassicLoadBalancersConfig where - -instance ToQuery ClassicLoadBalancersConfig where - toQuery ClassicLoadBalancersConfig'{..} - = mconcat - [toQueryList "ClassicLoadBalancers" - _clbcClassicLoadBalancers] - --- | Describes the client-specific data. --- --- --- --- /See:/ 'clientData' smart constructor. -data ClientData = ClientData' - { _cdUploadStart :: !(Maybe ISO8601) - , _cdUploadSize :: !(Maybe Double) - , _cdUploadEnd :: !(Maybe ISO8601) - , _cdComment :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ClientData' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cdUploadStart' - The time that the disk upload starts. --- --- * 'cdUploadSize' - The size of the uploaded disk image, in GiB. --- --- * 'cdUploadEnd' - The time that the disk upload ends. --- --- * 'cdComment' - A user-defined comment about the disk upload. -clientData - :: ClientData -clientData = - ClientData' - { _cdUploadStart = Nothing - , _cdUploadSize = Nothing - , _cdUploadEnd = Nothing - , _cdComment = Nothing - } - - --- | The time that the disk upload starts. -cdUploadStart :: Lens' ClientData (Maybe UTCTime) -cdUploadStart = lens _cdUploadStart (\ s a -> s{_cdUploadStart = a}) . mapping _Time; - --- | The size of the uploaded disk image, in GiB. -cdUploadSize :: Lens' ClientData (Maybe Double) -cdUploadSize = lens _cdUploadSize (\ s a -> s{_cdUploadSize = a}); - --- | The time that the disk upload ends. -cdUploadEnd :: Lens' ClientData (Maybe UTCTime) -cdUploadEnd = lens _cdUploadEnd (\ s a -> s{_cdUploadEnd = a}) . mapping _Time; - --- | A user-defined comment about the disk upload. -cdComment :: Lens' ClientData (Maybe Text) -cdComment = lens _cdComment (\ s a -> s{_cdComment = a}); - -instance Hashable ClientData where - -instance NFData ClientData where - -instance ToQuery ClientData where - toQuery ClientData'{..} - = mconcat - ["UploadStart" =: _cdUploadStart, - "UploadSize" =: _cdUploadSize, - "UploadEnd" =: _cdUploadEnd, "Comment" =: _cdComment] - --- | Describes a conversion task. --- --- --- --- /See:/ 'conversionTask' smart constructor. -data ConversionTask = ConversionTask' - { _ctImportInstance :: !(Maybe ImportInstanceTaskDetails) - , _ctStatusMessage :: !(Maybe Text) - , _ctImportVolume :: !(Maybe ImportVolumeTaskDetails) - , _ctExpirationTime :: !(Maybe Text) - , _ctTags :: !(Maybe [Tag]) - , _ctConversionTaskId :: !Text - , _ctState :: !ConversionTaskState - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ConversionTask' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ctImportInstance' - If the task is for importing an instance, this contains information about the import instance task. --- --- * 'ctStatusMessage' - The status message related to the conversion task. --- --- * 'ctImportVolume' - If the task is for importing a volume, this contains information about the import volume task. --- --- * 'ctExpirationTime' - The time when the task expires. If the upload isn't complete before the expiration time, we automatically cancel the task. --- --- * 'ctTags' - Any tags assigned to the task. --- --- * 'ctConversionTaskId' - The ID of the conversion task. --- --- * 'ctState' - The state of the conversion task. -conversionTask - :: Text -- ^ 'ctConversionTaskId' - -> ConversionTaskState -- ^ 'ctState' - -> ConversionTask -conversionTask pConversionTaskId_ pState_ = - ConversionTask' - { _ctImportInstance = Nothing - , _ctStatusMessage = Nothing - , _ctImportVolume = Nothing - , _ctExpirationTime = Nothing - , _ctTags = Nothing - , _ctConversionTaskId = pConversionTaskId_ - , _ctState = pState_ - } - - --- | If the task is for importing an instance, this contains information about the import instance task. -ctImportInstance :: Lens' ConversionTask (Maybe ImportInstanceTaskDetails) -ctImportInstance = lens _ctImportInstance (\ s a -> s{_ctImportInstance = a}); - --- | The status message related to the conversion task. -ctStatusMessage :: Lens' ConversionTask (Maybe Text) -ctStatusMessage = lens _ctStatusMessage (\ s a -> s{_ctStatusMessage = a}); - --- | If the task is for importing a volume, this contains information about the import volume task. -ctImportVolume :: Lens' ConversionTask (Maybe ImportVolumeTaskDetails) -ctImportVolume = lens _ctImportVolume (\ s a -> s{_ctImportVolume = a}); - --- | The time when the task expires. If the upload isn't complete before the expiration time, we automatically cancel the task. -ctExpirationTime :: Lens' ConversionTask (Maybe Text) -ctExpirationTime = lens _ctExpirationTime (\ s a -> s{_ctExpirationTime = a}); - --- | Any tags assigned to the task. -ctTags :: Lens' ConversionTask [Tag] -ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Default . _Coerce; - --- | The ID of the conversion task. -ctConversionTaskId :: Lens' ConversionTask Text -ctConversionTaskId = lens _ctConversionTaskId (\ s a -> s{_ctConversionTaskId = a}); - --- | The state of the conversion task. -ctState :: Lens' ConversionTask ConversionTaskState -ctState = lens _ctState (\ s a -> s{_ctState = a}); - -instance FromXML ConversionTask where - parseXML x - = ConversionTask' <$> - (x .@? "importInstance") <*> (x .@? "statusMessage") - <*> (x .@? "importVolume") - <*> (x .@? "expirationTime") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "conversionTaskId") - <*> (x .@ "state") - -instance Hashable ConversionTask where - -instance NFData ConversionTask where - --- | Describes the user or group to be added or removed from the permissions for a volume. --- --- --- --- /See:/ 'createVolumePermission' smart constructor. -data CreateVolumePermission = CreateVolumePermission' - { _cvpGroup :: !(Maybe PermissionGroup) - , _cvpUserId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateVolumePermission' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cvpGroup' - The specific group that is to be added or removed from a volume's list of create volume permissions. --- --- * 'cvpUserId' - The specific AWS account ID that is to be added or removed from a volume's list of create volume permissions. -createVolumePermission - :: CreateVolumePermission -createVolumePermission = - CreateVolumePermission' {_cvpGroup = Nothing, _cvpUserId = Nothing} - - --- | The specific group that is to be added or removed from a volume's list of create volume permissions. -cvpGroup :: Lens' CreateVolumePermission (Maybe PermissionGroup) -cvpGroup = lens _cvpGroup (\ s a -> s{_cvpGroup = a}); - --- | The specific AWS account ID that is to be added or removed from a volume's list of create volume permissions. -cvpUserId :: Lens' CreateVolumePermission (Maybe Text) -cvpUserId = lens _cvpUserId (\ s a -> s{_cvpUserId = a}); - -instance FromXML CreateVolumePermission where - parseXML x - = CreateVolumePermission' <$> - (x .@? "group") <*> (x .@? "userId") - -instance Hashable CreateVolumePermission where - -instance NFData CreateVolumePermission where - -instance ToQuery CreateVolumePermission where - toQuery CreateVolumePermission'{..} - = mconcat - ["Group" =: _cvpGroup, "UserId" =: _cvpUserId] - --- | Describes modifications to the permissions for a volume. --- --- --- --- /See:/ 'createVolumePermissionModifications' smart constructor. -data CreateVolumePermissionModifications = CreateVolumePermissionModifications' - { _cvpmRemove :: !(Maybe [CreateVolumePermission]) - , _cvpmAdd :: !(Maybe [CreateVolumePermission]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CreateVolumePermissionModifications' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cvpmRemove' - Removes a specific AWS account ID or group from a volume's list of create volume permissions. --- --- * 'cvpmAdd' - Adds a specific AWS account ID or group to a volume's list of create volume permissions. -createVolumePermissionModifications - :: CreateVolumePermissionModifications -createVolumePermissionModifications = - CreateVolumePermissionModifications' - {_cvpmRemove = Nothing, _cvpmAdd = Nothing} - - --- | Removes a specific AWS account ID or group from a volume's list of create volume permissions. -cvpmRemove :: Lens' CreateVolumePermissionModifications [CreateVolumePermission] -cvpmRemove = lens _cvpmRemove (\ s a -> s{_cvpmRemove = a}) . _Default . _Coerce; - --- | Adds a specific AWS account ID or group to a volume's list of create volume permissions. -cvpmAdd :: Lens' CreateVolumePermissionModifications [CreateVolumePermission] -cvpmAdd = lens _cvpmAdd (\ s a -> s{_cvpmAdd = a}) . _Default . _Coerce; - -instance Hashable CreateVolumePermissionModifications - where - -instance NFData CreateVolumePermissionModifications - where - -instance ToQuery CreateVolumePermissionModifications - where - toQuery CreateVolumePermissionModifications'{..} - = mconcat - [toQuery (toQueryList "Remove" <$> _cvpmRemove), - toQuery (toQueryList "Add" <$> _cvpmAdd)] - --- | Describes a customer gateway. --- --- --- --- /See:/ 'customerGateway' smart constructor. -data CustomerGateway = CustomerGateway' - { _cgTags :: !(Maybe [Tag]) - , _cgBGPASN :: !Text - , _cgCustomerGatewayId :: !Text - , _cgIPAddress :: !Text - , _cgState :: !Text - , _cgType :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'CustomerGateway' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'cgTags' - Any tags assigned to the customer gateway. --- --- * 'cgBGPASN' - The customer gateway's Border Gateway Protocol (BGP) Autonomous System Number (ASN). --- --- * 'cgCustomerGatewayId' - The ID of the customer gateway. --- --- * 'cgIPAddress' - The Internet-routable IP address of the customer gateway's outside interface. --- --- * 'cgState' - The current state of the customer gateway (@pending | available | deleting | deleted@ ). --- --- * 'cgType' - The type of VPN connection the customer gateway supports (@ipsec.1@ ). -customerGateway - :: Text -- ^ 'cgBGPASN' - -> Text -- ^ 'cgCustomerGatewayId' - -> Text -- ^ 'cgIPAddress' - -> Text -- ^ 'cgState' - -> Text -- ^ 'cgType' - -> CustomerGateway -customerGateway pBGPASN_ pCustomerGatewayId_ pIPAddress_ pState_ pType_ = - CustomerGateway' - { _cgTags = Nothing - , _cgBGPASN = pBGPASN_ - , _cgCustomerGatewayId = pCustomerGatewayId_ - , _cgIPAddress = pIPAddress_ - , _cgState = pState_ - , _cgType = pType_ - } - - --- | Any tags assigned to the customer gateway. -cgTags :: Lens' CustomerGateway [Tag] -cgTags = lens _cgTags (\ s a -> s{_cgTags = a}) . _Default . _Coerce; - --- | The customer gateway's Border Gateway Protocol (BGP) Autonomous System Number (ASN). -cgBGPASN :: Lens' CustomerGateway Text -cgBGPASN = lens _cgBGPASN (\ s a -> s{_cgBGPASN = a}); - --- | The ID of the customer gateway. -cgCustomerGatewayId :: Lens' CustomerGateway Text -cgCustomerGatewayId = lens _cgCustomerGatewayId (\ s a -> s{_cgCustomerGatewayId = a}); - --- | The Internet-routable IP address of the customer gateway's outside interface. -cgIPAddress :: Lens' CustomerGateway Text -cgIPAddress = lens _cgIPAddress (\ s a -> s{_cgIPAddress = a}); - --- | The current state of the customer gateway (@pending | available | deleting | deleted@ ). -cgState :: Lens' CustomerGateway Text -cgState = lens _cgState (\ s a -> s{_cgState = a}); - --- | The type of VPN connection the customer gateway supports (@ipsec.1@ ). -cgType :: Lens' CustomerGateway Text -cgType = lens _cgType (\ s a -> s{_cgType = a}); - -instance FromXML CustomerGateway where - parseXML x - = CustomerGateway' <$> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "bgpAsn") - <*> (x .@ "customerGatewayId") - <*> (x .@ "ipAddress") - <*> (x .@ "state") - <*> (x .@ "type") - -instance Hashable CustomerGateway where - -instance NFData CustomerGateway where - --- | Describes a DHCP configuration option. --- --- --- --- /See:/ 'dhcpConfiguration' smart constructor. -data DHCPConfiguration = DHCPConfiguration' - { _dcValues :: !(Maybe [AttributeValue]) - , _dcKey :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DHCPConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dcValues' - One or more values for the DHCP option. --- --- * 'dcKey' - The name of a DHCP option. -dhcpConfiguration - :: DHCPConfiguration -dhcpConfiguration = DHCPConfiguration' {_dcValues = Nothing, _dcKey = Nothing} - - --- | One or more values for the DHCP option. -dcValues :: Lens' DHCPConfiguration [AttributeValue] -dcValues = lens _dcValues (\ s a -> s{_dcValues = a}) . _Default . _Coerce; - --- | The name of a DHCP option. -dcKey :: Lens' DHCPConfiguration (Maybe Text) -dcKey = lens _dcKey (\ s a -> s{_dcKey = a}); - -instance FromXML DHCPConfiguration where - parseXML x - = DHCPConfiguration' <$> - (x .@? "valueSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "key") - -instance Hashable DHCPConfiguration where - -instance NFData DHCPConfiguration where - --- | Describes a set of DHCP options. --- --- --- --- /See:/ 'dhcpOptions' smart constructor. -data DHCPOptions = DHCPOptions' - { _doDHCPConfigurations :: !(Maybe [DHCPConfiguration]) - , _doDHCPOptionsId :: !(Maybe Text) - , _doTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DHCPOptions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'doDHCPConfigurations' - One or more DHCP options in the set. --- --- * 'doDHCPOptionsId' - The ID of the set of DHCP options. --- --- * 'doTags' - Any tags assigned to the DHCP options set. -dhcpOptions - :: DHCPOptions -dhcpOptions = - DHCPOptions' - { _doDHCPConfigurations = Nothing - , _doDHCPOptionsId = Nothing - , _doTags = Nothing - } - - --- | One or more DHCP options in the set. -doDHCPConfigurations :: Lens' DHCPOptions [DHCPConfiguration] -doDHCPConfigurations = lens _doDHCPConfigurations (\ s a -> s{_doDHCPConfigurations = a}) . _Default . _Coerce; - --- | The ID of the set of DHCP options. -doDHCPOptionsId :: Lens' DHCPOptions (Maybe Text) -doDHCPOptionsId = lens _doDHCPOptionsId (\ s a -> s{_doDHCPOptionsId = a}); - --- | Any tags assigned to the DHCP options set. -doTags :: Lens' DHCPOptions [Tag] -doTags = lens _doTags (\ s a -> s{_doTags = a}) . _Default . _Coerce; - -instance FromXML DHCPOptions where - parseXML x - = DHCPOptions' <$> - (x .@? "dhcpConfigurationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "dhcpOptionsId") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable DHCPOptions where - -instance NFData DHCPOptions where - --- | Describes a DNS entry. --- --- --- --- /See:/ 'dnsEntry' smart constructor. -data DNSEntry = DNSEntry' - { _deHostedZoneId :: !(Maybe Text) - , _deDNSName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DNSEntry' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'deHostedZoneId' - The ID of the private hosted zone. --- --- * 'deDNSName' - The DNS name. -dnsEntry - :: DNSEntry -dnsEntry = DNSEntry' {_deHostedZoneId = Nothing, _deDNSName = Nothing} - - --- | The ID of the private hosted zone. -deHostedZoneId :: Lens' DNSEntry (Maybe Text) -deHostedZoneId = lens _deHostedZoneId (\ s a -> s{_deHostedZoneId = a}); - --- | The DNS name. -deDNSName :: Lens' DNSEntry (Maybe Text) -deDNSName = lens _deDNSName (\ s a -> s{_deDNSName = a}); - -instance FromXML DNSEntry where - parseXML x - = DNSEntry' <$> - (x .@? "hostedZoneId") <*> (x .@? "dnsName") - -instance Hashable DNSEntry where - -instance NFData DNSEntry where - --- | Describes a disk image. --- --- --- --- /See:/ 'diskImage' smart constructor. -data DiskImage = DiskImage' - { _diImage :: !(Maybe DiskImageDetail) - , _diVolume :: !(Maybe VolumeDetail) - , _diDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DiskImage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'diImage' - Information about the disk image. --- --- * 'diVolume' - Information about the volume. --- --- * 'diDescription' - A description of the disk image. -diskImage - :: DiskImage -diskImage = - DiskImage' {_diImage = Nothing, _diVolume = Nothing, _diDescription = Nothing} - - --- | Information about the disk image. -diImage :: Lens' DiskImage (Maybe DiskImageDetail) -diImage = lens _diImage (\ s a -> s{_diImage = a}); - --- | Information about the volume. -diVolume :: Lens' DiskImage (Maybe VolumeDetail) -diVolume = lens _diVolume (\ s a -> s{_diVolume = a}); - --- | A description of the disk image. -diDescription :: Lens' DiskImage (Maybe Text) -diDescription = lens _diDescription (\ s a -> s{_diDescription = a}); - -instance Hashable DiskImage where - -instance NFData DiskImage where - -instance ToQuery DiskImage where - toQuery DiskImage'{..} - = mconcat - ["Image" =: _diImage, "Volume" =: _diVolume, - "Description" =: _diDescription] - --- | Describes a disk image. --- --- --- --- /See:/ 'diskImageDescription' smart constructor. -data DiskImageDescription = DiskImageDescription' - { _dChecksum :: !(Maybe Text) - , _dFormat :: !DiskImageFormat - , _dImportManifestURL :: !Text - , _dSize :: !Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DiskImageDescription' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'dChecksum' - The checksum computed for the disk image. --- --- * 'dFormat' - The disk image format. --- --- * 'dImportManifestURL' - A presigned URL for the import manifest stored in Amazon S3. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . --- --- * 'dSize' - The size of the disk image, in GiB. -diskImageDescription - :: DiskImageFormat -- ^ 'dFormat' - -> Text -- ^ 'dImportManifestURL' - -> Integer -- ^ 'dSize' - -> DiskImageDescription -diskImageDescription pFormat_ pImportManifestURL_ pSize_ = - DiskImageDescription' - { _dChecksum = Nothing - , _dFormat = pFormat_ - , _dImportManifestURL = pImportManifestURL_ - , _dSize = pSize_ - } - - --- | The checksum computed for the disk image. -dChecksum :: Lens' DiskImageDescription (Maybe Text) -dChecksum = lens _dChecksum (\ s a -> s{_dChecksum = a}); - --- | The disk image format. -dFormat :: Lens' DiskImageDescription DiskImageFormat -dFormat = lens _dFormat (\ s a -> s{_dFormat = a}); - --- | A presigned URL for the import manifest stored in Amazon S3. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . -dImportManifestURL :: Lens' DiskImageDescription Text -dImportManifestURL = lens _dImportManifestURL (\ s a -> s{_dImportManifestURL = a}); - --- | The size of the disk image, in GiB. -dSize :: Lens' DiskImageDescription Integer -dSize = lens _dSize (\ s a -> s{_dSize = a}); - -instance FromXML DiskImageDescription where - parseXML x - = DiskImageDescription' <$> - (x .@? "checksum") <*> (x .@ "format") <*> - (x .@ "importManifestUrl") - <*> (x .@ "size") - -instance Hashable DiskImageDescription where - -instance NFData DiskImageDescription where - --- | Describes a disk image. --- --- --- --- /See:/ 'diskImageDetail' smart constructor. -data DiskImageDetail = DiskImageDetail' - { _didBytes :: !Integer - , _didFormat :: !DiskImageFormat - , _didImportManifestURL :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DiskImageDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'didBytes' - The size of the disk image, in GiB. --- --- * 'didFormat' - The disk image format. --- --- * 'didImportManifestURL' - A presigned URL for the import manifest stored in Amazon S3 and presented here as an Amazon S3 presigned URL. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . -diskImageDetail - :: Integer -- ^ 'didBytes' - -> DiskImageFormat -- ^ 'didFormat' - -> Text -- ^ 'didImportManifestURL' - -> DiskImageDetail -diskImageDetail pBytes_ pFormat_ pImportManifestURL_ = - DiskImageDetail' - { _didBytes = pBytes_ - , _didFormat = pFormat_ - , _didImportManifestURL = pImportManifestURL_ - } - - --- | The size of the disk image, in GiB. -didBytes :: Lens' DiskImageDetail Integer -didBytes = lens _didBytes (\ s a -> s{_didBytes = a}); - --- | The disk image format. -didFormat :: Lens' DiskImageDetail DiskImageFormat -didFormat = lens _didFormat (\ s a -> s{_didFormat = a}); - --- | A presigned URL for the import manifest stored in Amazon S3 and presented here as an Amazon S3 presigned URL. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . -didImportManifestURL :: Lens' DiskImageDetail Text -didImportManifestURL = lens _didImportManifestURL (\ s a -> s{_didImportManifestURL = a}); - -instance Hashable DiskImageDetail where - -instance NFData DiskImageDetail where - -instance ToQuery DiskImageDetail where - toQuery DiskImageDetail'{..} - = mconcat - ["Bytes" =: _didBytes, "Format" =: _didFormat, - "ImportManifestUrl" =: _didImportManifestURL] - --- | Describes a disk image volume. --- --- --- --- /See:/ 'diskImageVolumeDescription' smart constructor. -data DiskImageVolumeDescription = DiskImageVolumeDescription' - { _divdSize :: !(Maybe Integer) - , _divdId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'DiskImageVolumeDescription' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'divdSize' - The size of the volume, in GiB. --- --- * 'divdId' - The volume identifier. -diskImageVolumeDescription - :: Text -- ^ 'divdId' - -> DiskImageVolumeDescription -diskImageVolumeDescription pId_ = - DiskImageVolumeDescription' {_divdSize = Nothing, _divdId = pId_} - - --- | The size of the volume, in GiB. -divdSize :: Lens' DiskImageVolumeDescription (Maybe Integer) -divdSize = lens _divdSize (\ s a -> s{_divdSize = a}); - --- | The volume identifier. -divdId :: Lens' DiskImageVolumeDescription Text -divdId = lens _divdId (\ s a -> s{_divdId = a}); - -instance FromXML DiskImageVolumeDescription where - parseXML x - = DiskImageVolumeDescription' <$> - (x .@? "size") <*> (x .@ "id") - -instance Hashable DiskImageVolumeDescription where - -instance NFData DiskImageVolumeDescription where - --- | Describes a block device for an EBS volume. --- --- --- --- /See:/ 'ebsBlockDevice' smart constructor. -data EBSBlockDevice = EBSBlockDevice' - { _ebdDeleteOnTermination :: !(Maybe Bool) - , _ebdVolumeSize :: !(Maybe Int) - , _ebdIOPS :: !(Maybe Int) - , _ebdEncrypted :: !(Maybe Bool) - , _ebdVolumeType :: !(Maybe VolumeType) - , _ebdSnapshotId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'EBSBlockDevice' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ebdDeleteOnTermination' - Indicates whether the EBS volume is deleted on instance termination. --- --- * 'ebdVolumeSize' - The size of the volume, in GiB. Constraints: 1-16384 for General Purpose SSD (@gp2@ ), 4-16384 for Provisioned IOPS SSD (@io1@ ), 500-16384 for Throughput Optimized HDD (@st1@ ), 500-16384 for Cold HDD (@sc1@ ), and 1-1024 for Magnetic (@standard@ ) volumes. If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. --- --- * 'ebdIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For @io1@ , this represents the number of IOPS that are provisioned for the volume. For @gp2@ , this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. --- --- * 'ebdEncrypted' - Indicates whether the EBS volume is encrypted. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. If you are creating a volume from a snapshot, you can't specify an encryption value. This is because only blank volumes can be encrypted on creation. --- --- * 'ebdVolumeType' - The volume type: @gp2@ , @io1@ , @st1@ , @sc1@ , or @standard@ . Default: @standard@ --- --- * 'ebdSnapshotId' - The ID of the snapshot. -ebsBlockDevice - :: EBSBlockDevice -ebsBlockDevice = - EBSBlockDevice' - { _ebdDeleteOnTermination = Nothing - , _ebdVolumeSize = Nothing - , _ebdIOPS = Nothing - , _ebdEncrypted = Nothing - , _ebdVolumeType = Nothing - , _ebdSnapshotId = Nothing - } - - --- | Indicates whether the EBS volume is deleted on instance termination. -ebdDeleteOnTermination :: Lens' EBSBlockDevice (Maybe Bool) -ebdDeleteOnTermination = lens _ebdDeleteOnTermination (\ s a -> s{_ebdDeleteOnTermination = a}); - --- | The size of the volume, in GiB. Constraints: 1-16384 for General Purpose SSD (@gp2@ ), 4-16384 for Provisioned IOPS SSD (@io1@ ), 500-16384 for Throughput Optimized HDD (@st1@ ), 500-16384 for Cold HDD (@sc1@ ), and 1-1024 for Magnetic (@standard@ ) volumes. If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. -ebdVolumeSize :: Lens' EBSBlockDevice (Maybe Int) -ebdVolumeSize = lens _ebdVolumeSize (\ s a -> s{_ebdVolumeSize = a}); - --- | The number of I/O operations per second (IOPS) that the volume supports. For @io1@ , this represents the number of IOPS that are provisioned for the volume. For @gp2@ , this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. -ebdIOPS :: Lens' EBSBlockDevice (Maybe Int) -ebdIOPS = lens _ebdIOPS (\ s a -> s{_ebdIOPS = a}); - --- | Indicates whether the EBS volume is encrypted. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. If you are creating a volume from a snapshot, you can't specify an encryption value. This is because only blank volumes can be encrypted on creation. -ebdEncrypted :: Lens' EBSBlockDevice (Maybe Bool) -ebdEncrypted = lens _ebdEncrypted (\ s a -> s{_ebdEncrypted = a}); - --- | The volume type: @gp2@ , @io1@ , @st1@ , @sc1@ , or @standard@ . Default: @standard@ -ebdVolumeType :: Lens' EBSBlockDevice (Maybe VolumeType) -ebdVolumeType = lens _ebdVolumeType (\ s a -> s{_ebdVolumeType = a}); - --- | The ID of the snapshot. -ebdSnapshotId :: Lens' EBSBlockDevice (Maybe Text) -ebdSnapshotId = lens _ebdSnapshotId (\ s a -> s{_ebdSnapshotId = a}); - -instance FromXML EBSBlockDevice where - parseXML x - = EBSBlockDevice' <$> - (x .@? "deleteOnTermination") <*> - (x .@? "volumeSize") - <*> (x .@? "iops") - <*> (x .@? "encrypted") - <*> (x .@? "volumeType") - <*> (x .@? "snapshotId") - -instance Hashable EBSBlockDevice where - -instance NFData EBSBlockDevice where - -instance ToQuery EBSBlockDevice where - toQuery EBSBlockDevice'{..} - = mconcat - ["DeleteOnTermination" =: _ebdDeleteOnTermination, - "VolumeSize" =: _ebdVolumeSize, "Iops" =: _ebdIOPS, - "Encrypted" =: _ebdEncrypted, - "VolumeType" =: _ebdVolumeType, - "SnapshotId" =: _ebdSnapshotId] - --- | Describes a parameter used to set up an EBS volume in a block device mapping. --- --- --- --- /See:/ 'ebsInstanceBlockDevice' smart constructor. -data EBSInstanceBlockDevice = EBSInstanceBlockDevice' - { _eibdStatus :: !(Maybe AttachmentStatus) - , _eibdDeleteOnTermination :: !(Maybe Bool) - , _eibdVolumeId :: !(Maybe Text) - , _eibdAttachTime :: !(Maybe ISO8601) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'EBSInstanceBlockDevice' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eibdStatus' - The attachment state. --- --- * 'eibdDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. --- --- * 'eibdVolumeId' - The ID of the EBS volume. --- --- * 'eibdAttachTime' - The time stamp when the attachment initiated. -ebsInstanceBlockDevice - :: EBSInstanceBlockDevice -ebsInstanceBlockDevice = - EBSInstanceBlockDevice' - { _eibdStatus = Nothing - , _eibdDeleteOnTermination = Nothing - , _eibdVolumeId = Nothing - , _eibdAttachTime = Nothing - } - - --- | The attachment state. -eibdStatus :: Lens' EBSInstanceBlockDevice (Maybe AttachmentStatus) -eibdStatus = lens _eibdStatus (\ s a -> s{_eibdStatus = a}); - --- | Indicates whether the volume is deleted on instance termination. -eibdDeleteOnTermination :: Lens' EBSInstanceBlockDevice (Maybe Bool) -eibdDeleteOnTermination = lens _eibdDeleteOnTermination (\ s a -> s{_eibdDeleteOnTermination = a}); - --- | The ID of the EBS volume. -eibdVolumeId :: Lens' EBSInstanceBlockDevice (Maybe Text) -eibdVolumeId = lens _eibdVolumeId (\ s a -> s{_eibdVolumeId = a}); - --- | The time stamp when the attachment initiated. -eibdAttachTime :: Lens' EBSInstanceBlockDevice (Maybe UTCTime) -eibdAttachTime = lens _eibdAttachTime (\ s a -> s{_eibdAttachTime = a}) . mapping _Time; - -instance FromXML EBSInstanceBlockDevice where - parseXML x - = EBSInstanceBlockDevice' <$> - (x .@? "status") <*> (x .@? "deleteOnTermination") - <*> (x .@? "volumeId") - <*> (x .@? "attachTime") - -instance Hashable EBSInstanceBlockDevice where - -instance NFData EBSInstanceBlockDevice where - --- | Describes information used to set up an EBS volume specified in a block device mapping. --- --- --- --- /See:/ 'ebsInstanceBlockDeviceSpecification' smart constructor. -data EBSInstanceBlockDeviceSpecification = EBSInstanceBlockDeviceSpecification' - { _eibdsDeleteOnTermination :: !(Maybe Bool) - , _eibdsVolumeId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'EBSInstanceBlockDeviceSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eibdsDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. --- --- * 'eibdsVolumeId' - The ID of the EBS volume. -ebsInstanceBlockDeviceSpecification - :: EBSInstanceBlockDeviceSpecification -ebsInstanceBlockDeviceSpecification = - EBSInstanceBlockDeviceSpecification' - {_eibdsDeleteOnTermination = Nothing, _eibdsVolumeId = Nothing} - - --- | Indicates whether the volume is deleted on instance termination. -eibdsDeleteOnTermination :: Lens' EBSInstanceBlockDeviceSpecification (Maybe Bool) -eibdsDeleteOnTermination = lens _eibdsDeleteOnTermination (\ s a -> s{_eibdsDeleteOnTermination = a}); - --- | The ID of the EBS volume. -eibdsVolumeId :: Lens' EBSInstanceBlockDeviceSpecification (Maybe Text) -eibdsVolumeId = lens _eibdsVolumeId (\ s a -> s{_eibdsVolumeId = a}); - -instance Hashable EBSInstanceBlockDeviceSpecification - where - -instance NFData EBSInstanceBlockDeviceSpecification - where - -instance ToQuery EBSInstanceBlockDeviceSpecification - where - toQuery EBSInstanceBlockDeviceSpecification'{..} - = mconcat - ["DeleteOnTermination" =: _eibdsDeleteOnTermination, - "VolumeId" =: _eibdsVolumeId] - --- | Describes an egress-only Internet gateway. --- --- --- --- /See:/ 'egressOnlyInternetGateway' smart constructor. -data EgressOnlyInternetGateway = EgressOnlyInternetGateway' - { _eoigEgressOnlyInternetGatewayId :: !(Maybe Text) - , _eoigAttachments :: !(Maybe [InternetGatewayAttachment]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'EgressOnlyInternetGateway' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eoigEgressOnlyInternetGatewayId' - The ID of the egress-only Internet gateway. --- --- * 'eoigAttachments' - Information about the attachment of the egress-only Internet gateway. -egressOnlyInternetGateway - :: EgressOnlyInternetGateway -egressOnlyInternetGateway = - EgressOnlyInternetGateway' - {_eoigEgressOnlyInternetGatewayId = Nothing, _eoigAttachments = Nothing} - - --- | The ID of the egress-only Internet gateway. -eoigEgressOnlyInternetGatewayId :: Lens' EgressOnlyInternetGateway (Maybe Text) -eoigEgressOnlyInternetGatewayId = lens _eoigEgressOnlyInternetGatewayId (\ s a -> s{_eoigEgressOnlyInternetGatewayId = a}); - --- | Information about the attachment of the egress-only Internet gateway. -eoigAttachments :: Lens' EgressOnlyInternetGateway [InternetGatewayAttachment] -eoigAttachments = lens _eoigAttachments (\ s a -> s{_eoigAttachments = a}) . _Default . _Coerce; - -instance FromXML EgressOnlyInternetGateway where - parseXML x - = EgressOnlyInternetGateway' <$> - (x .@? "egressOnlyInternetGatewayId") <*> - (x .@? "attachmentSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable EgressOnlyInternetGateway where - -instance NFData EgressOnlyInternetGateway where - --- | Describes the association between an instance and an Elastic GPU. --- --- --- --- /See:/ 'elasticGpuAssociation' smart constructor. -data ElasticGpuAssociation = ElasticGpuAssociation' - { _egaElasticGpuId :: !(Maybe Text) - , _egaElasticGpuAssociationId :: !(Maybe Text) - , _egaElasticGpuAssociationTime :: !(Maybe Text) - , _egaElasticGpuAssociationState :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ElasticGpuAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'egaElasticGpuId' - The ID of the Elastic GPU. --- --- * 'egaElasticGpuAssociationId' - The ID of the association. --- --- * 'egaElasticGpuAssociationTime' - The time the Elastic GPU was associated with the instance. --- --- * 'egaElasticGpuAssociationState' - The state of the association between the instance and the Elastic GPU. -elasticGpuAssociation - :: ElasticGpuAssociation -elasticGpuAssociation = - ElasticGpuAssociation' - { _egaElasticGpuId = Nothing - , _egaElasticGpuAssociationId = Nothing - , _egaElasticGpuAssociationTime = Nothing - , _egaElasticGpuAssociationState = Nothing - } - - --- | The ID of the Elastic GPU. -egaElasticGpuId :: Lens' ElasticGpuAssociation (Maybe Text) -egaElasticGpuId = lens _egaElasticGpuId (\ s a -> s{_egaElasticGpuId = a}); - --- | The ID of the association. -egaElasticGpuAssociationId :: Lens' ElasticGpuAssociation (Maybe Text) -egaElasticGpuAssociationId = lens _egaElasticGpuAssociationId (\ s a -> s{_egaElasticGpuAssociationId = a}); - --- | The time the Elastic GPU was associated with the instance. -egaElasticGpuAssociationTime :: Lens' ElasticGpuAssociation (Maybe Text) -egaElasticGpuAssociationTime = lens _egaElasticGpuAssociationTime (\ s a -> s{_egaElasticGpuAssociationTime = a}); - --- | The state of the association between the instance and the Elastic GPU. -egaElasticGpuAssociationState :: Lens' ElasticGpuAssociation (Maybe Text) -egaElasticGpuAssociationState = lens _egaElasticGpuAssociationState (\ s a -> s{_egaElasticGpuAssociationState = a}); - -instance FromXML ElasticGpuAssociation where - parseXML x - = ElasticGpuAssociation' <$> - (x .@? "elasticGpuId") <*> - (x .@? "elasticGpuAssociationId") - <*> (x .@? "elasticGpuAssociationTime") - <*> (x .@? "elasticGpuAssociationState") - -instance Hashable ElasticGpuAssociation where - -instance NFData ElasticGpuAssociation where - --- | Describes the status of an Elastic GPU. --- --- --- --- /See:/ 'elasticGpuHealth' smart constructor. -newtype ElasticGpuHealth = ElasticGpuHealth' - { _eghStatus :: Maybe ElasticGpuStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ElasticGpuHealth' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eghStatus' - The health status. -elasticGpuHealth - :: ElasticGpuHealth -elasticGpuHealth = ElasticGpuHealth' {_eghStatus = Nothing} - - --- | The health status. -eghStatus :: Lens' ElasticGpuHealth (Maybe ElasticGpuStatus) -eghStatus = lens _eghStatus (\ s a -> s{_eghStatus = a}); - -instance FromXML ElasticGpuHealth where - parseXML x = ElasticGpuHealth' <$> (x .@? "status") - -instance Hashable ElasticGpuHealth where - -instance NFData ElasticGpuHealth where - --- | A specification for an Elastic GPU. --- --- --- --- /See:/ 'elasticGpuSpecification' smart constructor. -newtype ElasticGpuSpecification = ElasticGpuSpecification' - { _egsType :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ElasticGpuSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'egsType' - The type of Elastic GPU. -elasticGpuSpecification - :: Text -- ^ 'egsType' - -> ElasticGpuSpecification -elasticGpuSpecification pType_ = ElasticGpuSpecification' {_egsType = pType_} - - --- | The type of Elastic GPU. -egsType :: Lens' ElasticGpuSpecification Text -egsType = lens _egsType (\ s a -> s{_egsType = a}); - -instance Hashable ElasticGpuSpecification where - -instance NFData ElasticGpuSpecification where - -instance ToQuery ElasticGpuSpecification where - toQuery ElasticGpuSpecification'{..} - = mconcat ["Type" =: _egsType] - --- | Describes an Elastic GPU. --- --- --- --- /See:/ 'elasticGpus' smart constructor. -data ElasticGpus = ElasticGpus' - { _egInstanceId :: !(Maybe Text) - , _egElasticGpuType :: !(Maybe Text) - , _egElasticGpuId :: !(Maybe Text) - , _egElasticGpuState :: !(Maybe ElasticGpuState) - , _egElasticGpuHealth :: !(Maybe ElasticGpuHealth) - , _egAvailabilityZone :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ElasticGpus' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'egInstanceId' - The ID of the instance to which the Elastic GPU is attached. --- --- * 'egElasticGpuType' - The type of Elastic GPU. --- --- * 'egElasticGpuId' - The ID of the Elastic GPU. --- --- * 'egElasticGpuState' - The state of the Elastic GPU. --- --- * 'egElasticGpuHealth' - The status of the Elastic GPU. --- --- * 'egAvailabilityZone' - The Availability Zone in the which the Elastic GPU resides. -elasticGpus - :: ElasticGpus -elasticGpus = - ElasticGpus' - { _egInstanceId = Nothing - , _egElasticGpuType = Nothing - , _egElasticGpuId = Nothing - , _egElasticGpuState = Nothing - , _egElasticGpuHealth = Nothing - , _egAvailabilityZone = Nothing - } - - --- | The ID of the instance to which the Elastic GPU is attached. -egInstanceId :: Lens' ElasticGpus (Maybe Text) -egInstanceId = lens _egInstanceId (\ s a -> s{_egInstanceId = a}); - --- | The type of Elastic GPU. -egElasticGpuType :: Lens' ElasticGpus (Maybe Text) -egElasticGpuType = lens _egElasticGpuType (\ s a -> s{_egElasticGpuType = a}); - --- | The ID of the Elastic GPU. -egElasticGpuId :: Lens' ElasticGpus (Maybe Text) -egElasticGpuId = lens _egElasticGpuId (\ s a -> s{_egElasticGpuId = a}); - --- | The state of the Elastic GPU. -egElasticGpuState :: Lens' ElasticGpus (Maybe ElasticGpuState) -egElasticGpuState = lens _egElasticGpuState (\ s a -> s{_egElasticGpuState = a}); - --- | The status of the Elastic GPU. -egElasticGpuHealth :: Lens' ElasticGpus (Maybe ElasticGpuHealth) -egElasticGpuHealth = lens _egElasticGpuHealth (\ s a -> s{_egElasticGpuHealth = a}); - --- | The Availability Zone in the which the Elastic GPU resides. -egAvailabilityZone :: Lens' ElasticGpus (Maybe Text) -egAvailabilityZone = lens _egAvailabilityZone (\ s a -> s{_egAvailabilityZone = a}); - -instance FromXML ElasticGpus where - parseXML x - = ElasticGpus' <$> - (x .@? "instanceId") <*> (x .@? "elasticGpuType") <*> - (x .@? "elasticGpuId") - <*> (x .@? "elasticGpuState") - <*> (x .@? "elasticGpuHealth") - <*> (x .@? "availabilityZone") - -instance Hashable ElasticGpus where - -instance NFData ElasticGpus where - --- | Describes a Spot fleet event. --- --- --- --- /See:/ 'eventInformation' smart constructor. -data EventInformation = EventInformation' - { _eiInstanceId :: !(Maybe Text) - , _eiEventDescription :: !(Maybe Text) - , _eiEventSubType :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'EventInformation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'eiInstanceId' - The ID of the instance. This information is available only for @instanceChange@ events. --- --- * 'eiEventDescription' - The description of the event. --- --- * 'eiEventSubType' - The event. The following are the @error@ events: * @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 of the event. * @spotInstanceCountLimitExceeded@ - You've reached the limit on the number of Spot instances that you can launch. The following are the @fleetRequestChange@ events: * @active@ - The Spot fleet has been validated and Amazon EC2 is attempting to maintain the target number of running Spot instances. * @cancelled@ - The Spot fleet is canceled and has no running Spot instances. The Spot fleet will be deleted two days after its instances were terminated. * @cancelled_running@ - The Spot fleet is canceled and will not launch additional Spot instances, but its existing Spot instances continue to run until they are interrupted or terminated. * @cancelled_terminating@ - The Spot fleet is canceled and its Spot instances are terminating. * @expired@ - The Spot fleet request has expired. A subsequent event 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. * @submitted@ - The Spot fleet request is being evaluated and Amazon EC2 is preparing to launch the target number of Spot instances. The following are the @instanceChange@ events: * @launched@ - A bid was fulfilled and a new instance was launched. * @terminated@ - An instance was terminated by the user. The following are the @Information@ events: * @launchSpecUnusable@ - The bid price of a launch specification is not valid because it is below the market price or the market price is above the On-Demand price. * @fleetProgressHalted@ - The bid price of every launch specification is not valid. A launch specification might become valid if the market price changes. -eventInformation - :: EventInformation -eventInformation = - EventInformation' - { _eiInstanceId = Nothing - , _eiEventDescription = Nothing - , _eiEventSubType = Nothing - } - - --- | The ID of the instance. This information is available only for @instanceChange@ events. -eiInstanceId :: Lens' EventInformation (Maybe Text) -eiInstanceId = lens _eiInstanceId (\ s a -> s{_eiInstanceId = a}); - --- | The description of the event. -eiEventDescription :: Lens' EventInformation (Maybe Text) -eiEventDescription = lens _eiEventDescription (\ s a -> s{_eiEventDescription = a}); - --- | The event. The following are the @error@ events: * @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 of the event. * @spotInstanceCountLimitExceeded@ - You've reached the limit on the number of Spot instances that you can launch. The following are the @fleetRequestChange@ events: * @active@ - The Spot fleet has been validated and Amazon EC2 is attempting to maintain the target number of running Spot instances. * @cancelled@ - The Spot fleet is canceled and has no running Spot instances. The Spot fleet will be deleted two days after its instances were terminated. * @cancelled_running@ - The Spot fleet is canceled and will not launch additional Spot instances, but its existing Spot instances continue to run until they are interrupted or terminated. * @cancelled_terminating@ - The Spot fleet is canceled and its Spot instances are terminating. * @expired@ - The Spot fleet request has expired. A subsequent event 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. * @submitted@ - The Spot fleet request is being evaluated and Amazon EC2 is preparing to launch the target number of Spot instances. The following are the @instanceChange@ events: * @launched@ - A bid was fulfilled and a new instance was launched. * @terminated@ - An instance was terminated by the user. The following are the @Information@ events: * @launchSpecUnusable@ - The bid price of a launch specification is not valid because it is below the market price or the market price is above the On-Demand price. * @fleetProgressHalted@ - The bid price of every launch specification is not valid. A launch specification might become valid if the market price changes. -eiEventSubType :: Lens' EventInformation (Maybe Text) -eiEventSubType = lens _eiEventSubType (\ s a -> s{_eiEventSubType = a}); - -instance FromXML EventInformation where - parseXML x - = EventInformation' <$> - (x .@? "instanceId") <*> (x .@? "eventDescription") - <*> (x .@? "eventSubType") - -instance Hashable EventInformation where - -instance NFData EventInformation where - --- | Describes an instance export task. --- --- --- --- /See:/ 'exportTask' smart constructor. -data ExportTask = ExportTask' - { _etDescription :: !Text - , _etExportTaskId :: !Text - , _etExportToS3Task :: !ExportToS3Task - , _etInstanceExportDetails :: !InstanceExportDetails - , _etState :: !ExportTaskState - , _etStatusMessage :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExportTask' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'etDescription' - A description of the resource being exported. --- --- * 'etExportTaskId' - The ID of the export task. --- --- * 'etExportToS3Task' - Information about the export task. --- --- * 'etInstanceExportDetails' - Information about the instance to export. --- --- * 'etState' - The state of the export task. --- --- * 'etStatusMessage' - The status message related to the export task. -exportTask - :: Text -- ^ 'etDescription' - -> Text -- ^ 'etExportTaskId' - -> ExportToS3Task -- ^ 'etExportToS3Task' - -> InstanceExportDetails -- ^ 'etInstanceExportDetails' - -> ExportTaskState -- ^ 'etState' - -> Text -- ^ 'etStatusMessage' - -> ExportTask -exportTask pDescription_ pExportTaskId_ pExportToS3Task_ pInstanceExportDetails_ pState_ pStatusMessage_ = - ExportTask' - { _etDescription = pDescription_ - , _etExportTaskId = pExportTaskId_ - , _etExportToS3Task = pExportToS3Task_ - , _etInstanceExportDetails = pInstanceExportDetails_ - , _etState = pState_ - , _etStatusMessage = pStatusMessage_ - } - - --- | A description of the resource being exported. -etDescription :: Lens' ExportTask Text -etDescription = lens _etDescription (\ s a -> s{_etDescription = a}); - --- | The ID of the export task. -etExportTaskId :: Lens' ExportTask Text -etExportTaskId = lens _etExportTaskId (\ s a -> s{_etExportTaskId = a}); - --- | Information about the export task. -etExportToS3Task :: Lens' ExportTask ExportToS3Task -etExportToS3Task = lens _etExportToS3Task (\ s a -> s{_etExportToS3Task = a}); - --- | Information about the instance to export. -etInstanceExportDetails :: Lens' ExportTask InstanceExportDetails -etInstanceExportDetails = lens _etInstanceExportDetails (\ s a -> s{_etInstanceExportDetails = a}); - --- | The state of the export task. -etState :: Lens' ExportTask ExportTaskState -etState = lens _etState (\ s a -> s{_etState = a}); - --- | The status message related to the export task. -etStatusMessage :: Lens' ExportTask Text -etStatusMessage = lens _etStatusMessage (\ s a -> s{_etStatusMessage = a}); - -instance FromXML ExportTask where - parseXML x - = ExportTask' <$> - (x .@ "description") <*> (x .@ "exportTaskId") <*> - (x .@ "exportToS3") - <*> (x .@ "instanceExport") - <*> (x .@ "state") - <*> (x .@ "statusMessage") - -instance Hashable ExportTask where - -instance NFData ExportTask where - --- | Describes the format and location for an instance export task. --- --- --- --- /See:/ 'exportToS3Task' smart constructor. -data ExportToS3Task = ExportToS3Task' - { _etstS3Key :: !(Maybe Text) - , _etstContainerFormat :: !(Maybe ContainerFormat) - , _etstS3Bucket :: !(Maybe Text) - , _etstDiskImageFormat :: !(Maybe DiskImageFormat) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExportToS3Task' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'etstS3Key' - The encryption key for your S3 bucket. --- --- * 'etstContainerFormat' - The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. --- --- * 'etstS3Bucket' - The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . --- --- * 'etstDiskImageFormat' - The format for the exported image. -exportToS3Task - :: ExportToS3Task -exportToS3Task = - ExportToS3Task' - { _etstS3Key = Nothing - , _etstContainerFormat = Nothing - , _etstS3Bucket = Nothing - , _etstDiskImageFormat = Nothing - } - - --- | The encryption key for your S3 bucket. -etstS3Key :: Lens' ExportToS3Task (Maybe Text) -etstS3Key = lens _etstS3Key (\ s a -> s{_etstS3Key = a}); - --- | The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. -etstContainerFormat :: Lens' ExportToS3Task (Maybe ContainerFormat) -etstContainerFormat = lens _etstContainerFormat (\ s a -> s{_etstContainerFormat = a}); - --- | The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . -etstS3Bucket :: Lens' ExportToS3Task (Maybe Text) -etstS3Bucket = lens _etstS3Bucket (\ s a -> s{_etstS3Bucket = a}); - --- | The format for the exported image. -etstDiskImageFormat :: Lens' ExportToS3Task (Maybe DiskImageFormat) -etstDiskImageFormat = lens _etstDiskImageFormat (\ s a -> s{_etstDiskImageFormat = a}); - -instance FromXML ExportToS3Task where - parseXML x - = ExportToS3Task' <$> - (x .@? "s3Key") <*> (x .@? "containerFormat") <*> - (x .@? "s3Bucket") - <*> (x .@? "diskImageFormat") - -instance Hashable ExportToS3Task where - -instance NFData ExportToS3Task where - --- | Describes an instance export task. --- --- --- --- /See:/ 'exportToS3TaskSpecification' smart constructor. -data ExportToS3TaskSpecification = ExportToS3TaskSpecification' - { _etstsContainerFormat :: !(Maybe ContainerFormat) - , _etstsS3Prefix :: !(Maybe Text) - , _etstsS3Bucket :: !(Maybe Text) - , _etstsDiskImageFormat :: !(Maybe DiskImageFormat) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ExportToS3TaskSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'etstsContainerFormat' - The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. --- --- * 'etstsS3Prefix' - The image is written to a single object in the S3 bucket at the S3 key s3prefix + exportTaskId + '.' + diskImageFormat. --- --- * 'etstsS3Bucket' - The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . --- --- * 'etstsDiskImageFormat' - The format for the exported image. -exportToS3TaskSpecification - :: ExportToS3TaskSpecification -exportToS3TaskSpecification = - ExportToS3TaskSpecification' - { _etstsContainerFormat = Nothing - , _etstsS3Prefix = Nothing - , _etstsS3Bucket = Nothing - , _etstsDiskImageFormat = Nothing - } - - --- | The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. -etstsContainerFormat :: Lens' ExportToS3TaskSpecification (Maybe ContainerFormat) -etstsContainerFormat = lens _etstsContainerFormat (\ s a -> s{_etstsContainerFormat = a}); - --- | The image is written to a single object in the S3 bucket at the S3 key s3prefix + exportTaskId + '.' + diskImageFormat. -etstsS3Prefix :: Lens' ExportToS3TaskSpecification (Maybe Text) -etstsS3Prefix = lens _etstsS3Prefix (\ s a -> s{_etstsS3Prefix = a}); - --- | The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . -etstsS3Bucket :: Lens' ExportToS3TaskSpecification (Maybe Text) -etstsS3Bucket = lens _etstsS3Bucket (\ s a -> s{_etstsS3Bucket = a}); - --- | The format for the exported image. -etstsDiskImageFormat :: Lens' ExportToS3TaskSpecification (Maybe DiskImageFormat) -etstsDiskImageFormat = lens _etstsDiskImageFormat (\ s a -> s{_etstsDiskImageFormat = a}); - -instance Hashable ExportToS3TaskSpecification where - -instance NFData ExportToS3TaskSpecification where - -instance ToQuery ExportToS3TaskSpecification where - toQuery ExportToS3TaskSpecification'{..} - = mconcat - ["ContainerFormat" =: _etstsContainerFormat, - "S3Prefix" =: _etstsS3Prefix, - "S3Bucket" =: _etstsS3Bucket, - "DiskImageFormat" =: _etstsDiskImageFormat] - --- | A filter name and value pair that is used to return a more specific list of results. Filters can be used to match a set of resources by various criteria, such as tags, attributes, or IDs. --- --- --- --- /See:/ 'filter'' smart constructor. -data Filter = Filter' - { _fValues :: !(Maybe [Text]) - , _fName :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Filter' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fValues' - One or more filter values. Filter values are case-sensitive. --- --- * 'fName' - The name of the filter. Filter names are case-sensitive. -filter' - :: Text -- ^ 'fName' - -> Filter -filter' pName_ = Filter' {_fValues = Nothing, _fName = pName_} - - --- | One or more filter values. Filter values are case-sensitive. -fValues :: Lens' Filter [Text] -fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Default . _Coerce; - --- | The name of the filter. Filter names are case-sensitive. -fName :: Lens' Filter Text -fName = lens _fName (\ s a -> s{_fName = a}); - -instance Hashable Filter where - -instance NFData Filter where - -instance ToQuery Filter where - toQuery Filter'{..} - = mconcat - [toQuery (toQueryList "Value" <$> _fValues), - "Name" =: _fName] - --- | Describes a flow log. --- --- --- --- /See:/ 'flowLog' smart constructor. -data FlowLog = FlowLog' - { _flCreationTime :: !(Maybe ISO8601) - , _flResourceId :: !(Maybe Text) - , _flFlowLogStatus :: !(Maybe Text) - , _flTrafficType :: !(Maybe TrafficType) - , _flDeliverLogsStatus :: !(Maybe Text) - , _flDeliverLogsErrorMessage :: !(Maybe Text) - , _flLogGroupName :: !(Maybe Text) - , _flDeliverLogsPermissionARN :: !(Maybe Text) - , _flFlowLogId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'FlowLog' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'flCreationTime' - The date and time the flow log was created. --- --- * 'flResourceId' - The ID of the resource on which the flow log was created. --- --- * 'flFlowLogStatus' - The status of the flow log (@ACTIVE@ ). --- --- * 'flTrafficType' - The type of traffic captured for the flow log. --- --- * 'flDeliverLogsStatus' - The status of the logs delivery (@SUCCESS@ | @FAILED@ ). --- --- * 'flDeliverLogsErrorMessage' - Information about the error that occurred. @Rate limited@ indicates that CloudWatch logs throttling has been applied for one or more network interfaces, or that you've reached the limit on the number of CloudWatch Logs log groups that you can create. @Access error@ indicates that the IAM role associated with the flow log does not have sufficient permissions to publish to CloudWatch Logs. @Unknown error@ indicates an internal error. --- --- * 'flLogGroupName' - The name of the flow log group. --- --- * 'flDeliverLogsPermissionARN' - The ARN of the IAM role that posts logs to CloudWatch Logs. --- --- * 'flFlowLogId' - The flow log ID. -flowLog - :: FlowLog -flowLog = - FlowLog' - { _flCreationTime = Nothing - , _flResourceId = Nothing - , _flFlowLogStatus = Nothing - , _flTrafficType = Nothing - , _flDeliverLogsStatus = Nothing - , _flDeliverLogsErrorMessage = Nothing - , _flLogGroupName = Nothing - , _flDeliverLogsPermissionARN = Nothing - , _flFlowLogId = Nothing - } - - --- | The date and time the flow log was created. -flCreationTime :: Lens' FlowLog (Maybe UTCTime) -flCreationTime = lens _flCreationTime (\ s a -> s{_flCreationTime = a}) . mapping _Time; - --- | The ID of the resource on which the flow log was created. -flResourceId :: Lens' FlowLog (Maybe Text) -flResourceId = lens _flResourceId (\ s a -> s{_flResourceId = a}); - --- | The status of the flow log (@ACTIVE@ ). -flFlowLogStatus :: Lens' FlowLog (Maybe Text) -flFlowLogStatus = lens _flFlowLogStatus (\ s a -> s{_flFlowLogStatus = a}); - --- | The type of traffic captured for the flow log. -flTrafficType :: Lens' FlowLog (Maybe TrafficType) -flTrafficType = lens _flTrafficType (\ s a -> s{_flTrafficType = a}); - --- | The status of the logs delivery (@SUCCESS@ | @FAILED@ ). -flDeliverLogsStatus :: Lens' FlowLog (Maybe Text) -flDeliverLogsStatus = lens _flDeliverLogsStatus (\ s a -> s{_flDeliverLogsStatus = a}); - --- | Information about the error that occurred. @Rate limited@ indicates that CloudWatch logs throttling has been applied for one or more network interfaces, or that you've reached the limit on the number of CloudWatch Logs log groups that you can create. @Access error@ indicates that the IAM role associated with the flow log does not have sufficient permissions to publish to CloudWatch Logs. @Unknown error@ indicates an internal error. -flDeliverLogsErrorMessage :: Lens' FlowLog (Maybe Text) -flDeliverLogsErrorMessage = lens _flDeliverLogsErrorMessage (\ s a -> s{_flDeliverLogsErrorMessage = a}); - --- | The name of the flow log group. -flLogGroupName :: Lens' FlowLog (Maybe Text) -flLogGroupName = lens _flLogGroupName (\ s a -> s{_flLogGroupName = a}); - --- | The ARN of the IAM role that posts logs to CloudWatch Logs. -flDeliverLogsPermissionARN :: Lens' FlowLog (Maybe Text) -flDeliverLogsPermissionARN = lens _flDeliverLogsPermissionARN (\ s a -> s{_flDeliverLogsPermissionARN = a}); - --- | The flow log ID. -flFlowLogId :: Lens' FlowLog (Maybe Text) -flFlowLogId = lens _flFlowLogId (\ s a -> s{_flFlowLogId = a}); - -instance FromXML FlowLog where - parseXML x - = FlowLog' <$> - (x .@? "creationTime") <*> (x .@? "resourceId") <*> - (x .@? "flowLogStatus") - <*> (x .@? "trafficType") - <*> (x .@? "deliverLogsStatus") - <*> (x .@? "deliverLogsErrorMessage") - <*> (x .@? "logGroupName") - <*> (x .@? "deliverLogsPermissionArn") - <*> (x .@? "flowLogId") - -instance Hashable FlowLog where - -instance NFData FlowLog where - --- | Describes an Amazon FPGA image (AFI). --- --- --- --- /See:/ 'fpgaImage' smart constructor. -data FpgaImage = FpgaImage' - { _fiShellVersion :: !(Maybe Text) - , _fiPciId :: !(Maybe PciId) - , _fiState :: !(Maybe FpgaImageState) - , _fiOwnerAlias :: !(Maybe Text) - , _fiFpgaImageId :: !(Maybe Text) - , _fiOwnerId :: !(Maybe Text) - , _fiUpdateTime :: !(Maybe ISO8601) - , _fiName :: !(Maybe Text) - , _fiProductCodes :: !(Maybe [ProductCode]) - , _fiDescription :: !(Maybe Text) - , _fiCreateTime :: !(Maybe ISO8601) - , _fiTags :: !(Maybe [Tag]) - , _fiPublic :: !(Maybe Bool) - , _fiFpgaImageGlobalId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'FpgaImage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fiShellVersion' - The version of the AWS Shell that was used to create the bitstream. --- --- * 'fiPciId' - Information about the PCI bus. --- --- * 'fiState' - Information about the state of the AFI. --- --- * 'fiOwnerAlias' - The alias of the AFI owner. Possible values include @self@ , @amazon@ , and @aws-marketplace@ . --- --- * 'fiFpgaImageId' - The FPGA image identifier (AFI ID). --- --- * 'fiOwnerId' - The AWS account ID of the AFI owner. --- --- * 'fiUpdateTime' - The time of the most recent update to the AFI. --- --- * 'fiName' - The name of the AFI. --- --- * 'fiProductCodes' - The product codes for the AFI. --- --- * 'fiDescription' - The description of the AFI. --- --- * 'fiCreateTime' - The date and time the AFI was created. --- --- * 'fiTags' - Any tags assigned to the AFI. --- --- * 'fiPublic' - Indicates whether the AFI is public. --- --- * 'fiFpgaImageGlobalId' - The global FPGA image identifier (AGFI ID). -fpgaImage - :: FpgaImage -fpgaImage = - FpgaImage' - { _fiShellVersion = Nothing - , _fiPciId = Nothing - , _fiState = Nothing - , _fiOwnerAlias = Nothing - , _fiFpgaImageId = Nothing - , _fiOwnerId = Nothing - , _fiUpdateTime = Nothing - , _fiName = Nothing - , _fiProductCodes = Nothing - , _fiDescription = Nothing - , _fiCreateTime = Nothing - , _fiTags = Nothing - , _fiPublic = Nothing - , _fiFpgaImageGlobalId = Nothing - } - - --- | The version of the AWS Shell that was used to create the bitstream. -fiShellVersion :: Lens' FpgaImage (Maybe Text) -fiShellVersion = lens _fiShellVersion (\ s a -> s{_fiShellVersion = a}); - --- | Information about the PCI bus. -fiPciId :: Lens' FpgaImage (Maybe PciId) -fiPciId = lens _fiPciId (\ s a -> s{_fiPciId = a}); - --- | Information about the state of the AFI. -fiState :: Lens' FpgaImage (Maybe FpgaImageState) -fiState = lens _fiState (\ s a -> s{_fiState = a}); - --- | The alias of the AFI owner. Possible values include @self@ , @amazon@ , and @aws-marketplace@ . -fiOwnerAlias :: Lens' FpgaImage (Maybe Text) -fiOwnerAlias = lens _fiOwnerAlias (\ s a -> s{_fiOwnerAlias = a}); - --- | The FPGA image identifier (AFI ID). -fiFpgaImageId :: Lens' FpgaImage (Maybe Text) -fiFpgaImageId = lens _fiFpgaImageId (\ s a -> s{_fiFpgaImageId = a}); - --- | The AWS account ID of the AFI owner. -fiOwnerId :: Lens' FpgaImage (Maybe Text) -fiOwnerId = lens _fiOwnerId (\ s a -> s{_fiOwnerId = a}); - --- | The time of the most recent update to the AFI. -fiUpdateTime :: Lens' FpgaImage (Maybe UTCTime) -fiUpdateTime = lens _fiUpdateTime (\ s a -> s{_fiUpdateTime = a}) . mapping _Time; - --- | The name of the AFI. -fiName :: Lens' FpgaImage (Maybe Text) -fiName = lens _fiName (\ s a -> s{_fiName = a}); - --- | The product codes for the AFI. -fiProductCodes :: Lens' FpgaImage [ProductCode] -fiProductCodes = lens _fiProductCodes (\ s a -> s{_fiProductCodes = a}) . _Default . _Coerce; - --- | The description of the AFI. -fiDescription :: Lens' FpgaImage (Maybe Text) -fiDescription = lens _fiDescription (\ s a -> s{_fiDescription = a}); - --- | The date and time the AFI was created. -fiCreateTime :: Lens' FpgaImage (Maybe UTCTime) -fiCreateTime = lens _fiCreateTime (\ s a -> s{_fiCreateTime = a}) . mapping _Time; - --- | Any tags assigned to the AFI. -fiTags :: Lens' FpgaImage [Tag] -fiTags = lens _fiTags (\ s a -> s{_fiTags = a}) . _Default . _Coerce; - --- | Indicates whether the AFI is public. -fiPublic :: Lens' FpgaImage (Maybe Bool) -fiPublic = lens _fiPublic (\ s a -> s{_fiPublic = a}); - --- | The global FPGA image identifier (AGFI ID). -fiFpgaImageGlobalId :: Lens' FpgaImage (Maybe Text) -fiFpgaImageGlobalId = lens _fiFpgaImageGlobalId (\ s a -> s{_fiFpgaImageGlobalId = a}); - -instance FromXML FpgaImage where - parseXML x - = FpgaImage' <$> - (x .@? "shellVersion") <*> (x .@? "pciId") <*> - (x .@? "state") - <*> (x .@? "ownerAlias") - <*> (x .@? "fpgaImageId") - <*> (x .@? "ownerId") - <*> (x .@? "updateTime") - <*> (x .@? "name") - <*> - (x .@? "productCodes" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "description") - <*> (x .@? "createTime") - <*> - (x .@? "tags" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "public") - <*> (x .@? "fpgaImageGlobalId") - -instance Hashable FpgaImage where - -instance NFData FpgaImage where - --- | Describes an Amazon FPGA image (AFI) attribute. --- --- --- --- /See:/ 'fpgaImageAttribute' smart constructor. -data FpgaImageAttribute = FpgaImageAttribute' - { _fiaFpgaImageId :: !(Maybe Text) - , _fiaName :: !(Maybe Text) - , _fiaProductCodes :: !(Maybe [ProductCode]) - , _fiaDescription :: !(Maybe Text) - , _fiaLoadPermissions :: !(Maybe [LoadPermission]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'FpgaImageAttribute' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fiaFpgaImageId' - The ID of the AFI. --- --- * 'fiaName' - The name of the AFI. --- --- * 'fiaProductCodes' - One or more product codes. --- --- * 'fiaDescription' - The description of the AFI. --- --- * 'fiaLoadPermissions' - One or more load permissions. -fpgaImageAttribute - :: FpgaImageAttribute -fpgaImageAttribute = - FpgaImageAttribute' - { _fiaFpgaImageId = Nothing - , _fiaName = Nothing - , _fiaProductCodes = Nothing - , _fiaDescription = Nothing - , _fiaLoadPermissions = Nothing - } - - --- | The ID of the AFI. -fiaFpgaImageId :: Lens' FpgaImageAttribute (Maybe Text) -fiaFpgaImageId = lens _fiaFpgaImageId (\ s a -> s{_fiaFpgaImageId = a}); - --- | The name of the AFI. -fiaName :: Lens' FpgaImageAttribute (Maybe Text) -fiaName = lens _fiaName (\ s a -> s{_fiaName = a}); - --- | One or more product codes. -fiaProductCodes :: Lens' FpgaImageAttribute [ProductCode] -fiaProductCodes = lens _fiaProductCodes (\ s a -> s{_fiaProductCodes = a}) . _Default . _Coerce; - --- | The description of the AFI. -fiaDescription :: Lens' FpgaImageAttribute (Maybe Text) -fiaDescription = lens _fiaDescription (\ s a -> s{_fiaDescription = a}); - --- | One or more load permissions. -fiaLoadPermissions :: Lens' FpgaImageAttribute [LoadPermission] -fiaLoadPermissions = lens _fiaLoadPermissions (\ s a -> s{_fiaLoadPermissions = a}) . _Default . _Coerce; - -instance FromXML FpgaImageAttribute where - parseXML x - = FpgaImageAttribute' <$> - (x .@? "fpgaImageId") <*> (x .@? "name") <*> - (x .@? "productCodes" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "description") - <*> - (x .@? "loadPermissions" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable FpgaImageAttribute where - -instance NFData FpgaImageAttribute where - --- | Describes the state of the bitstream generation process for an Amazon FPGA image (AFI). --- --- --- --- /See:/ 'fpgaImageState' smart constructor. -data FpgaImageState = FpgaImageState' - { _fisCode :: !(Maybe FpgaImageStateCode) - , _fisMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'FpgaImageState' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'fisCode' - The state. The following are the possible values: * @pending@ - AFI bitstream generation is in progress. * @available@ - The AFI is available for use. * @failed@ - AFI bitstream generation failed. * @unavailable@ - The AFI is no longer available for use. --- --- * 'fisMessage' - If the state is @failed@ , this is the error message. -fpgaImageState - :: FpgaImageState -fpgaImageState = FpgaImageState' {_fisCode = Nothing, _fisMessage = Nothing} - - --- | The state. The following are the possible values: * @pending@ - AFI bitstream generation is in progress. * @available@ - The AFI is available for use. * @failed@ - AFI bitstream generation failed. * @unavailable@ - The AFI is no longer available for use. -fisCode :: Lens' FpgaImageState (Maybe FpgaImageStateCode) -fisCode = lens _fisCode (\ s a -> s{_fisCode = a}); - --- | If the state is @failed@ , this is the error message. -fisMessage :: Lens' FpgaImageState (Maybe Text) -fisMessage = lens _fisMessage (\ s a -> s{_fisMessage = a}); - -instance FromXML FpgaImageState where - parseXML x - = FpgaImageState' <$> - (x .@? "code") <*> (x .@? "message") - -instance Hashable FpgaImageState where - -instance NFData FpgaImageState where - --- | Describes a security group. --- --- --- --- /See:/ 'groupIdentifier' smart constructor. -data GroupIdentifier = GroupIdentifier' - { _giGroupId :: !(Maybe Text) - , _giGroupName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'GroupIdentifier' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'giGroupId' - The ID of the security group. --- --- * 'giGroupName' - The name of the security group. -groupIdentifier - :: GroupIdentifier -groupIdentifier = - GroupIdentifier' {_giGroupId = Nothing, _giGroupName = Nothing} - - --- | The ID of the security group. -giGroupId :: Lens' GroupIdentifier (Maybe Text) -giGroupId = lens _giGroupId (\ s a -> s{_giGroupId = a}); - --- | The name of the security group. -giGroupName :: Lens' GroupIdentifier (Maybe Text) -giGroupName = lens _giGroupName (\ s a -> s{_giGroupName = a}); - -instance FromXML GroupIdentifier where - parseXML x - = GroupIdentifier' <$> - (x .@? "groupId") <*> (x .@? "groupName") - -instance Hashable GroupIdentifier where - -instance NFData GroupIdentifier where - -instance ToQuery GroupIdentifier where - toQuery GroupIdentifier'{..} - = mconcat - ["GroupId" =: _giGroupId, - "GroupName" =: _giGroupName] - --- | Describes an event in the history of the Spot fleet request. --- --- --- --- /See:/ 'historyRecord' smart constructor. -data HistoryRecord = HistoryRecord' - { _hrEventInformation :: !EventInformation - , _hrEventType :: !EventType - , _hrTimestamp :: !ISO8601 - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'HistoryRecord' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'hrEventInformation' - Information about the event. --- --- * 'hrEventType' - The event type. * @error@ - An error with the Spot fleet request. * @fleetRequestChange@ - A change in the status or configuration of the Spot fleet request. * @instanceChange@ - An instance was launched or terminated. * @Information@ - An informational event. --- --- * 'hrTimestamp' - The date and time of the event, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). -historyRecord - :: EventInformation -- ^ 'hrEventInformation' - -> EventType -- ^ 'hrEventType' - -> UTCTime -- ^ 'hrTimestamp' - -> HistoryRecord -historyRecord pEventInformation_ pEventType_ pTimestamp_ = - HistoryRecord' - { _hrEventInformation = pEventInformation_ - , _hrEventType = pEventType_ - , _hrTimestamp = _Time # pTimestamp_ - } - - --- | Information about the event. -hrEventInformation :: Lens' HistoryRecord EventInformation -hrEventInformation = lens _hrEventInformation (\ s a -> s{_hrEventInformation = a}); - --- | The event type. * @error@ - An error with the Spot fleet request. * @fleetRequestChange@ - A change in the status or configuration of the Spot fleet request. * @instanceChange@ - An instance was launched or terminated. * @Information@ - An informational event. -hrEventType :: Lens' HistoryRecord EventType -hrEventType = lens _hrEventType (\ s a -> s{_hrEventType = a}); - --- | The date and time of the event, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). -hrTimestamp :: Lens' HistoryRecord UTCTime -hrTimestamp = lens _hrTimestamp (\ s a -> s{_hrTimestamp = a}) . _Time; - -instance FromXML HistoryRecord where - parseXML x - = HistoryRecord' <$> - (x .@ "eventInformation") <*> (x .@ "eventType") <*> - (x .@ "timestamp") - -instance Hashable HistoryRecord where - -instance NFData HistoryRecord where - --- | Describes the properties of the Dedicated Host. --- --- --- --- /See:/ 'host' smart constructor. -data Host = Host' - { _hState :: !(Maybe AllocationState) - , _hClientToken :: !(Maybe Text) - , _hHostId :: !(Maybe Text) - , _hAvailableCapacity :: !(Maybe AvailableCapacity) - , _hHostReservationId :: !(Maybe Text) - , _hHostProperties :: !(Maybe HostProperties) - , _hAvailabilityZone :: !(Maybe Text) - , _hInstances :: !(Maybe [HostInstance]) - , _hAutoPlacement :: !(Maybe AutoPlacement) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Host' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'hState' - The Dedicated Host's state. --- --- * 'hClientToken' - Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . --- --- * 'hHostId' - The ID of the Dedicated Host. --- --- * 'hAvailableCapacity' - The number of new instances that can be launched onto the Dedicated Host. --- --- * 'hHostReservationId' - The reservation ID of the Dedicated Host. This returns a @null@ response if the Dedicated Host doesn't have an associated reservation. --- --- * 'hHostProperties' - The hardware specifications of the Dedicated Host. --- --- * 'hAvailabilityZone' - The Availability Zone of the Dedicated Host. --- --- * 'hInstances' - The IDs and instance type that are currently running on the Dedicated Host. --- --- * 'hAutoPlacement' - Whether auto-placement is on or off. -host - :: Host -host = - Host' - { _hState = Nothing - , _hClientToken = Nothing - , _hHostId = Nothing - , _hAvailableCapacity = Nothing - , _hHostReservationId = Nothing - , _hHostProperties = Nothing - , _hAvailabilityZone = Nothing - , _hInstances = Nothing - , _hAutoPlacement = Nothing - } - - --- | The Dedicated Host's state. -hState :: Lens' Host (Maybe AllocationState) -hState = lens _hState (\ s a -> s{_hState = a}); - --- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -hClientToken :: Lens' Host (Maybe Text) -hClientToken = lens _hClientToken (\ s a -> s{_hClientToken = a}); - --- | The ID of the Dedicated Host. -hHostId :: Lens' Host (Maybe Text) -hHostId = lens _hHostId (\ s a -> s{_hHostId = a}); - --- | The number of new instances that can be launched onto the Dedicated Host. -hAvailableCapacity :: Lens' Host (Maybe AvailableCapacity) -hAvailableCapacity = lens _hAvailableCapacity (\ s a -> s{_hAvailableCapacity = a}); - --- | The reservation ID of the Dedicated Host. This returns a @null@ response if the Dedicated Host doesn't have an associated reservation. -hHostReservationId :: Lens' Host (Maybe Text) -hHostReservationId = lens _hHostReservationId (\ s a -> s{_hHostReservationId = a}); - --- | The hardware specifications of the Dedicated Host. -hHostProperties :: Lens' Host (Maybe HostProperties) -hHostProperties = lens _hHostProperties (\ s a -> s{_hHostProperties = a}); - --- | The Availability Zone of the Dedicated Host. -hAvailabilityZone :: Lens' Host (Maybe Text) -hAvailabilityZone = lens _hAvailabilityZone (\ s a -> s{_hAvailabilityZone = a}); - --- | The IDs and instance type that are currently running on the Dedicated Host. -hInstances :: Lens' Host [HostInstance] -hInstances = lens _hInstances (\ s a -> s{_hInstances = a}) . _Default . _Coerce; - --- | Whether auto-placement is on or off. -hAutoPlacement :: Lens' Host (Maybe AutoPlacement) -hAutoPlacement = lens _hAutoPlacement (\ s a -> s{_hAutoPlacement = a}); - -instance FromXML Host where - parseXML x - = Host' <$> - (x .@? "state") <*> (x .@? "clientToken") <*> - (x .@? "hostId") - <*> (x .@? "availableCapacity") - <*> (x .@? "hostReservationId") - <*> (x .@? "hostProperties") - <*> (x .@? "availabilityZone") - <*> - (x .@? "instances" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "autoPlacement") - -instance Hashable Host where - -instance NFData Host where - --- | Describes an instance running on a Dedicated Host. --- --- --- --- /See:/ 'hostInstance' smart constructor. -data HostInstance = HostInstance' - { _hiInstanceId :: !(Maybe Text) - , _hiInstanceType :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'HostInstance' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'hiInstanceId' - the IDs of instances that are running on the Dedicated Host. --- --- * 'hiInstanceType' - The instance type size (for example, @m3.medium@ ) of the running instance. -hostInstance - :: HostInstance -hostInstance = - HostInstance' {_hiInstanceId = Nothing, _hiInstanceType = Nothing} - - --- | the IDs of instances that are running on the Dedicated Host. -hiInstanceId :: Lens' HostInstance (Maybe Text) -hiInstanceId = lens _hiInstanceId (\ s a -> s{_hiInstanceId = a}); - --- | The instance type size (for example, @m3.medium@ ) of the running instance. -hiInstanceType :: Lens' HostInstance (Maybe Text) -hiInstanceType = lens _hiInstanceType (\ s a -> s{_hiInstanceType = a}); - -instance FromXML HostInstance where - parseXML x - = HostInstance' <$> - (x .@? "instanceId") <*> (x .@? "instanceType") - -instance Hashable HostInstance where - -instance NFData HostInstance where - --- | Details about the Dedicated Host Reservation offering. --- --- --- --- /See:/ 'hostOffering' smart constructor. -data HostOffering = HostOffering' - { _hoInstanceFamily :: !(Maybe Text) - , _hoCurrencyCode :: !(Maybe CurrencyCodeValues) - , _hoHourlyPrice :: !(Maybe Text) - , _hoUpfrontPrice :: !(Maybe Text) - , _hoOfferingId :: !(Maybe Text) - , _hoDuration :: !(Maybe Int) - , _hoPaymentOption :: !(Maybe PaymentOption) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'HostOffering' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'hoInstanceFamily' - The instance family of the offering. --- --- * 'hoCurrencyCode' - The currency of the offering. --- --- * 'hoHourlyPrice' - The hourly price of the offering. --- --- * 'hoUpfrontPrice' - The upfront price of the offering. Does not apply to No Upfront offerings. --- --- * 'hoOfferingId' - The ID of the offering. --- --- * 'hoDuration' - The duration of the offering (in seconds). --- --- * 'hoPaymentOption' - The available payment option. -hostOffering - :: HostOffering -hostOffering = - HostOffering' - { _hoInstanceFamily = Nothing - , _hoCurrencyCode = Nothing - , _hoHourlyPrice = Nothing - , _hoUpfrontPrice = Nothing - , _hoOfferingId = Nothing - , _hoDuration = Nothing - , _hoPaymentOption = Nothing - } - - --- | The instance family of the offering. -hoInstanceFamily :: Lens' HostOffering (Maybe Text) -hoInstanceFamily = lens _hoInstanceFamily (\ s a -> s{_hoInstanceFamily = a}); - --- | The currency of the offering. -hoCurrencyCode :: Lens' HostOffering (Maybe CurrencyCodeValues) -hoCurrencyCode = lens _hoCurrencyCode (\ s a -> s{_hoCurrencyCode = a}); - --- | The hourly price of the offering. -hoHourlyPrice :: Lens' HostOffering (Maybe Text) -hoHourlyPrice = lens _hoHourlyPrice (\ s a -> s{_hoHourlyPrice = a}); - --- | The upfront price of the offering. Does not apply to No Upfront offerings. -hoUpfrontPrice :: Lens' HostOffering (Maybe Text) -hoUpfrontPrice = lens _hoUpfrontPrice (\ s a -> s{_hoUpfrontPrice = a}); - --- | The ID of the offering. -hoOfferingId :: Lens' HostOffering (Maybe Text) -hoOfferingId = lens _hoOfferingId (\ s a -> s{_hoOfferingId = a}); - --- | The duration of the offering (in seconds). -hoDuration :: Lens' HostOffering (Maybe Int) -hoDuration = lens _hoDuration (\ s a -> s{_hoDuration = a}); - --- | The available payment option. -hoPaymentOption :: Lens' HostOffering (Maybe PaymentOption) -hoPaymentOption = lens _hoPaymentOption (\ s a -> s{_hoPaymentOption = a}); - -instance FromXML HostOffering where - parseXML x - = HostOffering' <$> - (x .@? "instanceFamily") <*> (x .@? "currencyCode") - <*> (x .@? "hourlyPrice") - <*> (x .@? "upfrontPrice") - <*> (x .@? "offeringId") - <*> (x .@? "duration") - <*> (x .@? "paymentOption") - -instance Hashable HostOffering where - -instance NFData HostOffering where - --- | Describes properties of a Dedicated Host. --- --- --- --- /See:/ 'hostProperties' smart constructor. -data HostProperties = HostProperties' - { _hpInstanceType :: !(Maybe Text) - , _hpTotalVCPUs :: !(Maybe Int) - , _hpCores :: !(Maybe Int) - , _hpSockets :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'HostProperties' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'hpInstanceType' - The instance type size that the Dedicated Host supports (for example, @m3.medium@ ). --- --- * 'hpTotalVCPUs' - The number of vCPUs on the Dedicated Host. --- --- * 'hpCores' - The number of cores on the Dedicated Host. --- --- * 'hpSockets' - The number of sockets on the Dedicated Host. -hostProperties - :: HostProperties -hostProperties = - HostProperties' - { _hpInstanceType = Nothing - , _hpTotalVCPUs = Nothing - , _hpCores = Nothing - , _hpSockets = Nothing - } - - --- | The instance type size that the Dedicated Host supports (for example, @m3.medium@ ). -hpInstanceType :: Lens' HostProperties (Maybe Text) -hpInstanceType = lens _hpInstanceType (\ s a -> s{_hpInstanceType = a}); - --- | The number of vCPUs on the Dedicated Host. -hpTotalVCPUs :: Lens' HostProperties (Maybe Int) -hpTotalVCPUs = lens _hpTotalVCPUs (\ s a -> s{_hpTotalVCPUs = a}); - --- | The number of cores on the Dedicated Host. -hpCores :: Lens' HostProperties (Maybe Int) -hpCores = lens _hpCores (\ s a -> s{_hpCores = a}); - --- | The number of sockets on the Dedicated Host. -hpSockets :: Lens' HostProperties (Maybe Int) -hpSockets = lens _hpSockets (\ s a -> s{_hpSockets = a}); - -instance FromXML HostProperties where - parseXML x - = HostProperties' <$> - (x .@? "instanceType") <*> (x .@? "totalVCpus") <*> - (x .@? "cores") - <*> (x .@? "sockets") - -instance Hashable HostProperties where - -instance NFData HostProperties where - --- | Details about the Dedicated Host Reservation and associated Dedicated Hosts. --- --- --- --- /See:/ 'hostReservation' smart constructor. -data HostReservation = HostReservation' - { _hrState :: !(Maybe ReservationState) - , _hrInstanceFamily :: !(Maybe Text) - , _hrCurrencyCode :: !(Maybe CurrencyCodeValues) - , _hrHostReservationId :: !(Maybe Text) - , _hrStart :: !(Maybe ISO8601) - , _hrHourlyPrice :: !(Maybe Text) - , _hrCount :: !(Maybe Int) - , _hrUpfrontPrice :: !(Maybe Text) - , _hrEnd :: !(Maybe ISO8601) - , _hrHostIdSet :: !(Maybe [Text]) - , _hrOfferingId :: !(Maybe Text) - , _hrDuration :: !(Maybe Int) - , _hrPaymentOption :: !(Maybe PaymentOption) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'HostReservation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'hrState' - The state of the reservation. --- --- * 'hrInstanceFamily' - The instance family of the Dedicated Host Reservation. The instance family on the Dedicated Host must be the same in order for it to benefit from the reservation. --- --- * 'hrCurrencyCode' - The currency in which the @upfrontPrice@ and @hourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . --- --- * 'hrHostReservationId' - The ID of the reservation that specifies the associated Dedicated Hosts. --- --- * 'hrStart' - The date and time that the reservation started. --- --- * 'hrHourlyPrice' - The hourly price of the reservation. --- --- * 'hrCount' - The number of Dedicated Hosts the reservation is associated with. --- --- * 'hrUpfrontPrice' - The upfront price of the reservation. --- --- * 'hrEnd' - The date and time that the reservation ends. --- --- * 'hrHostIdSet' - The IDs of the Dedicated Hosts associated with the reservation. --- --- * 'hrOfferingId' - The ID of the reservation. This remains the same regardless of which Dedicated Hosts are associated with it. --- --- * 'hrDuration' - The length of the reservation's term, specified in seconds. Can be @31536000 (1 year)@ | @94608000 (3 years)@ . --- --- * 'hrPaymentOption' - The payment option selected for this reservation. -hostReservation - :: HostReservation -hostReservation = - HostReservation' - { _hrState = Nothing - , _hrInstanceFamily = Nothing - , _hrCurrencyCode = Nothing - , _hrHostReservationId = Nothing - , _hrStart = Nothing - , _hrHourlyPrice = Nothing - , _hrCount = Nothing - , _hrUpfrontPrice = Nothing - , _hrEnd = Nothing - , _hrHostIdSet = Nothing - , _hrOfferingId = Nothing - , _hrDuration = Nothing - , _hrPaymentOption = Nothing - } - - --- | The state of the reservation. -hrState :: Lens' HostReservation (Maybe ReservationState) -hrState = lens _hrState (\ s a -> s{_hrState = a}); - --- | The instance family of the Dedicated Host Reservation. The instance family on the Dedicated Host must be the same in order for it to benefit from the reservation. -hrInstanceFamily :: Lens' HostReservation (Maybe Text) -hrInstanceFamily = lens _hrInstanceFamily (\ s a -> s{_hrInstanceFamily = a}); - --- | The currency in which the @upfrontPrice@ and @hourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . -hrCurrencyCode :: Lens' HostReservation (Maybe CurrencyCodeValues) -hrCurrencyCode = lens _hrCurrencyCode (\ s a -> s{_hrCurrencyCode = a}); - --- | The ID of the reservation that specifies the associated Dedicated Hosts. -hrHostReservationId :: Lens' HostReservation (Maybe Text) -hrHostReservationId = lens _hrHostReservationId (\ s a -> s{_hrHostReservationId = a}); - --- | The date and time that the reservation started. -hrStart :: Lens' HostReservation (Maybe UTCTime) -hrStart = lens _hrStart (\ s a -> s{_hrStart = a}) . mapping _Time; - --- | The hourly price of the reservation. -hrHourlyPrice :: Lens' HostReservation (Maybe Text) -hrHourlyPrice = lens _hrHourlyPrice (\ s a -> s{_hrHourlyPrice = a}); - --- | The number of Dedicated Hosts the reservation is associated with. -hrCount :: Lens' HostReservation (Maybe Int) -hrCount = lens _hrCount (\ s a -> s{_hrCount = a}); - --- | The upfront price of the reservation. -hrUpfrontPrice :: Lens' HostReservation (Maybe Text) -hrUpfrontPrice = lens _hrUpfrontPrice (\ s a -> s{_hrUpfrontPrice = a}); - --- | The date and time that the reservation ends. -hrEnd :: Lens' HostReservation (Maybe UTCTime) -hrEnd = lens _hrEnd (\ s a -> s{_hrEnd = a}) . mapping _Time; - --- | The IDs of the Dedicated Hosts associated with the reservation. -hrHostIdSet :: Lens' HostReservation [Text] -hrHostIdSet = lens _hrHostIdSet (\ s a -> s{_hrHostIdSet = a}) . _Default . _Coerce; - --- | The ID of the reservation. This remains the same regardless of which Dedicated Hosts are associated with it. -hrOfferingId :: Lens' HostReservation (Maybe Text) -hrOfferingId = lens _hrOfferingId (\ s a -> s{_hrOfferingId = a}); - --- | The length of the reservation's term, specified in seconds. Can be @31536000 (1 year)@ | @94608000 (3 years)@ . -hrDuration :: Lens' HostReservation (Maybe Int) -hrDuration = lens _hrDuration (\ s a -> s{_hrDuration = a}); - --- | The payment option selected for this reservation. -hrPaymentOption :: Lens' HostReservation (Maybe PaymentOption) -hrPaymentOption = lens _hrPaymentOption (\ s a -> s{_hrPaymentOption = a}); - -instance FromXML HostReservation where - parseXML x - = HostReservation' <$> - (x .@? "state") <*> (x .@? "instanceFamily") <*> - (x .@? "currencyCode") - <*> (x .@? "hostReservationId") - <*> (x .@? "start") - <*> (x .@? "hourlyPrice") - <*> (x .@? "count") - <*> (x .@? "upfrontPrice") - <*> (x .@? "end") - <*> - (x .@? "hostIdSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "offeringId") - <*> (x .@? "duration") - <*> (x .@? "paymentOption") - -instance Hashable HostReservation where - -instance NFData HostReservation where - --- | Describes an IAM instance profile. --- --- --- --- /See:/ 'iamInstanceProfile' smart constructor. -data IAMInstanceProfile = IAMInstanceProfile' - { _iapARN :: !(Maybe Text) - , _iapId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IAMInstanceProfile' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iapARN' - The Amazon Resource Name (ARN) of the instance profile. --- --- * 'iapId' - The ID of the instance profile. -iamInstanceProfile - :: IAMInstanceProfile -iamInstanceProfile = IAMInstanceProfile' {_iapARN = Nothing, _iapId = Nothing} - - --- | The Amazon Resource Name (ARN) of the instance profile. -iapARN :: Lens' IAMInstanceProfile (Maybe Text) -iapARN = lens _iapARN (\ s a -> s{_iapARN = a}); - --- | The ID of the instance profile. -iapId :: Lens' IAMInstanceProfile (Maybe Text) -iapId = lens _iapId (\ s a -> s{_iapId = a}); - -instance FromXML IAMInstanceProfile where - parseXML x - = IAMInstanceProfile' <$> - (x .@? "arn") <*> (x .@? "id") - -instance Hashable IAMInstanceProfile where - -instance NFData IAMInstanceProfile where - --- | Describes an association between an IAM instance profile and an instance. --- --- --- --- /See:/ 'iamInstanceProfileAssociation' smart constructor. -data IAMInstanceProfileAssociation = IAMInstanceProfileAssociation' - { _iapaAssociationId :: !(Maybe Text) - , _iapaInstanceId :: !(Maybe Text) - , _iapaState :: !(Maybe IAMInstanceProfileAssociationState) - , _iapaIAMInstanceProfile :: !(Maybe IAMInstanceProfile) - , _iapaTimestamp :: !(Maybe ISO8601) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IAMInstanceProfileAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iapaAssociationId' - The ID of the association. --- --- * 'iapaInstanceId' - The ID of the instance. --- --- * 'iapaState' - The state of the association. --- --- * 'iapaIAMInstanceProfile' - The IAM instance profile. --- --- * 'iapaTimestamp' - The time the IAM instance profile was associated with the instance. -iamInstanceProfileAssociation - :: IAMInstanceProfileAssociation -iamInstanceProfileAssociation = - IAMInstanceProfileAssociation' - { _iapaAssociationId = Nothing - , _iapaInstanceId = Nothing - , _iapaState = Nothing - , _iapaIAMInstanceProfile = Nothing - , _iapaTimestamp = Nothing - } - - --- | The ID of the association. -iapaAssociationId :: Lens' IAMInstanceProfileAssociation (Maybe Text) -iapaAssociationId = lens _iapaAssociationId (\ s a -> s{_iapaAssociationId = a}); - --- | The ID of the instance. -iapaInstanceId :: Lens' IAMInstanceProfileAssociation (Maybe Text) -iapaInstanceId = lens _iapaInstanceId (\ s a -> s{_iapaInstanceId = a}); - --- | The state of the association. -iapaState :: Lens' IAMInstanceProfileAssociation (Maybe IAMInstanceProfileAssociationState) -iapaState = lens _iapaState (\ s a -> s{_iapaState = a}); - --- | The IAM instance profile. -iapaIAMInstanceProfile :: Lens' IAMInstanceProfileAssociation (Maybe IAMInstanceProfile) -iapaIAMInstanceProfile = lens _iapaIAMInstanceProfile (\ s a -> s{_iapaIAMInstanceProfile = a}); - --- | The time the IAM instance profile was associated with the instance. -iapaTimestamp :: Lens' IAMInstanceProfileAssociation (Maybe UTCTime) -iapaTimestamp = lens _iapaTimestamp (\ s a -> s{_iapaTimestamp = a}) . mapping _Time; - -instance FromXML IAMInstanceProfileAssociation where - parseXML x - = IAMInstanceProfileAssociation' <$> - (x .@? "associationId") <*> (x .@? "instanceId") <*> - (x .@? "state") - <*> (x .@? "iamInstanceProfile") - <*> (x .@? "timestamp") - -instance Hashable IAMInstanceProfileAssociation where - -instance NFData IAMInstanceProfileAssociation where - --- | Describes an IAM instance profile. --- --- --- --- /See:/ 'iamInstanceProfileSpecification' smart constructor. -data IAMInstanceProfileSpecification = IAMInstanceProfileSpecification' - { _iapsARN :: !(Maybe Text) - , _iapsName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IAMInstanceProfileSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iapsARN' - The Amazon Resource Name (ARN) of the instance profile. --- --- * 'iapsName' - The name of the instance profile. -iamInstanceProfileSpecification - :: IAMInstanceProfileSpecification -iamInstanceProfileSpecification = - IAMInstanceProfileSpecification' {_iapsARN = Nothing, _iapsName = Nothing} - - --- | The Amazon Resource Name (ARN) of the instance profile. -iapsARN :: Lens' IAMInstanceProfileSpecification (Maybe Text) -iapsARN = lens _iapsARN (\ s a -> s{_iapsARN = a}); - --- | The name of the instance profile. -iapsName :: Lens' IAMInstanceProfileSpecification (Maybe Text) -iapsName = lens _iapsName (\ s a -> s{_iapsName = a}); - -instance FromXML IAMInstanceProfileSpecification - where - parseXML x - = IAMInstanceProfileSpecification' <$> - (x .@? "arn") <*> (x .@? "name") - -instance Hashable IAMInstanceProfileSpecification - where - -instance NFData IAMInstanceProfileSpecification where - -instance ToQuery IAMInstanceProfileSpecification - where - toQuery IAMInstanceProfileSpecification'{..} - = mconcat ["Arn" =: _iapsARN, "Name" =: _iapsName] - --- | Describes the ICMP type and code. --- --- --- --- /See:/ 'icmpTypeCode' smart constructor. -data ICMPTypeCode = ICMPTypeCode' - { _itcCode :: !(Maybe Int) - , _itcType :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ICMPTypeCode' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'itcCode' - The ICMP code. A value of -1 means all codes for the specified ICMP type. --- --- * 'itcType' - The ICMP type. A value of -1 means all types. -icmpTypeCode - :: ICMPTypeCode -icmpTypeCode = ICMPTypeCode' {_itcCode = Nothing, _itcType = Nothing} - - --- | The ICMP code. A value of -1 means all codes for the specified ICMP type. -itcCode :: Lens' ICMPTypeCode (Maybe Int) -itcCode = lens _itcCode (\ s a -> s{_itcCode = a}); - --- | The ICMP type. A value of -1 means all types. -itcType :: Lens' ICMPTypeCode (Maybe Int) -itcType = lens _itcType (\ s a -> s{_itcType = a}); - -instance FromXML ICMPTypeCode where - parseXML x - = ICMPTypeCode' <$> (x .@? "code") <*> (x .@? "type") - -instance Hashable ICMPTypeCode where - -instance NFData ICMPTypeCode where - -instance ToQuery ICMPTypeCode where - toQuery ICMPTypeCode'{..} - = mconcat ["Code" =: _itcCode, "Type" =: _itcType] - --- | Describes a set of permissions for a security group rule. --- --- --- --- /See:/ 'ipPermission' smart constructor. -data IPPermission = IPPermission' - { _ipFromPort :: !(Maybe Int) - , _ipUserIdGroupPairs :: !(Maybe [UserIdGroupPair]) - , _ipPrefixListIds :: !(Maybe [PrefixListId]) - , _ipToPort :: !(Maybe Int) - , _ipIPv6Ranges :: !(Maybe [IPv6Range]) - , _ipIPRanges :: !(Maybe [IPRange]) - , _ipIPProtocol :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IPPermission' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ipFromPort' - The start of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 type number. A value of @-1@ indicates all ICMP/ICMPv6 types. If you specify all ICMP/ICMPv6 types, you must specify all codes. --- --- * 'ipUserIdGroupPairs' - One or more security group and AWS account ID pairs. --- --- * 'ipPrefixListIds' - (Valid for 'AuthorizeSecurityGroupEgress' , 'RevokeSecurityGroupEgress' and 'DescribeSecurityGroups' only) One or more prefix list IDs for an AWS service. In an 'AuthorizeSecurityGroupEgress' request, this is the AWS service that you want to access through a VPC endpoint from instances associated with the security group. --- --- * 'ipToPort' - The end of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 code. A value of @-1@ indicates all ICMP/ICMPv6 codes for the specified ICMP type. If you specify all ICMP/ICMPv6 types, you must specify all codes. --- --- * 'ipIPv6Ranges' - [EC2-VPC only] One or more IPv6 ranges. --- --- * 'ipIPRanges' - One or more IPv4 ranges. --- --- * 'ipIPProtocol' - The IP protocol name (@tcp@ , @udp@ , @icmp@ ) or number (see ). [EC2-VPC only] Use @-1@ to specify all protocols. When authorizing security group rules, specifying @-1@ or a protocol number other than @tcp@ , @udp@ , @icmp@ , or @58@ (ICMPv6) allows traffic on all ports, regardless of any port range you specify. For @tcp@ , @udp@ , and @icmp@ , you must specify a port range. For @58@ (ICMPv6), you can optionally specify a port range; if you don't, traffic for all types and codes is allowed when authorizing rules. -ipPermission - :: Text -- ^ 'ipIPProtocol' - -> IPPermission -ipPermission pIPProtocol_ = - IPPermission' - { _ipFromPort = Nothing - , _ipUserIdGroupPairs = Nothing - , _ipPrefixListIds = Nothing - , _ipToPort = Nothing - , _ipIPv6Ranges = Nothing - , _ipIPRanges = Nothing - , _ipIPProtocol = pIPProtocol_ - } - - --- | The start of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 type number. A value of @-1@ indicates all ICMP/ICMPv6 types. If you specify all ICMP/ICMPv6 types, you must specify all codes. -ipFromPort :: Lens' IPPermission (Maybe Int) -ipFromPort = lens _ipFromPort (\ s a -> s{_ipFromPort = a}); - --- | One or more security group and AWS account ID pairs. -ipUserIdGroupPairs :: Lens' IPPermission [UserIdGroupPair] -ipUserIdGroupPairs = lens _ipUserIdGroupPairs (\ s a -> s{_ipUserIdGroupPairs = a}) . _Default . _Coerce; - --- | (Valid for 'AuthorizeSecurityGroupEgress' , 'RevokeSecurityGroupEgress' and 'DescribeSecurityGroups' only) One or more prefix list IDs for an AWS service. In an 'AuthorizeSecurityGroupEgress' request, this is the AWS service that you want to access through a VPC endpoint from instances associated with the security group. -ipPrefixListIds :: Lens' IPPermission [PrefixListId] -ipPrefixListIds = lens _ipPrefixListIds (\ s a -> s{_ipPrefixListIds = a}) . _Default . _Coerce; - --- | The end of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 code. A value of @-1@ indicates all ICMP/ICMPv6 codes for the specified ICMP type. If you specify all ICMP/ICMPv6 types, you must specify all codes. -ipToPort :: Lens' IPPermission (Maybe Int) -ipToPort = lens _ipToPort (\ s a -> s{_ipToPort = a}); - --- | [EC2-VPC only] One or more IPv6 ranges. -ipIPv6Ranges :: Lens' IPPermission [IPv6Range] -ipIPv6Ranges = lens _ipIPv6Ranges (\ s a -> s{_ipIPv6Ranges = a}) . _Default . _Coerce; - --- | One or more IPv4 ranges. -ipIPRanges :: Lens' IPPermission [IPRange] -ipIPRanges = lens _ipIPRanges (\ s a -> s{_ipIPRanges = a}) . _Default . _Coerce; - --- | The IP protocol name (@tcp@ , @udp@ , @icmp@ ) or number (see ). [EC2-VPC only] Use @-1@ to specify all protocols. When authorizing security group rules, specifying @-1@ or a protocol number other than @tcp@ , @udp@ , @icmp@ , or @58@ (ICMPv6) allows traffic on all ports, regardless of any port range you specify. For @tcp@ , @udp@ , and @icmp@ , you must specify a port range. For @58@ (ICMPv6), you can optionally specify a port range; if you don't, traffic for all types and codes is allowed when authorizing rules. -ipIPProtocol :: Lens' IPPermission Text -ipIPProtocol = lens _ipIPProtocol (\ s a -> s{_ipIPProtocol = a}); - -instance FromXML IPPermission where - parseXML x - = IPPermission' <$> - (x .@? "fromPort") <*> - (x .@? "groups" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "prefixListIds" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "toPort") - <*> - (x .@? "ipv6Ranges" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "ipRanges" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "ipProtocol") - -instance Hashable IPPermission where - -instance NFData IPPermission where - -instance ToQuery IPPermission where - toQuery IPPermission'{..} - = mconcat - ["FromPort" =: _ipFromPort, - toQuery - (toQueryList "Groups" <$> _ipUserIdGroupPairs), - toQuery - (toQueryList "PrefixListIds" <$> _ipPrefixListIds), - "ToPort" =: _ipToPort, - toQuery (toQueryList "Ipv6Ranges" <$> _ipIPv6Ranges), - toQuery (toQueryList "IpRanges" <$> _ipIPRanges), - "IpProtocol" =: _ipIPProtocol] - --- | Describes an IPv4 range. --- --- --- --- /See:/ 'ipRange' smart constructor. -data IPRange = IPRange' - { _iprDescription :: !(Maybe Text) - , _iprCidrIP :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IPRange' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iprDescription' - A description for the security group rule that references this IPv4 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* --- --- * 'iprCidrIP' - The IPv4 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv4 address, use the /32 prefix length. -ipRange - :: Text -- ^ 'iprCidrIP' - -> IPRange -ipRange pCidrIP_ = IPRange' {_iprDescription = Nothing, _iprCidrIP = pCidrIP_} - - --- | A description for the security group rule that references this IPv4 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* -iprDescription :: Lens' IPRange (Maybe Text) -iprDescription = lens _iprDescription (\ s a -> s{_iprDescription = a}); - --- | The IPv4 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv4 address, use the /32 prefix length. -iprCidrIP :: Lens' IPRange Text -iprCidrIP = lens _iprCidrIP (\ s a -> s{_iprCidrIP = a}); - -instance FromXML IPRange where - parseXML x - = IPRange' <$> - (x .@? "description") <*> (x .@ "cidrIp") - -instance Hashable IPRange where - -instance NFData IPRange where - -instance ToQuery IPRange where - toQuery IPRange'{..} - = mconcat - ["Description" =: _iprDescription, - "CidrIp" =: _iprCidrIP] - --- | Describes an IPv6 CIDR block. --- --- --- --- /See:/ 'ipv6CidrBlock' smart constructor. -newtype IPv6CidrBlock = IPv6CidrBlock' - { _icbIPv6CidrBlock :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IPv6CidrBlock' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'icbIPv6CidrBlock' - The IPv6 CIDR block. -ipv6CidrBlock - :: IPv6CidrBlock -ipv6CidrBlock = IPv6CidrBlock' {_icbIPv6CidrBlock = Nothing} - - --- | The IPv6 CIDR block. -icbIPv6CidrBlock :: Lens' IPv6CidrBlock (Maybe Text) -icbIPv6CidrBlock = lens _icbIPv6CidrBlock (\ s a -> s{_icbIPv6CidrBlock = a}); - -instance FromXML IPv6CidrBlock where - parseXML x - = IPv6CidrBlock' <$> (x .@? "ipv6CidrBlock") - -instance Hashable IPv6CidrBlock where - -instance NFData IPv6CidrBlock where - --- | [EC2-VPC only] Describes an IPv6 range. --- --- --- --- /See:/ 'ipv6Range' smart constructor. -data IPv6Range = IPv6Range' - { _irCidrIPv6 :: !(Maybe Text) - , _irDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IPv6Range' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'irCidrIPv6' - The IPv6 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv6 address, use the /128 prefix length. --- --- * 'irDescription' - A description for the security group rule that references this IPv6 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* -ipv6Range - :: IPv6Range -ipv6Range = IPv6Range' {_irCidrIPv6 = Nothing, _irDescription = Nothing} - - --- | The IPv6 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv6 address, use the /128 prefix length. -irCidrIPv6 :: Lens' IPv6Range (Maybe Text) -irCidrIPv6 = lens _irCidrIPv6 (\ s a -> s{_irCidrIPv6 = a}); - --- | A description for the security group rule that references this IPv6 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* -irDescription :: Lens' IPv6Range (Maybe Text) -irDescription = lens _irDescription (\ s a -> s{_irDescription = a}); - -instance FromXML IPv6Range where - parseXML x - = IPv6Range' <$> - (x .@? "cidrIpv6") <*> (x .@? "description") - -instance Hashable IPv6Range where - -instance NFData IPv6Range where - -instance ToQuery IPv6Range where - toQuery IPv6Range'{..} - = mconcat - ["CidrIpv6" =: _irCidrIPv6, - "Description" =: _irDescription] - --- | Describes the ID format for a resource. --- --- --- --- /See:/ 'idFormat' smart constructor. -data IdFormat = IdFormat' - { _ifUseLongIds :: !(Maybe Bool) - , _ifDeadline :: !(Maybe ISO8601) - , _ifResource :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'IdFormat' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ifUseLongIds' - Indicates whether longer IDs (17-character IDs) are enabled for the resource. --- --- * 'ifDeadline' - The date in UTC at which you are permanently switched over to using longer IDs. If a deadline is not yet available for this resource type, this field is not returned. --- --- * 'ifResource' - The type of resource. -idFormat - :: IdFormat -idFormat = - IdFormat' - {_ifUseLongIds = Nothing, _ifDeadline = Nothing, _ifResource = Nothing} - - --- | Indicates whether longer IDs (17-character IDs) are enabled for the resource. -ifUseLongIds :: Lens' IdFormat (Maybe Bool) -ifUseLongIds = lens _ifUseLongIds (\ s a -> s{_ifUseLongIds = a}); - --- | The date in UTC at which you are permanently switched over to using longer IDs. If a deadline is not yet available for this resource type, this field is not returned. -ifDeadline :: Lens' IdFormat (Maybe UTCTime) -ifDeadline = lens _ifDeadline (\ s a -> s{_ifDeadline = a}) . mapping _Time; - --- | The type of resource. -ifResource :: Lens' IdFormat (Maybe Text) -ifResource = lens _ifResource (\ s a -> s{_ifResource = a}); - -instance FromXML IdFormat where - parseXML x - = IdFormat' <$> - (x .@? "useLongIds") <*> (x .@? "deadline") <*> - (x .@? "resource") - -instance Hashable IdFormat where - -instance NFData IdFormat where - --- | Describes an image. --- --- --- --- /See:/ 'image' smart constructor. -data Image = Image' - { _iPlatform :: !(Maybe PlatformValues) - , _iEnaSupport :: !(Maybe Bool) - , _iImageOwnerAlias :: !(Maybe Text) - , _iRAMDiskId :: !(Maybe Text) - , _iKernelId :: !(Maybe Text) - , _iRootDeviceName :: !(Maybe Text) - , _iSRIOVNetSupport :: !(Maybe Text) - , _iName :: !(Maybe Text) - , _iCreationDate :: !(Maybe Text) - , _iProductCodes :: !(Maybe [ProductCode]) - , _iStateReason :: !(Maybe StateReason) - , _iDescription :: !(Maybe Text) - , _iBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) - , _iTags :: !(Maybe [Tag]) - , _iImageId :: !Text - , _iImageLocation :: !Text - , _iState :: !ImageState - , _iOwnerId :: !Text - , _iPublic :: !Bool - , _iArchitecture :: !ArchitectureValues - , _iImageType :: !ImageTypeValues - , _iRootDeviceType :: !DeviceType - , _iVirtualizationType :: !VirtualizationType - , _iHypervisor :: !HypervisorType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Image' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iPlatform' - The value is @Windows@ for Windows AMIs; otherwise blank. --- --- * 'iEnaSupport' - Specifies whether enhanced networking with ENA is enabled. --- --- * 'iImageOwnerAlias' - The AWS account alias (for example, @amazon@ , @self@ ) or the AWS account ID of the AMI owner. --- --- * 'iRAMDiskId' - The RAM disk associated with the image, if any. Only applicable for machine images. --- --- * 'iKernelId' - The kernel associated with the image, if any. Only applicable for machine images. --- --- * 'iRootDeviceName' - The device name of the root device volume (for example, @/dev/sda1@ ). --- --- * 'iSRIOVNetSupport' - Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. --- --- * 'iName' - The name of the AMI that was provided during image creation. --- --- * 'iCreationDate' - The date and time the image was created. --- --- * 'iProductCodes' - Any product codes associated with the AMI. --- --- * 'iStateReason' - The reason for the state change. --- --- * 'iDescription' - The description of the AMI that was provided during image creation. --- --- * 'iBlockDeviceMappings' - Any block device mapping entries. --- --- * 'iTags' - Any tags assigned to the image. --- --- * 'iImageId' - The ID of the AMI. --- --- * 'iImageLocation' - The location of the AMI. --- --- * 'iState' - The current state of the AMI. If the state is @available@ , the image is successfully registered and can be used to launch an instance. --- --- * 'iOwnerId' - The AWS account ID of the image owner. --- --- * 'iPublic' - Indicates whether the image has public launch permissions. The value is @true@ if this image has public launch permissions or @false@ if it has only implicit and explicit launch permissions. --- --- * 'iArchitecture' - The architecture of the image. --- --- * 'iImageType' - The type of image. --- --- * 'iRootDeviceType' - The type of root device used by the AMI. The AMI can use an EBS volume or an instance store volume. --- --- * 'iVirtualizationType' - The type of virtualization of the AMI. --- --- * 'iHypervisor' - The hypervisor type of the image. -image - :: Text -- ^ 'iImageId' - -> Text -- ^ 'iImageLocation' - -> ImageState -- ^ 'iState' - -> Text -- ^ 'iOwnerId' - -> Bool -- ^ 'iPublic' - -> ArchitectureValues -- ^ 'iArchitecture' - -> ImageTypeValues -- ^ 'iImageType' - -> DeviceType -- ^ 'iRootDeviceType' - -> VirtualizationType -- ^ 'iVirtualizationType' - -> HypervisorType -- ^ 'iHypervisor' - -> Image -image pImageId_ pImageLocation_ pState_ pOwnerId_ pPublic_ pArchitecture_ pImageType_ pRootDeviceType_ pVirtualizationType_ pHypervisor_ = - Image' - { _iPlatform = Nothing - , _iEnaSupport = Nothing - , _iImageOwnerAlias = Nothing - , _iRAMDiskId = Nothing - , _iKernelId = Nothing - , _iRootDeviceName = Nothing - , _iSRIOVNetSupport = Nothing - , _iName = Nothing - , _iCreationDate = Nothing - , _iProductCodes = Nothing - , _iStateReason = Nothing - , _iDescription = Nothing - , _iBlockDeviceMappings = Nothing - , _iTags = Nothing - , _iImageId = pImageId_ - , _iImageLocation = pImageLocation_ - , _iState = pState_ - , _iOwnerId = pOwnerId_ - , _iPublic = pPublic_ - , _iArchitecture = pArchitecture_ - , _iImageType = pImageType_ - , _iRootDeviceType = pRootDeviceType_ - , _iVirtualizationType = pVirtualizationType_ - , _iHypervisor = pHypervisor_ - } - - --- | The value is @Windows@ for Windows AMIs; otherwise blank. -iPlatform :: Lens' Image (Maybe PlatformValues) -iPlatform = lens _iPlatform (\ s a -> s{_iPlatform = a}); - --- | Specifies whether enhanced networking with ENA is enabled. -iEnaSupport :: Lens' Image (Maybe Bool) -iEnaSupport = lens _iEnaSupport (\ s a -> s{_iEnaSupport = a}); - --- | The AWS account alias (for example, @amazon@ , @self@ ) or the AWS account ID of the AMI owner. -iImageOwnerAlias :: Lens' Image (Maybe Text) -iImageOwnerAlias = lens _iImageOwnerAlias (\ s a -> s{_iImageOwnerAlias = a}); - --- | The RAM disk associated with the image, if any. Only applicable for machine images. -iRAMDiskId :: Lens' Image (Maybe Text) -iRAMDiskId = lens _iRAMDiskId (\ s a -> s{_iRAMDiskId = a}); - --- | The kernel associated with the image, if any. Only applicable for machine images. -iKernelId :: Lens' Image (Maybe Text) -iKernelId = lens _iKernelId (\ s a -> s{_iKernelId = a}); - --- | The device name of the root device volume (for example, @/dev/sda1@ ). -iRootDeviceName :: Lens' Image (Maybe Text) -iRootDeviceName = lens _iRootDeviceName (\ s a -> s{_iRootDeviceName = a}); - --- | Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. -iSRIOVNetSupport :: Lens' Image (Maybe Text) -iSRIOVNetSupport = lens _iSRIOVNetSupport (\ s a -> s{_iSRIOVNetSupport = a}); - --- | The name of the AMI that was provided during image creation. -iName :: Lens' Image (Maybe Text) -iName = lens _iName (\ s a -> s{_iName = a}); - --- | The date and time the image was created. -iCreationDate :: Lens' Image (Maybe Text) -iCreationDate = lens _iCreationDate (\ s a -> s{_iCreationDate = a}); - --- | Any product codes associated with the AMI. -iProductCodes :: Lens' Image [ProductCode] -iProductCodes = lens _iProductCodes (\ s a -> s{_iProductCodes = a}) . _Default . _Coerce; - --- | The reason for the state change. -iStateReason :: Lens' Image (Maybe StateReason) -iStateReason = lens _iStateReason (\ s a -> s{_iStateReason = a}); - --- | The description of the AMI that was provided during image creation. -iDescription :: Lens' Image (Maybe Text) -iDescription = lens _iDescription (\ s a -> s{_iDescription = a}); - --- | Any block device mapping entries. -iBlockDeviceMappings :: Lens' Image [BlockDeviceMapping] -iBlockDeviceMappings = lens _iBlockDeviceMappings (\ s a -> s{_iBlockDeviceMappings = a}) . _Default . _Coerce; - --- | Any tags assigned to the image. -iTags :: Lens' Image [Tag] -iTags = lens _iTags (\ s a -> s{_iTags = a}) . _Default . _Coerce; - --- | The ID of the AMI. -iImageId :: Lens' Image Text -iImageId = lens _iImageId (\ s a -> s{_iImageId = a}); - --- | The location of the AMI. -iImageLocation :: Lens' Image Text -iImageLocation = lens _iImageLocation (\ s a -> s{_iImageLocation = a}); - --- | The current state of the AMI. If the state is @available@ , the image is successfully registered and can be used to launch an instance. -iState :: Lens' Image ImageState -iState = lens _iState (\ s a -> s{_iState = a}); - --- | The AWS account ID of the image owner. -iOwnerId :: Lens' Image Text -iOwnerId = lens _iOwnerId (\ s a -> s{_iOwnerId = a}); - --- | Indicates whether the image has public launch permissions. The value is @true@ if this image has public launch permissions or @false@ if it has only implicit and explicit launch permissions. -iPublic :: Lens' Image Bool -iPublic = lens _iPublic (\ s a -> s{_iPublic = a}); - --- | The architecture of the image. -iArchitecture :: Lens' Image ArchitectureValues -iArchitecture = lens _iArchitecture (\ s a -> s{_iArchitecture = a}); - --- | The type of image. -iImageType :: Lens' Image ImageTypeValues -iImageType = lens _iImageType (\ s a -> s{_iImageType = a}); - --- | The type of root device used by the AMI. The AMI can use an EBS volume or an instance store volume. -iRootDeviceType :: Lens' Image DeviceType -iRootDeviceType = lens _iRootDeviceType (\ s a -> s{_iRootDeviceType = a}); - --- | The type of virtualization of the AMI. -iVirtualizationType :: Lens' Image VirtualizationType -iVirtualizationType = lens _iVirtualizationType (\ s a -> s{_iVirtualizationType = a}); - --- | The hypervisor type of the image. -iHypervisor :: Lens' Image HypervisorType -iHypervisor = lens _iHypervisor (\ s a -> s{_iHypervisor = a}); - -instance FromXML Image where - parseXML x - = Image' <$> - (x .@? "platform") <*> (x .@? "enaSupport") <*> - (x .@? "imageOwnerAlias") - <*> (x .@? "ramdiskId") - <*> (x .@? "kernelId") - <*> (x .@? "rootDeviceName") - <*> (x .@? "sriovNetSupport") - <*> (x .@? "name") - <*> (x .@? "creationDate") - <*> - (x .@? "productCodes" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "stateReason") - <*> (x .@? "description") - <*> - (x .@? "blockDeviceMapping" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "imageId") - <*> (x .@ "imageLocation") - <*> (x .@ "imageState") - <*> (x .@ "imageOwnerId") - <*> (x .@ "isPublic") - <*> (x .@ "architecture") - <*> (x .@ "imageType") - <*> (x .@ "rootDeviceType") - <*> (x .@ "virtualizationType") - <*> (x .@ "hypervisor") - -instance Hashable Image where - -instance NFData Image where - --- | Describes the disk container object for an import image task. --- --- --- --- /See:/ 'imageDiskContainer' smart constructor. -data ImageDiskContainer = ImageDiskContainer' - { _idcFormat :: !(Maybe Text) - , _idcURL :: !(Maybe Text) - , _idcDeviceName :: !(Maybe Text) - , _idcUserBucket :: !(Maybe UserBucket) - , _idcDescription :: !(Maybe Text) - , _idcSnapshotId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ImageDiskContainer' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'idcFormat' - The format of the disk image being imported. Valid values: @RAW@ | @VHD@ | @VMDK@ | @OVA@ --- --- * 'idcURL' - The URL to the Amazon S3-based disk image being imported. The URL can either be a https URL (https://..) or an Amazon S3 URL (s3://..) --- --- * 'idcDeviceName' - The block device mapping for the disk. --- --- * 'idcUserBucket' - The S3 bucket for the disk image. --- --- * 'idcDescription' - The description of the disk image. --- --- * 'idcSnapshotId' - The ID of the EBS snapshot to be used for importing the snapshot. -imageDiskContainer - :: ImageDiskContainer -imageDiskContainer = - ImageDiskContainer' - { _idcFormat = Nothing - , _idcURL = Nothing - , _idcDeviceName = Nothing - , _idcUserBucket = Nothing - , _idcDescription = Nothing - , _idcSnapshotId = Nothing - } - - --- | The format of the disk image being imported. Valid values: @RAW@ | @VHD@ | @VMDK@ | @OVA@ -idcFormat :: Lens' ImageDiskContainer (Maybe Text) -idcFormat = lens _idcFormat (\ s a -> s{_idcFormat = a}); - --- | The URL to the Amazon S3-based disk image being imported. The URL can either be a https URL (https://..) or an Amazon S3 URL (s3://..) -idcURL :: Lens' ImageDiskContainer (Maybe Text) -idcURL = lens _idcURL (\ s a -> s{_idcURL = a}); - --- | The block device mapping for the disk. -idcDeviceName :: Lens' ImageDiskContainer (Maybe Text) -idcDeviceName = lens _idcDeviceName (\ s a -> s{_idcDeviceName = a}); - --- | The S3 bucket for the disk image. -idcUserBucket :: Lens' ImageDiskContainer (Maybe UserBucket) -idcUserBucket = lens _idcUserBucket (\ s a -> s{_idcUserBucket = a}); - --- | The description of the disk image. -idcDescription :: Lens' ImageDiskContainer (Maybe Text) -idcDescription = lens _idcDescription (\ s a -> s{_idcDescription = a}); - --- | The ID of the EBS snapshot to be used for importing the snapshot. -idcSnapshotId :: Lens' ImageDiskContainer (Maybe Text) -idcSnapshotId = lens _idcSnapshotId (\ s a -> s{_idcSnapshotId = a}); - -instance Hashable ImageDiskContainer where - -instance NFData ImageDiskContainer where - -instance ToQuery ImageDiskContainer where - toQuery ImageDiskContainer'{..} - = mconcat - ["Format" =: _idcFormat, "Url" =: _idcURL, - "DeviceName" =: _idcDeviceName, - "UserBucket" =: _idcUserBucket, - "Description" =: _idcDescription, - "SnapshotId" =: _idcSnapshotId] - --- | Describes an import image task. --- --- --- --- /See:/ 'importImageTask' smart constructor. -data ImportImageTask = ImportImageTask' - { _iitStatus :: !(Maybe Text) - , _iitHypervisor :: !(Maybe Text) - , _iitPlatform :: !(Maybe Text) - , _iitProgress :: !(Maybe Text) - , _iitLicenseType :: !(Maybe Text) - , _iitSnapshotDetails :: !(Maybe [SnapshotDetail]) - , _iitStatusMessage :: !(Maybe Text) - , _iitImageId :: !(Maybe Text) - , _iitImportTaskId :: !(Maybe Text) - , _iitArchitecture :: !(Maybe Text) - , _iitDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ImportImageTask' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iitStatus' - A brief status for the import image task. --- --- * 'iitHypervisor' - The target hypervisor for the import task. Valid values: @xen@ --- --- * 'iitPlatform' - The description string for the import image task. --- --- * 'iitProgress' - The percentage of progress of the import image task. --- --- * 'iitLicenseType' - The license type of the virtual machine. --- --- * 'iitSnapshotDetails' - Information about the snapshots. --- --- * 'iitStatusMessage' - A descriptive status message for the import image task. --- --- * 'iitImageId' - The ID of the Amazon Machine Image (AMI) of the imported virtual machine. --- --- * 'iitImportTaskId' - The ID of the import image task. --- --- * 'iitArchitecture' - The architecture of the virtual machine. Valid values: @i386@ | @x86_64@ --- --- * 'iitDescription' - A description of the import task. -importImageTask - :: ImportImageTask -importImageTask = - ImportImageTask' - { _iitStatus = Nothing - , _iitHypervisor = Nothing - , _iitPlatform = Nothing - , _iitProgress = Nothing - , _iitLicenseType = Nothing - , _iitSnapshotDetails = Nothing - , _iitStatusMessage = Nothing - , _iitImageId = Nothing - , _iitImportTaskId = Nothing - , _iitArchitecture = Nothing - , _iitDescription = Nothing - } - - --- | A brief status for the import image task. -iitStatus :: Lens' ImportImageTask (Maybe Text) -iitStatus = lens _iitStatus (\ s a -> s{_iitStatus = a}); - --- | The target hypervisor for the import task. Valid values: @xen@ -iitHypervisor :: Lens' ImportImageTask (Maybe Text) -iitHypervisor = lens _iitHypervisor (\ s a -> s{_iitHypervisor = a}); - --- | The description string for the import image task. -iitPlatform :: Lens' ImportImageTask (Maybe Text) -iitPlatform = lens _iitPlatform (\ s a -> s{_iitPlatform = a}); - --- | The percentage of progress of the import image task. -iitProgress :: Lens' ImportImageTask (Maybe Text) -iitProgress = lens _iitProgress (\ s a -> s{_iitProgress = a}); - --- | The license type of the virtual machine. -iitLicenseType :: Lens' ImportImageTask (Maybe Text) -iitLicenseType = lens _iitLicenseType (\ s a -> s{_iitLicenseType = a}); - --- | Information about the snapshots. -iitSnapshotDetails :: Lens' ImportImageTask [SnapshotDetail] -iitSnapshotDetails = lens _iitSnapshotDetails (\ s a -> s{_iitSnapshotDetails = a}) . _Default . _Coerce; - --- | A descriptive status message for the import image task. -iitStatusMessage :: Lens' ImportImageTask (Maybe Text) -iitStatusMessage = lens _iitStatusMessage (\ s a -> s{_iitStatusMessage = a}); - --- | The ID of the Amazon Machine Image (AMI) of the imported virtual machine. -iitImageId :: Lens' ImportImageTask (Maybe Text) -iitImageId = lens _iitImageId (\ s a -> s{_iitImageId = a}); - --- | The ID of the import image task. -iitImportTaskId :: Lens' ImportImageTask (Maybe Text) -iitImportTaskId = lens _iitImportTaskId (\ s a -> s{_iitImportTaskId = a}); - --- | The architecture of the virtual machine. Valid values: @i386@ | @x86_64@ -iitArchitecture :: Lens' ImportImageTask (Maybe Text) -iitArchitecture = lens _iitArchitecture (\ s a -> s{_iitArchitecture = a}); - --- | A description of the import task. -iitDescription :: Lens' ImportImageTask (Maybe Text) -iitDescription = lens _iitDescription (\ s a -> s{_iitDescription = a}); - -instance FromXML ImportImageTask where - parseXML x - = ImportImageTask' <$> - (x .@? "status") <*> (x .@? "hypervisor") <*> - (x .@? "platform") - <*> (x .@? "progress") - <*> (x .@? "licenseType") - <*> - (x .@? "snapshotDetailSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "statusMessage") - <*> (x .@? "imageId") - <*> (x .@? "importTaskId") - <*> (x .@? "architecture") - <*> (x .@? "description") - -instance Hashable ImportImageTask where - -instance NFData ImportImageTask where - --- | Describes the launch specification for VM import. --- --- --- --- /See:/ 'importInstanceLaunchSpecification' smart constructor. -data ImportInstanceLaunchSpecification = ImportInstanceLaunchSpecification' - { _iilsAdditionalInfo :: !(Maybe Text) - , _iilsGroupNames :: !(Maybe [Text]) - , _iilsSubnetId :: !(Maybe Text) - , _iilsInstanceType :: !(Maybe InstanceType) - , _iilsGroupIds :: !(Maybe [Text]) - , _iilsUserData :: !(Maybe UserData) - , _iilsMonitoring :: !(Maybe Bool) - , _iilsPrivateIPAddress :: !(Maybe Text) - , _iilsInstanceInitiatedShutdownBehavior :: !(Maybe ShutdownBehavior) - , _iilsArchitecture :: !(Maybe ArchitectureValues) - , _iilsPlacement :: !(Maybe Placement) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ImportInstanceLaunchSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iilsAdditionalInfo' - Reserved. --- --- * 'iilsGroupNames' - One or more security group names. --- --- * 'iilsSubnetId' - [EC2-VPC] The ID of the subnet in which to launch the instance. --- --- * 'iilsInstanceType' - The instance type. For more information about the instance types that you can import, see in the VM Import/Export User Guide. --- --- * 'iilsGroupIds' - One or more security group IDs. --- --- * 'iilsUserData' - The user data to make available to the instance. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. --- --- * 'iilsMonitoring' - Indicates whether monitoring is enabled. --- --- * 'iilsPrivateIPAddress' - [EC2-VPC] An available IP address from the IP address range of the subnet. --- --- * 'iilsInstanceInitiatedShutdownBehavior' - Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). --- --- * 'iilsArchitecture' - The architecture of the instance. --- --- * 'iilsPlacement' - The placement information for the instance. -importInstanceLaunchSpecification - :: ImportInstanceLaunchSpecification -importInstanceLaunchSpecification = - ImportInstanceLaunchSpecification' - { _iilsAdditionalInfo = Nothing - , _iilsGroupNames = Nothing - , _iilsSubnetId = Nothing - , _iilsInstanceType = Nothing - , _iilsGroupIds = Nothing - , _iilsUserData = Nothing - , _iilsMonitoring = Nothing - , _iilsPrivateIPAddress = Nothing - , _iilsInstanceInitiatedShutdownBehavior = Nothing - , _iilsArchitecture = Nothing - , _iilsPlacement = Nothing - } - - --- | Reserved. -iilsAdditionalInfo :: Lens' ImportInstanceLaunchSpecification (Maybe Text) -iilsAdditionalInfo = lens _iilsAdditionalInfo (\ s a -> s{_iilsAdditionalInfo = a}); - --- | One or more security group names. -iilsGroupNames :: Lens' ImportInstanceLaunchSpecification [Text] -iilsGroupNames = lens _iilsGroupNames (\ s a -> s{_iilsGroupNames = a}) . _Default . _Coerce; - --- | [EC2-VPC] The ID of the subnet in which to launch the instance. -iilsSubnetId :: Lens' ImportInstanceLaunchSpecification (Maybe Text) -iilsSubnetId = lens _iilsSubnetId (\ s a -> s{_iilsSubnetId = a}); - --- | The instance type. For more information about the instance types that you can import, see in the VM Import/Export User Guide. -iilsInstanceType :: Lens' ImportInstanceLaunchSpecification (Maybe InstanceType) -iilsInstanceType = lens _iilsInstanceType (\ s a -> s{_iilsInstanceType = a}); - --- | One or more security group IDs. -iilsGroupIds :: Lens' ImportInstanceLaunchSpecification [Text] -iilsGroupIds = lens _iilsGroupIds (\ s a -> s{_iilsGroupIds = a}) . _Default . _Coerce; - --- | The user data to make available to the instance. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. -iilsUserData :: Lens' ImportInstanceLaunchSpecification (Maybe UserData) -iilsUserData = lens _iilsUserData (\ s a -> s{_iilsUserData = a}); - --- | Indicates whether monitoring is enabled. -iilsMonitoring :: Lens' ImportInstanceLaunchSpecification (Maybe Bool) -iilsMonitoring = lens _iilsMonitoring (\ s a -> s{_iilsMonitoring = a}); - --- | [EC2-VPC] An available IP address from the IP address range of the subnet. -iilsPrivateIPAddress :: Lens' ImportInstanceLaunchSpecification (Maybe Text) -iilsPrivateIPAddress = lens _iilsPrivateIPAddress (\ s a -> s{_iilsPrivateIPAddress = a}); - --- | Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). -iilsInstanceInitiatedShutdownBehavior :: Lens' ImportInstanceLaunchSpecification (Maybe ShutdownBehavior) -iilsInstanceInitiatedShutdownBehavior = lens _iilsInstanceInitiatedShutdownBehavior (\ s a -> s{_iilsInstanceInitiatedShutdownBehavior = a}); - --- | The architecture of the instance. -iilsArchitecture :: Lens' ImportInstanceLaunchSpecification (Maybe ArchitectureValues) -iilsArchitecture = lens _iilsArchitecture (\ s a -> s{_iilsArchitecture = a}); - --- | The placement information for the instance. -iilsPlacement :: Lens' ImportInstanceLaunchSpecification (Maybe Placement) -iilsPlacement = lens _iilsPlacement (\ s a -> s{_iilsPlacement = a}); - -instance Hashable ImportInstanceLaunchSpecification - where - -instance NFData ImportInstanceLaunchSpecification - where - -instance ToQuery ImportInstanceLaunchSpecification - where - toQuery ImportInstanceLaunchSpecification'{..} - = mconcat - ["AdditionalInfo" =: _iilsAdditionalInfo, - toQuery - (toQueryList "GroupName" <$> _iilsGroupNames), - "SubnetId" =: _iilsSubnetId, - "InstanceType" =: _iilsInstanceType, - toQuery (toQueryList "GroupId" <$> _iilsGroupIds), - "UserData" =: _iilsUserData, - "Monitoring" =: _iilsMonitoring, - "PrivateIpAddress" =: _iilsPrivateIPAddress, - "InstanceInitiatedShutdownBehavior" =: - _iilsInstanceInitiatedShutdownBehavior, - "Architecture" =: _iilsArchitecture, - "Placement" =: _iilsPlacement] - --- | Describes an import instance task. --- --- --- --- /See:/ 'importInstanceTaskDetails' smart constructor. -data ImportInstanceTaskDetails = ImportInstanceTaskDetails' - { _iitdInstanceId :: !(Maybe Text) - , _iitdPlatform :: !(Maybe PlatformValues) - , _iitdDescription :: !(Maybe Text) - , _iitdVolumes :: ![ImportInstanceVolumeDetailItem] - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ImportInstanceTaskDetails' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iitdInstanceId' - The ID of the instance. --- --- * 'iitdPlatform' - The instance operating system. --- --- * 'iitdDescription' - A description of the task. --- --- * 'iitdVolumes' - One or more volumes. -importInstanceTaskDetails - :: ImportInstanceTaskDetails -importInstanceTaskDetails = - ImportInstanceTaskDetails' - { _iitdInstanceId = Nothing - , _iitdPlatform = Nothing - , _iitdDescription = Nothing - , _iitdVolumes = mempty - } - - --- | The ID of the instance. -iitdInstanceId :: Lens' ImportInstanceTaskDetails (Maybe Text) -iitdInstanceId = lens _iitdInstanceId (\ s a -> s{_iitdInstanceId = a}); - --- | The instance operating system. -iitdPlatform :: Lens' ImportInstanceTaskDetails (Maybe PlatformValues) -iitdPlatform = lens _iitdPlatform (\ s a -> s{_iitdPlatform = a}); - --- | A description of the task. -iitdDescription :: Lens' ImportInstanceTaskDetails (Maybe Text) -iitdDescription = lens _iitdDescription (\ s a -> s{_iitdDescription = a}); - --- | One or more volumes. -iitdVolumes :: Lens' ImportInstanceTaskDetails [ImportInstanceVolumeDetailItem] -iitdVolumes = lens _iitdVolumes (\ s a -> s{_iitdVolumes = a}) . _Coerce; - -instance FromXML ImportInstanceTaskDetails where - parseXML x - = ImportInstanceTaskDetails' <$> - (x .@? "instanceId") <*> (x .@? "platform") <*> - (x .@? "description") - <*> - (x .@? "volumes" .!@ mempty >>= parseXMLList "item") - -instance Hashable ImportInstanceTaskDetails where - -instance NFData ImportInstanceTaskDetails where - --- | Describes an import volume task. --- --- --- --- /See:/ 'importInstanceVolumeDetailItem' smart constructor. -data ImportInstanceVolumeDetailItem = ImportInstanceVolumeDetailItem' - { _iivdiStatusMessage :: !(Maybe Text) - , _iivdiDescription :: !(Maybe Text) - , _iivdiAvailabilityZone :: !Text - , _iivdiBytesConverted :: !Integer - , _iivdiImage :: !DiskImageDescription - , _iivdiStatus :: !Text - , _iivdiVolume :: !DiskImageVolumeDescription - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ImportInstanceVolumeDetailItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iivdiStatusMessage' - The status information or errors related to the disk image. --- --- * 'iivdiDescription' - A description of the task. --- --- * 'iivdiAvailabilityZone' - The Availability Zone where the resulting instance will reside. --- --- * 'iivdiBytesConverted' - The number of bytes converted so far. --- --- * 'iivdiImage' - The image. --- --- * 'iivdiStatus' - The status of the import of this particular disk image. --- --- * 'iivdiVolume' - The volume. -importInstanceVolumeDetailItem - :: Text -- ^ 'iivdiAvailabilityZone' - -> Integer -- ^ 'iivdiBytesConverted' - -> DiskImageDescription -- ^ 'iivdiImage' - -> Text -- ^ 'iivdiStatus' - -> DiskImageVolumeDescription -- ^ 'iivdiVolume' - -> ImportInstanceVolumeDetailItem -importInstanceVolumeDetailItem pAvailabilityZone_ pBytesConverted_ pImage_ pStatus_ pVolume_ = - ImportInstanceVolumeDetailItem' - { _iivdiStatusMessage = Nothing - , _iivdiDescription = Nothing - , _iivdiAvailabilityZone = pAvailabilityZone_ - , _iivdiBytesConverted = pBytesConverted_ - , _iivdiImage = pImage_ - , _iivdiStatus = pStatus_ - , _iivdiVolume = pVolume_ - } - - --- | The status information or errors related to the disk image. -iivdiStatusMessage :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) -iivdiStatusMessage = lens _iivdiStatusMessage (\ s a -> s{_iivdiStatusMessage = a}); - --- | A description of the task. -iivdiDescription :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) -iivdiDescription = lens _iivdiDescription (\ s a -> s{_iivdiDescription = a}); - --- | The Availability Zone where the resulting instance will reside. -iivdiAvailabilityZone :: Lens' ImportInstanceVolumeDetailItem Text -iivdiAvailabilityZone = lens _iivdiAvailabilityZone (\ s a -> s{_iivdiAvailabilityZone = a}); - --- | The number of bytes converted so far. -iivdiBytesConverted :: Lens' ImportInstanceVolumeDetailItem Integer -iivdiBytesConverted = lens _iivdiBytesConverted (\ s a -> s{_iivdiBytesConverted = a}); - --- | The image. -iivdiImage :: Lens' ImportInstanceVolumeDetailItem DiskImageDescription -iivdiImage = lens _iivdiImage (\ s a -> s{_iivdiImage = a}); - --- | The status of the import of this particular disk image. -iivdiStatus :: Lens' ImportInstanceVolumeDetailItem Text -iivdiStatus = lens _iivdiStatus (\ s a -> s{_iivdiStatus = a}); - --- | The volume. -iivdiVolume :: Lens' ImportInstanceVolumeDetailItem DiskImageVolumeDescription -iivdiVolume = lens _iivdiVolume (\ s a -> s{_iivdiVolume = a}); - -instance FromXML ImportInstanceVolumeDetailItem where - parseXML x - = ImportInstanceVolumeDetailItem' <$> - (x .@? "statusMessage") <*> (x .@? "description") <*> - (x .@ "availabilityZone") - <*> (x .@ "bytesConverted") - <*> (x .@ "image") - <*> (x .@ "status") - <*> (x .@ "volume") - -instance Hashable ImportInstanceVolumeDetailItem - where - -instance NFData ImportInstanceVolumeDetailItem where - --- | Describes an import snapshot task. --- --- --- --- /See:/ 'importSnapshotTask' smart constructor. -data ImportSnapshotTask = ImportSnapshotTask' - { _istSnapshotTaskDetail :: !(Maybe SnapshotTaskDetail) - , _istImportTaskId :: !(Maybe Text) - , _istDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ImportSnapshotTask' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'istSnapshotTaskDetail' - Describes an import snapshot task. --- --- * 'istImportTaskId' - The ID of the import snapshot task. --- --- * 'istDescription' - A description of the import snapshot task. -importSnapshotTask - :: ImportSnapshotTask -importSnapshotTask = - ImportSnapshotTask' - { _istSnapshotTaskDetail = Nothing - , _istImportTaskId = Nothing - , _istDescription = Nothing - } - - --- | Describes an import snapshot task. -istSnapshotTaskDetail :: Lens' ImportSnapshotTask (Maybe SnapshotTaskDetail) -istSnapshotTaskDetail = lens _istSnapshotTaskDetail (\ s a -> s{_istSnapshotTaskDetail = a}); - --- | The ID of the import snapshot task. -istImportTaskId :: Lens' ImportSnapshotTask (Maybe Text) -istImportTaskId = lens _istImportTaskId (\ s a -> s{_istImportTaskId = a}); - --- | A description of the import snapshot task. -istDescription :: Lens' ImportSnapshotTask (Maybe Text) -istDescription = lens _istDescription (\ s a -> s{_istDescription = a}); - -instance FromXML ImportSnapshotTask where - parseXML x - = ImportSnapshotTask' <$> - (x .@? "snapshotTaskDetail") <*> - (x .@? "importTaskId") - <*> (x .@? "description") - -instance Hashable ImportSnapshotTask where - -instance NFData ImportSnapshotTask where - --- | Describes an import volume task. --- --- --- --- /See:/ 'importVolumeTaskDetails' smart constructor. -data ImportVolumeTaskDetails = ImportVolumeTaskDetails' - { _ivtdDescription :: !(Maybe Text) - , _ivtdAvailabilityZone :: !Text - , _ivtdBytesConverted :: !Integer - , _ivtdImage :: !DiskImageDescription - , _ivtdVolume :: !DiskImageVolumeDescription - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ImportVolumeTaskDetails' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ivtdDescription' - The description you provided when starting the import volume task. --- --- * 'ivtdAvailabilityZone' - The Availability Zone where the resulting volume will reside. --- --- * 'ivtdBytesConverted' - The number of bytes converted so far. --- --- * 'ivtdImage' - The image. --- --- * 'ivtdVolume' - The volume. -importVolumeTaskDetails - :: Text -- ^ 'ivtdAvailabilityZone' - -> Integer -- ^ 'ivtdBytesConverted' - -> DiskImageDescription -- ^ 'ivtdImage' - -> DiskImageVolumeDescription -- ^ 'ivtdVolume' - -> ImportVolumeTaskDetails -importVolumeTaskDetails pAvailabilityZone_ pBytesConverted_ pImage_ pVolume_ = - ImportVolumeTaskDetails' - { _ivtdDescription = Nothing - , _ivtdAvailabilityZone = pAvailabilityZone_ - , _ivtdBytesConverted = pBytesConverted_ - , _ivtdImage = pImage_ - , _ivtdVolume = pVolume_ - } - - --- | The description you provided when starting the import volume task. -ivtdDescription :: Lens' ImportVolumeTaskDetails (Maybe Text) -ivtdDescription = lens _ivtdDescription (\ s a -> s{_ivtdDescription = a}); - --- | The Availability Zone where the resulting volume will reside. -ivtdAvailabilityZone :: Lens' ImportVolumeTaskDetails Text -ivtdAvailabilityZone = lens _ivtdAvailabilityZone (\ s a -> s{_ivtdAvailabilityZone = a}); - --- | The number of bytes converted so far. -ivtdBytesConverted :: Lens' ImportVolumeTaskDetails Integer -ivtdBytesConverted = lens _ivtdBytesConverted (\ s a -> s{_ivtdBytesConverted = a}); - --- | The image. -ivtdImage :: Lens' ImportVolumeTaskDetails DiskImageDescription -ivtdImage = lens _ivtdImage (\ s a -> s{_ivtdImage = a}); - --- | The volume. -ivtdVolume :: Lens' ImportVolumeTaskDetails DiskImageVolumeDescription -ivtdVolume = lens _ivtdVolume (\ s a -> s{_ivtdVolume = a}); - -instance FromXML ImportVolumeTaskDetails where - parseXML x - = ImportVolumeTaskDetails' <$> - (x .@? "description") <*> (x .@ "availabilityZone") - <*> (x .@ "bytesConverted") - <*> (x .@ "image") - <*> (x .@ "volume") - -instance Hashable ImportVolumeTaskDetails where - -instance NFData ImportVolumeTaskDetails where - --- | Describes an instance. --- --- --- --- /See:/ 'instance'' smart constructor. -data Instance = Instance' - { _insPublicDNSName :: !(Maybe Text) - , _insPlatform :: !(Maybe PlatformValues) - , _insSecurityGroups :: !(Maybe [GroupIdentifier]) - , _insClientToken :: !(Maybe Text) - , _insEnaSupport :: !(Maybe Bool) - , _insSourceDestCheck :: !(Maybe Bool) - , _insElasticGpuAssociations :: !(Maybe [ElasticGpuAssociation]) - , _insVPCId :: !(Maybe Text) - , _insKeyName :: !(Maybe Text) - , _insNetworkInterfaces :: !(Maybe [InstanceNetworkInterface]) - , _insRAMDiskId :: !(Maybe Text) - , _insSubnetId :: !(Maybe Text) - , _insKernelId :: !(Maybe Text) - , _insRootDeviceName :: !(Maybe Text) - , _insSRIOVNetSupport :: !(Maybe Text) - , _insEBSOptimized :: !(Maybe Bool) - , _insStateTransitionReason :: !(Maybe Text) - , _insInstanceLifecycle :: !(Maybe InstanceLifecycleType) - , _insIAMInstanceProfile :: !(Maybe IAMInstanceProfile) - , _insPrivateIPAddress :: !(Maybe Text) - , _insProductCodes :: !(Maybe [ProductCode]) - , _insSpotInstanceRequestId :: !(Maybe Text) - , _insPrivateDNSName :: !(Maybe Text) - , _insStateReason :: !(Maybe StateReason) - , _insBlockDeviceMappings :: !(Maybe [InstanceBlockDeviceMapping]) - , _insPublicIPAddress :: !(Maybe Text) - , _insTags :: !(Maybe [Tag]) - , _insInstanceId :: !Text - , _insImageId :: !Text - , _insAMILaunchIndex :: !Int - , _insInstanceType :: !InstanceType - , _insLaunchTime :: !ISO8601 - , _insPlacement :: !Placement - , _insMonitoring :: !Monitoring - , _insArchitecture :: !ArchitectureValues - , _insRootDeviceType :: !DeviceType - , _insVirtualizationType :: !VirtualizationType - , _insHypervisor :: !HypervisorType - , _insState :: !InstanceState - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Instance' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'insPublicDNSName' - (IPv4 only) The public DNS name assigned to the instance. This name is not available until the instance enters the @running@ state. For EC2-VPC, this name is only available if you've enabled DNS hostnames for your VPC. --- --- * 'insPlatform' - The value is @Windows@ for Windows instances; otherwise blank. --- --- * 'insSecurityGroups' - One or more security groups for the instance. --- --- * 'insClientToken' - The idempotency token you provided when you launched the instance, if applicable. --- --- * 'insEnaSupport' - Specifies whether enhanced networking with ENA is enabled. --- --- * 'insSourceDestCheck' - Specifies whether to enable an instance launched in a VPC to perform NAT. This controls whether source/destination checking is enabled on the instance. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. The value must be @false@ for the instance to perform NAT. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . --- --- * 'insElasticGpuAssociations' - The Elastic GPU associated with the instance. --- --- * 'insVPCId' - [EC2-VPC] The ID of the VPC in which the instance is running. --- --- * 'insKeyName' - The name of the key pair, if this instance was launched with an associated key pair. --- --- * 'insNetworkInterfaces' - [EC2-VPC] One or more network interfaces for the instance. --- --- * 'insRAMDiskId' - The RAM disk associated with this instance, if applicable. --- --- * 'insSubnetId' - [EC2-VPC] The ID of the subnet in which the instance is running. --- --- * 'insKernelId' - The kernel associated with this instance, if applicable. --- --- * 'insRootDeviceName' - The device name of the root device volume (for example, @/dev/sda1@ ). --- --- * 'insSRIOVNetSupport' - Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. --- --- * 'insEBSOptimized' - Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. --- --- * 'insStateTransitionReason' - The reason for the most recent state transition. This might be an empty string. --- --- * 'insInstanceLifecycle' - Indicates whether this is a Spot Instance or a Scheduled Instance. --- --- * 'insIAMInstanceProfile' - The IAM instance profile associated with the instance, if applicable. --- --- * 'insPrivateIPAddress' - The private IPv4 address assigned to the instance. --- --- * 'insProductCodes' - The product codes attached to this instance, if applicable. --- --- * 'insSpotInstanceRequestId' - If the request is a Spot Instance request, the ID of the request. --- --- * 'insPrivateDNSName' - (IPv4 only) The private DNS hostname name assigned to the instance. This DNS hostname can only be used inside the Amazon EC2 network. This name is not available until the instance enters the @running@ state. [EC2-VPC] The Amazon-provided DNS server resolves Amazon-provided private DNS hostnames if you've enabled DNS resolution and DNS hostnames in your VPC. If you are not using the Amazon-provided DNS server in your VPC, your custom domain name servers must resolve the hostname as appropriate. --- --- * 'insStateReason' - The reason for the most recent state transition. --- --- * 'insBlockDeviceMappings' - Any block device mapping entries for the instance. --- --- * 'insPublicIPAddress' - The public IPv4 address assigned to the instance, if applicable. --- --- * 'insTags' - Any tags assigned to the instance. --- --- * 'insInstanceId' - The ID of the instance. --- --- * 'insImageId' - The ID of the AMI used to launch the instance. --- --- * 'insAMILaunchIndex' - The AMI launch index, which can be used to find this instance in the launch group. --- --- * 'insInstanceType' - The instance type. --- --- * 'insLaunchTime' - The time the instance was launched. --- --- * 'insPlacement' - The location where the instance launched, if applicable. --- --- * 'insMonitoring' - The monitoring for the instance. --- --- * 'insArchitecture' - The architecture of the image. --- --- * 'insRootDeviceType' - The root device type used by the AMI. The AMI can use an EBS volume or an instance store volume. --- --- * 'insVirtualizationType' - The virtualization type of the instance. --- --- * 'insHypervisor' - The hypervisor type of the instance. --- --- * 'insState' - The current state of the instance. -instance' - :: Text -- ^ 'insInstanceId' - -> Text -- ^ 'insImageId' - -> Int -- ^ 'insAMILaunchIndex' - -> InstanceType -- ^ 'insInstanceType' - -> UTCTime -- ^ 'insLaunchTime' - -> Placement -- ^ 'insPlacement' - -> Monitoring -- ^ 'insMonitoring' - -> ArchitectureValues -- ^ 'insArchitecture' - -> DeviceType -- ^ 'insRootDeviceType' - -> VirtualizationType -- ^ 'insVirtualizationType' - -> HypervisorType -- ^ 'insHypervisor' - -> InstanceState -- ^ 'insState' - -> Instance -instance' pInstanceId_ pImageId_ pAMILaunchIndex_ pInstanceType_ pLaunchTime_ pPlacement_ pMonitoring_ pArchitecture_ pRootDeviceType_ pVirtualizationType_ pHypervisor_ pState_ = - Instance' - { _insPublicDNSName = Nothing - , _insPlatform = Nothing - , _insSecurityGroups = Nothing - , _insClientToken = Nothing - , _insEnaSupport = Nothing - , _insSourceDestCheck = Nothing - , _insElasticGpuAssociations = Nothing - , _insVPCId = Nothing - , _insKeyName = Nothing - , _insNetworkInterfaces = Nothing - , _insRAMDiskId = Nothing - , _insSubnetId = Nothing - , _insKernelId = Nothing - , _insRootDeviceName = Nothing - , _insSRIOVNetSupport = Nothing - , _insEBSOptimized = Nothing - , _insStateTransitionReason = Nothing - , _insInstanceLifecycle = Nothing - , _insIAMInstanceProfile = Nothing - , _insPrivateIPAddress = Nothing - , _insProductCodes = Nothing - , _insSpotInstanceRequestId = Nothing - , _insPrivateDNSName = Nothing - , _insStateReason = Nothing - , _insBlockDeviceMappings = Nothing - , _insPublicIPAddress = Nothing - , _insTags = Nothing - , _insInstanceId = pInstanceId_ - , _insImageId = pImageId_ - , _insAMILaunchIndex = pAMILaunchIndex_ - , _insInstanceType = pInstanceType_ - , _insLaunchTime = _Time # pLaunchTime_ - , _insPlacement = pPlacement_ - , _insMonitoring = pMonitoring_ - , _insArchitecture = pArchitecture_ - , _insRootDeviceType = pRootDeviceType_ - , _insVirtualizationType = pVirtualizationType_ - , _insHypervisor = pHypervisor_ - , _insState = pState_ - } - - --- | (IPv4 only) The public DNS name assigned to the instance. This name is not available until the instance enters the @running@ state. For EC2-VPC, this name is only available if you've enabled DNS hostnames for your VPC. -insPublicDNSName :: Lens' Instance (Maybe Text) -insPublicDNSName = lens _insPublicDNSName (\ s a -> s{_insPublicDNSName = a}); - --- | The value is @Windows@ for Windows instances; otherwise blank. -insPlatform :: Lens' Instance (Maybe PlatformValues) -insPlatform = lens _insPlatform (\ s a -> s{_insPlatform = a}); - --- | One or more security groups for the instance. -insSecurityGroups :: Lens' Instance [GroupIdentifier] -insSecurityGroups = lens _insSecurityGroups (\ s a -> s{_insSecurityGroups = a}) . _Default . _Coerce; - --- | The idempotency token you provided when you launched the instance, if applicable. -insClientToken :: Lens' Instance (Maybe Text) -insClientToken = lens _insClientToken (\ s a -> s{_insClientToken = a}); - --- | Specifies whether enhanced networking with ENA is enabled. -insEnaSupport :: Lens' Instance (Maybe Bool) -insEnaSupport = lens _insEnaSupport (\ s a -> s{_insEnaSupport = a}); - --- | Specifies whether to enable an instance launched in a VPC to perform NAT. This controls whether source/destination checking is enabled on the instance. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. The value must be @false@ for the instance to perform NAT. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . -insSourceDestCheck :: Lens' Instance (Maybe Bool) -insSourceDestCheck = lens _insSourceDestCheck (\ s a -> s{_insSourceDestCheck = a}); - --- | The Elastic GPU associated with the instance. -insElasticGpuAssociations :: Lens' Instance [ElasticGpuAssociation] -insElasticGpuAssociations = lens _insElasticGpuAssociations (\ s a -> s{_insElasticGpuAssociations = a}) . _Default . _Coerce; - --- | [EC2-VPC] The ID of the VPC in which the instance is running. -insVPCId :: Lens' Instance (Maybe Text) -insVPCId = lens _insVPCId (\ s a -> s{_insVPCId = a}); - --- | The name of the key pair, if this instance was launched with an associated key pair. -insKeyName :: Lens' Instance (Maybe Text) -insKeyName = lens _insKeyName (\ s a -> s{_insKeyName = a}); - --- | [EC2-VPC] One or more network interfaces for the instance. -insNetworkInterfaces :: Lens' Instance [InstanceNetworkInterface] -insNetworkInterfaces = lens _insNetworkInterfaces (\ s a -> s{_insNetworkInterfaces = a}) . _Default . _Coerce; - --- | The RAM disk associated with this instance, if applicable. -insRAMDiskId :: Lens' Instance (Maybe Text) -insRAMDiskId = lens _insRAMDiskId (\ s a -> s{_insRAMDiskId = a}); - --- | [EC2-VPC] The ID of the subnet in which the instance is running. -insSubnetId :: Lens' Instance (Maybe Text) -insSubnetId = lens _insSubnetId (\ s a -> s{_insSubnetId = a}); - --- | The kernel associated with this instance, if applicable. -insKernelId :: Lens' Instance (Maybe Text) -insKernelId = lens _insKernelId (\ s a -> s{_insKernelId = a}); - --- | The device name of the root device volume (for example, @/dev/sda1@ ). -insRootDeviceName :: Lens' Instance (Maybe Text) -insRootDeviceName = lens _insRootDeviceName (\ s a -> s{_insRootDeviceName = a}); - --- | Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. -insSRIOVNetSupport :: Lens' Instance (Maybe Text) -insSRIOVNetSupport = lens _insSRIOVNetSupport (\ s a -> s{_insSRIOVNetSupport = a}); - --- | Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. -insEBSOptimized :: Lens' Instance (Maybe Bool) -insEBSOptimized = lens _insEBSOptimized (\ s a -> s{_insEBSOptimized = a}); - --- | The reason for the most recent state transition. This might be an empty string. -insStateTransitionReason :: Lens' Instance (Maybe Text) -insStateTransitionReason = lens _insStateTransitionReason (\ s a -> s{_insStateTransitionReason = a}); - --- | Indicates whether this is a Spot Instance or a Scheduled Instance. -insInstanceLifecycle :: Lens' Instance (Maybe InstanceLifecycleType) -insInstanceLifecycle = lens _insInstanceLifecycle (\ s a -> s{_insInstanceLifecycle = a}); - --- | The IAM instance profile associated with the instance, if applicable. -insIAMInstanceProfile :: Lens' Instance (Maybe IAMInstanceProfile) -insIAMInstanceProfile = lens _insIAMInstanceProfile (\ s a -> s{_insIAMInstanceProfile = a}); - --- | The private IPv4 address assigned to the instance. -insPrivateIPAddress :: Lens' Instance (Maybe Text) -insPrivateIPAddress = lens _insPrivateIPAddress (\ s a -> s{_insPrivateIPAddress = a}); - --- | The product codes attached to this instance, if applicable. -insProductCodes :: Lens' Instance [ProductCode] -insProductCodes = lens _insProductCodes (\ s a -> s{_insProductCodes = a}) . _Default . _Coerce; - --- | If the request is a Spot Instance request, the ID of the request. -insSpotInstanceRequestId :: Lens' Instance (Maybe Text) -insSpotInstanceRequestId = lens _insSpotInstanceRequestId (\ s a -> s{_insSpotInstanceRequestId = a}); - --- | (IPv4 only) The private DNS hostname name assigned to the instance. This DNS hostname can only be used inside the Amazon EC2 network. This name is not available until the instance enters the @running@ state. [EC2-VPC] The Amazon-provided DNS server resolves Amazon-provided private DNS hostnames if you've enabled DNS resolution and DNS hostnames in your VPC. If you are not using the Amazon-provided DNS server in your VPC, your custom domain name servers must resolve the hostname as appropriate. -insPrivateDNSName :: Lens' Instance (Maybe Text) -insPrivateDNSName = lens _insPrivateDNSName (\ s a -> s{_insPrivateDNSName = a}); - --- | The reason for the most recent state transition. -insStateReason :: Lens' Instance (Maybe StateReason) -insStateReason = lens _insStateReason (\ s a -> s{_insStateReason = a}); - --- | Any block device mapping entries for the instance. -insBlockDeviceMappings :: Lens' Instance [InstanceBlockDeviceMapping] -insBlockDeviceMappings = lens _insBlockDeviceMappings (\ s a -> s{_insBlockDeviceMappings = a}) . _Default . _Coerce; - --- | The public IPv4 address assigned to the instance, if applicable. -insPublicIPAddress :: Lens' Instance (Maybe Text) -insPublicIPAddress = lens _insPublicIPAddress (\ s a -> s{_insPublicIPAddress = a}); - --- | Any tags assigned to the instance. -insTags :: Lens' Instance [Tag] -insTags = lens _insTags (\ s a -> s{_insTags = a}) . _Default . _Coerce; - --- | The ID of the instance. -insInstanceId :: Lens' Instance Text -insInstanceId = lens _insInstanceId (\ s a -> s{_insInstanceId = a}); - --- | The ID of the AMI used to launch the instance. -insImageId :: Lens' Instance Text -insImageId = lens _insImageId (\ s a -> s{_insImageId = a}); - --- | The AMI launch index, which can be used to find this instance in the launch group. -insAMILaunchIndex :: Lens' Instance Int -insAMILaunchIndex = lens _insAMILaunchIndex (\ s a -> s{_insAMILaunchIndex = a}); - --- | The instance type. -insInstanceType :: Lens' Instance InstanceType -insInstanceType = lens _insInstanceType (\ s a -> s{_insInstanceType = a}); - --- | The time the instance was launched. -insLaunchTime :: Lens' Instance UTCTime -insLaunchTime = lens _insLaunchTime (\ s a -> s{_insLaunchTime = a}) . _Time; - --- | The location where the instance launched, if applicable. -insPlacement :: Lens' Instance Placement -insPlacement = lens _insPlacement (\ s a -> s{_insPlacement = a}); - --- | The monitoring for the instance. -insMonitoring :: Lens' Instance Monitoring -insMonitoring = lens _insMonitoring (\ s a -> s{_insMonitoring = a}); - --- | The architecture of the image. -insArchitecture :: Lens' Instance ArchitectureValues -insArchitecture = lens _insArchitecture (\ s a -> s{_insArchitecture = a}); - --- | The root device type used by the AMI. The AMI can use an EBS volume or an instance store volume. -insRootDeviceType :: Lens' Instance DeviceType -insRootDeviceType = lens _insRootDeviceType (\ s a -> s{_insRootDeviceType = a}); - --- | The virtualization type of the instance. -insVirtualizationType :: Lens' Instance VirtualizationType -insVirtualizationType = lens _insVirtualizationType (\ s a -> s{_insVirtualizationType = a}); - --- | The hypervisor type of the instance. -insHypervisor :: Lens' Instance HypervisorType -insHypervisor = lens _insHypervisor (\ s a -> s{_insHypervisor = a}); - --- | The current state of the instance. -insState :: Lens' Instance InstanceState -insState = lens _insState (\ s a -> s{_insState = a}); - -instance FromXML Instance where - parseXML x - = Instance' <$> - (x .@? "dnsName") <*> (x .@? "platform") <*> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "clientToken") - <*> (x .@? "enaSupport") - <*> (x .@? "sourceDestCheck") - <*> - (x .@? "elasticGpuAssociationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpcId") - <*> (x .@? "keyName") - <*> - (x .@? "networkInterfaceSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "ramdiskId") - <*> (x .@? "subnetId") - <*> (x .@? "kernelId") - <*> (x .@? "rootDeviceName") - <*> (x .@? "sriovNetSupport") - <*> (x .@? "ebsOptimized") - <*> (x .@? "reason") - <*> (x .@? "instanceLifecycle") - <*> (x .@? "iamInstanceProfile") - <*> (x .@? "privateIpAddress") - <*> - (x .@? "productCodes" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "spotInstanceRequestId") - <*> (x .@? "privateDnsName") - <*> (x .@? "stateReason") - <*> - (x .@? "blockDeviceMapping" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "ipAddress") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "instanceId") - <*> (x .@ "imageId") - <*> (x .@ "amiLaunchIndex") - <*> (x .@ "instanceType") - <*> (x .@ "launchTime") - <*> (x .@ "placement") - <*> (x .@ "monitoring") - <*> (x .@ "architecture") - <*> (x .@ "rootDeviceType") - <*> (x .@ "virtualizationType") - <*> (x .@ "hypervisor") - <*> (x .@ "instanceState") - -instance Hashable Instance where - -instance NFData Instance where - --- | Describes a block device mapping. --- --- --- --- /See:/ 'instanceBlockDeviceMapping' smart constructor. -data InstanceBlockDeviceMapping = InstanceBlockDeviceMapping' - { _ibdmEBS :: !(Maybe EBSInstanceBlockDevice) - , _ibdmDeviceName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceBlockDeviceMapping' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ibdmEBS' - Parameters used to automatically set up EBS volumes when the instance is launched. --- --- * 'ibdmDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). -instanceBlockDeviceMapping - :: InstanceBlockDeviceMapping -instanceBlockDeviceMapping = - InstanceBlockDeviceMapping' {_ibdmEBS = Nothing, _ibdmDeviceName = Nothing} - - --- | Parameters used to automatically set up EBS volumes when the instance is launched. -ibdmEBS :: Lens' InstanceBlockDeviceMapping (Maybe EBSInstanceBlockDevice) -ibdmEBS = lens _ibdmEBS (\ s a -> s{_ibdmEBS = a}); - --- | The device name (for example, @/dev/sdh@ or @xvdh@ ). -ibdmDeviceName :: Lens' InstanceBlockDeviceMapping (Maybe Text) -ibdmDeviceName = lens _ibdmDeviceName (\ s a -> s{_ibdmDeviceName = a}); - -instance FromXML InstanceBlockDeviceMapping where - parseXML x - = InstanceBlockDeviceMapping' <$> - (x .@? "ebs") <*> (x .@? "deviceName") - -instance Hashable InstanceBlockDeviceMapping where - -instance NFData InstanceBlockDeviceMapping where - --- | Describes a block device mapping entry. --- --- --- --- /See:/ 'instanceBlockDeviceMappingSpecification' smart constructor. -data InstanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification' - { _ibdmsVirtualName :: !(Maybe Text) - , _ibdmsNoDevice :: !(Maybe Text) - , _ibdmsEBS :: !(Maybe EBSInstanceBlockDeviceSpecification) - , _ibdmsDeviceName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceBlockDeviceMappingSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ibdmsVirtualName' - The virtual device name. --- --- * 'ibdmsNoDevice' - suppress the specified device included in the block device mapping. --- --- * 'ibdmsEBS' - Parameters used to automatically set up EBS volumes when the instance is launched. --- --- * 'ibdmsDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). -instanceBlockDeviceMappingSpecification - :: InstanceBlockDeviceMappingSpecification -instanceBlockDeviceMappingSpecification = - InstanceBlockDeviceMappingSpecification' - { _ibdmsVirtualName = Nothing - , _ibdmsNoDevice = Nothing - , _ibdmsEBS = Nothing - , _ibdmsDeviceName = Nothing - } - - --- | The virtual device name. -ibdmsVirtualName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) -ibdmsVirtualName = lens _ibdmsVirtualName (\ s a -> s{_ibdmsVirtualName = a}); - --- | suppress the specified device included in the block device mapping. -ibdmsNoDevice :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) -ibdmsNoDevice = lens _ibdmsNoDevice (\ s a -> s{_ibdmsNoDevice = a}); - --- | Parameters used to automatically set up EBS volumes when the instance is launched. -ibdmsEBS :: Lens' InstanceBlockDeviceMappingSpecification (Maybe EBSInstanceBlockDeviceSpecification) -ibdmsEBS = lens _ibdmsEBS (\ s a -> s{_ibdmsEBS = a}); - --- | The device name (for example, @/dev/sdh@ or @xvdh@ ). -ibdmsDeviceName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) -ibdmsDeviceName = lens _ibdmsDeviceName (\ s a -> s{_ibdmsDeviceName = a}); - -instance Hashable - InstanceBlockDeviceMappingSpecification - where - -instance NFData - InstanceBlockDeviceMappingSpecification - where - -instance ToQuery - InstanceBlockDeviceMappingSpecification - where - toQuery InstanceBlockDeviceMappingSpecification'{..} - = mconcat - ["VirtualName" =: _ibdmsVirtualName, - "NoDevice" =: _ibdmsNoDevice, "Ebs" =: _ibdmsEBS, - "DeviceName" =: _ibdmsDeviceName] - --- | Information about the instance type that the Dedicated Host supports. --- --- --- --- /See:/ 'instanceCapacity' smart constructor. -data InstanceCapacity = InstanceCapacity' - { _icAvailableCapacity :: !(Maybe Int) - , _icInstanceType :: !(Maybe Text) - , _icTotalCapacity :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceCapacity' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'icAvailableCapacity' - The number of instances that can still be launched onto the Dedicated Host. --- --- * 'icInstanceType' - The instance type size supported by the Dedicated Host. --- --- * 'icTotalCapacity' - The total number of instances that can be launched onto the Dedicated Host. -instanceCapacity - :: InstanceCapacity -instanceCapacity = - InstanceCapacity' - { _icAvailableCapacity = Nothing - , _icInstanceType = Nothing - , _icTotalCapacity = Nothing - } - - --- | The number of instances that can still be launched onto the Dedicated Host. -icAvailableCapacity :: Lens' InstanceCapacity (Maybe Int) -icAvailableCapacity = lens _icAvailableCapacity (\ s a -> s{_icAvailableCapacity = a}); - --- | The instance type size supported by the Dedicated Host. -icInstanceType :: Lens' InstanceCapacity (Maybe Text) -icInstanceType = lens _icInstanceType (\ s a -> s{_icInstanceType = a}); - --- | The total number of instances that can be launched onto the Dedicated Host. -icTotalCapacity :: Lens' InstanceCapacity (Maybe Int) -icTotalCapacity = lens _icTotalCapacity (\ s a -> s{_icTotalCapacity = a}); - -instance FromXML InstanceCapacity where - parseXML x - = InstanceCapacity' <$> - (x .@? "availableCapacity") <*> - (x .@? "instanceType") - <*> (x .@? "totalCapacity") - -instance Hashable InstanceCapacity where - -instance NFData InstanceCapacity where - --- | Describes a Reserved Instance listing state. --- --- --- --- /See:/ 'instanceCount' smart constructor. -data InstanceCount = InstanceCount' - { _icState :: !(Maybe ListingState) - , _icInstanceCount :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceCount' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'icState' - The states of the listed Reserved Instances. --- --- * 'icInstanceCount' - The number of listed Reserved Instances in the state specified by the @state@ . -instanceCount - :: InstanceCount -instanceCount = InstanceCount' {_icState = Nothing, _icInstanceCount = Nothing} - - --- | The states of the listed Reserved Instances. -icState :: Lens' InstanceCount (Maybe ListingState) -icState = lens _icState (\ s a -> s{_icState = a}); - --- | The number of listed Reserved Instances in the state specified by the @state@ . -icInstanceCount :: Lens' InstanceCount (Maybe Int) -icInstanceCount = lens _icInstanceCount (\ s a -> s{_icInstanceCount = a}); - -instance FromXML InstanceCount where - parseXML x - = InstanceCount' <$> - (x .@? "state") <*> (x .@? "instanceCount") - -instance Hashable InstanceCount where - -instance NFData InstanceCount where - --- | Describes an instance to export. --- --- --- --- /See:/ 'instanceExportDetails' smart constructor. -data InstanceExportDetails = InstanceExportDetails' - { _iedTargetEnvironment :: !(Maybe ExportEnvironment) - , _iedInstanceId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceExportDetails' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iedTargetEnvironment' - The target virtualization environment. --- --- * 'iedInstanceId' - The ID of the resource being exported. -instanceExportDetails - :: InstanceExportDetails -instanceExportDetails = - InstanceExportDetails' - {_iedTargetEnvironment = Nothing, _iedInstanceId = Nothing} - - --- | The target virtualization environment. -iedTargetEnvironment :: Lens' InstanceExportDetails (Maybe ExportEnvironment) -iedTargetEnvironment = lens _iedTargetEnvironment (\ s a -> s{_iedTargetEnvironment = a}); - --- | The ID of the resource being exported. -iedInstanceId :: Lens' InstanceExportDetails (Maybe Text) -iedInstanceId = lens _iedInstanceId (\ s a -> s{_iedInstanceId = a}); - -instance FromXML InstanceExportDetails where - parseXML x - = InstanceExportDetails' <$> - (x .@? "targetEnvironment") <*> (x .@? "instanceId") - -instance Hashable InstanceExportDetails where - -instance NFData InstanceExportDetails where - --- | Describes an IPv6 address. --- --- --- --- /See:/ 'instanceIPv6Address' smart constructor. -newtype InstanceIPv6Address = InstanceIPv6Address' - { _iiaIPv6Address :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceIPv6Address' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iiaIPv6Address' - The IPv6 address. -instanceIPv6Address - :: InstanceIPv6Address -instanceIPv6Address = InstanceIPv6Address' {_iiaIPv6Address = Nothing} - - --- | The IPv6 address. -iiaIPv6Address :: Lens' InstanceIPv6Address (Maybe Text) -iiaIPv6Address = lens _iiaIPv6Address (\ s a -> s{_iiaIPv6Address = a}); - -instance FromXML InstanceIPv6Address where - parseXML x - = InstanceIPv6Address' <$> (x .@? "ipv6Address") - -instance Hashable InstanceIPv6Address where - -instance NFData InstanceIPv6Address where - -instance ToQuery InstanceIPv6Address where - toQuery InstanceIPv6Address'{..} - = mconcat ["Ipv6Address" =: _iiaIPv6Address] - --- | Describes the monitoring of an instance. --- --- --- --- /See:/ 'instanceMonitoring' smart constructor. -data InstanceMonitoring = InstanceMonitoring' - { _imInstanceId :: !(Maybe Text) - , _imMonitoring :: !(Maybe Monitoring) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceMonitoring' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'imInstanceId' - The ID of the instance. --- --- * 'imMonitoring' - The monitoring for the instance. -instanceMonitoring - :: InstanceMonitoring -instanceMonitoring = - InstanceMonitoring' {_imInstanceId = Nothing, _imMonitoring = Nothing} - - --- | The ID of the instance. -imInstanceId :: Lens' InstanceMonitoring (Maybe Text) -imInstanceId = lens _imInstanceId (\ s a -> s{_imInstanceId = a}); - --- | The monitoring for the instance. -imMonitoring :: Lens' InstanceMonitoring (Maybe Monitoring) -imMonitoring = lens _imMonitoring (\ s a -> s{_imMonitoring = a}); - -instance FromXML InstanceMonitoring where - parseXML x - = InstanceMonitoring' <$> - (x .@? "instanceId") <*> (x .@? "monitoring") - -instance Hashable InstanceMonitoring where - -instance NFData InstanceMonitoring where - --- | Describes a network interface. --- --- --- --- /See:/ 'instanceNetworkInterface' smart constructor. -data InstanceNetworkInterface = InstanceNetworkInterface' - { _iniGroups :: !(Maybe [GroupIdentifier]) - , _iniStatus :: !(Maybe NetworkInterfaceStatus) - , _iniPrivateIPAddresses :: !(Maybe [InstancePrivateIPAddress]) - , _iniSourceDestCheck :: !(Maybe Bool) - , _iniVPCId :: !(Maybe Text) - , _iniNetworkInterfaceId :: !(Maybe Text) - , _iniSubnetId :: !(Maybe Text) - , _iniMACAddress :: !(Maybe Text) - , _iniAttachment :: !(Maybe InstanceNetworkInterfaceAttachment) - , _iniOwnerId :: !(Maybe Text) - , _iniPrivateIPAddress :: !(Maybe Text) - , _iniPrivateDNSName :: !(Maybe Text) - , _iniDescription :: !(Maybe Text) - , _iniAssociation :: !(Maybe InstanceNetworkInterfaceAssociation) - , _iniIPv6Addresses :: !(Maybe [InstanceIPv6Address]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceNetworkInterface' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iniGroups' - One or more security groups. --- --- * 'iniStatus' - The status of the network interface. --- --- * 'iniPrivateIPAddresses' - One or more private IPv4 addresses associated with the network interface. --- --- * 'iniSourceDestCheck' - Indicates whether to validate network traffic to or from this network interface. --- --- * 'iniVPCId' - The ID of the VPC. --- --- * 'iniNetworkInterfaceId' - The ID of the network interface. --- --- * 'iniSubnetId' - The ID of the subnet. --- --- * 'iniMACAddress' - The MAC address. --- --- * 'iniAttachment' - The network interface attachment. --- --- * 'iniOwnerId' - The ID of the AWS account that created the network interface. --- --- * 'iniPrivateIPAddress' - The IPv4 address of the network interface within the subnet. --- --- * 'iniPrivateDNSName' - The private DNS name. --- --- * 'iniDescription' - The description. --- --- * 'iniAssociation' - The association information for an Elastic IPv4 associated with the network interface. --- --- * 'iniIPv6Addresses' - One or more IPv6 addresses associated with the network interface. -instanceNetworkInterface - :: InstanceNetworkInterface -instanceNetworkInterface = - InstanceNetworkInterface' - { _iniGroups = Nothing - , _iniStatus = Nothing - , _iniPrivateIPAddresses = Nothing - , _iniSourceDestCheck = Nothing - , _iniVPCId = Nothing - , _iniNetworkInterfaceId = Nothing - , _iniSubnetId = Nothing - , _iniMACAddress = Nothing - , _iniAttachment = Nothing - , _iniOwnerId = Nothing - , _iniPrivateIPAddress = Nothing - , _iniPrivateDNSName = Nothing - , _iniDescription = Nothing - , _iniAssociation = Nothing - , _iniIPv6Addresses = Nothing - } - - --- | One or more security groups. -iniGroups :: Lens' InstanceNetworkInterface [GroupIdentifier] -iniGroups = lens _iniGroups (\ s a -> s{_iniGroups = a}) . _Default . _Coerce; - --- | The status of the network interface. -iniStatus :: Lens' InstanceNetworkInterface (Maybe NetworkInterfaceStatus) -iniStatus = lens _iniStatus (\ s a -> s{_iniStatus = a}); - --- | One or more private IPv4 addresses associated with the network interface. -iniPrivateIPAddresses :: Lens' InstanceNetworkInterface [InstancePrivateIPAddress] -iniPrivateIPAddresses = lens _iniPrivateIPAddresses (\ s a -> s{_iniPrivateIPAddresses = a}) . _Default . _Coerce; - --- | Indicates whether to validate network traffic to or from this network interface. -iniSourceDestCheck :: Lens' InstanceNetworkInterface (Maybe Bool) -iniSourceDestCheck = lens _iniSourceDestCheck (\ s a -> s{_iniSourceDestCheck = a}); - --- | The ID of the VPC. -iniVPCId :: Lens' InstanceNetworkInterface (Maybe Text) -iniVPCId = lens _iniVPCId (\ s a -> s{_iniVPCId = a}); - --- | The ID of the network interface. -iniNetworkInterfaceId :: Lens' InstanceNetworkInterface (Maybe Text) -iniNetworkInterfaceId = lens _iniNetworkInterfaceId (\ s a -> s{_iniNetworkInterfaceId = a}); - --- | The ID of the subnet. -iniSubnetId :: Lens' InstanceNetworkInterface (Maybe Text) -iniSubnetId = lens _iniSubnetId (\ s a -> s{_iniSubnetId = a}); - --- | The MAC address. -iniMACAddress :: Lens' InstanceNetworkInterface (Maybe Text) -iniMACAddress = lens _iniMACAddress (\ s a -> s{_iniMACAddress = a}); - --- | The network interface attachment. -iniAttachment :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAttachment) -iniAttachment = lens _iniAttachment (\ s a -> s{_iniAttachment = a}); - --- | The ID of the AWS account that created the network interface. -iniOwnerId :: Lens' InstanceNetworkInterface (Maybe Text) -iniOwnerId = lens _iniOwnerId (\ s a -> s{_iniOwnerId = a}); - --- | The IPv4 address of the network interface within the subnet. -iniPrivateIPAddress :: Lens' InstanceNetworkInterface (Maybe Text) -iniPrivateIPAddress = lens _iniPrivateIPAddress (\ s a -> s{_iniPrivateIPAddress = a}); - --- | The private DNS name. -iniPrivateDNSName :: Lens' InstanceNetworkInterface (Maybe Text) -iniPrivateDNSName = lens _iniPrivateDNSName (\ s a -> s{_iniPrivateDNSName = a}); - --- | The description. -iniDescription :: Lens' InstanceNetworkInterface (Maybe Text) -iniDescription = lens _iniDescription (\ s a -> s{_iniDescription = a}); - --- | The association information for an Elastic IPv4 associated with the network interface. -iniAssociation :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAssociation) -iniAssociation = lens _iniAssociation (\ s a -> s{_iniAssociation = a}); - --- | One or more IPv6 addresses associated with the network interface. -iniIPv6Addresses :: Lens' InstanceNetworkInterface [InstanceIPv6Address] -iniIPv6Addresses = lens _iniIPv6Addresses (\ s a -> s{_iniIPv6Addresses = a}) . _Default . _Coerce; - -instance FromXML InstanceNetworkInterface where - parseXML x - = InstanceNetworkInterface' <$> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "status") - <*> - (x .@? "privateIpAddressesSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "sourceDestCheck") - <*> (x .@? "vpcId") - <*> (x .@? "networkInterfaceId") - <*> (x .@? "subnetId") - <*> (x .@? "macAddress") - <*> (x .@? "attachment") - <*> (x .@? "ownerId") - <*> (x .@? "privateIpAddress") - <*> (x .@? "privateDnsName") - <*> (x .@? "description") - <*> (x .@? "association") - <*> - (x .@? "ipv6AddressesSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable InstanceNetworkInterface where - -instance NFData InstanceNetworkInterface where - --- | Describes association information for an Elastic IP address (IPv4). --- --- --- --- /See:/ 'instanceNetworkInterfaceAssociation' smart constructor. -data InstanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation' - { _iniaPublicDNSName :: !(Maybe Text) - , _iniaIPOwnerId :: !(Maybe Text) - , _iniaPublicIP :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceNetworkInterfaceAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iniaPublicDNSName' - The public DNS name. --- --- * 'iniaIPOwnerId' - The ID of the owner of the Elastic IP address. --- --- * 'iniaPublicIP' - The public IP address or Elastic IP address bound to the network interface. -instanceNetworkInterfaceAssociation - :: InstanceNetworkInterfaceAssociation -instanceNetworkInterfaceAssociation = - InstanceNetworkInterfaceAssociation' - { _iniaPublicDNSName = Nothing - , _iniaIPOwnerId = Nothing - , _iniaPublicIP = Nothing - } - - --- | The public DNS name. -iniaPublicDNSName :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) -iniaPublicDNSName = lens _iniaPublicDNSName (\ s a -> s{_iniaPublicDNSName = a}); - --- | The ID of the owner of the Elastic IP address. -iniaIPOwnerId :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) -iniaIPOwnerId = lens _iniaIPOwnerId (\ s a -> s{_iniaIPOwnerId = a}); - --- | The public IP address or Elastic IP address bound to the network interface. -iniaPublicIP :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) -iniaPublicIP = lens _iniaPublicIP (\ s a -> s{_iniaPublicIP = a}); - -instance FromXML InstanceNetworkInterfaceAssociation - where - parseXML x - = InstanceNetworkInterfaceAssociation' <$> - (x .@? "publicDnsName") <*> (x .@? "ipOwnerId") <*> - (x .@? "publicIp") - -instance Hashable InstanceNetworkInterfaceAssociation - where - -instance NFData InstanceNetworkInterfaceAssociation - where - --- | Describes a network interface attachment. --- --- --- --- /See:/ 'instanceNetworkInterfaceAttachment' smart constructor. -data InstanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment' - { _iniaStatus :: !(Maybe AttachmentStatus) - , _iniaDeleteOnTermination :: !(Maybe Bool) - , _iniaAttachmentId :: !(Maybe Text) - , _iniaAttachTime :: !(Maybe ISO8601) - , _iniaDeviceIndex :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceNetworkInterfaceAttachment' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iniaStatus' - The attachment state. --- --- * 'iniaDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. --- --- * 'iniaAttachmentId' - The ID of the network interface attachment. --- --- * 'iniaAttachTime' - The time stamp when the attachment initiated. --- --- * 'iniaDeviceIndex' - The index of the device on the instance for the network interface attachment. -instanceNetworkInterfaceAttachment - :: InstanceNetworkInterfaceAttachment -instanceNetworkInterfaceAttachment = - InstanceNetworkInterfaceAttachment' - { _iniaStatus = Nothing - , _iniaDeleteOnTermination = Nothing - , _iniaAttachmentId = Nothing - , _iniaAttachTime = Nothing - , _iniaDeviceIndex = Nothing - } - - --- | The attachment state. -iniaStatus :: Lens' InstanceNetworkInterfaceAttachment (Maybe AttachmentStatus) -iniaStatus = lens _iniaStatus (\ s a -> s{_iniaStatus = a}); - --- | Indicates whether the network interface is deleted when the instance is terminated. -iniaDeleteOnTermination :: Lens' InstanceNetworkInterfaceAttachment (Maybe Bool) -iniaDeleteOnTermination = lens _iniaDeleteOnTermination (\ s a -> s{_iniaDeleteOnTermination = a}); - --- | The ID of the network interface attachment. -iniaAttachmentId :: Lens' InstanceNetworkInterfaceAttachment (Maybe Text) -iniaAttachmentId = lens _iniaAttachmentId (\ s a -> s{_iniaAttachmentId = a}); - --- | The time stamp when the attachment initiated. -iniaAttachTime :: Lens' InstanceNetworkInterfaceAttachment (Maybe UTCTime) -iniaAttachTime = lens _iniaAttachTime (\ s a -> s{_iniaAttachTime = a}) . mapping _Time; - --- | The index of the device on the instance for the network interface attachment. -iniaDeviceIndex :: Lens' InstanceNetworkInterfaceAttachment (Maybe Int) -iniaDeviceIndex = lens _iniaDeviceIndex (\ s a -> s{_iniaDeviceIndex = a}); - -instance FromXML InstanceNetworkInterfaceAttachment - where - parseXML x - = InstanceNetworkInterfaceAttachment' <$> - (x .@? "status") <*> (x .@? "deleteOnTermination") - <*> (x .@? "attachmentId") - <*> (x .@? "attachTime") - <*> (x .@? "deviceIndex") - -instance Hashable InstanceNetworkInterfaceAttachment - where - -instance NFData InstanceNetworkInterfaceAttachment - where - --- | Describes a network interface. --- --- --- --- /See:/ 'instanceNetworkInterfaceSpecification' smart constructor. -data InstanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification' - { _inisGroups :: !(Maybe [Text]) - , _inisPrivateIPAddresses :: !(Maybe [PrivateIPAddressSpecification]) - , _inisDeleteOnTermination :: !(Maybe Bool) - , _inisAssociatePublicIPAddress :: !(Maybe Bool) - , _inisNetworkInterfaceId :: !(Maybe Text) - , _inisSubnetId :: !(Maybe Text) - , _inisIPv6AddressCount :: !(Maybe Int) - , _inisPrivateIPAddress :: !(Maybe Text) - , _inisSecondaryPrivateIPAddressCount :: !(Maybe Int) - , _inisDescription :: !(Maybe Text) - , _inisDeviceIndex :: !(Maybe Int) - , _inisIPv6Addresses :: !(Maybe [InstanceIPv6Address]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceNetworkInterfaceSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'inisGroups' - The IDs of the security groups for the network interface. Applies only if creating a network interface when launching an instance. --- --- * 'inisPrivateIPAddresses' - One or more private IPv4 addresses to assign to the network interface. Only one private IPv4 address can be designated as primary. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. --- --- * 'inisDeleteOnTermination' - If set to @true@ , the interface is deleted when the instance is terminated. You can specify @true@ only if creating a new network interface when launching an instance. --- --- * 'inisAssociatePublicIPAddress' - Indicates whether to assign a public IPv4 address to an instance you launch in a VPC. The public IP address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . --- --- * 'inisNetworkInterfaceId' - The ID of the network interface. --- --- * 'inisSubnetId' - The ID of the subnet associated with the network string. Applies only if creating a network interface when launching an instance. --- --- * 'inisIPv6AddressCount' - A number of IPv6 addresses to assign to the network interface. Amazon EC2 chooses the IPv6 addresses from the range of the subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch. --- --- * 'inisPrivateIPAddress' - The private IPv4 address of the network interface. Applies only if creating a network interface when launching an instance. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. --- --- * 'inisSecondaryPrivateIPAddressCount' - The number of secondary private IPv4 addresses. You can't specify this option and specify more than one private IP address using the private IP addresses option. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. --- --- * 'inisDescription' - The description of the network interface. Applies only if creating a network interface when launching an instance. --- --- * 'inisDeviceIndex' - The index of the device on the instance for the network interface attachment. If you are specifying a network interface in a 'RunInstances' request, you must provide the device index. --- --- * 'inisIPv6Addresses' - One or more IPv6 addresses to assign to the network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch. -instanceNetworkInterfaceSpecification - :: InstanceNetworkInterfaceSpecification -instanceNetworkInterfaceSpecification = - InstanceNetworkInterfaceSpecification' - { _inisGroups = Nothing - , _inisPrivateIPAddresses = Nothing - , _inisDeleteOnTermination = Nothing - , _inisAssociatePublicIPAddress = Nothing - , _inisNetworkInterfaceId = Nothing - , _inisSubnetId = Nothing - , _inisIPv6AddressCount = Nothing - , _inisPrivateIPAddress = Nothing - , _inisSecondaryPrivateIPAddressCount = Nothing - , _inisDescription = Nothing - , _inisDeviceIndex = Nothing - , _inisIPv6Addresses = Nothing - } - - --- | The IDs of the security groups for the network interface. Applies only if creating a network interface when launching an instance. -inisGroups :: Lens' InstanceNetworkInterfaceSpecification [Text] -inisGroups = lens _inisGroups (\ s a -> s{_inisGroups = a}) . _Default . _Coerce; - --- | One or more private IPv4 addresses to assign to the network interface. Only one private IPv4 address can be designated as primary. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. -inisPrivateIPAddresses :: Lens' InstanceNetworkInterfaceSpecification [PrivateIPAddressSpecification] -inisPrivateIPAddresses = lens _inisPrivateIPAddresses (\ s a -> s{_inisPrivateIPAddresses = a}) . _Default . _Coerce; - --- | If set to @true@ , the interface is deleted when the instance is terminated. You can specify @true@ only if creating a new network interface when launching an instance. -inisDeleteOnTermination :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool) -inisDeleteOnTermination = lens _inisDeleteOnTermination (\ s a -> s{_inisDeleteOnTermination = a}); - --- | Indicates whether to assign a public IPv4 address to an instance you launch in a VPC. The public IP address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . -inisAssociatePublicIPAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool) -inisAssociatePublicIPAddress = lens _inisAssociatePublicIPAddress (\ s a -> s{_inisAssociatePublicIPAddress = a}); - --- | The ID of the network interface. -inisNetworkInterfaceId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) -inisNetworkInterfaceId = lens _inisNetworkInterfaceId (\ s a -> s{_inisNetworkInterfaceId = a}); - --- | The ID of the subnet associated with the network string. Applies only if creating a network interface when launching an instance. -inisSubnetId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) -inisSubnetId = lens _inisSubnetId (\ s a -> s{_inisSubnetId = a}); - --- | A number of IPv6 addresses to assign to the network interface. Amazon EC2 chooses the IPv6 addresses from the range of the subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch. -inisIPv6AddressCount :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) -inisIPv6AddressCount = lens _inisIPv6AddressCount (\ s a -> s{_inisIPv6AddressCount = a}); - --- | The private IPv4 address of the network interface. Applies only if creating a network interface when launching an instance. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. -inisPrivateIPAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) -inisPrivateIPAddress = lens _inisPrivateIPAddress (\ s a -> s{_inisPrivateIPAddress = a}); - --- | The number of secondary private IPv4 addresses. You can't specify this option and specify more than one private IP address using the private IP addresses option. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. -inisSecondaryPrivateIPAddressCount :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) -inisSecondaryPrivateIPAddressCount = lens _inisSecondaryPrivateIPAddressCount (\ s a -> s{_inisSecondaryPrivateIPAddressCount = a}); - --- | The description of the network interface. Applies only if creating a network interface when launching an instance. -inisDescription :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) -inisDescription = lens _inisDescription (\ s a -> s{_inisDescription = a}); - --- | The index of the device on the instance for the network interface attachment. If you are specifying a network interface in a 'RunInstances' request, you must provide the device index. -inisDeviceIndex :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) -inisDeviceIndex = lens _inisDeviceIndex (\ s a -> s{_inisDeviceIndex = a}); - --- | One or more IPv6 addresses to assign to the network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch. -inisIPv6Addresses :: Lens' InstanceNetworkInterfaceSpecification [InstanceIPv6Address] -inisIPv6Addresses = lens _inisIPv6Addresses (\ s a -> s{_inisIPv6Addresses = a}) . _Default . _Coerce; - -instance FromXML - InstanceNetworkInterfaceSpecification - where - parseXML x - = InstanceNetworkInterfaceSpecification' <$> - (x .@? "SecurityGroupId" .!@ mempty >>= - may (parseXMLList "SecurityGroupId")) - <*> - (x .@? "privateIpAddressesSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "deleteOnTermination") - <*> (x .@? "associatePublicIpAddress") - <*> (x .@? "networkInterfaceId") - <*> (x .@? "subnetId") - <*> (x .@? "ipv6AddressCount") - <*> (x .@? "privateIpAddress") - <*> (x .@? "secondaryPrivateIpAddressCount") - <*> (x .@? "description") - <*> (x .@? "deviceIndex") - <*> - (x .@? "ipv6AddressesSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable - InstanceNetworkInterfaceSpecification - where - -instance NFData InstanceNetworkInterfaceSpecification - where - -instance ToQuery - InstanceNetworkInterfaceSpecification - where - toQuery InstanceNetworkInterfaceSpecification'{..} - = mconcat - [toQuery - (toQueryList "SecurityGroupId" <$> _inisGroups), - toQuery - (toQueryList "PrivateIpAddresses" <$> - _inisPrivateIPAddresses), - "DeleteOnTermination" =: _inisDeleteOnTermination, - "AssociatePublicIpAddress" =: - _inisAssociatePublicIPAddress, - "NetworkInterfaceId" =: _inisNetworkInterfaceId, - "SubnetId" =: _inisSubnetId, - "Ipv6AddressCount" =: _inisIPv6AddressCount, - "PrivateIpAddress" =: _inisPrivateIPAddress, - "SecondaryPrivateIpAddressCount" =: - _inisSecondaryPrivateIPAddressCount, - "Description" =: _inisDescription, - "DeviceIndex" =: _inisDeviceIndex, - toQuery - (toQueryList "Ipv6Addresses" <$> _inisIPv6Addresses)] - --- | Describes a private IPv4 address. --- --- --- --- /See:/ 'instancePrivateIPAddress' smart constructor. -data InstancePrivateIPAddress = InstancePrivateIPAddress' - { _ipiaPrimary :: !(Maybe Bool) - , _ipiaPrivateIPAddress :: !(Maybe Text) - , _ipiaPrivateDNSName :: !(Maybe Text) - , _ipiaAssociation :: !(Maybe InstanceNetworkInterfaceAssociation) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstancePrivateIPAddress' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ipiaPrimary' - Indicates whether this IPv4 address is the primary private IP address of the network interface. --- --- * 'ipiaPrivateIPAddress' - The private IPv4 address of the network interface. --- --- * 'ipiaPrivateDNSName' - The private IPv4 DNS name. --- --- * 'ipiaAssociation' - The association information for an Elastic IP address for the network interface. -instancePrivateIPAddress - :: InstancePrivateIPAddress -instancePrivateIPAddress = - InstancePrivateIPAddress' - { _ipiaPrimary = Nothing - , _ipiaPrivateIPAddress = Nothing - , _ipiaPrivateDNSName = Nothing - , _ipiaAssociation = Nothing - } - - --- | Indicates whether this IPv4 address is the primary private IP address of the network interface. -ipiaPrimary :: Lens' InstancePrivateIPAddress (Maybe Bool) -ipiaPrimary = lens _ipiaPrimary (\ s a -> s{_ipiaPrimary = a}); - --- | The private IPv4 address of the network interface. -ipiaPrivateIPAddress :: Lens' InstancePrivateIPAddress (Maybe Text) -ipiaPrivateIPAddress = lens _ipiaPrivateIPAddress (\ s a -> s{_ipiaPrivateIPAddress = a}); - --- | The private IPv4 DNS name. -ipiaPrivateDNSName :: Lens' InstancePrivateIPAddress (Maybe Text) -ipiaPrivateDNSName = lens _ipiaPrivateDNSName (\ s a -> s{_ipiaPrivateDNSName = a}); - --- | The association information for an Elastic IP address for the network interface. -ipiaAssociation :: Lens' InstancePrivateIPAddress (Maybe InstanceNetworkInterfaceAssociation) -ipiaAssociation = lens _ipiaAssociation (\ s a -> s{_ipiaAssociation = a}); - -instance FromXML InstancePrivateIPAddress where - parseXML x - = InstancePrivateIPAddress' <$> - (x .@? "primary") <*> (x .@? "privateIpAddress") <*> - (x .@? "privateDnsName") - <*> (x .@? "association") - -instance Hashable InstancePrivateIPAddress where - -instance NFData InstancePrivateIPAddress where - --- | Describes the current state of an instance. --- --- --- --- /See:/ 'instanceState' smart constructor. -data InstanceState = InstanceState' - { _isName :: !InstanceStateName - , _isCode :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceState' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'isName' - The current state of the instance. --- --- * 'isCode' - The low byte represents the state. The high byte is an opaque internal value and should be ignored. * @0@ : @pending@ * @16@ : @running@ * @32@ : @shutting-down@ * @48@ : @terminated@ * @64@ : @stopping@ * @80@ : @stopped@ -instanceState - :: InstanceStateName -- ^ 'isName' - -> Int -- ^ 'isCode' - -> InstanceState -instanceState pName_ pCode_ = - InstanceState' {_isName = pName_, _isCode = pCode_} - - --- | The current state of the instance. -isName :: Lens' InstanceState InstanceStateName -isName = lens _isName (\ s a -> s{_isName = a}); - --- | The low byte represents the state. The high byte is an opaque internal value and should be ignored. * @0@ : @pending@ * @16@ : @running@ * @32@ : @shutting-down@ * @48@ : @terminated@ * @64@ : @stopping@ * @80@ : @stopped@ -isCode :: Lens' InstanceState Int -isCode = lens _isCode (\ s a -> s{_isCode = a}); - -instance FromXML InstanceState where - parseXML x - = InstanceState' <$> (x .@ "name") <*> (x .@ "code") - -instance Hashable InstanceState where - -instance NFData InstanceState where - --- | Describes an instance state change. --- --- --- --- /See:/ 'instanceStateChange' smart constructor. -data InstanceStateChange = InstanceStateChange' - { _iscInstanceId :: !(Maybe Text) - , _iscCurrentState :: !(Maybe InstanceState) - , _iscPreviousState :: !(Maybe InstanceState) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceStateChange' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iscInstanceId' - The ID of the instance. --- --- * 'iscCurrentState' - The current state of the instance. --- --- * 'iscPreviousState' - The previous state of the instance. -instanceStateChange - :: InstanceStateChange -instanceStateChange = - InstanceStateChange' - { _iscInstanceId = Nothing - , _iscCurrentState = Nothing - , _iscPreviousState = Nothing - } - - --- | The ID of the instance. -iscInstanceId :: Lens' InstanceStateChange (Maybe Text) -iscInstanceId = lens _iscInstanceId (\ s a -> s{_iscInstanceId = a}); - --- | The current state of the instance. -iscCurrentState :: Lens' InstanceStateChange (Maybe InstanceState) -iscCurrentState = lens _iscCurrentState (\ s a -> s{_iscCurrentState = a}); - --- | The previous state of the instance. -iscPreviousState :: Lens' InstanceStateChange (Maybe InstanceState) -iscPreviousState = lens _iscPreviousState (\ s a -> s{_iscPreviousState = a}); - -instance FromXML InstanceStateChange where - parseXML x - = InstanceStateChange' <$> - (x .@? "instanceId") <*> (x .@? "currentState") <*> - (x .@? "previousState") - -instance Hashable InstanceStateChange where - -instance NFData InstanceStateChange where - --- | Describes the status of an instance. --- --- --- --- /See:/ 'instanceStatus' smart constructor. -data InstanceStatus = InstanceStatus' - { _isInstanceId :: !(Maybe Text) - , _isSystemStatus :: !(Maybe InstanceStatusSummary) - , _isEvents :: !(Maybe [InstanceStatusEvent]) - , _isAvailabilityZone :: !(Maybe Text) - , _isInstanceStatus :: !(Maybe InstanceStatusSummary) - , _isInstanceState :: !(Maybe InstanceState) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceStatus' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'isInstanceId' - The ID of the instance. --- --- * 'isSystemStatus' - Reports impaired functionality that stems from issues related to the systems that support an instance, such as hardware failures and network connectivity problems. --- --- * 'isEvents' - Any scheduled events associated with the instance. --- --- * 'isAvailabilityZone' - The Availability Zone of the instance. --- --- * 'isInstanceStatus' - Reports impaired functionality that stems from issues internal to the instance, such as impaired reachability. --- --- * 'isInstanceState' - The intended state of the instance. 'DescribeInstanceStatus' requires that an instance be in the @running@ state. -instanceStatus - :: InstanceStatus -instanceStatus = - InstanceStatus' - { _isInstanceId = Nothing - , _isSystemStatus = Nothing - , _isEvents = Nothing - , _isAvailabilityZone = Nothing - , _isInstanceStatus = Nothing - , _isInstanceState = Nothing - } - - --- | The ID of the instance. -isInstanceId :: Lens' InstanceStatus (Maybe Text) -isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a}); - --- | Reports impaired functionality that stems from issues related to the systems that support an instance, such as hardware failures and network connectivity problems. -isSystemStatus :: Lens' InstanceStatus (Maybe InstanceStatusSummary) -isSystemStatus = lens _isSystemStatus (\ s a -> s{_isSystemStatus = a}); - --- | Any scheduled events associated with the instance. -isEvents :: Lens' InstanceStatus [InstanceStatusEvent] -isEvents = lens _isEvents (\ s a -> s{_isEvents = a}) . _Default . _Coerce; - --- | The Availability Zone of the instance. -isAvailabilityZone :: Lens' InstanceStatus (Maybe Text) -isAvailabilityZone = lens _isAvailabilityZone (\ s a -> s{_isAvailabilityZone = a}); - --- | Reports impaired functionality that stems from issues internal to the instance, such as impaired reachability. -isInstanceStatus :: Lens' InstanceStatus (Maybe InstanceStatusSummary) -isInstanceStatus = lens _isInstanceStatus (\ s a -> s{_isInstanceStatus = a}); - --- | The intended state of the instance. 'DescribeInstanceStatus' requires that an instance be in the @running@ state. -isInstanceState :: Lens' InstanceStatus (Maybe InstanceState) -isInstanceState = lens _isInstanceState (\ s a -> s{_isInstanceState = a}); - -instance FromXML InstanceStatus where - parseXML x - = InstanceStatus' <$> - (x .@? "instanceId") <*> (x .@? "systemStatus") <*> - (x .@? "eventsSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "availabilityZone") - <*> (x .@? "instanceStatus") - <*> (x .@? "instanceState") - -instance Hashable InstanceStatus where - -instance NFData InstanceStatus where - --- | Describes the instance status. --- --- --- --- /See:/ 'instanceStatusDetails' smart constructor. -data InstanceStatusDetails = InstanceStatusDetails' - { _isdStatus :: !(Maybe StatusType) - , _isdImpairedSince :: !(Maybe ISO8601) - , _isdName :: !(Maybe StatusName) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceStatusDetails' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'isdStatus' - The status. --- --- * 'isdImpairedSince' - The time when a status check failed. For an instance that was launched and impaired, this is the time when the instance was launched. --- --- * 'isdName' - The type of instance status. -instanceStatusDetails - :: InstanceStatusDetails -instanceStatusDetails = - InstanceStatusDetails' - {_isdStatus = Nothing, _isdImpairedSince = Nothing, _isdName = Nothing} - - --- | The status. -isdStatus :: Lens' InstanceStatusDetails (Maybe StatusType) -isdStatus = lens _isdStatus (\ s a -> s{_isdStatus = a}); - --- | The time when a status check failed. For an instance that was launched and impaired, this is the time when the instance was launched. -isdImpairedSince :: Lens' InstanceStatusDetails (Maybe UTCTime) -isdImpairedSince = lens _isdImpairedSince (\ s a -> s{_isdImpairedSince = a}) . mapping _Time; - --- | The type of instance status. -isdName :: Lens' InstanceStatusDetails (Maybe StatusName) -isdName = lens _isdName (\ s a -> s{_isdName = a}); - -instance FromXML InstanceStatusDetails where - parseXML x - = InstanceStatusDetails' <$> - (x .@? "status") <*> (x .@? "impairedSince") <*> - (x .@? "name") - -instance Hashable InstanceStatusDetails where - -instance NFData InstanceStatusDetails where - --- | Describes a scheduled event for an instance. --- --- --- --- /See:/ 'instanceStatusEvent' smart constructor. -data InstanceStatusEvent = InstanceStatusEvent' - { _iseNotBefore :: !(Maybe ISO8601) - , _iseCode :: !(Maybe EventCode) - , _iseDescription :: !(Maybe Text) - , _iseNotAfter :: !(Maybe ISO8601) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceStatusEvent' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'iseNotBefore' - The earliest scheduled start time for the event. --- --- * 'iseCode' - The event code. --- --- * 'iseDescription' - A description of the event. After a scheduled event is completed, it can still be described for up to a week. If the event has been completed, this description starts with the following text: [Completed]. --- --- * 'iseNotAfter' - The latest scheduled end time for the event. -instanceStatusEvent - :: InstanceStatusEvent -instanceStatusEvent = - InstanceStatusEvent' - { _iseNotBefore = Nothing - , _iseCode = Nothing - , _iseDescription = Nothing - , _iseNotAfter = Nothing - } - - --- | The earliest scheduled start time for the event. -iseNotBefore :: Lens' InstanceStatusEvent (Maybe UTCTime) -iseNotBefore = lens _iseNotBefore (\ s a -> s{_iseNotBefore = a}) . mapping _Time; - --- | The event code. -iseCode :: Lens' InstanceStatusEvent (Maybe EventCode) -iseCode = lens _iseCode (\ s a -> s{_iseCode = a}); - --- | A description of the event. After a scheduled event is completed, it can still be described for up to a week. If the event has been completed, this description starts with the following text: [Completed]. -iseDescription :: Lens' InstanceStatusEvent (Maybe Text) -iseDescription = lens _iseDescription (\ s a -> s{_iseDescription = a}); - --- | The latest scheduled end time for the event. -iseNotAfter :: Lens' InstanceStatusEvent (Maybe UTCTime) -iseNotAfter = lens _iseNotAfter (\ s a -> s{_iseNotAfter = a}) . mapping _Time; - -instance FromXML InstanceStatusEvent where - parseXML x - = InstanceStatusEvent' <$> - (x .@? "notBefore") <*> (x .@? "code") <*> - (x .@? "description") - <*> (x .@? "notAfter") - -instance Hashable InstanceStatusEvent where - -instance NFData InstanceStatusEvent where - --- | Describes the status of an instance. --- --- --- --- /See:/ 'instanceStatusSummary' smart constructor. -data InstanceStatusSummary = InstanceStatusSummary' - { _issDetails :: !(Maybe [InstanceStatusDetails]) - , _issStatus :: !SummaryStatus - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InstanceStatusSummary' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'issDetails' - The system instance health or application instance health. --- --- * 'issStatus' - The status. -instanceStatusSummary - :: SummaryStatus -- ^ 'issStatus' - -> InstanceStatusSummary -instanceStatusSummary pStatus_ = - InstanceStatusSummary' {_issDetails = Nothing, _issStatus = pStatus_} - - --- | The system instance health or application instance health. -issDetails :: Lens' InstanceStatusSummary [InstanceStatusDetails] -issDetails = lens _issDetails (\ s a -> s{_issDetails = a}) . _Default . _Coerce; - --- | The status. -issStatus :: Lens' InstanceStatusSummary SummaryStatus -issStatus = lens _issStatus (\ s a -> s{_issStatus = a}); - -instance FromXML InstanceStatusSummary where - parseXML x - = InstanceStatusSummary' <$> - (x .@? "details" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "status") - -instance Hashable InstanceStatusSummary where - -instance NFData InstanceStatusSummary where - --- | Describes an Internet gateway. --- --- --- --- /See:/ 'internetGateway' smart constructor. -data InternetGateway = InternetGateway' - { _igAttachments :: !(Maybe [InternetGatewayAttachment]) - , _igTags :: !(Maybe [Tag]) - , _igInternetGatewayId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InternetGateway' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'igAttachments' - Any VPCs attached to the Internet gateway. --- --- * 'igTags' - Any tags assigned to the Internet gateway. --- --- * 'igInternetGatewayId' - The ID of the Internet gateway. -internetGateway - :: Text -- ^ 'igInternetGatewayId' - -> InternetGateway -internetGateway pInternetGatewayId_ = - InternetGateway' - { _igAttachments = Nothing - , _igTags = Nothing - , _igInternetGatewayId = pInternetGatewayId_ - } - - --- | Any VPCs attached to the Internet gateway. -igAttachments :: Lens' InternetGateway [InternetGatewayAttachment] -igAttachments = lens _igAttachments (\ s a -> s{_igAttachments = a}) . _Default . _Coerce; - --- | Any tags assigned to the Internet gateway. -igTags :: Lens' InternetGateway [Tag] -igTags = lens _igTags (\ s a -> s{_igTags = a}) . _Default . _Coerce; - --- | The ID of the Internet gateway. -igInternetGatewayId :: Lens' InternetGateway Text -igInternetGatewayId = lens _igInternetGatewayId (\ s a -> s{_igInternetGatewayId = a}); - -instance FromXML InternetGateway where - parseXML x - = InternetGateway' <$> - (x .@? "attachmentSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "internetGatewayId") - -instance Hashable InternetGateway where - -instance NFData InternetGateway where - --- | Describes the attachment of a VPC to an Internet gateway or an egress-only Internet gateway. --- --- --- --- /See:/ 'internetGatewayAttachment' smart constructor. -data InternetGatewayAttachment = InternetGatewayAttachment' - { _igaState :: !AttachmentStatus - , _igaVPCId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'InternetGatewayAttachment' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'igaState' - The current state of the attachment. --- --- * 'igaVPCId' - The ID of the VPC. -internetGatewayAttachment - :: AttachmentStatus -- ^ 'igaState' - -> Text -- ^ 'igaVPCId' - -> InternetGatewayAttachment -internetGatewayAttachment pState_ pVPCId_ = - InternetGatewayAttachment' {_igaState = pState_, _igaVPCId = pVPCId_} - - --- | The current state of the attachment. -igaState :: Lens' InternetGatewayAttachment AttachmentStatus -igaState = lens _igaState (\ s a -> s{_igaState = a}); - --- | The ID of the VPC. -igaVPCId :: Lens' InternetGatewayAttachment Text -igaVPCId = lens _igaVPCId (\ s a -> s{_igaVPCId = a}); - -instance FromXML InternetGatewayAttachment where - parseXML x - = InternetGatewayAttachment' <$> - (x .@ "state") <*> (x .@ "vpcId") - -instance Hashable InternetGatewayAttachment where - -instance NFData InternetGatewayAttachment where - --- | Describes a key pair. --- --- --- --- /See:/ 'keyPairInfo' smart constructor. -data KeyPairInfo = KeyPairInfo' - { _kpiKeyFingerprint :: !(Maybe Text) - , _kpiKeyName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'KeyPairInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'kpiKeyFingerprint' - If you used 'CreateKeyPair' to create the key pair, this is the SHA-1 digest of the DER encoded private key. If you used 'ImportKeyPair' to provide AWS the public key, this is the MD5 public key fingerprint as specified in section 4 of RFC4716. --- --- * 'kpiKeyName' - The name of the key pair. -keyPairInfo - :: KeyPairInfo -keyPairInfo = KeyPairInfo' {_kpiKeyFingerprint = Nothing, _kpiKeyName = Nothing} - - --- | If you used 'CreateKeyPair' to create the key pair, this is the SHA-1 digest of the DER encoded private key. If you used 'ImportKeyPair' to provide AWS the public key, this is the MD5 public key fingerprint as specified in section 4 of RFC4716. -kpiKeyFingerprint :: Lens' KeyPairInfo (Maybe Text) -kpiKeyFingerprint = lens _kpiKeyFingerprint (\ s a -> s{_kpiKeyFingerprint = a}); - --- | The name of the key pair. -kpiKeyName :: Lens' KeyPairInfo (Maybe Text) -kpiKeyName = lens _kpiKeyName (\ s a -> s{_kpiKeyName = a}); - -instance FromXML KeyPairInfo where - parseXML x - = KeyPairInfo' <$> - (x .@? "keyFingerprint") <*> (x .@? "keyName") - -instance Hashable KeyPairInfo where - -instance NFData KeyPairInfo where - --- | Describes a launch permission. --- --- --- --- /See:/ 'launchPermission' smart constructor. -data LaunchPermission = LaunchPermission' - { _lGroup :: !(Maybe PermissionGroup) - , _lUserId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LaunchPermission' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lGroup' - The name of the group. --- --- * 'lUserId' - The AWS account ID. -launchPermission - :: LaunchPermission -launchPermission = LaunchPermission' {_lGroup = Nothing, _lUserId = Nothing} - - --- | The name of the group. -lGroup :: Lens' LaunchPermission (Maybe PermissionGroup) -lGroup = lens _lGroup (\ s a -> s{_lGroup = a}); - --- | The AWS account ID. -lUserId :: Lens' LaunchPermission (Maybe Text) -lUserId = lens _lUserId (\ s a -> s{_lUserId = a}); - -instance FromXML LaunchPermission where - parseXML x - = LaunchPermission' <$> - (x .@? "group") <*> (x .@? "userId") - -instance Hashable LaunchPermission where - -instance NFData LaunchPermission where - -instance ToQuery LaunchPermission where - toQuery LaunchPermission'{..} - = mconcat ["Group" =: _lGroup, "UserId" =: _lUserId] - --- | Describes a launch permission modification. --- --- --- --- /See:/ 'launchPermissionModifications' smart constructor. -data LaunchPermissionModifications = LaunchPermissionModifications' - { _lRemove :: !(Maybe [LaunchPermission]) - , _lAdd :: !(Maybe [LaunchPermission]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LaunchPermissionModifications' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lRemove' - The AWS account ID to remove from the list of launch permissions for the AMI. --- --- * 'lAdd' - The AWS account ID to add to the list of launch permissions for the AMI. -launchPermissionModifications - :: LaunchPermissionModifications -launchPermissionModifications = - LaunchPermissionModifications' {_lRemove = Nothing, _lAdd = Nothing} - - --- | The AWS account ID to remove from the list of launch permissions for the AMI. -lRemove :: Lens' LaunchPermissionModifications [LaunchPermission] -lRemove = lens _lRemove (\ s a -> s{_lRemove = a}) . _Default . _Coerce; - --- | The AWS account ID to add to the list of launch permissions for the AMI. -lAdd :: Lens' LaunchPermissionModifications [LaunchPermission] -lAdd = lens _lAdd (\ s a -> s{_lAdd = a}) . _Default . _Coerce; - -instance Hashable LaunchPermissionModifications where - -instance NFData LaunchPermissionModifications where - -instance ToQuery LaunchPermissionModifications where - toQuery LaunchPermissionModifications'{..} - = mconcat - [toQuery (toQueryList "Remove" <$> _lRemove), - toQuery (toQueryList "Add" <$> _lAdd)] - --- | Describes the launch specification for an instance. --- --- --- --- /See:/ 'launchSpecification' smart constructor. -data LaunchSpecification = LaunchSpecification' - { _lsSecurityGroups :: !(Maybe [GroupIdentifier]) - , _lsKeyName :: !(Maybe Text) - , _lsNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) - , _lsRAMDiskId :: !(Maybe Text) - , _lsSubnetId :: !(Maybe Text) - , _lsKernelId :: !(Maybe Text) - , _lsInstanceType :: !(Maybe InstanceType) - , _lsEBSOptimized :: !(Maybe Bool) - , _lsUserData :: !(Maybe Text) - , _lsMonitoring :: !(Maybe RunInstancesMonitoringEnabled) - , _lsIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) - , _lsImageId :: !(Maybe Text) - , _lsAddressingType :: !(Maybe Text) - , _lsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) - , _lsPlacement :: !(Maybe SpotPlacement) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LaunchSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lsSecurityGroups' - 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. --- --- * 'lsKeyName' - The name of the key pair. --- --- * 'lsNetworkInterfaces' - One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. --- --- * 'lsRAMDiskId' - The ID of the RAM disk. --- --- * 'lsSubnetId' - The ID of the subnet in which to launch the instance. --- --- * 'lsKernelId' - The ID of the kernel. --- --- * 'lsInstanceType' - The instance type. --- --- * 'lsEBSOptimized' - Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ --- --- * 'lsUserData' - The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. --- --- * 'lsMonitoring' - Undocumented member. --- --- * 'lsIAMInstanceProfile' - The IAM instance profile. --- --- * 'lsImageId' - The ID of the AMI. --- --- * 'lsAddressingType' - Deprecated. --- --- * 'lsBlockDeviceMappings' - One or more block device mapping entries. --- --- * 'lsPlacement' - The placement information for the instance. -launchSpecification - :: LaunchSpecification -launchSpecification = - LaunchSpecification' - { _lsSecurityGroups = Nothing - , _lsKeyName = Nothing - , _lsNetworkInterfaces = Nothing - , _lsRAMDiskId = Nothing - , _lsSubnetId = Nothing - , _lsKernelId = Nothing - , _lsInstanceType = Nothing - , _lsEBSOptimized = Nothing - , _lsUserData = Nothing - , _lsMonitoring = Nothing - , _lsIAMInstanceProfile = Nothing - , _lsImageId = Nothing - , _lsAddressingType = Nothing - , _lsBlockDeviceMappings = Nothing - , _lsPlacement = Nothing - } - - --- | 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; - --- | The name of the key pair. -lsKeyName :: Lens' LaunchSpecification (Maybe Text) -lsKeyName = lens _lsKeyName (\ s a -> s{_lsKeyName = a}); - --- | One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. -lsNetworkInterfaces :: Lens' LaunchSpecification [InstanceNetworkInterfaceSpecification] -lsNetworkInterfaces = lens _lsNetworkInterfaces (\ s a -> s{_lsNetworkInterfaces = a}) . _Default . _Coerce; - --- | The ID of the RAM disk. -lsRAMDiskId :: Lens' LaunchSpecification (Maybe Text) -lsRAMDiskId = lens _lsRAMDiskId (\ s a -> s{_lsRAMDiskId = a}); - --- | The ID of the subnet in which to launch the instance. -lsSubnetId :: Lens' LaunchSpecification (Maybe Text) -lsSubnetId = lens _lsSubnetId (\ s a -> s{_lsSubnetId = a}); - --- | The ID of the kernel. -lsKernelId :: Lens' LaunchSpecification (Maybe Text) -lsKernelId = lens _lsKernelId (\ s a -> s{_lsKernelId = a}); - --- | The instance type. -lsInstanceType :: Lens' LaunchSpecification (Maybe InstanceType) -lsInstanceType = lens _lsInstanceType (\ s a -> s{_lsInstanceType = a}); - --- | Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ -lsEBSOptimized :: Lens' LaunchSpecification (Maybe Bool) -lsEBSOptimized = lens _lsEBSOptimized (\ s a -> s{_lsEBSOptimized = a}); - --- | The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. -lsUserData :: Lens' LaunchSpecification (Maybe Text) -lsUserData = lens _lsUserData (\ s a -> s{_lsUserData = a}); - --- | Undocumented member. -lsMonitoring :: Lens' LaunchSpecification (Maybe RunInstancesMonitoringEnabled) -lsMonitoring = lens _lsMonitoring (\ s a -> s{_lsMonitoring = a}); - --- | The IAM instance profile. -lsIAMInstanceProfile :: Lens' LaunchSpecification (Maybe IAMInstanceProfileSpecification) -lsIAMInstanceProfile = lens _lsIAMInstanceProfile (\ s a -> s{_lsIAMInstanceProfile = a}); - --- | The ID of the AMI. -lsImageId :: Lens' LaunchSpecification (Maybe Text) -lsImageId = lens _lsImageId (\ s a -> s{_lsImageId = a}); - --- | Deprecated. -lsAddressingType :: Lens' LaunchSpecification (Maybe Text) -lsAddressingType = lens _lsAddressingType (\ s a -> s{_lsAddressingType = a}); - --- | One or more block device mapping entries. -lsBlockDeviceMappings :: Lens' LaunchSpecification [BlockDeviceMapping] -lsBlockDeviceMappings = lens _lsBlockDeviceMappings (\ s a -> s{_lsBlockDeviceMappings = a}) . _Default . _Coerce; - --- | The placement information for the instance. -lsPlacement :: Lens' LaunchSpecification (Maybe SpotPlacement) -lsPlacement = lens _lsPlacement (\ s a -> s{_lsPlacement = a}); - -instance FromXML LaunchSpecification where - parseXML x - = LaunchSpecification' <$> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "keyName") - <*> - (x .@? "networkInterfaceSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "ramdiskId") - <*> (x .@? "subnetId") - <*> (x .@? "kernelId") - <*> (x .@? "instanceType") - <*> (x .@? "ebsOptimized") - <*> (x .@? "userData") - <*> (x .@? "monitoring") - <*> (x .@? "iamInstanceProfile") - <*> (x .@? "imageId") - <*> (x .@? "addressingType") - <*> - (x .@? "blockDeviceMapping" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "placement") - -instance Hashable LaunchSpecification where - -instance NFData LaunchSpecification where - --- | Describes the Classic Load Balancers and target groups to attach to a Spot fleet request. --- --- --- --- /See:/ 'loadBalancersConfig' smart constructor. -data LoadBalancersConfig = LoadBalancersConfig' - { _lbcClassicLoadBalancersConfig :: !(Maybe ClassicLoadBalancersConfig) - , _lbcTargetGroupsConfig :: !(Maybe TargetGroupsConfig) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LoadBalancersConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lbcClassicLoadBalancersConfig' - The Classic Load Balancers. --- --- * 'lbcTargetGroupsConfig' - The target groups. -loadBalancersConfig - :: LoadBalancersConfig -loadBalancersConfig = - LoadBalancersConfig' - {_lbcClassicLoadBalancersConfig = Nothing, _lbcTargetGroupsConfig = Nothing} - - --- | The Classic Load Balancers. -lbcClassicLoadBalancersConfig :: Lens' LoadBalancersConfig (Maybe ClassicLoadBalancersConfig) -lbcClassicLoadBalancersConfig = lens _lbcClassicLoadBalancersConfig (\ s a -> s{_lbcClassicLoadBalancersConfig = a}); - --- | The target groups. -lbcTargetGroupsConfig :: Lens' LoadBalancersConfig (Maybe TargetGroupsConfig) -lbcTargetGroupsConfig = lens _lbcTargetGroupsConfig (\ s a -> s{_lbcTargetGroupsConfig = a}); - -instance FromXML LoadBalancersConfig where - parseXML x - = LoadBalancersConfig' <$> - (x .@? "classicLoadBalancersConfig") <*> - (x .@? "targetGroupsConfig") - -instance Hashable LoadBalancersConfig where - -instance NFData LoadBalancersConfig where - -instance ToQuery LoadBalancersConfig where - toQuery LoadBalancersConfig'{..} - = mconcat - ["ClassicLoadBalancersConfig" =: - _lbcClassicLoadBalancersConfig, - "TargetGroupsConfig" =: _lbcTargetGroupsConfig] - --- | Describes a load permission. --- --- --- --- /See:/ 'loadPermission' smart constructor. -data LoadPermission = LoadPermission' - { _lpGroup :: !(Maybe PermissionGroup) - , _lpUserId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LoadPermission' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lpGroup' - The name of the group. --- --- * 'lpUserId' - The AWS account ID. -loadPermission - :: LoadPermission -loadPermission = LoadPermission' {_lpGroup = Nothing, _lpUserId = Nothing} - - --- | The name of the group. -lpGroup :: Lens' LoadPermission (Maybe PermissionGroup) -lpGroup = lens _lpGroup (\ s a -> s{_lpGroup = a}); - --- | The AWS account ID. -lpUserId :: Lens' LoadPermission (Maybe Text) -lpUserId = lens _lpUserId (\ s a -> s{_lpUserId = a}); - -instance FromXML LoadPermission where - parseXML x - = LoadPermission' <$> - (x .@? "group") <*> (x .@? "userId") - -instance Hashable LoadPermission where - -instance NFData LoadPermission where - --- | Describes modifications to the load permissions of an Amazon FPGA image (AFI). --- --- --- --- /See:/ 'loadPermissionModifications' smart constructor. -data LoadPermissionModifications = LoadPermissionModifications' - { _lpmRemove :: !(Maybe [LoadPermissionRequest]) - , _lpmAdd :: !(Maybe [LoadPermissionRequest]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LoadPermissionModifications' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lpmRemove' - The load permissions to remove. --- --- * 'lpmAdd' - The load permissions to add. -loadPermissionModifications - :: LoadPermissionModifications -loadPermissionModifications = - LoadPermissionModifications' {_lpmRemove = Nothing, _lpmAdd = Nothing} - - --- | The load permissions to remove. -lpmRemove :: Lens' LoadPermissionModifications [LoadPermissionRequest] -lpmRemove = lens _lpmRemove (\ s a -> s{_lpmRemove = a}) . _Default . _Coerce; - --- | The load permissions to add. -lpmAdd :: Lens' LoadPermissionModifications [LoadPermissionRequest] -lpmAdd = lens _lpmAdd (\ s a -> s{_lpmAdd = a}) . _Default . _Coerce; - -instance Hashable LoadPermissionModifications where - -instance NFData LoadPermissionModifications where - -instance ToQuery LoadPermissionModifications where - toQuery LoadPermissionModifications'{..} - = mconcat - [toQuery (toQueryList "Remove" <$> _lpmRemove), - toQuery (toQueryList "Add" <$> _lpmAdd)] - --- | Describes a load permission. --- --- --- --- /See:/ 'loadPermissionRequest' smart constructor. -data LoadPermissionRequest = LoadPermissionRequest' - { _lprGroup :: !(Maybe PermissionGroup) - , _lprUserId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'LoadPermissionRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'lprGroup' - The name of the group. --- --- * 'lprUserId' - The AWS account ID. -loadPermissionRequest - :: LoadPermissionRequest -loadPermissionRequest = - LoadPermissionRequest' {_lprGroup = Nothing, _lprUserId = Nothing} - - --- | The name of the group. -lprGroup :: Lens' LoadPermissionRequest (Maybe PermissionGroup) -lprGroup = lens _lprGroup (\ s a -> s{_lprGroup = a}); - --- | The AWS account ID. -lprUserId :: Lens' LoadPermissionRequest (Maybe Text) -lprUserId = lens _lprUserId (\ s a -> s{_lprUserId = a}); - -instance Hashable LoadPermissionRequest where - -instance NFData LoadPermissionRequest where - -instance ToQuery LoadPermissionRequest where - toQuery LoadPermissionRequest'{..} - = mconcat - ["Group" =: _lprGroup, "UserId" =: _lprUserId] - --- | Describes the monitoring of an instance. --- --- --- --- /See:/ 'monitoring' smart constructor. -newtype Monitoring = Monitoring' - { _mState :: Maybe MonitoringState - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Monitoring' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'mState' - Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. -monitoring - :: Monitoring -monitoring = Monitoring' {_mState = Nothing} - - --- | Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. -mState :: Lens' Monitoring (Maybe MonitoringState) -mState = lens _mState (\ s a -> s{_mState = a}); - -instance FromXML Monitoring where - parseXML x = Monitoring' <$> (x .@? "state") - -instance Hashable Monitoring where - -instance NFData Monitoring where - --- | Describes the status of a moving Elastic IP address. --- --- --- --- /See:/ 'movingAddressStatus' smart constructor. -data MovingAddressStatus = MovingAddressStatus' - { _masMoveStatus :: !(Maybe MoveStatus) - , _masPublicIP :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'MovingAddressStatus' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'masMoveStatus' - The status of the Elastic IP address that's being moved to the EC2-VPC platform, or restored to the EC2-Classic platform. --- --- * 'masPublicIP' - The Elastic IP address. -movingAddressStatus - :: MovingAddressStatus -movingAddressStatus = - MovingAddressStatus' {_masMoveStatus = Nothing, _masPublicIP = Nothing} - - --- | The status of the Elastic IP address that's being moved to the EC2-VPC platform, or restored to the EC2-Classic platform. -masMoveStatus :: Lens' MovingAddressStatus (Maybe MoveStatus) -masMoveStatus = lens _masMoveStatus (\ s a -> s{_masMoveStatus = a}); - --- | The Elastic IP address. -masPublicIP :: Lens' MovingAddressStatus (Maybe Text) -masPublicIP = lens _masPublicIP (\ s a -> s{_masPublicIP = a}); - -instance FromXML MovingAddressStatus where - parseXML x - = MovingAddressStatus' <$> - (x .@? "moveStatus") <*> (x .@? "publicIp") - -instance Hashable MovingAddressStatus where - -instance NFData MovingAddressStatus where - --- | Describes a NAT gateway. --- --- --- --- /See:/ 'natGateway' smart constructor. -data NatGateway = NatGateway' - { _ngState :: !(Maybe NatGatewayState) - , _ngFailureCode :: !(Maybe Text) - , _ngVPCId :: !(Maybe Text) - , _ngFailureMessage :: !(Maybe Text) - , _ngNatGatewayId :: !(Maybe Text) - , _ngSubnetId :: !(Maybe Text) - , _ngDeleteTime :: !(Maybe ISO8601) - , _ngProvisionedBandwidth :: !(Maybe ProvisionedBandwidth) - , _ngNatGatewayAddresses :: !(Maybe [NatGatewayAddress]) - , _ngCreateTime :: !(Maybe ISO8601) - , _ngTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NatGateway' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ngState' - The state of the NAT gateway. * @pending@ : The NAT gateway is being created and is not ready to process traffic. * @failed@ : The NAT gateway could not be created. Check the @failureCode@ and @failureMessage@ fields for the reason. * @available@ : The NAT gateway is able to process traffic. This status remains until you delete the NAT gateway, and does not indicate the health of the NAT gateway. * @deleting@ : The NAT gateway is in the process of being terminated and may still be processing traffic. * @deleted@ : The NAT gateway has been terminated and is no longer processing traffic. --- --- * 'ngFailureCode' - If the NAT gateway could not be created, specifies the error code for the failure. (@InsufficientFreeAddressesInSubnet@ | @Gateway.NotAttached@ | @InvalidAllocationID.NotFound@ | @Resource.AlreadyAssociated@ | @InternalError@ | @InvalidSubnetID.NotFound@ ) --- --- * 'ngVPCId' - The ID of the VPC in which the NAT gateway is located. --- --- * 'ngFailureMessage' - If the NAT gateway could not be created, specifies the error message for the failure, that corresponds to the error code. * For InsufficientFreeAddressesInSubnet: "Subnet has insufficient free addresses to create this NAT gateway" * For Gateway.NotAttached: "Network vpc-xxxxxxxx has no Internet gateway attached" * For InvalidAllocationID.NotFound: "Elastic IP address eipalloc-xxxxxxxx could not be associated with this NAT gateway" * For Resource.AlreadyAssociated: "Elastic IP address eipalloc-xxxxxxxx is already associated" * For InternalError: "Network interface eni-xxxxxxxx, created and used internally by this NAT gateway is in an invalid state. Please try again." * For InvalidSubnetID.NotFound: "The specified subnet subnet-xxxxxxxx does not exist or could not be found." --- --- * 'ngNatGatewayId' - The ID of the NAT gateway. --- --- * 'ngSubnetId' - The ID of the subnet in which the NAT gateway is located. --- --- * 'ngDeleteTime' - The date and time the NAT gateway was deleted, if applicable. --- --- * 'ngProvisionedBandwidth' - Reserved. If you need to sustain traffic greater than the , contact us through the . --- --- * 'ngNatGatewayAddresses' - Information about the IP addresses and network interface associated with the NAT gateway. --- --- * 'ngCreateTime' - The date and time the NAT gateway was created. --- --- * 'ngTags' - The tags for the NAT gateway. -natGateway - :: NatGateway -natGateway = - NatGateway' - { _ngState = Nothing - , _ngFailureCode = Nothing - , _ngVPCId = Nothing - , _ngFailureMessage = Nothing - , _ngNatGatewayId = Nothing - , _ngSubnetId = Nothing - , _ngDeleteTime = Nothing - , _ngProvisionedBandwidth = Nothing - , _ngNatGatewayAddresses = Nothing - , _ngCreateTime = Nothing - , _ngTags = Nothing - } - - --- | The state of the NAT gateway. * @pending@ : The NAT gateway is being created and is not ready to process traffic. * @failed@ : The NAT gateway could not be created. Check the @failureCode@ and @failureMessage@ fields for the reason. * @available@ : The NAT gateway is able to process traffic. This status remains until you delete the NAT gateway, and does not indicate the health of the NAT gateway. * @deleting@ : The NAT gateway is in the process of being terminated and may still be processing traffic. * @deleted@ : The NAT gateway has been terminated and is no longer processing traffic. -ngState :: Lens' NatGateway (Maybe NatGatewayState) -ngState = lens _ngState (\ s a -> s{_ngState = a}); - --- | If the NAT gateway could not be created, specifies the error code for the failure. (@InsufficientFreeAddressesInSubnet@ | @Gateway.NotAttached@ | @InvalidAllocationID.NotFound@ | @Resource.AlreadyAssociated@ | @InternalError@ | @InvalidSubnetID.NotFound@ ) -ngFailureCode :: Lens' NatGateway (Maybe Text) -ngFailureCode = lens _ngFailureCode (\ s a -> s{_ngFailureCode = a}); - --- | The ID of the VPC in which the NAT gateway is located. -ngVPCId :: Lens' NatGateway (Maybe Text) -ngVPCId = lens _ngVPCId (\ s a -> s{_ngVPCId = a}); - --- | If the NAT gateway could not be created, specifies the error message for the failure, that corresponds to the error code. * For InsufficientFreeAddressesInSubnet: "Subnet has insufficient free addresses to create this NAT gateway" * For Gateway.NotAttached: "Network vpc-xxxxxxxx has no Internet gateway attached" * For InvalidAllocationID.NotFound: "Elastic IP address eipalloc-xxxxxxxx could not be associated with this NAT gateway" * For Resource.AlreadyAssociated: "Elastic IP address eipalloc-xxxxxxxx is already associated" * For InternalError: "Network interface eni-xxxxxxxx, created and used internally by this NAT gateway is in an invalid state. Please try again." * For InvalidSubnetID.NotFound: "The specified subnet subnet-xxxxxxxx does not exist or could not be found." -ngFailureMessage :: Lens' NatGateway (Maybe Text) -ngFailureMessage = lens _ngFailureMessage (\ s a -> s{_ngFailureMessage = a}); - --- | The ID of the NAT gateway. -ngNatGatewayId :: Lens' NatGateway (Maybe Text) -ngNatGatewayId = lens _ngNatGatewayId (\ s a -> s{_ngNatGatewayId = a}); - --- | The ID of the subnet in which the NAT gateway is located. -ngSubnetId :: Lens' NatGateway (Maybe Text) -ngSubnetId = lens _ngSubnetId (\ s a -> s{_ngSubnetId = a}); - --- | The date and time the NAT gateway was deleted, if applicable. -ngDeleteTime :: Lens' NatGateway (Maybe UTCTime) -ngDeleteTime = lens _ngDeleteTime (\ s a -> s{_ngDeleteTime = a}) . mapping _Time; - --- | Reserved. If you need to sustain traffic greater than the , contact us through the . -ngProvisionedBandwidth :: Lens' NatGateway (Maybe ProvisionedBandwidth) -ngProvisionedBandwidth = lens _ngProvisionedBandwidth (\ s a -> s{_ngProvisionedBandwidth = a}); - --- | Information about the IP addresses and network interface associated with the NAT gateway. -ngNatGatewayAddresses :: Lens' NatGateway [NatGatewayAddress] -ngNatGatewayAddresses = lens _ngNatGatewayAddresses (\ s a -> s{_ngNatGatewayAddresses = a}) . _Default . _Coerce; - --- | The date and time the NAT gateway was created. -ngCreateTime :: Lens' NatGateway (Maybe UTCTime) -ngCreateTime = lens _ngCreateTime (\ s a -> s{_ngCreateTime = a}) . mapping _Time; - --- | The tags for the NAT gateway. -ngTags :: Lens' NatGateway [Tag] -ngTags = lens _ngTags (\ s a -> s{_ngTags = a}) . _Default . _Coerce; - -instance FromXML NatGateway where - parseXML x - = NatGateway' <$> - (x .@? "state") <*> (x .@? "failureCode") <*> - (x .@? "vpcId") - <*> (x .@? "failureMessage") - <*> (x .@? "natGatewayId") - <*> (x .@? "subnetId") - <*> (x .@? "deleteTime") - <*> (x .@? "provisionedBandwidth") - <*> - (x .@? "natGatewayAddressSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "createTime") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable NatGateway where - -instance NFData NatGateway where - --- | Describes the IP addresses and network interface associated with a NAT gateway. --- --- --- --- /See:/ 'natGatewayAddress' smart constructor. -data NatGatewayAddress = NatGatewayAddress' - { _ngaPrivateIP :: !(Maybe Text) - , _ngaAllocationId :: !(Maybe Text) - , _ngaNetworkInterfaceId :: !(Maybe Text) - , _ngaPublicIP :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NatGatewayAddress' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ngaPrivateIP' - The private IP address associated with the Elastic IP address. --- --- * 'ngaAllocationId' - The allocation ID of the Elastic IP address that's associated with the NAT gateway. --- --- * 'ngaNetworkInterfaceId' - The ID of the network interface associated with the NAT gateway. --- --- * 'ngaPublicIP' - The Elastic IP address associated with the NAT gateway. -natGatewayAddress - :: NatGatewayAddress -natGatewayAddress = - NatGatewayAddress' - { _ngaPrivateIP = Nothing - , _ngaAllocationId = Nothing - , _ngaNetworkInterfaceId = Nothing - , _ngaPublicIP = Nothing - } - - --- | The private IP address associated with the Elastic IP address. -ngaPrivateIP :: Lens' NatGatewayAddress (Maybe Text) -ngaPrivateIP = lens _ngaPrivateIP (\ s a -> s{_ngaPrivateIP = a}); - --- | The allocation ID of the Elastic IP address that's associated with the NAT gateway. -ngaAllocationId :: Lens' NatGatewayAddress (Maybe Text) -ngaAllocationId = lens _ngaAllocationId (\ s a -> s{_ngaAllocationId = a}); - --- | The ID of the network interface associated with the NAT gateway. -ngaNetworkInterfaceId :: Lens' NatGatewayAddress (Maybe Text) -ngaNetworkInterfaceId = lens _ngaNetworkInterfaceId (\ s a -> s{_ngaNetworkInterfaceId = a}); - --- | The Elastic IP address associated with the NAT gateway. -ngaPublicIP :: Lens' NatGatewayAddress (Maybe Text) -ngaPublicIP = lens _ngaPublicIP (\ s a -> s{_ngaPublicIP = a}); - -instance FromXML NatGatewayAddress where - parseXML x - = NatGatewayAddress' <$> - (x .@? "privateIp") <*> (x .@? "allocationId") <*> - (x .@? "networkInterfaceId") - <*> (x .@? "publicIp") - -instance Hashable NatGatewayAddress where - -instance NFData NatGatewayAddress where - --- | Describes a network ACL. --- --- --- --- /See:/ 'networkACL' smart constructor. -data NetworkACL = NetworkACL' - { _naEntries :: !(Maybe [NetworkACLEntry]) - , _naNetworkACLId :: !(Maybe Text) - , _naVPCId :: !(Maybe Text) - , _naAssociations :: !(Maybe [NetworkACLAssociation]) - , _naTags :: !(Maybe [Tag]) - , _naIsDefault :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkACL' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'naEntries' - One or more entries (rules) in the network ACL. --- --- * 'naNetworkACLId' - The ID of the network ACL. --- --- * 'naVPCId' - The ID of the VPC for the network ACL. --- --- * 'naAssociations' - Any associations between the network ACL and one or more subnets --- --- * 'naTags' - Any tags assigned to the network ACL. --- --- * 'naIsDefault' - Indicates whether this is the default network ACL for the VPC. -networkACL - :: NetworkACL -networkACL = - NetworkACL' - { _naEntries = Nothing - , _naNetworkACLId = Nothing - , _naVPCId = Nothing - , _naAssociations = Nothing - , _naTags = Nothing - , _naIsDefault = Nothing - } - - --- | One or more entries (rules) in the network ACL. -naEntries :: Lens' NetworkACL [NetworkACLEntry] -naEntries = lens _naEntries (\ s a -> s{_naEntries = a}) . _Default . _Coerce; - --- | The ID of the network ACL. -naNetworkACLId :: Lens' NetworkACL (Maybe Text) -naNetworkACLId = lens _naNetworkACLId (\ s a -> s{_naNetworkACLId = a}); - --- | The ID of the VPC for the network ACL. -naVPCId :: Lens' NetworkACL (Maybe Text) -naVPCId = lens _naVPCId (\ s a -> s{_naVPCId = a}); - --- | Any associations between the network ACL and one or more subnets -naAssociations :: Lens' NetworkACL [NetworkACLAssociation] -naAssociations = lens _naAssociations (\ s a -> s{_naAssociations = a}) . _Default . _Coerce; - --- | Any tags assigned to the network ACL. -naTags :: Lens' NetworkACL [Tag] -naTags = lens _naTags (\ s a -> s{_naTags = a}) . _Default . _Coerce; - --- | Indicates whether this is the default network ACL for the VPC. -naIsDefault :: Lens' NetworkACL (Maybe Bool) -naIsDefault = lens _naIsDefault (\ s a -> s{_naIsDefault = a}); - -instance FromXML NetworkACL where - parseXML x - = NetworkACL' <$> - (x .@? "entrySet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "networkAclId") - <*> (x .@? "vpcId") - <*> - (x .@? "associationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "default") - -instance Hashable NetworkACL where - -instance NFData NetworkACL where - --- | Describes an association between a network ACL and a subnet. --- --- --- --- /See:/ 'networkACLAssociation' smart constructor. -data NetworkACLAssociation = NetworkACLAssociation' - { _naaNetworkACLId :: !(Maybe Text) - , _naaSubnetId :: !(Maybe Text) - , _naaNetworkACLAssociationId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkACLAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'naaNetworkACLId' - The ID of the network ACL. --- --- * 'naaSubnetId' - The ID of the subnet. --- --- * 'naaNetworkACLAssociationId' - The ID of the association between a network ACL and a subnet. -networkACLAssociation - :: NetworkACLAssociation -networkACLAssociation = - NetworkACLAssociation' - { _naaNetworkACLId = Nothing - , _naaSubnetId = Nothing - , _naaNetworkACLAssociationId = Nothing - } - - --- | The ID of the network ACL. -naaNetworkACLId :: Lens' NetworkACLAssociation (Maybe Text) -naaNetworkACLId = lens _naaNetworkACLId (\ s a -> s{_naaNetworkACLId = a}); - --- | The ID of the subnet. -naaSubnetId :: Lens' NetworkACLAssociation (Maybe Text) -naaSubnetId = lens _naaSubnetId (\ s a -> s{_naaSubnetId = a}); - --- | The ID of the association between a network ACL and a subnet. -naaNetworkACLAssociationId :: Lens' NetworkACLAssociation (Maybe Text) -naaNetworkACLAssociationId = lens _naaNetworkACLAssociationId (\ s a -> s{_naaNetworkACLAssociationId = a}); - -instance FromXML NetworkACLAssociation where - parseXML x - = NetworkACLAssociation' <$> - (x .@? "networkAclId") <*> (x .@? "subnetId") <*> - (x .@? "networkAclAssociationId") - -instance Hashable NetworkACLAssociation where - -instance NFData NetworkACLAssociation where - --- | Describes an entry in a network ACL. --- --- --- --- /See:/ 'networkACLEntry' smart constructor. -data NetworkACLEntry = NetworkACLEntry' - { _naeIPv6CidrBlock :: !(Maybe Text) - , _naeICMPTypeCode :: !(Maybe ICMPTypeCode) - , _naeRuleNumber :: !(Maybe Int) - , _naeRuleAction :: !(Maybe RuleAction) - , _naeProtocol :: !(Maybe Text) - , _naePortRange :: !(Maybe PortRange) - , _naeCidrBlock :: !(Maybe Text) - , _naeEgress :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkACLEntry' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'naeIPv6CidrBlock' - The IPv6 network range to allow or deny, in CIDR notation. --- --- * 'naeICMPTypeCode' - ICMP protocol: The ICMP type and code. --- --- * 'naeRuleNumber' - The rule number for the entry. ACL entries are processed in ascending order by rule number. --- --- * 'naeRuleAction' - Indicates whether to allow or deny the traffic that matches the rule. --- --- * 'naeProtocol' - The protocol. A value of @-1@ means all protocols. --- --- * 'naePortRange' - TCP or UDP protocols: The range of ports the rule applies to. --- --- * 'naeCidrBlock' - The IPv4 network range to allow or deny, in CIDR notation. --- --- * 'naeEgress' - Indicates whether the rule is an egress rule (applied to traffic leaving the subnet). -networkACLEntry - :: NetworkACLEntry -networkACLEntry = - NetworkACLEntry' - { _naeIPv6CidrBlock = Nothing - , _naeICMPTypeCode = Nothing - , _naeRuleNumber = Nothing - , _naeRuleAction = Nothing - , _naeProtocol = Nothing - , _naePortRange = Nothing - , _naeCidrBlock = Nothing - , _naeEgress = Nothing - } - - --- | The IPv6 network range to allow or deny, in CIDR notation. -naeIPv6CidrBlock :: Lens' NetworkACLEntry (Maybe Text) -naeIPv6CidrBlock = lens _naeIPv6CidrBlock (\ s a -> s{_naeIPv6CidrBlock = a}); - --- | ICMP protocol: The ICMP type and code. -naeICMPTypeCode :: Lens' NetworkACLEntry (Maybe ICMPTypeCode) -naeICMPTypeCode = lens _naeICMPTypeCode (\ s a -> s{_naeICMPTypeCode = a}); - --- | The rule number for the entry. ACL entries are processed in ascending order by rule number. -naeRuleNumber :: Lens' NetworkACLEntry (Maybe Int) -naeRuleNumber = lens _naeRuleNumber (\ s a -> s{_naeRuleNumber = a}); - --- | Indicates whether to allow or deny the traffic that matches the rule. -naeRuleAction :: Lens' NetworkACLEntry (Maybe RuleAction) -naeRuleAction = lens _naeRuleAction (\ s a -> s{_naeRuleAction = a}); - --- | The protocol. A value of @-1@ means all protocols. -naeProtocol :: Lens' NetworkACLEntry (Maybe Text) -naeProtocol = lens _naeProtocol (\ s a -> s{_naeProtocol = a}); - --- | TCP or UDP protocols: The range of ports the rule applies to. -naePortRange :: Lens' NetworkACLEntry (Maybe PortRange) -naePortRange = lens _naePortRange (\ s a -> s{_naePortRange = a}); - --- | The IPv4 network range to allow or deny, in CIDR notation. -naeCidrBlock :: Lens' NetworkACLEntry (Maybe Text) -naeCidrBlock = lens _naeCidrBlock (\ s a -> s{_naeCidrBlock = a}); - --- | Indicates whether the rule is an egress rule (applied to traffic leaving the subnet). -naeEgress :: Lens' NetworkACLEntry (Maybe Bool) -naeEgress = lens _naeEgress (\ s a -> s{_naeEgress = a}); - -instance FromXML NetworkACLEntry where - parseXML x - = NetworkACLEntry' <$> - (x .@? "ipv6CidrBlock") <*> (x .@? "icmpTypeCode") - <*> (x .@? "ruleNumber") - <*> (x .@? "ruleAction") - <*> (x .@? "protocol") - <*> (x .@? "portRange") - <*> (x .@? "cidrBlock") - <*> (x .@? "egress") - -instance Hashable NetworkACLEntry where - -instance NFData NetworkACLEntry where - --- | Describes a network interface. --- --- --- --- /See:/ 'networkInterface' smart constructor. -data NetworkInterface = NetworkInterface' - { _niGroups :: !(Maybe [GroupIdentifier]) - , _niStatus :: !(Maybe NetworkInterfaceStatus) - , _niPrivateIPAddresses :: !(Maybe [NetworkInterfacePrivateIPAddress]) - , _niSourceDestCheck :: !(Maybe Bool) - , _niInterfaceType :: !(Maybe NetworkInterfaceType) - , _niVPCId :: !(Maybe Text) - , _niTagSet :: !(Maybe [Tag]) - , _niRequesterManaged :: !(Maybe Bool) - , _niNetworkInterfaceId :: !(Maybe Text) - , _niSubnetId :: !(Maybe Text) - , _niMACAddress :: !(Maybe Text) - , _niAttachment :: !(Maybe NetworkInterfaceAttachment) - , _niOwnerId :: !(Maybe Text) - , _niAvailabilityZone :: !(Maybe Text) - , _niPrivateIPAddress :: !(Maybe Text) - , _niPrivateDNSName :: !(Maybe Text) - , _niRequesterId :: !(Maybe Text) - , _niDescription :: !(Maybe Text) - , _niAssociation :: !(Maybe NetworkInterfaceAssociation) - , _niIPv6Addresses :: !(Maybe [NetworkInterfaceIPv6Address]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterface' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'niGroups' - Any security groups for the network interface. --- --- * 'niStatus' - The status of the network interface. --- --- * 'niPrivateIPAddresses' - The private IPv4 addresses associated with the network interface. --- --- * 'niSourceDestCheck' - Indicates whether traffic to or from the instance is validated. --- --- * 'niInterfaceType' - The type of interface. --- --- * 'niVPCId' - The ID of the VPC. --- --- * 'niTagSet' - Any tags assigned to the network interface. --- --- * 'niRequesterManaged' - Indicates whether the network interface is being managed by AWS. --- --- * 'niNetworkInterfaceId' - The ID of the network interface. --- --- * 'niSubnetId' - The ID of the subnet. --- --- * 'niMACAddress' - The MAC address. --- --- * 'niAttachment' - The network interface attachment. --- --- * 'niOwnerId' - The AWS account ID of the owner of the network interface. --- --- * 'niAvailabilityZone' - The Availability Zone. --- --- * 'niPrivateIPAddress' - The IPv4 address of the network interface within the subnet. --- --- * 'niPrivateDNSName' - The private DNS name. --- --- * 'niRequesterId' - The ID of the entity that launched the instance on your behalf (for example, AWS Management Console or Auto Scaling). --- --- * 'niDescription' - A description. --- --- * 'niAssociation' - The association information for an Elastic IP address (IPv4) associated with the network interface. --- --- * 'niIPv6Addresses' - The IPv6 addresses associated with the network interface. -networkInterface - :: NetworkInterface -networkInterface = - NetworkInterface' - { _niGroups = Nothing - , _niStatus = Nothing - , _niPrivateIPAddresses = Nothing - , _niSourceDestCheck = Nothing - , _niInterfaceType = Nothing - , _niVPCId = Nothing - , _niTagSet = Nothing - , _niRequesterManaged = Nothing - , _niNetworkInterfaceId = Nothing - , _niSubnetId = Nothing - , _niMACAddress = Nothing - , _niAttachment = Nothing - , _niOwnerId = Nothing - , _niAvailabilityZone = Nothing - , _niPrivateIPAddress = Nothing - , _niPrivateDNSName = Nothing - , _niRequesterId = Nothing - , _niDescription = Nothing - , _niAssociation = Nothing - , _niIPv6Addresses = Nothing - } - - --- | Any security groups for the network interface. -niGroups :: Lens' NetworkInterface [GroupIdentifier] -niGroups = lens _niGroups (\ s a -> s{_niGroups = a}) . _Default . _Coerce; - --- | The status of the network interface. -niStatus :: Lens' NetworkInterface (Maybe NetworkInterfaceStatus) -niStatus = lens _niStatus (\ s a -> s{_niStatus = a}); - --- | The private IPv4 addresses associated with the network interface. -niPrivateIPAddresses :: Lens' NetworkInterface [NetworkInterfacePrivateIPAddress] -niPrivateIPAddresses = lens _niPrivateIPAddresses (\ s a -> s{_niPrivateIPAddresses = a}) . _Default . _Coerce; - --- | Indicates whether traffic to or from the instance is validated. -niSourceDestCheck :: Lens' NetworkInterface (Maybe Bool) -niSourceDestCheck = lens _niSourceDestCheck (\ s a -> s{_niSourceDestCheck = a}); - --- | The type of interface. -niInterfaceType :: Lens' NetworkInterface (Maybe NetworkInterfaceType) -niInterfaceType = lens _niInterfaceType (\ s a -> s{_niInterfaceType = a}); - --- | The ID of the VPC. -niVPCId :: Lens' NetworkInterface (Maybe Text) -niVPCId = lens _niVPCId (\ s a -> s{_niVPCId = a}); - --- | Any tags assigned to the network interface. -niTagSet :: Lens' NetworkInterface [Tag] -niTagSet = lens _niTagSet (\ s a -> s{_niTagSet = a}) . _Default . _Coerce; - --- | Indicates whether the network interface is being managed by AWS. -niRequesterManaged :: Lens' NetworkInterface (Maybe Bool) -niRequesterManaged = lens _niRequesterManaged (\ s a -> s{_niRequesterManaged = a}); - --- | The ID of the network interface. -niNetworkInterfaceId :: Lens' NetworkInterface (Maybe Text) -niNetworkInterfaceId = lens _niNetworkInterfaceId (\ s a -> s{_niNetworkInterfaceId = a}); - --- | The ID of the subnet. -niSubnetId :: Lens' NetworkInterface (Maybe Text) -niSubnetId = lens _niSubnetId (\ s a -> s{_niSubnetId = a}); - --- | The MAC address. -niMACAddress :: Lens' NetworkInterface (Maybe Text) -niMACAddress = lens _niMACAddress (\ s a -> s{_niMACAddress = a}); - --- | The network interface attachment. -niAttachment :: Lens' NetworkInterface (Maybe NetworkInterfaceAttachment) -niAttachment = lens _niAttachment (\ s a -> s{_niAttachment = a}); - --- | The AWS account ID of the owner of the network interface. -niOwnerId :: Lens' NetworkInterface (Maybe Text) -niOwnerId = lens _niOwnerId (\ s a -> s{_niOwnerId = a}); - --- | The Availability Zone. -niAvailabilityZone :: Lens' NetworkInterface (Maybe Text) -niAvailabilityZone = lens _niAvailabilityZone (\ s a -> s{_niAvailabilityZone = a}); - --- | The IPv4 address of the network interface within the subnet. -niPrivateIPAddress :: Lens' NetworkInterface (Maybe Text) -niPrivateIPAddress = lens _niPrivateIPAddress (\ s a -> s{_niPrivateIPAddress = a}); - --- | The private DNS name. -niPrivateDNSName :: Lens' NetworkInterface (Maybe Text) -niPrivateDNSName = lens _niPrivateDNSName (\ s a -> s{_niPrivateDNSName = a}); - --- | The ID of the entity that launched the instance on your behalf (for example, AWS Management Console or Auto Scaling). -niRequesterId :: Lens' NetworkInterface (Maybe Text) -niRequesterId = lens _niRequesterId (\ s a -> s{_niRequesterId = a}); - --- | A description. -niDescription :: Lens' NetworkInterface (Maybe Text) -niDescription = lens _niDescription (\ s a -> s{_niDescription = a}); - --- | The association information for an Elastic IP address (IPv4) associated with the network interface. -niAssociation :: Lens' NetworkInterface (Maybe NetworkInterfaceAssociation) -niAssociation = lens _niAssociation (\ s a -> s{_niAssociation = a}); - --- | The IPv6 addresses associated with the network interface. -niIPv6Addresses :: Lens' NetworkInterface [NetworkInterfaceIPv6Address] -niIPv6Addresses = lens _niIPv6Addresses (\ s a -> s{_niIPv6Addresses = a}) . _Default . _Coerce; - -instance FromXML NetworkInterface where - parseXML x - = NetworkInterface' <$> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "status") - <*> - (x .@? "privateIpAddressesSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "sourceDestCheck") - <*> (x .@? "interfaceType") - <*> (x .@? "vpcId") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "requesterManaged") - <*> (x .@? "networkInterfaceId") - <*> (x .@? "subnetId") - <*> (x .@? "macAddress") - <*> (x .@? "attachment") - <*> (x .@? "ownerId") - <*> (x .@? "availabilityZone") - <*> (x .@? "privateIpAddress") - <*> (x .@? "privateDnsName") - <*> (x .@? "requesterId") - <*> (x .@? "description") - <*> (x .@? "association") - <*> - (x .@? "ipv6AddressesSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable NetworkInterface where - -instance NFData NetworkInterface where - --- | Describes association information for an Elastic IP address (IPv4 only). --- --- --- --- /See:/ 'networkInterfaceAssociation' smart constructor. -data NetworkInterfaceAssociation = NetworkInterfaceAssociation' - { _niaAssociationId :: !(Maybe Text) - , _niaPublicDNSName :: !(Maybe Text) - , _niaAllocationId :: !(Maybe Text) - , _niaIPOwnerId :: !(Maybe Text) - , _niaPublicIP :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterfaceAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'niaAssociationId' - The association ID. --- --- * 'niaPublicDNSName' - The public DNS name. --- --- * 'niaAllocationId' - The allocation ID. --- --- * 'niaIPOwnerId' - The ID of the Elastic IP address owner. --- --- * 'niaPublicIP' - The address of the Elastic IP address bound to the network interface. -networkInterfaceAssociation - :: NetworkInterfaceAssociation -networkInterfaceAssociation = - NetworkInterfaceAssociation' - { _niaAssociationId = Nothing - , _niaPublicDNSName = Nothing - , _niaAllocationId = Nothing - , _niaIPOwnerId = Nothing - , _niaPublicIP = Nothing - } - - --- | The association ID. -niaAssociationId :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaAssociationId = lens _niaAssociationId (\ s a -> s{_niaAssociationId = a}); - --- | The public DNS name. -niaPublicDNSName :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaPublicDNSName = lens _niaPublicDNSName (\ s a -> s{_niaPublicDNSName = a}); - --- | The allocation ID. -niaAllocationId :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaAllocationId = lens _niaAllocationId (\ s a -> s{_niaAllocationId = a}); - --- | The ID of the Elastic IP address owner. -niaIPOwnerId :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaIPOwnerId = lens _niaIPOwnerId (\ s a -> s{_niaIPOwnerId = a}); - --- | The address of the Elastic IP address bound to the network interface. -niaPublicIP :: Lens' NetworkInterfaceAssociation (Maybe Text) -niaPublicIP = lens _niaPublicIP (\ s a -> s{_niaPublicIP = a}); - -instance FromXML NetworkInterfaceAssociation where - parseXML x - = NetworkInterfaceAssociation' <$> - (x .@? "associationId") <*> (x .@? "publicDnsName") - <*> (x .@? "allocationId") - <*> (x .@? "ipOwnerId") - <*> (x .@? "publicIp") - -instance Hashable NetworkInterfaceAssociation where - -instance NFData NetworkInterfaceAssociation where - --- | Describes a network interface attachment. --- --- --- --- /See:/ 'networkInterfaceAttachment' smart constructor. -data NetworkInterfaceAttachment = NetworkInterfaceAttachment' - { _niaInstanceId :: !(Maybe Text) - , _niaStatus :: !(Maybe AttachmentStatus) - , _niaDeleteOnTermination :: !(Maybe Bool) - , _niaAttachmentId :: !(Maybe Text) - , _niaInstanceOwnerId :: !(Maybe Text) - , _niaAttachTime :: !(Maybe ISO8601) - , _niaDeviceIndex :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterfaceAttachment' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'niaInstanceId' - The ID of the instance. --- --- * 'niaStatus' - The attachment state. --- --- * 'niaDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. --- --- * 'niaAttachmentId' - The ID of the network interface attachment. --- --- * 'niaInstanceOwnerId' - The AWS account ID of the owner of the instance. --- --- * 'niaAttachTime' - The timestamp indicating when the attachment initiated. --- --- * 'niaDeviceIndex' - The device index of the network interface attachment on the instance. -networkInterfaceAttachment - :: NetworkInterfaceAttachment -networkInterfaceAttachment = - NetworkInterfaceAttachment' - { _niaInstanceId = Nothing - , _niaStatus = Nothing - , _niaDeleteOnTermination = Nothing - , _niaAttachmentId = Nothing - , _niaInstanceOwnerId = Nothing - , _niaAttachTime = Nothing - , _niaDeviceIndex = Nothing - } - - --- | The ID of the instance. -niaInstanceId :: Lens' NetworkInterfaceAttachment (Maybe Text) -niaInstanceId = lens _niaInstanceId (\ s a -> s{_niaInstanceId = a}); - --- | The attachment state. -niaStatus :: Lens' NetworkInterfaceAttachment (Maybe AttachmentStatus) -niaStatus = lens _niaStatus (\ s a -> s{_niaStatus = a}); - --- | Indicates whether the network interface is deleted when the instance is terminated. -niaDeleteOnTermination :: Lens' NetworkInterfaceAttachment (Maybe Bool) -niaDeleteOnTermination = lens _niaDeleteOnTermination (\ s a -> s{_niaDeleteOnTermination = a}); - --- | The ID of the network interface attachment. -niaAttachmentId :: Lens' NetworkInterfaceAttachment (Maybe Text) -niaAttachmentId = lens _niaAttachmentId (\ s a -> s{_niaAttachmentId = a}); - --- | The AWS account ID of the owner of the instance. -niaInstanceOwnerId :: Lens' NetworkInterfaceAttachment (Maybe Text) -niaInstanceOwnerId = lens _niaInstanceOwnerId (\ s a -> s{_niaInstanceOwnerId = a}); - --- | The timestamp indicating when the attachment initiated. -niaAttachTime :: Lens' NetworkInterfaceAttachment (Maybe UTCTime) -niaAttachTime = lens _niaAttachTime (\ s a -> s{_niaAttachTime = a}) . mapping _Time; - --- | The device index of the network interface attachment on the instance. -niaDeviceIndex :: Lens' NetworkInterfaceAttachment (Maybe Int) -niaDeviceIndex = lens _niaDeviceIndex (\ s a -> s{_niaDeviceIndex = a}); - -instance FromXML NetworkInterfaceAttachment where - parseXML x - = NetworkInterfaceAttachment' <$> - (x .@? "instanceId") <*> (x .@? "status") <*> - (x .@? "deleteOnTermination") - <*> (x .@? "attachmentId") - <*> (x .@? "instanceOwnerId") - <*> (x .@? "attachTime") - <*> (x .@? "deviceIndex") - -instance Hashable NetworkInterfaceAttachment where - -instance NFData NetworkInterfaceAttachment where - --- | Describes an attachment change. --- --- --- --- /See:/ 'networkInterfaceAttachmentChanges' smart constructor. -data NetworkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges' - { _niacDeleteOnTermination :: !(Maybe Bool) - , _niacAttachmentId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterfaceAttachmentChanges' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'niacDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. --- --- * 'niacAttachmentId' - The ID of the network interface attachment. -networkInterfaceAttachmentChanges - :: NetworkInterfaceAttachmentChanges -networkInterfaceAttachmentChanges = - NetworkInterfaceAttachmentChanges' - {_niacDeleteOnTermination = Nothing, _niacAttachmentId = Nothing} - - --- | Indicates whether the network interface is deleted when the instance is terminated. -niacDeleteOnTermination :: Lens' NetworkInterfaceAttachmentChanges (Maybe Bool) -niacDeleteOnTermination = lens _niacDeleteOnTermination (\ s a -> s{_niacDeleteOnTermination = a}); - --- | The ID of the network interface attachment. -niacAttachmentId :: Lens' NetworkInterfaceAttachmentChanges (Maybe Text) -niacAttachmentId = lens _niacAttachmentId (\ s a -> s{_niacAttachmentId = a}); - -instance Hashable NetworkInterfaceAttachmentChanges - where - -instance NFData NetworkInterfaceAttachmentChanges - where - -instance ToQuery NetworkInterfaceAttachmentChanges - where - toQuery NetworkInterfaceAttachmentChanges'{..} - = mconcat - ["DeleteOnTermination" =: _niacDeleteOnTermination, - "AttachmentId" =: _niacAttachmentId] - --- | Describes an IPv6 address associated with a network interface. --- --- --- --- /See:/ 'networkInterfaceIPv6Address' smart constructor. -newtype NetworkInterfaceIPv6Address = NetworkInterfaceIPv6Address' - { _niiaIPv6Address :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterfaceIPv6Address' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'niiaIPv6Address' - The IPv6 address. -networkInterfaceIPv6Address - :: NetworkInterfaceIPv6Address -networkInterfaceIPv6Address = - NetworkInterfaceIPv6Address' {_niiaIPv6Address = Nothing} - - --- | The IPv6 address. -niiaIPv6Address :: Lens' NetworkInterfaceIPv6Address (Maybe Text) -niiaIPv6Address = lens _niiaIPv6Address (\ s a -> s{_niiaIPv6Address = a}); - -instance FromXML NetworkInterfaceIPv6Address where - parseXML x - = NetworkInterfaceIPv6Address' <$> - (x .@? "ipv6Address") - -instance Hashable NetworkInterfaceIPv6Address where - -instance NFData NetworkInterfaceIPv6Address where - --- | Describes a permission for a network interface. --- --- --- --- /See:/ 'networkInterfacePermission' smart constructor. -data NetworkInterfacePermission = NetworkInterfacePermission' - { _nipPermissionState :: !(Maybe NetworkInterfacePermissionState) - , _nipNetworkInterfacePermissionId :: !(Maybe Text) - , _nipNetworkInterfaceId :: !(Maybe Text) - , _nipAWSAccountId :: !(Maybe Text) - , _nipAWSService :: !(Maybe Text) - , _nipPermission :: !(Maybe InterfacePermissionType) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterfacePermission' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'nipPermissionState' - Information about the state of the permission. --- --- * 'nipNetworkInterfacePermissionId' - The ID of the network interface permission. --- --- * 'nipNetworkInterfaceId' - The ID of the network interface. --- --- * 'nipAWSAccountId' - The AWS account ID. --- --- * 'nipAWSService' - The AWS service. --- --- * 'nipPermission' - The type of permission. -networkInterfacePermission - :: NetworkInterfacePermission -networkInterfacePermission = - NetworkInterfacePermission' - { _nipPermissionState = Nothing - , _nipNetworkInterfacePermissionId = Nothing - , _nipNetworkInterfaceId = Nothing - , _nipAWSAccountId = Nothing - , _nipAWSService = Nothing - , _nipPermission = Nothing - } - - --- | Information about the state of the permission. -nipPermissionState :: Lens' NetworkInterfacePermission (Maybe NetworkInterfacePermissionState) -nipPermissionState = lens _nipPermissionState (\ s a -> s{_nipPermissionState = a}); - --- | The ID of the network interface permission. -nipNetworkInterfacePermissionId :: Lens' NetworkInterfacePermission (Maybe Text) -nipNetworkInterfacePermissionId = lens _nipNetworkInterfacePermissionId (\ s a -> s{_nipNetworkInterfacePermissionId = a}); - --- | The ID of the network interface. -nipNetworkInterfaceId :: Lens' NetworkInterfacePermission (Maybe Text) -nipNetworkInterfaceId = lens _nipNetworkInterfaceId (\ s a -> s{_nipNetworkInterfaceId = a}); - --- | The AWS account ID. -nipAWSAccountId :: Lens' NetworkInterfacePermission (Maybe Text) -nipAWSAccountId = lens _nipAWSAccountId (\ s a -> s{_nipAWSAccountId = a}); - --- | The AWS service. -nipAWSService :: Lens' NetworkInterfacePermission (Maybe Text) -nipAWSService = lens _nipAWSService (\ s a -> s{_nipAWSService = a}); - --- | The type of permission. -nipPermission :: Lens' NetworkInterfacePermission (Maybe InterfacePermissionType) -nipPermission = lens _nipPermission (\ s a -> s{_nipPermission = a}); - -instance FromXML NetworkInterfacePermission where - parseXML x - = NetworkInterfacePermission' <$> - (x .@? "permissionState") <*> - (x .@? "networkInterfacePermissionId") - <*> (x .@? "networkInterfaceId") - <*> (x .@? "awsAccountId") - <*> (x .@? "awsService") - <*> (x .@? "permission") - -instance Hashable NetworkInterfacePermission where - -instance NFData NetworkInterfacePermission where - --- | Describes the state of a network interface permission. --- --- --- --- /See:/ 'networkInterfacePermissionState' smart constructor. -data NetworkInterfacePermissionState = NetworkInterfacePermissionState' - { _nipsState :: !(Maybe NetworkInterfacePermissionStateCode) - , _nipsStatusMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterfacePermissionState' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'nipsState' - The state of the permission. --- --- * 'nipsStatusMessage' - A status message, if applicable. -networkInterfacePermissionState - :: NetworkInterfacePermissionState -networkInterfacePermissionState = - NetworkInterfacePermissionState' - {_nipsState = Nothing, _nipsStatusMessage = Nothing} - - --- | The state of the permission. -nipsState :: Lens' NetworkInterfacePermissionState (Maybe NetworkInterfacePermissionStateCode) -nipsState = lens _nipsState (\ s a -> s{_nipsState = a}); - --- | A status message, if applicable. -nipsStatusMessage :: Lens' NetworkInterfacePermissionState (Maybe Text) -nipsStatusMessage = lens _nipsStatusMessage (\ s a -> s{_nipsStatusMessage = a}); - -instance FromXML NetworkInterfacePermissionState - where - parseXML x - = NetworkInterfacePermissionState' <$> - (x .@? "state") <*> (x .@? "statusMessage") - -instance Hashable NetworkInterfacePermissionState - where - -instance NFData NetworkInterfacePermissionState where - --- | Describes the private IPv4 address of a network interface. --- --- --- --- /See:/ 'networkInterfacePrivateIPAddress' smart constructor. -data NetworkInterfacePrivateIPAddress = NetworkInterfacePrivateIPAddress' - { _nipiaPrimary :: !(Maybe Bool) - , _nipiaPrivateIPAddress :: !(Maybe Text) - , _nipiaPrivateDNSName :: !(Maybe Text) - , _nipiaAssociation :: !(Maybe NetworkInterfaceAssociation) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NetworkInterfacePrivateIPAddress' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'nipiaPrimary' - Indicates whether this IPv4 address is the primary private IPv4 address of the network interface. --- --- * 'nipiaPrivateIPAddress' - The private IPv4 address. --- --- * 'nipiaPrivateDNSName' - The private DNS name. --- --- * 'nipiaAssociation' - The association information for an Elastic IP address (IPv4) associated with the network interface. -networkInterfacePrivateIPAddress - :: NetworkInterfacePrivateIPAddress -networkInterfacePrivateIPAddress = - NetworkInterfacePrivateIPAddress' - { _nipiaPrimary = Nothing - , _nipiaPrivateIPAddress = Nothing - , _nipiaPrivateDNSName = Nothing - , _nipiaAssociation = Nothing - } - - --- | Indicates whether this IPv4 address is the primary private IPv4 address of the network interface. -nipiaPrimary :: Lens' NetworkInterfacePrivateIPAddress (Maybe Bool) -nipiaPrimary = lens _nipiaPrimary (\ s a -> s{_nipiaPrimary = a}); - --- | The private IPv4 address. -nipiaPrivateIPAddress :: Lens' NetworkInterfacePrivateIPAddress (Maybe Text) -nipiaPrivateIPAddress = lens _nipiaPrivateIPAddress (\ s a -> s{_nipiaPrivateIPAddress = a}); - --- | The private DNS name. -nipiaPrivateDNSName :: Lens' NetworkInterfacePrivateIPAddress (Maybe Text) -nipiaPrivateDNSName = lens _nipiaPrivateDNSName (\ s a -> s{_nipiaPrivateDNSName = a}); - --- | The association information for an Elastic IP address (IPv4) associated with the network interface. -nipiaAssociation :: Lens' NetworkInterfacePrivateIPAddress (Maybe NetworkInterfaceAssociation) -nipiaAssociation = lens _nipiaAssociation (\ s a -> s{_nipiaAssociation = a}); - -instance FromXML NetworkInterfacePrivateIPAddress - where - parseXML x - = NetworkInterfacePrivateIPAddress' <$> - (x .@? "primary") <*> (x .@? "privateIpAddress") <*> - (x .@? "privateDnsName") - <*> (x .@? "association") - -instance Hashable NetworkInterfacePrivateIPAddress - where - -instance NFData NetworkInterfacePrivateIPAddress - where - --- | /See:/ 'newDHCPConfiguration' smart constructor. -data NewDHCPConfiguration = NewDHCPConfiguration' - { _ndcValues :: !(Maybe [Text]) - , _ndcKey :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'NewDHCPConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ndcValues' - Undocumented member. --- --- * 'ndcKey' - Undocumented member. -newDHCPConfiguration - :: NewDHCPConfiguration -newDHCPConfiguration = - NewDHCPConfiguration' {_ndcValues = Nothing, _ndcKey = Nothing} - - --- | Undocumented member. -ndcValues :: Lens' NewDHCPConfiguration [Text] -ndcValues = lens _ndcValues (\ s a -> s{_ndcValues = a}) . _Default . _Coerce; - --- | Undocumented member. -ndcKey :: Lens' NewDHCPConfiguration (Maybe Text) -ndcKey = lens _ndcKey (\ s a -> s{_ndcKey = a}); - -instance Hashable NewDHCPConfiguration where - -instance NFData NewDHCPConfiguration where - -instance ToQuery NewDHCPConfiguration where - toQuery NewDHCPConfiguration'{..} - = mconcat - [toQuery (toQueryList "Value" <$> _ndcValues), - "Key" =: _ndcKey] - --- | Describes the data that identifies an Amazon FPGA image (AFI) on the PCI bus. --- --- --- --- /See:/ 'pciId' smart constructor. -data PciId = PciId' - { _piSubsystemId :: !(Maybe Text) - , _piDeviceId :: !(Maybe Text) - , _piSubsystemVendorId :: !(Maybe Text) - , _piVendorId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PciId' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'piSubsystemId' - The ID of the subsystem. --- --- * 'piDeviceId' - The ID of the device. --- --- * 'piSubsystemVendorId' - The ID of the vendor for the subsystem. --- --- * 'piVendorId' - The ID of the vendor. -pciId - :: PciId -pciId = - PciId' - { _piSubsystemId = Nothing - , _piDeviceId = Nothing - , _piSubsystemVendorId = Nothing - , _piVendorId = Nothing - } - - --- | The ID of the subsystem. -piSubsystemId :: Lens' PciId (Maybe Text) -piSubsystemId = lens _piSubsystemId (\ s a -> s{_piSubsystemId = a}); - --- | The ID of the device. -piDeviceId :: Lens' PciId (Maybe Text) -piDeviceId = lens _piDeviceId (\ s a -> s{_piDeviceId = a}); - --- | The ID of the vendor for the subsystem. -piSubsystemVendorId :: Lens' PciId (Maybe Text) -piSubsystemVendorId = lens _piSubsystemVendorId (\ s a -> s{_piSubsystemVendorId = a}); - --- | The ID of the vendor. -piVendorId :: Lens' PciId (Maybe Text) -piVendorId = lens _piVendorId (\ s a -> s{_piVendorId = a}); - -instance FromXML PciId where - parseXML x - = PciId' <$> - (x .@? "SubsystemId") <*> (x .@? "DeviceId") <*> - (x .@? "SubsystemVendorId") - <*> (x .@? "VendorId") - -instance Hashable PciId where - -instance NFData PciId where - --- | Describes the VPC peering connection options. --- --- --- --- /See:/ 'peeringConnectionOptions' smart constructor. -data PeeringConnectionOptions = PeeringConnectionOptions' - { _pcoAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool) - , _pcoAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool) - , _pcoAllowDNSResolutionFromRemoteVPC :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PeeringConnectionOptions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pcoAllowEgressFromLocalVPCToRemoteClassicLink' - If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. --- --- * 'pcoAllowEgressFromLocalClassicLinkToRemoteVPC' - If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. --- --- * 'pcoAllowDNSResolutionFromRemoteVPC' - If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. -peeringConnectionOptions - :: PeeringConnectionOptions -peeringConnectionOptions = - PeeringConnectionOptions' - { _pcoAllowEgressFromLocalVPCToRemoteClassicLink = Nothing - , _pcoAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing - , _pcoAllowDNSResolutionFromRemoteVPC = Nothing - } - - --- | If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. -pcoAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' PeeringConnectionOptions (Maybe Bool) -pcoAllowEgressFromLocalVPCToRemoteClassicLink = lens _pcoAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_pcoAllowEgressFromLocalVPCToRemoteClassicLink = a}); - --- | If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. -pcoAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' PeeringConnectionOptions (Maybe Bool) -pcoAllowEgressFromLocalClassicLinkToRemoteVPC = lens _pcoAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_pcoAllowEgressFromLocalClassicLinkToRemoteVPC = a}); - --- | If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. -pcoAllowDNSResolutionFromRemoteVPC :: Lens' PeeringConnectionOptions (Maybe Bool) -pcoAllowDNSResolutionFromRemoteVPC = lens _pcoAllowDNSResolutionFromRemoteVPC (\ s a -> s{_pcoAllowDNSResolutionFromRemoteVPC = a}); - -instance FromXML PeeringConnectionOptions where - parseXML x - = PeeringConnectionOptions' <$> - (x .@? "allowEgressFromLocalVpcToRemoteClassicLink") - <*> - (x .@? "allowEgressFromLocalClassicLinkToRemoteVpc") - <*> (x .@? "allowDnsResolutionFromRemoteVpc") - -instance Hashable PeeringConnectionOptions where - -instance NFData PeeringConnectionOptions where - --- | The VPC peering connection options. --- --- --- --- /See:/ 'peeringConnectionOptionsRequest' smart constructor. -data PeeringConnectionOptionsRequest = PeeringConnectionOptionsRequest' - { _pcorAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool) - , _pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool) - , _pcorAllowDNSResolutionFromRemoteVPC :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PeeringConnectionOptionsRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pcorAllowEgressFromLocalVPCToRemoteClassicLink' - If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. --- --- * 'pcorAllowEgressFromLocalClassicLinkToRemoteVPC' - If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. --- --- * 'pcorAllowDNSResolutionFromRemoteVPC' - If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. -peeringConnectionOptionsRequest - :: PeeringConnectionOptionsRequest -peeringConnectionOptionsRequest = - PeeringConnectionOptionsRequest' - { _pcorAllowEgressFromLocalVPCToRemoteClassicLink = Nothing - , _pcorAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing - , _pcorAllowDNSResolutionFromRemoteVPC = Nothing - } - - --- | If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. -pcorAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' PeeringConnectionOptionsRequest (Maybe Bool) -pcorAllowEgressFromLocalVPCToRemoteClassicLink = lens _pcorAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_pcorAllowEgressFromLocalVPCToRemoteClassicLink = a}); - --- | If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. -pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' PeeringConnectionOptionsRequest (Maybe Bool) -pcorAllowEgressFromLocalClassicLinkToRemoteVPC = lens _pcorAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_pcorAllowEgressFromLocalClassicLinkToRemoteVPC = a}); - --- | If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. -pcorAllowDNSResolutionFromRemoteVPC :: Lens' PeeringConnectionOptionsRequest (Maybe Bool) -pcorAllowDNSResolutionFromRemoteVPC = lens _pcorAllowDNSResolutionFromRemoteVPC (\ s a -> s{_pcorAllowDNSResolutionFromRemoteVPC = a}); - -instance Hashable PeeringConnectionOptionsRequest - where - -instance NFData PeeringConnectionOptionsRequest where - -instance ToQuery PeeringConnectionOptionsRequest - where - toQuery PeeringConnectionOptionsRequest'{..} - = mconcat - ["AllowEgressFromLocalVpcToRemoteClassicLink" =: - _pcorAllowEgressFromLocalVPCToRemoteClassicLink, - "AllowEgressFromLocalClassicLinkToRemoteVpc" =: - _pcorAllowEgressFromLocalClassicLinkToRemoteVPC, - "AllowDnsResolutionFromRemoteVpc" =: - _pcorAllowDNSResolutionFromRemoteVPC] - --- | Describes the placement of an instance. --- --- --- --- /See:/ 'placement' smart constructor. -data Placement = Placement' - { _pAffinity :: !(Maybe Text) - , _pHostId :: !(Maybe Text) - , _pSpreadDomain :: !(Maybe Text) - , _pAvailabilityZone :: !(Maybe Text) - , _pTenancy :: !(Maybe Tenancy) - , _pGroupName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Placement' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pAffinity' - The affinity setting for the instance on the Dedicated Host. This parameter is not supported for the 'ImportInstance' command. --- --- * 'pHostId' - The ID of the Dedicated Host on which the instance resides. This parameter is not supported for the 'ImportInstance' command. --- --- * 'pSpreadDomain' - Reserved for future use. --- --- * 'pAvailabilityZone' - The Availability Zone of the instance. --- --- * 'pTenancy' - The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for the 'ImportInstance' command. --- --- * 'pGroupName' - The name of the placement group the instance is in (for cluster compute instances). -placement - :: Placement -placement = - Placement' - { _pAffinity = Nothing - , _pHostId = Nothing - , _pSpreadDomain = Nothing - , _pAvailabilityZone = Nothing - , _pTenancy = Nothing - , _pGroupName = Nothing - } - - --- | The affinity setting for the instance on the Dedicated Host. This parameter is not supported for the 'ImportInstance' command. -pAffinity :: Lens' Placement (Maybe Text) -pAffinity = lens _pAffinity (\ s a -> s{_pAffinity = a}); - --- | The ID of the Dedicated Host on which the instance resides. This parameter is not supported for the 'ImportInstance' command. -pHostId :: Lens' Placement (Maybe Text) -pHostId = lens _pHostId (\ s a -> s{_pHostId = a}); - --- | Reserved for future use. -pSpreadDomain :: Lens' Placement (Maybe Text) -pSpreadDomain = lens _pSpreadDomain (\ s a -> s{_pSpreadDomain = a}); - --- | The Availability Zone of the instance. -pAvailabilityZone :: Lens' Placement (Maybe Text) -pAvailabilityZone = lens _pAvailabilityZone (\ s a -> s{_pAvailabilityZone = a}); - --- | The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for the 'ImportInstance' command. -pTenancy :: Lens' Placement (Maybe Tenancy) -pTenancy = lens _pTenancy (\ s a -> s{_pTenancy = a}); - --- | The name of the placement group the instance is in (for cluster compute instances). -pGroupName :: Lens' Placement (Maybe Text) -pGroupName = lens _pGroupName (\ s a -> s{_pGroupName = a}); - -instance FromXML Placement where - parseXML x - = Placement' <$> - (x .@? "affinity") <*> (x .@? "hostId") <*> - (x .@? "spreadDomain") - <*> (x .@? "availabilityZone") - <*> (x .@? "tenancy") - <*> (x .@? "groupName") - -instance Hashable Placement where - -instance NFData Placement where - -instance ToQuery Placement where - toQuery Placement'{..} - = mconcat - ["Affinity" =: _pAffinity, "HostId" =: _pHostId, - "SpreadDomain" =: _pSpreadDomain, - "AvailabilityZone" =: _pAvailabilityZone, - "Tenancy" =: _pTenancy, "GroupName" =: _pGroupName] - --- | Describes a placement group. --- --- --- --- /See:/ 'placementGroup' smart constructor. -data PlacementGroup = PlacementGroup' - { _pgState :: !(Maybe PlacementGroupState) - , _pgStrategy :: !(Maybe PlacementStrategy) - , _pgGroupName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PlacementGroup' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pgState' - The state of the placement group. --- --- * 'pgStrategy' - The placement strategy. --- --- * 'pgGroupName' - The name of the placement group. -placementGroup - :: PlacementGroup -placementGroup = - PlacementGroup' - {_pgState = Nothing, _pgStrategy = Nothing, _pgGroupName = Nothing} - - --- | The state of the placement group. -pgState :: Lens' PlacementGroup (Maybe PlacementGroupState) -pgState = lens _pgState (\ s a -> s{_pgState = a}); - --- | The placement strategy. -pgStrategy :: Lens' PlacementGroup (Maybe PlacementStrategy) -pgStrategy = lens _pgStrategy (\ s a -> s{_pgStrategy = a}); - --- | The name of the placement group. -pgGroupName :: Lens' PlacementGroup (Maybe Text) -pgGroupName = lens _pgGroupName (\ s a -> s{_pgGroupName = a}); - -instance FromXML PlacementGroup where - parseXML x - = PlacementGroup' <$> - (x .@? "state") <*> (x .@? "strategy") <*> - (x .@? "groupName") - -instance Hashable PlacementGroup where - -instance NFData PlacementGroup where - --- | Describes a range of ports. --- --- --- --- /See:/ 'portRange' smart constructor. -data PortRange = PortRange' - { _prTo :: !(Maybe Int) - , _prFrom :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PortRange' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'prTo' - The last port in the range. --- --- * 'prFrom' - The first port in the range. -portRange - :: PortRange -portRange = PortRange' {_prTo = Nothing, _prFrom = Nothing} - - --- | The last port in the range. -prTo :: Lens' PortRange (Maybe Int) -prTo = lens _prTo (\ s a -> s{_prTo = a}); - --- | The first port in the range. -prFrom :: Lens' PortRange (Maybe Int) -prFrom = lens _prFrom (\ s a -> s{_prFrom = a}); - -instance FromXML PortRange where - parseXML x - = PortRange' <$> (x .@? "to") <*> (x .@? "from") - -instance Hashable PortRange where - -instance NFData PortRange where - -instance ToQuery PortRange where - toQuery PortRange'{..} - = mconcat ["To" =: _prTo, "From" =: _prFrom] - --- | Describes prefixes for AWS services. --- --- --- --- /See:/ 'prefixList' smart constructor. -data PrefixList = PrefixList' - { _plCidrs :: !(Maybe [Text]) - , _plPrefixListId :: !(Maybe Text) - , _plPrefixListName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PrefixList' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'plCidrs' - The IP address range of the AWS service. --- --- * 'plPrefixListId' - The ID of the prefix. --- --- * 'plPrefixListName' - The name of the prefix. -prefixList - :: PrefixList -prefixList = - PrefixList' - {_plCidrs = Nothing, _plPrefixListId = Nothing, _plPrefixListName = Nothing} - - --- | The IP address range of the AWS service. -plCidrs :: Lens' PrefixList [Text] -plCidrs = lens _plCidrs (\ s a -> s{_plCidrs = a}) . _Default . _Coerce; - --- | The ID of the prefix. -plPrefixListId :: Lens' PrefixList (Maybe Text) -plPrefixListId = lens _plPrefixListId (\ s a -> s{_plPrefixListId = a}); - --- | The name of the prefix. -plPrefixListName :: Lens' PrefixList (Maybe Text) -plPrefixListName = lens _plPrefixListName (\ s a -> s{_plPrefixListName = a}); - -instance FromXML PrefixList where - parseXML x - = PrefixList' <$> - (x .@? "cidrSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "prefixListId") - <*> (x .@? "prefixListName") - -instance Hashable PrefixList where - -instance NFData PrefixList where - --- | The ID of the prefix. --- --- --- --- /See:/ 'prefixListId' smart constructor. -data PrefixListId = PrefixListId' - { _pliPrefixListId :: !(Maybe Text) - , _pliDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PrefixListId' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pliPrefixListId' - The ID of the prefix. --- --- * 'pliDescription' - A description for the security group rule that references this prefix list ID. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* -prefixListId - :: PrefixListId -prefixListId = - PrefixListId' {_pliPrefixListId = Nothing, _pliDescription = Nothing} - - --- | The ID of the prefix. -pliPrefixListId :: Lens' PrefixListId (Maybe Text) -pliPrefixListId = lens _pliPrefixListId (\ s a -> s{_pliPrefixListId = a}); - --- | A description for the security group rule that references this prefix list ID. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* -pliDescription :: Lens' PrefixListId (Maybe Text) -pliDescription = lens _pliDescription (\ s a -> s{_pliDescription = a}); - -instance FromXML PrefixListId where - parseXML x - = PrefixListId' <$> - (x .@? "prefixListId") <*> (x .@? "description") - -instance Hashable PrefixListId where - -instance NFData PrefixListId where - -instance ToQuery PrefixListId where - toQuery PrefixListId'{..} - = mconcat - ["PrefixListId" =: _pliPrefixListId, - "Description" =: _pliDescription] - --- | Describes the price for a Reserved Instance. --- --- --- --- /See:/ 'priceSchedule' smart constructor. -data PriceSchedule = PriceSchedule' - { _psCurrencyCode :: !(Maybe CurrencyCodeValues) - , _psTerm :: !(Maybe Integer) - , _psActive :: !(Maybe Bool) - , _psPrice :: !(Maybe Double) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PriceSchedule' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'psCurrencyCode' - The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . --- --- * 'psTerm' - The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. --- --- * 'psActive' - The current price schedule, as determined by the term remaining for the Reserved Instance in the listing. A specific price schedule is always in effect, but only one price schedule can be active at any time. Take, for example, a Reserved Instance listing that has five months remaining in its term. When you specify price schedules for five months and two months, this means that schedule 1, covering the first three months of the remaining term, will be active during months 5, 4, and 3. Then schedule 2, covering the last two months of the term, will be active for months 2 and 1. --- --- * 'psPrice' - The fixed price for the term. -priceSchedule - :: PriceSchedule -priceSchedule = - PriceSchedule' - { _psCurrencyCode = Nothing - , _psTerm = Nothing - , _psActive = Nothing - , _psPrice = Nothing - } - - --- | The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . -psCurrencyCode :: Lens' PriceSchedule (Maybe CurrencyCodeValues) -psCurrencyCode = lens _psCurrencyCode (\ s a -> s{_psCurrencyCode = a}); - --- | The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. -psTerm :: Lens' PriceSchedule (Maybe Integer) -psTerm = lens _psTerm (\ s a -> s{_psTerm = a}); - --- | The current price schedule, as determined by the term remaining for the Reserved Instance in the listing. A specific price schedule is always in effect, but only one price schedule can be active at any time. Take, for example, a Reserved Instance listing that has five months remaining in its term. When you specify price schedules for five months and two months, this means that schedule 1, covering the first three months of the remaining term, will be active during months 5, 4, and 3. Then schedule 2, covering the last two months of the term, will be active for months 2 and 1. -psActive :: Lens' PriceSchedule (Maybe Bool) -psActive = lens _psActive (\ s a -> s{_psActive = a}); - --- | The fixed price for the term. -psPrice :: Lens' PriceSchedule (Maybe Double) -psPrice = lens _psPrice (\ s a -> s{_psPrice = a}); - -instance FromXML PriceSchedule where - parseXML x - = PriceSchedule' <$> - (x .@? "currencyCode") <*> (x .@? "term") <*> - (x .@? "active") - <*> (x .@? "price") - -instance Hashable PriceSchedule where - -instance NFData PriceSchedule where - --- | Describes the price for a Reserved Instance. --- --- --- --- /See:/ 'priceScheduleSpecification' smart constructor. -data PriceScheduleSpecification = PriceScheduleSpecification' - { _pssCurrencyCode :: !(Maybe CurrencyCodeValues) - , _pssTerm :: !(Maybe Integer) - , _pssPrice :: !(Maybe Double) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PriceScheduleSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pssCurrencyCode' - The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . --- --- * 'pssTerm' - The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. --- --- * 'pssPrice' - The fixed price for the term. -priceScheduleSpecification - :: PriceScheduleSpecification -priceScheduleSpecification = - PriceScheduleSpecification' - {_pssCurrencyCode = Nothing, _pssTerm = Nothing, _pssPrice = Nothing} - - --- | The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . -pssCurrencyCode :: Lens' PriceScheduleSpecification (Maybe CurrencyCodeValues) -pssCurrencyCode = lens _pssCurrencyCode (\ s a -> s{_pssCurrencyCode = a}); - --- | The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. -pssTerm :: Lens' PriceScheduleSpecification (Maybe Integer) -pssTerm = lens _pssTerm (\ s a -> s{_pssTerm = a}); - --- | The fixed price for the term. -pssPrice :: Lens' PriceScheduleSpecification (Maybe Double) -pssPrice = lens _pssPrice (\ s a -> s{_pssPrice = a}); - -instance Hashable PriceScheduleSpecification where - -instance NFData PriceScheduleSpecification where - -instance ToQuery PriceScheduleSpecification where - toQuery PriceScheduleSpecification'{..} - = mconcat - ["CurrencyCode" =: _pssCurrencyCode, - "Term" =: _pssTerm, "Price" =: _pssPrice] - --- | Describes a Reserved Instance offering. --- --- --- --- /See:/ 'pricingDetail' smart constructor. -data PricingDetail = PricingDetail' - { _pdCount :: !(Maybe Int) - , _pdPrice :: !(Maybe Double) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PricingDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pdCount' - The number of reservations available for the price. --- --- * 'pdPrice' - The price per instance. -pricingDetail - :: PricingDetail -pricingDetail = PricingDetail' {_pdCount = Nothing, _pdPrice = Nothing} - - --- | The number of reservations available for the price. -pdCount :: Lens' PricingDetail (Maybe Int) -pdCount = lens _pdCount (\ s a -> s{_pdCount = a}); - --- | The price per instance. -pdPrice :: Lens' PricingDetail (Maybe Double) -pdPrice = lens _pdPrice (\ s a -> s{_pdPrice = a}); - -instance FromXML PricingDetail where - parseXML x - = PricingDetail' <$> - (x .@? "count") <*> (x .@? "price") - -instance Hashable PricingDetail where - -instance NFData PricingDetail where - --- | Describes a secondary private IPv4 address for a network interface. --- --- --- --- /See:/ 'privateIPAddressSpecification' smart constructor. -data PrivateIPAddressSpecification = PrivateIPAddressSpecification' - { _piasPrimary :: !(Maybe Bool) - , _piasPrivateIPAddress :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PrivateIPAddressSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'piasPrimary' - Indicates whether the private IPv4 address is the primary private IPv4 address. Only one IPv4 address can be designated as primary. --- --- * 'piasPrivateIPAddress' - The private IPv4 addresses. -privateIPAddressSpecification - :: Text -- ^ 'piasPrivateIPAddress' - -> PrivateIPAddressSpecification -privateIPAddressSpecification pPrivateIPAddress_ = - PrivateIPAddressSpecification' - {_piasPrimary = Nothing, _piasPrivateIPAddress = pPrivateIPAddress_} - - --- | Indicates whether the private IPv4 address is the primary private IPv4 address. Only one IPv4 address can be designated as primary. -piasPrimary :: Lens' PrivateIPAddressSpecification (Maybe Bool) -piasPrimary = lens _piasPrimary (\ s a -> s{_piasPrimary = a}); - --- | The private IPv4 addresses. -piasPrivateIPAddress :: Lens' PrivateIPAddressSpecification Text -piasPrivateIPAddress = lens _piasPrivateIPAddress (\ s a -> s{_piasPrivateIPAddress = a}); - -instance FromXML PrivateIPAddressSpecification where - parseXML x - = PrivateIPAddressSpecification' <$> - (x .@? "primary") <*> (x .@ "privateIpAddress") - -instance Hashable PrivateIPAddressSpecification where - -instance NFData PrivateIPAddressSpecification where - -instance ToQuery PrivateIPAddressSpecification where - toQuery PrivateIPAddressSpecification'{..} - = mconcat - ["Primary" =: _piasPrimary, - "PrivateIpAddress" =: _piasPrivateIPAddress] - --- | Describes a product code. --- --- --- --- /See:/ 'productCode' smart constructor. -data ProductCode = ProductCode' - { _pcProductCodeType :: !(Maybe ProductCodeValues) - , _pcProductCodeId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProductCode' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pcProductCodeType' - The type of product code. --- --- * 'pcProductCodeId' - The product code. -productCode - :: ProductCode -productCode = - ProductCode' {_pcProductCodeType = Nothing, _pcProductCodeId = Nothing} - - --- | The type of product code. -pcProductCodeType :: Lens' ProductCode (Maybe ProductCodeValues) -pcProductCodeType = lens _pcProductCodeType (\ s a -> s{_pcProductCodeType = a}); - --- | The product code. -pcProductCodeId :: Lens' ProductCode (Maybe Text) -pcProductCodeId = lens _pcProductCodeId (\ s a -> s{_pcProductCodeId = a}); - -instance FromXML ProductCode where - parseXML x - = ProductCode' <$> - (x .@? "type") <*> (x .@? "productCode") - -instance Hashable ProductCode where - -instance NFData ProductCode where - --- | Describes a virtual private gateway propagating route. --- --- --- --- /See:/ 'propagatingVGW' smart constructor. -newtype PropagatingVGW = PropagatingVGW' - { _pvGatewayId :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PropagatingVGW' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pvGatewayId' - The ID of the virtual private gateway (VGW). -propagatingVGW - :: PropagatingVGW -propagatingVGW = PropagatingVGW' {_pvGatewayId = Nothing} - - --- | The ID of the virtual private gateway (VGW). -pvGatewayId :: Lens' PropagatingVGW (Maybe Text) -pvGatewayId = lens _pvGatewayId (\ s a -> s{_pvGatewayId = a}); - -instance FromXML PropagatingVGW where - parseXML x = PropagatingVGW' <$> (x .@? "gatewayId") - -instance Hashable PropagatingVGW where - -instance NFData PropagatingVGW where - --- | Reserved. If you need to sustain traffic greater than the , contact us through the . --- --- --- --- /See:/ 'provisionedBandwidth' smart constructor. -data ProvisionedBandwidth = ProvisionedBandwidth' - { _pbStatus :: !(Maybe Text) - , _pbRequested :: !(Maybe Text) - , _pbProvisioned :: !(Maybe Text) - , _pbRequestTime :: !(Maybe ISO8601) - , _pbProvisionTime :: !(Maybe ISO8601) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ProvisionedBandwidth' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pbStatus' - Reserved. If you need to sustain traffic greater than the , contact us through the . --- --- * 'pbRequested' - Reserved. If you need to sustain traffic greater than the , contact us through the . --- --- * 'pbProvisioned' - Reserved. If you need to sustain traffic greater than the , contact us through the . --- --- * 'pbRequestTime' - Reserved. If you need to sustain traffic greater than the , contact us through the . --- --- * 'pbProvisionTime' - Reserved. If you need to sustain traffic greater than the , contact us through the . -provisionedBandwidth - :: ProvisionedBandwidth -provisionedBandwidth = - ProvisionedBandwidth' - { _pbStatus = Nothing - , _pbRequested = Nothing - , _pbProvisioned = Nothing - , _pbRequestTime = Nothing - , _pbProvisionTime = Nothing - } - - --- | Reserved. If you need to sustain traffic greater than the , contact us through the . -pbStatus :: Lens' ProvisionedBandwidth (Maybe Text) -pbStatus = lens _pbStatus (\ s a -> s{_pbStatus = a}); - --- | Reserved. If you need to sustain traffic greater than the , contact us through the . -pbRequested :: Lens' ProvisionedBandwidth (Maybe Text) -pbRequested = lens _pbRequested (\ s a -> s{_pbRequested = a}); - --- | Reserved. If you need to sustain traffic greater than the , contact us through the . -pbProvisioned :: Lens' ProvisionedBandwidth (Maybe Text) -pbProvisioned = lens _pbProvisioned (\ s a -> s{_pbProvisioned = a}); - --- | Reserved. If you need to sustain traffic greater than the , contact us through the . -pbRequestTime :: Lens' ProvisionedBandwidth (Maybe UTCTime) -pbRequestTime = lens _pbRequestTime (\ s a -> s{_pbRequestTime = a}) . mapping _Time; - --- | Reserved. If you need to sustain traffic greater than the , contact us through the . -pbProvisionTime :: Lens' ProvisionedBandwidth (Maybe UTCTime) -pbProvisionTime = lens _pbProvisionTime (\ s a -> s{_pbProvisionTime = a}) . mapping _Time; - -instance FromXML ProvisionedBandwidth where - parseXML x - = ProvisionedBandwidth' <$> - (x .@? "status") <*> (x .@? "requested") <*> - (x .@? "provisioned") - <*> (x .@? "requestTime") - <*> (x .@? "provisionTime") - -instance Hashable ProvisionedBandwidth where - -instance NFData ProvisionedBandwidth where - --- | Describes the result of the purchase. --- --- --- --- /See:/ 'purchase' smart constructor. -data Purchase = Purchase' - { _pInstanceFamily :: !(Maybe Text) - , _pCurrencyCode :: !(Maybe CurrencyCodeValues) - , _pHostReservationId :: !(Maybe Text) - , _pHourlyPrice :: !(Maybe Text) - , _pUpfrontPrice :: !(Maybe Text) - , _pHostIdSet :: !(Maybe [Text]) - , _pDuration :: !(Maybe Int) - , _pPaymentOption :: !(Maybe PaymentOption) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Purchase' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'pInstanceFamily' - The instance family on the Dedicated Host that the reservation can be associated with. --- --- * 'pCurrencyCode' - The currency in which the @UpfrontPrice@ and @HourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . --- --- * 'pHostReservationId' - The ID of the reservation. --- --- * 'pHourlyPrice' - The hourly price of the reservation per hour. --- --- * 'pUpfrontPrice' - The upfront price of the reservation. --- --- * 'pHostIdSet' - The IDs of the Dedicated Hosts associated with the reservation. --- --- * 'pDuration' - The duration of the reservation's term in seconds. --- --- * 'pPaymentOption' - The payment option for the reservation. -purchase - :: Purchase -purchase = - Purchase' - { _pInstanceFamily = Nothing - , _pCurrencyCode = Nothing - , _pHostReservationId = Nothing - , _pHourlyPrice = Nothing - , _pUpfrontPrice = Nothing - , _pHostIdSet = Nothing - , _pDuration = Nothing - , _pPaymentOption = Nothing - } - - --- | The instance family on the Dedicated Host that the reservation can be associated with. -pInstanceFamily :: Lens' Purchase (Maybe Text) -pInstanceFamily = lens _pInstanceFamily (\ s a -> s{_pInstanceFamily = a}); - --- | The currency in which the @UpfrontPrice@ and @HourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . -pCurrencyCode :: Lens' Purchase (Maybe CurrencyCodeValues) -pCurrencyCode = lens _pCurrencyCode (\ s a -> s{_pCurrencyCode = a}); - --- | The ID of the reservation. -pHostReservationId :: Lens' Purchase (Maybe Text) -pHostReservationId = lens _pHostReservationId (\ s a -> s{_pHostReservationId = a}); - --- | The hourly price of the reservation per hour. -pHourlyPrice :: Lens' Purchase (Maybe Text) -pHourlyPrice = lens _pHourlyPrice (\ s a -> s{_pHourlyPrice = a}); - --- | The upfront price of the reservation. -pUpfrontPrice :: Lens' Purchase (Maybe Text) -pUpfrontPrice = lens _pUpfrontPrice (\ s a -> s{_pUpfrontPrice = a}); - --- | The IDs of the Dedicated Hosts associated with the reservation. -pHostIdSet :: Lens' Purchase [Text] -pHostIdSet = lens _pHostIdSet (\ s a -> s{_pHostIdSet = a}) . _Default . _Coerce; - --- | The duration of the reservation's term in seconds. -pDuration :: Lens' Purchase (Maybe Int) -pDuration = lens _pDuration (\ s a -> s{_pDuration = a}); - --- | The payment option for the reservation. -pPaymentOption :: Lens' Purchase (Maybe PaymentOption) -pPaymentOption = lens _pPaymentOption (\ s a -> s{_pPaymentOption = a}); - -instance FromXML Purchase where - parseXML x - = Purchase' <$> - (x .@? "instanceFamily") <*> (x .@? "currencyCode") - <*> (x .@? "hostReservationId") - <*> (x .@? "hourlyPrice") - <*> (x .@? "upfrontPrice") - <*> - (x .@? "hostIdSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "duration") - <*> (x .@? "paymentOption") - -instance Hashable Purchase where - -instance NFData Purchase where - --- | Describes a request to purchase Scheduled Instances. --- --- --- --- /See:/ 'purchaseRequest' smart constructor. -data PurchaseRequest = PurchaseRequest' - { _prInstanceCount :: !Int - , _prPurchaseToken :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'PurchaseRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'prInstanceCount' - The number of instances. --- --- * 'prPurchaseToken' - The purchase token. -purchaseRequest - :: Int -- ^ 'prInstanceCount' - -> Text -- ^ 'prPurchaseToken' - -> PurchaseRequest -purchaseRequest pInstanceCount_ pPurchaseToken_ = - PurchaseRequest' - {_prInstanceCount = pInstanceCount_, _prPurchaseToken = pPurchaseToken_} - - --- | The number of instances. -prInstanceCount :: Lens' PurchaseRequest Int -prInstanceCount = lens _prInstanceCount (\ s a -> s{_prInstanceCount = a}); - --- | The purchase token. -prPurchaseToken :: Lens' PurchaseRequest Text -prPurchaseToken = lens _prPurchaseToken (\ s a -> s{_prPurchaseToken = a}); - -instance Hashable PurchaseRequest where - -instance NFData PurchaseRequest where - -instance ToQuery PurchaseRequest where - toQuery PurchaseRequest'{..} - = mconcat - ["InstanceCount" =: _prInstanceCount, - "PurchaseToken" =: _prPurchaseToken] - --- | Describes a recurring charge. --- --- --- --- /See:/ 'recurringCharge' smart constructor. -data RecurringCharge = RecurringCharge' - { _rcAmount :: !(Maybe Double) - , _rcFrequency :: !(Maybe RecurringChargeFrequency) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rcAmount' - The amount of the recurring charge. --- --- * 'rcFrequency' - The frequency of the recurring charge. -recurringCharge - :: RecurringCharge -recurringCharge = RecurringCharge' {_rcAmount = Nothing, _rcFrequency = Nothing} - - --- | The amount of the recurring charge. -rcAmount :: Lens' RecurringCharge (Maybe Double) -rcAmount = lens _rcAmount (\ s a -> s{_rcAmount = a}); - --- | The frequency of the recurring charge. -rcFrequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency) -rcFrequency = lens _rcFrequency (\ s a -> s{_rcFrequency = a}); - -instance FromXML RecurringCharge where - parseXML x - = RecurringCharge' <$> - (x .@? "amount") <*> (x .@? "frequency") - -instance Hashable RecurringCharge where - -instance NFData RecurringCharge where - --- | Describes a region. --- --- --- --- /See:/ 'regionInfo' smart constructor. -data RegionInfo = RegionInfo' - { _riRegionName :: !(Maybe Text) - , _riEndpoint :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RegionInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'riRegionName' - The name of the region. --- --- * 'riEndpoint' - The region service endpoint. -regionInfo - :: RegionInfo -regionInfo = RegionInfo' {_riRegionName = Nothing, _riEndpoint = Nothing} - - --- | The name of the region. -riRegionName :: Lens' RegionInfo (Maybe Text) -riRegionName = lens _riRegionName (\ s a -> s{_riRegionName = a}); - --- | The region service endpoint. -riEndpoint :: Lens' RegionInfo (Maybe Text) -riEndpoint = lens _riEndpoint (\ s a -> s{_riEndpoint = a}); - -instance FromXML RegionInfo where - parseXML x - = RegionInfo' <$> - (x .@? "regionName") <*> (x .@? "regionEndpoint") - -instance Hashable RegionInfo where - -instance NFData RegionInfo where - --- | Describes the launch specification for an instance. --- --- --- --- /See:/ 'requestSpotLaunchSpecification' smart constructor. -data RequestSpotLaunchSpecification = RequestSpotLaunchSpecification' - { _rslsSecurityGroupIds :: !(Maybe [Text]) - , _rslsSecurityGroups :: !(Maybe [Text]) - , _rslsKeyName :: !(Maybe Text) - , _rslsNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) - , _rslsRAMDiskId :: !(Maybe Text) - , _rslsSubnetId :: !(Maybe Text) - , _rslsKernelId :: !(Maybe Text) - , _rslsInstanceType :: !(Maybe InstanceType) - , _rslsEBSOptimized :: !(Maybe Bool) - , _rslsUserData :: !(Maybe Text) - , _rslsMonitoring :: !(Maybe RunInstancesMonitoringEnabled) - , _rslsIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) - , _rslsImageId :: !(Maybe Text) - , _rslsAddressingType :: !(Maybe Text) - , _rslsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) - , _rslsPlacement :: !(Maybe SpotPlacement) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RequestSpotLaunchSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rslsSecurityGroupIds' - One or more security group IDs. --- --- * 'rslsSecurityGroups' - 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. --- --- * 'rslsKeyName' - The name of the key pair. --- --- * 'rslsNetworkInterfaces' - One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. --- --- * 'rslsRAMDiskId' - The ID of the RAM disk. --- --- * 'rslsSubnetId' - The ID of the subnet in which to launch the instance. --- --- * 'rslsKernelId' - The ID of the kernel. --- --- * 'rslsInstanceType' - The instance type. --- --- * 'rslsEBSOptimized' - Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ --- --- * 'rslsUserData' - The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. --- --- * 'rslsMonitoring' - Indicates whether basic or detailed monitoring is enabled for the instance. Default: Disabled --- --- * 'rslsIAMInstanceProfile' - The IAM instance profile. --- --- * 'rslsImageId' - The ID of the AMI. --- --- * 'rslsAddressingType' - Deprecated. --- --- * 'rslsBlockDeviceMappings' - One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. --- --- * 'rslsPlacement' - The placement information for the instance. -requestSpotLaunchSpecification - :: RequestSpotLaunchSpecification -requestSpotLaunchSpecification = - RequestSpotLaunchSpecification' - { _rslsSecurityGroupIds = Nothing - , _rslsSecurityGroups = Nothing - , _rslsKeyName = Nothing - , _rslsNetworkInterfaces = Nothing - , _rslsRAMDiskId = Nothing - , _rslsSubnetId = Nothing - , _rslsKernelId = Nothing - , _rslsInstanceType = Nothing - , _rslsEBSOptimized = Nothing - , _rslsUserData = Nothing - , _rslsMonitoring = Nothing - , _rslsIAMInstanceProfile = Nothing - , _rslsImageId = Nothing - , _rslsAddressingType = Nothing - , _rslsBlockDeviceMappings = Nothing - , _rslsPlacement = Nothing - } - - --- | One or more security group IDs. -rslsSecurityGroupIds :: Lens' RequestSpotLaunchSpecification [Text] -rslsSecurityGroupIds = lens _rslsSecurityGroupIds (\ s a -> s{_rslsSecurityGroupIds = a}) . _Default . _Coerce; - --- | 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. -rslsSecurityGroups :: Lens' RequestSpotLaunchSpecification [Text] -rslsSecurityGroups = lens _rslsSecurityGroups (\ s a -> s{_rslsSecurityGroups = a}) . _Default . _Coerce; - --- | The name of the key pair. -rslsKeyName :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsKeyName = lens _rslsKeyName (\ s a -> s{_rslsKeyName = a}); - --- | One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. -rslsNetworkInterfaces :: Lens' RequestSpotLaunchSpecification [InstanceNetworkInterfaceSpecification] -rslsNetworkInterfaces = lens _rslsNetworkInterfaces (\ s a -> s{_rslsNetworkInterfaces = a}) . _Default . _Coerce; - --- | The ID of the RAM disk. -rslsRAMDiskId :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsRAMDiskId = lens _rslsRAMDiskId (\ s a -> s{_rslsRAMDiskId = a}); - --- | The ID of the subnet in which to launch the instance. -rslsSubnetId :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsSubnetId = lens _rslsSubnetId (\ s a -> s{_rslsSubnetId = a}); - --- | The ID of the kernel. -rslsKernelId :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsKernelId = lens _rslsKernelId (\ s a -> s{_rslsKernelId = a}); - --- | The instance type. -rslsInstanceType :: Lens' RequestSpotLaunchSpecification (Maybe InstanceType) -rslsInstanceType = lens _rslsInstanceType (\ s a -> s{_rslsInstanceType = a}); - --- | Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ -rslsEBSOptimized :: Lens' RequestSpotLaunchSpecification (Maybe Bool) -rslsEBSOptimized = lens _rslsEBSOptimized (\ s a -> s{_rslsEBSOptimized = a}); - --- | The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. -rslsUserData :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsUserData = lens _rslsUserData (\ s a -> s{_rslsUserData = a}); - --- | Indicates whether basic or detailed monitoring is enabled for the instance. Default: Disabled -rslsMonitoring :: Lens' RequestSpotLaunchSpecification (Maybe RunInstancesMonitoringEnabled) -rslsMonitoring = lens _rslsMonitoring (\ s a -> s{_rslsMonitoring = a}); - --- | The IAM instance profile. -rslsIAMInstanceProfile :: Lens' RequestSpotLaunchSpecification (Maybe IAMInstanceProfileSpecification) -rslsIAMInstanceProfile = lens _rslsIAMInstanceProfile (\ s a -> s{_rslsIAMInstanceProfile = a}); - --- | The ID of the AMI. -rslsImageId :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsImageId = lens _rslsImageId (\ s a -> s{_rslsImageId = a}); - --- | Deprecated. -rslsAddressingType :: Lens' RequestSpotLaunchSpecification (Maybe Text) -rslsAddressingType = lens _rslsAddressingType (\ s a -> s{_rslsAddressingType = a}); - --- | One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. -rslsBlockDeviceMappings :: Lens' RequestSpotLaunchSpecification [BlockDeviceMapping] -rslsBlockDeviceMappings = lens _rslsBlockDeviceMappings (\ s a -> s{_rslsBlockDeviceMappings = a}) . _Default . _Coerce; - --- | The placement information for the instance. -rslsPlacement :: Lens' RequestSpotLaunchSpecification (Maybe SpotPlacement) -rslsPlacement = lens _rslsPlacement (\ s a -> s{_rslsPlacement = a}); - -instance Hashable RequestSpotLaunchSpecification - where - -instance NFData RequestSpotLaunchSpecification where - -instance ToQuery RequestSpotLaunchSpecification where - toQuery RequestSpotLaunchSpecification'{..} - = mconcat - [toQuery - (toQueryList "SecurityGroupId" <$> - _rslsSecurityGroupIds), - toQuery - (toQueryList "SecurityGroup" <$> - _rslsSecurityGroups), - "KeyName" =: _rslsKeyName, - toQuery - (toQueryList "NetworkInterface" <$> - _rslsNetworkInterfaces), - "RamdiskId" =: _rslsRAMDiskId, - "SubnetId" =: _rslsSubnetId, - "KernelId" =: _rslsKernelId, - "InstanceType" =: _rslsInstanceType, - "EbsOptimized" =: _rslsEBSOptimized, - "UserData" =: _rslsUserData, - "Monitoring" =: _rslsMonitoring, - "IamInstanceProfile" =: _rslsIAMInstanceProfile, - "ImageId" =: _rslsImageId, - "AddressingType" =: _rslsAddressingType, - toQuery - (toQueryList "BlockDeviceMapping" <$> - _rslsBlockDeviceMappings), - "Placement" =: _rslsPlacement] - --- | Describes a reservation. --- --- --- --- /See:/ 'reservation' smart constructor. -data Reservation = Reservation' - { _rGroups :: !(Maybe [GroupIdentifier]) - , _rInstances :: !(Maybe [Instance]) - , _rRequesterId :: !(Maybe Text) - , _rReservationId :: !Text - , _rOwnerId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Reservation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rGroups' - [EC2-Classic only] One or more security groups. --- --- * 'rInstances' - One or more instances. --- --- * 'rRequesterId' - The ID of the requester that launched the instances on your behalf (for example, AWS Management Console or Auto Scaling). --- --- * 'rReservationId' - The ID of the reservation. --- --- * 'rOwnerId' - The ID of the AWS account that owns the reservation. -reservation - :: Text -- ^ 'rReservationId' - -> Text -- ^ 'rOwnerId' - -> Reservation -reservation pReservationId_ pOwnerId_ = - Reservation' - { _rGroups = Nothing - , _rInstances = Nothing - , _rRequesterId = Nothing - , _rReservationId = pReservationId_ - , _rOwnerId = pOwnerId_ - } - - --- | [EC2-Classic only] One or more security groups. -rGroups :: Lens' Reservation [GroupIdentifier] -rGroups = lens _rGroups (\ s a -> s{_rGroups = a}) . _Default . _Coerce; - --- | One or more instances. -rInstances :: Lens' Reservation [Instance] -rInstances = lens _rInstances (\ s a -> s{_rInstances = a}) . _Default . _Coerce; - --- | The ID of the requester that launched the instances on your behalf (for example, AWS Management Console or Auto Scaling). -rRequesterId :: Lens' Reservation (Maybe Text) -rRequesterId = lens _rRequesterId (\ s a -> s{_rRequesterId = a}); - --- | The ID of the reservation. -rReservationId :: Lens' Reservation Text -rReservationId = lens _rReservationId (\ s a -> s{_rReservationId = a}); - --- | The ID of the AWS account that owns the reservation. -rOwnerId :: Lens' Reservation Text -rOwnerId = lens _rOwnerId (\ s a -> s{_rOwnerId = a}); - -instance FromXML Reservation where - parseXML x - = Reservation' <$> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "instancesSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "requesterId") - <*> (x .@ "reservationId") - <*> (x .@ "ownerId") - -instance Hashable Reservation where - -instance NFData Reservation where - --- | The cost associated with the Reserved Instance. --- --- --- --- /See:/ 'reservationValue' smart constructor. -data ReservationValue = ReservationValue' - { _rvHourlyPrice :: !(Maybe Text) - , _rvRemainingTotalValue :: !(Maybe Text) - , _rvRemainingUpfrontValue :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservationValue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rvHourlyPrice' - The hourly rate of the reservation. --- --- * 'rvRemainingTotalValue' - The balance of the total value (the sum of remainingUpfrontValue + hourlyPrice * number of hours remaining). --- --- * 'rvRemainingUpfrontValue' - The remaining upfront cost of the reservation. -reservationValue - :: ReservationValue -reservationValue = - ReservationValue' - { _rvHourlyPrice = Nothing - , _rvRemainingTotalValue = Nothing - , _rvRemainingUpfrontValue = Nothing - } - - --- | The hourly rate of the reservation. -rvHourlyPrice :: Lens' ReservationValue (Maybe Text) -rvHourlyPrice = lens _rvHourlyPrice (\ s a -> s{_rvHourlyPrice = a}); - --- | The balance of the total value (the sum of remainingUpfrontValue + hourlyPrice * number of hours remaining). -rvRemainingTotalValue :: Lens' ReservationValue (Maybe Text) -rvRemainingTotalValue = lens _rvRemainingTotalValue (\ s a -> s{_rvRemainingTotalValue = a}); - --- | The remaining upfront cost of the reservation. -rvRemainingUpfrontValue :: Lens' ReservationValue (Maybe Text) -rvRemainingUpfrontValue = lens _rvRemainingUpfrontValue (\ s a -> s{_rvRemainingUpfrontValue = a}); - -instance FromXML ReservationValue where - parseXML x - = ReservationValue' <$> - (x .@? "hourlyPrice") <*> - (x .@? "remainingTotalValue") - <*> (x .@? "remainingUpfrontValue") - -instance Hashable ReservationValue where - -instance NFData ReservationValue where - --- | Describes the limit price of a Reserved Instance offering. --- --- --- --- /See:/ 'reservedInstanceLimitPrice' smart constructor. -data ReservedInstanceLimitPrice = ReservedInstanceLimitPrice' - { _rilpAmount :: !(Maybe Double) - , _rilpCurrencyCode :: !(Maybe CurrencyCodeValues) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstanceLimitPrice' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rilpAmount' - Used for Reserved Instance Marketplace offerings. Specifies the limit price on the total order (instanceCount * price). --- --- * 'rilpCurrencyCode' - The currency in which the @limitPrice@ amount is specified. At this time, the only supported currency is @USD@ . -reservedInstanceLimitPrice - :: ReservedInstanceLimitPrice -reservedInstanceLimitPrice = - ReservedInstanceLimitPrice' - {_rilpAmount = Nothing, _rilpCurrencyCode = Nothing} - - --- | Used for Reserved Instance Marketplace offerings. Specifies the limit price on the total order (instanceCount * price). -rilpAmount :: Lens' ReservedInstanceLimitPrice (Maybe Double) -rilpAmount = lens _rilpAmount (\ s a -> s{_rilpAmount = a}); - --- | The currency in which the @limitPrice@ amount is specified. At this time, the only supported currency is @USD@ . -rilpCurrencyCode :: Lens' ReservedInstanceLimitPrice (Maybe CurrencyCodeValues) -rilpCurrencyCode = lens _rilpCurrencyCode (\ s a -> s{_rilpCurrencyCode = a}); - -instance Hashable ReservedInstanceLimitPrice where - -instance NFData ReservedInstanceLimitPrice where - -instance ToQuery ReservedInstanceLimitPrice where - toQuery ReservedInstanceLimitPrice'{..} - = mconcat - ["Amount" =: _rilpAmount, - "CurrencyCode" =: _rilpCurrencyCode] - --- | The total value of the Convertible Reserved Instance. --- --- --- --- /See:/ 'reservedInstanceReservationValue' smart constructor. -data ReservedInstanceReservationValue = ReservedInstanceReservationValue' - { _rirvReservationValue :: !(Maybe ReservationValue) - , _rirvReservedInstanceId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstanceReservationValue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rirvReservationValue' - The total value of the Convertible Reserved Instance that you are exchanging. --- --- * 'rirvReservedInstanceId' - The ID of the Convertible Reserved Instance that you are exchanging. -reservedInstanceReservationValue - :: ReservedInstanceReservationValue -reservedInstanceReservationValue = - ReservedInstanceReservationValue' - {_rirvReservationValue = Nothing, _rirvReservedInstanceId = Nothing} - - --- | The total value of the Convertible Reserved Instance that you are exchanging. -rirvReservationValue :: Lens' ReservedInstanceReservationValue (Maybe ReservationValue) -rirvReservationValue = lens _rirvReservationValue (\ s a -> s{_rirvReservationValue = a}); - --- | The ID of the Convertible Reserved Instance that you are exchanging. -rirvReservedInstanceId :: Lens' ReservedInstanceReservationValue (Maybe Text) -rirvReservedInstanceId = lens _rirvReservedInstanceId (\ s a -> s{_rirvReservedInstanceId = a}); - -instance FromXML ReservedInstanceReservationValue - where - parseXML x - = ReservedInstanceReservationValue' <$> - (x .@? "reservationValue") <*> - (x .@? "reservedInstanceId") - -instance Hashable ReservedInstanceReservationValue - where - -instance NFData ReservedInstanceReservationValue - where - --- | Describes a Reserved Instance. --- --- --- --- /See:/ 'reservedInstances' smart constructor. -data ReservedInstances = ReservedInstances' - { _riState :: !(Maybe ReservedInstanceState) - , _riCurrencyCode :: !(Maybe CurrencyCodeValues) - , _riInstanceCount :: !(Maybe Int) - , _riProductDescription :: !(Maybe RIProductDescription) - , _riStart :: !(Maybe ISO8601) - , _riInstanceType :: !(Maybe InstanceType) - , _riEnd :: !(Maybe ISO8601) - , _riAvailabilityZone :: !(Maybe Text) - , _riScope :: !(Maybe Scope) - , _riRecurringCharges :: !(Maybe [RecurringCharge]) - , _riOfferingType :: !(Maybe OfferingTypeValues) - , _riUsagePrice :: !(Maybe Double) - , _riFixedPrice :: !(Maybe Double) - , _riReservedInstancesId :: !(Maybe Text) - , _riInstanceTenancy :: !(Maybe Tenancy) - , _riOfferingClass :: !(Maybe OfferingClassType) - , _riDuration :: !(Maybe Integer) - , _riTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstances' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'riState' - The state of the Reserved Instance purchase. --- --- * 'riCurrencyCode' - The currency of the Reserved Instance. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . --- --- * 'riInstanceCount' - The number of reservations purchased. --- --- * 'riProductDescription' - The Reserved Instance product platform description. --- --- * 'riStart' - The date and time the Reserved Instance started. --- --- * 'riInstanceType' - The instance type on which the Reserved Instance can be used. --- --- * 'riEnd' - The time when the Reserved Instance expires. --- --- * 'riAvailabilityZone' - The Availability Zone in which the Reserved Instance can be used. --- --- * 'riScope' - The scope of the Reserved Instance. --- --- * 'riRecurringCharges' - The recurring charge tag assigned to the resource. --- --- * 'riOfferingType' - The Reserved Instance offering type. --- --- * 'riUsagePrice' - The usage price of the Reserved Instance, per hour. --- --- * 'riFixedPrice' - The purchase price of the Reserved Instance. --- --- * 'riReservedInstancesId' - The ID of the Reserved Instance. --- --- * 'riInstanceTenancy' - The tenancy of the instance. --- --- * 'riOfferingClass' - The offering class of the Reserved Instance. --- --- * 'riDuration' - The duration of the Reserved Instance, in seconds. --- --- * 'riTags' - Any tags assigned to the resource. -reservedInstances - :: ReservedInstances -reservedInstances = - ReservedInstances' - { _riState = Nothing - , _riCurrencyCode = Nothing - , _riInstanceCount = Nothing - , _riProductDescription = Nothing - , _riStart = Nothing - , _riInstanceType = Nothing - , _riEnd = Nothing - , _riAvailabilityZone = Nothing - , _riScope = Nothing - , _riRecurringCharges = Nothing - , _riOfferingType = Nothing - , _riUsagePrice = Nothing - , _riFixedPrice = Nothing - , _riReservedInstancesId = Nothing - , _riInstanceTenancy = Nothing - , _riOfferingClass = Nothing - , _riDuration = Nothing - , _riTags = Nothing - } - - --- | The state of the Reserved Instance purchase. -riState :: Lens' ReservedInstances (Maybe ReservedInstanceState) -riState = lens _riState (\ s a -> s{_riState = a}); - --- | The currency of the Reserved Instance. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . -riCurrencyCode :: Lens' ReservedInstances (Maybe CurrencyCodeValues) -riCurrencyCode = lens _riCurrencyCode (\ s a -> s{_riCurrencyCode = a}); - --- | The number of reservations purchased. -riInstanceCount :: Lens' ReservedInstances (Maybe Int) -riInstanceCount = lens _riInstanceCount (\ s a -> s{_riInstanceCount = a}); - --- | The Reserved Instance product platform description. -riProductDescription :: Lens' ReservedInstances (Maybe RIProductDescription) -riProductDescription = lens _riProductDescription (\ s a -> s{_riProductDescription = a}); - --- | The date and time the Reserved Instance started. -riStart :: Lens' ReservedInstances (Maybe UTCTime) -riStart = lens _riStart (\ s a -> s{_riStart = a}) . mapping _Time; - --- | The instance type on which the Reserved Instance can be used. -riInstanceType :: Lens' ReservedInstances (Maybe InstanceType) -riInstanceType = lens _riInstanceType (\ s a -> s{_riInstanceType = a}); - --- | The time when the Reserved Instance expires. -riEnd :: Lens' ReservedInstances (Maybe UTCTime) -riEnd = lens _riEnd (\ s a -> s{_riEnd = a}) . mapping _Time; - --- | The Availability Zone in which the Reserved Instance can be used. -riAvailabilityZone :: Lens' ReservedInstances (Maybe Text) -riAvailabilityZone = lens _riAvailabilityZone (\ s a -> s{_riAvailabilityZone = a}); - --- | The scope of the Reserved Instance. -riScope :: Lens' ReservedInstances (Maybe Scope) -riScope = lens _riScope (\ s a -> s{_riScope = a}); - --- | The recurring charge tag assigned to the resource. -riRecurringCharges :: Lens' ReservedInstances [RecurringCharge] -riRecurringCharges = lens _riRecurringCharges (\ s a -> s{_riRecurringCharges = a}) . _Default . _Coerce; - --- | The Reserved Instance offering type. -riOfferingType :: Lens' ReservedInstances (Maybe OfferingTypeValues) -riOfferingType = lens _riOfferingType (\ s a -> s{_riOfferingType = a}); - --- | The usage price of the Reserved Instance, per hour. -riUsagePrice :: Lens' ReservedInstances (Maybe Double) -riUsagePrice = lens _riUsagePrice (\ s a -> s{_riUsagePrice = a}); - --- | The purchase price of the Reserved Instance. -riFixedPrice :: Lens' ReservedInstances (Maybe Double) -riFixedPrice = lens _riFixedPrice (\ s a -> s{_riFixedPrice = a}); - --- | The ID of the Reserved Instance. -riReservedInstancesId :: Lens' ReservedInstances (Maybe Text) -riReservedInstancesId = lens _riReservedInstancesId (\ s a -> s{_riReservedInstancesId = a}); - --- | The tenancy of the instance. -riInstanceTenancy :: Lens' ReservedInstances (Maybe Tenancy) -riInstanceTenancy = lens _riInstanceTenancy (\ s a -> s{_riInstanceTenancy = a}); - --- | The offering class of the Reserved Instance. -riOfferingClass :: Lens' ReservedInstances (Maybe OfferingClassType) -riOfferingClass = lens _riOfferingClass (\ s a -> s{_riOfferingClass = a}); - --- | The duration of the Reserved Instance, in seconds. -riDuration :: Lens' ReservedInstances (Maybe Integer) -riDuration = lens _riDuration (\ s a -> s{_riDuration = a}); - --- | Any tags assigned to the resource. -riTags :: Lens' ReservedInstances [Tag] -riTags = lens _riTags (\ s a -> s{_riTags = a}) . _Default . _Coerce; - -instance FromXML ReservedInstances where - parseXML x - = ReservedInstances' <$> - (x .@? "state") <*> (x .@? "currencyCode") <*> - (x .@? "instanceCount") - <*> (x .@? "productDescription") - <*> (x .@? "start") - <*> (x .@? "instanceType") - <*> (x .@? "end") - <*> (x .@? "availabilityZone") - <*> (x .@? "scope") - <*> - (x .@? "recurringCharges" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "offeringType") - <*> (x .@? "usagePrice") - <*> (x .@? "fixedPrice") - <*> (x .@? "reservedInstancesId") - <*> (x .@? "instanceTenancy") - <*> (x .@? "offeringClass") - <*> (x .@? "duration") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable ReservedInstances where - -instance NFData ReservedInstances where - --- | Describes the configuration settings for the modified Reserved Instances. --- --- --- --- /See:/ 'reservedInstancesConfiguration' smart constructor. -data ReservedInstancesConfiguration = ReservedInstancesConfiguration' - { _ricPlatform :: !(Maybe Text) - , _ricInstanceCount :: !(Maybe Int) - , _ricInstanceType :: !(Maybe InstanceType) - , _ricAvailabilityZone :: !(Maybe Text) - , _ricScope :: !(Maybe Scope) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstancesConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ricPlatform' - The network platform of the modified Reserved Instances, which is either EC2-Classic or EC2-VPC. --- --- * 'ricInstanceCount' - The number of modified Reserved Instances. --- --- * 'ricInstanceType' - The instance type for the modified Reserved Instances. --- --- * 'ricAvailabilityZone' - The Availability Zone for the modified Reserved Instances. --- --- * 'ricScope' - Whether the Reserved Instance is applied to instances in a region or instances in a specific Availability Zone. -reservedInstancesConfiguration - :: ReservedInstancesConfiguration -reservedInstancesConfiguration = - ReservedInstancesConfiguration' - { _ricPlatform = Nothing - , _ricInstanceCount = Nothing - , _ricInstanceType = Nothing - , _ricAvailabilityZone = Nothing - , _ricScope = Nothing - } - - --- | The network platform of the modified Reserved Instances, which is either EC2-Classic or EC2-VPC. -ricPlatform :: Lens' ReservedInstancesConfiguration (Maybe Text) -ricPlatform = lens _ricPlatform (\ s a -> s{_ricPlatform = a}); - --- | The number of modified Reserved Instances. -ricInstanceCount :: Lens' ReservedInstancesConfiguration (Maybe Int) -ricInstanceCount = lens _ricInstanceCount (\ s a -> s{_ricInstanceCount = a}); - --- | The instance type for the modified Reserved Instances. -ricInstanceType :: Lens' ReservedInstancesConfiguration (Maybe InstanceType) -ricInstanceType = lens _ricInstanceType (\ s a -> s{_ricInstanceType = a}); - --- | The Availability Zone for the modified Reserved Instances. -ricAvailabilityZone :: Lens' ReservedInstancesConfiguration (Maybe Text) -ricAvailabilityZone = lens _ricAvailabilityZone (\ s a -> s{_ricAvailabilityZone = a}); - --- | Whether the Reserved Instance is applied to instances in a region or instances in a specific Availability Zone. -ricScope :: Lens' ReservedInstancesConfiguration (Maybe Scope) -ricScope = lens _ricScope (\ s a -> s{_ricScope = a}); - -instance FromXML ReservedInstancesConfiguration where - parseXML x - = ReservedInstancesConfiguration' <$> - (x .@? "platform") <*> (x .@? "instanceCount") <*> - (x .@? "instanceType") - <*> (x .@? "availabilityZone") - <*> (x .@? "scope") - -instance Hashable ReservedInstancesConfiguration - where - -instance NFData ReservedInstancesConfiguration where - -instance ToQuery ReservedInstancesConfiguration where - toQuery ReservedInstancesConfiguration'{..} - = mconcat - ["Platform" =: _ricPlatform, - "InstanceCount" =: _ricInstanceCount, - "InstanceType" =: _ricInstanceType, - "AvailabilityZone" =: _ricAvailabilityZone, - "Scope" =: _ricScope] - --- | Describes the ID of a Reserved Instance. --- --- --- --- /See:/ 'reservedInstancesId' smart constructor. -newtype ReservedInstancesId = ReservedInstancesId' - { _riiReservedInstancesId :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstancesId' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'riiReservedInstancesId' - The ID of the Reserved Instance. -reservedInstancesId - :: ReservedInstancesId -reservedInstancesId = ReservedInstancesId' {_riiReservedInstancesId = Nothing} - - --- | The ID of the Reserved Instance. -riiReservedInstancesId :: Lens' ReservedInstancesId (Maybe Text) -riiReservedInstancesId = lens _riiReservedInstancesId (\ s a -> s{_riiReservedInstancesId = a}); - -instance FromXML ReservedInstancesId where - parseXML x - = ReservedInstancesId' <$> - (x .@? "reservedInstancesId") - -instance Hashable ReservedInstancesId where - -instance NFData ReservedInstancesId where - --- | Describes a Reserved Instance listing. --- --- --- --- /See:/ 'reservedInstancesListing' smart constructor. -data ReservedInstancesListing = ReservedInstancesListing' - { _rilStatus :: !(Maybe ListingStatus) - , _rilClientToken :: !(Maybe Text) - , _rilUpdateDate :: !(Maybe ISO8601) - , _rilCreateDate :: !(Maybe ISO8601) - , _rilPriceSchedules :: !(Maybe [PriceSchedule]) - , _rilStatusMessage :: !(Maybe Text) - , _rilReservedInstancesId :: !(Maybe Text) - , _rilTags :: !(Maybe [Tag]) - , _rilInstanceCounts :: !(Maybe [InstanceCount]) - , _rilReservedInstancesListingId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstancesListing' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rilStatus' - The status of the Reserved Instance listing. --- --- * 'rilClientToken' - A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . --- --- * 'rilUpdateDate' - The last modified timestamp of the listing. --- --- * 'rilCreateDate' - The time the listing was created. --- --- * 'rilPriceSchedules' - The price of the Reserved Instance listing. --- --- * 'rilStatusMessage' - The reason for the current status of the Reserved Instance listing. The response can be blank. --- --- * 'rilReservedInstancesId' - The ID of the Reserved Instance. --- --- * 'rilTags' - Any tags assigned to the resource. --- --- * 'rilInstanceCounts' - The number of instances in this state. --- --- * 'rilReservedInstancesListingId' - The ID of the Reserved Instance listing. -reservedInstancesListing - :: ReservedInstancesListing -reservedInstancesListing = - ReservedInstancesListing' - { _rilStatus = Nothing - , _rilClientToken = Nothing - , _rilUpdateDate = Nothing - , _rilCreateDate = Nothing - , _rilPriceSchedules = Nothing - , _rilStatusMessage = Nothing - , _rilReservedInstancesId = Nothing - , _rilTags = Nothing - , _rilInstanceCounts = Nothing - , _rilReservedInstancesListingId = Nothing - } - - --- | The status of the Reserved Instance listing. -rilStatus :: Lens' ReservedInstancesListing (Maybe ListingStatus) -rilStatus = lens _rilStatus (\ s a -> s{_rilStatus = a}); - --- | A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . -rilClientToken :: Lens' ReservedInstancesListing (Maybe Text) -rilClientToken = lens _rilClientToken (\ s a -> s{_rilClientToken = a}); - --- | The last modified timestamp of the listing. -rilUpdateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) -rilUpdateDate = lens _rilUpdateDate (\ s a -> s{_rilUpdateDate = a}) . mapping _Time; - --- | The time the listing was created. -rilCreateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) -rilCreateDate = lens _rilCreateDate (\ s a -> s{_rilCreateDate = a}) . mapping _Time; - --- | The price of the Reserved Instance listing. -rilPriceSchedules :: Lens' ReservedInstancesListing [PriceSchedule] -rilPriceSchedules = lens _rilPriceSchedules (\ s a -> s{_rilPriceSchedules = a}) . _Default . _Coerce; - --- | The reason for the current status of the Reserved Instance listing. The response can be blank. -rilStatusMessage :: Lens' ReservedInstancesListing (Maybe Text) -rilStatusMessage = lens _rilStatusMessage (\ s a -> s{_rilStatusMessage = a}); - --- | The ID of the Reserved Instance. -rilReservedInstancesId :: Lens' ReservedInstancesListing (Maybe Text) -rilReservedInstancesId = lens _rilReservedInstancesId (\ s a -> s{_rilReservedInstancesId = a}); - --- | Any tags assigned to the resource. -rilTags :: Lens' ReservedInstancesListing [Tag] -rilTags = lens _rilTags (\ s a -> s{_rilTags = a}) . _Default . _Coerce; - --- | The number of instances in this state. -rilInstanceCounts :: Lens' ReservedInstancesListing [InstanceCount] -rilInstanceCounts = lens _rilInstanceCounts (\ s a -> s{_rilInstanceCounts = a}) . _Default . _Coerce; - --- | The ID of the Reserved Instance listing. -rilReservedInstancesListingId :: Lens' ReservedInstancesListing (Maybe Text) -rilReservedInstancesListingId = lens _rilReservedInstancesListingId (\ s a -> s{_rilReservedInstancesListingId = a}); - -instance FromXML ReservedInstancesListing where - parseXML x - = ReservedInstancesListing' <$> - (x .@? "status") <*> (x .@? "clientToken") <*> - (x .@? "updateDate") - <*> (x .@? "createDate") - <*> - (x .@? "priceSchedules" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "statusMessage") - <*> (x .@? "reservedInstancesId") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "instanceCounts" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "reservedInstancesListingId") - -instance Hashable ReservedInstancesListing where - -instance NFData ReservedInstancesListing where - --- | Describes a Reserved Instance modification. --- --- --- --- /See:/ 'reservedInstancesModification' smart constructor. -data ReservedInstancesModification = ReservedInstancesModification' - { _rimModificationResults :: !(Maybe [ReservedInstancesModificationResult]) - , _rimStatus :: !(Maybe Text) - , _rimClientToken :: !(Maybe Text) - , _rimUpdateDate :: !(Maybe ISO8601) - , _rimCreateDate :: !(Maybe ISO8601) - , _rimEffectiveDate :: !(Maybe ISO8601) - , _rimStatusMessage :: !(Maybe Text) - , _rimReservedInstancesModificationId :: !(Maybe Text) - , _rimReservedInstancesIds :: !(Maybe [ReservedInstancesId]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstancesModification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rimModificationResults' - Contains target configurations along with their corresponding new Reserved Instance IDs. --- --- * 'rimStatus' - The status of the Reserved Instances modification request. --- --- * 'rimClientToken' - A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . --- --- * 'rimUpdateDate' - The time when the modification request was last updated. --- --- * 'rimCreateDate' - The time when the modification request was created. --- --- * 'rimEffectiveDate' - The time for the modification to become effective. --- --- * 'rimStatusMessage' - The reason for the status. --- --- * 'rimReservedInstancesModificationId' - A unique ID for the Reserved Instance modification. --- --- * 'rimReservedInstancesIds' - The IDs of one or more Reserved Instances. -reservedInstancesModification - :: ReservedInstancesModification -reservedInstancesModification = - ReservedInstancesModification' - { _rimModificationResults = Nothing - , _rimStatus = Nothing - , _rimClientToken = Nothing - , _rimUpdateDate = Nothing - , _rimCreateDate = Nothing - , _rimEffectiveDate = Nothing - , _rimStatusMessage = Nothing - , _rimReservedInstancesModificationId = Nothing - , _rimReservedInstancesIds = Nothing - } - - --- | Contains target configurations along with their corresponding new Reserved Instance IDs. -rimModificationResults :: Lens' ReservedInstancesModification [ReservedInstancesModificationResult] -rimModificationResults = lens _rimModificationResults (\ s a -> s{_rimModificationResults = a}) . _Default . _Coerce; - --- | The status of the Reserved Instances modification request. -rimStatus :: Lens' ReservedInstancesModification (Maybe Text) -rimStatus = lens _rimStatus (\ s a -> s{_rimStatus = a}); - --- | A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . -rimClientToken :: Lens' ReservedInstancesModification (Maybe Text) -rimClientToken = lens _rimClientToken (\ s a -> s{_rimClientToken = a}); - --- | The time when the modification request was last updated. -rimUpdateDate :: Lens' ReservedInstancesModification (Maybe UTCTime) -rimUpdateDate = lens _rimUpdateDate (\ s a -> s{_rimUpdateDate = a}) . mapping _Time; - --- | The time when the modification request was created. -rimCreateDate :: Lens' ReservedInstancesModification (Maybe UTCTime) -rimCreateDate = lens _rimCreateDate (\ s a -> s{_rimCreateDate = a}) . mapping _Time; - --- | The time for the modification to become effective. -rimEffectiveDate :: Lens' ReservedInstancesModification (Maybe UTCTime) -rimEffectiveDate = lens _rimEffectiveDate (\ s a -> s{_rimEffectiveDate = a}) . mapping _Time; - --- | The reason for the status. -rimStatusMessage :: Lens' ReservedInstancesModification (Maybe Text) -rimStatusMessage = lens _rimStatusMessage (\ s a -> s{_rimStatusMessage = a}); - --- | A unique ID for the Reserved Instance modification. -rimReservedInstancesModificationId :: Lens' ReservedInstancesModification (Maybe Text) -rimReservedInstancesModificationId = lens _rimReservedInstancesModificationId (\ s a -> s{_rimReservedInstancesModificationId = a}); - --- | The IDs of one or more Reserved Instances. -rimReservedInstancesIds :: Lens' ReservedInstancesModification [ReservedInstancesId] -rimReservedInstancesIds = lens _rimReservedInstancesIds (\ s a -> s{_rimReservedInstancesIds = a}) . _Default . _Coerce; - -instance FromXML ReservedInstancesModification where - parseXML x - = ReservedInstancesModification' <$> - (x .@? "modificationResultSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "status") - <*> (x .@? "clientToken") - <*> (x .@? "updateDate") - <*> (x .@? "createDate") - <*> (x .@? "effectiveDate") - <*> (x .@? "statusMessage") - <*> (x .@? "reservedInstancesModificationId") - <*> - (x .@? "reservedInstancesSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable ReservedInstancesModification where - -instance NFData ReservedInstancesModification where - --- | Describes the modification request/s. --- --- --- --- /See:/ 'reservedInstancesModificationResult' smart constructor. -data ReservedInstancesModificationResult = ReservedInstancesModificationResult' - { _rimrReservedInstancesId :: !(Maybe Text) - , _rimrTargetConfiguration :: !(Maybe ReservedInstancesConfiguration) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstancesModificationResult' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rimrReservedInstancesId' - The ID for the Reserved Instances that were created as part of the modification request. This field is only available when the modification is fulfilled. --- --- * 'rimrTargetConfiguration' - The target Reserved Instances configurations supplied as part of the modification request. -reservedInstancesModificationResult - :: ReservedInstancesModificationResult -reservedInstancesModificationResult = - ReservedInstancesModificationResult' - {_rimrReservedInstancesId = Nothing, _rimrTargetConfiguration = Nothing} - - --- | The ID for the Reserved Instances that were created as part of the modification request. This field is only available when the modification is fulfilled. -rimrReservedInstancesId :: Lens' ReservedInstancesModificationResult (Maybe Text) -rimrReservedInstancesId = lens _rimrReservedInstancesId (\ s a -> s{_rimrReservedInstancesId = a}); - --- | The target Reserved Instances configurations supplied as part of the modification request. -rimrTargetConfiguration :: Lens' ReservedInstancesModificationResult (Maybe ReservedInstancesConfiguration) -rimrTargetConfiguration = lens _rimrTargetConfiguration (\ s a -> s{_rimrTargetConfiguration = a}); - -instance FromXML ReservedInstancesModificationResult - where - parseXML x - = ReservedInstancesModificationResult' <$> - (x .@? "reservedInstancesId") <*> - (x .@? "targetConfiguration") - -instance Hashable ReservedInstancesModificationResult - where - -instance NFData ReservedInstancesModificationResult - where - --- | Describes a Reserved Instance offering. --- --- --- --- /See:/ 'reservedInstancesOffering' smart constructor. -data ReservedInstancesOffering = ReservedInstancesOffering' - { _rioMarketplace :: !(Maybe Bool) - , _rioCurrencyCode :: !(Maybe CurrencyCodeValues) - , _rioProductDescription :: !(Maybe RIProductDescription) - , _rioInstanceType :: !(Maybe InstanceType) - , _rioAvailabilityZone :: !(Maybe Text) - , _rioPricingDetails :: !(Maybe [PricingDetail]) - , _rioScope :: !(Maybe Scope) - , _rioRecurringCharges :: !(Maybe [RecurringCharge]) - , _rioOfferingType :: !(Maybe OfferingTypeValues) - , _rioUsagePrice :: !(Maybe Double) - , _rioFixedPrice :: !(Maybe Double) - , _rioInstanceTenancy :: !(Maybe Tenancy) - , _rioReservedInstancesOfferingId :: !(Maybe Text) - , _rioOfferingClass :: !(Maybe OfferingClassType) - , _rioDuration :: !(Maybe Integer) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ReservedInstancesOffering' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rioMarketplace' - Indicates whether the offering is available through the Reserved Instance Marketplace (resale) or AWS. If it's a Reserved Instance Marketplace offering, this is @true@ . --- --- * 'rioCurrencyCode' - The currency of the Reserved Instance offering you are purchasing. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . --- --- * 'rioProductDescription' - The Reserved Instance product platform description. --- --- * 'rioInstanceType' - The instance type on which the Reserved Instance can be used. --- --- * 'rioAvailabilityZone' - The Availability Zone in which the Reserved Instance can be used. --- --- * 'rioPricingDetails' - The pricing details of the Reserved Instance offering. --- --- * 'rioScope' - Whether the Reserved Instance is applied to instances in a region or an Availability Zone. --- --- * 'rioRecurringCharges' - The recurring charge tag assigned to the resource. --- --- * 'rioOfferingType' - The Reserved Instance offering type. --- --- * 'rioUsagePrice' - The usage price of the Reserved Instance, per hour. --- --- * 'rioFixedPrice' - The purchase price of the Reserved Instance. --- --- * 'rioInstanceTenancy' - The tenancy of the instance. --- --- * 'rioReservedInstancesOfferingId' - The ID of the Reserved Instance offering. This is the offering ID used in 'GetReservedInstancesExchangeQuote' to confirm that an exchange can be made. --- --- * 'rioOfferingClass' - If @convertible@ it can be exchanged for Reserved Instances of the same or higher monetary value, with different configurations. If @standard@ , it is not possible to perform an exchange. --- --- * 'rioDuration' - The duration of the Reserved Instance, in seconds. -reservedInstancesOffering - :: ReservedInstancesOffering -reservedInstancesOffering = - ReservedInstancesOffering' - { _rioMarketplace = Nothing - , _rioCurrencyCode = Nothing - , _rioProductDescription = Nothing - , _rioInstanceType = Nothing - , _rioAvailabilityZone = Nothing - , _rioPricingDetails = Nothing - , _rioScope = Nothing - , _rioRecurringCharges = Nothing - , _rioOfferingType = Nothing - , _rioUsagePrice = Nothing - , _rioFixedPrice = Nothing - , _rioInstanceTenancy = Nothing - , _rioReservedInstancesOfferingId = Nothing - , _rioOfferingClass = Nothing - , _rioDuration = Nothing - } - - --- | Indicates whether the offering is available through the Reserved Instance Marketplace (resale) or AWS. If it's a Reserved Instance Marketplace offering, this is @true@ . -rioMarketplace :: Lens' ReservedInstancesOffering (Maybe Bool) -rioMarketplace = lens _rioMarketplace (\ s a -> s{_rioMarketplace = a}); - --- | The currency of the Reserved Instance offering you are purchasing. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . -rioCurrencyCode :: Lens' ReservedInstancesOffering (Maybe CurrencyCodeValues) -rioCurrencyCode = lens _rioCurrencyCode (\ s a -> s{_rioCurrencyCode = a}); - --- | The Reserved Instance product platform description. -rioProductDescription :: Lens' ReservedInstancesOffering (Maybe RIProductDescription) -rioProductDescription = lens _rioProductDescription (\ s a -> s{_rioProductDescription = a}); - --- | The instance type on which the Reserved Instance can be used. -rioInstanceType :: Lens' ReservedInstancesOffering (Maybe InstanceType) -rioInstanceType = lens _rioInstanceType (\ s a -> s{_rioInstanceType = a}); - --- | The Availability Zone in which the Reserved Instance can be used. -rioAvailabilityZone :: Lens' ReservedInstancesOffering (Maybe Text) -rioAvailabilityZone = lens _rioAvailabilityZone (\ s a -> s{_rioAvailabilityZone = a}); - --- | The pricing details of the Reserved Instance offering. -rioPricingDetails :: Lens' ReservedInstancesOffering [PricingDetail] -rioPricingDetails = lens _rioPricingDetails (\ s a -> s{_rioPricingDetails = a}) . _Default . _Coerce; - --- | Whether the Reserved Instance is applied to instances in a region or an Availability Zone. -rioScope :: Lens' ReservedInstancesOffering (Maybe Scope) -rioScope = lens _rioScope (\ s a -> s{_rioScope = a}); - --- | The recurring charge tag assigned to the resource. -rioRecurringCharges :: Lens' ReservedInstancesOffering [RecurringCharge] -rioRecurringCharges = lens _rioRecurringCharges (\ s a -> s{_rioRecurringCharges = a}) . _Default . _Coerce; - --- | The Reserved Instance offering type. -rioOfferingType :: Lens' ReservedInstancesOffering (Maybe OfferingTypeValues) -rioOfferingType = lens _rioOfferingType (\ s a -> s{_rioOfferingType = a}); - --- | The usage price of the Reserved Instance, per hour. -rioUsagePrice :: Lens' ReservedInstancesOffering (Maybe Double) -rioUsagePrice = lens _rioUsagePrice (\ s a -> s{_rioUsagePrice = a}); - --- | The purchase price of the Reserved Instance. -rioFixedPrice :: Lens' ReservedInstancesOffering (Maybe Double) -rioFixedPrice = lens _rioFixedPrice (\ s a -> s{_rioFixedPrice = a}); - --- | The tenancy of the instance. -rioInstanceTenancy :: Lens' ReservedInstancesOffering (Maybe Tenancy) -rioInstanceTenancy = lens _rioInstanceTenancy (\ s a -> s{_rioInstanceTenancy = a}); - --- | The ID of the Reserved Instance offering. This is the offering ID used in 'GetReservedInstancesExchangeQuote' to confirm that an exchange can be made. -rioReservedInstancesOfferingId :: Lens' ReservedInstancesOffering (Maybe Text) -rioReservedInstancesOfferingId = lens _rioReservedInstancesOfferingId (\ s a -> s{_rioReservedInstancesOfferingId = a}); - --- | If @convertible@ it can be exchanged for Reserved Instances of the same or higher monetary value, with different configurations. If @standard@ , it is not possible to perform an exchange. -rioOfferingClass :: Lens' ReservedInstancesOffering (Maybe OfferingClassType) -rioOfferingClass = lens _rioOfferingClass (\ s a -> s{_rioOfferingClass = a}); - --- | The duration of the Reserved Instance, in seconds. -rioDuration :: Lens' ReservedInstancesOffering (Maybe Integer) -rioDuration = lens _rioDuration (\ s a -> s{_rioDuration = a}); - -instance FromXML ReservedInstancesOffering where - parseXML x - = ReservedInstancesOffering' <$> - (x .@? "marketplace") <*> (x .@? "currencyCode") <*> - (x .@? "productDescription") - <*> (x .@? "instanceType") - <*> (x .@? "availabilityZone") - <*> - (x .@? "pricingDetailsSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "scope") - <*> - (x .@? "recurringCharges" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "offeringType") - <*> (x .@? "usagePrice") - <*> (x .@? "fixedPrice") - <*> (x .@? "instanceTenancy") - <*> (x .@? "reservedInstancesOfferingId") - <*> (x .@? "offeringClass") - <*> (x .@? "duration") - -instance Hashable ReservedInstancesOffering where - -instance NFData ReservedInstancesOffering where - --- | Describes a route in a route table. --- --- --- --- /See:/ 'route' smart constructor. -data Route = Route' - { _rVPCPeeringConnectionId :: !(Maybe Text) - , _rInstanceId :: !(Maybe Text) - , _rOrigin :: !(Maybe RouteOrigin) - , _rState :: !(Maybe RouteState) - , _rEgressOnlyInternetGatewayId :: !(Maybe Text) - , _rDestinationIPv6CidrBlock :: !(Maybe Text) - , _rNatGatewayId :: !(Maybe Text) - , _rNetworkInterfaceId :: !(Maybe Text) - , _rGatewayId :: !(Maybe Text) - , _rInstanceOwnerId :: !(Maybe Text) - , _rDestinationPrefixListId :: !(Maybe Text) - , _rDestinationCidrBlock :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Route' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rVPCPeeringConnectionId' - The ID of the VPC peering connection. --- --- * 'rInstanceId' - The ID of a NAT instance in your VPC. --- --- * 'rOrigin' - Describes how the route was created. * @CreateRouteTable@ - The route was automatically created when the route table was created. * @CreateRoute@ - The route was manually added to the route table. * @EnableVgwRoutePropagation@ - The route was propagated by route propagation. --- --- * 'rState' - The state of the route. The @blackhole@ state indicates that the route's target isn't available (for example, the specified gateway isn't attached to the VPC, or the specified NAT instance has been terminated). --- --- * 'rEgressOnlyInternetGatewayId' - The ID of the egress-only Internet gateway. --- --- * 'rDestinationIPv6CidrBlock' - The IPv6 CIDR block used for the destination match. --- --- * 'rNatGatewayId' - The ID of a NAT gateway. --- --- * 'rNetworkInterfaceId' - The ID of the network interface. --- --- * 'rGatewayId' - The ID of a gateway attached to your VPC. --- --- * 'rInstanceOwnerId' - The AWS account ID of the owner of the instance. --- --- * 'rDestinationPrefixListId' - The prefix of the AWS service. --- --- * 'rDestinationCidrBlock' - The IPv4 CIDR block used for the destination match. -route - :: Route -route = - Route' - { _rVPCPeeringConnectionId = Nothing - , _rInstanceId = Nothing - , _rOrigin = Nothing - , _rState = Nothing - , _rEgressOnlyInternetGatewayId = Nothing - , _rDestinationIPv6CidrBlock = Nothing - , _rNatGatewayId = Nothing - , _rNetworkInterfaceId = Nothing - , _rGatewayId = Nothing - , _rInstanceOwnerId = Nothing - , _rDestinationPrefixListId = Nothing - , _rDestinationCidrBlock = Nothing - } - - --- | The ID of the VPC peering connection. -rVPCPeeringConnectionId :: Lens' Route (Maybe Text) -rVPCPeeringConnectionId = lens _rVPCPeeringConnectionId (\ s a -> s{_rVPCPeeringConnectionId = a}); - --- | The ID of a NAT instance in your VPC. -rInstanceId :: Lens' Route (Maybe Text) -rInstanceId = lens _rInstanceId (\ s a -> s{_rInstanceId = a}); - --- | Describes how the route was created. * @CreateRouteTable@ - The route was automatically created when the route table was created. * @CreateRoute@ - The route was manually added to the route table. * @EnableVgwRoutePropagation@ - The route was propagated by route propagation. -rOrigin :: Lens' Route (Maybe RouteOrigin) -rOrigin = lens _rOrigin (\ s a -> s{_rOrigin = a}); - --- | The state of the route. The @blackhole@ state indicates that the route's target isn't available (for example, the specified gateway isn't attached to the VPC, or the specified NAT instance has been terminated). -rState :: Lens' Route (Maybe RouteState) -rState = lens _rState (\ s a -> s{_rState = a}); - --- | The ID of the egress-only Internet gateway. -rEgressOnlyInternetGatewayId :: Lens' Route (Maybe Text) -rEgressOnlyInternetGatewayId = lens _rEgressOnlyInternetGatewayId (\ s a -> s{_rEgressOnlyInternetGatewayId = a}); - --- | The IPv6 CIDR block used for the destination match. -rDestinationIPv6CidrBlock :: Lens' Route (Maybe Text) -rDestinationIPv6CidrBlock = lens _rDestinationIPv6CidrBlock (\ s a -> s{_rDestinationIPv6CidrBlock = a}); - --- | The ID of a NAT gateway. -rNatGatewayId :: Lens' Route (Maybe Text) -rNatGatewayId = lens _rNatGatewayId (\ s a -> s{_rNatGatewayId = a}); - --- | The ID of the network interface. -rNetworkInterfaceId :: Lens' Route (Maybe Text) -rNetworkInterfaceId = lens _rNetworkInterfaceId (\ s a -> s{_rNetworkInterfaceId = a}); - --- | The ID of a gateway attached to your VPC. -rGatewayId :: Lens' Route (Maybe Text) -rGatewayId = lens _rGatewayId (\ s a -> s{_rGatewayId = a}); - --- | The AWS account ID of the owner of the instance. -rInstanceOwnerId :: Lens' Route (Maybe Text) -rInstanceOwnerId = lens _rInstanceOwnerId (\ s a -> s{_rInstanceOwnerId = a}); - --- | The prefix of the AWS service. -rDestinationPrefixListId :: Lens' Route (Maybe Text) -rDestinationPrefixListId = lens _rDestinationPrefixListId (\ s a -> s{_rDestinationPrefixListId = a}); - --- | The IPv4 CIDR block used for the destination match. -rDestinationCidrBlock :: Lens' Route (Maybe Text) -rDestinationCidrBlock = lens _rDestinationCidrBlock (\ s a -> s{_rDestinationCidrBlock = a}); - -instance FromXML Route where - parseXML x - = Route' <$> - (x .@? "vpcPeeringConnectionId") <*> - (x .@? "instanceId") - <*> (x .@? "origin") - <*> (x .@? "state") - <*> (x .@? "egressOnlyInternetGatewayId") - <*> (x .@? "destinationIpv6CidrBlock") - <*> (x .@? "natGatewayId") - <*> (x .@? "networkInterfaceId") - <*> (x .@? "gatewayId") - <*> (x .@? "instanceOwnerId") - <*> (x .@? "destinationPrefixListId") - <*> (x .@? "destinationCidrBlock") - -instance Hashable Route where - -instance NFData Route where - --- | Describes a route table. --- --- --- --- /See:/ 'routeTable' smart constructor. -data RouteTable = RouteTable' - { _rtRouteTableId :: !(Maybe Text) - , _rtRoutes :: !(Maybe [Route]) - , _rtVPCId :: !(Maybe Text) - , _rtPropagatingVGWs :: !(Maybe [PropagatingVGW]) - , _rtAssociations :: !(Maybe [RouteTableAssociation]) - , _rtTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RouteTable' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rtRouteTableId' - The ID of the route table. --- --- * 'rtRoutes' - The routes in the route table. --- --- * 'rtVPCId' - The ID of the VPC. --- --- * 'rtPropagatingVGWs' - Any virtual private gateway (VGW) propagating routes. --- --- * 'rtAssociations' - The associations between the route table and one or more subnets. --- --- * 'rtTags' - Any tags assigned to the route table. -routeTable - :: RouteTable -routeTable = - RouteTable' - { _rtRouteTableId = Nothing - , _rtRoutes = Nothing - , _rtVPCId = Nothing - , _rtPropagatingVGWs = Nothing - , _rtAssociations = Nothing - , _rtTags = Nothing - } - - --- | The ID of the route table. -rtRouteTableId :: Lens' RouteTable (Maybe Text) -rtRouteTableId = lens _rtRouteTableId (\ s a -> s{_rtRouteTableId = a}); - --- | The routes in the route table. -rtRoutes :: Lens' RouteTable [Route] -rtRoutes = lens _rtRoutes (\ s a -> s{_rtRoutes = a}) . _Default . _Coerce; - --- | The ID of the VPC. -rtVPCId :: Lens' RouteTable (Maybe Text) -rtVPCId = lens _rtVPCId (\ s a -> s{_rtVPCId = a}); - --- | Any virtual private gateway (VGW) propagating routes. -rtPropagatingVGWs :: Lens' RouteTable [PropagatingVGW] -rtPropagatingVGWs = lens _rtPropagatingVGWs (\ s a -> s{_rtPropagatingVGWs = a}) . _Default . _Coerce; - --- | The associations between the route table and one or more subnets. -rtAssociations :: Lens' RouteTable [RouteTableAssociation] -rtAssociations = lens _rtAssociations (\ s a -> s{_rtAssociations = a}) . _Default . _Coerce; - --- | Any tags assigned to the route table. -rtTags :: Lens' RouteTable [Tag] -rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . _Default . _Coerce; - -instance FromXML RouteTable where - parseXML x - = RouteTable' <$> - (x .@? "routeTableId") <*> - (x .@? "routeSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpcId") - <*> - (x .@? "propagatingVgwSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "associationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable RouteTable where - -instance NFData RouteTable where - --- | Describes an association between a route table and a subnet. --- --- --- --- /See:/ 'routeTableAssociation' smart constructor. -data RouteTableAssociation = RouteTableAssociation' - { _rtaRouteTableId :: !(Maybe Text) - , _rtaRouteTableAssociationId :: !(Maybe Text) - , _rtaMain :: !(Maybe Bool) - , _rtaSubnetId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RouteTableAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rtaRouteTableId' - The ID of the route table. --- --- * 'rtaRouteTableAssociationId' - The ID of the association between a route table and a subnet. --- --- * 'rtaMain' - Indicates whether this is the main route table. --- --- * 'rtaSubnetId' - The ID of the subnet. A subnet ID is not returned for an implicit association. -routeTableAssociation - :: RouteTableAssociation -routeTableAssociation = - RouteTableAssociation' - { _rtaRouteTableId = Nothing - , _rtaRouteTableAssociationId = Nothing - , _rtaMain = Nothing - , _rtaSubnetId = Nothing - } - - --- | The ID of the route table. -rtaRouteTableId :: Lens' RouteTableAssociation (Maybe Text) -rtaRouteTableId = lens _rtaRouteTableId (\ s a -> s{_rtaRouteTableId = a}); - --- | The ID of the association between a route table and a subnet. -rtaRouteTableAssociationId :: Lens' RouteTableAssociation (Maybe Text) -rtaRouteTableAssociationId = lens _rtaRouteTableAssociationId (\ s a -> s{_rtaRouteTableAssociationId = a}); - --- | Indicates whether this is the main route table. -rtaMain :: Lens' RouteTableAssociation (Maybe Bool) -rtaMain = lens _rtaMain (\ s a -> s{_rtaMain = a}); - --- | The ID of the subnet. A subnet ID is not returned for an implicit association. -rtaSubnetId :: Lens' RouteTableAssociation (Maybe Text) -rtaSubnetId = lens _rtaSubnetId (\ s a -> s{_rtaSubnetId = a}); - -instance FromXML RouteTableAssociation where - parseXML x - = RouteTableAssociation' <$> - (x .@? "routeTableId") <*> - (x .@? "routeTableAssociationId") - <*> (x .@? "main") - <*> (x .@? "subnetId") - -instance Hashable RouteTableAssociation where - -instance NFData RouteTableAssociation where - --- | Describes the monitoring of an instance. --- --- --- --- /See:/ 'runInstancesMonitoringEnabled' smart constructor. -newtype RunInstancesMonitoringEnabled = RunInstancesMonitoringEnabled' - { _rimeEnabled :: Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'RunInstancesMonitoringEnabled' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'rimeEnabled' - Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. -runInstancesMonitoringEnabled - :: Bool -- ^ 'rimeEnabled' - -> RunInstancesMonitoringEnabled -runInstancesMonitoringEnabled pEnabled_ = - RunInstancesMonitoringEnabled' {_rimeEnabled = pEnabled_} - - --- | Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. -rimeEnabled :: Lens' RunInstancesMonitoringEnabled Bool -rimeEnabled = lens _rimeEnabled (\ s a -> s{_rimeEnabled = a}); - -instance FromXML RunInstancesMonitoringEnabled where - parseXML x - = RunInstancesMonitoringEnabled' <$> (x .@ "enabled") - -instance Hashable RunInstancesMonitoringEnabled where - -instance NFData RunInstancesMonitoringEnabled where - -instance ToQuery RunInstancesMonitoringEnabled where - toQuery RunInstancesMonitoringEnabled'{..} - = mconcat ["Enabled" =: _rimeEnabled] - --- | Describes the storage parameters for S3 and S3 buckets for an instance store-backed AMI. --- --- --- --- /See:/ 's3Storage' smart constructor. -data S3Storage = S3Storage' - { _ssPrefix :: !(Maybe Text) - , _ssUploadPolicy :: !(Maybe Base64) - , _ssBucket :: !(Maybe Text) - , _ssUploadPolicySignature :: !(Maybe Text) - , _ssAWSAccessKeyId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'S3Storage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssPrefix' - The beginning of the file name of the AMI. --- --- * 'ssUploadPolicy' - An Amazon S3 upload policy that gives Amazon EC2 permission to upload items into Amazon S3 on your behalf.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. --- --- * 'ssBucket' - The bucket in which to store the AMI. You can specify a bucket that you already own or a new bucket that Amazon EC2 creates on your behalf. If you specify a bucket that belongs to someone else, Amazon EC2 returns an error. --- --- * 'ssUploadPolicySignature' - The signature of the JSON document. --- --- * 'ssAWSAccessKeyId' - The access key ID of the owner of the bucket. Before you specify a value for your access key ID, review and follow the guidance in . -s3Storage - :: S3Storage -s3Storage = - S3Storage' - { _ssPrefix = Nothing - , _ssUploadPolicy = Nothing - , _ssBucket = Nothing - , _ssUploadPolicySignature = Nothing - , _ssAWSAccessKeyId = Nothing - } - - --- | The beginning of the file name of the AMI. -ssPrefix :: Lens' S3Storage (Maybe Text) -ssPrefix = lens _ssPrefix (\ s a -> s{_ssPrefix = a}); - --- | An Amazon S3 upload policy that gives Amazon EC2 permission to upload items into Amazon S3 on your behalf.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. -ssUploadPolicy :: Lens' S3Storage (Maybe ByteString) -ssUploadPolicy = lens _ssUploadPolicy (\ s a -> s{_ssUploadPolicy = a}) . mapping _Base64; - --- | The bucket in which to store the AMI. You can specify a bucket that you already own or a new bucket that Amazon EC2 creates on your behalf. If you specify a bucket that belongs to someone else, Amazon EC2 returns an error. -ssBucket :: Lens' S3Storage (Maybe Text) -ssBucket = lens _ssBucket (\ s a -> s{_ssBucket = a}); - --- | The signature of the JSON document. -ssUploadPolicySignature :: Lens' S3Storage (Maybe Text) -ssUploadPolicySignature = lens _ssUploadPolicySignature (\ s a -> s{_ssUploadPolicySignature = a}); - --- | The access key ID of the owner of the bucket. Before you specify a value for your access key ID, review and follow the guidance in . -ssAWSAccessKeyId :: Lens' S3Storage (Maybe Text) -ssAWSAccessKeyId = lens _ssAWSAccessKeyId (\ s a -> s{_ssAWSAccessKeyId = a}); - -instance FromXML S3Storage where - parseXML x - = S3Storage' <$> - (x .@? "prefix") <*> (x .@? "uploadPolicy") <*> - (x .@? "bucket") - <*> (x .@? "uploadPolicySignature") - <*> (x .@? "AWSAccessKeyId") - -instance Hashable S3Storage where - -instance NFData S3Storage where - -instance ToQuery S3Storage where - toQuery S3Storage'{..} - = mconcat - ["Prefix" =: _ssPrefix, - "UploadPolicy" =: _ssUploadPolicy, - "Bucket" =: _ssBucket, - "UploadPolicySignature" =: _ssUploadPolicySignature, - "AWSAccessKeyId" =: _ssAWSAccessKeyId] - --- | Describes a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstance' smart constructor. -data ScheduledInstance = ScheduledInstance' - { _siPreviousSlotEndTime :: !(Maybe ISO8601) - , _siPlatform :: !(Maybe Text) - , _siTermStartDate :: !(Maybe ISO8601) - , _siInstanceCount :: !(Maybe Int) - , _siScheduledInstanceId :: !(Maybe Text) - , _siHourlyPrice :: !(Maybe Text) - , _siCreateDate :: !(Maybe ISO8601) - , _siSlotDurationInHours :: !(Maybe Int) - , _siTotalScheduledInstanceHours :: !(Maybe Int) - , _siInstanceType :: !(Maybe Text) - , _siRecurrence :: !(Maybe ScheduledInstanceRecurrence) - , _siAvailabilityZone :: !(Maybe Text) - , _siTermEndDate :: !(Maybe ISO8601) - , _siNextSlotStartTime :: !(Maybe ISO8601) - , _siNetworkPlatform :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstance' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'siPreviousSlotEndTime' - The time that the previous schedule ended or will end. --- --- * 'siPlatform' - The platform (@Linux/UNIX@ or @Windows@ ). --- --- * 'siTermStartDate' - The start date for the Scheduled Instance. --- --- * 'siInstanceCount' - The number of instances. --- --- * 'siScheduledInstanceId' - The Scheduled Instance ID. --- --- * 'siHourlyPrice' - The hourly price for a single instance. --- --- * 'siCreateDate' - The date when the Scheduled Instance was purchased. --- --- * 'siSlotDurationInHours' - The number of hours in the schedule. --- --- * 'siTotalScheduledInstanceHours' - The total number of hours for a single instance for the entire term. --- --- * 'siInstanceType' - The instance type. --- --- * 'siRecurrence' - The schedule recurrence. --- --- * 'siAvailabilityZone' - The Availability Zone. --- --- * 'siTermEndDate' - The end date for the Scheduled Instance. --- --- * 'siNextSlotStartTime' - The time for the next schedule to start. --- --- * 'siNetworkPlatform' - The network platform (@EC2-Classic@ or @EC2-VPC@ ). -scheduledInstance - :: ScheduledInstance -scheduledInstance = - ScheduledInstance' - { _siPreviousSlotEndTime = Nothing - , _siPlatform = Nothing - , _siTermStartDate = Nothing - , _siInstanceCount = Nothing - , _siScheduledInstanceId = Nothing - , _siHourlyPrice = Nothing - , _siCreateDate = Nothing - , _siSlotDurationInHours = Nothing - , _siTotalScheduledInstanceHours = Nothing - , _siInstanceType = Nothing - , _siRecurrence = Nothing - , _siAvailabilityZone = Nothing - , _siTermEndDate = Nothing - , _siNextSlotStartTime = Nothing - , _siNetworkPlatform = Nothing - } - - --- | The time that the previous schedule ended or will end. -siPreviousSlotEndTime :: Lens' ScheduledInstance (Maybe UTCTime) -siPreviousSlotEndTime = lens _siPreviousSlotEndTime (\ s a -> s{_siPreviousSlotEndTime = a}) . mapping _Time; - --- | The platform (@Linux/UNIX@ or @Windows@ ). -siPlatform :: Lens' ScheduledInstance (Maybe Text) -siPlatform = lens _siPlatform (\ s a -> s{_siPlatform = a}); - --- | The start date for the Scheduled Instance. -siTermStartDate :: Lens' ScheduledInstance (Maybe UTCTime) -siTermStartDate = lens _siTermStartDate (\ s a -> s{_siTermStartDate = a}) . mapping _Time; - --- | The number of instances. -siInstanceCount :: Lens' ScheduledInstance (Maybe Int) -siInstanceCount = lens _siInstanceCount (\ s a -> s{_siInstanceCount = a}); - --- | The Scheduled Instance ID. -siScheduledInstanceId :: Lens' ScheduledInstance (Maybe Text) -siScheduledInstanceId = lens _siScheduledInstanceId (\ s a -> s{_siScheduledInstanceId = a}); - --- | The hourly price for a single instance. -siHourlyPrice :: Lens' ScheduledInstance (Maybe Text) -siHourlyPrice = lens _siHourlyPrice (\ s a -> s{_siHourlyPrice = a}); - --- | The date when the Scheduled Instance was purchased. -siCreateDate :: Lens' ScheduledInstance (Maybe UTCTime) -siCreateDate = lens _siCreateDate (\ s a -> s{_siCreateDate = a}) . mapping _Time; - --- | The number of hours in the schedule. -siSlotDurationInHours :: Lens' ScheduledInstance (Maybe Int) -siSlotDurationInHours = lens _siSlotDurationInHours (\ s a -> s{_siSlotDurationInHours = a}); - --- | The total number of hours for a single instance for the entire term. -siTotalScheduledInstanceHours :: Lens' ScheduledInstance (Maybe Int) -siTotalScheduledInstanceHours = lens _siTotalScheduledInstanceHours (\ s a -> s{_siTotalScheduledInstanceHours = a}); - --- | The instance type. -siInstanceType :: Lens' ScheduledInstance (Maybe Text) -siInstanceType = lens _siInstanceType (\ s a -> s{_siInstanceType = a}); - --- | The schedule recurrence. -siRecurrence :: Lens' ScheduledInstance (Maybe ScheduledInstanceRecurrence) -siRecurrence = lens _siRecurrence (\ s a -> s{_siRecurrence = a}); - --- | The Availability Zone. -siAvailabilityZone :: Lens' ScheduledInstance (Maybe Text) -siAvailabilityZone = lens _siAvailabilityZone (\ s a -> s{_siAvailabilityZone = a}); - --- | The end date for the Scheduled Instance. -siTermEndDate :: Lens' ScheduledInstance (Maybe UTCTime) -siTermEndDate = lens _siTermEndDate (\ s a -> s{_siTermEndDate = a}) . mapping _Time; - --- | The time for the next schedule to start. -siNextSlotStartTime :: Lens' ScheduledInstance (Maybe UTCTime) -siNextSlotStartTime = lens _siNextSlotStartTime (\ s a -> s{_siNextSlotStartTime = a}) . mapping _Time; - --- | The network platform (@EC2-Classic@ or @EC2-VPC@ ). -siNetworkPlatform :: Lens' ScheduledInstance (Maybe Text) -siNetworkPlatform = lens _siNetworkPlatform (\ s a -> s{_siNetworkPlatform = a}); - -instance FromXML ScheduledInstance where - parseXML x - = ScheduledInstance' <$> - (x .@? "previousSlotEndTime") <*> (x .@? "platform") - <*> (x .@? "termStartDate") - <*> (x .@? "instanceCount") - <*> (x .@? "scheduledInstanceId") - <*> (x .@? "hourlyPrice") - <*> (x .@? "createDate") - <*> (x .@? "slotDurationInHours") - <*> (x .@? "totalScheduledInstanceHours") - <*> (x .@? "instanceType") - <*> (x .@? "recurrence") - <*> (x .@? "availabilityZone") - <*> (x .@? "termEndDate") - <*> (x .@? "nextSlotStartTime") - <*> (x .@? "networkPlatform") - -instance Hashable ScheduledInstance where - -instance NFData ScheduledInstance where - --- | Describes a schedule that is available for your Scheduled Instances. --- --- --- --- /See:/ 'scheduledInstanceAvailability' smart constructor. -data ScheduledInstanceAvailability = ScheduledInstanceAvailability' - { _siaMaxTermDurationInDays :: !(Maybe Int) - , _siaPlatform :: !(Maybe Text) - , _siaPurchaseToken :: !(Maybe Text) - , _siaHourlyPrice :: !(Maybe Text) - , _siaAvailableInstanceCount :: !(Maybe Int) - , _siaSlotDurationInHours :: !(Maybe Int) - , _siaTotalScheduledInstanceHours :: !(Maybe Int) - , _siaInstanceType :: !(Maybe Text) - , _siaRecurrence :: !(Maybe ScheduledInstanceRecurrence) - , _siaAvailabilityZone :: !(Maybe Text) - , _siaMinTermDurationInDays :: !(Maybe Int) - , _siaFirstSlotStartTime :: !(Maybe ISO8601) - , _siaNetworkPlatform :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstanceAvailability' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'siaMaxTermDurationInDays' - The maximum term. The only possible value is 365 days. --- --- * 'siaPlatform' - The platform (@Linux/UNIX@ or @Windows@ ). --- --- * 'siaPurchaseToken' - The purchase token. This token expires in two hours. --- --- * 'siaHourlyPrice' - The hourly price for a single instance. --- --- * 'siaAvailableInstanceCount' - The number of available instances. --- --- * 'siaSlotDurationInHours' - The number of hours in the schedule. --- --- * 'siaTotalScheduledInstanceHours' - The total number of hours for a single instance for the entire term. --- --- * 'siaInstanceType' - The instance type. You can specify one of the C3, C4, M4, or R3 instance types. --- --- * 'siaRecurrence' - The schedule recurrence. --- --- * 'siaAvailabilityZone' - The Availability Zone. --- --- * 'siaMinTermDurationInDays' - The minimum term. The only possible value is 365 days. --- --- * 'siaFirstSlotStartTime' - The time period for the first schedule to start. --- --- * 'siaNetworkPlatform' - The network platform (@EC2-Classic@ or @EC2-VPC@ ). -scheduledInstanceAvailability - :: ScheduledInstanceAvailability -scheduledInstanceAvailability = - ScheduledInstanceAvailability' - { _siaMaxTermDurationInDays = Nothing - , _siaPlatform = Nothing - , _siaPurchaseToken = Nothing - , _siaHourlyPrice = Nothing - , _siaAvailableInstanceCount = Nothing - , _siaSlotDurationInHours = Nothing - , _siaTotalScheduledInstanceHours = Nothing - , _siaInstanceType = Nothing - , _siaRecurrence = Nothing - , _siaAvailabilityZone = Nothing - , _siaMinTermDurationInDays = Nothing - , _siaFirstSlotStartTime = Nothing - , _siaNetworkPlatform = Nothing - } - - --- | The maximum term. The only possible value is 365 days. -siaMaxTermDurationInDays :: Lens' ScheduledInstanceAvailability (Maybe Int) -siaMaxTermDurationInDays = lens _siaMaxTermDurationInDays (\ s a -> s{_siaMaxTermDurationInDays = a}); - --- | The platform (@Linux/UNIX@ or @Windows@ ). -siaPlatform :: Lens' ScheduledInstanceAvailability (Maybe Text) -siaPlatform = lens _siaPlatform (\ s a -> s{_siaPlatform = a}); - --- | The purchase token. This token expires in two hours. -siaPurchaseToken :: Lens' ScheduledInstanceAvailability (Maybe Text) -siaPurchaseToken = lens _siaPurchaseToken (\ s a -> s{_siaPurchaseToken = a}); - --- | The hourly price for a single instance. -siaHourlyPrice :: Lens' ScheduledInstanceAvailability (Maybe Text) -siaHourlyPrice = lens _siaHourlyPrice (\ s a -> s{_siaHourlyPrice = a}); - --- | The number of available instances. -siaAvailableInstanceCount :: Lens' ScheduledInstanceAvailability (Maybe Int) -siaAvailableInstanceCount = lens _siaAvailableInstanceCount (\ s a -> s{_siaAvailableInstanceCount = a}); - --- | The number of hours in the schedule. -siaSlotDurationInHours :: Lens' ScheduledInstanceAvailability (Maybe Int) -siaSlotDurationInHours = lens _siaSlotDurationInHours (\ s a -> s{_siaSlotDurationInHours = a}); - --- | The total number of hours for a single instance for the entire term. -siaTotalScheduledInstanceHours :: Lens' ScheduledInstanceAvailability (Maybe Int) -siaTotalScheduledInstanceHours = lens _siaTotalScheduledInstanceHours (\ s a -> s{_siaTotalScheduledInstanceHours = a}); - --- | The instance type. You can specify one of the C3, C4, M4, or R3 instance types. -siaInstanceType :: Lens' ScheduledInstanceAvailability (Maybe Text) -siaInstanceType = lens _siaInstanceType (\ s a -> s{_siaInstanceType = a}); - --- | The schedule recurrence. -siaRecurrence :: Lens' ScheduledInstanceAvailability (Maybe ScheduledInstanceRecurrence) -siaRecurrence = lens _siaRecurrence (\ s a -> s{_siaRecurrence = a}); - --- | The Availability Zone. -siaAvailabilityZone :: Lens' ScheduledInstanceAvailability (Maybe Text) -siaAvailabilityZone = lens _siaAvailabilityZone (\ s a -> s{_siaAvailabilityZone = a}); - --- | The minimum term. The only possible value is 365 days. -siaMinTermDurationInDays :: Lens' ScheduledInstanceAvailability (Maybe Int) -siaMinTermDurationInDays = lens _siaMinTermDurationInDays (\ s a -> s{_siaMinTermDurationInDays = a}); - --- | The time period for the first schedule to start. -siaFirstSlotStartTime :: Lens' ScheduledInstanceAvailability (Maybe UTCTime) -siaFirstSlotStartTime = lens _siaFirstSlotStartTime (\ s a -> s{_siaFirstSlotStartTime = a}) . mapping _Time; - --- | The network platform (@EC2-Classic@ or @EC2-VPC@ ). -siaNetworkPlatform :: Lens' ScheduledInstanceAvailability (Maybe Text) -siaNetworkPlatform = lens _siaNetworkPlatform (\ s a -> s{_siaNetworkPlatform = a}); - -instance FromXML ScheduledInstanceAvailability where - parseXML x - = ScheduledInstanceAvailability' <$> - (x .@? "maxTermDurationInDays") <*> - (x .@? "platform") - <*> (x .@? "purchaseToken") - <*> (x .@? "hourlyPrice") - <*> (x .@? "availableInstanceCount") - <*> (x .@? "slotDurationInHours") - <*> (x .@? "totalScheduledInstanceHours") - <*> (x .@? "instanceType") - <*> (x .@? "recurrence") - <*> (x .@? "availabilityZone") - <*> (x .@? "minTermDurationInDays") - <*> (x .@? "firstSlotStartTime") - <*> (x .@? "networkPlatform") - -instance Hashable ScheduledInstanceAvailability where - -instance NFData ScheduledInstanceAvailability where - --- | Describes the recurring schedule for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstanceRecurrence' smart constructor. -data ScheduledInstanceRecurrence = ScheduledInstanceRecurrence' - { _sirFrequency :: !(Maybe Text) - , _sirOccurrenceRelativeToEnd :: !(Maybe Bool) - , _sirOccurrenceUnit :: !(Maybe Text) - , _sirInterval :: !(Maybe Int) - , _sirOccurrenceDaySet :: !(Maybe [Int]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstanceRecurrence' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sirFrequency' - The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). --- --- * 'sirOccurrenceRelativeToEnd' - Indicates whether the occurrence is relative to the end of the specified week or month. --- --- * 'sirOccurrenceUnit' - The unit for @occurrenceDaySet@ (@DayOfWeek@ or @DayOfMonth@ ). --- --- * 'sirInterval' - The interval quantity. The interval unit depends on the value of @frequency@ . For example, every 2 weeks or every 2 months. --- --- * 'sirOccurrenceDaySet' - The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). -scheduledInstanceRecurrence - :: ScheduledInstanceRecurrence -scheduledInstanceRecurrence = - ScheduledInstanceRecurrence' - { _sirFrequency = Nothing - , _sirOccurrenceRelativeToEnd = Nothing - , _sirOccurrenceUnit = Nothing - , _sirInterval = Nothing - , _sirOccurrenceDaySet = Nothing - } - - --- | The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). -sirFrequency :: Lens' ScheduledInstanceRecurrence (Maybe Text) -sirFrequency = lens _sirFrequency (\ s a -> s{_sirFrequency = a}); - --- | Indicates whether the occurrence is relative to the end of the specified week or month. -sirOccurrenceRelativeToEnd :: Lens' ScheduledInstanceRecurrence (Maybe Bool) -sirOccurrenceRelativeToEnd = lens _sirOccurrenceRelativeToEnd (\ s a -> s{_sirOccurrenceRelativeToEnd = a}); - --- | The unit for @occurrenceDaySet@ (@DayOfWeek@ or @DayOfMonth@ ). -sirOccurrenceUnit :: Lens' ScheduledInstanceRecurrence (Maybe Text) -sirOccurrenceUnit = lens _sirOccurrenceUnit (\ s a -> s{_sirOccurrenceUnit = a}); - --- | The interval quantity. The interval unit depends on the value of @frequency@ . For example, every 2 weeks or every 2 months. -sirInterval :: Lens' ScheduledInstanceRecurrence (Maybe Int) -sirInterval = lens _sirInterval (\ s a -> s{_sirInterval = a}); - --- | The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). -sirOccurrenceDaySet :: Lens' ScheduledInstanceRecurrence [Int] -sirOccurrenceDaySet = lens _sirOccurrenceDaySet (\ s a -> s{_sirOccurrenceDaySet = a}) . _Default . _Coerce; - -instance FromXML ScheduledInstanceRecurrence where - parseXML x - = ScheduledInstanceRecurrence' <$> - (x .@? "frequency") <*> - (x .@? "occurrenceRelativeToEnd") - <*> (x .@? "occurrenceUnit") - <*> (x .@? "interval") - <*> - (x .@? "occurrenceDaySet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable ScheduledInstanceRecurrence where - -instance NFData ScheduledInstanceRecurrence where - --- | Describes the recurring schedule for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstanceRecurrenceRequest' smart constructor. -data ScheduledInstanceRecurrenceRequest = ScheduledInstanceRecurrenceRequest' - { _sirrFrequency :: !(Maybe Text) - , _sirrOccurrenceRelativeToEnd :: !(Maybe Bool) - , _sirrOccurrenceDays :: !(Maybe [Int]) - , _sirrOccurrenceUnit :: !(Maybe Text) - , _sirrInterval :: !(Maybe Int) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstanceRecurrenceRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sirrFrequency' - The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). --- --- * 'sirrOccurrenceRelativeToEnd' - Indicates whether the occurrence is relative to the end of the specified week or month. You can't specify this value with a daily schedule. --- --- * 'sirrOccurrenceDays' - The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). You can't specify this value with a daily schedule. If the occurrence is relative to the end of the month, you can specify only a single day. --- --- * 'sirrOccurrenceUnit' - The unit for @OccurrenceDays@ (@DayOfWeek@ or @DayOfMonth@ ). This value is required for a monthly schedule. You can't specify @DayOfWeek@ with a weekly schedule. You can't specify this value with a daily schedule. --- --- * 'sirrInterval' - The interval quantity. The interval unit depends on the value of @Frequency@ . For example, every 2 weeks or every 2 months. -scheduledInstanceRecurrenceRequest - :: ScheduledInstanceRecurrenceRequest -scheduledInstanceRecurrenceRequest = - ScheduledInstanceRecurrenceRequest' - { _sirrFrequency = Nothing - , _sirrOccurrenceRelativeToEnd = Nothing - , _sirrOccurrenceDays = Nothing - , _sirrOccurrenceUnit = Nothing - , _sirrInterval = Nothing - } - - --- | The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). -sirrFrequency :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Text) -sirrFrequency = lens _sirrFrequency (\ s a -> s{_sirrFrequency = a}); - --- | Indicates whether the occurrence is relative to the end of the specified week or month. You can't specify this value with a daily schedule. -sirrOccurrenceRelativeToEnd :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Bool) -sirrOccurrenceRelativeToEnd = lens _sirrOccurrenceRelativeToEnd (\ s a -> s{_sirrOccurrenceRelativeToEnd = a}); - --- | The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). You can't specify this value with a daily schedule. If the occurrence is relative to the end of the month, you can specify only a single day. -sirrOccurrenceDays :: Lens' ScheduledInstanceRecurrenceRequest [Int] -sirrOccurrenceDays = lens _sirrOccurrenceDays (\ s a -> s{_sirrOccurrenceDays = a}) . _Default . _Coerce; - --- | The unit for @OccurrenceDays@ (@DayOfWeek@ or @DayOfMonth@ ). This value is required for a monthly schedule. You can't specify @DayOfWeek@ with a weekly schedule. You can't specify this value with a daily schedule. -sirrOccurrenceUnit :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Text) -sirrOccurrenceUnit = lens _sirrOccurrenceUnit (\ s a -> s{_sirrOccurrenceUnit = a}); - --- | The interval quantity. The interval unit depends on the value of @Frequency@ . For example, every 2 weeks or every 2 months. -sirrInterval :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Int) -sirrInterval = lens _sirrInterval (\ s a -> s{_sirrInterval = a}); - -instance Hashable ScheduledInstanceRecurrenceRequest - where - -instance NFData ScheduledInstanceRecurrenceRequest - where - -instance ToQuery ScheduledInstanceRecurrenceRequest - where - toQuery ScheduledInstanceRecurrenceRequest'{..} - = mconcat - ["Frequency" =: _sirrFrequency, - "OccurrenceRelativeToEnd" =: - _sirrOccurrenceRelativeToEnd, - toQuery - (toQueryList "OccurrenceDay" <$> - _sirrOccurrenceDays), - "OccurrenceUnit" =: _sirrOccurrenceUnit, - "Interval" =: _sirrInterval] - --- | Describes a block device mapping for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstancesBlockDeviceMapping' smart constructor. -data ScheduledInstancesBlockDeviceMapping = ScheduledInstancesBlockDeviceMapping' - { _sibdmVirtualName :: !(Maybe Text) - , _sibdmNoDevice :: !(Maybe Text) - , _sibdmEBS :: !(Maybe ScheduledInstancesEBS) - , _sibdmDeviceName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesBlockDeviceMapping' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sibdmVirtualName' - The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with two available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ . The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. --- --- * 'sibdmNoDevice' - Suppresses the specified device included in the block device mapping of the AMI. --- --- * 'sibdmEBS' - Parameters used to set up EBS volumes automatically when the instance is launched. --- --- * 'sibdmDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). -scheduledInstancesBlockDeviceMapping - :: ScheduledInstancesBlockDeviceMapping -scheduledInstancesBlockDeviceMapping = - ScheduledInstancesBlockDeviceMapping' - { _sibdmVirtualName = Nothing - , _sibdmNoDevice = Nothing - , _sibdmEBS = Nothing - , _sibdmDeviceName = Nothing - } - - --- | The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with two available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ . The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. -sibdmVirtualName :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe Text) -sibdmVirtualName = lens _sibdmVirtualName (\ s a -> s{_sibdmVirtualName = a}); - --- | Suppresses the specified device included in the block device mapping of the AMI. -sibdmNoDevice :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe Text) -sibdmNoDevice = lens _sibdmNoDevice (\ s a -> s{_sibdmNoDevice = a}); - --- | Parameters used to set up EBS volumes automatically when the instance is launched. -sibdmEBS :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe ScheduledInstancesEBS) -sibdmEBS = lens _sibdmEBS (\ s a -> s{_sibdmEBS = a}); - --- | The device name (for example, @/dev/sdh@ or @xvdh@ ). -sibdmDeviceName :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe Text) -sibdmDeviceName = lens _sibdmDeviceName (\ s a -> s{_sibdmDeviceName = a}); - -instance Hashable - ScheduledInstancesBlockDeviceMapping - where - -instance NFData ScheduledInstancesBlockDeviceMapping - where - -instance ToQuery ScheduledInstancesBlockDeviceMapping - where - toQuery ScheduledInstancesBlockDeviceMapping'{..} - = mconcat - ["VirtualName" =: _sibdmVirtualName, - "NoDevice" =: _sibdmNoDevice, "Ebs" =: _sibdmEBS, - "DeviceName" =: _sibdmDeviceName] - --- | Describes an EBS volume for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstancesEBS' smart constructor. -data ScheduledInstancesEBS = ScheduledInstancesEBS' - { _sieDeleteOnTermination :: !(Maybe Bool) - , _sieVolumeSize :: !(Maybe Int) - , _sieIOPS :: !(Maybe Int) - , _sieEncrypted :: !(Maybe Bool) - , _sieVolumeType :: !(Maybe Text) - , _sieSnapshotId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesEBS' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sieDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. --- --- * 'sieVolumeSize' - The size of the volume, in GiB. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. --- --- * 'sieIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For io1 volumes, this represents the number of IOPS that are provisioned for the volume. For @gp2@ volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about @gp2@ baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. --- --- * 'sieEncrypted' - Indicates whether the volume is encrypted. You can attached encrypted volumes only to instances that support them. --- --- * 'sieVolumeType' - The volume type. @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, Throughput Optimized HDD for @st1@ , Cold HDD for @sc1@ , or @standard@ for Magnetic. Default: @standard@ --- --- * 'sieSnapshotId' - The ID of the snapshot. -scheduledInstancesEBS - :: ScheduledInstancesEBS -scheduledInstancesEBS = - ScheduledInstancesEBS' - { _sieDeleteOnTermination = Nothing - , _sieVolumeSize = Nothing - , _sieIOPS = Nothing - , _sieEncrypted = Nothing - , _sieVolumeType = Nothing - , _sieSnapshotId = Nothing - } - - --- | Indicates whether the volume is deleted on instance termination. -sieDeleteOnTermination :: Lens' ScheduledInstancesEBS (Maybe Bool) -sieDeleteOnTermination = lens _sieDeleteOnTermination (\ s a -> s{_sieDeleteOnTermination = a}); - --- | The size of the volume, in GiB. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. -sieVolumeSize :: Lens' ScheduledInstancesEBS (Maybe Int) -sieVolumeSize = lens _sieVolumeSize (\ s a -> s{_sieVolumeSize = a}); - --- | The number of I/O operations per second (IOPS) that the volume supports. For io1 volumes, this represents the number of IOPS that are provisioned for the volume. For @gp2@ volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about @gp2@ baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. -sieIOPS :: Lens' ScheduledInstancesEBS (Maybe Int) -sieIOPS = lens _sieIOPS (\ s a -> s{_sieIOPS = a}); - --- | Indicates whether the volume is encrypted. You can attached encrypted volumes only to instances that support them. -sieEncrypted :: Lens' ScheduledInstancesEBS (Maybe Bool) -sieEncrypted = lens _sieEncrypted (\ s a -> s{_sieEncrypted = a}); - --- | The volume type. @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, Throughput Optimized HDD for @st1@ , Cold HDD for @sc1@ , or @standard@ for Magnetic. Default: @standard@ -sieVolumeType :: Lens' ScheduledInstancesEBS (Maybe Text) -sieVolumeType = lens _sieVolumeType (\ s a -> s{_sieVolumeType = a}); - --- | The ID of the snapshot. -sieSnapshotId :: Lens' ScheduledInstancesEBS (Maybe Text) -sieSnapshotId = lens _sieSnapshotId (\ s a -> s{_sieSnapshotId = a}); - -instance Hashable ScheduledInstancesEBS where - -instance NFData ScheduledInstancesEBS where - -instance ToQuery ScheduledInstancesEBS where - toQuery ScheduledInstancesEBS'{..} - = mconcat - ["DeleteOnTermination" =: _sieDeleteOnTermination, - "VolumeSize" =: _sieVolumeSize, "Iops" =: _sieIOPS, - "Encrypted" =: _sieEncrypted, - "VolumeType" =: _sieVolumeType, - "SnapshotId" =: _sieSnapshotId] - --- | Describes an IAM instance profile for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstancesIAMInstanceProfile' smart constructor. -data ScheduledInstancesIAMInstanceProfile = ScheduledInstancesIAMInstanceProfile' - { _siiapARN :: !(Maybe Text) - , _siiapName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesIAMInstanceProfile' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'siiapARN' - The Amazon Resource Name (ARN). --- --- * 'siiapName' - The name. -scheduledInstancesIAMInstanceProfile - :: ScheduledInstancesIAMInstanceProfile -scheduledInstancesIAMInstanceProfile = - ScheduledInstancesIAMInstanceProfile' - {_siiapARN = Nothing, _siiapName = Nothing} - - --- | The Amazon Resource Name (ARN). -siiapARN :: Lens' ScheduledInstancesIAMInstanceProfile (Maybe Text) -siiapARN = lens _siiapARN (\ s a -> s{_siiapARN = a}); - --- | The name. -siiapName :: Lens' ScheduledInstancesIAMInstanceProfile (Maybe Text) -siiapName = lens _siiapName (\ s a -> s{_siiapName = a}); - -instance Hashable - ScheduledInstancesIAMInstanceProfile - where - -instance NFData ScheduledInstancesIAMInstanceProfile - where - -instance ToQuery ScheduledInstancesIAMInstanceProfile - where - toQuery ScheduledInstancesIAMInstanceProfile'{..} - = mconcat ["Arn" =: _siiapARN, "Name" =: _siiapName] - --- | Describes an IPv6 address. --- --- --- --- /See:/ 'scheduledInstancesIPv6Address' smart constructor. -newtype ScheduledInstancesIPv6Address = ScheduledInstancesIPv6Address' - { _siiaIPv6Address :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesIPv6Address' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'siiaIPv6Address' - The IPv6 address. -scheduledInstancesIPv6Address - :: ScheduledInstancesIPv6Address -scheduledInstancesIPv6Address = - ScheduledInstancesIPv6Address' {_siiaIPv6Address = Nothing} - - --- | The IPv6 address. -siiaIPv6Address :: Lens' ScheduledInstancesIPv6Address (Maybe Text) -siiaIPv6Address = lens _siiaIPv6Address (\ s a -> s{_siiaIPv6Address = a}); - -instance Hashable ScheduledInstancesIPv6Address where - -instance NFData ScheduledInstancesIPv6Address where - -instance ToQuery ScheduledInstancesIPv6Address where - toQuery ScheduledInstancesIPv6Address'{..} - = mconcat ["Ipv6Address" =: _siiaIPv6Address] - --- | Describes the launch specification for a Scheduled Instance. --- --- --- If you are launching the Scheduled Instance in EC2-VPC, you must specify the ID of the subnet. You can specify the subnet using either @SubnetId@ or @NetworkInterface@ . --- --- --- /See:/ 'scheduledInstancesLaunchSpecification' smart constructor. -data ScheduledInstancesLaunchSpecification = ScheduledInstancesLaunchSpecification' - { _silsSecurityGroupIds :: !(Maybe [Text]) - , _silsKeyName :: !(Maybe Text) - , _silsNetworkInterfaces :: !(Maybe [ScheduledInstancesNetworkInterface]) - , _silsRAMDiskId :: !(Maybe Text) - , _silsSubnetId :: !(Maybe Text) - , _silsKernelId :: !(Maybe Text) - , _silsInstanceType :: !(Maybe Text) - , _silsEBSOptimized :: !(Maybe Bool) - , _silsUserData :: !(Maybe Text) - , _silsMonitoring :: !(Maybe ScheduledInstancesMonitoring) - , _silsIAMInstanceProfile :: !(Maybe ScheduledInstancesIAMInstanceProfile) - , _silsBlockDeviceMappings :: !(Maybe [ScheduledInstancesBlockDeviceMapping]) - , _silsPlacement :: !(Maybe ScheduledInstancesPlacement) - , _silsImageId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesLaunchSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'silsSecurityGroupIds' - The IDs of one or more security groups. --- --- * 'silsKeyName' - The name of the key pair. --- --- * 'silsNetworkInterfaces' - One or more network interfaces. --- --- * 'silsRAMDiskId' - The ID of the RAM disk. --- --- * 'silsSubnetId' - The ID of the subnet in which to launch the instances. --- --- * 'silsKernelId' - The ID of the kernel. --- --- * 'silsInstanceType' - The instance type. --- --- * 'silsEBSOptimized' - Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. Default: @false@ --- --- * 'silsUserData' - The base64-encoded MIME user data. --- --- * 'silsMonitoring' - Enable or disable monitoring for the instances. --- --- * 'silsIAMInstanceProfile' - The IAM instance profile. --- --- * 'silsBlockDeviceMappings' - One or more block device mapping entries. --- --- * 'silsPlacement' - The placement information. --- --- * 'silsImageId' - The ID of the Amazon Machine Image (AMI). -scheduledInstancesLaunchSpecification - :: Text -- ^ 'silsImageId' - -> ScheduledInstancesLaunchSpecification -scheduledInstancesLaunchSpecification pImageId_ = - ScheduledInstancesLaunchSpecification' - { _silsSecurityGroupIds = Nothing - , _silsKeyName = Nothing - , _silsNetworkInterfaces = Nothing - , _silsRAMDiskId = Nothing - , _silsSubnetId = Nothing - , _silsKernelId = Nothing - , _silsInstanceType = Nothing - , _silsEBSOptimized = Nothing - , _silsUserData = Nothing - , _silsMonitoring = Nothing - , _silsIAMInstanceProfile = Nothing - , _silsBlockDeviceMappings = Nothing - , _silsPlacement = Nothing - , _silsImageId = pImageId_ - } - - --- | The IDs of one or more security groups. -silsSecurityGroupIds :: Lens' ScheduledInstancesLaunchSpecification [Text] -silsSecurityGroupIds = lens _silsSecurityGroupIds (\ s a -> s{_silsSecurityGroupIds = a}) . _Default . _Coerce; - --- | The name of the key pair. -silsKeyName :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) -silsKeyName = lens _silsKeyName (\ s a -> s{_silsKeyName = a}); - --- | One or more network interfaces. -silsNetworkInterfaces :: Lens' ScheduledInstancesLaunchSpecification [ScheduledInstancesNetworkInterface] -silsNetworkInterfaces = lens _silsNetworkInterfaces (\ s a -> s{_silsNetworkInterfaces = a}) . _Default . _Coerce; - --- | The ID of the RAM disk. -silsRAMDiskId :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) -silsRAMDiskId = lens _silsRAMDiskId (\ s a -> s{_silsRAMDiskId = a}); - --- | The ID of the subnet in which to launch the instances. -silsSubnetId :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) -silsSubnetId = lens _silsSubnetId (\ s a -> s{_silsSubnetId = a}); - --- | The ID of the kernel. -silsKernelId :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) -silsKernelId = lens _silsKernelId (\ s a -> s{_silsKernelId = a}); - --- | The instance type. -silsInstanceType :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) -silsInstanceType = lens _silsInstanceType (\ s a -> s{_silsInstanceType = a}); - --- | Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. Default: @false@ -silsEBSOptimized :: Lens' ScheduledInstancesLaunchSpecification (Maybe Bool) -silsEBSOptimized = lens _silsEBSOptimized (\ s a -> s{_silsEBSOptimized = a}); - --- | The base64-encoded MIME user data. -silsUserData :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) -silsUserData = lens _silsUserData (\ s a -> s{_silsUserData = a}); - --- | Enable or disable monitoring for the instances. -silsMonitoring :: Lens' ScheduledInstancesLaunchSpecification (Maybe ScheduledInstancesMonitoring) -silsMonitoring = lens _silsMonitoring (\ s a -> s{_silsMonitoring = a}); - --- | The IAM instance profile. -silsIAMInstanceProfile :: Lens' ScheduledInstancesLaunchSpecification (Maybe ScheduledInstancesIAMInstanceProfile) -silsIAMInstanceProfile = lens _silsIAMInstanceProfile (\ s a -> s{_silsIAMInstanceProfile = a}); - --- | One or more block device mapping entries. -silsBlockDeviceMappings :: Lens' ScheduledInstancesLaunchSpecification [ScheduledInstancesBlockDeviceMapping] -silsBlockDeviceMappings = lens _silsBlockDeviceMappings (\ s a -> s{_silsBlockDeviceMappings = a}) . _Default . _Coerce; - --- | The placement information. -silsPlacement :: Lens' ScheduledInstancesLaunchSpecification (Maybe ScheduledInstancesPlacement) -silsPlacement = lens _silsPlacement (\ s a -> s{_silsPlacement = a}); - --- | The ID of the Amazon Machine Image (AMI). -silsImageId :: Lens' ScheduledInstancesLaunchSpecification Text -silsImageId = lens _silsImageId (\ s a -> s{_silsImageId = a}); - -instance Hashable - ScheduledInstancesLaunchSpecification - where - -instance NFData ScheduledInstancesLaunchSpecification - where - -instance ToQuery - ScheduledInstancesLaunchSpecification - where - toQuery ScheduledInstancesLaunchSpecification'{..} - = mconcat - [toQuery - (toQueryList "SecurityGroupId" <$> - _silsSecurityGroupIds), - "KeyName" =: _silsKeyName, - toQuery - (toQueryList "NetworkInterface" <$> - _silsNetworkInterfaces), - "RamdiskId" =: _silsRAMDiskId, - "SubnetId" =: _silsSubnetId, - "KernelId" =: _silsKernelId, - "InstanceType" =: _silsInstanceType, - "EbsOptimized" =: _silsEBSOptimized, - "UserData" =: _silsUserData, - "Monitoring" =: _silsMonitoring, - "IamInstanceProfile" =: _silsIAMInstanceProfile, - toQuery - (toQueryList "BlockDeviceMapping" <$> - _silsBlockDeviceMappings), - "Placement" =: _silsPlacement, - "ImageId" =: _silsImageId] - --- | Describes whether monitoring is enabled for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstancesMonitoring' smart constructor. -newtype ScheduledInstancesMonitoring = ScheduledInstancesMonitoring' - { _simEnabled :: Maybe Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesMonitoring' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'simEnabled' - Indicates whether monitoring is enabled. -scheduledInstancesMonitoring - :: ScheduledInstancesMonitoring -scheduledInstancesMonitoring = - ScheduledInstancesMonitoring' {_simEnabled = Nothing} - - --- | Indicates whether monitoring is enabled. -simEnabled :: Lens' ScheduledInstancesMonitoring (Maybe Bool) -simEnabled = lens _simEnabled (\ s a -> s{_simEnabled = a}); - -instance Hashable ScheduledInstancesMonitoring where - -instance NFData ScheduledInstancesMonitoring where - -instance ToQuery ScheduledInstancesMonitoring where - toQuery ScheduledInstancesMonitoring'{..} - = mconcat ["Enabled" =: _simEnabled] - --- | Describes a network interface for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstancesNetworkInterface' smart constructor. -data ScheduledInstancesNetworkInterface = ScheduledInstancesNetworkInterface' - { _siniGroups :: !(Maybe [Text]) - , _siniDeleteOnTermination :: !(Maybe Bool) - , _siniAssociatePublicIPAddress :: !(Maybe Bool) - , _siniPrivateIPAddressConfigs :: !(Maybe [ScheduledInstancesPrivateIPAddressConfig]) - , _siniNetworkInterfaceId :: !(Maybe Text) - , _siniSubnetId :: !(Maybe Text) - , _siniIPv6AddressCount :: !(Maybe Int) - , _siniPrivateIPAddress :: !(Maybe Text) - , _siniSecondaryPrivateIPAddressCount :: !(Maybe Int) - , _siniDescription :: !(Maybe Text) - , _siniDeviceIndex :: !(Maybe Int) - , _siniIPv6Addresses :: !(Maybe [ScheduledInstancesIPv6Address]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesNetworkInterface' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'siniGroups' - The IDs of one or more security groups. --- --- * 'siniDeleteOnTermination' - Indicates whether to delete the interface when the instance is terminated. --- --- * 'siniAssociatePublicIPAddress' - Indicates whether to assign a public IPv4 address to instances launched in a VPC. The public IPv4 address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . --- --- * 'siniPrivateIPAddressConfigs' - The private IPv4 addresses. --- --- * 'siniNetworkInterfaceId' - The ID of the network interface. --- --- * 'siniSubnetId' - The ID of the subnet. --- --- * 'siniIPv6AddressCount' - The number of IPv6 addresses to assign to the network interface. The IPv6 addresses are automatically selected from the subnet range. --- --- * 'siniPrivateIPAddress' - The IPv4 address of the network interface within the subnet. --- --- * 'siniSecondaryPrivateIPAddressCount' - The number of secondary private IPv4 addresses. --- --- * 'siniDescription' - The description. --- --- * 'siniDeviceIndex' - The index of the device for the network interface attachment. --- --- * 'siniIPv6Addresses' - One or more specific IPv6 addresses from the subnet range. -scheduledInstancesNetworkInterface - :: ScheduledInstancesNetworkInterface -scheduledInstancesNetworkInterface = - ScheduledInstancesNetworkInterface' - { _siniGroups = Nothing - , _siniDeleteOnTermination = Nothing - , _siniAssociatePublicIPAddress = Nothing - , _siniPrivateIPAddressConfigs = Nothing - , _siniNetworkInterfaceId = Nothing - , _siniSubnetId = Nothing - , _siniIPv6AddressCount = Nothing - , _siniPrivateIPAddress = Nothing - , _siniSecondaryPrivateIPAddressCount = Nothing - , _siniDescription = Nothing - , _siniDeviceIndex = Nothing - , _siniIPv6Addresses = Nothing - } - - --- | The IDs of one or more security groups. -siniGroups :: Lens' ScheduledInstancesNetworkInterface [Text] -siniGroups = lens _siniGroups (\ s a -> s{_siniGroups = a}) . _Default . _Coerce; - --- | Indicates whether to delete the interface when the instance is terminated. -siniDeleteOnTermination :: Lens' ScheduledInstancesNetworkInterface (Maybe Bool) -siniDeleteOnTermination = lens _siniDeleteOnTermination (\ s a -> s{_siniDeleteOnTermination = a}); - --- | Indicates whether to assign a public IPv4 address to instances launched in a VPC. The public IPv4 address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . -siniAssociatePublicIPAddress :: Lens' ScheduledInstancesNetworkInterface (Maybe Bool) -siniAssociatePublicIPAddress = lens _siniAssociatePublicIPAddress (\ s a -> s{_siniAssociatePublicIPAddress = a}); - --- | The private IPv4 addresses. -siniPrivateIPAddressConfigs :: Lens' ScheduledInstancesNetworkInterface [ScheduledInstancesPrivateIPAddressConfig] -siniPrivateIPAddressConfigs = lens _siniPrivateIPAddressConfigs (\ s a -> s{_siniPrivateIPAddressConfigs = a}) . _Default . _Coerce; - --- | The ID of the network interface. -siniNetworkInterfaceId :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) -siniNetworkInterfaceId = lens _siniNetworkInterfaceId (\ s a -> s{_siniNetworkInterfaceId = a}); - --- | The ID of the subnet. -siniSubnetId :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) -siniSubnetId = lens _siniSubnetId (\ s a -> s{_siniSubnetId = a}); - --- | The number of IPv6 addresses to assign to the network interface. The IPv6 addresses are automatically selected from the subnet range. -siniIPv6AddressCount :: Lens' ScheduledInstancesNetworkInterface (Maybe Int) -siniIPv6AddressCount = lens _siniIPv6AddressCount (\ s a -> s{_siniIPv6AddressCount = a}); - --- | The IPv4 address of the network interface within the subnet. -siniPrivateIPAddress :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) -siniPrivateIPAddress = lens _siniPrivateIPAddress (\ s a -> s{_siniPrivateIPAddress = a}); - --- | The number of secondary private IPv4 addresses. -siniSecondaryPrivateIPAddressCount :: Lens' ScheduledInstancesNetworkInterface (Maybe Int) -siniSecondaryPrivateIPAddressCount = lens _siniSecondaryPrivateIPAddressCount (\ s a -> s{_siniSecondaryPrivateIPAddressCount = a}); - --- | The description. -siniDescription :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) -siniDescription = lens _siniDescription (\ s a -> s{_siniDescription = a}); - --- | The index of the device for the network interface attachment. -siniDeviceIndex :: Lens' ScheduledInstancesNetworkInterface (Maybe Int) -siniDeviceIndex = lens _siniDeviceIndex (\ s a -> s{_siniDeviceIndex = a}); - --- | One or more specific IPv6 addresses from the subnet range. -siniIPv6Addresses :: Lens' ScheduledInstancesNetworkInterface [ScheduledInstancesIPv6Address] -siniIPv6Addresses = lens _siniIPv6Addresses (\ s a -> s{_siniIPv6Addresses = a}) . _Default . _Coerce; - -instance Hashable ScheduledInstancesNetworkInterface - where - -instance NFData ScheduledInstancesNetworkInterface - where - -instance ToQuery ScheduledInstancesNetworkInterface - where - toQuery ScheduledInstancesNetworkInterface'{..} - = mconcat - [toQuery (toQueryList "Group" <$> _siniGroups), - "DeleteOnTermination" =: _siniDeleteOnTermination, - "AssociatePublicIpAddress" =: - _siniAssociatePublicIPAddress, - toQuery - (toQueryList "PrivateIpAddressConfig" <$> - _siniPrivateIPAddressConfigs), - "NetworkInterfaceId" =: _siniNetworkInterfaceId, - "SubnetId" =: _siniSubnetId, - "Ipv6AddressCount" =: _siniIPv6AddressCount, - "PrivateIpAddress" =: _siniPrivateIPAddress, - "SecondaryPrivateIpAddressCount" =: - _siniSecondaryPrivateIPAddressCount, - "Description" =: _siniDescription, - "DeviceIndex" =: _siniDeviceIndex, - toQuery - (toQueryList "Ipv6Address" <$> _siniIPv6Addresses)] - --- | Describes the placement for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstancesPlacement' smart constructor. -data ScheduledInstancesPlacement = ScheduledInstancesPlacement' - { _sipAvailabilityZone :: !(Maybe Text) - , _sipGroupName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesPlacement' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sipAvailabilityZone' - The Availability Zone. --- --- * 'sipGroupName' - The name of the placement group. -scheduledInstancesPlacement - :: ScheduledInstancesPlacement -scheduledInstancesPlacement = - ScheduledInstancesPlacement' - {_sipAvailabilityZone = Nothing, _sipGroupName = Nothing} - - --- | The Availability Zone. -sipAvailabilityZone :: Lens' ScheduledInstancesPlacement (Maybe Text) -sipAvailabilityZone = lens _sipAvailabilityZone (\ s a -> s{_sipAvailabilityZone = a}); - --- | The name of the placement group. -sipGroupName :: Lens' ScheduledInstancesPlacement (Maybe Text) -sipGroupName = lens _sipGroupName (\ s a -> s{_sipGroupName = a}); - -instance Hashable ScheduledInstancesPlacement where - -instance NFData ScheduledInstancesPlacement where - -instance ToQuery ScheduledInstancesPlacement where - toQuery ScheduledInstancesPlacement'{..} - = mconcat - ["AvailabilityZone" =: _sipAvailabilityZone, - "GroupName" =: _sipGroupName] - --- | Describes a private IPv4 address for a Scheduled Instance. --- --- --- --- /See:/ 'scheduledInstancesPrivateIPAddressConfig' smart constructor. -data ScheduledInstancesPrivateIPAddressConfig = ScheduledInstancesPrivateIPAddressConfig' - { _sipiacPrimary :: !(Maybe Bool) - , _sipiacPrivateIPAddress :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ScheduledInstancesPrivateIPAddressConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sipiacPrimary' - Indicates whether this is a primary IPv4 address. Otherwise, this is a secondary IPv4 address. --- --- * 'sipiacPrivateIPAddress' - The IPv4 address. -scheduledInstancesPrivateIPAddressConfig - :: ScheduledInstancesPrivateIPAddressConfig -scheduledInstancesPrivateIPAddressConfig = - ScheduledInstancesPrivateIPAddressConfig' - {_sipiacPrimary = Nothing, _sipiacPrivateIPAddress = Nothing} - - --- | Indicates whether this is a primary IPv4 address. Otherwise, this is a secondary IPv4 address. -sipiacPrimary :: Lens' ScheduledInstancesPrivateIPAddressConfig (Maybe Bool) -sipiacPrimary = lens _sipiacPrimary (\ s a -> s{_sipiacPrimary = a}); - --- | The IPv4 address. -sipiacPrivateIPAddress :: Lens' ScheduledInstancesPrivateIPAddressConfig (Maybe Text) -sipiacPrivateIPAddress = lens _sipiacPrivateIPAddress (\ s a -> s{_sipiacPrivateIPAddress = a}); - -instance Hashable - ScheduledInstancesPrivateIPAddressConfig - where - -instance NFData - ScheduledInstancesPrivateIPAddressConfig - where - -instance ToQuery - ScheduledInstancesPrivateIPAddressConfig - where - toQuery ScheduledInstancesPrivateIPAddressConfig'{..} - = mconcat - ["Primary" =: _sipiacPrimary, - "PrivateIpAddress" =: _sipiacPrivateIPAddress] - --- | Describes a security group --- --- --- --- /See:/ 'securityGroup' smart constructor. -data SecurityGroup = SecurityGroup' - { _sgVPCId :: !(Maybe Text) - , _sgIPPermissions :: !(Maybe [IPPermission]) - , _sgIPPermissionsEgress :: !(Maybe [IPPermission]) - , _sgTags :: !(Maybe [Tag]) - , _sgOwnerId :: !Text - , _sgGroupId :: !Text - , _sgGroupName :: !Text - , _sgDescription :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SecurityGroup' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sgVPCId' - [EC2-VPC] The ID of the VPC for the security group. --- --- * 'sgIPPermissions' - One or more inbound rules associated with the security group. --- --- * 'sgIPPermissionsEgress' - [EC2-VPC] One or more outbound rules associated with the security group. --- --- * 'sgTags' - Any tags assigned to the security group. --- --- * 'sgOwnerId' - The AWS account ID of the owner of the security group. --- --- * 'sgGroupId' - The ID of the security group. --- --- * 'sgGroupName' - The name of the security group. --- --- * 'sgDescription' - A description of the security group. -securityGroup - :: Text -- ^ 'sgOwnerId' - -> Text -- ^ 'sgGroupId' - -> Text -- ^ 'sgGroupName' - -> Text -- ^ 'sgDescription' - -> SecurityGroup -securityGroup pOwnerId_ pGroupId_ pGroupName_ pDescription_ = - SecurityGroup' - { _sgVPCId = Nothing - , _sgIPPermissions = Nothing - , _sgIPPermissionsEgress = Nothing - , _sgTags = Nothing - , _sgOwnerId = pOwnerId_ - , _sgGroupId = pGroupId_ - , _sgGroupName = pGroupName_ - , _sgDescription = pDescription_ - } - - --- | [EC2-VPC] The ID of the VPC for the security group. -sgVPCId :: Lens' SecurityGroup (Maybe Text) -sgVPCId = lens _sgVPCId (\ s a -> s{_sgVPCId = a}); - --- | One or more inbound rules associated with the security group. -sgIPPermissions :: Lens' SecurityGroup [IPPermission] -sgIPPermissions = lens _sgIPPermissions (\ s a -> s{_sgIPPermissions = a}) . _Default . _Coerce; - --- | [EC2-VPC] One or more outbound rules associated with the security group. -sgIPPermissionsEgress :: Lens' SecurityGroup [IPPermission] -sgIPPermissionsEgress = lens _sgIPPermissionsEgress (\ s a -> s{_sgIPPermissionsEgress = a}) . _Default . _Coerce; - --- | Any tags assigned to the security group. -sgTags :: Lens' SecurityGroup [Tag] -sgTags = lens _sgTags (\ s a -> s{_sgTags = a}) . _Default . _Coerce; - --- | The AWS account ID of the owner of the security group. -sgOwnerId :: Lens' SecurityGroup Text -sgOwnerId = lens _sgOwnerId (\ s a -> s{_sgOwnerId = a}); - --- | The ID of the security group. -sgGroupId :: Lens' SecurityGroup Text -sgGroupId = lens _sgGroupId (\ s a -> s{_sgGroupId = a}); - --- | The name of the security group. -sgGroupName :: Lens' SecurityGroup Text -sgGroupName = lens _sgGroupName (\ s a -> s{_sgGroupName = a}); - --- | A description of the security group. -sgDescription :: Lens' SecurityGroup Text -sgDescription = lens _sgDescription (\ s a -> s{_sgDescription = a}); - -instance FromXML SecurityGroup where - parseXML x - = SecurityGroup' <$> - (x .@? "vpcId") <*> - (x .@? "ipPermissions" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "ipPermissionsEgress" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "ownerId") - <*> (x .@ "groupId") - <*> (x .@ "groupName") - <*> (x .@ "groupDescription") - -instance Hashable SecurityGroup where - -instance NFData SecurityGroup where - --- | Describes a security group. --- --- --- --- /See:/ 'securityGroupIdentifier' smart constructor. -data SecurityGroupIdentifier = SecurityGroupIdentifier' - { _sgiGroupId :: !(Maybe Text) - , _sgiGroupName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SecurityGroupIdentifier' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sgiGroupId' - The ID of the security group. --- --- * 'sgiGroupName' - The name of the security group. -securityGroupIdentifier - :: SecurityGroupIdentifier -securityGroupIdentifier = - SecurityGroupIdentifier' {_sgiGroupId = Nothing, _sgiGroupName = Nothing} - - --- | The ID of the security group. -sgiGroupId :: Lens' SecurityGroupIdentifier (Maybe Text) -sgiGroupId = lens _sgiGroupId (\ s a -> s{_sgiGroupId = a}); - --- | The name of the security group. -sgiGroupName :: Lens' SecurityGroupIdentifier (Maybe Text) -sgiGroupName = lens _sgiGroupName (\ s a -> s{_sgiGroupName = a}); - -instance FromXML SecurityGroupIdentifier where - parseXML x - = SecurityGroupIdentifier' <$> - (x .@? "groupId") <*> (x .@? "groupName") - -instance Hashable SecurityGroupIdentifier where - -instance NFData SecurityGroupIdentifier where - --- | Describes a VPC with a security group that references your security group. --- --- --- --- /See:/ 'securityGroupReference' smart constructor. -data SecurityGroupReference = SecurityGroupReference' - { _sgrVPCPeeringConnectionId :: !(Maybe Text) - , _sgrGroupId :: !Text - , _sgrReferencingVPCId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SecurityGroupReference' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sgrVPCPeeringConnectionId' - The ID of the VPC peering connection. --- --- * 'sgrGroupId' - The ID of your security group. --- --- * 'sgrReferencingVPCId' - The ID of the VPC with the referencing security group. -securityGroupReference - :: Text -- ^ 'sgrGroupId' - -> Text -- ^ 'sgrReferencingVPCId' - -> SecurityGroupReference -securityGroupReference pGroupId_ pReferencingVPCId_ = - SecurityGroupReference' - { _sgrVPCPeeringConnectionId = Nothing - , _sgrGroupId = pGroupId_ - , _sgrReferencingVPCId = pReferencingVPCId_ - } - - --- | The ID of the VPC peering connection. -sgrVPCPeeringConnectionId :: Lens' SecurityGroupReference (Maybe Text) -sgrVPCPeeringConnectionId = lens _sgrVPCPeeringConnectionId (\ s a -> s{_sgrVPCPeeringConnectionId = a}); - --- | The ID of your security group. -sgrGroupId :: Lens' SecurityGroupReference Text -sgrGroupId = lens _sgrGroupId (\ s a -> s{_sgrGroupId = a}); - --- | The ID of the VPC with the referencing security group. -sgrReferencingVPCId :: Lens' SecurityGroupReference Text -sgrReferencingVPCId = lens _sgrReferencingVPCId (\ s a -> s{_sgrReferencingVPCId = a}); - -instance FromXML SecurityGroupReference where - parseXML x - = SecurityGroupReference' <$> - (x .@? "vpcPeeringConnectionId") <*> (x .@ "groupId") - <*> (x .@ "referencingVpcId") - -instance Hashable SecurityGroupReference where - -instance NFData SecurityGroupReference where - --- | Describes a service. --- --- --- --- /See:/ 'serviceDetail' smart constructor. -data ServiceDetail = ServiceDetail' - { _sdVPCEndpointPolicySupported :: !(Maybe Bool) - , _sdBaseEndpointDNSNames :: !(Maybe [Text]) - , _sdOwner :: !(Maybe Text) - , _sdAvailabilityZones :: !(Maybe [Text]) - , _sdServiceName :: !(Maybe Text) - , _sdServiceType :: !(Maybe [ServiceTypeDetail]) - , _sdAcceptanceRequired :: !(Maybe Bool) - , _sdPrivateDNSName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ServiceDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdVPCEndpointPolicySupported' - Indicates whether the service supports endpoint policies. --- --- * 'sdBaseEndpointDNSNames' - The DNS names for the service. --- --- * 'sdOwner' - The AWS account ID of the service owner. --- --- * 'sdAvailabilityZones' - The Availability Zones in which the service is available. --- --- * 'sdServiceName' - The Amazon Resource Name (ARN) of the service. --- --- * 'sdServiceType' - The type of service. --- --- * 'sdAcceptanceRequired' - Indicates whether VPC endpoint connection requests to the service must be accepted by the service owner. --- --- * 'sdPrivateDNSName' - The private DNS name for the service. -serviceDetail - :: ServiceDetail -serviceDetail = - ServiceDetail' - { _sdVPCEndpointPolicySupported = Nothing - , _sdBaseEndpointDNSNames = Nothing - , _sdOwner = Nothing - , _sdAvailabilityZones = Nothing - , _sdServiceName = Nothing - , _sdServiceType = Nothing - , _sdAcceptanceRequired = Nothing - , _sdPrivateDNSName = Nothing - } - - --- | Indicates whether the service supports endpoint policies. -sdVPCEndpointPolicySupported :: Lens' ServiceDetail (Maybe Bool) -sdVPCEndpointPolicySupported = lens _sdVPCEndpointPolicySupported (\ s a -> s{_sdVPCEndpointPolicySupported = a}); - --- | The DNS names for the service. -sdBaseEndpointDNSNames :: Lens' ServiceDetail [Text] -sdBaseEndpointDNSNames = lens _sdBaseEndpointDNSNames (\ s a -> s{_sdBaseEndpointDNSNames = a}) . _Default . _Coerce; - --- | The AWS account ID of the service owner. -sdOwner :: Lens' ServiceDetail (Maybe Text) -sdOwner = lens _sdOwner (\ s a -> s{_sdOwner = a}); - --- | The Availability Zones in which the service is available. -sdAvailabilityZones :: Lens' ServiceDetail [Text] -sdAvailabilityZones = lens _sdAvailabilityZones (\ s a -> s{_sdAvailabilityZones = a}) . _Default . _Coerce; - --- | The Amazon Resource Name (ARN) of the service. -sdServiceName :: Lens' ServiceDetail (Maybe Text) -sdServiceName = lens _sdServiceName (\ s a -> s{_sdServiceName = a}); - --- | The type of service. -sdServiceType :: Lens' ServiceDetail [ServiceTypeDetail] -sdServiceType = lens _sdServiceType (\ s a -> s{_sdServiceType = a}) . _Default . _Coerce; - --- | Indicates whether VPC endpoint connection requests to the service must be accepted by the service owner. -sdAcceptanceRequired :: Lens' ServiceDetail (Maybe Bool) -sdAcceptanceRequired = lens _sdAcceptanceRequired (\ s a -> s{_sdAcceptanceRequired = a}); - --- | The private DNS name for the service. -sdPrivateDNSName :: Lens' ServiceDetail (Maybe Text) -sdPrivateDNSName = lens _sdPrivateDNSName (\ s a -> s{_sdPrivateDNSName = a}); - -instance FromXML ServiceDetail where - parseXML x - = ServiceDetail' <$> - (x .@? "vpcEndpointPolicySupported") <*> - (x .@? "baseEndpointDnsNameSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "owner") - <*> - (x .@? "availabilityZoneSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "serviceName") - <*> - (x .@? "serviceType" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "acceptanceRequired") - <*> (x .@? "privateDnsName") - -instance Hashable ServiceDetail where - -instance NFData ServiceDetail where - --- | Describes the type of service for a VPC endpoint. --- --- --- --- /See:/ 'serviceTypeDetail' smart constructor. -newtype ServiceTypeDetail = ServiceTypeDetail' - { _stdServiceType :: Maybe ServiceType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'ServiceTypeDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'stdServiceType' - The type of service. -serviceTypeDetail - :: ServiceTypeDetail -serviceTypeDetail = ServiceTypeDetail' {_stdServiceType = Nothing} - - --- | The type of service. -stdServiceType :: Lens' ServiceTypeDetail (Maybe ServiceType) -stdServiceType = lens _stdServiceType (\ s a -> s{_stdServiceType = a}); - -instance FromXML ServiceTypeDetail where - parseXML x - = ServiceTypeDetail' <$> (x .@? "serviceType") - -instance Hashable ServiceTypeDetail where - -instance NFData ServiceTypeDetail where - --- | Describes the time period for a Scheduled Instance to start its first schedule. The time period must span less than one day. --- --- --- --- /See:/ 'slotDateTimeRangeRequest' smart constructor. -data SlotDateTimeRangeRequest = SlotDateTimeRangeRequest' - { _sdtrrEarliestTime :: !ISO8601 - , _sdtrrLatestTime :: !ISO8601 - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SlotDateTimeRangeRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdtrrEarliestTime' - The earliest date and time, in UTC, for the Scheduled Instance to start. --- --- * 'sdtrrLatestTime' - The latest date and time, in UTC, for the Scheduled Instance to start. This value must be later than or equal to the earliest date and at most three months in the future. -slotDateTimeRangeRequest - :: UTCTime -- ^ 'sdtrrEarliestTime' - -> UTCTime -- ^ 'sdtrrLatestTime' - -> SlotDateTimeRangeRequest -slotDateTimeRangeRequest pEarliestTime_ pLatestTime_ = - SlotDateTimeRangeRequest' - { _sdtrrEarliestTime = _Time # pEarliestTime_ - , _sdtrrLatestTime = _Time # pLatestTime_ - } - - --- | The earliest date and time, in UTC, for the Scheduled Instance to start. -sdtrrEarliestTime :: Lens' SlotDateTimeRangeRequest UTCTime -sdtrrEarliestTime = lens _sdtrrEarliestTime (\ s a -> s{_sdtrrEarliestTime = a}) . _Time; - --- | The latest date and time, in UTC, for the Scheduled Instance to start. This value must be later than or equal to the earliest date and at most three months in the future. -sdtrrLatestTime :: Lens' SlotDateTimeRangeRequest UTCTime -sdtrrLatestTime = lens _sdtrrLatestTime (\ s a -> s{_sdtrrLatestTime = a}) . _Time; - -instance Hashable SlotDateTimeRangeRequest where - -instance NFData SlotDateTimeRangeRequest where - -instance ToQuery SlotDateTimeRangeRequest where - toQuery SlotDateTimeRangeRequest'{..} - = mconcat - ["EarliestTime" =: _sdtrrEarliestTime, - "LatestTime" =: _sdtrrLatestTime] - --- | Describes the time period for a Scheduled Instance to start its first schedule. --- --- --- --- /See:/ 'slotStartTimeRangeRequest' smart constructor. -data SlotStartTimeRangeRequest = SlotStartTimeRangeRequest' - { _sstrrLatestTime :: !(Maybe ISO8601) - , _sstrrEarliestTime :: !(Maybe ISO8601) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SlotStartTimeRangeRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sstrrLatestTime' - The latest date and time, in UTC, for the Scheduled Instance to start. --- --- * 'sstrrEarliestTime' - The earliest date and time, in UTC, for the Scheduled Instance to start. -slotStartTimeRangeRequest - :: SlotStartTimeRangeRequest -slotStartTimeRangeRequest = - SlotStartTimeRangeRequest' - {_sstrrLatestTime = Nothing, _sstrrEarliestTime = Nothing} - - --- | The latest date and time, in UTC, for the Scheduled Instance to start. -sstrrLatestTime :: Lens' SlotStartTimeRangeRequest (Maybe UTCTime) -sstrrLatestTime = lens _sstrrLatestTime (\ s a -> s{_sstrrLatestTime = a}) . mapping _Time; - --- | The earliest date and time, in UTC, for the Scheduled Instance to start. -sstrrEarliestTime :: Lens' SlotStartTimeRangeRequest (Maybe UTCTime) -sstrrEarliestTime = lens _sstrrEarliestTime (\ s a -> s{_sstrrEarliestTime = a}) . mapping _Time; - -instance Hashable SlotStartTimeRangeRequest where - -instance NFData SlotStartTimeRangeRequest where - -instance ToQuery SlotStartTimeRangeRequest where - toQuery SlotStartTimeRangeRequest'{..} - = mconcat - ["LatestTime" =: _sstrrLatestTime, - "EarliestTime" =: _sstrrEarliestTime] - --- | Describes a snapshot. --- --- --- --- /See:/ 'snapshot' smart constructor. -data Snapshot = Snapshot' - { _sStateMessage :: !(Maybe Text) - , _sOwnerAlias :: !(Maybe Text) - , _sDataEncryptionKeyId :: !(Maybe Text) - , _sKMSKeyId :: !(Maybe Text) - , _sTags :: !(Maybe [Tag]) - , _sSnapshotId :: !Text - , _sOwnerId :: !Text - , _sVolumeId :: !Text - , _sVolumeSize :: !Int - , _sDescription :: !Text - , _sStartTime :: !ISO8601 - , _sProgress :: !Text - , _sState :: !SnapshotState - , _sEncrypted :: !Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Snapshot' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sStateMessage' - Encrypted Amazon EBS snapshots are copied asynchronously. If a snapshot copy operation fails (for example, if the proper AWS Key Management Service (AWS KMS) permissions are not obtained) this field displays error state details to help you diagnose why the error occurred. This parameter is only returned by the 'DescribeSnapshots' API operation. --- --- * 'sOwnerAlias' - Value from an Amazon-maintained list (@amazon@ | @aws-marketplace@ | @microsoft@ ) of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. --- --- * 'sDataEncryptionKeyId' - The data encryption key identifier for the snapshot. This value is a unique identifier that corresponds to the data encryption key that was used to encrypt the original volume or snapshot copy. Because data encryption keys are inherited by volumes created from snapshots, and vice versa, if snapshots share the same data encryption key identifier, then they belong to the same volume/snapshot lineage. This parameter is only returned by the 'DescribeSnapshots' API operation. --- --- * 'sKMSKeyId' - The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the parent volume. --- --- * 'sTags' - Any tags assigned to the snapshot. --- --- * 'sSnapshotId' - The ID of the snapshot. Each snapshot receives a unique identifier when it is created. --- --- * 'sOwnerId' - The AWS account ID of the EBS snapshot owner. --- --- * 'sVolumeId' - The ID of the volume that was used to create the snapshot. Snapshots created by the 'CopySnapshot' action have an arbitrary volume ID that should not be used for any purpose. --- --- * 'sVolumeSize' - The size of the volume, in GiB. --- --- * 'sDescription' - The description for the snapshot. --- --- * 'sStartTime' - The time stamp when the snapshot was initiated. --- --- * 'sProgress' - The progress of the snapshot, as a percentage. --- --- * 'sState' - The snapshot state. --- --- * 'sEncrypted' - Indicates whether the snapshot is encrypted. -snapshot - :: Text -- ^ 'sSnapshotId' - -> Text -- ^ 'sOwnerId' - -> Text -- ^ 'sVolumeId' - -> Int -- ^ 'sVolumeSize' - -> Text -- ^ 'sDescription' - -> UTCTime -- ^ 'sStartTime' - -> Text -- ^ 'sProgress' - -> SnapshotState -- ^ 'sState' - -> Bool -- ^ 'sEncrypted' - -> Snapshot -snapshot pSnapshotId_ pOwnerId_ pVolumeId_ pVolumeSize_ pDescription_ pStartTime_ pProgress_ pState_ pEncrypted_ = - Snapshot' - { _sStateMessage = Nothing - , _sOwnerAlias = Nothing - , _sDataEncryptionKeyId = Nothing - , _sKMSKeyId = Nothing - , _sTags = Nothing - , _sSnapshotId = pSnapshotId_ - , _sOwnerId = pOwnerId_ - , _sVolumeId = pVolumeId_ - , _sVolumeSize = pVolumeSize_ - , _sDescription = pDescription_ - , _sStartTime = _Time # pStartTime_ - , _sProgress = pProgress_ - , _sState = pState_ - , _sEncrypted = pEncrypted_ - } - - --- | Encrypted Amazon EBS snapshots are copied asynchronously. If a snapshot copy operation fails (for example, if the proper AWS Key Management Service (AWS KMS) permissions are not obtained) this field displays error state details to help you diagnose why the error occurred. This parameter is only returned by the 'DescribeSnapshots' API operation. -sStateMessage :: Lens' Snapshot (Maybe Text) -sStateMessage = lens _sStateMessage (\ s a -> s{_sStateMessage = a}); - --- | Value from an Amazon-maintained list (@amazon@ | @aws-marketplace@ | @microsoft@ ) of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. -sOwnerAlias :: Lens' Snapshot (Maybe Text) -sOwnerAlias = lens _sOwnerAlias (\ s a -> s{_sOwnerAlias = a}); - --- | The data encryption key identifier for the snapshot. This value is a unique identifier that corresponds to the data encryption key that was used to encrypt the original volume or snapshot copy. Because data encryption keys are inherited by volumes created from snapshots, and vice versa, if snapshots share the same data encryption key identifier, then they belong to the same volume/snapshot lineage. This parameter is only returned by the 'DescribeSnapshots' API operation. -sDataEncryptionKeyId :: Lens' Snapshot (Maybe Text) -sDataEncryptionKeyId = lens _sDataEncryptionKeyId (\ s a -> s{_sDataEncryptionKeyId = a}); - --- | The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the parent volume. -sKMSKeyId :: Lens' Snapshot (Maybe Text) -sKMSKeyId = lens _sKMSKeyId (\ s a -> s{_sKMSKeyId = a}); - --- | Any tags assigned to the snapshot. -sTags :: Lens' Snapshot [Tag] -sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce; - --- | The ID of the snapshot. Each snapshot receives a unique identifier when it is created. -sSnapshotId :: Lens' Snapshot Text -sSnapshotId = lens _sSnapshotId (\ s a -> s{_sSnapshotId = a}); - --- | The AWS account ID of the EBS snapshot owner. -sOwnerId :: Lens' Snapshot Text -sOwnerId = lens _sOwnerId (\ s a -> s{_sOwnerId = a}); - --- | The ID of the volume that was used to create the snapshot. Snapshots created by the 'CopySnapshot' action have an arbitrary volume ID that should not be used for any purpose. -sVolumeId :: Lens' Snapshot Text -sVolumeId = lens _sVolumeId (\ s a -> s{_sVolumeId = a}); - --- | The size of the volume, in GiB. -sVolumeSize :: Lens' Snapshot Int -sVolumeSize = lens _sVolumeSize (\ s a -> s{_sVolumeSize = a}); - --- | The description for the snapshot. -sDescription :: Lens' Snapshot Text -sDescription = lens _sDescription (\ s a -> s{_sDescription = a}); - --- | The time stamp when the snapshot was initiated. -sStartTime :: Lens' Snapshot UTCTime -sStartTime = lens _sStartTime (\ s a -> s{_sStartTime = a}) . _Time; - --- | The progress of the snapshot, as a percentage. -sProgress :: Lens' Snapshot Text -sProgress = lens _sProgress (\ s a -> s{_sProgress = a}); - --- | The snapshot state. -sState :: Lens' Snapshot SnapshotState -sState = lens _sState (\ s a -> s{_sState = a}); - --- | Indicates whether the snapshot is encrypted. -sEncrypted :: Lens' Snapshot Bool -sEncrypted = lens _sEncrypted (\ s a -> s{_sEncrypted = a}); - -instance FromXML Snapshot where - parseXML x - = Snapshot' <$> - (x .@? "statusMessage") <*> (x .@? "ownerAlias") <*> - (x .@? "dataEncryptionKeyId") - <*> (x .@? "kmsKeyId") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "snapshotId") - <*> (x .@ "ownerId") - <*> (x .@ "volumeId") - <*> (x .@ "volumeSize") - <*> (x .@ "description") - <*> (x .@ "startTime") - <*> (x .@ "progress") - <*> (x .@ "status") - <*> (x .@ "encrypted") - -instance Hashable Snapshot where - -instance NFData Snapshot where - --- | Describes the snapshot created from the imported disk. --- --- --- --- /See:/ 'snapshotDetail' smart constructor. -data SnapshotDetail = SnapshotDetail' - { _sdStatus :: !(Maybe Text) - , _sdProgress :: !(Maybe Text) - , _sdFormat :: !(Maybe Text) - , _sdURL :: !(Maybe Text) - , _sdDeviceName :: !(Maybe Text) - , _sdStatusMessage :: !(Maybe Text) - , _sdUserBucket :: !(Maybe UserBucketDetails) - , _sdDiskImageSize :: !(Maybe Double) - , _sdDescription :: !(Maybe Text) - , _sdSnapshotId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SnapshotDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdStatus' - A brief status of the snapshot creation. --- --- * 'sdProgress' - The percentage of progress for the task. --- --- * 'sdFormat' - The format of the disk image from which the snapshot is created. --- --- * 'sdURL' - The URL used to access the disk image. --- --- * 'sdDeviceName' - The block device mapping for the snapshot. --- --- * 'sdStatusMessage' - A detailed status message for the snapshot creation. --- --- * 'sdUserBucket' - The S3 bucket for the disk image. --- --- * 'sdDiskImageSize' - The size of the disk in the snapshot, in GiB. --- --- * 'sdDescription' - A description for the snapshot. --- --- * 'sdSnapshotId' - The snapshot ID of the disk being imported. -snapshotDetail - :: SnapshotDetail -snapshotDetail = - SnapshotDetail' - { _sdStatus = Nothing - , _sdProgress = Nothing - , _sdFormat = Nothing - , _sdURL = Nothing - , _sdDeviceName = Nothing - , _sdStatusMessage = Nothing - , _sdUserBucket = Nothing - , _sdDiskImageSize = Nothing - , _sdDescription = Nothing - , _sdSnapshotId = Nothing - } - - --- | A brief status of the snapshot creation. -sdStatus :: Lens' SnapshotDetail (Maybe Text) -sdStatus = lens _sdStatus (\ s a -> s{_sdStatus = a}); - --- | The percentage of progress for the task. -sdProgress :: Lens' SnapshotDetail (Maybe Text) -sdProgress = lens _sdProgress (\ s a -> s{_sdProgress = a}); - --- | The format of the disk image from which the snapshot is created. -sdFormat :: Lens' SnapshotDetail (Maybe Text) -sdFormat = lens _sdFormat (\ s a -> s{_sdFormat = a}); - --- | The URL used to access the disk image. -sdURL :: Lens' SnapshotDetail (Maybe Text) -sdURL = lens _sdURL (\ s a -> s{_sdURL = a}); - --- | The block device mapping for the snapshot. -sdDeviceName :: Lens' SnapshotDetail (Maybe Text) -sdDeviceName = lens _sdDeviceName (\ s a -> s{_sdDeviceName = a}); - --- | A detailed status message for the snapshot creation. -sdStatusMessage :: Lens' SnapshotDetail (Maybe Text) -sdStatusMessage = lens _sdStatusMessage (\ s a -> s{_sdStatusMessage = a}); - --- | The S3 bucket for the disk image. -sdUserBucket :: Lens' SnapshotDetail (Maybe UserBucketDetails) -sdUserBucket = lens _sdUserBucket (\ s a -> s{_sdUserBucket = a}); - --- | The size of the disk in the snapshot, in GiB. -sdDiskImageSize :: Lens' SnapshotDetail (Maybe Double) -sdDiskImageSize = lens _sdDiskImageSize (\ s a -> s{_sdDiskImageSize = a}); - --- | A description for the snapshot. -sdDescription :: Lens' SnapshotDetail (Maybe Text) -sdDescription = lens _sdDescription (\ s a -> s{_sdDescription = a}); - --- | The snapshot ID of the disk being imported. -sdSnapshotId :: Lens' SnapshotDetail (Maybe Text) -sdSnapshotId = lens _sdSnapshotId (\ s a -> s{_sdSnapshotId = a}); - -instance FromXML SnapshotDetail where - parseXML x - = SnapshotDetail' <$> - (x .@? "status") <*> (x .@? "progress") <*> - (x .@? "format") - <*> (x .@? "url") - <*> (x .@? "deviceName") - <*> (x .@? "statusMessage") - <*> (x .@? "userBucket") - <*> (x .@? "diskImageSize") - <*> (x .@? "description") - <*> (x .@? "snapshotId") - -instance Hashable SnapshotDetail where - -instance NFData SnapshotDetail where - --- | The disk container object for the import snapshot request. --- --- --- --- /See:/ 'snapshotDiskContainer' smart constructor. -data SnapshotDiskContainer = SnapshotDiskContainer' - { _sdcFormat :: !(Maybe Text) - , _sdcURL :: !(Maybe Text) - , _sdcUserBucket :: !(Maybe UserBucket) - , _sdcDescription :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SnapshotDiskContainer' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdcFormat' - The format of the disk image being imported. Valid values: @RAW@ | @VHD@ | @VMDK@ | @OVA@ --- --- * 'sdcURL' - The URL to the Amazon S3-based disk image being imported. It can either be a https URL (https://..) or an Amazon S3 URL (s3://..). --- --- * 'sdcUserBucket' - The S3 bucket for the disk image. --- --- * 'sdcDescription' - The description of the disk image being imported. -snapshotDiskContainer - :: SnapshotDiskContainer -snapshotDiskContainer = - SnapshotDiskContainer' - { _sdcFormat = Nothing - , _sdcURL = Nothing - , _sdcUserBucket = Nothing - , _sdcDescription = Nothing - } - - --- | The format of the disk image being imported. Valid values: @RAW@ | @VHD@ | @VMDK@ | @OVA@ -sdcFormat :: Lens' SnapshotDiskContainer (Maybe Text) -sdcFormat = lens _sdcFormat (\ s a -> s{_sdcFormat = a}); - --- | The URL to the Amazon S3-based disk image being imported. It can either be a https URL (https://..) or an Amazon S3 URL (s3://..). -sdcURL :: Lens' SnapshotDiskContainer (Maybe Text) -sdcURL = lens _sdcURL (\ s a -> s{_sdcURL = a}); - --- | The S3 bucket for the disk image. -sdcUserBucket :: Lens' SnapshotDiskContainer (Maybe UserBucket) -sdcUserBucket = lens _sdcUserBucket (\ s a -> s{_sdcUserBucket = a}); - --- | The description of the disk image being imported. -sdcDescription :: Lens' SnapshotDiskContainer (Maybe Text) -sdcDescription = lens _sdcDescription (\ s a -> s{_sdcDescription = a}); - -instance Hashable SnapshotDiskContainer where - -instance NFData SnapshotDiskContainer where - -instance ToQuery SnapshotDiskContainer where - toQuery SnapshotDiskContainer'{..} - = mconcat - ["Format" =: _sdcFormat, "Url" =: _sdcURL, - "UserBucket" =: _sdcUserBucket, - "Description" =: _sdcDescription] - --- | Details about the import snapshot task. --- --- --- --- /See:/ 'snapshotTaskDetail' smart constructor. -data SnapshotTaskDetail = SnapshotTaskDetail' - { _stdStatus :: !(Maybe Text) - , _stdProgress :: !(Maybe Text) - , _stdFormat :: !(Maybe Text) - , _stdURL :: !(Maybe Text) - , _stdStatusMessage :: !(Maybe Text) - , _stdUserBucket :: !(Maybe UserBucketDetails) - , _stdDiskImageSize :: !(Maybe Double) - , _stdDescription :: !(Maybe Text) - , _stdSnapshotId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SnapshotTaskDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'stdStatus' - A brief status for the import snapshot task. --- --- * 'stdProgress' - The percentage of completion for the import snapshot task. --- --- * 'stdFormat' - The format of the disk image from which the snapshot is created. --- --- * 'stdURL' - The URL of the disk image from which the snapshot is created. --- --- * 'stdStatusMessage' - A detailed status message for the import snapshot task. --- --- * 'stdUserBucket' - The S3 bucket for the disk image. --- --- * 'stdDiskImageSize' - The size of the disk in the snapshot, in GiB. --- --- * 'stdDescription' - The description of the snapshot. --- --- * 'stdSnapshotId' - The snapshot ID of the disk being imported. -snapshotTaskDetail - :: SnapshotTaskDetail -snapshotTaskDetail = - SnapshotTaskDetail' - { _stdStatus = Nothing - , _stdProgress = Nothing - , _stdFormat = Nothing - , _stdURL = Nothing - , _stdStatusMessage = Nothing - , _stdUserBucket = Nothing - , _stdDiskImageSize = Nothing - , _stdDescription = Nothing - , _stdSnapshotId = Nothing - } - - --- | A brief status for the import snapshot task. -stdStatus :: Lens' SnapshotTaskDetail (Maybe Text) -stdStatus = lens _stdStatus (\ s a -> s{_stdStatus = a}); - --- | The percentage of completion for the import snapshot task. -stdProgress :: Lens' SnapshotTaskDetail (Maybe Text) -stdProgress = lens _stdProgress (\ s a -> s{_stdProgress = a}); - --- | The format of the disk image from which the snapshot is created. -stdFormat :: Lens' SnapshotTaskDetail (Maybe Text) -stdFormat = lens _stdFormat (\ s a -> s{_stdFormat = a}); - --- | The URL of the disk image from which the snapshot is created. -stdURL :: Lens' SnapshotTaskDetail (Maybe Text) -stdURL = lens _stdURL (\ s a -> s{_stdURL = a}); - --- | A detailed status message for the import snapshot task. -stdStatusMessage :: Lens' SnapshotTaskDetail (Maybe Text) -stdStatusMessage = lens _stdStatusMessage (\ s a -> s{_stdStatusMessage = a}); - --- | The S3 bucket for the disk image. -stdUserBucket :: Lens' SnapshotTaskDetail (Maybe UserBucketDetails) -stdUserBucket = lens _stdUserBucket (\ s a -> s{_stdUserBucket = a}); - --- | The size of the disk in the snapshot, in GiB. -stdDiskImageSize :: Lens' SnapshotTaskDetail (Maybe Double) -stdDiskImageSize = lens _stdDiskImageSize (\ s a -> s{_stdDiskImageSize = a}); - --- | The description of the snapshot. -stdDescription :: Lens' SnapshotTaskDetail (Maybe Text) -stdDescription = lens _stdDescription (\ s a -> s{_stdDescription = a}); - --- | The snapshot ID of the disk being imported. -stdSnapshotId :: Lens' SnapshotTaskDetail (Maybe Text) -stdSnapshotId = lens _stdSnapshotId (\ s a -> s{_stdSnapshotId = a}); - -instance FromXML SnapshotTaskDetail where - parseXML x - = SnapshotTaskDetail' <$> - (x .@? "status") <*> (x .@? "progress") <*> - (x .@? "format") - <*> (x .@? "url") - <*> (x .@? "statusMessage") - <*> (x .@? "userBucket") - <*> (x .@? "diskImageSize") - <*> (x .@? "description") - <*> (x .@? "snapshotId") - -instance Hashable SnapshotTaskDetail where - -instance NFData SnapshotTaskDetail where - --- | Describes the data feed for a Spot instance. --- --- --- --- /See:/ 'spotDatafeedSubscription' smart constructor. -data SpotDatafeedSubscription = SpotDatafeedSubscription' - { _sdsState :: !(Maybe DatafeedSubscriptionState) - , _sdsPrefix :: !(Maybe Text) - , _sdsBucket :: !(Maybe Text) - , _sdsOwnerId :: !(Maybe Text) - , _sdsFault :: !(Maybe SpotInstanceStateFault) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotDatafeedSubscription' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sdsState' - The state of the Spot instance data feed subscription. --- --- * 'sdsPrefix' - The prefix that is prepended to data feed files. --- --- * 'sdsBucket' - The Amazon S3 bucket where the Spot instance data feed is located. --- --- * 'sdsOwnerId' - The AWS account ID of the account. --- --- * 'sdsFault' - The fault codes for the Spot instance request, if any. -spotDatafeedSubscription - :: SpotDatafeedSubscription -spotDatafeedSubscription = - SpotDatafeedSubscription' - { _sdsState = Nothing - , _sdsPrefix = Nothing - , _sdsBucket = Nothing - , _sdsOwnerId = Nothing - , _sdsFault = Nothing - } - - --- | The state of the Spot instance data feed subscription. -sdsState :: Lens' SpotDatafeedSubscription (Maybe DatafeedSubscriptionState) -sdsState = lens _sdsState (\ s a -> s{_sdsState = a}); - --- | The prefix that is prepended to data feed files. -sdsPrefix :: Lens' SpotDatafeedSubscription (Maybe Text) -sdsPrefix = lens _sdsPrefix (\ s a -> s{_sdsPrefix = a}); - --- | The Amazon S3 bucket where the Spot instance data feed is located. -sdsBucket :: Lens' SpotDatafeedSubscription (Maybe Text) -sdsBucket = lens _sdsBucket (\ s a -> s{_sdsBucket = a}); - --- | The AWS account ID of the account. -sdsOwnerId :: Lens' SpotDatafeedSubscription (Maybe Text) -sdsOwnerId = lens _sdsOwnerId (\ s a -> s{_sdsOwnerId = a}); - --- | The fault codes for the Spot instance request, if any. -sdsFault :: Lens' SpotDatafeedSubscription (Maybe SpotInstanceStateFault) -sdsFault = lens _sdsFault (\ s a -> s{_sdsFault = a}); - -instance FromXML SpotDatafeedSubscription where - parseXML x - = SpotDatafeedSubscription' <$> - (x .@? "state") <*> (x .@? "prefix") <*> - (x .@? "bucket") - <*> (x .@? "ownerId") - <*> (x .@? "fault") - -instance Hashable SpotDatafeedSubscription where - -instance NFData SpotDatafeedSubscription where - --- | Describes the launch specification for one or more Spot instances. --- --- --- --- /See:/ 'spotFleetLaunchSpecification' smart constructor. -data SpotFleetLaunchSpecification = SpotFleetLaunchSpecification' - { _sflsSecurityGroups :: !(Maybe [GroupIdentifier]) - , _sflsSpotPrice :: !(Maybe Text) - , _sflsWeightedCapacity :: !(Maybe Double) - , _sflsKeyName :: !(Maybe Text) - , _sflsNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) - , _sflsRAMDiskId :: !(Maybe Text) - , _sflsSubnetId :: !(Maybe Text) - , _sflsKernelId :: !(Maybe Text) - , _sflsInstanceType :: !(Maybe InstanceType) - , _sflsEBSOptimized :: !(Maybe Bool) - , _sflsUserData :: !(Maybe Text) - , _sflsMonitoring :: !(Maybe SpotFleetMonitoring) - , _sflsTagSpecifications :: !(Maybe [SpotFleetTagSpecification]) - , _sflsIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) - , _sflsImageId :: !(Maybe Text) - , _sflsAddressingType :: !(Maybe Text) - , _sflsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) - , _sflsPlacement :: !(Maybe SpotPlacement) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotFleetLaunchSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sflsSecurityGroups' - 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. --- --- * 'sflsSpotPrice' - The bid price per unit hour for the specified instance type. If this value is not specified, the default is the Spot bid price specified for the fleet. To determine the bid price per unit hour, divide the Spot bid price by the value of @WeightedCapacity@ . --- --- * 'sflsWeightedCapacity' - The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms (instances or a performance characteristic such as vCPUs, memory, or I/O). If the target capacity divided by this value is not a whole number, we round the number of instances to the next whole number. If this value is not specified, the default is 1. --- --- * 'sflsKeyName' - The name of the key pair. --- --- * 'sflsNetworkInterfaces' - One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. --- --- * 'sflsRAMDiskId' - The ID of the RAM disk. --- --- * 'sflsSubnetId' - The ID of the subnet in which to launch the instances. To specify multiple subnets, separate them using commas; for example, "subnet-a61dafcf, subnet-65ea5f08". --- --- * 'sflsKernelId' - The ID of the kernel. --- --- * 'sflsInstanceType' - The instance type. Note that T2 and HS1 instance types are not supported. --- --- * 'sflsEBSOptimized' - Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ --- --- * 'sflsUserData' - The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. --- --- * 'sflsMonitoring' - Enable or disable monitoring for the instances. --- --- * 'sflsTagSpecifications' - The tags to apply during creation. --- --- * 'sflsIAMInstanceProfile' - The IAM instance profile. --- --- * 'sflsImageId' - The ID of the AMI. --- --- * 'sflsAddressingType' - Deprecated. --- --- * 'sflsBlockDeviceMappings' - One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. --- --- * 'sflsPlacement' - The placement information. -spotFleetLaunchSpecification - :: SpotFleetLaunchSpecification -spotFleetLaunchSpecification = - SpotFleetLaunchSpecification' - { _sflsSecurityGroups = Nothing - , _sflsSpotPrice = Nothing - , _sflsWeightedCapacity = Nothing - , _sflsKeyName = Nothing - , _sflsNetworkInterfaces = Nothing - , _sflsRAMDiskId = Nothing - , _sflsSubnetId = Nothing - , _sflsKernelId = Nothing - , _sflsInstanceType = Nothing - , _sflsEBSOptimized = Nothing - , _sflsUserData = Nothing - , _sflsMonitoring = Nothing - , _sflsTagSpecifications = Nothing - , _sflsIAMInstanceProfile = Nothing - , _sflsImageId = Nothing - , _sflsAddressingType = Nothing - , _sflsBlockDeviceMappings = Nothing - , _sflsPlacement = Nothing - } - - --- | 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; - --- | The bid price per unit hour for the specified instance type. If this value is not specified, the default is the Spot bid price specified for the fleet. To determine the bid price per unit hour, divide the Spot bid price by the value of @WeightedCapacity@ . -sflsSpotPrice :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsSpotPrice = lens _sflsSpotPrice (\ s a -> s{_sflsSpotPrice = a}); - --- | The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms (instances or a performance characteristic such as vCPUs, memory, or I/O). If the target capacity divided by this value is not a whole number, we round the number of instances to the next whole number. If this value is not specified, the default is 1. -sflsWeightedCapacity :: Lens' SpotFleetLaunchSpecification (Maybe Double) -sflsWeightedCapacity = lens _sflsWeightedCapacity (\ s a -> s{_sflsWeightedCapacity = a}); - --- | The name of the key pair. -sflsKeyName :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsKeyName = lens _sflsKeyName (\ s a -> s{_sflsKeyName = a}); - --- | One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. -sflsNetworkInterfaces :: Lens' SpotFleetLaunchSpecification [InstanceNetworkInterfaceSpecification] -sflsNetworkInterfaces = lens _sflsNetworkInterfaces (\ s a -> s{_sflsNetworkInterfaces = a}) . _Default . _Coerce; - --- | The ID of the RAM disk. -sflsRAMDiskId :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsRAMDiskId = lens _sflsRAMDiskId (\ s a -> s{_sflsRAMDiskId = a}); - --- | The ID of the subnet in which to launch the instances. To specify multiple subnets, separate them using commas; for example, "subnet-a61dafcf, subnet-65ea5f08". -sflsSubnetId :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsSubnetId = lens _sflsSubnetId (\ s a -> s{_sflsSubnetId = a}); - --- | The ID of the kernel. -sflsKernelId :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsKernelId = lens _sflsKernelId (\ s a -> s{_sflsKernelId = a}); - --- | The instance type. Note that T2 and HS1 instance types are not supported. -sflsInstanceType :: Lens' SpotFleetLaunchSpecification (Maybe InstanceType) -sflsInstanceType = lens _sflsInstanceType (\ s a -> s{_sflsInstanceType = a}); - --- | Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ -sflsEBSOptimized :: Lens' SpotFleetLaunchSpecification (Maybe Bool) -sflsEBSOptimized = lens _sflsEBSOptimized (\ s a -> s{_sflsEBSOptimized = a}); - --- | The user data to make available to the instances. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. -sflsUserData :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsUserData = lens _sflsUserData (\ s a -> s{_sflsUserData = a}); - --- | Enable or disable monitoring for the instances. -sflsMonitoring :: Lens' SpotFleetLaunchSpecification (Maybe SpotFleetMonitoring) -sflsMonitoring = lens _sflsMonitoring (\ s a -> s{_sflsMonitoring = a}); - --- | The tags to apply during creation. -sflsTagSpecifications :: Lens' SpotFleetLaunchSpecification [SpotFleetTagSpecification] -sflsTagSpecifications = lens _sflsTagSpecifications (\ s a -> s{_sflsTagSpecifications = a}) . _Default . _Coerce; - --- | The IAM instance profile. -sflsIAMInstanceProfile :: Lens' SpotFleetLaunchSpecification (Maybe IAMInstanceProfileSpecification) -sflsIAMInstanceProfile = lens _sflsIAMInstanceProfile (\ s a -> s{_sflsIAMInstanceProfile = a}); - --- | The ID of the AMI. -sflsImageId :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsImageId = lens _sflsImageId (\ s a -> s{_sflsImageId = a}); - --- | Deprecated. -sflsAddressingType :: Lens' SpotFleetLaunchSpecification (Maybe Text) -sflsAddressingType = lens _sflsAddressingType (\ s a -> s{_sflsAddressingType = a}); - --- | One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. -sflsBlockDeviceMappings :: Lens' SpotFleetLaunchSpecification [BlockDeviceMapping] -sflsBlockDeviceMappings = lens _sflsBlockDeviceMappings (\ s a -> s{_sflsBlockDeviceMappings = a}) . _Default . _Coerce; - --- | The placement information. -sflsPlacement :: Lens' SpotFleetLaunchSpecification (Maybe SpotPlacement) -sflsPlacement = lens _sflsPlacement (\ s a -> s{_sflsPlacement = a}); - -instance FromXML SpotFleetLaunchSpecification where - parseXML x - = SpotFleetLaunchSpecification' <$> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "spotPrice") - <*> (x .@? "weightedCapacity") - <*> (x .@? "keyName") - <*> - (x .@? "networkInterfaceSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "ramdiskId") - <*> (x .@? "subnetId") - <*> (x .@? "kernelId") - <*> (x .@? "instanceType") - <*> (x .@? "ebsOptimized") - <*> (x .@? "userData") - <*> (x .@? "monitoring") - <*> - (x .@? "tagSpecificationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "iamInstanceProfile") - <*> (x .@? "imageId") - <*> (x .@? "addressingType") - <*> - (x .@? "blockDeviceMapping" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "placement") - -instance Hashable SpotFleetLaunchSpecification where - -instance NFData SpotFleetLaunchSpecification where - -instance ToQuery SpotFleetLaunchSpecification where - toQuery SpotFleetLaunchSpecification'{..} - = mconcat - [toQuery - (toQueryList "GroupSet" <$> _sflsSecurityGroups), - "SpotPrice" =: _sflsSpotPrice, - "WeightedCapacity" =: _sflsWeightedCapacity, - "KeyName" =: _sflsKeyName, - toQuery - (toQueryList "NetworkInterfaceSet" <$> - _sflsNetworkInterfaces), - "RamdiskId" =: _sflsRAMDiskId, - "SubnetId" =: _sflsSubnetId, - "KernelId" =: _sflsKernelId, - "InstanceType" =: _sflsInstanceType, - "EbsOptimized" =: _sflsEBSOptimized, - "UserData" =: _sflsUserData, - "Monitoring" =: _sflsMonitoring, - toQuery - (toQueryList "TagSpecificationSet" <$> - _sflsTagSpecifications), - "IamInstanceProfile" =: _sflsIAMInstanceProfile, - "ImageId" =: _sflsImageId, - "AddressingType" =: _sflsAddressingType, - toQuery - (toQueryList "BlockDeviceMapping" <$> - _sflsBlockDeviceMappings), - "Placement" =: _sflsPlacement] - --- | Describes whether monitoring is enabled. --- --- --- --- /See:/ 'spotFleetMonitoring' smart constructor. -newtype SpotFleetMonitoring = SpotFleetMonitoring' - { _sfmEnabled :: Maybe Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotFleetMonitoring' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sfmEnabled' - Enables monitoring for the instance. Default: @false@ -spotFleetMonitoring - :: SpotFleetMonitoring -spotFleetMonitoring = SpotFleetMonitoring' {_sfmEnabled = Nothing} - - --- | Enables monitoring for the instance. Default: @false@ -sfmEnabled :: Lens' SpotFleetMonitoring (Maybe Bool) -sfmEnabled = lens _sfmEnabled (\ s a -> s{_sfmEnabled = a}); - -instance FromXML SpotFleetMonitoring where - parseXML x - = SpotFleetMonitoring' <$> (x .@? "enabled") - -instance Hashable SpotFleetMonitoring where - -instance NFData SpotFleetMonitoring where - -instance ToQuery SpotFleetMonitoring where - toQuery SpotFleetMonitoring'{..} - = mconcat ["Enabled" =: _sfmEnabled] - --- | Describes a Spot fleet request. --- --- --- --- /See:/ 'spotFleetRequestConfig' smart constructor. -data SpotFleetRequestConfig = SpotFleetRequestConfig' - { _sfrcActivityStatus :: !(Maybe ActivityStatus) - , _sfrcCreateTime :: !ISO8601 - , _sfrcSpotFleetRequestConfig :: !SpotFleetRequestConfigData - , _sfrcSpotFleetRequestId :: !Text - , _sfrcSpotFleetRequestState :: !BatchState - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotFleetRequestConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sfrcActivityStatus' - The progress of the Spot fleet request. If there is an error, the status is @error@ . After all bids are placed, the status is @pending_fulfillment@ . If the size of the fleet is equal to or greater than its target capacity, the status is @fulfilled@ . If the size of the fleet is decreased, the status is @pending_termination@ while Spot instances are terminating. --- --- * 'sfrcCreateTime' - The creation date and time of the request. --- --- * 'sfrcSpotFleetRequestConfig' - Information about the configuration of the Spot fleet request. --- --- * 'sfrcSpotFleetRequestId' - The ID of the Spot fleet request. --- --- * 'sfrcSpotFleetRequestState' - The state of the Spot fleet request. -spotFleetRequestConfig - :: UTCTime -- ^ 'sfrcCreateTime' - -> SpotFleetRequestConfigData -- ^ 'sfrcSpotFleetRequestConfig' - -> Text -- ^ 'sfrcSpotFleetRequestId' - -> BatchState -- ^ 'sfrcSpotFleetRequestState' - -> SpotFleetRequestConfig -spotFleetRequestConfig pCreateTime_ pSpotFleetRequestConfig_ pSpotFleetRequestId_ pSpotFleetRequestState_ = - SpotFleetRequestConfig' - { _sfrcActivityStatus = Nothing - , _sfrcCreateTime = _Time # pCreateTime_ - , _sfrcSpotFleetRequestConfig = pSpotFleetRequestConfig_ - , _sfrcSpotFleetRequestId = pSpotFleetRequestId_ - , _sfrcSpotFleetRequestState = pSpotFleetRequestState_ - } - - --- | The progress of the Spot fleet request. If there is an error, the status is @error@ . After all bids are placed, the status is @pending_fulfillment@ . If the size of the fleet is equal to or greater than its target capacity, the status is @fulfilled@ . If the size of the fleet is decreased, the status is @pending_termination@ while Spot instances are terminating. -sfrcActivityStatus :: Lens' SpotFleetRequestConfig (Maybe ActivityStatus) -sfrcActivityStatus = lens _sfrcActivityStatus (\ s a -> s{_sfrcActivityStatus = a}); - --- | The creation date and time of the request. -sfrcCreateTime :: Lens' SpotFleetRequestConfig UTCTime -sfrcCreateTime = lens _sfrcCreateTime (\ s a -> s{_sfrcCreateTime = a}) . _Time; - --- | Information about the configuration of the Spot fleet request. -sfrcSpotFleetRequestConfig :: Lens' SpotFleetRequestConfig SpotFleetRequestConfigData -sfrcSpotFleetRequestConfig = lens _sfrcSpotFleetRequestConfig (\ s a -> s{_sfrcSpotFleetRequestConfig = a}); - --- | The ID of the Spot fleet request. -sfrcSpotFleetRequestId :: Lens' SpotFleetRequestConfig Text -sfrcSpotFleetRequestId = lens _sfrcSpotFleetRequestId (\ s a -> s{_sfrcSpotFleetRequestId = a}); - --- | The state of the Spot fleet request. -sfrcSpotFleetRequestState :: Lens' SpotFleetRequestConfig BatchState -sfrcSpotFleetRequestState = lens _sfrcSpotFleetRequestState (\ s a -> s{_sfrcSpotFleetRequestState = a}); - -instance FromXML SpotFleetRequestConfig where - parseXML x - = SpotFleetRequestConfig' <$> - (x .@? "activityStatus") <*> (x .@ "createTime") <*> - (x .@ "spotFleetRequestConfig") - <*> (x .@ "spotFleetRequestId") - <*> (x .@ "spotFleetRequestState") - -instance Hashable SpotFleetRequestConfig where - -instance NFData SpotFleetRequestConfig where - --- | Describes the configuration of a Spot fleet request. --- --- --- --- /See:/ 'spotFleetRequestConfigData' smart constructor. -data SpotFleetRequestConfigData = SpotFleetRequestConfigData' - { _sfrcdClientToken :: !(Maybe Text) - , _sfrcdInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) - , _sfrcdLoadBalancersConfig :: !(Maybe LoadBalancersConfig) - , _sfrcdExcessCapacityTerminationPolicy :: !(Maybe ExcessCapacityTerminationPolicy) - , _sfrcdValidUntil :: !(Maybe ISO8601) - , _sfrcdTerminateInstancesWithExpiration :: !(Maybe Bool) - , _sfrcdFulfilledCapacity :: !(Maybe Double) - , _sfrcdType :: !(Maybe FleetType) - , _sfrcdValidFrom :: !(Maybe ISO8601) - , _sfrcdReplaceUnhealthyInstances :: !(Maybe Bool) - , _sfrcdAllocationStrategy :: !(Maybe AllocationStrategy) - , _sfrcdIAMFleetRole :: !Text - , _sfrcdLaunchSpecifications :: !(List1 SpotFleetLaunchSpecification) - , _sfrcdSpotPrice :: !Text - , _sfrcdTargetCapacity :: !Int - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotFleetRequestConfigData' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sfrcdClientToken' - A unique, case-sensitive identifier you provide to ensure idempotency of your listings. This helps avoid duplicate listings. For more information, see . --- --- * 'sfrcdInstanceInterruptionBehavior' - Indicates whether a Spot instance stops or terminates when it is interrupted. --- --- * 'sfrcdLoadBalancersConfig' - One or more Classic Load Balancers and target groups to attach to the Spot fleet request. Spot fleet registers the running Spot instances with the specified Classic Load Balancers and target groups. With Network Load Balancers, Spot fleet cannot register instances that have the following instance types: C1, CC1, CC2, CG1, CG2, CR1, CS1, G1, G2, HI1, HS1, M1, M2, M3, and T1. --- --- * 'sfrcdExcessCapacityTerminationPolicy' - 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. --- --- * 'sfrcdValidUntil' - 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. --- --- * 'sfrcdTerminateInstancesWithExpiration' - Indicates whether running Spot instances should be terminated when the Spot fleet request expires. --- --- * 'sfrcdFulfilledCapacity' - The number of units fulfilled by this request compared to the set target capacity. --- --- * 'sfrcdType' - The type of request. Indicates whether the fleet will only @request@ the target capacity or also attempt to @maintain@ it. When you @request@ a certain target capacity, the fleet will only place the required bids. It will not attempt to replenish Spot instances if capacity is diminished, nor will it submit bids in alternative Spot pools if capacity is not available. When you want to @maintain@ a certain target capacity, fleet will place the required bids to meet this target capacity. It will also automatically replenish any interrupted instances. Default: @maintain@ . --- --- * 'sfrcdValidFrom' - The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. --- --- * 'sfrcdReplaceUnhealthyInstances' - Indicates whether Spot fleet should replace unhealthy instances. --- --- * 'sfrcdAllocationStrategy' - Indicates how to allocate the target capacity across the Spot pools specified by the Spot fleet request. The default is @lowestPrice@ . --- --- * 'sfrcdIAMFleetRole' - Grants the Spot fleet permission to terminate Spot instances on your behalf when you cancel its Spot fleet request using 'CancelSpotFleetRequests' or when the Spot fleet request expires, if you set @terminateInstancesWithExpiration@ . --- --- * 'sfrcdLaunchSpecifications' - Information about the launch specifications for the Spot fleet request. --- --- * 'sfrcdSpotPrice' - The bid price per unit hour. --- --- * 'sfrcdTargetCapacity' - The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. -spotFleetRequestConfigData - :: Text -- ^ 'sfrcdIAMFleetRole' - -> NonEmpty SpotFleetLaunchSpecification -- ^ 'sfrcdLaunchSpecifications' - -> Text -- ^ 'sfrcdSpotPrice' - -> Int -- ^ 'sfrcdTargetCapacity' - -> SpotFleetRequestConfigData -spotFleetRequestConfigData pIAMFleetRole_ pLaunchSpecifications_ pSpotPrice_ pTargetCapacity_ = - SpotFleetRequestConfigData' - { _sfrcdClientToken = Nothing - , _sfrcdInstanceInterruptionBehavior = Nothing - , _sfrcdLoadBalancersConfig = Nothing - , _sfrcdExcessCapacityTerminationPolicy = Nothing - , _sfrcdValidUntil = Nothing - , _sfrcdTerminateInstancesWithExpiration = Nothing - , _sfrcdFulfilledCapacity = Nothing - , _sfrcdType = Nothing - , _sfrcdValidFrom = Nothing - , _sfrcdReplaceUnhealthyInstances = Nothing - , _sfrcdAllocationStrategy = Nothing - , _sfrcdIAMFleetRole = pIAMFleetRole_ - , _sfrcdLaunchSpecifications = _List1 # pLaunchSpecifications_ - , _sfrcdSpotPrice = pSpotPrice_ - , _sfrcdTargetCapacity = pTargetCapacity_ - } - - --- | A unique, case-sensitive identifier you provide to ensure idempotency of your listings. This helps avoid duplicate listings. For more information, see . -sfrcdClientToken :: Lens' SpotFleetRequestConfigData (Maybe Text) -sfrcdClientToken = lens _sfrcdClientToken (\ s a -> s{_sfrcdClientToken = a}); - --- | Indicates whether a Spot instance stops or terminates when it is interrupted. -sfrcdInstanceInterruptionBehavior :: Lens' SpotFleetRequestConfigData (Maybe InstanceInterruptionBehavior) -sfrcdInstanceInterruptionBehavior = lens _sfrcdInstanceInterruptionBehavior (\ s a -> s{_sfrcdInstanceInterruptionBehavior = a}); - --- | One or more Classic Load Balancers and target groups to attach to the Spot fleet request. Spot fleet registers the running Spot instances with the specified Classic Load Balancers and target groups. With Network Load Balancers, Spot fleet cannot register instances that have the following instance types: C1, CC1, CC2, CG1, CG2, CR1, CS1, G1, G2, HI1, HS1, M1, M2, M3, and T1. -sfrcdLoadBalancersConfig :: Lens' SpotFleetRequestConfigData (Maybe LoadBalancersConfig) -sfrcdLoadBalancersConfig = lens _sfrcdLoadBalancersConfig (\ s a -> s{_sfrcdLoadBalancersConfig = 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. -sfrcdValidUntil :: Lens' SpotFleetRequestConfigData (Maybe UTCTime) -sfrcdValidUntil = lens _sfrcdValidUntil (\ s a -> s{_sfrcdValidUntil = a}) . mapping _Time; - --- | Indicates whether running Spot instances should be terminated when the Spot fleet request expires. -sfrcdTerminateInstancesWithExpiration :: Lens' SpotFleetRequestConfigData (Maybe Bool) -sfrcdTerminateInstancesWithExpiration = lens _sfrcdTerminateInstancesWithExpiration (\ s a -> s{_sfrcdTerminateInstancesWithExpiration = a}); - --- | The number of units fulfilled by this request compared to the set target capacity. -sfrcdFulfilledCapacity :: Lens' SpotFleetRequestConfigData (Maybe Double) -sfrcdFulfilledCapacity = lens _sfrcdFulfilledCapacity (\ s a -> s{_sfrcdFulfilledCapacity = a}); - --- | The type of request. Indicates whether the fleet will only @request@ the target capacity or also attempt to @maintain@ it. When you @request@ a certain target capacity, the fleet will only place the required bids. It will not attempt to replenish Spot instances if capacity is diminished, nor will it submit bids in alternative Spot pools if capacity is not available. When you want to @maintain@ a certain target capacity, fleet will place the required bids to meet this target capacity. It will also automatically replenish any interrupted instances. Default: @maintain@ . -sfrcdType :: Lens' SpotFleetRequestConfigData (Maybe FleetType) -sfrcdType = lens _sfrcdType (\ s a -> s{_sfrcdType = a}); - --- | The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. -sfrcdValidFrom :: Lens' SpotFleetRequestConfigData (Maybe UTCTime) -sfrcdValidFrom = lens _sfrcdValidFrom (\ s a -> s{_sfrcdValidFrom = a}) . mapping _Time; - --- | Indicates whether Spot fleet should replace unhealthy instances. -sfrcdReplaceUnhealthyInstances :: Lens' SpotFleetRequestConfigData (Maybe Bool) -sfrcdReplaceUnhealthyInstances = lens _sfrcdReplaceUnhealthyInstances (\ s a -> s{_sfrcdReplaceUnhealthyInstances = a}); - --- | 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}); - --- | Grants the Spot fleet permission to terminate Spot instances on your behalf when you cancel its Spot fleet request using 'CancelSpotFleetRequests' or when the Spot fleet request expires, if you set @terminateInstancesWithExpiration@ . -sfrcdIAMFleetRole :: Lens' SpotFleetRequestConfigData Text -sfrcdIAMFleetRole = lens _sfrcdIAMFleetRole (\ s a -> s{_sfrcdIAMFleetRole = a}); - --- | Information about the launch specifications for the Spot fleet request. -sfrcdLaunchSpecifications :: Lens' SpotFleetRequestConfigData (NonEmpty SpotFleetLaunchSpecification) -sfrcdLaunchSpecifications = lens _sfrcdLaunchSpecifications (\ s a -> s{_sfrcdLaunchSpecifications = a}) . _List1; - --- | The bid price per unit hour. -sfrcdSpotPrice :: Lens' SpotFleetRequestConfigData Text -sfrcdSpotPrice = lens _sfrcdSpotPrice (\ s a -> s{_sfrcdSpotPrice = a}); - --- | The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. -sfrcdTargetCapacity :: Lens' SpotFleetRequestConfigData Int -sfrcdTargetCapacity = lens _sfrcdTargetCapacity (\ s a -> s{_sfrcdTargetCapacity = a}); - -instance FromXML SpotFleetRequestConfigData where - parseXML x - = SpotFleetRequestConfigData' <$> - (x .@? "clientToken") <*> - (x .@? "instanceInterruptionBehavior") - <*> (x .@? "loadBalancersConfig") - <*> (x .@? "excessCapacityTerminationPolicy") - <*> (x .@? "validUntil") - <*> (x .@? "terminateInstancesWithExpiration") - <*> (x .@? "fulfilledCapacity") - <*> (x .@? "type") - <*> (x .@? "validFrom") - <*> (x .@? "replaceUnhealthyInstances") - <*> (x .@? "allocationStrategy") - <*> (x .@ "iamFleetRole") - <*> - (x .@? "launchSpecifications" .!@ mempty >>= - parseXMLList1 "item") - <*> (x .@ "spotPrice") - <*> (x .@ "targetCapacity") - -instance Hashable SpotFleetRequestConfigData where - -instance NFData SpotFleetRequestConfigData where - -instance ToQuery SpotFleetRequestConfigData where - toQuery SpotFleetRequestConfigData'{..} - = mconcat - ["ClientToken" =: _sfrcdClientToken, - "InstanceInterruptionBehavior" =: - _sfrcdInstanceInterruptionBehavior, - "LoadBalancersConfig" =: _sfrcdLoadBalancersConfig, - "ExcessCapacityTerminationPolicy" =: - _sfrcdExcessCapacityTerminationPolicy, - "ValidUntil" =: _sfrcdValidUntil, - "TerminateInstancesWithExpiration" =: - _sfrcdTerminateInstancesWithExpiration, - "FulfilledCapacity" =: _sfrcdFulfilledCapacity, - "Type" =: _sfrcdType, "ValidFrom" =: _sfrcdValidFrom, - "ReplaceUnhealthyInstances" =: - _sfrcdReplaceUnhealthyInstances, - "AllocationStrategy" =: _sfrcdAllocationStrategy, - "IamFleetRole" =: _sfrcdIAMFleetRole, - toQueryList "LaunchSpecifications" - _sfrcdLaunchSpecifications, - "SpotPrice" =: _sfrcdSpotPrice, - "TargetCapacity" =: _sfrcdTargetCapacity] - --- | The tags for a Spot fleet resource. --- --- --- --- /See:/ 'spotFleetTagSpecification' smart constructor. -data SpotFleetTagSpecification = SpotFleetTagSpecification' - { _sftsResourceType :: !(Maybe ResourceType) - , _sftsTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotFleetTagSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sftsResourceType' - The type of resource. Currently, the only resource type that is supported is @instance@ . --- --- * 'sftsTags' - The tags. -spotFleetTagSpecification - :: SpotFleetTagSpecification -spotFleetTagSpecification = - SpotFleetTagSpecification' {_sftsResourceType = Nothing, _sftsTags = Nothing} - - --- | The type of resource. Currently, the only resource type that is supported is @instance@ . -sftsResourceType :: Lens' SpotFleetTagSpecification (Maybe ResourceType) -sftsResourceType = lens _sftsResourceType (\ s a -> s{_sftsResourceType = a}); - --- | The tags. -sftsTags :: Lens' SpotFleetTagSpecification [Tag] -sftsTags = lens _sftsTags (\ s a -> s{_sftsTags = a}) . _Default . _Coerce; - -instance FromXML SpotFleetTagSpecification where - parseXML x - = SpotFleetTagSpecification' <$> - (x .@? "resourceType") <*> - (x .@? "tag" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable SpotFleetTagSpecification where - -instance NFData SpotFleetTagSpecification where - -instance ToQuery SpotFleetTagSpecification where - toQuery SpotFleetTagSpecification'{..} - = mconcat - ["ResourceType" =: _sftsResourceType, - toQuery (toQueryList "Tag" <$> _sftsTags)] - --- | 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) - , _sirInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) - , _sirProductDescription :: !(Maybe RIProductDescription) - , _sirSpotPrice :: !(Maybe Text) - , _sirLaunchSpecification :: !(Maybe LaunchSpecification) - , _sirAvailabilityZoneGroup :: !(Maybe Text) - , _sirLaunchedAvailabilityZone :: !(Maybe Text) - , _sirValidUntil :: !(Maybe ISO8601) - , _sirLaunchGroup :: !(Maybe Text) - , _sirFault :: !(Maybe SpotInstanceStateFault) - , _sirSpotInstanceRequestId :: !(Maybe Text) - , _sirType :: !(Maybe SpotInstanceType) - , _sirValidFrom :: !(Maybe ISO8601) - , _sirCreateTime :: !(Maybe ISO8601) - , _sirTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotInstanceRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sirInstanceId' - The instance ID, if an instance has been launched to fulfill the Spot instance request. --- --- * 'sirStatus' - The status code and status message describing the Spot instance request. --- --- * 'sirState' - The state of the Spot instance request. Spot bid status information can help you track your Spot instance requests. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . --- --- * 'sirActualBlockHourlyPrice' - If you specified a duration and your Spot instance request was fulfilled, this is the fixed hourly price in effect for the Spot instance while it runs. --- --- * 'sirBlockDurationMinutes' - The duration for the Spot instance, in minutes. --- --- * 'sirInstanceInterruptionBehavior' - Indicates whether a Spot instance stops or terminates when it is interrupted. --- --- * 'sirProductDescription' - The product description associated with the Spot instance. --- --- * 'sirSpotPrice' - The maximum hourly price (bid) for the Spot instance launched to fulfill the request. --- --- * 'sirLaunchSpecification' - Additional information for launching instances. --- --- * 'sirAvailabilityZoneGroup' - The Availability Zone group. If you specify the same Availability Zone group for all Spot instance requests, all Spot instances are launched in the same Availability Zone. --- --- * 'sirLaunchedAvailabilityZone' - The Availability Zone in which the bid is launched. --- --- * 'sirValidUntil' - 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, 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. --- --- * 'sirLaunchGroup' - The instance launch group. Launch groups are Spot instances that launch together and terminate together. --- --- * 'sirFault' - The fault codes for the Spot instance request, if any. --- --- * 'sirSpotInstanceRequestId' - The ID of the Spot instance request. --- --- * 'sirType' - The Spot instance request type. --- --- * 'sirValidFrom' - The start date of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The request becomes active at this date and time. --- --- * 'sirCreateTime' - The date and time when the Spot instance request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). --- --- * 'sirTags' - Any tags assigned to the resource. -spotInstanceRequest - :: SpotInstanceRequest -spotInstanceRequest = - SpotInstanceRequest' - { _sirInstanceId = Nothing - , _sirStatus = Nothing - , _sirState = Nothing - , _sirActualBlockHourlyPrice = Nothing - , _sirBlockDurationMinutes = Nothing - , _sirInstanceInterruptionBehavior = Nothing - , _sirProductDescription = Nothing - , _sirSpotPrice = Nothing - , _sirLaunchSpecification = Nothing - , _sirAvailabilityZoneGroup = Nothing - , _sirLaunchedAvailabilityZone = Nothing - , _sirValidUntil = Nothing - , _sirLaunchGroup = Nothing - , _sirFault = Nothing - , _sirSpotInstanceRequestId = Nothing - , _sirType = Nothing - , _sirValidFrom = Nothing - , _sirCreateTime = Nothing - , _sirTags = Nothing - } - - --- | The instance ID, if an instance has been launched to fulfill the Spot instance request. -sirInstanceId :: Lens' SpotInstanceRequest (Maybe Text) -sirInstanceId = lens _sirInstanceId (\ s a -> s{_sirInstanceId = a}); - --- | The status code and status message describing the Spot instance request. -sirStatus :: Lens' SpotInstanceRequest (Maybe SpotInstanceStatus) -sirStatus = lens _sirStatus (\ s a -> s{_sirStatus = a}); - --- | The state of the Spot instance request. Spot bid status information can help you track your Spot instance requests. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . -sirState :: Lens' SpotInstanceRequest (Maybe SpotInstanceState) -sirState = lens _sirState (\ s a -> s{_sirState = a}); - --- | If you specified a duration and your Spot instance 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 duration for the Spot instance, in minutes. -sirBlockDurationMinutes :: Lens' SpotInstanceRequest (Maybe Int) -sirBlockDurationMinutes = lens _sirBlockDurationMinutes (\ s a -> s{_sirBlockDurationMinutes = a}); - --- | Indicates whether a Spot instance stops or terminates when it is interrupted. -sirInstanceInterruptionBehavior :: Lens' SpotInstanceRequest (Maybe InstanceInterruptionBehavior) -sirInstanceInterruptionBehavior = lens _sirInstanceInterruptionBehavior (\ s a -> s{_sirInstanceInterruptionBehavior = 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 the Spot instance launched to fulfill the request. -sirSpotPrice :: Lens' SpotInstanceRequest (Maybe Text) -sirSpotPrice = lens _sirSpotPrice (\ s a -> s{_sirSpotPrice = a}); - --- | Additional information for launching instances. -sirLaunchSpecification :: Lens' SpotInstanceRequest (Maybe LaunchSpecification) -sirLaunchSpecification = lens _sirLaunchSpecification (\ s a -> s{_sirLaunchSpecification = a}); - --- | The Availability Zone group. If you specify the same Availability Zone group for all Spot instance requests, all Spot instances are launched in the same Availability Zone. -sirAvailabilityZoneGroup :: Lens' SpotInstanceRequest (Maybe Text) -sirAvailabilityZoneGroup = lens _sirAvailabilityZoneGroup (\ s a -> s{_sirAvailabilityZoneGroup = a}); - --- | The Availability Zone in which the bid is launched. -sirLaunchedAvailabilityZone :: Lens' SpotInstanceRequest (Maybe Text) -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, 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; - --- | The instance launch group. Launch groups are Spot instances that launch together and terminate together. -sirLaunchGroup :: Lens' SpotInstanceRequest (Maybe Text) -sirLaunchGroup = lens _sirLaunchGroup (\ s a -> s{_sirLaunchGroup = a}); - --- | The fault codes for the Spot instance request, if any. -sirFault :: Lens' SpotInstanceRequest (Maybe SpotInstanceStateFault) -sirFault = lens _sirFault (\ s a -> s{_sirFault = a}); - --- | The ID of the Spot instance request. -sirSpotInstanceRequestId :: Lens' SpotInstanceRequest (Maybe Text) -sirSpotInstanceRequestId = lens _sirSpotInstanceRequestId (\ s a -> s{_sirSpotInstanceRequestId = a}); - --- | The Spot instance request type. -sirType :: Lens' SpotInstanceRequest (Maybe SpotInstanceType) -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). The request becomes active at this date and time. -sirValidFrom :: Lens' SpotInstanceRequest (Maybe UTCTime) -sirValidFrom = lens _sirValidFrom (\ s a -> s{_sirValidFrom = a}) . mapping _Time; - --- | The date and time when the Spot instance request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). -sirCreateTime :: Lens' SpotInstanceRequest (Maybe UTCTime) -sirCreateTime = lens _sirCreateTime (\ s a -> s{_sirCreateTime = a}) . mapping _Time; - --- | Any tags assigned to the resource. -sirTags :: Lens' SpotInstanceRequest [Tag] -sirTags = lens _sirTags (\ s a -> s{_sirTags = a}) . _Default . _Coerce; - -instance FromXML SpotInstanceRequest where - parseXML x - = SpotInstanceRequest' <$> - (x .@? "instanceId") <*> (x .@? "status") <*> - (x .@? "state") - <*> (x .@? "actualBlockHourlyPrice") - <*> (x .@? "blockDurationMinutes") - <*> (x .@? "instanceInterruptionBehavior") - <*> (x .@? "productDescription") - <*> (x .@? "spotPrice") - <*> (x .@? "launchSpecification") - <*> (x .@? "availabilityZoneGroup") - <*> (x .@? "launchedAvailabilityZone") - <*> (x .@? "validUntil") - <*> (x .@? "launchGroup") - <*> (x .@? "fault") - <*> (x .@? "spotInstanceRequestId") - <*> (x .@? "type") - <*> (x .@? "validFrom") - <*> (x .@? "createTime") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable SpotInstanceRequest where - -instance NFData SpotInstanceRequest where - --- | Describes a Spot instance state change. --- --- --- --- /See:/ 'spotInstanceStateFault' smart constructor. -data SpotInstanceStateFault = SpotInstanceStateFault' - { _sisfCode :: !(Maybe Text) - , _sisfMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotInstanceStateFault' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sisfCode' - The reason code for the Spot instance state change. --- --- * 'sisfMessage' - The message for the Spot instance state change. -spotInstanceStateFault - :: SpotInstanceStateFault -spotInstanceStateFault = - SpotInstanceStateFault' {_sisfCode = Nothing, _sisfMessage = Nothing} - - --- | The reason code for the Spot instance state change. -sisfCode :: Lens' SpotInstanceStateFault (Maybe Text) -sisfCode = lens _sisfCode (\ s a -> s{_sisfCode = a}); - --- | The message for the Spot instance state change. -sisfMessage :: Lens' SpotInstanceStateFault (Maybe Text) -sisfMessage = lens _sisfMessage (\ s a -> s{_sisfMessage = a}); - -instance FromXML SpotInstanceStateFault where - parseXML x - = SpotInstanceStateFault' <$> - (x .@? "code") <*> (x .@? "message") - -instance Hashable SpotInstanceStateFault where - -instance NFData SpotInstanceStateFault where - --- | Describes the status of a Spot instance request. --- --- --- --- /See:/ 'spotInstanceStatus' smart constructor. -data SpotInstanceStatus = SpotInstanceStatus' - { _sisUpdateTime :: !(Maybe ISO8601) - , _sisCode :: !(Maybe Text) - , _sisMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotInstanceStatus' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sisUpdateTime' - The date and time of the most recent status update, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). --- --- * 'sisCode' - The status code. For a list of status codes, see in the /Amazon Elastic Compute Cloud User Guide/ . --- --- * 'sisMessage' - The description for the status code. -spotInstanceStatus - :: SpotInstanceStatus -spotInstanceStatus = - SpotInstanceStatus' - {_sisUpdateTime = Nothing, _sisCode = Nothing, _sisMessage = Nothing} - - --- | The date and time of the most recent status update, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). -sisUpdateTime :: Lens' SpotInstanceStatus (Maybe UTCTime) -sisUpdateTime = lens _sisUpdateTime (\ s a -> s{_sisUpdateTime = a}) . mapping _Time; - --- | The status code. For a list of status codes, see in the /Amazon Elastic Compute Cloud User Guide/ . -sisCode :: Lens' SpotInstanceStatus (Maybe Text) -sisCode = lens _sisCode (\ s a -> s{_sisCode = a}); - --- | The description for the status code. -sisMessage :: Lens' SpotInstanceStatus (Maybe Text) -sisMessage = lens _sisMessage (\ s a -> s{_sisMessage = a}); - -instance FromXML SpotInstanceStatus where - parseXML x - = SpotInstanceStatus' <$> - (x .@? "updateTime") <*> (x .@? "code") <*> - (x .@? "message") - -instance Hashable SpotInstanceStatus where - -instance NFData SpotInstanceStatus where - --- | Describes Spot instance placement. --- --- --- --- /See:/ 'spotPlacement' smart constructor. -data SpotPlacement = SpotPlacement' - { _spAvailabilityZone :: !(Maybe Text) - , _spTenancy :: !(Maybe Tenancy) - , _spGroupName :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotPlacement' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'spAvailabilityZone' - The Availability Zone. [Spot fleet only] To specify multiple Availability Zones, separate them using commas; for example, "us-west-2a, us-west-2b". --- --- * 'spTenancy' - The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for Spot instances. --- --- * 'spGroupName' - The name of the placement group (for cluster instances). -spotPlacement - :: SpotPlacement -spotPlacement = - SpotPlacement' - {_spAvailabilityZone = Nothing, _spTenancy = Nothing, _spGroupName = Nothing} - - --- | The Availability Zone. [Spot fleet only] To specify multiple Availability Zones, separate them using commas; for example, "us-west-2a, us-west-2b". -spAvailabilityZone :: Lens' SpotPlacement (Maybe Text) -spAvailabilityZone = lens _spAvailabilityZone (\ s a -> s{_spAvailabilityZone = a}); - --- | The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for Spot instances. -spTenancy :: Lens' SpotPlacement (Maybe Tenancy) -spTenancy = lens _spTenancy (\ s a -> s{_spTenancy = a}); - --- | The name of the placement group (for cluster instances). -spGroupName :: Lens' SpotPlacement (Maybe Text) -spGroupName = lens _spGroupName (\ s a -> s{_spGroupName = a}); - -instance FromXML SpotPlacement where - parseXML x - = SpotPlacement' <$> - (x .@? "availabilityZone") <*> (x .@? "tenancy") <*> - (x .@? "groupName") - -instance Hashable SpotPlacement where - -instance NFData SpotPlacement where - -instance ToQuery SpotPlacement where - toQuery SpotPlacement'{..} - = mconcat - ["AvailabilityZone" =: _spAvailabilityZone, - "Tenancy" =: _spTenancy, "GroupName" =: _spGroupName] - --- | Describes the maximum hourly price (bid) for any Spot instance launched to fulfill the request. --- --- --- --- /See:/ 'spotPrice' smart constructor. -data SpotPrice = SpotPrice' - { _sProductDescription :: !(Maybe RIProductDescription) - , _sSpotPrice :: !(Maybe Text) - , _sInstanceType :: !(Maybe InstanceType) - , _sAvailabilityZone :: !(Maybe Text) - , _sTimestamp :: !(Maybe ISO8601) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SpotPrice' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sProductDescription' - A general description of the AMI. --- --- * 'sSpotPrice' - The maximum price (bid) that you are willing to pay for a Spot instance. --- --- * 'sInstanceType' - The instance type. Note that T2 and HS1 instance types are not supported. --- --- * 'sAvailabilityZone' - The Availability Zone. --- --- * 'sTimestamp' - The date and time the request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). -spotPrice - :: SpotPrice -spotPrice = - SpotPrice' - { _sProductDescription = Nothing - , _sSpotPrice = Nothing - , _sInstanceType = Nothing - , _sAvailabilityZone = Nothing - , _sTimestamp = Nothing - } - - --- | A general description of the AMI. -sProductDescription :: Lens' SpotPrice (Maybe RIProductDescription) -sProductDescription = lens _sProductDescription (\ s a -> s{_sProductDescription = a}); - --- | The maximum price (bid) that you are willing to pay for a Spot instance. -sSpotPrice :: Lens' SpotPrice (Maybe Text) -sSpotPrice = lens _sSpotPrice (\ s a -> s{_sSpotPrice = a}); - --- | The instance type. Note that T2 and HS1 instance types are not supported. -sInstanceType :: Lens' SpotPrice (Maybe InstanceType) -sInstanceType = lens _sInstanceType (\ s a -> s{_sInstanceType = a}); - --- | The Availability Zone. -sAvailabilityZone :: Lens' SpotPrice (Maybe Text) -sAvailabilityZone = lens _sAvailabilityZone (\ s a -> s{_sAvailabilityZone = a}); - --- | The date and time the request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). -sTimestamp :: Lens' SpotPrice (Maybe UTCTime) -sTimestamp = lens _sTimestamp (\ s a -> s{_sTimestamp = a}) . mapping _Time; - -instance FromXML SpotPrice where - parseXML x - = SpotPrice' <$> - (x .@? "productDescription") <*> (x .@? "spotPrice") - <*> (x .@? "instanceType") - <*> (x .@? "availabilityZone") - <*> (x .@? "timestamp") - -instance Hashable SpotPrice where - -instance NFData SpotPrice where - --- | Describes a stale rule in a security group. --- --- --- --- /See:/ 'staleIPPermission' smart constructor. -data StaleIPPermission = StaleIPPermission' - { _sipFromPort :: !(Maybe Int) - , _sipUserIdGroupPairs :: !(Maybe [UserIdGroupPair]) - , _sipPrefixListIds :: !(Maybe [Text]) - , _sipIPProtocol :: !(Maybe Text) - , _sipToPort :: !(Maybe Int) - , _sipIPRanges :: !(Maybe [Text]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StaleIPPermission' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sipFromPort' - The start of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. --- --- * 'sipUserIdGroupPairs' - One or more security group pairs. Returns the ID of the referenced security group and VPC, and the ID and status of the VPC peering connection. --- --- * 'sipPrefixListIds' - One or more prefix list IDs for an AWS service. Not applicable for stale security group rules. --- --- * 'sipIPProtocol' - The IP protocol name (for @tcp@ , @udp@ , and @icmp@ ) or number (see . --- --- * 'sipToPort' - The end of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. --- --- * 'sipIPRanges' - One or more IP ranges. Not applicable for stale security group rules. -staleIPPermission - :: StaleIPPermission -staleIPPermission = - StaleIPPermission' - { _sipFromPort = Nothing - , _sipUserIdGroupPairs = Nothing - , _sipPrefixListIds = Nothing - , _sipIPProtocol = Nothing - , _sipToPort = Nothing - , _sipIPRanges = Nothing - } - - --- | The start of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. -sipFromPort :: Lens' StaleIPPermission (Maybe Int) -sipFromPort = lens _sipFromPort (\ s a -> s{_sipFromPort = a}); - --- | One or more security group pairs. Returns the ID of the referenced security group and VPC, and the ID and status of the VPC peering connection. -sipUserIdGroupPairs :: Lens' StaleIPPermission [UserIdGroupPair] -sipUserIdGroupPairs = lens _sipUserIdGroupPairs (\ s a -> s{_sipUserIdGroupPairs = a}) . _Default . _Coerce; - --- | One or more prefix list IDs for an AWS service. Not applicable for stale security group rules. -sipPrefixListIds :: Lens' StaleIPPermission [Text] -sipPrefixListIds = lens _sipPrefixListIds (\ s a -> s{_sipPrefixListIds = a}) . _Default . _Coerce; - --- | The IP protocol name (for @tcp@ , @udp@ , and @icmp@ ) or number (see . -sipIPProtocol :: Lens' StaleIPPermission (Maybe Text) -sipIPProtocol = lens _sipIPProtocol (\ s a -> s{_sipIPProtocol = a}); - --- | The end of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. -sipToPort :: Lens' StaleIPPermission (Maybe Int) -sipToPort = lens _sipToPort (\ s a -> s{_sipToPort = a}); - --- | One or more IP ranges. Not applicable for stale security group rules. -sipIPRanges :: Lens' StaleIPPermission [Text] -sipIPRanges = lens _sipIPRanges (\ s a -> s{_sipIPRanges = a}) . _Default . _Coerce; - -instance FromXML StaleIPPermission where - parseXML x - = StaleIPPermission' <$> - (x .@? "fromPort") <*> - (x .@? "groups" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "prefixListIds" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "ipProtocol") - <*> (x .@? "toPort") - <*> - (x .@? "ipRanges" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable StaleIPPermission where - -instance NFData StaleIPPermission where - --- | Describes a stale security group (a security group that contains stale rules). --- --- --- --- /See:/ 'staleSecurityGroup' smart constructor. -data StaleSecurityGroup = StaleSecurityGroup' - { _ssgVPCId :: !(Maybe Text) - , _ssgGroupName :: !(Maybe Text) - , _ssgStaleIPPermissionsEgress :: !(Maybe [StaleIPPermission]) - , _ssgStaleIPPermissions :: !(Maybe [StaleIPPermission]) - , _ssgDescription :: !(Maybe Text) - , _ssgGroupId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StaleSecurityGroup' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ssgVPCId' - The ID of the VPC for the security group. --- --- * 'ssgGroupName' - The name of the security group. --- --- * 'ssgStaleIPPermissionsEgress' - Information about the stale outbound rules in the security group. --- --- * 'ssgStaleIPPermissions' - Information about the stale inbound rules in the security group. --- --- * 'ssgDescription' - The description of the security group. --- --- * 'ssgGroupId' - The ID of the security group. -staleSecurityGroup - :: Text -- ^ 'ssgGroupId' - -> StaleSecurityGroup -staleSecurityGroup pGroupId_ = - StaleSecurityGroup' - { _ssgVPCId = Nothing - , _ssgGroupName = Nothing - , _ssgStaleIPPermissionsEgress = Nothing - , _ssgStaleIPPermissions = Nothing - , _ssgDescription = Nothing - , _ssgGroupId = pGroupId_ - } - - --- | The ID of the VPC for the security group. -ssgVPCId :: Lens' StaleSecurityGroup (Maybe Text) -ssgVPCId = lens _ssgVPCId (\ s a -> s{_ssgVPCId = a}); - --- | The name of the security group. -ssgGroupName :: Lens' StaleSecurityGroup (Maybe Text) -ssgGroupName = lens _ssgGroupName (\ s a -> s{_ssgGroupName = a}); - --- | Information about the stale outbound rules in the security group. -ssgStaleIPPermissionsEgress :: Lens' StaleSecurityGroup [StaleIPPermission] -ssgStaleIPPermissionsEgress = lens _ssgStaleIPPermissionsEgress (\ s a -> s{_ssgStaleIPPermissionsEgress = a}) . _Default . _Coerce; - --- | Information about the stale inbound rules in the security group. -ssgStaleIPPermissions :: Lens' StaleSecurityGroup [StaleIPPermission] -ssgStaleIPPermissions = lens _ssgStaleIPPermissions (\ s a -> s{_ssgStaleIPPermissions = a}) . _Default . _Coerce; - --- | The description of the security group. -ssgDescription :: Lens' StaleSecurityGroup (Maybe Text) -ssgDescription = lens _ssgDescription (\ s a -> s{_ssgDescription = a}); - --- | The ID of the security group. -ssgGroupId :: Lens' StaleSecurityGroup Text -ssgGroupId = lens _ssgGroupId (\ s a -> s{_ssgGroupId = a}); - -instance FromXML StaleSecurityGroup where - parseXML x - = StaleSecurityGroup' <$> - (x .@? "vpcId") <*> (x .@? "groupName") <*> - (x .@? "staleIpPermissionsEgress" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "staleIpPermissions" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "description") - <*> (x .@ "groupId") - -instance Hashable StaleSecurityGroup where - -instance NFData StaleSecurityGroup where - --- | Describes a state change. --- --- --- --- /See:/ 'stateReason' smart constructor. -data StateReason = StateReason' - { _srCode :: !(Maybe Text) - , _srMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StateReason' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'srCode' - The reason code for the state change. --- --- * 'srMessage' - The message for the state change. * @Server.InsufficientInstanceCapacity@ : There was insufficient instance capacity to satisfy the launch request. * @Server.InternalError@ : An internal error occurred during instance launch, resulting in termination. * @Server.ScheduledStop@ : The instance was stopped due to a scheduled retirement. * @Server.SpotInstanceTermination@ : A Spot Instance was terminated due to an increase in the market price. * @Client.InternalError@ : A client error caused the instance to terminate on launch. * @Client.InstanceInitiatedShutdown@ : The instance was shut down using the @shutdown -h@ command from the instance. * @Client.InstanceTerminated@ : The instance was terminated or rebooted during AMI creation. * @Client.UserInitiatedShutdown@ : The instance was shut down using the Amazon EC2 API. * @Client.VolumeLimitExceeded@ : The limit on the number of EBS volumes or total storage was exceeded. Decrease usage or request an increase in your limits. * @Client.InvalidSnapshot.NotFound@ : The specified snapshot was not found. -stateReason - :: StateReason -stateReason = StateReason' {_srCode = Nothing, _srMessage = Nothing} - - --- | The reason code for the state change. -srCode :: Lens' StateReason (Maybe Text) -srCode = lens _srCode (\ s a -> s{_srCode = a}); - --- | The message for the state change. * @Server.InsufficientInstanceCapacity@ : There was insufficient instance capacity to satisfy the launch request. * @Server.InternalError@ : An internal error occurred during instance launch, resulting in termination. * @Server.ScheduledStop@ : The instance was stopped due to a scheduled retirement. * @Server.SpotInstanceTermination@ : A Spot Instance was terminated due to an increase in the market price. * @Client.InternalError@ : A client error caused the instance to terminate on launch. * @Client.InstanceInitiatedShutdown@ : The instance was shut down using the @shutdown -h@ command from the instance. * @Client.InstanceTerminated@ : The instance was terminated or rebooted during AMI creation. * @Client.UserInitiatedShutdown@ : The instance was shut down using the Amazon EC2 API. * @Client.VolumeLimitExceeded@ : The limit on the number of EBS volumes or total storage was exceeded. Decrease usage or request an increase in your limits. * @Client.InvalidSnapshot.NotFound@ : The specified snapshot was not found. -srMessage :: Lens' StateReason (Maybe Text) -srMessage = lens _srMessage (\ s a -> s{_srMessage = a}); - -instance FromXML StateReason where - parseXML x - = StateReason' <$> - (x .@? "code") <*> (x .@? "message") - -instance Hashable StateReason where - -instance NFData StateReason where - --- | Describes the storage location for an instance store-backed AMI. --- --- --- --- /See:/ 'storage' smart constructor. -newtype Storage = Storage' - { _sS3 :: Maybe S3Storage - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Storage' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sS3' - An Amazon S3 storage location. -storage - :: Storage -storage = Storage' {_sS3 = Nothing} - - --- | An Amazon S3 storage location. -sS3 :: Lens' Storage (Maybe S3Storage) -sS3 = lens _sS3 (\ s a -> s{_sS3 = a}); - -instance FromXML Storage where - parseXML x = Storage' <$> (x .@? "S3") - -instance Hashable Storage where - -instance NFData Storage where - -instance ToQuery Storage where - toQuery Storage'{..} = mconcat ["S3" =: _sS3] - --- | Describes a storage location in Amazon S3. --- --- --- --- /See:/ 'storageLocation' smart constructor. -data StorageLocation = StorageLocation' - { _slBucket :: !(Maybe Text) - , _slKey :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'StorageLocation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'slBucket' - The name of the S3 bucket. --- --- * 'slKey' - The key. -storageLocation - :: StorageLocation -storageLocation = StorageLocation' {_slBucket = Nothing, _slKey = Nothing} - - --- | The name of the S3 bucket. -slBucket :: Lens' StorageLocation (Maybe Text) -slBucket = lens _slBucket (\ s a -> s{_slBucket = a}); - --- | The key. -slKey :: Lens' StorageLocation (Maybe Text) -slKey = lens _slKey (\ s a -> s{_slKey = a}); - -instance Hashable StorageLocation where - -instance NFData StorageLocation where - -instance ToQuery StorageLocation where - toQuery StorageLocation'{..} - = mconcat ["Bucket" =: _slBucket, "Key" =: _slKey] - --- | Describes a subnet. --- --- --- --- /See:/ 'subnet' smart constructor. -data Subnet = Subnet' - { _subIPv6CidrBlockAssociationSet :: !(Maybe [SubnetIPv6CidrBlockAssociation]) - , _subAssignIPv6AddressOnCreation :: !(Maybe Bool) - , _subMapPublicIPOnLaunch :: !(Maybe Bool) - , _subDefaultForAz :: !(Maybe Bool) - , _subTags :: !(Maybe [Tag]) - , _subAvailabilityZone :: !Text - , _subAvailableIPAddressCount :: !Int - , _subCidrBlock :: !Text - , _subState :: !SubnetState - , _subSubnetId :: !Text - , _subVPCId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Subnet' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'subIPv6CidrBlockAssociationSet' - Information about the IPv6 CIDR blocks associated with the subnet. --- --- * 'subAssignIPv6AddressOnCreation' - Indicates whether a network interface created in this subnet (including a network interface created by 'RunInstances' ) receives an IPv6 address. --- --- * 'subMapPublicIPOnLaunch' - Indicates whether instances launched in this subnet receive a public IPv4 address. --- --- * 'subDefaultForAz' - Indicates whether this is the default subnet for the Availability Zone. --- --- * 'subTags' - Any tags assigned to the subnet. --- --- * 'subAvailabilityZone' - The Availability Zone of the subnet. --- --- * 'subAvailableIPAddressCount' - The number of unused private IPv4 addresses in the subnet. Note that the IPv4 addresses for any stopped instances are considered unavailable. --- --- * 'subCidrBlock' - The IPv4 CIDR block assigned to the subnet. --- --- * 'subState' - The current state of the subnet. --- --- * 'subSubnetId' - The ID of the subnet. --- --- * 'subVPCId' - The ID of the VPC the subnet is in. -subnet - :: Text -- ^ 'subAvailabilityZone' - -> Int -- ^ 'subAvailableIPAddressCount' - -> Text -- ^ 'subCidrBlock' - -> SubnetState -- ^ 'subState' - -> Text -- ^ 'subSubnetId' - -> Text -- ^ 'subVPCId' - -> Subnet -subnet pAvailabilityZone_ pAvailableIPAddressCount_ pCidrBlock_ pState_ pSubnetId_ pVPCId_ = - Subnet' - { _subIPv6CidrBlockAssociationSet = Nothing - , _subAssignIPv6AddressOnCreation = Nothing - , _subMapPublicIPOnLaunch = Nothing - , _subDefaultForAz = Nothing - , _subTags = Nothing - , _subAvailabilityZone = pAvailabilityZone_ - , _subAvailableIPAddressCount = pAvailableIPAddressCount_ - , _subCidrBlock = pCidrBlock_ - , _subState = pState_ - , _subSubnetId = pSubnetId_ - , _subVPCId = pVPCId_ - } - - --- | Information about the IPv6 CIDR blocks associated with the subnet. -subIPv6CidrBlockAssociationSet :: Lens' Subnet [SubnetIPv6CidrBlockAssociation] -subIPv6CidrBlockAssociationSet = lens _subIPv6CidrBlockAssociationSet (\ s a -> s{_subIPv6CidrBlockAssociationSet = a}) . _Default . _Coerce; - --- | Indicates whether a network interface created in this subnet (including a network interface created by 'RunInstances' ) receives an IPv6 address. -subAssignIPv6AddressOnCreation :: Lens' Subnet (Maybe Bool) -subAssignIPv6AddressOnCreation = lens _subAssignIPv6AddressOnCreation (\ s a -> s{_subAssignIPv6AddressOnCreation = a}); - --- | Indicates whether instances launched in this subnet receive a public IPv4 address. -subMapPublicIPOnLaunch :: Lens' Subnet (Maybe Bool) -subMapPublicIPOnLaunch = lens _subMapPublicIPOnLaunch (\ s a -> s{_subMapPublicIPOnLaunch = a}); - --- | Indicates whether this is the default subnet for the Availability Zone. -subDefaultForAz :: Lens' Subnet (Maybe Bool) -subDefaultForAz = lens _subDefaultForAz (\ s a -> s{_subDefaultForAz = a}); - --- | Any tags assigned to the subnet. -subTags :: Lens' Subnet [Tag] -subTags = lens _subTags (\ s a -> s{_subTags = a}) . _Default . _Coerce; - --- | The Availability Zone of the subnet. -subAvailabilityZone :: Lens' Subnet Text -subAvailabilityZone = lens _subAvailabilityZone (\ s a -> s{_subAvailabilityZone = a}); - --- | The number of unused private IPv4 addresses in the subnet. Note that the IPv4 addresses for any stopped instances are considered unavailable. -subAvailableIPAddressCount :: Lens' Subnet Int -subAvailableIPAddressCount = lens _subAvailableIPAddressCount (\ s a -> s{_subAvailableIPAddressCount = a}); - --- | The IPv4 CIDR block assigned to the subnet. -subCidrBlock :: Lens' Subnet Text -subCidrBlock = lens _subCidrBlock (\ s a -> s{_subCidrBlock = a}); - --- | The current state of the subnet. -subState :: Lens' Subnet SubnetState -subState = lens _subState (\ s a -> s{_subState = a}); - --- | The ID of the subnet. -subSubnetId :: Lens' Subnet Text -subSubnetId = lens _subSubnetId (\ s a -> s{_subSubnetId = a}); - --- | The ID of the VPC the subnet is in. -subVPCId :: Lens' Subnet Text -subVPCId = lens _subVPCId (\ s a -> s{_subVPCId = a}); - -instance FromXML Subnet where - parseXML x - = Subnet' <$> - (x .@? "ipv6CidrBlockAssociationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "assignIpv6AddressOnCreation") - <*> (x .@? "mapPublicIpOnLaunch") - <*> (x .@? "defaultForAz") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "availabilityZone") - <*> (x .@ "availableIpAddressCount") - <*> (x .@ "cidrBlock") - <*> (x .@ "state") - <*> (x .@ "subnetId") - <*> (x .@ "vpcId") - -instance Hashable Subnet where - -instance NFData Subnet where - --- | Describes the state of a CIDR block. --- --- --- --- /See:/ 'subnetCidrBlockState' smart constructor. -data SubnetCidrBlockState = SubnetCidrBlockState' - { _scbsState :: !(Maybe SubnetCidrBlockStateCode) - , _scbsStatusMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SubnetCidrBlockState' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'scbsState' - The state of a CIDR block. --- --- * 'scbsStatusMessage' - A message about the status of the CIDR block, if applicable. -subnetCidrBlockState - :: SubnetCidrBlockState -subnetCidrBlockState = - SubnetCidrBlockState' {_scbsState = Nothing, _scbsStatusMessage = Nothing} - - --- | The state of a CIDR block. -scbsState :: Lens' SubnetCidrBlockState (Maybe SubnetCidrBlockStateCode) -scbsState = lens _scbsState (\ s a -> s{_scbsState = a}); - --- | A message about the status of the CIDR block, if applicable. -scbsStatusMessage :: Lens' SubnetCidrBlockState (Maybe Text) -scbsStatusMessage = lens _scbsStatusMessage (\ s a -> s{_scbsStatusMessage = a}); - -instance FromXML SubnetCidrBlockState where - parseXML x - = SubnetCidrBlockState' <$> - (x .@? "state") <*> (x .@? "statusMessage") - -instance Hashable SubnetCidrBlockState where - -instance NFData SubnetCidrBlockState where - --- | Describes an IPv6 CIDR block associated with a subnet. --- --- --- --- /See:/ 'subnetIPv6CidrBlockAssociation' smart constructor. -data SubnetIPv6CidrBlockAssociation = SubnetIPv6CidrBlockAssociation' - { _sicbaAssociationId :: !(Maybe Text) - , _sicbaIPv6CidrBlock :: !(Maybe Text) - , _sicbaIPv6CidrBlockState :: !(Maybe SubnetCidrBlockState) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'SubnetIPv6CidrBlockAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'sicbaAssociationId' - The association ID for the CIDR block. --- --- * 'sicbaIPv6CidrBlock' - The IPv6 CIDR block. --- --- * 'sicbaIPv6CidrBlockState' - Information about the state of the CIDR block. -subnetIPv6CidrBlockAssociation - :: SubnetIPv6CidrBlockAssociation -subnetIPv6CidrBlockAssociation = - SubnetIPv6CidrBlockAssociation' - { _sicbaAssociationId = Nothing - , _sicbaIPv6CidrBlock = Nothing - , _sicbaIPv6CidrBlockState = Nothing - } - - --- | The association ID for the CIDR block. -sicbaAssociationId :: Lens' SubnetIPv6CidrBlockAssociation (Maybe Text) -sicbaAssociationId = lens _sicbaAssociationId (\ s a -> s{_sicbaAssociationId = a}); - --- | The IPv6 CIDR block. -sicbaIPv6CidrBlock :: Lens' SubnetIPv6CidrBlockAssociation (Maybe Text) -sicbaIPv6CidrBlock = lens _sicbaIPv6CidrBlock (\ s a -> s{_sicbaIPv6CidrBlock = a}); - --- | Information about the state of the CIDR block. -sicbaIPv6CidrBlockState :: Lens' SubnetIPv6CidrBlockAssociation (Maybe SubnetCidrBlockState) -sicbaIPv6CidrBlockState = lens _sicbaIPv6CidrBlockState (\ s a -> s{_sicbaIPv6CidrBlockState = a}); - -instance FromXML SubnetIPv6CidrBlockAssociation where - parseXML x - = SubnetIPv6CidrBlockAssociation' <$> - (x .@? "associationId") <*> (x .@? "ipv6CidrBlock") - <*> (x .@? "ipv6CidrBlockState") - -instance Hashable SubnetIPv6CidrBlockAssociation - where - -instance NFData SubnetIPv6CidrBlockAssociation where - --- | Describes a tag. --- --- --- --- /See:/ 'tag' smart constructor. -data Tag = Tag' - { _tagKey :: !Text - , _tagValue :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Tag' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tagKey' - The key of the tag. Constraints: Tag keys are case-sensitive and accept a maximum of 127 Unicode characters. May not begin with @aws:@ --- --- * 'tagValue' - The value of the tag. Constraints: Tag values are case-sensitive and accept a maximum of 255 Unicode characters. -tag - :: Text -- ^ 'tagKey' - -> Text -- ^ 'tagValue' - -> Tag -tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_} - - --- | The key of the tag. Constraints: Tag keys are case-sensitive and accept a maximum of 127 Unicode characters. May not begin with @aws:@ -tagKey :: Lens' Tag Text -tagKey = lens _tagKey (\ s a -> s{_tagKey = a}); - --- | The value of the tag. Constraints: Tag values are case-sensitive and accept a maximum of 255 Unicode characters. -tagValue :: Lens' Tag Text -tagValue = lens _tagValue (\ s a -> s{_tagValue = a}); - -instance FromXML Tag where - parseXML x = Tag' <$> (x .@ "key") <*> (x .@ "value") - -instance Hashable Tag where - -instance NFData Tag where - -instance ToQuery Tag where - toQuery Tag'{..} - = mconcat ["Key" =: _tagKey, "Value" =: _tagValue] - --- | Describes a tag. --- --- --- --- /See:/ 'tagDescription' smart constructor. -data TagDescription = TagDescription' - { _tdResourceId :: !Text - , _tdResourceType :: !ResourceType - , _tdKey :: !Text - , _tdValue :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TagDescription' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tdResourceId' - The ID of the resource. For example, @ami-1a2b3c4d@ . --- --- * 'tdResourceType' - The resource type. --- --- * 'tdKey' - The tag key. --- --- * 'tdValue' - The tag value. -tagDescription - :: Text -- ^ 'tdResourceId' - -> ResourceType -- ^ 'tdResourceType' - -> Text -- ^ 'tdKey' - -> Text -- ^ 'tdValue' - -> TagDescription -tagDescription pResourceId_ pResourceType_ pKey_ pValue_ = - TagDescription' - { _tdResourceId = pResourceId_ - , _tdResourceType = pResourceType_ - , _tdKey = pKey_ - , _tdValue = pValue_ - } - - --- | The ID of the resource. For example, @ami-1a2b3c4d@ . -tdResourceId :: Lens' TagDescription Text -tdResourceId = lens _tdResourceId (\ s a -> s{_tdResourceId = a}); - --- | The resource type. -tdResourceType :: Lens' TagDescription ResourceType -tdResourceType = lens _tdResourceType (\ s a -> s{_tdResourceType = a}); - --- | The tag key. -tdKey :: Lens' TagDescription Text -tdKey = lens _tdKey (\ s a -> s{_tdKey = a}); - --- | The tag value. -tdValue :: Lens' TagDescription Text -tdValue = lens _tdValue (\ s a -> s{_tdValue = a}); - -instance FromXML TagDescription where - parseXML x - = TagDescription' <$> - (x .@ "resourceId") <*> (x .@ "resourceType") <*> - (x .@ "key") - <*> (x .@ "value") - -instance Hashable TagDescription where - -instance NFData TagDescription where - --- | The tags to apply to a resource when the resource is being created. --- --- --- --- /See:/ 'tagSpecification' smart constructor. -data TagSpecification = TagSpecification' - { _tsResourceType :: !(Maybe ResourceType) - , _tsTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TagSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tsResourceType' - The type of resource to tag. Currently, the resource types that support tagging on creation are @instance@ and @volume@ . --- --- * 'tsTags' - The tags to apply to the resource. -tagSpecification - :: TagSpecification -tagSpecification = - TagSpecification' {_tsResourceType = Nothing, _tsTags = Nothing} - - --- | The type of resource to tag. Currently, the resource types that support tagging on creation are @instance@ and @volume@ . -tsResourceType :: Lens' TagSpecification (Maybe ResourceType) -tsResourceType = lens _tsResourceType (\ s a -> s{_tsResourceType = a}); - --- | The tags to apply to the resource. -tsTags :: Lens' TagSpecification [Tag] -tsTags = lens _tsTags (\ s a -> s{_tsTags = a}) . _Default . _Coerce; - -instance Hashable TagSpecification where - -instance NFData TagSpecification where - -instance ToQuery TagSpecification where - toQuery TagSpecification'{..} - = mconcat - ["ResourceType" =: _tsResourceType, - toQuery (toQueryList "Tag" <$> _tsTags)] - --- | Information about the Convertible Reserved Instance offering. --- --- --- --- /See:/ 'targetConfiguration' smart constructor. -data TargetConfiguration = TargetConfiguration' - { _tcInstanceCount :: !(Maybe Int) - , _tcOfferingId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TargetConfiguration' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tcInstanceCount' - The number of instances the Convertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request --- --- * 'tcOfferingId' - The ID of the Convertible Reserved Instance offering. -targetConfiguration - :: TargetConfiguration -targetConfiguration = - TargetConfiguration' {_tcInstanceCount = Nothing, _tcOfferingId = Nothing} - - --- | The number of instances the Convertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request -tcInstanceCount :: Lens' TargetConfiguration (Maybe Int) -tcInstanceCount = lens _tcInstanceCount (\ s a -> s{_tcInstanceCount = a}); - --- | The ID of the Convertible Reserved Instance offering. -tcOfferingId :: Lens' TargetConfiguration (Maybe Text) -tcOfferingId = lens _tcOfferingId (\ s a -> s{_tcOfferingId = a}); - -instance FromXML TargetConfiguration where - parseXML x - = TargetConfiguration' <$> - (x .@? "instanceCount") <*> (x .@? "offeringId") - -instance Hashable TargetConfiguration where - -instance NFData TargetConfiguration where - --- | Details about the target configuration. --- --- --- --- /See:/ 'targetConfigurationRequest' smart constructor. -data TargetConfigurationRequest = TargetConfigurationRequest' - { _tcrInstanceCount :: !(Maybe Int) - , _tcrOfferingId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TargetConfigurationRequest' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tcrInstanceCount' - The number of instances the Covertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request --- --- * 'tcrOfferingId' - The Convertible Reserved Instance offering ID. -targetConfigurationRequest - :: Text -- ^ 'tcrOfferingId' - -> TargetConfigurationRequest -targetConfigurationRequest pOfferingId_ = - TargetConfigurationRequest' - {_tcrInstanceCount = Nothing, _tcrOfferingId = pOfferingId_} - - --- | The number of instances the Covertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request -tcrInstanceCount :: Lens' TargetConfigurationRequest (Maybe Int) -tcrInstanceCount = lens _tcrInstanceCount (\ s a -> s{_tcrInstanceCount = a}); - --- | The Convertible Reserved Instance offering ID. -tcrOfferingId :: Lens' TargetConfigurationRequest Text -tcrOfferingId = lens _tcrOfferingId (\ s a -> s{_tcrOfferingId = a}); - -instance Hashable TargetConfigurationRequest where - -instance NFData TargetConfigurationRequest where - -instance ToQuery TargetConfigurationRequest where - toQuery TargetConfigurationRequest'{..} - = mconcat - ["InstanceCount" =: _tcrInstanceCount, - "OfferingId" =: _tcrOfferingId] - --- | Describes a load balancer target group. --- --- --- --- /See:/ 'targetGroup' smart constructor. -newtype TargetGroup = TargetGroup' - { _tgARN :: Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TargetGroup' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tgARN' - The Amazon Resource Name (ARN) of the target group. -targetGroup - :: Text -- ^ 'tgARN' - -> TargetGroup -targetGroup pARN_ = TargetGroup' {_tgARN = pARN_} - - --- | The Amazon Resource Name (ARN) of the target group. -tgARN :: Lens' TargetGroup Text -tgARN = lens _tgARN (\ s a -> s{_tgARN = a}); - -instance FromXML TargetGroup where - parseXML x = TargetGroup' <$> (x .@ "arn") - -instance Hashable TargetGroup where - -instance NFData TargetGroup where - -instance ToQuery TargetGroup where - toQuery TargetGroup'{..} = mconcat ["Arn" =: _tgARN] - --- | Describes the target groups to attach to a Spot fleet. Spot fleet registers the running Spot instances with these target groups. --- --- --- --- /See:/ 'targetGroupsConfig' smart constructor. -newtype TargetGroupsConfig = TargetGroupsConfig' - { _tgcTargetGroups :: List1 TargetGroup - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TargetGroupsConfig' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'tgcTargetGroups' - One or more target groups. -targetGroupsConfig - :: NonEmpty TargetGroup -- ^ 'tgcTargetGroups' - -> TargetGroupsConfig -targetGroupsConfig pTargetGroups_ = - TargetGroupsConfig' {_tgcTargetGroups = _List1 # pTargetGroups_} - - --- | One or more target groups. -tgcTargetGroups :: Lens' TargetGroupsConfig (NonEmpty TargetGroup) -tgcTargetGroups = lens _tgcTargetGroups (\ s a -> s{_tgcTargetGroups = a}) . _List1; - -instance FromXML TargetGroupsConfig where - parseXML x - = TargetGroupsConfig' <$> - (x .@? "targetGroups" .!@ mempty >>= - parseXMLList1 "item") - -instance Hashable TargetGroupsConfig where - -instance NFData TargetGroupsConfig where - -instance ToQuery TargetGroupsConfig where - toQuery TargetGroupsConfig'{..} - = mconcat - [toQueryList "TargetGroups" _tgcTargetGroups] - --- | The total value of the new Convertible Reserved Instances. --- --- --- --- /See:/ 'targetReservationValue' smart constructor. -data TargetReservationValue = TargetReservationValue' - { _trvReservationValue :: !(Maybe ReservationValue) - , _trvTargetConfiguration :: !(Maybe TargetConfiguration) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'TargetReservationValue' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'trvReservationValue' - The total value of the Convertible Reserved Instances that make up the exchange. This is the sum of the list value, remaining upfront price, and additional upfront cost of the exchange. --- --- * 'trvTargetConfiguration' - The configuration of the Convertible Reserved Instances that make up the exchange. -targetReservationValue - :: TargetReservationValue -targetReservationValue = - TargetReservationValue' - {_trvReservationValue = Nothing, _trvTargetConfiguration = Nothing} - - --- | The total value of the Convertible Reserved Instances that make up the exchange. This is the sum of the list value, remaining upfront price, and additional upfront cost of the exchange. -trvReservationValue :: Lens' TargetReservationValue (Maybe ReservationValue) -trvReservationValue = lens _trvReservationValue (\ s a -> s{_trvReservationValue = a}); - --- | The configuration of the Convertible Reserved Instances that make up the exchange. -trvTargetConfiguration :: Lens' TargetReservationValue (Maybe TargetConfiguration) -trvTargetConfiguration = lens _trvTargetConfiguration (\ s a -> s{_trvTargetConfiguration = a}); - -instance FromXML TargetReservationValue where - parseXML x - = TargetReservationValue' <$> - (x .@? "reservationValue") <*> - (x .@? "targetConfiguration") - -instance Hashable TargetReservationValue where - -instance NFData TargetReservationValue where - --- | Information about items that were not successfully processed in a batch call. --- --- --- --- /See:/ 'unsuccessfulItem' smart constructor. -data UnsuccessfulItem = UnsuccessfulItem' - { _uiResourceId :: !(Maybe Text) - , _uiError :: !UnsuccessfulItemError - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UnsuccessfulItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'uiResourceId' - The ID of the resource. --- --- * 'uiError' - Information about the error. -unsuccessfulItem - :: UnsuccessfulItemError -- ^ 'uiError' - -> UnsuccessfulItem -unsuccessfulItem pError_ = - UnsuccessfulItem' {_uiResourceId = Nothing, _uiError = pError_} - - --- | The ID of the resource. -uiResourceId :: Lens' UnsuccessfulItem (Maybe Text) -uiResourceId = lens _uiResourceId (\ s a -> s{_uiResourceId = a}); - --- | Information about the error. -uiError :: Lens' UnsuccessfulItem UnsuccessfulItemError -uiError = lens _uiError (\ s a -> s{_uiError = a}); - -instance FromXML UnsuccessfulItem where - parseXML x - = UnsuccessfulItem' <$> - (x .@? "resourceId") <*> (x .@ "error") - -instance Hashable UnsuccessfulItem where - -instance NFData UnsuccessfulItem where - --- | Information about the error that occurred. For more information about errors, see . --- --- --- --- /See:/ 'unsuccessfulItemError' smart constructor. -data UnsuccessfulItemError = UnsuccessfulItemError' - { _uieCode :: !Text - , _uieMessage :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UnsuccessfulItemError' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'uieCode' - The error code. --- --- * 'uieMessage' - The error message accompanying the error code. -unsuccessfulItemError - :: Text -- ^ 'uieCode' - -> Text -- ^ 'uieMessage' - -> UnsuccessfulItemError -unsuccessfulItemError pCode_ pMessage_ = - UnsuccessfulItemError' {_uieCode = pCode_, _uieMessage = pMessage_} - - --- | The error code. -uieCode :: Lens' UnsuccessfulItemError Text -uieCode = lens _uieCode (\ s a -> s{_uieCode = a}); - --- | The error message accompanying the error code. -uieMessage :: Lens' UnsuccessfulItemError Text -uieMessage = lens _uieMessage (\ s a -> s{_uieMessage = a}); - -instance FromXML UnsuccessfulItemError where - parseXML x - = UnsuccessfulItemError' <$> - (x .@ "code") <*> (x .@ "message") - -instance Hashable UnsuccessfulItemError where - -instance NFData UnsuccessfulItemError where - --- | Describes the S3 bucket for the disk image. --- --- --- --- /See:/ 'userBucket' smart constructor. -data UserBucket = UserBucket' - { _ubS3Key :: !(Maybe Text) - , _ubS3Bucket :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UserBucket' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ubS3Key' - The file name of the disk image. --- --- * 'ubS3Bucket' - The name of the S3 bucket where the disk image is located. -userBucket - :: UserBucket -userBucket = UserBucket' {_ubS3Key = Nothing, _ubS3Bucket = Nothing} - - --- | The file name of the disk image. -ubS3Key :: Lens' UserBucket (Maybe Text) -ubS3Key = lens _ubS3Key (\ s a -> s{_ubS3Key = a}); - --- | The name of the S3 bucket where the disk image is located. -ubS3Bucket :: Lens' UserBucket (Maybe Text) -ubS3Bucket = lens _ubS3Bucket (\ s a -> s{_ubS3Bucket = a}); - -instance Hashable UserBucket where - -instance NFData UserBucket where - -instance ToQuery UserBucket where - toQuery UserBucket'{..} - = mconcat - ["S3Key" =: _ubS3Key, "S3Bucket" =: _ubS3Bucket] - --- | Describes the S3 bucket for the disk image. --- --- --- --- /See:/ 'userBucketDetails' smart constructor. -data UserBucketDetails = UserBucketDetails' - { _ubdS3Key :: !(Maybe Text) - , _ubdS3Bucket :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UserBucketDetails' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'ubdS3Key' - The file name of the disk image. --- --- * 'ubdS3Bucket' - The S3 bucket from which the disk image was created. -userBucketDetails - :: UserBucketDetails -userBucketDetails = - UserBucketDetails' {_ubdS3Key = Nothing, _ubdS3Bucket = Nothing} - - --- | The file name of the disk image. -ubdS3Key :: Lens' UserBucketDetails (Maybe Text) -ubdS3Key = lens _ubdS3Key (\ s a -> s{_ubdS3Key = a}); - --- | The S3 bucket from which the disk image was created. -ubdS3Bucket :: Lens' UserBucketDetails (Maybe Text) -ubdS3Bucket = lens _ubdS3Bucket (\ s a -> s{_ubdS3Bucket = a}); - -instance FromXML UserBucketDetails where - parseXML x - = UserBucketDetails' <$> - (x .@? "s3Key") <*> (x .@? "s3Bucket") - -instance Hashable UserBucketDetails where - -instance NFData UserBucketDetails where - --- | Describes the user data for an instance. --- --- --- --- /See:/ 'userData' smart constructor. -newtype UserData = UserData' - { _udData :: Maybe Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UserData' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'udData' - The user data. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. -userData - :: UserData -userData = UserData' {_udData = Nothing} - - --- | The user data. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. -udData :: Lens' UserData (Maybe Text) -udData = lens _udData (\ s a -> s{_udData = a}); - -instance Hashable UserData where - -instance NFData UserData where - -instance ToQuery UserData where - toQuery UserData'{..} = mconcat ["Data" =: _udData] - --- | Describes a security group and AWS account ID pair. --- --- --- --- /See:/ 'userIdGroupPair' smart constructor. -data UserIdGroupPair = UserIdGroupPair' - { _uigpVPCPeeringConnectionId :: !(Maybe Text) - , _uigpVPCId :: !(Maybe Text) - , _uigpUserId :: !(Maybe Text) - , _uigpGroupId :: !(Maybe Text) - , _uigpGroupName :: !(Maybe Text) - , _uigpDescription :: !(Maybe Text) - , _uigpPeeringStatus :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'UserIdGroupPair' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'uigpVPCPeeringConnectionId' - The ID of the VPC peering connection, if applicable. --- --- * 'uigpVPCId' - The ID of the VPC for the referenced security group, if applicable. --- --- * 'uigpUserId' - The ID of an AWS account. For a referenced security group in another VPC, the account ID of the referenced security group is returned. [EC2-Classic] Required when adding or removing rules that reference a security group in another AWS account. --- --- * 'uigpGroupId' - The ID of the security group. --- --- * 'uigpGroupName' - The name of the security group. In a request, use this parameter for a security group in EC2-Classic or a default VPC only. For a security group in a nondefault VPC, use the security group ID. --- --- * 'uigpDescription' - A description for the security group rule that references this user ID group pair. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* --- --- * 'uigpPeeringStatus' - The status of a VPC peering connection, if applicable. -userIdGroupPair - :: UserIdGroupPair -userIdGroupPair = - UserIdGroupPair' - { _uigpVPCPeeringConnectionId = Nothing - , _uigpVPCId = Nothing - , _uigpUserId = Nothing - , _uigpGroupId = Nothing - , _uigpGroupName = Nothing - , _uigpDescription = Nothing - , _uigpPeeringStatus = Nothing - } - - --- | The ID of the VPC peering connection, if applicable. -uigpVPCPeeringConnectionId :: Lens' UserIdGroupPair (Maybe Text) -uigpVPCPeeringConnectionId = lens _uigpVPCPeeringConnectionId (\ s a -> s{_uigpVPCPeeringConnectionId = a}); - --- | The ID of the VPC for the referenced security group, if applicable. -uigpVPCId :: Lens' UserIdGroupPair (Maybe Text) -uigpVPCId = lens _uigpVPCId (\ s a -> s{_uigpVPCId = a}); - --- | The ID of an AWS account. For a referenced security group in another VPC, the account ID of the referenced security group is returned. [EC2-Classic] Required when adding or removing rules that reference a security group in another AWS account. -uigpUserId :: Lens' UserIdGroupPair (Maybe Text) -uigpUserId = lens _uigpUserId (\ s a -> s{_uigpUserId = a}); - --- | The ID of the security group. -uigpGroupId :: Lens' UserIdGroupPair (Maybe Text) -uigpGroupId = lens _uigpGroupId (\ s a -> s{_uigpGroupId = a}); - --- | The name of the security group. In a request, use this parameter for a security group in EC2-Classic or a default VPC only. For a security group in a nondefault VPC, use the security group ID. -uigpGroupName :: Lens' UserIdGroupPair (Maybe Text) -uigpGroupName = lens _uigpGroupName (\ s a -> s{_uigpGroupName = a}); - --- | A description for the security group rule that references this user ID group pair. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* -uigpDescription :: Lens' UserIdGroupPair (Maybe Text) -uigpDescription = lens _uigpDescription (\ s a -> s{_uigpDescription = a}); - --- | The status of a VPC peering connection, if applicable. -uigpPeeringStatus :: Lens' UserIdGroupPair (Maybe Text) -uigpPeeringStatus = lens _uigpPeeringStatus (\ s a -> s{_uigpPeeringStatus = a}); - -instance FromXML UserIdGroupPair where - parseXML x - = UserIdGroupPair' <$> - (x .@? "vpcPeeringConnectionId") <*> (x .@? "vpcId") - <*> (x .@? "userId") - <*> (x .@? "groupId") - <*> (x .@? "groupName") - <*> (x .@? "description") - <*> (x .@? "peeringStatus") - -instance Hashable UserIdGroupPair where - -instance NFData UserIdGroupPair where - -instance ToQuery UserIdGroupPair where - toQuery UserIdGroupPair'{..} - = mconcat - ["VpcPeeringConnectionId" =: - _uigpVPCPeeringConnectionId, - "VpcId" =: _uigpVPCId, "UserId" =: _uigpUserId, - "GroupId" =: _uigpGroupId, - "GroupName" =: _uigpGroupName, - "Description" =: _uigpDescription, - "PeeringStatus" =: _uigpPeeringStatus] - --- | Describes telemetry for a VPN tunnel. --- --- --- --- /See:/ 'vgwTelemetry' smart constructor. -data VGWTelemetry = VGWTelemetry' - { _vtStatus :: !(Maybe TelemetryStatus) - , _vtOutsideIPAddress :: !(Maybe Text) - , _vtLastStatusChange :: !(Maybe ISO8601) - , _vtAcceptedRouteCount :: !(Maybe Int) - , _vtStatusMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VGWTelemetry' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vtStatus' - The status of the VPN tunnel. --- --- * 'vtOutsideIPAddress' - The Internet-routable IP address of the virtual private gateway's outside interface. --- --- * 'vtLastStatusChange' - The date and time of the last change in status. --- --- * 'vtAcceptedRouteCount' - The number of accepted routes. --- --- * 'vtStatusMessage' - If an error occurs, a description of the error. -vgwTelemetry - :: VGWTelemetry -vgwTelemetry = - VGWTelemetry' - { _vtStatus = Nothing - , _vtOutsideIPAddress = Nothing - , _vtLastStatusChange = Nothing - , _vtAcceptedRouteCount = Nothing - , _vtStatusMessage = Nothing - } - - --- | The status of the VPN tunnel. -vtStatus :: Lens' VGWTelemetry (Maybe TelemetryStatus) -vtStatus = lens _vtStatus (\ s a -> s{_vtStatus = a}); - --- | The Internet-routable IP address of the virtual private gateway's outside interface. -vtOutsideIPAddress :: Lens' VGWTelemetry (Maybe Text) -vtOutsideIPAddress = lens _vtOutsideIPAddress (\ s a -> s{_vtOutsideIPAddress = a}); - --- | The date and time of the last change in status. -vtLastStatusChange :: Lens' VGWTelemetry (Maybe UTCTime) -vtLastStatusChange = lens _vtLastStatusChange (\ s a -> s{_vtLastStatusChange = a}) . mapping _Time; - --- | The number of accepted routes. -vtAcceptedRouteCount :: Lens' VGWTelemetry (Maybe Int) -vtAcceptedRouteCount = lens _vtAcceptedRouteCount (\ s a -> s{_vtAcceptedRouteCount = a}); - --- | If an error occurs, a description of the error. -vtStatusMessage :: Lens' VGWTelemetry (Maybe Text) -vtStatusMessage = lens _vtStatusMessage (\ s a -> s{_vtStatusMessage = a}); - -instance FromXML VGWTelemetry where - parseXML x - = VGWTelemetry' <$> - (x .@? "status") <*> (x .@? "outsideIpAddress") <*> - (x .@? "lastStatusChange") - <*> (x .@? "acceptedRouteCount") - <*> (x .@? "statusMessage") - -instance Hashable VGWTelemetry where - -instance NFData VGWTelemetry where - --- | Describes a VPC. --- --- --- --- /See:/ 'vpc' smart constructor. -data VPC = VPC' - { _vpcIPv6CidrBlockAssociationSet :: !(Maybe [VPCIPv6CidrBlockAssociation]) - , _vpcCidrBlockAssociationSet :: !(Maybe [VPCCidrBlockAssociation]) - , _vpcTags :: !(Maybe [Tag]) - , _vpcIsDefault :: !(Maybe Bool) - , _vpcCidrBlock :: !Text - , _vpcDHCPOptionsId :: !Text - , _vpcInstanceTenancy :: !Tenancy - , _vpcState :: !VPCState - , _vpcVPCId :: !Text - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPC' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vpcIPv6CidrBlockAssociationSet' - Information about the IPv6 CIDR blocks associated with the VPC. --- --- * 'vpcCidrBlockAssociationSet' - Information about the IPv4 CIDR blocks associated with the VPC. --- --- * 'vpcTags' - Any tags assigned to the VPC. --- --- * 'vpcIsDefault' - Indicates whether the VPC is the default VPC. --- --- * 'vpcCidrBlock' - The primary IPv4 CIDR block for the VPC. --- --- * 'vpcDHCPOptionsId' - The ID of the set of DHCP options you've associated with the VPC (or @default@ if the default options are associated with the VPC). --- --- * 'vpcInstanceTenancy' - The allowed tenancy of instances launched into the VPC. --- --- * 'vpcState' - The current state of the VPC. --- --- * 'vpcVPCId' - The ID of the VPC. -vpc - :: Text -- ^ 'vpcCidrBlock' - -> Text -- ^ 'vpcDHCPOptionsId' - -> Tenancy -- ^ 'vpcInstanceTenancy' - -> VPCState -- ^ 'vpcState' - -> Text -- ^ 'vpcVPCId' - -> VPC -vpc pCidrBlock_ pDHCPOptionsId_ pInstanceTenancy_ pState_ pVPCId_ = - VPC' - { _vpcIPv6CidrBlockAssociationSet = Nothing - , _vpcCidrBlockAssociationSet = Nothing - , _vpcTags = Nothing - , _vpcIsDefault = Nothing - , _vpcCidrBlock = pCidrBlock_ - , _vpcDHCPOptionsId = pDHCPOptionsId_ - , _vpcInstanceTenancy = pInstanceTenancy_ - , _vpcState = pState_ - , _vpcVPCId = pVPCId_ - } - - --- | Information about the IPv6 CIDR blocks associated with the VPC. -vpcIPv6CidrBlockAssociationSet :: Lens' VPC [VPCIPv6CidrBlockAssociation] -vpcIPv6CidrBlockAssociationSet = lens _vpcIPv6CidrBlockAssociationSet (\ s a -> s{_vpcIPv6CidrBlockAssociationSet = a}) . _Default . _Coerce; - --- | Information about the IPv4 CIDR blocks associated with the VPC. -vpcCidrBlockAssociationSet :: Lens' VPC [VPCCidrBlockAssociation] -vpcCidrBlockAssociationSet = lens _vpcCidrBlockAssociationSet (\ s a -> s{_vpcCidrBlockAssociationSet = a}) . _Default . _Coerce; - --- | Any tags assigned to the VPC. -vpcTags :: Lens' VPC [Tag] -vpcTags = lens _vpcTags (\ s a -> s{_vpcTags = a}) . _Default . _Coerce; - --- | Indicates whether the VPC is the default VPC. -vpcIsDefault :: Lens' VPC (Maybe Bool) -vpcIsDefault = lens _vpcIsDefault (\ s a -> s{_vpcIsDefault = a}); - --- | The primary IPv4 CIDR block for the VPC. -vpcCidrBlock :: Lens' VPC Text -vpcCidrBlock = lens _vpcCidrBlock (\ s a -> s{_vpcCidrBlock = a}); - --- | The ID of the set of DHCP options you've associated with the VPC (or @default@ if the default options are associated with the VPC). -vpcDHCPOptionsId :: Lens' VPC Text -vpcDHCPOptionsId = lens _vpcDHCPOptionsId (\ s a -> s{_vpcDHCPOptionsId = a}); - --- | The allowed tenancy of instances launched into the VPC. -vpcInstanceTenancy :: Lens' VPC Tenancy -vpcInstanceTenancy = lens _vpcInstanceTenancy (\ s a -> s{_vpcInstanceTenancy = a}); - --- | The current state of the VPC. -vpcState :: Lens' VPC VPCState -vpcState = lens _vpcState (\ s a -> s{_vpcState = a}); - --- | The ID of the VPC. -vpcVPCId :: Lens' VPC Text -vpcVPCId = lens _vpcVPCId (\ s a -> s{_vpcVPCId = a}); - -instance FromXML VPC where - parseXML x - = VPC' <$> - (x .@? "ipv6CidrBlockAssociationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "cidrBlockAssociationSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "isDefault") - <*> (x .@ "cidrBlock") - <*> (x .@ "dhcpOptionsId") - <*> (x .@ "instanceTenancy") - <*> (x .@ "state") - <*> (x .@ "vpcId") - -instance Hashable VPC where - -instance NFData VPC where - --- | Describes an attachment between a virtual private gateway and a VPC. --- --- --- --- /See:/ 'vpcAttachment' smart constructor. -data VPCAttachment = VPCAttachment' - { _vaState :: !(Maybe AttachmentStatus) - , _vaVPCId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCAttachment' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vaState' - The current state of the attachment. --- --- * 'vaVPCId' - The ID of the VPC. -vpcAttachment - :: VPCAttachment -vpcAttachment = VPCAttachment' {_vaState = Nothing, _vaVPCId = Nothing} - - --- | The current state of the attachment. -vaState :: Lens' VPCAttachment (Maybe AttachmentStatus) -vaState = lens _vaState (\ s a -> s{_vaState = a}); - --- | The ID of the VPC. -vaVPCId :: Lens' VPCAttachment (Maybe Text) -vaVPCId = lens _vaVPCId (\ s a -> s{_vaVPCId = a}); - -instance FromXML VPCAttachment where - parseXML x - = VPCAttachment' <$> - (x .@? "state") <*> (x .@? "vpcId") - -instance Hashable VPCAttachment where - -instance NFData VPCAttachment where - --- | Describes an IPv4 CIDR block associated with a VPC. --- --- --- --- /See:/ 'vpcCidrBlockAssociation' smart constructor. -data VPCCidrBlockAssociation = VPCCidrBlockAssociation' - { _vcbaAssociationId :: !(Maybe Text) - , _vcbaCidrBlockState :: !(Maybe VPCCidrBlockState) - , _vcbaCidrBlock :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCCidrBlockAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vcbaAssociationId' - The association ID for the IPv4 CIDR block. --- --- * 'vcbaCidrBlockState' - Information about the state of the CIDR block. --- --- * 'vcbaCidrBlock' - The IPv4 CIDR block. -vpcCidrBlockAssociation - :: VPCCidrBlockAssociation -vpcCidrBlockAssociation = - VPCCidrBlockAssociation' - { _vcbaAssociationId = Nothing - , _vcbaCidrBlockState = Nothing - , _vcbaCidrBlock = Nothing - } - - --- | The association ID for the IPv4 CIDR block. -vcbaAssociationId :: Lens' VPCCidrBlockAssociation (Maybe Text) -vcbaAssociationId = lens _vcbaAssociationId (\ s a -> s{_vcbaAssociationId = a}); - --- | Information about the state of the CIDR block. -vcbaCidrBlockState :: Lens' VPCCidrBlockAssociation (Maybe VPCCidrBlockState) -vcbaCidrBlockState = lens _vcbaCidrBlockState (\ s a -> s{_vcbaCidrBlockState = a}); - --- | The IPv4 CIDR block. -vcbaCidrBlock :: Lens' VPCCidrBlockAssociation (Maybe Text) -vcbaCidrBlock = lens _vcbaCidrBlock (\ s a -> s{_vcbaCidrBlock = a}); - -instance FromXML VPCCidrBlockAssociation where - parseXML x - = VPCCidrBlockAssociation' <$> - (x .@? "associationId") <*> (x .@? "cidrBlockState") - <*> (x .@? "cidrBlock") - -instance Hashable VPCCidrBlockAssociation where - -instance NFData VPCCidrBlockAssociation where - --- | Describes the state of a CIDR block. --- --- --- --- /See:/ 'vpcCidrBlockState' smart constructor. -data VPCCidrBlockState = VPCCidrBlockState' - { _vcbsState :: !(Maybe VPCCidrBlockStateCode) - , _vcbsStatusMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCCidrBlockState' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vcbsState' - The state of the CIDR block. --- --- * 'vcbsStatusMessage' - A message about the status of the CIDR block, if applicable. -vpcCidrBlockState - :: VPCCidrBlockState -vpcCidrBlockState = - VPCCidrBlockState' {_vcbsState = Nothing, _vcbsStatusMessage = Nothing} - - --- | The state of the CIDR block. -vcbsState :: Lens' VPCCidrBlockState (Maybe VPCCidrBlockStateCode) -vcbsState = lens _vcbsState (\ s a -> s{_vcbsState = a}); - --- | A message about the status of the CIDR block, if applicable. -vcbsStatusMessage :: Lens' VPCCidrBlockState (Maybe Text) -vcbsStatusMessage = lens _vcbsStatusMessage (\ s a -> s{_vcbsStatusMessage = a}); - -instance FromXML VPCCidrBlockState where - parseXML x - = VPCCidrBlockState' <$> - (x .@? "state") <*> (x .@? "statusMessage") - -instance Hashable VPCCidrBlockState where - -instance NFData VPCCidrBlockState where - --- | Describes whether a VPC is enabled for ClassicLink. --- --- --- --- /See:/ 'vpcClassicLink' smart constructor. -data VPCClassicLink = VPCClassicLink' - { _vclVPCId :: !(Maybe Text) - , _vclTags :: !(Maybe [Tag]) - , _vclClassicLinkEnabled :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCClassicLink' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vclVPCId' - The ID of the VPC. --- --- * 'vclTags' - Any tags assigned to the VPC. --- --- * 'vclClassicLinkEnabled' - Indicates whether the VPC is enabled for ClassicLink. -vpcClassicLink - :: VPCClassicLink -vpcClassicLink = - VPCClassicLink' - {_vclVPCId = Nothing, _vclTags = Nothing, _vclClassicLinkEnabled = Nothing} - - --- | The ID of the VPC. -vclVPCId :: Lens' VPCClassicLink (Maybe Text) -vclVPCId = lens _vclVPCId (\ s a -> s{_vclVPCId = a}); - --- | Any tags assigned to the VPC. -vclTags :: Lens' VPCClassicLink [Tag] -vclTags = lens _vclTags (\ s a -> s{_vclTags = a}) . _Default . _Coerce; - --- | Indicates whether the VPC is enabled for ClassicLink. -vclClassicLinkEnabled :: Lens' VPCClassicLink (Maybe Bool) -vclClassicLinkEnabled = lens _vclClassicLinkEnabled (\ s a -> s{_vclClassicLinkEnabled = a}); - -instance FromXML VPCClassicLink where - parseXML x - = VPCClassicLink' <$> - (x .@? "vpcId") <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "classicLinkEnabled") - -instance Hashable VPCClassicLink where - -instance NFData VPCClassicLink where - --- | Describes a VPC endpoint. --- --- --- --- /See:/ 'vpcEndpoint' smart constructor. -data VPCEndpoint = VPCEndpoint' - { _veGroups :: !(Maybe [SecurityGroupIdentifier]) - , _veState :: !(Maybe State) - , _vePolicyDocument :: !(Maybe Text) - , _veSubnetIds :: !(Maybe [Text]) - , _veNetworkInterfaceIds :: !(Maybe [Text]) - , _veVPCId :: !(Maybe Text) - , _veDNSEntries :: !(Maybe [DNSEntry]) - , _veVPCEndpointType :: !(Maybe VPCEndpointType) - , _vePrivateDNSEnabled :: !(Maybe Bool) - , _veCreationTimestamp :: !(Maybe ISO8601) - , _veServiceName :: !(Maybe Text) - , _veVPCEndpointId :: !(Maybe Text) - , _veRouteTableIds :: !(Maybe [Text]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCEndpoint' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'veGroups' - (Interface endpoint) Information about the security groups associated with the network interface. --- --- * 'veState' - The state of the VPC endpoint. --- --- * 'vePolicyDocument' - The policy document associated with the endpoint, if applicable. --- --- * 'veSubnetIds' - (Interface endpoint) One or more subnets in which the endpoint is located. --- --- * 'veNetworkInterfaceIds' - (Interface endpoint) One or more network interfaces for the endpoint. --- --- * 'veVPCId' - The ID of the VPC to which the endpoint is associated. --- --- * 'veDNSEntries' - (Interface endpoint) The DNS entries for the endpoint. --- --- * 'veVPCEndpointType' - The type of endpoint. --- --- * 'vePrivateDNSEnabled' - (Interface endpoint) Indicates whether the VPC is associated with a private hosted zone. --- --- * 'veCreationTimestamp' - The date and time the VPC endpoint was created. --- --- * 'veServiceName' - The name of the AWS service to which the endpoint is associated. --- --- * 'veVPCEndpointId' - The ID of the VPC endpoint. --- --- * 'veRouteTableIds' - (Gateway endpoint) One or more route tables associated with the endpoint. -vpcEndpoint - :: VPCEndpoint -vpcEndpoint = - VPCEndpoint' - { _veGroups = Nothing - , _veState = Nothing - , _vePolicyDocument = Nothing - , _veSubnetIds = Nothing - , _veNetworkInterfaceIds = Nothing - , _veVPCId = Nothing - , _veDNSEntries = Nothing - , _veVPCEndpointType = Nothing - , _vePrivateDNSEnabled = Nothing - , _veCreationTimestamp = Nothing - , _veServiceName = Nothing - , _veVPCEndpointId = Nothing - , _veRouteTableIds = Nothing - } - - --- | (Interface endpoint) Information about the security groups associated with the network interface. -veGroups :: Lens' VPCEndpoint [SecurityGroupIdentifier] -veGroups = lens _veGroups (\ s a -> s{_veGroups = a}) . _Default . _Coerce; - --- | The state of the VPC endpoint. -veState :: Lens' VPCEndpoint (Maybe State) -veState = lens _veState (\ s a -> s{_veState = a}); - --- | The policy document associated with the endpoint, if applicable. -vePolicyDocument :: Lens' VPCEndpoint (Maybe Text) -vePolicyDocument = lens _vePolicyDocument (\ s a -> s{_vePolicyDocument = a}); - --- | (Interface endpoint) One or more subnets in which the endpoint is located. -veSubnetIds :: Lens' VPCEndpoint [Text] -veSubnetIds = lens _veSubnetIds (\ s a -> s{_veSubnetIds = a}) . _Default . _Coerce; - --- | (Interface endpoint) One or more network interfaces for the endpoint. -veNetworkInterfaceIds :: Lens' VPCEndpoint [Text] -veNetworkInterfaceIds = lens _veNetworkInterfaceIds (\ s a -> s{_veNetworkInterfaceIds = a}) . _Default . _Coerce; - --- | The ID of the VPC to which the endpoint is associated. -veVPCId :: Lens' VPCEndpoint (Maybe Text) -veVPCId = lens _veVPCId (\ s a -> s{_veVPCId = a}); - --- | (Interface endpoint) The DNS entries for the endpoint. -veDNSEntries :: Lens' VPCEndpoint [DNSEntry] -veDNSEntries = lens _veDNSEntries (\ s a -> s{_veDNSEntries = a}) . _Default . _Coerce; - --- | The type of endpoint. -veVPCEndpointType :: Lens' VPCEndpoint (Maybe VPCEndpointType) -veVPCEndpointType = lens _veVPCEndpointType (\ s a -> s{_veVPCEndpointType = a}); - --- | (Interface endpoint) Indicates whether the VPC is associated with a private hosted zone. -vePrivateDNSEnabled :: Lens' VPCEndpoint (Maybe Bool) -vePrivateDNSEnabled = lens _vePrivateDNSEnabled (\ s a -> s{_vePrivateDNSEnabled = a}); - --- | The date and time the VPC endpoint was created. -veCreationTimestamp :: Lens' VPCEndpoint (Maybe UTCTime) -veCreationTimestamp = lens _veCreationTimestamp (\ s a -> s{_veCreationTimestamp = a}) . mapping _Time; - --- | The name of the AWS service to which the endpoint is associated. -veServiceName :: Lens' VPCEndpoint (Maybe Text) -veServiceName = lens _veServiceName (\ s a -> s{_veServiceName = a}); - --- | The ID of the VPC endpoint. -veVPCEndpointId :: Lens' VPCEndpoint (Maybe Text) -veVPCEndpointId = lens _veVPCEndpointId (\ s a -> s{_veVPCEndpointId = a}); - --- | (Gateway endpoint) One or more route tables associated with the endpoint. -veRouteTableIds :: Lens' VPCEndpoint [Text] -veRouteTableIds = lens _veRouteTableIds (\ s a -> s{_veRouteTableIds = a}) . _Default . _Coerce; - -instance FromXML VPCEndpoint where - parseXML x - = VPCEndpoint' <$> - (x .@? "groupSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "state") - <*> (x .@? "policyDocument") - <*> - (x .@? "subnetIdSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "networkInterfaceIdSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpcId") - <*> - (x .@? "dnsEntrySet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpcEndpointType") - <*> (x .@? "privateDnsEnabled") - <*> (x .@? "creationTimestamp") - <*> (x .@? "serviceName") - <*> (x .@? "vpcEndpointId") - <*> - (x .@? "routeTableIdSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable VPCEndpoint where - -instance NFData VPCEndpoint where - --- | Describes an IPv6 CIDR block associated with a VPC. --- --- --- --- /See:/ 'vpcIPv6CidrBlockAssociation' smart constructor. -data VPCIPv6CidrBlockAssociation = VPCIPv6CidrBlockAssociation' - { _vicbaAssociationId :: !(Maybe Text) - , _vicbaIPv6CidrBlock :: !(Maybe Text) - , _vicbaIPv6CidrBlockState :: !(Maybe VPCCidrBlockState) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCIPv6CidrBlockAssociation' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vicbaAssociationId' - The association ID for the IPv6 CIDR block. --- --- * 'vicbaIPv6CidrBlock' - The IPv6 CIDR block. --- --- * 'vicbaIPv6CidrBlockState' - Information about the state of the CIDR block. -vpcIPv6CidrBlockAssociation - :: VPCIPv6CidrBlockAssociation -vpcIPv6CidrBlockAssociation = - VPCIPv6CidrBlockAssociation' - { _vicbaAssociationId = Nothing - , _vicbaIPv6CidrBlock = Nothing - , _vicbaIPv6CidrBlockState = Nothing - } - - --- | The association ID for the IPv6 CIDR block. -vicbaAssociationId :: Lens' VPCIPv6CidrBlockAssociation (Maybe Text) -vicbaAssociationId = lens _vicbaAssociationId (\ s a -> s{_vicbaAssociationId = a}); - --- | The IPv6 CIDR block. -vicbaIPv6CidrBlock :: Lens' VPCIPv6CidrBlockAssociation (Maybe Text) -vicbaIPv6CidrBlock = lens _vicbaIPv6CidrBlock (\ s a -> s{_vicbaIPv6CidrBlock = a}); - --- | Information about the state of the CIDR block. -vicbaIPv6CidrBlockState :: Lens' VPCIPv6CidrBlockAssociation (Maybe VPCCidrBlockState) -vicbaIPv6CidrBlockState = lens _vicbaIPv6CidrBlockState (\ s a -> s{_vicbaIPv6CidrBlockState = a}); - -instance FromXML VPCIPv6CidrBlockAssociation where - parseXML x - = VPCIPv6CidrBlockAssociation' <$> - (x .@? "associationId") <*> (x .@? "ipv6CidrBlock") - <*> (x .@? "ipv6CidrBlockState") - -instance Hashable VPCIPv6CidrBlockAssociation where - -instance NFData VPCIPv6CidrBlockAssociation where - --- | Describes a VPC peering connection. --- --- --- --- /See:/ 'vpcPeeringConnection' smart constructor. -data VPCPeeringConnection = VPCPeeringConnection' - { _vpcpcVPCPeeringConnectionId :: !(Maybe Text) - , _vpcpcStatus :: !(Maybe VPCPeeringConnectionStateReason) - , _vpcpcAccepterVPCInfo :: !(Maybe VPCPeeringConnectionVPCInfo) - , _vpcpcRequesterVPCInfo :: !(Maybe VPCPeeringConnectionVPCInfo) - , _vpcpcExpirationTime :: !(Maybe ISO8601) - , _vpcpcTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCPeeringConnection' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vpcpcVPCPeeringConnectionId' - The ID of the VPC peering connection. --- --- * 'vpcpcStatus' - The status of the VPC peering connection. --- --- * 'vpcpcAccepterVPCInfo' - Information about the accepter VPC. CIDR block information is only returned when describing an active VPC peering connection. --- --- * 'vpcpcRequesterVPCInfo' - Information about the requester VPC. CIDR block information is only returned when describing an active VPC peering connection. --- --- * 'vpcpcExpirationTime' - The time that an unaccepted VPC peering connection will expire. --- --- * 'vpcpcTags' - Any tags assigned to the resource. -vpcPeeringConnection - :: VPCPeeringConnection -vpcPeeringConnection = - VPCPeeringConnection' - { _vpcpcVPCPeeringConnectionId = Nothing - , _vpcpcStatus = Nothing - , _vpcpcAccepterVPCInfo = Nothing - , _vpcpcRequesterVPCInfo = Nothing - , _vpcpcExpirationTime = Nothing - , _vpcpcTags = Nothing - } - - --- | The ID of the VPC peering connection. -vpcpcVPCPeeringConnectionId :: Lens' VPCPeeringConnection (Maybe Text) -vpcpcVPCPeeringConnectionId = lens _vpcpcVPCPeeringConnectionId (\ s a -> s{_vpcpcVPCPeeringConnectionId = a}); - --- | The status of the VPC peering connection. -vpcpcStatus :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionStateReason) -vpcpcStatus = lens _vpcpcStatus (\ s a -> s{_vpcpcStatus = a}); - --- | Information about the accepter VPC. CIDR block information is only returned when describing an active VPC peering connection. -vpcpcAccepterVPCInfo :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionVPCInfo) -vpcpcAccepterVPCInfo = lens _vpcpcAccepterVPCInfo (\ s a -> s{_vpcpcAccepterVPCInfo = a}); - --- | Information about the requester VPC. CIDR block information is only returned when describing an active VPC peering connection. -vpcpcRequesterVPCInfo :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionVPCInfo) -vpcpcRequesterVPCInfo = lens _vpcpcRequesterVPCInfo (\ s a -> s{_vpcpcRequesterVPCInfo = a}); - --- | The time that an unaccepted VPC peering connection will expire. -vpcpcExpirationTime :: Lens' VPCPeeringConnection (Maybe UTCTime) -vpcpcExpirationTime = lens _vpcpcExpirationTime (\ s a -> s{_vpcpcExpirationTime = a}) . mapping _Time; - --- | Any tags assigned to the resource. -vpcpcTags :: Lens' VPCPeeringConnection [Tag] -vpcpcTags = lens _vpcpcTags (\ s a -> s{_vpcpcTags = a}) . _Default . _Coerce; - -instance FromXML VPCPeeringConnection where - parseXML x - = VPCPeeringConnection' <$> - (x .@? "vpcPeeringConnectionId") <*> (x .@? "status") - <*> (x .@? "accepterVpcInfo") - <*> (x .@? "requesterVpcInfo") - <*> (x .@? "expirationTime") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable VPCPeeringConnection where - -instance NFData VPCPeeringConnection where - --- | Describes the VPC peering connection options. --- --- --- --- /See:/ 'vpcPeeringConnectionOptionsDescription' smart constructor. -data VPCPeeringConnectionOptionsDescription = VPCPeeringConnectionOptionsDescription' - { _vpcodAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool) - , _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool) - , _vpcodAllowDNSResolutionFromRemoteVPC :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCPeeringConnectionOptionsDescription' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vpcodAllowEgressFromLocalVPCToRemoteClassicLink' - Indicates whether a local VPC can communicate with a ClassicLink connection in the peer VPC over the VPC peering connection. --- --- * 'vpcodAllowEgressFromLocalClassicLinkToRemoteVPC' - Indicates whether a local ClassicLink connection can communicate with the peer VPC over the VPC peering connection. --- --- * 'vpcodAllowDNSResolutionFromRemoteVPC' - Indicates whether a local VPC can resolve public DNS hostnames to private IP addresses when queried from instances in a peer VPC. -vpcPeeringConnectionOptionsDescription - :: VPCPeeringConnectionOptionsDescription -vpcPeeringConnectionOptionsDescription = - VPCPeeringConnectionOptionsDescription' - { _vpcodAllowEgressFromLocalVPCToRemoteClassicLink = Nothing - , _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing - , _vpcodAllowDNSResolutionFromRemoteVPC = Nothing - } - - --- | Indicates whether a local VPC can communicate with a ClassicLink connection in the peer VPC over the VPC peering connection. -vpcodAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool) -vpcodAllowEgressFromLocalVPCToRemoteClassicLink = lens _vpcodAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_vpcodAllowEgressFromLocalVPCToRemoteClassicLink = a}); - --- | Indicates whether a local ClassicLink connection can communicate with the peer VPC over the VPC peering connection. -vpcodAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool) -vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = lens _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = a}); - --- | Indicates whether a local VPC can resolve public DNS hostnames to private IP addresses when queried from instances in a peer VPC. -vpcodAllowDNSResolutionFromRemoteVPC :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool) -vpcodAllowDNSResolutionFromRemoteVPC = lens _vpcodAllowDNSResolutionFromRemoteVPC (\ s a -> s{_vpcodAllowDNSResolutionFromRemoteVPC = a}); - -instance FromXML - VPCPeeringConnectionOptionsDescription - where - parseXML x - = VPCPeeringConnectionOptionsDescription' <$> - (x .@? "allowEgressFromLocalVpcToRemoteClassicLink") - <*> - (x .@? "allowEgressFromLocalClassicLinkToRemoteVpc") - <*> (x .@? "allowDnsResolutionFromRemoteVpc") - -instance Hashable - VPCPeeringConnectionOptionsDescription - where - -instance NFData - VPCPeeringConnectionOptionsDescription - where - --- | Describes the status of a VPC peering connection. --- --- --- --- /See:/ 'vpcPeeringConnectionStateReason' smart constructor. -data VPCPeeringConnectionStateReason = VPCPeeringConnectionStateReason' - { _vpcsrCode :: !(Maybe VPCPeeringConnectionStateReasonCode) - , _vpcsrMessage :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCPeeringConnectionStateReason' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vpcsrCode' - The status of the VPC peering connection. --- --- * 'vpcsrMessage' - A message that provides more information about the status, if applicable. -vpcPeeringConnectionStateReason - :: VPCPeeringConnectionStateReason -vpcPeeringConnectionStateReason = - VPCPeeringConnectionStateReason' - {_vpcsrCode = Nothing, _vpcsrMessage = Nothing} - - --- | The status of the VPC peering connection. -vpcsrCode :: Lens' VPCPeeringConnectionStateReason (Maybe VPCPeeringConnectionStateReasonCode) -vpcsrCode = lens _vpcsrCode (\ s a -> s{_vpcsrCode = a}); - --- | A message that provides more information about the status, if applicable. -vpcsrMessage :: Lens' VPCPeeringConnectionStateReason (Maybe Text) -vpcsrMessage = lens _vpcsrMessage (\ s a -> s{_vpcsrMessage = a}); - -instance FromXML VPCPeeringConnectionStateReason - where - parseXML x - = VPCPeeringConnectionStateReason' <$> - (x .@? "code") <*> (x .@? "message") - -instance Hashable VPCPeeringConnectionStateReason - where - -instance NFData VPCPeeringConnectionStateReason where - --- | Describes a VPC in a VPC peering connection. --- --- --- --- /See:/ 'vpcPeeringConnectionVPCInfo' smart constructor. -data VPCPeeringConnectionVPCInfo = VPCPeeringConnectionVPCInfo' - { _vpcviCidrBlockSet :: !(Maybe [CidrBlock]) - , _vpcviVPCId :: !(Maybe Text) - , _vpcviOwnerId :: !(Maybe Text) - , _vpcviPeeringOptions :: !(Maybe VPCPeeringConnectionOptionsDescription) - , _vpcviCidrBlock :: !(Maybe Text) - , _vpcviIPv6CidrBlockSet :: !(Maybe [IPv6CidrBlock]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPCPeeringConnectionVPCInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vpcviCidrBlockSet' - Information about the IPv4 CIDR blocks for the VPC. --- --- * 'vpcviVPCId' - The ID of the VPC. --- --- * 'vpcviOwnerId' - The AWS account ID of the VPC owner. --- --- * 'vpcviPeeringOptions' - Information about the VPC peering connection options for the accepter or requester VPC. --- --- * 'vpcviCidrBlock' - The IPv4 CIDR block for the VPC. --- --- * 'vpcviIPv6CidrBlockSet' - The IPv6 CIDR block for the VPC. -vpcPeeringConnectionVPCInfo - :: VPCPeeringConnectionVPCInfo -vpcPeeringConnectionVPCInfo = - VPCPeeringConnectionVPCInfo' - { _vpcviCidrBlockSet = Nothing - , _vpcviVPCId = Nothing - , _vpcviOwnerId = Nothing - , _vpcviPeeringOptions = Nothing - , _vpcviCidrBlock = Nothing - , _vpcviIPv6CidrBlockSet = Nothing - } - - --- | Information about the IPv4 CIDR blocks for the VPC. -vpcviCidrBlockSet :: Lens' VPCPeeringConnectionVPCInfo [CidrBlock] -vpcviCidrBlockSet = lens _vpcviCidrBlockSet (\ s a -> s{_vpcviCidrBlockSet = a}) . _Default . _Coerce; - --- | The ID of the VPC. -vpcviVPCId :: Lens' VPCPeeringConnectionVPCInfo (Maybe Text) -vpcviVPCId = lens _vpcviVPCId (\ s a -> s{_vpcviVPCId = a}); - --- | The AWS account ID of the VPC owner. -vpcviOwnerId :: Lens' VPCPeeringConnectionVPCInfo (Maybe Text) -vpcviOwnerId = lens _vpcviOwnerId (\ s a -> s{_vpcviOwnerId = a}); - --- | Information about the VPC peering connection options for the accepter or requester VPC. -vpcviPeeringOptions :: Lens' VPCPeeringConnectionVPCInfo (Maybe VPCPeeringConnectionOptionsDescription) -vpcviPeeringOptions = lens _vpcviPeeringOptions (\ s a -> s{_vpcviPeeringOptions = a}); - --- | The IPv4 CIDR block for the VPC. -vpcviCidrBlock :: Lens' VPCPeeringConnectionVPCInfo (Maybe Text) -vpcviCidrBlock = lens _vpcviCidrBlock (\ s a -> s{_vpcviCidrBlock = a}); - --- | The IPv6 CIDR block for the VPC. -vpcviIPv6CidrBlockSet :: Lens' VPCPeeringConnectionVPCInfo [IPv6CidrBlock] -vpcviIPv6CidrBlockSet = lens _vpcviIPv6CidrBlockSet (\ s a -> s{_vpcviIPv6CidrBlockSet = a}) . _Default . _Coerce; - -instance FromXML VPCPeeringConnectionVPCInfo where - parseXML x - = VPCPeeringConnectionVPCInfo' <$> - (x .@? "cidrBlockSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpcId") - <*> (x .@? "ownerId") - <*> (x .@? "peeringOptions") - <*> (x .@? "cidrBlock") - <*> - (x .@? "ipv6CidrBlockSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable VPCPeeringConnectionVPCInfo where - -instance NFData VPCPeeringConnectionVPCInfo where - --- | Describes a VPN connection. --- --- --- --- /See:/ 'vpnConnection' smart constructor. -data VPNConnection = VPNConnection' - { _vcCustomerGatewayConfiguration :: !(Maybe Text) - , _vcRoutes :: !(Maybe [VPNStaticRoute]) - , _vcVPNGatewayId :: !(Maybe Text) - , _vcCategory :: !(Maybe Text) - , _vcOptions :: !(Maybe VPNConnectionOptions) - , _vcTags :: !(Maybe [Tag]) - , _vcVGWTelemetry :: !(Maybe [VGWTelemetry]) - , _vcVPNConnectionId :: !Text - , _vcCustomerGatewayId :: !Text - , _vcState :: !VPNState - , _vcType :: !GatewayType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPNConnection' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vcCustomerGatewayConfiguration' - The configuration information for the VPN connection's customer gateway (in the native XML format). This element is always present in the 'CreateVpnConnection' response; however, it's present in the 'DescribeVpnConnections' response only if the VPN connection is in the @pending@ or @available@ state. --- --- * 'vcRoutes' - The static routes associated with the VPN connection. --- --- * 'vcVPNGatewayId' - The ID of the virtual private gateway at the AWS side of the VPN connection. --- --- * 'vcCategory' - The category of the VPN connection. A value of @VPN@ indicates an AWS VPN connection. A value of @VPN-Classic@ indicates an AWS Classic VPN connection. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . --- --- * 'vcOptions' - The VPN connection options. --- --- * 'vcTags' - Any tags assigned to the VPN connection. --- --- * 'vcVGWTelemetry' - Information about the VPN tunnel. --- --- * 'vcVPNConnectionId' - The ID of the VPN connection. --- --- * 'vcCustomerGatewayId' - The ID of the customer gateway at your end of the VPN connection. --- --- * 'vcState' - The current state of the VPN connection. --- --- * 'vcType' - The type of VPN connection. -vpnConnection - :: Text -- ^ 'vcVPNConnectionId' - -> Text -- ^ 'vcCustomerGatewayId' - -> VPNState -- ^ 'vcState' - -> GatewayType -- ^ 'vcType' - -> VPNConnection -vpnConnection pVPNConnectionId_ pCustomerGatewayId_ pState_ pType_ = - VPNConnection' - { _vcCustomerGatewayConfiguration = Nothing - , _vcRoutes = Nothing - , _vcVPNGatewayId = Nothing - , _vcCategory = Nothing - , _vcOptions = Nothing - , _vcTags = Nothing - , _vcVGWTelemetry = Nothing - , _vcVPNConnectionId = pVPNConnectionId_ - , _vcCustomerGatewayId = pCustomerGatewayId_ - , _vcState = pState_ - , _vcType = pType_ - } - - --- | The configuration information for the VPN connection's customer gateway (in the native XML format). This element is always present in the 'CreateVpnConnection' response; however, it's present in the 'DescribeVpnConnections' response only if the VPN connection is in the @pending@ or @available@ state. -vcCustomerGatewayConfiguration :: Lens' VPNConnection (Maybe Text) -vcCustomerGatewayConfiguration = lens _vcCustomerGatewayConfiguration (\ s a -> s{_vcCustomerGatewayConfiguration = a}); - --- | The static routes associated with the VPN connection. -vcRoutes :: Lens' VPNConnection [VPNStaticRoute] -vcRoutes = lens _vcRoutes (\ s a -> s{_vcRoutes = a}) . _Default . _Coerce; - --- | The ID of the virtual private gateway at the AWS side of the VPN connection. -vcVPNGatewayId :: Lens' VPNConnection (Maybe Text) -vcVPNGatewayId = lens _vcVPNGatewayId (\ s a -> s{_vcVPNGatewayId = a}); - --- | The category of the VPN connection. A value of @VPN@ indicates an AWS VPN connection. A value of @VPN-Classic@ indicates an AWS Classic VPN connection. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . -vcCategory :: Lens' VPNConnection (Maybe Text) -vcCategory = lens _vcCategory (\ s a -> s{_vcCategory = a}); - --- | The VPN connection options. -vcOptions :: Lens' VPNConnection (Maybe VPNConnectionOptions) -vcOptions = lens _vcOptions (\ s a -> s{_vcOptions = a}); - --- | Any tags assigned to the VPN connection. -vcTags :: Lens' VPNConnection [Tag] -vcTags = lens _vcTags (\ s a -> s{_vcTags = a}) . _Default . _Coerce; - --- | Information about the VPN tunnel. -vcVGWTelemetry :: Lens' VPNConnection [VGWTelemetry] -vcVGWTelemetry = lens _vcVGWTelemetry (\ s a -> s{_vcVGWTelemetry = a}) . _Default . _Coerce; - --- | The ID of the VPN connection. -vcVPNConnectionId :: Lens' VPNConnection Text -vcVPNConnectionId = lens _vcVPNConnectionId (\ s a -> s{_vcVPNConnectionId = a}); - --- | The ID of the customer gateway at your end of the VPN connection. -vcCustomerGatewayId :: Lens' VPNConnection Text -vcCustomerGatewayId = lens _vcCustomerGatewayId (\ s a -> s{_vcCustomerGatewayId = a}); - --- | The current state of the VPN connection. -vcState :: Lens' VPNConnection VPNState -vcState = lens _vcState (\ s a -> s{_vcState = a}); - --- | The type of VPN connection. -vcType :: Lens' VPNConnection GatewayType -vcType = lens _vcType (\ s a -> s{_vcType = a}); - -instance FromXML VPNConnection where - parseXML x - = VPNConnection' <$> - (x .@? "customerGatewayConfiguration") <*> - (x .@? "routes" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpnGatewayId") - <*> (x .@? "category") - <*> (x .@? "options") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> - (x .@? "vgwTelemetry" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "vpnConnectionId") - <*> (x .@ "customerGatewayId") - <*> (x .@ "state") - <*> (x .@ "type") - -instance Hashable VPNConnection where - -instance NFData VPNConnection where - --- | Describes VPN connection options. --- --- --- --- /See:/ 'vpnConnectionOptions' smart constructor. -newtype VPNConnectionOptions = VPNConnectionOptions' - { _vcoStaticRoutesOnly :: Maybe Bool - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPNConnectionOptions' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vcoStaticRoutesOnly' - Indicates whether the VPN connection uses static routes only. Static routes must be used for devices that don't support BGP. -vpnConnectionOptions - :: VPNConnectionOptions -vpnConnectionOptions = VPNConnectionOptions' {_vcoStaticRoutesOnly = Nothing} - - --- | Indicates whether the VPN connection uses static routes only. Static routes must be used for devices that don't support BGP. -vcoStaticRoutesOnly :: Lens' VPNConnectionOptions (Maybe Bool) -vcoStaticRoutesOnly = lens _vcoStaticRoutesOnly (\ s a -> s{_vcoStaticRoutesOnly = a}); - -instance FromXML VPNConnectionOptions where - parseXML x - = VPNConnectionOptions' <$> - (x .@? "staticRoutesOnly") - -instance Hashable VPNConnectionOptions where - -instance NFData VPNConnectionOptions where - --- | Describes VPN connection options. --- --- --- --- /See:/ 'vpnConnectionOptionsSpecification' smart constructor. -data VPNConnectionOptionsSpecification = VPNConnectionOptionsSpecification' - { _vcosTunnelOptions :: !(Maybe [VPNTunnelOptionsSpecification]) - , _vcosStaticRoutesOnly :: !(Maybe Bool) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPNConnectionOptionsSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vcosTunnelOptions' - The tunnel options for the VPN connection. --- --- * 'vcosStaticRoutesOnly' - Indicate whether the VPN connection uses static routes only. If you are creating a VPN connection for a device that does not support BGP, you must specify @true@ . Default: @false@ -vpnConnectionOptionsSpecification - :: VPNConnectionOptionsSpecification -vpnConnectionOptionsSpecification = - VPNConnectionOptionsSpecification' - {_vcosTunnelOptions = Nothing, _vcosStaticRoutesOnly = Nothing} - - --- | The tunnel options for the VPN connection. -vcosTunnelOptions :: Lens' VPNConnectionOptionsSpecification [VPNTunnelOptionsSpecification] -vcosTunnelOptions = lens _vcosTunnelOptions (\ s a -> s{_vcosTunnelOptions = a}) . _Default . _Coerce; - --- | Indicate whether the VPN connection uses static routes only. If you are creating a VPN connection for a device that does not support BGP, you must specify @true@ . Default: @false@ -vcosStaticRoutesOnly :: Lens' VPNConnectionOptionsSpecification (Maybe Bool) -vcosStaticRoutesOnly = lens _vcosStaticRoutesOnly (\ s a -> s{_vcosStaticRoutesOnly = a}); - -instance Hashable VPNConnectionOptionsSpecification - where - -instance NFData VPNConnectionOptionsSpecification - where - -instance ToQuery VPNConnectionOptionsSpecification - where - toQuery VPNConnectionOptionsSpecification'{..} - = mconcat - [toQuery - (toQueryList "TunnelOptions" <$> _vcosTunnelOptions), - "StaticRoutesOnly" =: _vcosStaticRoutesOnly] - --- | Describes a virtual private gateway. --- --- --- --- /See:/ 'vpnGateway' smart constructor. -data VPNGateway = VPNGateway' - { _vgState :: !(Maybe VPNState) - , _vgVPCAttachments :: !(Maybe [VPCAttachment]) - , _vgVPNGatewayId :: !(Maybe Text) - , _vgAmazonSideASN :: !(Maybe Integer) - , _vgAvailabilityZone :: !(Maybe Text) - , _vgType :: !(Maybe GatewayType) - , _vgTags :: !(Maybe [Tag]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPNGateway' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vgState' - The current state of the virtual private gateway. --- --- * 'vgVPCAttachments' - Any VPCs attached to the virtual private gateway. --- --- * 'vgVPNGatewayId' - The ID of the virtual private gateway. --- --- * 'vgAmazonSideASN' - The private Autonomous System Number (ASN) for the Amazon side of a BGP session. --- --- * 'vgAvailabilityZone' - The Availability Zone where the virtual private gateway was created, if applicable. This field may be empty or not returned. --- --- * 'vgType' - The type of VPN connection the virtual private gateway supports. --- --- * 'vgTags' - Any tags assigned to the virtual private gateway. -vpnGateway - :: VPNGateway -vpnGateway = - VPNGateway' - { _vgState = Nothing - , _vgVPCAttachments = Nothing - , _vgVPNGatewayId = Nothing - , _vgAmazonSideASN = Nothing - , _vgAvailabilityZone = Nothing - , _vgType = Nothing - , _vgTags = Nothing - } - - --- | The current state of the virtual private gateway. -vgState :: Lens' VPNGateway (Maybe VPNState) -vgState = lens _vgState (\ s a -> s{_vgState = a}); - --- | Any VPCs attached to the virtual private gateway. -vgVPCAttachments :: Lens' VPNGateway [VPCAttachment] -vgVPCAttachments = lens _vgVPCAttachments (\ s a -> s{_vgVPCAttachments = a}) . _Default . _Coerce; - --- | The ID of the virtual private gateway. -vgVPNGatewayId :: Lens' VPNGateway (Maybe Text) -vgVPNGatewayId = lens _vgVPNGatewayId (\ s a -> s{_vgVPNGatewayId = a}); - --- | The private Autonomous System Number (ASN) for the Amazon side of a BGP session. -vgAmazonSideASN :: Lens' VPNGateway (Maybe Integer) -vgAmazonSideASN = lens _vgAmazonSideASN (\ s a -> s{_vgAmazonSideASN = a}); - --- | The Availability Zone where the virtual private gateway was created, if applicable. This field may be empty or not returned. -vgAvailabilityZone :: Lens' VPNGateway (Maybe Text) -vgAvailabilityZone = lens _vgAvailabilityZone (\ s a -> s{_vgAvailabilityZone = a}); - --- | The type of VPN connection the virtual private gateway supports. -vgType :: Lens' VPNGateway (Maybe GatewayType) -vgType = lens _vgType (\ s a -> s{_vgType = a}); - --- | Any tags assigned to the virtual private gateway. -vgTags :: Lens' VPNGateway [Tag] -vgTags = lens _vgTags (\ s a -> s{_vgTags = a}) . _Default . _Coerce; - -instance FromXML VPNGateway where - parseXML x - = VPNGateway' <$> - (x .@? "state") <*> - (x .@? "attachments" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "vpnGatewayId") - <*> (x .@? "amazonSideAsn") - <*> (x .@? "availabilityZone") - <*> (x .@? "type") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable VPNGateway where - -instance NFData VPNGateway where - --- | Describes a static route for a VPN connection. --- --- --- --- /See:/ 'vpnStaticRoute' smart constructor. -data VPNStaticRoute = VPNStaticRoute' - { _vsrState :: !(Maybe VPNState) - , _vsrSource :: !(Maybe VPNStaticRouteSource) - , _vsrDestinationCidrBlock :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPNStaticRoute' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vsrState' - The current state of the static route. --- --- * 'vsrSource' - Indicates how the routes were provided. --- --- * 'vsrDestinationCidrBlock' - The CIDR block associated with the local subnet of the customer data center. -vpnStaticRoute - :: VPNStaticRoute -vpnStaticRoute = - VPNStaticRoute' - { _vsrState = Nothing - , _vsrSource = Nothing - , _vsrDestinationCidrBlock = Nothing - } - - --- | The current state of the static route. -vsrState :: Lens' VPNStaticRoute (Maybe VPNState) -vsrState = lens _vsrState (\ s a -> s{_vsrState = a}); - --- | Indicates how the routes were provided. -vsrSource :: Lens' VPNStaticRoute (Maybe VPNStaticRouteSource) -vsrSource = lens _vsrSource (\ s a -> s{_vsrSource = a}); - --- | The CIDR block associated with the local subnet of the customer data center. -vsrDestinationCidrBlock :: Lens' VPNStaticRoute (Maybe Text) -vsrDestinationCidrBlock = lens _vsrDestinationCidrBlock (\ s a -> s{_vsrDestinationCidrBlock = a}); - -instance FromXML VPNStaticRoute where - parseXML x - = VPNStaticRoute' <$> - (x .@? "state") <*> (x .@? "source") <*> - (x .@? "destinationCidrBlock") - -instance Hashable VPNStaticRoute where - -instance NFData VPNStaticRoute where - --- | The tunnel options for a VPN connection. --- --- --- --- /See:/ 'vpnTunnelOptionsSpecification' smart constructor. -data VPNTunnelOptionsSpecification = VPNTunnelOptionsSpecification' - { _vtosTunnelInsideCidr :: !(Maybe Text) - , _vtosPreSharedKey :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VPNTunnelOptionsSpecification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vtosTunnelInsideCidr' - The range of inside IP addresses for the tunnel. Any specified CIDR blocks must be unique across all VPN connections that use the same virtual private gateway. Constraints: A size /30 CIDR block from the @169.254.0.0/16@ range. The following CIDR blocks are reserved and cannot be used: * @169.254.0.0/30@ * @169.254.1.0/30@ * @169.254.2.0/30@ * @169.254.3.0/30@ * @169.254.4.0/30@ * @169.254.5.0/30@ * @169.254.169.252/30@ --- --- * 'vtosPreSharedKey' - The pre-shared key (PSK) to establish initial authentication between the virtual private gateway and customer gateway. Constraints: Allowed characters are alphanumeric characters and ._. Must be between 8 and 64 characters in length and cannot start with zero (0). -vpnTunnelOptionsSpecification - :: VPNTunnelOptionsSpecification -vpnTunnelOptionsSpecification = - VPNTunnelOptionsSpecification' - {_vtosTunnelInsideCidr = Nothing, _vtosPreSharedKey = Nothing} - - --- | The range of inside IP addresses for the tunnel. Any specified CIDR blocks must be unique across all VPN connections that use the same virtual private gateway. Constraints: A size /30 CIDR block from the @169.254.0.0/16@ range. The following CIDR blocks are reserved and cannot be used: * @169.254.0.0/30@ * @169.254.1.0/30@ * @169.254.2.0/30@ * @169.254.3.0/30@ * @169.254.4.0/30@ * @169.254.5.0/30@ * @169.254.169.252/30@ -vtosTunnelInsideCidr :: Lens' VPNTunnelOptionsSpecification (Maybe Text) -vtosTunnelInsideCidr = lens _vtosTunnelInsideCidr (\ s a -> s{_vtosTunnelInsideCidr = a}); - --- | The pre-shared key (PSK) to establish initial authentication between the virtual private gateway and customer gateway. Constraints: Allowed characters are alphanumeric characters and ._. Must be between 8 and 64 characters in length and cannot start with zero (0). -vtosPreSharedKey :: Lens' VPNTunnelOptionsSpecification (Maybe Text) -vtosPreSharedKey = lens _vtosPreSharedKey (\ s a -> s{_vtosPreSharedKey = a}); - -instance Hashable VPNTunnelOptionsSpecification where - -instance NFData VPNTunnelOptionsSpecification where - -instance ToQuery VPNTunnelOptionsSpecification where - toQuery VPNTunnelOptionsSpecification'{..} - = mconcat - ["TunnelInsideCidr" =: _vtosTunnelInsideCidr, - "PreSharedKey" =: _vtosPreSharedKey] - --- | Describes a volume. --- --- --- --- /See:/ 'volume' smart constructor. -data Volume = Volume' - { _vAttachments :: !(Maybe [VolumeAttachment]) - , _vIOPS :: !(Maybe Int) - , _vKMSKeyId :: !(Maybe Text) - , _vTags :: !(Maybe [Tag]) - , _vAvailabilityZone :: !Text - , _vCreateTime :: !ISO8601 - , _vEncrypted :: !Bool - , _vSize :: !Int - , _vSnapshotId :: !Text - , _vState :: !VolumeState - , _vVolumeId :: !Text - , _vVolumeType :: !VolumeType - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'Volume' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vAttachments' - Information about the volume attachments. --- --- * 'vIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For Provisioned IOPS SSD volumes, this represents the number of IOPS that are provisioned for the volume. For General Purpose SSD volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information on General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for io1 volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. --- --- * 'vKMSKeyId' - The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the volume. --- --- * 'vTags' - Any tags assigned to the volume. --- --- * 'vAvailabilityZone' - The Availability Zone for the volume. --- --- * 'vCreateTime' - The time stamp when volume creation was initiated. --- --- * 'vEncrypted' - Indicates whether the volume will be encrypted. --- --- * 'vSize' - The size of the volume, in GiBs. --- --- * 'vSnapshotId' - The snapshot from which the volume was created, if applicable. --- --- * 'vState' - The volume state. --- --- * 'vVolumeId' - The ID of the volume. --- --- * 'vVolumeType' - The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. -volume - :: Text -- ^ 'vAvailabilityZone' - -> UTCTime -- ^ 'vCreateTime' - -> Bool -- ^ 'vEncrypted' - -> Int -- ^ 'vSize' - -> Text -- ^ 'vSnapshotId' - -> VolumeState -- ^ 'vState' - -> Text -- ^ 'vVolumeId' - -> VolumeType -- ^ 'vVolumeType' - -> Volume -volume pAvailabilityZone_ pCreateTime_ pEncrypted_ pSize_ pSnapshotId_ pState_ pVolumeId_ pVolumeType_ = - Volume' - { _vAttachments = Nothing - , _vIOPS = Nothing - , _vKMSKeyId = Nothing - , _vTags = Nothing - , _vAvailabilityZone = pAvailabilityZone_ - , _vCreateTime = _Time # pCreateTime_ - , _vEncrypted = pEncrypted_ - , _vSize = pSize_ - , _vSnapshotId = pSnapshotId_ - , _vState = pState_ - , _vVolumeId = pVolumeId_ - , _vVolumeType = pVolumeType_ - } - - --- | Information about the volume attachments. -vAttachments :: Lens' Volume [VolumeAttachment] -vAttachments = lens _vAttachments (\ s a -> s{_vAttachments = a}) . _Default . _Coerce; - --- | The number of I/O operations per second (IOPS) that the volume supports. For Provisioned IOPS SSD volumes, this represents the number of IOPS that are provisioned for the volume. For General Purpose SSD volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information on General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for io1 volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. -vIOPS :: Lens' Volume (Maybe Int) -vIOPS = lens _vIOPS (\ s a -> s{_vIOPS = a}); - --- | The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the volume. -vKMSKeyId :: Lens' Volume (Maybe Text) -vKMSKeyId = lens _vKMSKeyId (\ s a -> s{_vKMSKeyId = a}); - --- | Any tags assigned to the volume. -vTags :: Lens' Volume [Tag] -vTags = lens _vTags (\ s a -> s{_vTags = a}) . _Default . _Coerce; - --- | The Availability Zone for the volume. -vAvailabilityZone :: Lens' Volume Text -vAvailabilityZone = lens _vAvailabilityZone (\ s a -> s{_vAvailabilityZone = a}); - --- | The time stamp when volume creation was initiated. -vCreateTime :: Lens' Volume UTCTime -vCreateTime = lens _vCreateTime (\ s a -> s{_vCreateTime = a}) . _Time; - --- | Indicates whether the volume will be encrypted. -vEncrypted :: Lens' Volume Bool -vEncrypted = lens _vEncrypted (\ s a -> s{_vEncrypted = a}); - --- | The size of the volume, in GiBs. -vSize :: Lens' Volume Int -vSize = lens _vSize (\ s a -> s{_vSize = a}); - --- | The snapshot from which the volume was created, if applicable. -vSnapshotId :: Lens' Volume Text -vSnapshotId = lens _vSnapshotId (\ s a -> s{_vSnapshotId = a}); - --- | The volume state. -vState :: Lens' Volume VolumeState -vState = lens _vState (\ s a -> s{_vState = a}); - --- | The ID of the volume. -vVolumeId :: Lens' Volume Text -vVolumeId = lens _vVolumeId (\ s a -> s{_vVolumeId = a}); - --- | The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. -vVolumeType :: Lens' Volume VolumeType -vVolumeType = lens _vVolumeType (\ s a -> s{_vVolumeType = a}); - -instance FromXML Volume where - parseXML x - = Volume' <$> - (x .@? "attachmentSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@? "iops") - <*> (x .@? "kmsKeyId") - <*> - (x .@? "tagSet" .!@ mempty >>= - may (parseXMLList "item")) - <*> (x .@ "availabilityZone") - <*> (x .@ "createTime") - <*> (x .@ "encrypted") - <*> (x .@ "size") - <*> (x .@ "snapshotId") - <*> (x .@ "status") - <*> (x .@ "volumeId") - <*> (x .@ "volumeType") - -instance Hashable Volume where - -instance NFData Volume where - --- | Describes volume attachment details. --- --- --- --- /See:/ 'volumeAttachment' smart constructor. -data VolumeAttachment = VolumeAttachment' - { _volInstanceId :: !(Maybe Text) - , _volDeleteOnTermination :: !(Maybe Bool) - , _volState :: !(Maybe VolumeAttachmentState) - , _volDevice :: !(Maybe Text) - , _volVolumeId :: !(Maybe Text) - , _volAttachTime :: !(Maybe ISO8601) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeAttachment' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'volInstanceId' - The ID of the instance. --- --- * 'volDeleteOnTermination' - Indicates whether the EBS volume is deleted on instance termination. --- --- * 'volState' - The attachment state of the volume. --- --- * 'volDevice' - The device name. --- --- * 'volVolumeId' - The ID of the volume. --- --- * 'volAttachTime' - The time stamp when the attachment initiated. -volumeAttachment - :: VolumeAttachment -volumeAttachment = - VolumeAttachment' - { _volInstanceId = Nothing - , _volDeleteOnTermination = Nothing - , _volState = Nothing - , _volDevice = Nothing - , _volVolumeId = Nothing - , _volAttachTime = Nothing - } - - --- | The ID of the instance. -volInstanceId :: Lens' VolumeAttachment (Maybe Text) -volInstanceId = lens _volInstanceId (\ s a -> s{_volInstanceId = a}); - --- | Indicates whether the EBS volume is deleted on instance termination. -volDeleteOnTermination :: Lens' VolumeAttachment (Maybe Bool) -volDeleteOnTermination = lens _volDeleteOnTermination (\ s a -> s{_volDeleteOnTermination = a}); - --- | The attachment state of the volume. -volState :: Lens' VolumeAttachment (Maybe VolumeAttachmentState) -volState = lens _volState (\ s a -> s{_volState = a}); - --- | The device name. -volDevice :: Lens' VolumeAttachment (Maybe Text) -volDevice = lens _volDevice (\ s a -> s{_volDevice = a}); - --- | The ID of the volume. -volVolumeId :: Lens' VolumeAttachment (Maybe Text) -volVolumeId = lens _volVolumeId (\ s a -> s{_volVolumeId = a}); - --- | The time stamp when the attachment initiated. -volAttachTime :: Lens' VolumeAttachment (Maybe UTCTime) -volAttachTime = lens _volAttachTime (\ s a -> s{_volAttachTime = a}) . mapping _Time; - -instance FromXML VolumeAttachment where - parseXML x - = VolumeAttachment' <$> - (x .@? "instanceId") <*> - (x .@? "deleteOnTermination") - <*> (x .@? "status") - <*> (x .@? "device") - <*> (x .@? "volumeId") - <*> (x .@? "attachTime") - -instance Hashable VolumeAttachment where - -instance NFData VolumeAttachment where - --- | Describes an EBS volume. --- --- --- --- /See:/ 'volumeDetail' smart constructor. -newtype VolumeDetail = VolumeDetail' - { _vdSize :: Integer - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeDetail' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vdSize' - The size of the volume, in GiB. -volumeDetail - :: Integer -- ^ 'vdSize' - -> VolumeDetail -volumeDetail pSize_ = VolumeDetail' {_vdSize = pSize_} - - --- | The size of the volume, in GiB. -vdSize :: Lens' VolumeDetail Integer -vdSize = lens _vdSize (\ s a -> s{_vdSize = a}); - -instance Hashable VolumeDetail where - -instance NFData VolumeDetail where - -instance ToQuery VolumeDetail where - toQuery VolumeDetail'{..} - = mconcat ["Size" =: _vdSize] - --- | Describes the modification status of an EBS volume. --- --- --- If the volume has never been modified, some element values will be null. --- --- --- /See:/ 'volumeModification' smart constructor. -data VolumeModification = VolumeModification' - { _vmProgress :: !(Maybe Integer) - , _vmStartTime :: !(Maybe ISO8601) - , _vmModificationState :: !(Maybe VolumeModificationState) - , _vmTargetVolumeType :: !(Maybe VolumeType) - , _vmOriginalVolumeType :: !(Maybe VolumeType) - , _vmTargetSize :: !(Maybe Int) - , _vmTargetIOPS :: !(Maybe Int) - , _vmOriginalSize :: !(Maybe Int) - , _vmOriginalIOPS :: !(Maybe Int) - , _vmStatusMessage :: !(Maybe Text) - , _vmEndTime :: !(Maybe ISO8601) - , _vmVolumeId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeModification' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vmProgress' - Modification progress from 0 to 100%. --- --- * 'vmStartTime' - Modification start time --- --- * 'vmModificationState' - Current state of modification. Modification state is null for unmodified volumes. --- --- * 'vmTargetVolumeType' - Target EBS volume type of the volume being modified. --- --- * 'vmOriginalVolumeType' - Original EBS volume type of the volume being modified. --- --- * 'vmTargetSize' - Target size of the volume being modified. --- --- * 'vmTargetIOPS' - Target IOPS rate of the volume being modified. --- --- * 'vmOriginalSize' - Original size of the volume being modified. --- --- * 'vmOriginalIOPS' - Original IOPS rate of the volume being modified. --- --- * 'vmStatusMessage' - Generic status message on modification progress or failure. --- --- * 'vmEndTime' - Modification completion or failure time. --- --- * 'vmVolumeId' - ID of the volume being modified. -volumeModification - :: VolumeModification -volumeModification = - VolumeModification' - { _vmProgress = Nothing - , _vmStartTime = Nothing - , _vmModificationState = Nothing - , _vmTargetVolumeType = Nothing - , _vmOriginalVolumeType = Nothing - , _vmTargetSize = Nothing - , _vmTargetIOPS = Nothing - , _vmOriginalSize = Nothing - , _vmOriginalIOPS = Nothing - , _vmStatusMessage = Nothing - , _vmEndTime = Nothing - , _vmVolumeId = Nothing - } - - --- | Modification progress from 0 to 100%. -vmProgress :: Lens' VolumeModification (Maybe Integer) -vmProgress = lens _vmProgress (\ s a -> s{_vmProgress = a}); - --- | Modification start time -vmStartTime :: Lens' VolumeModification (Maybe UTCTime) -vmStartTime = lens _vmStartTime (\ s a -> s{_vmStartTime = a}) . mapping _Time; - --- | Current state of modification. Modification state is null for unmodified volumes. -vmModificationState :: Lens' VolumeModification (Maybe VolumeModificationState) -vmModificationState = lens _vmModificationState (\ s a -> s{_vmModificationState = a}); - --- | Target EBS volume type of the volume being modified. -vmTargetVolumeType :: Lens' VolumeModification (Maybe VolumeType) -vmTargetVolumeType = lens _vmTargetVolumeType (\ s a -> s{_vmTargetVolumeType = a}); - --- | Original EBS volume type of the volume being modified. -vmOriginalVolumeType :: Lens' VolumeModification (Maybe VolumeType) -vmOriginalVolumeType = lens _vmOriginalVolumeType (\ s a -> s{_vmOriginalVolumeType = a}); - --- | Target size of the volume being modified. -vmTargetSize :: Lens' VolumeModification (Maybe Int) -vmTargetSize = lens _vmTargetSize (\ s a -> s{_vmTargetSize = a}); - --- | Target IOPS rate of the volume being modified. -vmTargetIOPS :: Lens' VolumeModification (Maybe Int) -vmTargetIOPS = lens _vmTargetIOPS (\ s a -> s{_vmTargetIOPS = a}); - --- | Original size of the volume being modified. -vmOriginalSize :: Lens' VolumeModification (Maybe Int) -vmOriginalSize = lens _vmOriginalSize (\ s a -> s{_vmOriginalSize = a}); - --- | Original IOPS rate of the volume being modified. -vmOriginalIOPS :: Lens' VolumeModification (Maybe Int) -vmOriginalIOPS = lens _vmOriginalIOPS (\ s a -> s{_vmOriginalIOPS = a}); - --- | Generic status message on modification progress or failure. -vmStatusMessage :: Lens' VolumeModification (Maybe Text) -vmStatusMessage = lens _vmStatusMessage (\ s a -> s{_vmStatusMessage = a}); - --- | Modification completion or failure time. -vmEndTime :: Lens' VolumeModification (Maybe UTCTime) -vmEndTime = lens _vmEndTime (\ s a -> s{_vmEndTime = a}) . mapping _Time; - --- | ID of the volume being modified. -vmVolumeId :: Lens' VolumeModification (Maybe Text) -vmVolumeId = lens _vmVolumeId (\ s a -> s{_vmVolumeId = a}); - -instance FromXML VolumeModification where - parseXML x - = VolumeModification' <$> - (x .@? "progress") <*> (x .@? "startTime") <*> - (x .@? "modificationState") - <*> (x .@? "targetVolumeType") - <*> (x .@? "originalVolumeType") - <*> (x .@? "targetSize") - <*> (x .@? "targetIops") - <*> (x .@? "originalSize") - <*> (x .@? "originalIops") - <*> (x .@? "statusMessage") - <*> (x .@? "endTime") - <*> (x .@? "volumeId") - -instance Hashable VolumeModification where - -instance NFData VolumeModification where - --- | Describes a volume status operation code. --- --- --- --- /See:/ 'volumeStatusAction' smart constructor. -data VolumeStatusAction = VolumeStatusAction' - { _vsaEventType :: !(Maybe Text) - , _vsaCode :: !(Maybe Text) - , _vsaDescription :: !(Maybe Text) - , _vsaEventId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeStatusAction' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vsaEventType' - The event type associated with this operation. --- --- * 'vsaCode' - The code identifying the operation, for example, @enable-volume-io@ . --- --- * 'vsaDescription' - A description of the operation. --- --- * 'vsaEventId' - The ID of the event associated with this operation. -volumeStatusAction - :: VolumeStatusAction -volumeStatusAction = - VolumeStatusAction' - { _vsaEventType = Nothing - , _vsaCode = Nothing - , _vsaDescription = Nothing - , _vsaEventId = Nothing - } - - --- | The event type associated with this operation. -vsaEventType :: Lens' VolumeStatusAction (Maybe Text) -vsaEventType = lens _vsaEventType (\ s a -> s{_vsaEventType = a}); - --- | The code identifying the operation, for example, @enable-volume-io@ . -vsaCode :: Lens' VolumeStatusAction (Maybe Text) -vsaCode = lens _vsaCode (\ s a -> s{_vsaCode = a}); - --- | A description of the operation. -vsaDescription :: Lens' VolumeStatusAction (Maybe Text) -vsaDescription = lens _vsaDescription (\ s a -> s{_vsaDescription = a}); - --- | The ID of the event associated with this operation. -vsaEventId :: Lens' VolumeStatusAction (Maybe Text) -vsaEventId = lens _vsaEventId (\ s a -> s{_vsaEventId = a}); - -instance FromXML VolumeStatusAction where - parseXML x - = VolumeStatusAction' <$> - (x .@? "eventType") <*> (x .@? "code") <*> - (x .@? "description") - <*> (x .@? "eventId") - -instance Hashable VolumeStatusAction where - -instance NFData VolumeStatusAction where - --- | Describes a volume status. --- --- --- --- /See:/ 'volumeStatusDetails' smart constructor. -data VolumeStatusDetails = VolumeStatusDetails' - { _vsdStatus :: !(Maybe Text) - , _vsdName :: !(Maybe VolumeStatusName) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeStatusDetails' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vsdStatus' - The intended status of the volume status. --- --- * 'vsdName' - The name of the volume status. -volumeStatusDetails - :: VolumeStatusDetails -volumeStatusDetails = - VolumeStatusDetails' {_vsdStatus = Nothing, _vsdName = Nothing} - - --- | The intended status of the volume status. -vsdStatus :: Lens' VolumeStatusDetails (Maybe Text) -vsdStatus = lens _vsdStatus (\ s a -> s{_vsdStatus = a}); - --- | The name of the volume status. -vsdName :: Lens' VolumeStatusDetails (Maybe VolumeStatusName) -vsdName = lens _vsdName (\ s a -> s{_vsdName = a}); - -instance FromXML VolumeStatusDetails where - parseXML x - = VolumeStatusDetails' <$> - (x .@? "status") <*> (x .@? "name") - -instance Hashable VolumeStatusDetails where - -instance NFData VolumeStatusDetails where - --- | Describes a volume status event. --- --- --- --- /See:/ 'volumeStatusEvent' smart constructor. -data VolumeStatusEvent = VolumeStatusEvent' - { _vseNotBefore :: !(Maybe ISO8601) - , _vseEventType :: !(Maybe Text) - , _vseDescription :: !(Maybe Text) - , _vseNotAfter :: !(Maybe ISO8601) - , _vseEventId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeStatusEvent' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vseNotBefore' - The earliest start time of the event. --- --- * 'vseEventType' - The type of this event. --- --- * 'vseDescription' - A description of the event. --- --- * 'vseNotAfter' - The latest end time of the event. --- --- * 'vseEventId' - The ID of this event. -volumeStatusEvent - :: VolumeStatusEvent -volumeStatusEvent = - VolumeStatusEvent' - { _vseNotBefore = Nothing - , _vseEventType = Nothing - , _vseDescription = Nothing - , _vseNotAfter = Nothing - , _vseEventId = Nothing - } - - --- | The earliest start time of the event. -vseNotBefore :: Lens' VolumeStatusEvent (Maybe UTCTime) -vseNotBefore = lens _vseNotBefore (\ s a -> s{_vseNotBefore = a}) . mapping _Time; - --- | The type of this event. -vseEventType :: Lens' VolumeStatusEvent (Maybe Text) -vseEventType = lens _vseEventType (\ s a -> s{_vseEventType = a}); - --- | A description of the event. -vseDescription :: Lens' VolumeStatusEvent (Maybe Text) -vseDescription = lens _vseDescription (\ s a -> s{_vseDescription = a}); - --- | The latest end time of the event. -vseNotAfter :: Lens' VolumeStatusEvent (Maybe UTCTime) -vseNotAfter = lens _vseNotAfter (\ s a -> s{_vseNotAfter = a}) . mapping _Time; - --- | The ID of this event. -vseEventId :: Lens' VolumeStatusEvent (Maybe Text) -vseEventId = lens _vseEventId (\ s a -> s{_vseEventId = a}); - -instance FromXML VolumeStatusEvent where - parseXML x - = VolumeStatusEvent' <$> - (x .@? "notBefore") <*> (x .@? "eventType") <*> - (x .@? "description") - <*> (x .@? "notAfter") - <*> (x .@? "eventId") - -instance Hashable VolumeStatusEvent where - -instance NFData VolumeStatusEvent where - --- | Describes the status of a volume. --- --- --- --- /See:/ 'volumeStatusInfo' smart constructor. -data VolumeStatusInfo = VolumeStatusInfo' - { _vsiStatus :: !(Maybe VolumeStatusInfoStatus) - , _vsiDetails :: !(Maybe [VolumeStatusDetails]) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeStatusInfo' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vsiStatus' - The status of the volume. --- --- * 'vsiDetails' - The details of the volume status. -volumeStatusInfo - :: VolumeStatusInfo -volumeStatusInfo = - VolumeStatusInfo' {_vsiStatus = Nothing, _vsiDetails = Nothing} - - --- | The status of the volume. -vsiStatus :: Lens' VolumeStatusInfo (Maybe VolumeStatusInfoStatus) -vsiStatus = lens _vsiStatus (\ s a -> s{_vsiStatus = a}); - --- | The details of the volume status. -vsiDetails :: Lens' VolumeStatusInfo [VolumeStatusDetails] -vsiDetails = lens _vsiDetails (\ s a -> s{_vsiDetails = a}) . _Default . _Coerce; - -instance FromXML VolumeStatusInfo where - parseXML x - = VolumeStatusInfo' <$> - (x .@? "status") <*> - (x .@? "details" .!@ mempty >>= - may (parseXMLList "item")) - -instance Hashable VolumeStatusInfo where - -instance NFData VolumeStatusInfo where - --- | Describes the volume status. --- --- --- --- /See:/ 'volumeStatusItem' smart constructor. -data VolumeStatusItem = VolumeStatusItem' - { _vsiVolumeStatus :: !(Maybe VolumeStatusInfo) - , _vsiActions :: !(Maybe [VolumeStatusAction]) - , _vsiEvents :: !(Maybe [VolumeStatusEvent]) - , _vsiAvailabilityZone :: !(Maybe Text) - , _vsiVolumeId :: !(Maybe Text) - } deriving (Eq, Read, Show, Data, Typeable, Generic) - - --- | Creates a value of 'VolumeStatusItem' with the minimum fields required to make a request. --- --- Use one of the following lenses to modify other fields as desired: --- --- * 'vsiVolumeStatus' - The volume status. --- --- * 'vsiActions' - The details of the operation. --- --- * 'vsiEvents' - A list of events associated with the volume. --- --- * 'vsiAvailabilityZone' - The Availability Zone of the volume. --- --- * 'vsiVolumeId' - The volume ID. -volumeStatusItem - :: VolumeStatusItem -volumeStatusItem = - VolumeStatusItem' - { _vsiVolumeStatus = Nothing - , _vsiActions = Nothing - , _vsiEvents = Nothing - , _vsiAvailabilityZone = Nothing - , _vsiVolumeId = Nothing - } - - --- | The volume status. -vsiVolumeStatus :: Lens' VolumeStatusItem (Maybe VolumeStatusInfo) -vsiVolumeStatus = lens _vsiVolumeStatus (\ s a -> s{_vsiVolumeStatus = a}); - --- | The details of the operation. -vsiActions :: Lens' VolumeStatusItem [VolumeStatusAction] -vsiActions = lens _vsiActions (\ s a -> s{_vsiActions = a}) . _Default . _Coerce; - --- | A list of events associated with the volume. -vsiEvents :: Lens' VolumeStatusItem [VolumeStatusEvent] -vsiEvents = lens _vsiEvents (\ s a -> s{_vsiEvents = a}) . _Default . _Coerce; - --- | The Availability Zone of the volume. -vsiAvailabilityZone :: Lens' VolumeStatusItem (Maybe Text) -vsiAvailabilityZone = lens _vsiAvailabilityZone (\ s a -> s{_vsiAvailabilityZone = a}); - --- | The volume ID. -vsiVolumeId :: Lens' VolumeStatusItem (Maybe Text) -vsiVolumeId = lens _vsiVolumeId (\ s a -> s{_vsiVolumeId = a}); +-- Copyright : (c) 2013-2018 Brendan Hay +-- License : Mozilla Public License, v. 2.0. +-- Maintainer : Brendan Hay +-- Stability : auto-generated +-- Portability : non-portable (GHC extensions) +-- +module Network.AWS.EC2.Types.Product where + +import Network.AWS.EC2.Internal +import Network.AWS.EC2.Types.Sum +import Network.AWS.Lens +import Network.AWS.Prelude + +-- | Describes an account attribute. +-- +-- +-- +-- /See:/ 'accountAttribute' smart constructor. +data AccountAttribute = AccountAttribute' + { _aaAttributeValues :: !(Maybe [AccountAttributeValue]) + , _aaAttributeName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AccountAttribute' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aaAttributeValues' - One or more values for the account attribute. +-- +-- * 'aaAttributeName' - The name of the account attribute. +accountAttribute + :: AccountAttribute +accountAttribute = + AccountAttribute' {_aaAttributeValues = Nothing, _aaAttributeName = Nothing} + + +-- | One or more values for the account attribute. +aaAttributeValues :: Lens' AccountAttribute [AccountAttributeValue] +aaAttributeValues = lens _aaAttributeValues (\ s a -> s{_aaAttributeValues = a}) . _Default . _Coerce + +-- | The name of the account attribute. +aaAttributeName :: Lens' AccountAttribute (Maybe Text) +aaAttributeName = lens _aaAttributeName (\ s a -> s{_aaAttributeName = a}) + +instance FromXML AccountAttribute where + parseXML x + = AccountAttribute' <$> + (x .@? "attributeValueSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "attributeName") + +instance Hashable AccountAttribute where + +instance NFData AccountAttribute where + +-- | Describes a value of an account attribute. +-- +-- +-- +-- /See:/ 'accountAttributeValue' smart constructor. +newtype AccountAttributeValue = AccountAttributeValue' + { _aavAttributeValue :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AccountAttributeValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aavAttributeValue' - The value of the attribute. +accountAttributeValue + :: AccountAttributeValue +accountAttributeValue = AccountAttributeValue' {_aavAttributeValue = Nothing} + + +-- | The value of the attribute. +aavAttributeValue :: Lens' AccountAttributeValue (Maybe Text) +aavAttributeValue = lens _aavAttributeValue (\ s a -> s{_aavAttributeValue = a}) + +instance FromXML AccountAttributeValue where + parseXML x + = AccountAttributeValue' <$> (x .@? "attributeValue") + +instance Hashable AccountAttributeValue where + +instance NFData AccountAttributeValue where + +-- | Describes a running instance in a Spot Fleet. +-- +-- +-- +-- /See:/ 'activeInstance' smart constructor. +data ActiveInstance = ActiveInstance' + { _aiInstanceId :: !(Maybe Text) + , _aiInstanceHealth :: !(Maybe InstanceHealthStatus) + , _aiInstanceType :: !(Maybe Text) + , _aiSpotInstanceRequestId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ActiveInstance' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aiInstanceId' - The ID of the instance. +-- +-- * 'aiInstanceHealth' - The health status of the instance. If the status of either the instance status check or the system status check is @impaired@ , the health status of the instance is @unhealthy@ . Otherwise, the health status is @healthy@ . +-- +-- * 'aiInstanceType' - The instance type. +-- +-- * 'aiSpotInstanceRequestId' - The ID of the Spot Instance request. +activeInstance + :: ActiveInstance +activeInstance = + ActiveInstance' + { _aiInstanceId = Nothing + , _aiInstanceHealth = Nothing + , _aiInstanceType = Nothing + , _aiSpotInstanceRequestId = Nothing + } + + +-- | The ID of the instance. +aiInstanceId :: Lens' ActiveInstance (Maybe Text) +aiInstanceId = lens _aiInstanceId (\ s a -> s{_aiInstanceId = a}) + +-- | The health status of the instance. If the status of either the instance status check or the system status check is @impaired@ , the health status of the instance is @unhealthy@ . Otherwise, the health status is @healthy@ . +aiInstanceHealth :: Lens' ActiveInstance (Maybe InstanceHealthStatus) +aiInstanceHealth = lens _aiInstanceHealth (\ s a -> s{_aiInstanceHealth = a}) + +-- | The instance type. +aiInstanceType :: Lens' ActiveInstance (Maybe Text) +aiInstanceType = lens _aiInstanceType (\ s a -> s{_aiInstanceType = a}) + +-- | The ID of the Spot Instance request. +aiSpotInstanceRequestId :: Lens' ActiveInstance (Maybe Text) +aiSpotInstanceRequestId = lens _aiSpotInstanceRequestId (\ s a -> s{_aiSpotInstanceRequestId = a}) + +instance FromXML ActiveInstance where + parseXML x + = ActiveInstance' <$> + (x .@? "instanceId") <*> (x .@? "instanceHealth") <*> + (x .@? "instanceType") + <*> (x .@? "spotInstanceRequestId") + +instance Hashable ActiveInstance where + +instance NFData ActiveInstance where + +-- | Describes an Elastic IP address. +-- +-- +-- +-- /See:/ 'address' smart constructor. +data Address = Address' + { _aAssociationId :: !(Maybe Text) + , _aInstanceId :: !(Maybe Text) + , _aNetworkInterfaceOwnerId :: !(Maybe Text) + , _aAllocationId :: !(Maybe Text) + , _aDomain :: !(Maybe DomainType) + , _aNetworkInterfaceId :: !(Maybe Text) + , _aPrivateIPAddress :: !(Maybe Text) + , _aPublicIP :: !(Maybe Text) + , _aTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Address' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'aAssociationId' - The ID representing the association of the address with an instance in a VPC. +-- +-- * 'aInstanceId' - The ID of the instance that the address is associated with (if any). +-- +-- * 'aNetworkInterfaceOwnerId' - The ID of the AWS account that owns the network interface. +-- +-- * 'aAllocationId' - The ID representing the allocation of the address for use with EC2-VPC. +-- +-- * 'aDomain' - Indicates whether this Elastic IP address is for use with instances in EC2-Classic (@standard@ ) or instances in a VPC (@vpc@ ). +-- +-- * 'aNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'aPrivateIPAddress' - The private IP address associated with the Elastic IP address. +-- +-- * 'aPublicIP' - The Elastic IP address. +-- +-- * 'aTags' - Any tags assigned to the Elastic IP address. +address + :: Address +address = + Address' + { _aAssociationId = Nothing + , _aInstanceId = Nothing + , _aNetworkInterfaceOwnerId = Nothing + , _aAllocationId = Nothing + , _aDomain = Nothing + , _aNetworkInterfaceId = Nothing + , _aPrivateIPAddress = Nothing + , _aPublicIP = Nothing + , _aTags = Nothing + } + + +-- | The ID representing the association of the address with an instance in a VPC. +aAssociationId :: Lens' Address (Maybe Text) +aAssociationId = lens _aAssociationId (\ s a -> s{_aAssociationId = a}) + +-- | The ID of the instance that the address is associated with (if any). +aInstanceId :: Lens' Address (Maybe Text) +aInstanceId = lens _aInstanceId (\ s a -> s{_aInstanceId = a}) + +-- | The ID of the AWS account that owns the network interface. +aNetworkInterfaceOwnerId :: Lens' Address (Maybe Text) +aNetworkInterfaceOwnerId = lens _aNetworkInterfaceOwnerId (\ s a -> s{_aNetworkInterfaceOwnerId = a}) + +-- | The ID representing the allocation of the address for use with EC2-VPC. +aAllocationId :: Lens' Address (Maybe Text) +aAllocationId = lens _aAllocationId (\ s a -> s{_aAllocationId = a}) + +-- | Indicates whether this Elastic IP address is for use with instances in EC2-Classic (@standard@ ) or instances in a VPC (@vpc@ ). +aDomain :: Lens' Address (Maybe DomainType) +aDomain = lens _aDomain (\ s a -> s{_aDomain = a}) + +-- | The ID of the network interface. +aNetworkInterfaceId :: Lens' Address (Maybe Text) +aNetworkInterfaceId = lens _aNetworkInterfaceId (\ s a -> s{_aNetworkInterfaceId = a}) + +-- | The private IP address associated with the Elastic IP address. +aPrivateIPAddress :: Lens' Address (Maybe Text) +aPrivateIPAddress = lens _aPrivateIPAddress (\ s a -> s{_aPrivateIPAddress = a}) + +-- | The Elastic IP address. +aPublicIP :: Lens' Address (Maybe Text) +aPublicIP = lens _aPublicIP (\ s a -> s{_aPublicIP = a}) + +-- | Any tags assigned to the Elastic IP address. +aTags :: Lens' Address [Tag] +aTags = lens _aTags (\ s a -> s{_aTags = a}) . _Default . _Coerce + +instance FromXML Address where + parseXML x + = Address' <$> + (x .@? "associationId") <*> (x .@? "instanceId") <*> + (x .@? "networkInterfaceOwnerId") + <*> (x .@? "allocationId") + <*> (x .@? "domain") + <*> (x .@? "networkInterfaceId") + <*> (x .@? "privateIpAddress") + <*> (x .@? "publicIp") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable Address where + +instance NFData Address where + +-- | Describes a principal. +-- +-- +-- +-- /See:/ 'allowedPrincipal' smart constructor. +data AllowedPrincipal = AllowedPrincipal' + { _apPrincipalType :: !(Maybe PrincipalType) + , _apPrincipal :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AllowedPrincipal' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'apPrincipalType' - The type of principal. +-- +-- * 'apPrincipal' - The Amazon Resource Name (ARN) of the principal. +allowedPrincipal + :: AllowedPrincipal +allowedPrincipal = + AllowedPrincipal' {_apPrincipalType = Nothing, _apPrincipal = Nothing} + + +-- | The type of principal. +apPrincipalType :: Lens' AllowedPrincipal (Maybe PrincipalType) +apPrincipalType = lens _apPrincipalType (\ s a -> s{_apPrincipalType = a}) + +-- | The Amazon Resource Name (ARN) of the principal. +apPrincipal :: Lens' AllowedPrincipal (Maybe Text) +apPrincipal = lens _apPrincipal (\ s a -> s{_apPrincipal = a}) + +instance FromXML AllowedPrincipal where + parseXML x + = AllowedPrincipal' <$> + (x .@? "principalType") <*> (x .@? "principal") + +instance Hashable AllowedPrincipal where + +instance NFData AllowedPrincipal where + +-- | Describes a value for a resource attribute that is a Boolean value. +-- +-- +-- +-- /See:/ 'attributeBooleanValue' smart constructor. +newtype AttributeBooleanValue = AttributeBooleanValue' + { _abvValue :: Maybe Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AttributeBooleanValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'abvValue' - The attribute value. The valid values are @true@ or @false@ . +attributeBooleanValue + :: AttributeBooleanValue +attributeBooleanValue = AttributeBooleanValue' {_abvValue = Nothing} + + +-- | The attribute value. The valid values are @true@ or @false@ . +abvValue :: Lens' AttributeBooleanValue (Maybe Bool) +abvValue = lens _abvValue (\ s a -> s{_abvValue = a}) + +instance FromXML AttributeBooleanValue where + parseXML x + = AttributeBooleanValue' <$> (x .@? "value") + +instance Hashable AttributeBooleanValue where + +instance NFData AttributeBooleanValue where + +instance ToQuery AttributeBooleanValue where + toQuery AttributeBooleanValue'{..} + = mconcat ["Value" =: _abvValue] + +-- | Describes a value for a resource attribute that is a String. +-- +-- +-- +-- /See:/ 'attributeValue' smart constructor. +newtype AttributeValue = AttributeValue' + { _avValue :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AttributeValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'avValue' - The attribute value. The value is case-sensitive. +attributeValue + :: AttributeValue +attributeValue = AttributeValue' {_avValue = Nothing} + + +-- | The attribute value. The value is case-sensitive. +avValue :: Lens' AttributeValue (Maybe Text) +avValue = lens _avValue (\ s a -> s{_avValue = a}) + +instance FromXML AttributeValue where + parseXML x = AttributeValue' <$> (x .@? "value") + +instance Hashable AttributeValue where + +instance NFData AttributeValue where + +instance ToQuery AttributeValue where + toQuery AttributeValue'{..} + = mconcat ["Value" =: _avValue] + +-- | Describes an Availability Zone. +-- +-- +-- +-- /See:/ 'availabilityZone' smart constructor. +data AvailabilityZone = AvailabilityZone' + { _azState :: !(Maybe AvailabilityZoneState) + , _azRegionName :: !(Maybe Text) + , _azZoneName :: !(Maybe Text) + , _azMessages :: !(Maybe [AvailabilityZoneMessage]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AvailabilityZone' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'azState' - The state of the Availability Zone. +-- +-- * 'azRegionName' - The name of the region. +-- +-- * 'azZoneName' - The name of the Availability Zone. +-- +-- * 'azMessages' - Any messages about the Availability Zone. +availabilityZone + :: AvailabilityZone +availabilityZone = + AvailabilityZone' + { _azState = Nothing + , _azRegionName = Nothing + , _azZoneName = Nothing + , _azMessages = Nothing + } + + +-- | The state of the Availability Zone. +azState :: Lens' AvailabilityZone (Maybe AvailabilityZoneState) +azState = lens _azState (\ s a -> s{_azState = a}) + +-- | The name of the region. +azRegionName :: Lens' AvailabilityZone (Maybe Text) +azRegionName = lens _azRegionName (\ s a -> s{_azRegionName = a}) + +-- | The name of the Availability Zone. +azZoneName :: Lens' AvailabilityZone (Maybe Text) +azZoneName = lens _azZoneName (\ s a -> s{_azZoneName = a}) + +-- | Any messages about the Availability Zone. +azMessages :: Lens' AvailabilityZone [AvailabilityZoneMessage] +azMessages = lens _azMessages (\ s a -> s{_azMessages = a}) . _Default . _Coerce + +instance FromXML AvailabilityZone where + parseXML x + = AvailabilityZone' <$> + (x .@? "zoneState") <*> (x .@? "regionName") <*> + (x .@? "zoneName") + <*> + (x .@? "messageSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable AvailabilityZone where + +instance NFData AvailabilityZone where + +-- | Describes a message about an Availability Zone. +-- +-- +-- +-- /See:/ 'availabilityZoneMessage' smart constructor. +newtype AvailabilityZoneMessage = AvailabilityZoneMessage' + { _azmMessage :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AvailabilityZoneMessage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'azmMessage' - The message about the Availability Zone. +availabilityZoneMessage + :: AvailabilityZoneMessage +availabilityZoneMessage = AvailabilityZoneMessage' {_azmMessage = Nothing} + + +-- | The message about the Availability Zone. +azmMessage :: Lens' AvailabilityZoneMessage (Maybe Text) +azmMessage = lens _azmMessage (\ s a -> s{_azmMessage = a}) + +instance FromXML AvailabilityZoneMessage where + parseXML x + = AvailabilityZoneMessage' <$> (x .@? "message") + +instance Hashable AvailabilityZoneMessage where + +instance NFData AvailabilityZoneMessage where + +-- | The capacity information for instances launched onto the Dedicated Host. +-- +-- +-- +-- /See:/ 'availableCapacity' smart constructor. +data AvailableCapacity = AvailableCapacity' + { _acAvailableInstanceCapacity :: !(Maybe [InstanceCapacity]) + , _acAvailableVCPUs :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'AvailableCapacity' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'acAvailableInstanceCapacity' - The total number of instances that the Dedicated Host supports. +-- +-- * 'acAvailableVCPUs' - The number of vCPUs available on the Dedicated Host. +availableCapacity + :: AvailableCapacity +availableCapacity = + AvailableCapacity' + {_acAvailableInstanceCapacity = Nothing, _acAvailableVCPUs = Nothing} + + +-- | The total number of instances that the Dedicated Host supports. +acAvailableInstanceCapacity :: Lens' AvailableCapacity [InstanceCapacity] +acAvailableInstanceCapacity = lens _acAvailableInstanceCapacity (\ s a -> s{_acAvailableInstanceCapacity = a}) . _Default . _Coerce + +-- | The number of vCPUs available on the Dedicated Host. +acAvailableVCPUs :: Lens' AvailableCapacity (Maybe Int) +acAvailableVCPUs = lens _acAvailableVCPUs (\ s a -> s{_acAvailableVCPUs = a}) + +instance FromXML AvailableCapacity where + parseXML x + = AvailableCapacity' <$> + (x .@? "availableInstanceCapacity" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "availableVCpus") + +instance Hashable AvailableCapacity where + +instance NFData AvailableCapacity where + +-- | /See:/ 'blobAttributeValue' smart constructor. +newtype BlobAttributeValue = BlobAttributeValue' + { _bavValue :: Maybe Base64 + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'BlobAttributeValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bavValue' - Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. +blobAttributeValue + :: BlobAttributeValue +blobAttributeValue = BlobAttributeValue' {_bavValue = Nothing} + + +-- | Undocumented member.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. +bavValue :: Lens' BlobAttributeValue (Maybe ByteString) +bavValue = lens _bavValue (\ s a -> s{_bavValue = a}) . mapping _Base64 + +instance Hashable BlobAttributeValue where + +instance NFData BlobAttributeValue where + +instance ToQuery BlobAttributeValue where + toQuery BlobAttributeValue'{..} + = mconcat ["Value" =: _bavValue] + +-- | Describes a block device mapping. +-- +-- +-- +-- /See:/ 'blockDeviceMapping' smart constructor. +data BlockDeviceMapping = BlockDeviceMapping' + { _bdmVirtualName :: !(Maybe Text) + , _bdmNoDevice :: !(Maybe Text) + , _bdmEBS :: !(Maybe EBSBlockDevice) + , _bdmDeviceName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'BlockDeviceMapping' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bdmVirtualName' - The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ .The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. +-- +-- * 'bdmNoDevice' - Suppresses the specified device included in the block device mapping of the AMI. +-- +-- * 'bdmEBS' - Parameters used to automatically set up EBS volumes when the instance is launched. +-- +-- * 'bdmDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). +blockDeviceMapping + :: Text -- ^ 'bdmDeviceName' + -> BlockDeviceMapping +blockDeviceMapping pDeviceName_ = + BlockDeviceMapping' + { _bdmVirtualName = Nothing + , _bdmNoDevice = Nothing + , _bdmEBS = Nothing + , _bdmDeviceName = pDeviceName_ + } + + +-- | The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ .The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. +bdmVirtualName :: Lens' BlockDeviceMapping (Maybe Text) +bdmVirtualName = lens _bdmVirtualName (\ s a -> s{_bdmVirtualName = a}) + +-- | Suppresses the specified device included in the block device mapping of the AMI. +bdmNoDevice :: Lens' BlockDeviceMapping (Maybe Text) +bdmNoDevice = lens _bdmNoDevice (\ s a -> s{_bdmNoDevice = a}) + +-- | Parameters used to automatically set up EBS volumes when the instance is launched. +bdmEBS :: Lens' BlockDeviceMapping (Maybe EBSBlockDevice) +bdmEBS = lens _bdmEBS (\ s a -> s{_bdmEBS = a}) + +-- | The device name (for example, @/dev/sdh@ or @xvdh@ ). +bdmDeviceName :: Lens' BlockDeviceMapping Text +bdmDeviceName = lens _bdmDeviceName (\ s a -> s{_bdmDeviceName = a}) + +instance FromXML BlockDeviceMapping where + parseXML x + = BlockDeviceMapping' <$> + (x .@? "virtualName") <*> (x .@? "noDevice") <*> + (x .@? "ebs") + <*> (x .@ "deviceName") + +instance Hashable BlockDeviceMapping where + +instance NFData BlockDeviceMapping where + +instance ToQuery BlockDeviceMapping where + toQuery BlockDeviceMapping'{..} + = mconcat + ["VirtualName" =: _bdmVirtualName, + "NoDevice" =: _bdmNoDevice, "Ebs" =: _bdmEBS, + "DeviceName" =: _bdmDeviceName] + +-- | Describes a bundle task. +-- +-- +-- +-- /See:/ 'bundleTask' smart constructor. +data BundleTask = BundleTask' + { _btBundleTaskError :: !(Maybe BundleTaskError) + , _btBundleId :: !Text + , _btInstanceId :: !Text + , _btProgress :: !Text + , _btStartTime :: !ISO8601 + , _btState :: !BundleTaskState + , _btStorage :: !Storage + , _btUpdateTime :: !ISO8601 + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'BundleTask' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'btBundleTaskError' - If the task fails, a description of the error. +-- +-- * 'btBundleId' - The ID of the bundle task. +-- +-- * 'btInstanceId' - The ID of the instance associated with this bundle task. +-- +-- * 'btProgress' - The level of task completion, as a percent (for example, 20%). +-- +-- * 'btStartTime' - The time this task started. +-- +-- * 'btState' - The state of the task. +-- +-- * 'btStorage' - The Amazon S3 storage locations. +-- +-- * 'btUpdateTime' - The time of the most recent update for the task. +bundleTask + :: Text -- ^ 'btBundleId' + -> Text -- ^ 'btInstanceId' + -> Text -- ^ 'btProgress' + -> UTCTime -- ^ 'btStartTime' + -> BundleTaskState -- ^ 'btState' + -> Storage -- ^ 'btStorage' + -> UTCTime -- ^ 'btUpdateTime' + -> BundleTask +bundleTask pBundleId_ pInstanceId_ pProgress_ pStartTime_ pState_ pStorage_ pUpdateTime_ = + BundleTask' + { _btBundleTaskError = Nothing + , _btBundleId = pBundleId_ + , _btInstanceId = pInstanceId_ + , _btProgress = pProgress_ + , _btStartTime = _Time # pStartTime_ + , _btState = pState_ + , _btStorage = pStorage_ + , _btUpdateTime = _Time # pUpdateTime_ + } + + +-- | If the task fails, a description of the error. +btBundleTaskError :: Lens' BundleTask (Maybe BundleTaskError) +btBundleTaskError = lens _btBundleTaskError (\ s a -> s{_btBundleTaskError = a}) + +-- | The ID of the bundle task. +btBundleId :: Lens' BundleTask Text +btBundleId = lens _btBundleId (\ s a -> s{_btBundleId = a}) + +-- | The ID of the instance associated with this bundle task. +btInstanceId :: Lens' BundleTask Text +btInstanceId = lens _btInstanceId (\ s a -> s{_btInstanceId = a}) + +-- | The level of task completion, as a percent (for example, 20%). +btProgress :: Lens' BundleTask Text +btProgress = lens _btProgress (\ s a -> s{_btProgress = a}) + +-- | The time this task started. +btStartTime :: Lens' BundleTask UTCTime +btStartTime = lens _btStartTime (\ s a -> s{_btStartTime = a}) . _Time + +-- | The state of the task. +btState :: Lens' BundleTask BundleTaskState +btState = lens _btState (\ s a -> s{_btState = a}) + +-- | The Amazon S3 storage locations. +btStorage :: Lens' BundleTask Storage +btStorage = lens _btStorage (\ s a -> s{_btStorage = a}) + +-- | The time of the most recent update for the task. +btUpdateTime :: Lens' BundleTask UTCTime +btUpdateTime = lens _btUpdateTime (\ s a -> s{_btUpdateTime = a}) . _Time + +instance FromXML BundleTask where + parseXML x + = BundleTask' <$> + (x .@? "error") <*> (x .@ "bundleId") <*> + (x .@ "instanceId") + <*> (x .@ "progress") + <*> (x .@ "startTime") + <*> (x .@ "state") + <*> (x .@ "storage") + <*> (x .@ "updateTime") + +instance Hashable BundleTask where + +instance NFData BundleTask where + +-- | Describes an error for 'BundleInstance' . +-- +-- +-- +-- /See:/ 'bundleTaskError' smart constructor. +data BundleTaskError = BundleTaskError' + { _bteCode :: !(Maybe Text) + , _bteMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'BundleTaskError' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'bteCode' - The error code. +-- +-- * 'bteMessage' - The error message. +bundleTaskError + :: BundleTaskError +bundleTaskError = BundleTaskError' {_bteCode = Nothing, _bteMessage = Nothing} + + +-- | The error code. +bteCode :: Lens' BundleTaskError (Maybe Text) +bteCode = lens _bteCode (\ s a -> s{_bteCode = a}) + +-- | The error message. +bteMessage :: Lens' BundleTaskError (Maybe Text) +bteMessage = lens _bteMessage (\ s a -> s{_bteMessage = a}) + +instance FromXML BundleTaskError where + parseXML x + = BundleTaskError' <$> + (x .@? "code") <*> (x .@? "message") + +instance Hashable BundleTaskError where + +instance NFData BundleTaskError where + +-- | The CPU options for the instance. +-- +-- +-- +-- /See:/ 'cpuOptions' smart constructor. +data CPUOptions = CPUOptions' + { _coCoreCount :: !(Maybe Int) + , _coThreadsPerCore :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CPUOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'coCoreCount' - The number of CPU cores for the instance. +-- +-- * 'coThreadsPerCore' - The number of threads per CPU core. +cpuOptions + :: CPUOptions +cpuOptions = CPUOptions' {_coCoreCount = Nothing, _coThreadsPerCore = Nothing} + + +-- | The number of CPU cores for the instance. +coCoreCount :: Lens' CPUOptions (Maybe Int) +coCoreCount = lens _coCoreCount (\ s a -> s{_coCoreCount = a}) + +-- | The number of threads per CPU core. +coThreadsPerCore :: Lens' CPUOptions (Maybe Int) +coThreadsPerCore = lens _coThreadsPerCore (\ s a -> s{_coThreadsPerCore = a}) + +instance FromXML CPUOptions where + parseXML x + = CPUOptions' <$> + (x .@? "coreCount") <*> (x .@? "threadsPerCore") + +instance Hashable CPUOptions where + +instance NFData CPUOptions where + +-- | The CPU options for the instance. Both the core count and threads per core must be specified in the request. +-- +-- +-- +-- /See:/ 'cpuOptionsRequest' smart constructor. +data CPUOptionsRequest = CPUOptionsRequest' + { _corCoreCount :: !(Maybe Int) + , _corThreadsPerCore :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CPUOptionsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'corCoreCount' - The number of CPU cores for the instance. +-- +-- * 'corThreadsPerCore' - The number of threads per CPU core. To disable Intel Hyper-Threading Technology for the instance, specify a value of @1@ . Otherwise, specify the default value of @2@ . +cpuOptionsRequest + :: CPUOptionsRequest +cpuOptionsRequest = + CPUOptionsRequest' {_corCoreCount = Nothing, _corThreadsPerCore = Nothing} + + +-- | The number of CPU cores for the instance. +corCoreCount :: Lens' CPUOptionsRequest (Maybe Int) +corCoreCount = lens _corCoreCount (\ s a -> s{_corCoreCount = a}) + +-- | The number of threads per CPU core. To disable Intel Hyper-Threading Technology for the instance, specify a value of @1@ . Otherwise, specify the default value of @2@ . +corThreadsPerCore :: Lens' CPUOptionsRequest (Maybe Int) +corThreadsPerCore = lens _corThreadsPerCore (\ s a -> s{_corThreadsPerCore = a}) + +instance Hashable CPUOptionsRequest where + +instance NFData CPUOptionsRequest where + +instance ToQuery CPUOptionsRequest where + toQuery CPUOptionsRequest'{..} + = mconcat + ["CoreCount" =: _corCoreCount, + "ThreadsPerCore" =: _corThreadsPerCore] + +-- | Describes a Spot Fleet error. +-- +-- +-- +-- /See:/ 'cancelSpotFleetRequestsError' smart constructor. +data CancelSpotFleetRequestsError = CancelSpotFleetRequestsError' + { _csfreCode :: !CancelBatchErrorCode + , _csfreMessage :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CancelSpotFleetRequestsError' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csfreCode' - The error code. +-- +-- * 'csfreMessage' - The description for the error code. +cancelSpotFleetRequestsError + :: CancelBatchErrorCode -- ^ 'csfreCode' + -> Text -- ^ 'csfreMessage' + -> CancelSpotFleetRequestsError +cancelSpotFleetRequestsError pCode_ pMessage_ = + CancelSpotFleetRequestsError' {_csfreCode = pCode_, _csfreMessage = pMessage_} + + +-- | The error code. +csfreCode :: Lens' CancelSpotFleetRequestsError CancelBatchErrorCode +csfreCode = lens _csfreCode (\ s a -> s{_csfreCode = a}) + +-- | The description for the error code. +csfreMessage :: Lens' CancelSpotFleetRequestsError Text +csfreMessage = lens _csfreMessage (\ s a -> s{_csfreMessage = a}) + +instance FromXML CancelSpotFleetRequestsError where + parseXML x + = CancelSpotFleetRequestsError' <$> + (x .@ "code") <*> (x .@ "message") + +instance Hashable CancelSpotFleetRequestsError where + +instance NFData CancelSpotFleetRequestsError where + +-- | Describes a Spot Fleet request that was not successfully canceled. +-- +-- +-- +-- /See:/ 'cancelSpotFleetRequestsErrorItem' smart constructor. +data CancelSpotFleetRequestsErrorItem = CancelSpotFleetRequestsErrorItem' + { _csfreiError :: !CancelSpotFleetRequestsError + , _csfreiSpotFleetRequestId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CancelSpotFleetRequestsErrorItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csfreiError' - The error. +-- +-- * 'csfreiSpotFleetRequestId' - The ID of the Spot Fleet request. +cancelSpotFleetRequestsErrorItem + :: CancelSpotFleetRequestsError -- ^ 'csfreiError' + -> Text -- ^ 'csfreiSpotFleetRequestId' + -> CancelSpotFleetRequestsErrorItem +cancelSpotFleetRequestsErrorItem pError_ pSpotFleetRequestId_ = + CancelSpotFleetRequestsErrorItem' + {_csfreiError = pError_, _csfreiSpotFleetRequestId = pSpotFleetRequestId_} + + +-- | The error. +csfreiError :: Lens' CancelSpotFleetRequestsErrorItem CancelSpotFleetRequestsError +csfreiError = lens _csfreiError (\ s a -> s{_csfreiError = a}) + +-- | The ID of the Spot Fleet request. +csfreiSpotFleetRequestId :: Lens' CancelSpotFleetRequestsErrorItem Text +csfreiSpotFleetRequestId = lens _csfreiSpotFleetRequestId (\ s a -> s{_csfreiSpotFleetRequestId = a}) + +instance FromXML CancelSpotFleetRequestsErrorItem + where + parseXML x + = CancelSpotFleetRequestsErrorItem' <$> + (x .@ "error") <*> (x .@ "spotFleetRequestId") + +instance Hashable CancelSpotFleetRequestsErrorItem + where + +instance NFData CancelSpotFleetRequestsErrorItem + where + +-- | Describes a Spot Fleet request that was successfully canceled. +-- +-- +-- +-- /See:/ 'cancelSpotFleetRequestsSuccessItem' smart constructor. +data CancelSpotFleetRequestsSuccessItem = CancelSpotFleetRequestsSuccessItem' + { _csfrsiCurrentSpotFleetRequestState :: !BatchState + , _csfrsiPreviousSpotFleetRequestState :: !BatchState + , _csfrsiSpotFleetRequestId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CancelSpotFleetRequestsSuccessItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csfrsiCurrentSpotFleetRequestState' - The current state of the Spot Fleet request. +-- +-- * 'csfrsiPreviousSpotFleetRequestState' - The previous state of the Spot Fleet request. +-- +-- * 'csfrsiSpotFleetRequestId' - The ID of the Spot Fleet request. +cancelSpotFleetRequestsSuccessItem + :: BatchState -- ^ 'csfrsiCurrentSpotFleetRequestState' + -> BatchState -- ^ 'csfrsiPreviousSpotFleetRequestState' + -> Text -- ^ 'csfrsiSpotFleetRequestId' + -> CancelSpotFleetRequestsSuccessItem +cancelSpotFleetRequestsSuccessItem pCurrentSpotFleetRequestState_ pPreviousSpotFleetRequestState_ pSpotFleetRequestId_ = + CancelSpotFleetRequestsSuccessItem' + { _csfrsiCurrentSpotFleetRequestState = pCurrentSpotFleetRequestState_ + , _csfrsiPreviousSpotFleetRequestState = pPreviousSpotFleetRequestState_ + , _csfrsiSpotFleetRequestId = pSpotFleetRequestId_ + } + + +-- | The current state of the Spot Fleet request. +csfrsiCurrentSpotFleetRequestState :: Lens' CancelSpotFleetRequestsSuccessItem BatchState +csfrsiCurrentSpotFleetRequestState = lens _csfrsiCurrentSpotFleetRequestState (\ s a -> s{_csfrsiCurrentSpotFleetRequestState = a}) + +-- | The previous state of the Spot Fleet request. +csfrsiPreviousSpotFleetRequestState :: Lens' CancelSpotFleetRequestsSuccessItem BatchState +csfrsiPreviousSpotFleetRequestState = lens _csfrsiPreviousSpotFleetRequestState (\ s a -> s{_csfrsiPreviousSpotFleetRequestState = a}) + +-- | The ID of the Spot Fleet request. +csfrsiSpotFleetRequestId :: Lens' CancelSpotFleetRequestsSuccessItem Text +csfrsiSpotFleetRequestId = lens _csfrsiSpotFleetRequestId (\ s a -> s{_csfrsiSpotFleetRequestId = a}) + +instance FromXML CancelSpotFleetRequestsSuccessItem + where + parseXML x + = CancelSpotFleetRequestsSuccessItem' <$> + (x .@ "currentSpotFleetRequestState") <*> + (x .@ "previousSpotFleetRequestState") + <*> (x .@ "spotFleetRequestId") + +instance Hashable CancelSpotFleetRequestsSuccessItem + where + +instance NFData CancelSpotFleetRequestsSuccessItem + where + +-- | Describes a request to cancel a Spot Instance. +-- +-- +-- +-- /See:/ 'cancelledSpotInstanceRequest' smart constructor. +data CancelledSpotInstanceRequest = CancelledSpotInstanceRequest' + { _csirState :: !(Maybe CancelSpotInstanceRequestState) + , _csirSpotInstanceRequestId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CancelledSpotInstanceRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csirState' - The state of the Spot Instance request. +-- +-- * 'csirSpotInstanceRequestId' - The ID of the Spot Instance request. +cancelledSpotInstanceRequest + :: CancelledSpotInstanceRequest +cancelledSpotInstanceRequest = + CancelledSpotInstanceRequest' + {_csirState = Nothing, _csirSpotInstanceRequestId = Nothing} + + +-- | The state of the Spot Instance request. +csirState :: Lens' CancelledSpotInstanceRequest (Maybe CancelSpotInstanceRequestState) +csirState = lens _csirState (\ s a -> s{_csirState = a}) + +-- | The ID of the Spot Instance request. +csirSpotInstanceRequestId :: Lens' CancelledSpotInstanceRequest (Maybe Text) +csirSpotInstanceRequestId = lens _csirSpotInstanceRequestId (\ s a -> s{_csirSpotInstanceRequestId = a}) + +instance FromXML CancelledSpotInstanceRequest where + parseXML x + = CancelledSpotInstanceRequest' <$> + (x .@? "state") <*> (x .@? "spotInstanceRequestId") + +instance Hashable CancelledSpotInstanceRequest where + +instance NFData CancelledSpotInstanceRequest where + +-- | Describes an IPv4 CIDR block. +-- +-- +-- +-- /See:/ 'cidrBlock' smart constructor. +newtype CidrBlock = CidrBlock' + { _cbCidrBlock :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CidrBlock' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cbCidrBlock' - The IPv4 CIDR block. +cidrBlock + :: CidrBlock +cidrBlock = CidrBlock' {_cbCidrBlock = Nothing} + + +-- | The IPv4 CIDR block. +cbCidrBlock :: Lens' CidrBlock (Maybe Text) +cbCidrBlock = lens _cbCidrBlock (\ s a -> s{_cbCidrBlock = a}) + +instance FromXML CidrBlock where + parseXML x = CidrBlock' <$> (x .@? "cidrBlock") + +instance Hashable CidrBlock where + +instance NFData CidrBlock where + +-- | Describes the ClassicLink DNS support status of a VPC. +-- +-- +-- +-- /See:/ 'classicLinkDNSSupport' smart constructor. +data ClassicLinkDNSSupport = ClassicLinkDNSSupport' + { _cldsVPCId :: !(Maybe Text) + , _cldsClassicLinkDNSSupported :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ClassicLinkDNSSupport' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cldsVPCId' - The ID of the VPC. +-- +-- * 'cldsClassicLinkDNSSupported' - Indicates whether ClassicLink DNS support is enabled for the VPC. +classicLinkDNSSupport + :: ClassicLinkDNSSupport +classicLinkDNSSupport = + ClassicLinkDNSSupport' + {_cldsVPCId = Nothing, _cldsClassicLinkDNSSupported = Nothing} + + +-- | The ID of the VPC. +cldsVPCId :: Lens' ClassicLinkDNSSupport (Maybe Text) +cldsVPCId = lens _cldsVPCId (\ s a -> s{_cldsVPCId = a}) + +-- | Indicates whether ClassicLink DNS support is enabled for the VPC. +cldsClassicLinkDNSSupported :: Lens' ClassicLinkDNSSupport (Maybe Bool) +cldsClassicLinkDNSSupported = lens _cldsClassicLinkDNSSupported (\ s a -> s{_cldsClassicLinkDNSSupported = a}) + +instance FromXML ClassicLinkDNSSupport where + parseXML x + = ClassicLinkDNSSupport' <$> + (x .@? "vpcId") <*> (x .@? "classicLinkDnsSupported") + +instance Hashable ClassicLinkDNSSupport where + +instance NFData ClassicLinkDNSSupport where + +-- | Describes a linked EC2-Classic instance. +-- +-- +-- +-- /See:/ 'classicLinkInstance' smart constructor. +data ClassicLinkInstance = ClassicLinkInstance' + { _cliInstanceId :: !(Maybe Text) + , _cliGroups :: !(Maybe [GroupIdentifier]) + , _cliVPCId :: !(Maybe Text) + , _cliTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ClassicLinkInstance' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cliInstanceId' - The ID of the instance. +-- +-- * 'cliGroups' - A list of security groups. +-- +-- * 'cliVPCId' - The ID of the VPC. +-- +-- * 'cliTags' - Any tags assigned to the instance. +classicLinkInstance + :: ClassicLinkInstance +classicLinkInstance = + ClassicLinkInstance' + { _cliInstanceId = Nothing + , _cliGroups = Nothing + , _cliVPCId = Nothing + , _cliTags = Nothing + } + + +-- | The ID of the instance. +cliInstanceId :: Lens' ClassicLinkInstance (Maybe Text) +cliInstanceId = lens _cliInstanceId (\ s a -> s{_cliInstanceId = a}) + +-- | A list of security groups. +cliGroups :: Lens' ClassicLinkInstance [GroupIdentifier] +cliGroups = lens _cliGroups (\ s a -> s{_cliGroups = a}) . _Default . _Coerce + +-- | The ID of the VPC. +cliVPCId :: Lens' ClassicLinkInstance (Maybe Text) +cliVPCId = lens _cliVPCId (\ s a -> s{_cliVPCId = a}) + +-- | Any tags assigned to the instance. +cliTags :: Lens' ClassicLinkInstance [Tag] +cliTags = lens _cliTags (\ s a -> s{_cliTags = a}) . _Default . _Coerce + +instance FromXML ClassicLinkInstance where + parseXML x + = ClassicLinkInstance' <$> + (x .@? "instanceId") <*> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpcId") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable ClassicLinkInstance where + +instance NFData ClassicLinkInstance where + +-- | Describes a Classic Load Balancer. +-- +-- +-- +-- /See:/ 'classicLoadBalancer' smart constructor. +newtype ClassicLoadBalancer = ClassicLoadBalancer' + { _clbName :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ClassicLoadBalancer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'clbName' - The name of the load balancer. +classicLoadBalancer + :: Text -- ^ 'clbName' + -> ClassicLoadBalancer +classicLoadBalancer pName_ = ClassicLoadBalancer' {_clbName = pName_} + + +-- | The name of the load balancer. +clbName :: Lens' ClassicLoadBalancer Text +clbName = lens _clbName (\ s a -> s{_clbName = a}) + +instance FromXML ClassicLoadBalancer where + parseXML x = ClassicLoadBalancer' <$> (x .@ "name") + +instance Hashable ClassicLoadBalancer where + +instance NFData ClassicLoadBalancer where + +instance ToQuery ClassicLoadBalancer where + toQuery ClassicLoadBalancer'{..} + = mconcat ["Name" =: _clbName] + +-- | Describes the Classic Load Balancers to attach to a Spot Fleet. Spot Fleet registers the running Spot Instances with these Classic Load Balancers. +-- +-- +-- +-- /See:/ 'classicLoadBalancersConfig' smart constructor. +newtype ClassicLoadBalancersConfig = ClassicLoadBalancersConfig' + { _clbcClassicLoadBalancers :: List1 ClassicLoadBalancer + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ClassicLoadBalancersConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'clbcClassicLoadBalancers' - One or more Classic Load Balancers. +classicLoadBalancersConfig + :: NonEmpty ClassicLoadBalancer -- ^ 'clbcClassicLoadBalancers' + -> ClassicLoadBalancersConfig +classicLoadBalancersConfig pClassicLoadBalancers_ = + ClassicLoadBalancersConfig' + {_clbcClassicLoadBalancers = _List1 # pClassicLoadBalancers_} + + +-- | One or more Classic Load Balancers. +clbcClassicLoadBalancers :: Lens' ClassicLoadBalancersConfig (NonEmpty ClassicLoadBalancer) +clbcClassicLoadBalancers = lens _clbcClassicLoadBalancers (\ s a -> s{_clbcClassicLoadBalancers = a}) . _List1 + +instance FromXML ClassicLoadBalancersConfig where + parseXML x + = ClassicLoadBalancersConfig' <$> + (x .@? "classicLoadBalancers" .!@ mempty >>= + parseXMLList1 "item") + +instance Hashable ClassicLoadBalancersConfig where + +instance NFData ClassicLoadBalancersConfig where + +instance ToQuery ClassicLoadBalancersConfig where + toQuery ClassicLoadBalancersConfig'{..} + = mconcat + [toQueryList "ClassicLoadBalancers" + _clbcClassicLoadBalancers] + +-- | Describes the client-specific data. +-- +-- +-- +-- /See:/ 'clientData' smart constructor. +data ClientData = ClientData' + { _cdUploadStart :: !(Maybe ISO8601) + , _cdUploadSize :: !(Maybe Double) + , _cdUploadEnd :: !(Maybe ISO8601) + , _cdComment :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ClientData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cdUploadStart' - The time that the disk upload starts. +-- +-- * 'cdUploadSize' - The size of the uploaded disk image, in GiB. +-- +-- * 'cdUploadEnd' - The time that the disk upload ends. +-- +-- * 'cdComment' - A user-defined comment about the disk upload. +clientData + :: ClientData +clientData = + ClientData' + { _cdUploadStart = Nothing + , _cdUploadSize = Nothing + , _cdUploadEnd = Nothing + , _cdComment = Nothing + } + + +-- | The time that the disk upload starts. +cdUploadStart :: Lens' ClientData (Maybe UTCTime) +cdUploadStart = lens _cdUploadStart (\ s a -> s{_cdUploadStart = a}) . mapping _Time + +-- | The size of the uploaded disk image, in GiB. +cdUploadSize :: Lens' ClientData (Maybe Double) +cdUploadSize = lens _cdUploadSize (\ s a -> s{_cdUploadSize = a}) + +-- | The time that the disk upload ends. +cdUploadEnd :: Lens' ClientData (Maybe UTCTime) +cdUploadEnd = lens _cdUploadEnd (\ s a -> s{_cdUploadEnd = a}) . mapping _Time + +-- | A user-defined comment about the disk upload. +cdComment :: Lens' ClientData (Maybe Text) +cdComment = lens _cdComment (\ s a -> s{_cdComment = a}) + +instance Hashable ClientData where + +instance NFData ClientData where + +instance ToQuery ClientData where + toQuery ClientData'{..} + = mconcat + ["UploadStart" =: _cdUploadStart, + "UploadSize" =: _cdUploadSize, + "UploadEnd" =: _cdUploadEnd, "Comment" =: _cdComment] + +-- | Describes a connection notification for a VPC endpoint or VPC endpoint service. +-- +-- +-- +-- /See:/ 'connectionNotification' smart constructor. +data ConnectionNotification = ConnectionNotification' + { _cnConnectionNotificationState :: !(Maybe ConnectionNotificationState) + , _cnConnectionNotificationType :: !(Maybe ConnectionNotificationType) + , _cnConnectionEvents :: !(Maybe [Text]) + , _cnServiceId :: !(Maybe Text) + , _cnVPCEndpointId :: !(Maybe Text) + , _cnConnectionNotificationId :: !(Maybe Text) + , _cnConnectionNotificationARN :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ConnectionNotification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cnConnectionNotificationState' - The state of the notification. +-- +-- * 'cnConnectionNotificationType' - The type of notification. +-- +-- * 'cnConnectionEvents' - The events for the notification. Valid values are @Accept@ , @Connect@ , @Delete@ , and @Reject@ . +-- +-- * 'cnServiceId' - The ID of the endpoint service. +-- +-- * 'cnVPCEndpointId' - The ID of the VPC endpoint. +-- +-- * 'cnConnectionNotificationId' - The ID of the notification. +-- +-- * 'cnConnectionNotificationARN' - The ARN of the SNS topic for the notification. +connectionNotification + :: ConnectionNotification +connectionNotification = + ConnectionNotification' + { _cnConnectionNotificationState = Nothing + , _cnConnectionNotificationType = Nothing + , _cnConnectionEvents = Nothing + , _cnServiceId = Nothing + , _cnVPCEndpointId = Nothing + , _cnConnectionNotificationId = Nothing + , _cnConnectionNotificationARN = Nothing + } + + +-- | The state of the notification. +cnConnectionNotificationState :: Lens' ConnectionNotification (Maybe ConnectionNotificationState) +cnConnectionNotificationState = lens _cnConnectionNotificationState (\ s a -> s{_cnConnectionNotificationState = a}) + +-- | The type of notification. +cnConnectionNotificationType :: Lens' ConnectionNotification (Maybe ConnectionNotificationType) +cnConnectionNotificationType = lens _cnConnectionNotificationType (\ s a -> s{_cnConnectionNotificationType = a}) + +-- | The events for the notification. Valid values are @Accept@ , @Connect@ , @Delete@ , and @Reject@ . +cnConnectionEvents :: Lens' ConnectionNotification [Text] +cnConnectionEvents = lens _cnConnectionEvents (\ s a -> s{_cnConnectionEvents = a}) . _Default . _Coerce + +-- | The ID of the endpoint service. +cnServiceId :: Lens' ConnectionNotification (Maybe Text) +cnServiceId = lens _cnServiceId (\ s a -> s{_cnServiceId = a}) + +-- | The ID of the VPC endpoint. +cnVPCEndpointId :: Lens' ConnectionNotification (Maybe Text) +cnVPCEndpointId = lens _cnVPCEndpointId (\ s a -> s{_cnVPCEndpointId = a}) + +-- | The ID of the notification. +cnConnectionNotificationId :: Lens' ConnectionNotification (Maybe Text) +cnConnectionNotificationId = lens _cnConnectionNotificationId (\ s a -> s{_cnConnectionNotificationId = a}) + +-- | The ARN of the SNS topic for the notification. +cnConnectionNotificationARN :: Lens' ConnectionNotification (Maybe Text) +cnConnectionNotificationARN = lens _cnConnectionNotificationARN (\ s a -> s{_cnConnectionNotificationARN = a}) + +instance FromXML ConnectionNotification where + parseXML x + = ConnectionNotification' <$> + (x .@? "connectionNotificationState") <*> + (x .@? "connectionNotificationType") + <*> + (x .@? "connectionEvents" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "serviceId") + <*> (x .@? "vpcEndpointId") + <*> (x .@? "connectionNotificationId") + <*> (x .@? "connectionNotificationArn") + +instance Hashable ConnectionNotification where + +instance NFData ConnectionNotification where + +-- | Describes a conversion task. +-- +-- +-- +-- /See:/ 'conversionTask' smart constructor. +data ConversionTask = ConversionTask' + { _ctImportInstance :: !(Maybe ImportInstanceTaskDetails) + , _ctState :: !(Maybe ConversionTaskState) + , _ctStatusMessage :: !(Maybe Text) + , _ctImportVolume :: !(Maybe ImportVolumeTaskDetails) + , _ctConversionTaskId :: !(Maybe Text) + , _ctExpirationTime :: !(Maybe Text) + , _ctTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ConversionTask' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ctImportInstance' - If the task is for importing an instance, this contains information about the import instance task. +-- +-- * 'ctState' - The state of the conversion task. +-- +-- * 'ctStatusMessage' - The status message related to the conversion task. +-- +-- * 'ctImportVolume' - If the task is for importing a volume, this contains information about the import volume task. +-- +-- * 'ctConversionTaskId' - The ID of the conversion task. +-- +-- * 'ctExpirationTime' - The time when the task expires. If the upload isn't complete before the expiration time, we automatically cancel the task. +-- +-- * 'ctTags' - Any tags assigned to the task. +conversionTask + :: ConversionTask +conversionTask = + ConversionTask' + { _ctImportInstance = Nothing + , _ctState = Nothing + , _ctStatusMessage = Nothing + , _ctImportVolume = Nothing + , _ctConversionTaskId = Nothing + , _ctExpirationTime = Nothing + , _ctTags = Nothing + } + + +-- | If the task is for importing an instance, this contains information about the import instance task. +ctImportInstance :: Lens' ConversionTask (Maybe ImportInstanceTaskDetails) +ctImportInstance = lens _ctImportInstance (\ s a -> s{_ctImportInstance = a}) + +-- | The state of the conversion task. +ctState :: Lens' ConversionTask (Maybe ConversionTaskState) +ctState = lens _ctState (\ s a -> s{_ctState = a}) + +-- | The status message related to the conversion task. +ctStatusMessage :: Lens' ConversionTask (Maybe Text) +ctStatusMessage = lens _ctStatusMessage (\ s a -> s{_ctStatusMessage = a}) + +-- | If the task is for importing a volume, this contains information about the import volume task. +ctImportVolume :: Lens' ConversionTask (Maybe ImportVolumeTaskDetails) +ctImportVolume = lens _ctImportVolume (\ s a -> s{_ctImportVolume = a}) + +-- | The ID of the conversion task. +ctConversionTaskId :: Lens' ConversionTask (Maybe Text) +ctConversionTaskId = lens _ctConversionTaskId (\ s a -> s{_ctConversionTaskId = a}) + +-- | The time when the task expires. If the upload isn't complete before the expiration time, we automatically cancel the task. +ctExpirationTime :: Lens' ConversionTask (Maybe Text) +ctExpirationTime = lens _ctExpirationTime (\ s a -> s{_ctExpirationTime = a}) + +-- | Any tags assigned to the task. +ctTags :: Lens' ConversionTask [Tag] +ctTags = lens _ctTags (\ s a -> s{_ctTags = a}) . _Default . _Coerce + +instance FromXML ConversionTask where + parseXML x + = ConversionTask' <$> + (x .@? "importInstance") <*> (x .@? "state") <*> + (x .@? "statusMessage") + <*> (x .@? "importVolume") + <*> (x .@? "conversionTaskId") + <*> (x .@? "expirationTime") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable ConversionTask where + +instance NFData ConversionTask where + +-- | Describes the user or group to be added or removed from the permissions for a volume. +-- +-- +-- +-- /See:/ 'createVolumePermission' smart constructor. +data CreateVolumePermission = CreateVolumePermission' + { _cvpGroup :: !(Maybe PermissionGroup) + , _cvpUserId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateVolumePermission' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cvpGroup' - The specific group that is to be added or removed from a volume's list of create volume permissions. +-- +-- * 'cvpUserId' - The specific AWS account ID that is to be added or removed from a volume's list of create volume permissions. +createVolumePermission + :: CreateVolumePermission +createVolumePermission = + CreateVolumePermission' {_cvpGroup = Nothing, _cvpUserId = Nothing} + + +-- | The specific group that is to be added or removed from a volume's list of create volume permissions. +cvpGroup :: Lens' CreateVolumePermission (Maybe PermissionGroup) +cvpGroup = lens _cvpGroup (\ s a -> s{_cvpGroup = a}) + +-- | The specific AWS account ID that is to be added or removed from a volume's list of create volume permissions. +cvpUserId :: Lens' CreateVolumePermission (Maybe Text) +cvpUserId = lens _cvpUserId (\ s a -> s{_cvpUserId = a}) + +instance FromXML CreateVolumePermission where + parseXML x + = CreateVolumePermission' <$> + (x .@? "group") <*> (x .@? "userId") + +instance Hashable CreateVolumePermission where + +instance NFData CreateVolumePermission where + +instance ToQuery CreateVolumePermission where + toQuery CreateVolumePermission'{..} + = mconcat + ["Group" =: _cvpGroup, "UserId" =: _cvpUserId] + +-- | Describes modifications to the permissions for a volume. +-- +-- +-- +-- /See:/ 'createVolumePermissionModifications' smart constructor. +data CreateVolumePermissionModifications = CreateVolumePermissionModifications' + { _cvpmRemove :: !(Maybe [CreateVolumePermission]) + , _cvpmAdd :: !(Maybe [CreateVolumePermission]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreateVolumePermissionModifications' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cvpmRemove' - Removes a specific AWS account ID or group from a volume's list of create volume permissions. +-- +-- * 'cvpmAdd' - Adds a specific AWS account ID or group to a volume's list of create volume permissions. +createVolumePermissionModifications + :: CreateVolumePermissionModifications +createVolumePermissionModifications = + CreateVolumePermissionModifications' + {_cvpmRemove = Nothing, _cvpmAdd = Nothing} + + +-- | Removes a specific AWS account ID or group from a volume's list of create volume permissions. +cvpmRemove :: Lens' CreateVolumePermissionModifications [CreateVolumePermission] +cvpmRemove = lens _cvpmRemove (\ s a -> s{_cvpmRemove = a}) . _Default . _Coerce + +-- | Adds a specific AWS account ID or group to a volume's list of create volume permissions. +cvpmAdd :: Lens' CreateVolumePermissionModifications [CreateVolumePermission] +cvpmAdd = lens _cvpmAdd (\ s a -> s{_cvpmAdd = a}) . _Default . _Coerce + +instance Hashable CreateVolumePermissionModifications + where + +instance NFData CreateVolumePermissionModifications + where + +instance ToQuery CreateVolumePermissionModifications + where + toQuery CreateVolumePermissionModifications'{..} + = mconcat + [toQuery (toQueryList "Remove" <$> _cvpmRemove), + toQuery (toQueryList "Add" <$> _cvpmAdd)] + +-- | Describes the credit option for CPU usage of a T2 instance. +-- +-- +-- +-- /See:/ 'creditSpecification' smart constructor. +newtype CreditSpecification = CreditSpecification' + { _csCPUCredits :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreditSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csCPUCredits' - The credit option for CPU usage of a T2 instance. +creditSpecification + :: CreditSpecification +creditSpecification = CreditSpecification' {_csCPUCredits = Nothing} + + +-- | The credit option for CPU usage of a T2 instance. +csCPUCredits :: Lens' CreditSpecification (Maybe Text) +csCPUCredits = lens _csCPUCredits (\ s a -> s{_csCPUCredits = a}) + +instance FromXML CreditSpecification where + parseXML x + = CreditSpecification' <$> (x .@? "cpuCredits") + +instance Hashable CreditSpecification where + +instance NFData CreditSpecification where + +-- | The credit option for CPU usage of a T2 instance. +-- +-- +-- +-- /See:/ 'creditSpecificationRequest' smart constructor. +newtype CreditSpecificationRequest = CreditSpecificationRequest' + { _csrCPUCredits :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CreditSpecificationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'csrCPUCredits' - The credit option for CPU usage of a T2 instance. Valid values are @standard@ and @unlimited@ . +creditSpecificationRequest + :: Text -- ^ 'csrCPUCredits' + -> CreditSpecificationRequest +creditSpecificationRequest pCPUCredits_ = + CreditSpecificationRequest' {_csrCPUCredits = pCPUCredits_} + + +-- | The credit option for CPU usage of a T2 instance. Valid values are @standard@ and @unlimited@ . +csrCPUCredits :: Lens' CreditSpecificationRequest Text +csrCPUCredits = lens _csrCPUCredits (\ s a -> s{_csrCPUCredits = a}) + +instance Hashable CreditSpecificationRequest where + +instance NFData CreditSpecificationRequest where + +instance ToQuery CreditSpecificationRequest where + toQuery CreditSpecificationRequest'{..} + = mconcat ["CpuCredits" =: _csrCPUCredits] + +-- | Describes a customer gateway. +-- +-- +-- +-- /See:/ 'customerGateway' smart constructor. +data CustomerGateway = CustomerGateway' + { _cgTags :: !(Maybe [Tag]) + , _cgBGPASN :: !Text + , _cgCustomerGatewayId :: !Text + , _cgIPAddress :: !Text + , _cgState :: !Text + , _cgType :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'CustomerGateway' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'cgTags' - Any tags assigned to the customer gateway. +-- +-- * 'cgBGPASN' - The customer gateway's Border Gateway Protocol (BGP) Autonomous System Number (ASN). +-- +-- * 'cgCustomerGatewayId' - The ID of the customer gateway. +-- +-- * 'cgIPAddress' - The Internet-routable IP address of the customer gateway's outside interface. +-- +-- * 'cgState' - The current state of the customer gateway (@pending | available | deleting | deleted@ ). +-- +-- * 'cgType' - The type of VPN connection the customer gateway supports (@ipsec.1@ ). +customerGateway + :: Text -- ^ 'cgBGPASN' + -> Text -- ^ 'cgCustomerGatewayId' + -> Text -- ^ 'cgIPAddress' + -> Text -- ^ 'cgState' + -> Text -- ^ 'cgType' + -> CustomerGateway +customerGateway pBGPASN_ pCustomerGatewayId_ pIPAddress_ pState_ pType_ = + CustomerGateway' + { _cgTags = Nothing + , _cgBGPASN = pBGPASN_ + , _cgCustomerGatewayId = pCustomerGatewayId_ + , _cgIPAddress = pIPAddress_ + , _cgState = pState_ + , _cgType = pType_ + } + + +-- | Any tags assigned to the customer gateway. +cgTags :: Lens' CustomerGateway [Tag] +cgTags = lens _cgTags (\ s a -> s{_cgTags = a}) . _Default . _Coerce + +-- | The customer gateway's Border Gateway Protocol (BGP) Autonomous System Number (ASN). +cgBGPASN :: Lens' CustomerGateway Text +cgBGPASN = lens _cgBGPASN (\ s a -> s{_cgBGPASN = a}) + +-- | The ID of the customer gateway. +cgCustomerGatewayId :: Lens' CustomerGateway Text +cgCustomerGatewayId = lens _cgCustomerGatewayId (\ s a -> s{_cgCustomerGatewayId = a}) + +-- | The Internet-routable IP address of the customer gateway's outside interface. +cgIPAddress :: Lens' CustomerGateway Text +cgIPAddress = lens _cgIPAddress (\ s a -> s{_cgIPAddress = a}) + +-- | The current state of the customer gateway (@pending | available | deleting | deleted@ ). +cgState :: Lens' CustomerGateway Text +cgState = lens _cgState (\ s a -> s{_cgState = a}) + +-- | The type of VPN connection the customer gateway supports (@ipsec.1@ ). +cgType :: Lens' CustomerGateway Text +cgType = lens _cgType (\ s a -> s{_cgType = a}) + +instance FromXML CustomerGateway where + parseXML x + = CustomerGateway' <$> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "bgpAsn") + <*> (x .@ "customerGatewayId") + <*> (x .@ "ipAddress") + <*> (x .@ "state") + <*> (x .@ "type") + +instance Hashable CustomerGateway where + +instance NFData CustomerGateway where + +-- | Describes a DHCP configuration option. +-- +-- +-- +-- /See:/ 'dhcpConfiguration' smart constructor. +data DHCPConfiguration = DHCPConfiguration' + { _dcValues :: !(Maybe [AttributeValue]) + , _dcKey :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DHCPConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dcValues' - One or more values for the DHCP option. +-- +-- * 'dcKey' - The name of a DHCP option. +dhcpConfiguration + :: DHCPConfiguration +dhcpConfiguration = DHCPConfiguration' {_dcValues = Nothing, _dcKey = Nothing} + + +-- | One or more values for the DHCP option. +dcValues :: Lens' DHCPConfiguration [AttributeValue] +dcValues = lens _dcValues (\ s a -> s{_dcValues = a}) . _Default . _Coerce + +-- | The name of a DHCP option. +dcKey :: Lens' DHCPConfiguration (Maybe Text) +dcKey = lens _dcKey (\ s a -> s{_dcKey = a}) + +instance FromXML DHCPConfiguration where + parseXML x + = DHCPConfiguration' <$> + (x .@? "valueSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "key") + +instance Hashable DHCPConfiguration where + +instance NFData DHCPConfiguration where + +-- | Describes a set of DHCP options. +-- +-- +-- +-- /See:/ 'dhcpOptions' smart constructor. +data DHCPOptions = DHCPOptions' + { _doDHCPConfigurations :: !(Maybe [DHCPConfiguration]) + , _doDHCPOptionsId :: !(Maybe Text) + , _doTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DHCPOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'doDHCPConfigurations' - One or more DHCP options in the set. +-- +-- * 'doDHCPOptionsId' - The ID of the set of DHCP options. +-- +-- * 'doTags' - Any tags assigned to the DHCP options set. +dhcpOptions + :: DHCPOptions +dhcpOptions = + DHCPOptions' + { _doDHCPConfigurations = Nothing + , _doDHCPOptionsId = Nothing + , _doTags = Nothing + } + + +-- | One or more DHCP options in the set. +doDHCPConfigurations :: Lens' DHCPOptions [DHCPConfiguration] +doDHCPConfigurations = lens _doDHCPConfigurations (\ s a -> s{_doDHCPConfigurations = a}) . _Default . _Coerce + +-- | The ID of the set of DHCP options. +doDHCPOptionsId :: Lens' DHCPOptions (Maybe Text) +doDHCPOptionsId = lens _doDHCPOptionsId (\ s a -> s{_doDHCPOptionsId = a}) + +-- | Any tags assigned to the DHCP options set. +doTags :: Lens' DHCPOptions [Tag] +doTags = lens _doTags (\ s a -> s{_doTags = a}) . _Default . _Coerce + +instance FromXML DHCPOptions where + parseXML x + = DHCPOptions' <$> + (x .@? "dhcpConfigurationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "dhcpOptionsId") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable DHCPOptions where + +instance NFData DHCPOptions where + +-- | Describes a DNS entry. +-- +-- +-- +-- /See:/ 'dnsEntry' smart constructor. +data DNSEntry = DNSEntry' + { _deHostedZoneId :: !(Maybe Text) + , _deDNSName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DNSEntry' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'deHostedZoneId' - The ID of the private hosted zone. +-- +-- * 'deDNSName' - The DNS name. +dnsEntry + :: DNSEntry +dnsEntry = DNSEntry' {_deHostedZoneId = Nothing, _deDNSName = Nothing} + + +-- | The ID of the private hosted zone. +deHostedZoneId :: Lens' DNSEntry (Maybe Text) +deHostedZoneId = lens _deHostedZoneId (\ s a -> s{_deHostedZoneId = a}) + +-- | The DNS name. +deDNSName :: Lens' DNSEntry (Maybe Text) +deDNSName = lens _deDNSName (\ s a -> s{_deDNSName = a}) + +instance FromXML DNSEntry where + parseXML x + = DNSEntry' <$> + (x .@? "hostedZoneId") <*> (x .@? "dnsName") + +instance Hashable DNSEntry where + +instance NFData DNSEntry where + +-- | Describes an EC2 Fleet error. +-- +-- +-- +-- /See:/ 'deleteFleetError' smart constructor. +data DeleteFleetError = DeleteFleetError' + { _dfeCode :: !(Maybe DeleteFleetErrorCode) + , _dfeMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteFleetError' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfeCode' - The error code. +-- +-- * 'dfeMessage' - The description for the error code. +deleteFleetError + :: DeleteFleetError +deleteFleetError = DeleteFleetError' {_dfeCode = Nothing, _dfeMessage = Nothing} + + +-- | The error code. +dfeCode :: Lens' DeleteFleetError (Maybe DeleteFleetErrorCode) +dfeCode = lens _dfeCode (\ s a -> s{_dfeCode = a}) + +-- | The description for the error code. +dfeMessage :: Lens' DeleteFleetError (Maybe Text) +dfeMessage = lens _dfeMessage (\ s a -> s{_dfeMessage = a}) + +instance FromXML DeleteFleetError where + parseXML x + = DeleteFleetError' <$> + (x .@? "code") <*> (x .@? "message") + +instance Hashable DeleteFleetError where + +instance NFData DeleteFleetError where + +-- | Describes an EC2 Fleet that was not successfully deleted. +-- +-- +-- +-- /See:/ 'deleteFleetErrorItem' smart constructor. +data DeleteFleetErrorItem = DeleteFleetErrorItem' + { _dfeiError :: !(Maybe DeleteFleetError) + , _dfeiFleetId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteFleetErrorItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfeiError' - The error. +-- +-- * 'dfeiFleetId' - The ID of the EC2 Fleet. +deleteFleetErrorItem + :: DeleteFleetErrorItem +deleteFleetErrorItem = + DeleteFleetErrorItem' {_dfeiError = Nothing, _dfeiFleetId = Nothing} + + +-- | The error. +dfeiError :: Lens' DeleteFleetErrorItem (Maybe DeleteFleetError) +dfeiError = lens _dfeiError (\ s a -> s{_dfeiError = a}) + +-- | The ID of the EC2 Fleet. +dfeiFleetId :: Lens' DeleteFleetErrorItem (Maybe Text) +dfeiFleetId = lens _dfeiFleetId (\ s a -> s{_dfeiFleetId = a}) + +instance FromXML DeleteFleetErrorItem where + parseXML x + = DeleteFleetErrorItem' <$> + (x .@? "error") <*> (x .@? "fleetId") + +instance Hashable DeleteFleetErrorItem where + +instance NFData DeleteFleetErrorItem where + +-- | Describes an EC2 Fleet that was successfully deleted. +-- +-- +-- +-- /See:/ 'deleteFleetSuccessItem' smart constructor. +data DeleteFleetSuccessItem = DeleteFleetSuccessItem' + { _dfsiCurrentFleetState :: !(Maybe FleetStateCode) + , _dfsiPreviousFleetState :: !(Maybe FleetStateCode) + , _dfsiFleetId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteFleetSuccessItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dfsiCurrentFleetState' - The current state of the EC2 Fleet. +-- +-- * 'dfsiPreviousFleetState' - The previous state of the EC2 Fleet. +-- +-- * 'dfsiFleetId' - The ID of the EC2 Fleet. +deleteFleetSuccessItem + :: DeleteFleetSuccessItem +deleteFleetSuccessItem = + DeleteFleetSuccessItem' + { _dfsiCurrentFleetState = Nothing + , _dfsiPreviousFleetState = Nothing + , _dfsiFleetId = Nothing + } + + +-- | The current state of the EC2 Fleet. +dfsiCurrentFleetState :: Lens' DeleteFleetSuccessItem (Maybe FleetStateCode) +dfsiCurrentFleetState = lens _dfsiCurrentFleetState (\ s a -> s{_dfsiCurrentFleetState = a}) + +-- | The previous state of the EC2 Fleet. +dfsiPreviousFleetState :: Lens' DeleteFleetSuccessItem (Maybe FleetStateCode) +dfsiPreviousFleetState = lens _dfsiPreviousFleetState (\ s a -> s{_dfsiPreviousFleetState = a}) + +-- | The ID of the EC2 Fleet. +dfsiFleetId :: Lens' DeleteFleetSuccessItem (Maybe Text) +dfsiFleetId = lens _dfsiFleetId (\ s a -> s{_dfsiFleetId = a}) + +instance FromXML DeleteFleetSuccessItem where + parseXML x + = DeleteFleetSuccessItem' <$> + (x .@? "currentFleetState") <*> + (x .@? "previousFleetState") + <*> (x .@? "fleetId") + +instance Hashable DeleteFleetSuccessItem where + +instance NFData DeleteFleetSuccessItem where + +-- | Describes a launch template version that could not be deleted. +-- +-- +-- +-- /See:/ 'deleteLaunchTemplateVersionsResponseErrorItem' smart constructor. +data DeleteLaunchTemplateVersionsResponseErrorItem = DeleteLaunchTemplateVersionsResponseErrorItem' + { _dltvreiLaunchTemplateName :: !(Maybe Text) + , _dltvreiLaunchTemplateId :: !(Maybe Text) + , _dltvreiVersionNumber :: !(Maybe Integer) + , _dltvreiResponseError :: !(Maybe ResponseError) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteLaunchTemplateVersionsResponseErrorItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltvreiLaunchTemplateName' - The name of the launch template. +-- +-- * 'dltvreiLaunchTemplateId' - The ID of the launch template. +-- +-- * 'dltvreiVersionNumber' - The version number of the launch template. +-- +-- * 'dltvreiResponseError' - Information about the error. +deleteLaunchTemplateVersionsResponseErrorItem + :: DeleteLaunchTemplateVersionsResponseErrorItem +deleteLaunchTemplateVersionsResponseErrorItem = + DeleteLaunchTemplateVersionsResponseErrorItem' + { _dltvreiLaunchTemplateName = Nothing + , _dltvreiLaunchTemplateId = Nothing + , _dltvreiVersionNumber = Nothing + , _dltvreiResponseError = Nothing + } + + +-- | The name of the launch template. +dltvreiLaunchTemplateName :: Lens' DeleteLaunchTemplateVersionsResponseErrorItem (Maybe Text) +dltvreiLaunchTemplateName = lens _dltvreiLaunchTemplateName (\ s a -> s{_dltvreiLaunchTemplateName = a}) + +-- | The ID of the launch template. +dltvreiLaunchTemplateId :: Lens' DeleteLaunchTemplateVersionsResponseErrorItem (Maybe Text) +dltvreiLaunchTemplateId = lens _dltvreiLaunchTemplateId (\ s a -> s{_dltvreiLaunchTemplateId = a}) + +-- | The version number of the launch template. +dltvreiVersionNumber :: Lens' DeleteLaunchTemplateVersionsResponseErrorItem (Maybe Integer) +dltvreiVersionNumber = lens _dltvreiVersionNumber (\ s a -> s{_dltvreiVersionNumber = a}) + +-- | Information about the error. +dltvreiResponseError :: Lens' DeleteLaunchTemplateVersionsResponseErrorItem (Maybe ResponseError) +dltvreiResponseError = lens _dltvreiResponseError (\ s a -> s{_dltvreiResponseError = a}) + +instance FromXML + DeleteLaunchTemplateVersionsResponseErrorItem + where + parseXML x + = DeleteLaunchTemplateVersionsResponseErrorItem' <$> + (x .@? "launchTemplateName") <*> + (x .@? "launchTemplateId") + <*> (x .@? "versionNumber") + <*> (x .@? "responseError") + +instance Hashable + DeleteLaunchTemplateVersionsResponseErrorItem + where + +instance NFData + DeleteLaunchTemplateVersionsResponseErrorItem + where + +-- | Describes a launch template version that was successfully deleted. +-- +-- +-- +-- /See:/ 'deleteLaunchTemplateVersionsResponseSuccessItem' smart constructor. +data DeleteLaunchTemplateVersionsResponseSuccessItem = DeleteLaunchTemplateVersionsResponseSuccessItem' + { _dltvrsiLaunchTemplateName :: !(Maybe Text) + , _dltvrsiLaunchTemplateId :: !(Maybe Text) + , _dltvrsiVersionNumber :: !(Maybe Integer) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DeleteLaunchTemplateVersionsResponseSuccessItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dltvrsiLaunchTemplateName' - The name of the launch template. +-- +-- * 'dltvrsiLaunchTemplateId' - The ID of the launch template. +-- +-- * 'dltvrsiVersionNumber' - The version number of the launch template. +deleteLaunchTemplateVersionsResponseSuccessItem + :: DeleteLaunchTemplateVersionsResponseSuccessItem +deleteLaunchTemplateVersionsResponseSuccessItem = + DeleteLaunchTemplateVersionsResponseSuccessItem' + { _dltvrsiLaunchTemplateName = Nothing + , _dltvrsiLaunchTemplateId = Nothing + , _dltvrsiVersionNumber = Nothing + } + + +-- | The name of the launch template. +dltvrsiLaunchTemplateName :: Lens' DeleteLaunchTemplateVersionsResponseSuccessItem (Maybe Text) +dltvrsiLaunchTemplateName = lens _dltvrsiLaunchTemplateName (\ s a -> s{_dltvrsiLaunchTemplateName = a}) + +-- | The ID of the launch template. +dltvrsiLaunchTemplateId :: Lens' DeleteLaunchTemplateVersionsResponseSuccessItem (Maybe Text) +dltvrsiLaunchTemplateId = lens _dltvrsiLaunchTemplateId (\ s a -> s{_dltvrsiLaunchTemplateId = a}) + +-- | The version number of the launch template. +dltvrsiVersionNumber :: Lens' DeleteLaunchTemplateVersionsResponseSuccessItem (Maybe Integer) +dltvrsiVersionNumber = lens _dltvrsiVersionNumber (\ s a -> s{_dltvrsiVersionNumber = a}) + +instance FromXML + DeleteLaunchTemplateVersionsResponseSuccessItem + where + parseXML x + = DeleteLaunchTemplateVersionsResponseSuccessItem' + <$> + (x .@? "launchTemplateName") <*> + (x .@? "launchTemplateId") + <*> (x .@? "versionNumber") + +instance Hashable + DeleteLaunchTemplateVersionsResponseSuccessItem + where + +instance NFData + DeleteLaunchTemplateVersionsResponseSuccessItem + where + +-- | Describes a disk image. +-- +-- +-- +-- /See:/ 'diskImage' smart constructor. +data DiskImage = DiskImage' + { _diImage :: !(Maybe DiskImageDetail) + , _diVolume :: !(Maybe VolumeDetail) + , _diDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DiskImage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'diImage' - Information about the disk image. +-- +-- * 'diVolume' - Information about the volume. +-- +-- * 'diDescription' - A description of the disk image. +diskImage + :: DiskImage +diskImage = + DiskImage' {_diImage = Nothing, _diVolume = Nothing, _diDescription = Nothing} + + +-- | Information about the disk image. +diImage :: Lens' DiskImage (Maybe DiskImageDetail) +diImage = lens _diImage (\ s a -> s{_diImage = a}) + +-- | Information about the volume. +diVolume :: Lens' DiskImage (Maybe VolumeDetail) +diVolume = lens _diVolume (\ s a -> s{_diVolume = a}) + +-- | A description of the disk image. +diDescription :: Lens' DiskImage (Maybe Text) +diDescription = lens _diDescription (\ s a -> s{_diDescription = a}) + +instance Hashable DiskImage where + +instance NFData DiskImage where + +instance ToQuery DiskImage where + toQuery DiskImage'{..} + = mconcat + ["Image" =: _diImage, "Volume" =: _diVolume, + "Description" =: _diDescription] + +-- | Describes a disk image. +-- +-- +-- +-- /See:/ 'diskImageDescription' smart constructor. +data DiskImageDescription = DiskImageDescription' + { _dSize :: !(Maybe Integer) + , _dChecksum :: !(Maybe Text) + , _dFormat :: !(Maybe DiskImageFormat) + , _dImportManifestURL :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DiskImageDescription' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'dSize' - The size of the disk image, in GiB. +-- +-- * 'dChecksum' - The checksum computed for the disk image. +-- +-- * 'dFormat' - The disk image format. +-- +-- * 'dImportManifestURL' - A presigned URL for the import manifest stored in Amazon S3. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . +diskImageDescription + :: DiskImageDescription +diskImageDescription = + DiskImageDescription' + { _dSize = Nothing + , _dChecksum = Nothing + , _dFormat = Nothing + , _dImportManifestURL = Nothing + } + + +-- | The size of the disk image, in GiB. +dSize :: Lens' DiskImageDescription (Maybe Integer) +dSize = lens _dSize (\ s a -> s{_dSize = a}) + +-- | The checksum computed for the disk image. +dChecksum :: Lens' DiskImageDescription (Maybe Text) +dChecksum = lens _dChecksum (\ s a -> s{_dChecksum = a}) + +-- | The disk image format. +dFormat :: Lens' DiskImageDescription (Maybe DiskImageFormat) +dFormat = lens _dFormat (\ s a -> s{_dFormat = a}) + +-- | A presigned URL for the import manifest stored in Amazon S3. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . +dImportManifestURL :: Lens' DiskImageDescription (Maybe Text) +dImportManifestURL = lens _dImportManifestURL (\ s a -> s{_dImportManifestURL = a}) + +instance FromXML DiskImageDescription where + parseXML x + = DiskImageDescription' <$> + (x .@? "size") <*> (x .@? "checksum") <*> + (x .@? "format") + <*> (x .@? "importManifestUrl") + +instance Hashable DiskImageDescription where + +instance NFData DiskImageDescription where + +-- | Describes a disk image. +-- +-- +-- +-- /See:/ 'diskImageDetail' smart constructor. +data DiskImageDetail = DiskImageDetail' + { _didBytes :: !Integer + , _didFormat :: !DiskImageFormat + , _didImportManifestURL :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DiskImageDetail' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'didBytes' - The size of the disk image, in GiB. +-- +-- * 'didFormat' - The disk image format. +-- +-- * 'didImportManifestURL' - A presigned URL for the import manifest stored in Amazon S3 and presented here as an Amazon S3 presigned URL. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . +diskImageDetail + :: Integer -- ^ 'didBytes' + -> DiskImageFormat -- ^ 'didFormat' + -> Text -- ^ 'didImportManifestURL' + -> DiskImageDetail +diskImageDetail pBytes_ pFormat_ pImportManifestURL_ = + DiskImageDetail' + { _didBytes = pBytes_ + , _didFormat = pFormat_ + , _didImportManifestURL = pImportManifestURL_ + } + + +-- | The size of the disk image, in GiB. +didBytes :: Lens' DiskImageDetail Integer +didBytes = lens _didBytes (\ s a -> s{_didBytes = a}) + +-- | The disk image format. +didFormat :: Lens' DiskImageDetail DiskImageFormat +didFormat = lens _didFormat (\ s a -> s{_didFormat = a}) + +-- | A presigned URL for the import manifest stored in Amazon S3 and presented here as an Amazon S3 presigned URL. For information about creating a presigned URL for an Amazon S3 object, read the "Query String Request Authentication Alternative" section of the topic in the /Amazon Simple Storage Service Developer Guide/ . For information about the import manifest referenced by this API action, see . +didImportManifestURL :: Lens' DiskImageDetail Text +didImportManifestURL = lens _didImportManifestURL (\ s a -> s{_didImportManifestURL = a}) + +instance Hashable DiskImageDetail where + +instance NFData DiskImageDetail where + +instance ToQuery DiskImageDetail where + toQuery DiskImageDetail'{..} + = mconcat + ["Bytes" =: _didBytes, "Format" =: _didFormat, + "ImportManifestUrl" =: _didImportManifestURL] + +-- | Describes a disk image volume. +-- +-- +-- +-- /See:/ 'diskImageVolumeDescription' smart constructor. +data DiskImageVolumeDescription = DiskImageVolumeDescription' + { _divdSize :: !(Maybe Integer) + , _divdId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'DiskImageVolumeDescription' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'divdSize' - The size of the volume, in GiB. +-- +-- * 'divdId' - The volume identifier. +diskImageVolumeDescription + :: DiskImageVolumeDescription +diskImageVolumeDescription = + DiskImageVolumeDescription' {_divdSize = Nothing, _divdId = Nothing} + + +-- | The size of the volume, in GiB. +divdSize :: Lens' DiskImageVolumeDescription (Maybe Integer) +divdSize = lens _divdSize (\ s a -> s{_divdSize = a}) + +-- | The volume identifier. +divdId :: Lens' DiskImageVolumeDescription (Maybe Text) +divdId = lens _divdId (\ s a -> s{_divdId = a}) + +instance FromXML DiskImageVolumeDescription where + parseXML x + = DiskImageVolumeDescription' <$> + (x .@? "size") <*> (x .@? "id") + +instance Hashable DiskImageVolumeDescription where + +instance NFData DiskImageVolumeDescription where + +-- | Describes a block device for an EBS volume. +-- +-- +-- +-- /See:/ 'ebsBlockDevice' smart constructor. +data EBSBlockDevice = EBSBlockDevice' + { _ebdDeleteOnTermination :: !(Maybe Bool) + , _ebdVolumeSize :: !(Maybe Int) + , _ebdIOPS :: !(Maybe Int) + , _ebdEncrypted :: !(Maybe Bool) + , _ebdKMSKeyId :: !(Maybe Text) + , _ebdVolumeType :: !(Maybe VolumeType) + , _ebdSnapshotId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'EBSBlockDevice' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ebdDeleteOnTermination' - Indicates whether the EBS volume is deleted on instance termination. +-- +-- * 'ebdVolumeSize' - The size of the volume, in GiB. Constraints: 1-16384 for General Purpose SSD (@gp2@ ), 4-16384 for Provisioned IOPS SSD (@io1@ ), 500-16384 for Throughput Optimized HDD (@st1@ ), 500-16384 for Cold HDD (@sc1@ ), and 1-1024 for Magnetic (@standard@ ) volumes. If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. +-- +-- * 'ebdIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For @io1@ , this represents the number of IOPS that are provisioned for the volume. For @gp2@ , this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. +-- +-- * 'ebdEncrypted' - Indicates whether the EBS volume is encrypted. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. If you are creating a volume from a snapshot, you can't specify an encryption value. This is because only blank volumes can be encrypted on creation. +-- +-- * 'ebdKMSKeyId' - Identifier (key ID, key alias, ID ARN, or alias ARN) for a user-managed CMK under which the EBS volume is encrypted. Note: This parameter is only supported on @BlockDeviceMapping@ objects called by , , and . +-- +-- * 'ebdVolumeType' - The volume type: @gp2@ , @io1@ , @st1@ , @sc1@ , or @standard@ . Default: @standard@ +-- +-- * 'ebdSnapshotId' - The ID of the snapshot. +ebsBlockDevice + :: EBSBlockDevice +ebsBlockDevice = + EBSBlockDevice' + { _ebdDeleteOnTermination = Nothing + , _ebdVolumeSize = Nothing + , _ebdIOPS = Nothing + , _ebdEncrypted = Nothing + , _ebdKMSKeyId = Nothing + , _ebdVolumeType = Nothing + , _ebdSnapshotId = Nothing + } + + +-- | Indicates whether the EBS volume is deleted on instance termination. +ebdDeleteOnTermination :: Lens' EBSBlockDevice (Maybe Bool) +ebdDeleteOnTermination = lens _ebdDeleteOnTermination (\ s a -> s{_ebdDeleteOnTermination = a}) + +-- | The size of the volume, in GiB. Constraints: 1-16384 for General Purpose SSD (@gp2@ ), 4-16384 for Provisioned IOPS SSD (@io1@ ), 500-16384 for Throughput Optimized HDD (@st1@ ), 500-16384 for Cold HDD (@sc1@ ), and 1-1024 for Magnetic (@standard@ ) volumes. If you specify a snapshot, the volume size must be equal to or larger than the snapshot size. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. +ebdVolumeSize :: Lens' EBSBlockDevice (Maybe Int) +ebdVolumeSize = lens _ebdVolumeSize (\ s a -> s{_ebdVolumeSize = a}) + +-- | The number of I/O operations per second (IOPS) that the volume supports. For @io1@ , this represents the number of IOPS that are provisioned for the volume. For @gp2@ , this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. +ebdIOPS :: Lens' EBSBlockDevice (Maybe Int) +ebdIOPS = lens _ebdIOPS (\ s a -> s{_ebdIOPS = a}) + +-- | Indicates whether the EBS volume is encrypted. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. If you are creating a volume from a snapshot, you can't specify an encryption value. This is because only blank volumes can be encrypted on creation. +ebdEncrypted :: Lens' EBSBlockDevice (Maybe Bool) +ebdEncrypted = lens _ebdEncrypted (\ s a -> s{_ebdEncrypted = a}) + +-- | Identifier (key ID, key alias, ID ARN, or alias ARN) for a user-managed CMK under which the EBS volume is encrypted. Note: This parameter is only supported on @BlockDeviceMapping@ objects called by , , and . +ebdKMSKeyId :: Lens' EBSBlockDevice (Maybe Text) +ebdKMSKeyId = lens _ebdKMSKeyId (\ s a -> s{_ebdKMSKeyId = a}) + +-- | The volume type: @gp2@ , @io1@ , @st1@ , @sc1@ , or @standard@ . Default: @standard@ +ebdVolumeType :: Lens' EBSBlockDevice (Maybe VolumeType) +ebdVolumeType = lens _ebdVolumeType (\ s a -> s{_ebdVolumeType = a}) + +-- | The ID of the snapshot. +ebdSnapshotId :: Lens' EBSBlockDevice (Maybe Text) +ebdSnapshotId = lens _ebdSnapshotId (\ s a -> s{_ebdSnapshotId = a}) + +instance FromXML EBSBlockDevice where + parseXML x + = EBSBlockDevice' <$> + (x .@? "deleteOnTermination") <*> + (x .@? "volumeSize") + <*> (x .@? "iops") + <*> (x .@? "encrypted") + <*> (x .@? "KmsKeyId") + <*> (x .@? "volumeType") + <*> (x .@? "snapshotId") + +instance Hashable EBSBlockDevice where + +instance NFData EBSBlockDevice where + +instance ToQuery EBSBlockDevice where + toQuery EBSBlockDevice'{..} + = mconcat + ["DeleteOnTermination" =: _ebdDeleteOnTermination, + "VolumeSize" =: _ebdVolumeSize, "Iops" =: _ebdIOPS, + "Encrypted" =: _ebdEncrypted, + "KmsKeyId" =: _ebdKMSKeyId, + "VolumeType" =: _ebdVolumeType, + "SnapshotId" =: _ebdSnapshotId] + +-- | Describes a parameter used to set up an EBS volume in a block device mapping. +-- +-- +-- +-- /See:/ 'ebsInstanceBlockDevice' smart constructor. +data EBSInstanceBlockDevice = EBSInstanceBlockDevice' + { _eibdStatus :: !(Maybe AttachmentStatus) + , _eibdDeleteOnTermination :: !(Maybe Bool) + , _eibdVolumeId :: !(Maybe Text) + , _eibdAttachTime :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'EBSInstanceBlockDevice' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eibdStatus' - The attachment state. +-- +-- * 'eibdDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. +-- +-- * 'eibdVolumeId' - The ID of the EBS volume. +-- +-- * 'eibdAttachTime' - The time stamp when the attachment initiated. +ebsInstanceBlockDevice + :: EBSInstanceBlockDevice +ebsInstanceBlockDevice = + EBSInstanceBlockDevice' + { _eibdStatus = Nothing + , _eibdDeleteOnTermination = Nothing + , _eibdVolumeId = Nothing + , _eibdAttachTime = Nothing + } + + +-- | The attachment state. +eibdStatus :: Lens' EBSInstanceBlockDevice (Maybe AttachmentStatus) +eibdStatus = lens _eibdStatus (\ s a -> s{_eibdStatus = a}) + +-- | Indicates whether the volume is deleted on instance termination. +eibdDeleteOnTermination :: Lens' EBSInstanceBlockDevice (Maybe Bool) +eibdDeleteOnTermination = lens _eibdDeleteOnTermination (\ s a -> s{_eibdDeleteOnTermination = a}) + +-- | The ID of the EBS volume. +eibdVolumeId :: Lens' EBSInstanceBlockDevice (Maybe Text) +eibdVolumeId = lens _eibdVolumeId (\ s a -> s{_eibdVolumeId = a}) + +-- | The time stamp when the attachment initiated. +eibdAttachTime :: Lens' EBSInstanceBlockDevice (Maybe UTCTime) +eibdAttachTime = lens _eibdAttachTime (\ s a -> s{_eibdAttachTime = a}) . mapping _Time + +instance FromXML EBSInstanceBlockDevice where + parseXML x + = EBSInstanceBlockDevice' <$> + (x .@? "status") <*> (x .@? "deleteOnTermination") + <*> (x .@? "volumeId") + <*> (x .@? "attachTime") + +instance Hashable EBSInstanceBlockDevice where + +instance NFData EBSInstanceBlockDevice where + +-- | Describes information used to set up an EBS volume specified in a block device mapping. +-- +-- +-- +-- /See:/ 'ebsInstanceBlockDeviceSpecification' smart constructor. +data EBSInstanceBlockDeviceSpecification = EBSInstanceBlockDeviceSpecification' + { _eibdsDeleteOnTermination :: !(Maybe Bool) + , _eibdsVolumeId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'EBSInstanceBlockDeviceSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eibdsDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. +-- +-- * 'eibdsVolumeId' - The ID of the EBS volume. +ebsInstanceBlockDeviceSpecification + :: EBSInstanceBlockDeviceSpecification +ebsInstanceBlockDeviceSpecification = + EBSInstanceBlockDeviceSpecification' + {_eibdsDeleteOnTermination = Nothing, _eibdsVolumeId = Nothing} + + +-- | Indicates whether the volume is deleted on instance termination. +eibdsDeleteOnTermination :: Lens' EBSInstanceBlockDeviceSpecification (Maybe Bool) +eibdsDeleteOnTermination = lens _eibdsDeleteOnTermination (\ s a -> s{_eibdsDeleteOnTermination = a}) + +-- | The ID of the EBS volume. +eibdsVolumeId :: Lens' EBSInstanceBlockDeviceSpecification (Maybe Text) +eibdsVolumeId = lens _eibdsVolumeId (\ s a -> s{_eibdsVolumeId = a}) + +instance Hashable EBSInstanceBlockDeviceSpecification + where + +instance NFData EBSInstanceBlockDeviceSpecification + where + +instance ToQuery EBSInstanceBlockDeviceSpecification + where + toQuery EBSInstanceBlockDeviceSpecification'{..} + = mconcat + ["DeleteOnTermination" =: _eibdsDeleteOnTermination, + "VolumeId" =: _eibdsVolumeId] + +-- | Describes an egress-only Internet gateway. +-- +-- +-- +-- /See:/ 'egressOnlyInternetGateway' smart constructor. +data EgressOnlyInternetGateway = EgressOnlyInternetGateway' + { _eoigEgressOnlyInternetGatewayId :: !(Maybe Text) + , _eoigAttachments :: !(Maybe [InternetGatewayAttachment]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'EgressOnlyInternetGateway' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eoigEgressOnlyInternetGatewayId' - The ID of the egress-only Internet gateway. +-- +-- * 'eoigAttachments' - Information about the attachment of the egress-only Internet gateway. +egressOnlyInternetGateway + :: EgressOnlyInternetGateway +egressOnlyInternetGateway = + EgressOnlyInternetGateway' + {_eoigEgressOnlyInternetGatewayId = Nothing, _eoigAttachments = Nothing} + + +-- | The ID of the egress-only Internet gateway. +eoigEgressOnlyInternetGatewayId :: Lens' EgressOnlyInternetGateway (Maybe Text) +eoigEgressOnlyInternetGatewayId = lens _eoigEgressOnlyInternetGatewayId (\ s a -> s{_eoigEgressOnlyInternetGatewayId = a}) + +-- | Information about the attachment of the egress-only Internet gateway. +eoigAttachments :: Lens' EgressOnlyInternetGateway [InternetGatewayAttachment] +eoigAttachments = lens _eoigAttachments (\ s a -> s{_eoigAttachments = a}) . _Default . _Coerce + +instance FromXML EgressOnlyInternetGateway where + parseXML x + = EgressOnlyInternetGateway' <$> + (x .@? "egressOnlyInternetGatewayId") <*> + (x .@? "attachmentSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable EgressOnlyInternetGateway where + +instance NFData EgressOnlyInternetGateway where + +-- | Describes the association between an instance and an Elastic GPU. +-- +-- +-- +-- /See:/ 'elasticGpuAssociation' smart constructor. +data ElasticGpuAssociation = ElasticGpuAssociation' + { _egaElasticGpuId :: !(Maybe Text) + , _egaElasticGpuAssociationId :: !(Maybe Text) + , _egaElasticGpuAssociationTime :: !(Maybe Text) + , _egaElasticGpuAssociationState :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ElasticGpuAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'egaElasticGpuId' - The ID of the Elastic GPU. +-- +-- * 'egaElasticGpuAssociationId' - The ID of the association. +-- +-- * 'egaElasticGpuAssociationTime' - The time the Elastic GPU was associated with the instance. +-- +-- * 'egaElasticGpuAssociationState' - The state of the association between the instance and the Elastic GPU. +elasticGpuAssociation + :: ElasticGpuAssociation +elasticGpuAssociation = + ElasticGpuAssociation' + { _egaElasticGpuId = Nothing + , _egaElasticGpuAssociationId = Nothing + , _egaElasticGpuAssociationTime = Nothing + , _egaElasticGpuAssociationState = Nothing + } + + +-- | The ID of the Elastic GPU. +egaElasticGpuId :: Lens' ElasticGpuAssociation (Maybe Text) +egaElasticGpuId = lens _egaElasticGpuId (\ s a -> s{_egaElasticGpuId = a}) + +-- | The ID of the association. +egaElasticGpuAssociationId :: Lens' ElasticGpuAssociation (Maybe Text) +egaElasticGpuAssociationId = lens _egaElasticGpuAssociationId (\ s a -> s{_egaElasticGpuAssociationId = a}) + +-- | The time the Elastic GPU was associated with the instance. +egaElasticGpuAssociationTime :: Lens' ElasticGpuAssociation (Maybe Text) +egaElasticGpuAssociationTime = lens _egaElasticGpuAssociationTime (\ s a -> s{_egaElasticGpuAssociationTime = a}) + +-- | The state of the association between the instance and the Elastic GPU. +egaElasticGpuAssociationState :: Lens' ElasticGpuAssociation (Maybe Text) +egaElasticGpuAssociationState = lens _egaElasticGpuAssociationState (\ s a -> s{_egaElasticGpuAssociationState = a}) + +instance FromXML ElasticGpuAssociation where + parseXML x + = ElasticGpuAssociation' <$> + (x .@? "elasticGpuId") <*> + (x .@? "elasticGpuAssociationId") + <*> (x .@? "elasticGpuAssociationTime") + <*> (x .@? "elasticGpuAssociationState") + +instance Hashable ElasticGpuAssociation where + +instance NFData ElasticGpuAssociation where + +-- | Describes the status of an Elastic GPU. +-- +-- +-- +-- /See:/ 'elasticGpuHealth' smart constructor. +newtype ElasticGpuHealth = ElasticGpuHealth' + { _eghStatus :: Maybe ElasticGpuStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ElasticGpuHealth' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eghStatus' - The health status. +elasticGpuHealth + :: ElasticGpuHealth +elasticGpuHealth = ElasticGpuHealth' {_eghStatus = Nothing} + + +-- | The health status. +eghStatus :: Lens' ElasticGpuHealth (Maybe ElasticGpuStatus) +eghStatus = lens _eghStatus (\ s a -> s{_eghStatus = a}) + +instance FromXML ElasticGpuHealth where + parseXML x = ElasticGpuHealth' <$> (x .@? "status") + +instance Hashable ElasticGpuHealth where + +instance NFData ElasticGpuHealth where + +-- | A specification for an Elastic GPU. +-- +-- +-- +-- /See:/ 'elasticGpuSpecification' smart constructor. +newtype ElasticGpuSpecification = ElasticGpuSpecification' + { _egsType :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ElasticGpuSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'egsType' - The type of Elastic GPU. +elasticGpuSpecification + :: Text -- ^ 'egsType' + -> ElasticGpuSpecification +elasticGpuSpecification pType_ = ElasticGpuSpecification' {_egsType = pType_} + + +-- | The type of Elastic GPU. +egsType :: Lens' ElasticGpuSpecification Text +egsType = lens _egsType (\ s a -> s{_egsType = a}) + +instance Hashable ElasticGpuSpecification where + +instance NFData ElasticGpuSpecification where + +instance ToQuery ElasticGpuSpecification where + toQuery ElasticGpuSpecification'{..} + = mconcat ["Type" =: _egsType] + +-- | Describes an elastic GPU. +-- +-- +-- +-- /See:/ 'elasticGpuSpecificationResponse' smart constructor. +newtype ElasticGpuSpecificationResponse = ElasticGpuSpecificationResponse' + { _eType :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ElasticGpuSpecificationResponse' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eType' - The elastic GPU type. +elasticGpuSpecificationResponse + :: ElasticGpuSpecificationResponse +elasticGpuSpecificationResponse = + ElasticGpuSpecificationResponse' {_eType = Nothing} + + +-- | The elastic GPU type. +eType :: Lens' ElasticGpuSpecificationResponse (Maybe Text) +eType = lens _eType (\ s a -> s{_eType = a}) + +instance FromXML ElasticGpuSpecificationResponse + where + parseXML x + = ElasticGpuSpecificationResponse' <$> (x .@? "type") + +instance Hashable ElasticGpuSpecificationResponse + where + +instance NFData ElasticGpuSpecificationResponse where + +-- | Describes an Elastic GPU. +-- +-- +-- +-- /See:/ 'elasticGpus' smart constructor. +data ElasticGpus = ElasticGpus' + { _egInstanceId :: !(Maybe Text) + , _egElasticGpuType :: !(Maybe Text) + , _egElasticGpuId :: !(Maybe Text) + , _egElasticGpuState :: !(Maybe ElasticGpuState) + , _egElasticGpuHealth :: !(Maybe ElasticGpuHealth) + , _egAvailabilityZone :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ElasticGpus' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'egInstanceId' - The ID of the instance to which the Elastic GPU is attached. +-- +-- * 'egElasticGpuType' - The type of Elastic GPU. +-- +-- * 'egElasticGpuId' - The ID of the Elastic GPU. +-- +-- * 'egElasticGpuState' - The state of the Elastic GPU. +-- +-- * 'egElasticGpuHealth' - The status of the Elastic GPU. +-- +-- * 'egAvailabilityZone' - The Availability Zone in the which the Elastic GPU resides. +elasticGpus + :: ElasticGpus +elasticGpus = + ElasticGpus' + { _egInstanceId = Nothing + , _egElasticGpuType = Nothing + , _egElasticGpuId = Nothing + , _egElasticGpuState = Nothing + , _egElasticGpuHealth = Nothing + , _egAvailabilityZone = Nothing + } + + +-- | The ID of the instance to which the Elastic GPU is attached. +egInstanceId :: Lens' ElasticGpus (Maybe Text) +egInstanceId = lens _egInstanceId (\ s a -> s{_egInstanceId = a}) + +-- | The type of Elastic GPU. +egElasticGpuType :: Lens' ElasticGpus (Maybe Text) +egElasticGpuType = lens _egElasticGpuType (\ s a -> s{_egElasticGpuType = a}) + +-- | The ID of the Elastic GPU. +egElasticGpuId :: Lens' ElasticGpus (Maybe Text) +egElasticGpuId = lens _egElasticGpuId (\ s a -> s{_egElasticGpuId = a}) + +-- | The state of the Elastic GPU. +egElasticGpuState :: Lens' ElasticGpus (Maybe ElasticGpuState) +egElasticGpuState = lens _egElasticGpuState (\ s a -> s{_egElasticGpuState = a}) + +-- | The status of the Elastic GPU. +egElasticGpuHealth :: Lens' ElasticGpus (Maybe ElasticGpuHealth) +egElasticGpuHealth = lens _egElasticGpuHealth (\ s a -> s{_egElasticGpuHealth = a}) + +-- | The Availability Zone in the which the Elastic GPU resides. +egAvailabilityZone :: Lens' ElasticGpus (Maybe Text) +egAvailabilityZone = lens _egAvailabilityZone (\ s a -> s{_egAvailabilityZone = a}) + +instance FromXML ElasticGpus where + parseXML x + = ElasticGpus' <$> + (x .@? "instanceId") <*> (x .@? "elasticGpuType") <*> + (x .@? "elasticGpuId") + <*> (x .@? "elasticGpuState") + <*> (x .@? "elasticGpuHealth") + <*> (x .@? "availabilityZone") + +instance Hashable ElasticGpus where + +instance NFData ElasticGpus where + +-- | Describes a Spot Fleet event. +-- +-- +-- +-- /See:/ 'eventInformation' smart constructor. +data EventInformation = EventInformation' + { _eiInstanceId :: !(Maybe Text) + , _eiEventDescription :: !(Maybe Text) + , _eiEventSubType :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'EventInformation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'eiInstanceId' - The ID of the instance. This information is available only for @instanceChange@ events. +-- +-- * 'eiEventDescription' - The description of the event. +-- +-- * 'eiEventSubType' - The event. The following are the @error@ events: * @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 of the event. * @spotInstanceCountLimitExceeded@ - You've reached the limit on the number of Spot Instances that you can launch. The following are the @fleetRequestChange@ events: * @active@ - The Spot Fleet has been validated and Amazon EC2 is attempting to maintain the target number of running Spot Instances. * @cancelled@ - The Spot Fleet is canceled and has no running Spot Instances. The Spot Fleet will be deleted two days after its instances were terminated. * @cancelled_running@ - The Spot Fleet is canceled and does not launch additional Spot Instances. Existing Spot Instances continue to run until they are interrupted or terminated. * @cancelled_terminating@ - The Spot Fleet is canceled and its Spot Instances are terminating. * @expired@ - The Spot Fleet request has expired. A subsequent event 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 price for a launch configuration was adjusted because it was too high. This change is permanent. * @submitted@ - The Spot Fleet request is being evaluated and Amazon EC2 is preparing to launch the target number of Spot Instances. The following are the @instanceChange@ events: * @launched@ - A request was fulfilled and a new instance was launched. * @terminated@ - An instance was terminated by the user. The following are the @Information@ events: * @launchSpecUnusable@ - The price in a launch specification is not valid because it is below the Spot price or the Spot price is above the On-Demand price. * @fleetProgressHalted@ - The price in every launch specification is not valid. A launch specification might become valid if the Spot price changes. +eventInformation + :: EventInformation +eventInformation = + EventInformation' + { _eiInstanceId = Nothing + , _eiEventDescription = Nothing + , _eiEventSubType = Nothing + } + + +-- | The ID of the instance. This information is available only for @instanceChange@ events. +eiInstanceId :: Lens' EventInformation (Maybe Text) +eiInstanceId = lens _eiInstanceId (\ s a -> s{_eiInstanceId = a}) + +-- | The description of the event. +eiEventDescription :: Lens' EventInformation (Maybe Text) +eiEventDescription = lens _eiEventDescription (\ s a -> s{_eiEventDescription = a}) + +-- | The event. The following are the @error@ events: * @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 of the event. * @spotInstanceCountLimitExceeded@ - You've reached the limit on the number of Spot Instances that you can launch. The following are the @fleetRequestChange@ events: * @active@ - The Spot Fleet has been validated and Amazon EC2 is attempting to maintain the target number of running Spot Instances. * @cancelled@ - The Spot Fleet is canceled and has no running Spot Instances. The Spot Fleet will be deleted two days after its instances were terminated. * @cancelled_running@ - The Spot Fleet is canceled and does not launch additional Spot Instances. Existing Spot Instances continue to run until they are interrupted or terminated. * @cancelled_terminating@ - The Spot Fleet is canceled and its Spot Instances are terminating. * @expired@ - The Spot Fleet request has expired. A subsequent event 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 price for a launch configuration was adjusted because it was too high. This change is permanent. * @submitted@ - The Spot Fleet request is being evaluated and Amazon EC2 is preparing to launch the target number of Spot Instances. The following are the @instanceChange@ events: * @launched@ - A request was fulfilled and a new instance was launched. * @terminated@ - An instance was terminated by the user. The following are the @Information@ events: * @launchSpecUnusable@ - The price in a launch specification is not valid because it is below the Spot price or the Spot price is above the On-Demand price. * @fleetProgressHalted@ - The price in every launch specification is not valid. A launch specification might become valid if the Spot price changes. +eiEventSubType :: Lens' EventInformation (Maybe Text) +eiEventSubType = lens _eiEventSubType (\ s a -> s{_eiEventSubType = a}) + +instance FromXML EventInformation where + parseXML x + = EventInformation' <$> + (x .@? "instanceId") <*> (x .@? "eventDescription") + <*> (x .@? "eventSubType") + +instance Hashable EventInformation where + +instance NFData EventInformation where + +-- | Describes an instance export task. +-- +-- +-- +-- /See:/ 'exportTask' smart constructor. +data ExportTask = ExportTask' + { _etDescription :: !Text + , _etExportTaskId :: !Text + , _etExportToS3Task :: !ExportToS3Task + , _etInstanceExportDetails :: !InstanceExportDetails + , _etState :: !ExportTaskState + , _etStatusMessage :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ExportTask' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'etDescription' - A description of the resource being exported. +-- +-- * 'etExportTaskId' - The ID of the export task. +-- +-- * 'etExportToS3Task' - Information about the export task. +-- +-- * 'etInstanceExportDetails' - Information about the instance to export. +-- +-- * 'etState' - The state of the export task. +-- +-- * 'etStatusMessage' - The status message related to the export task. +exportTask + :: Text -- ^ 'etDescription' + -> Text -- ^ 'etExportTaskId' + -> ExportToS3Task -- ^ 'etExportToS3Task' + -> InstanceExportDetails -- ^ 'etInstanceExportDetails' + -> ExportTaskState -- ^ 'etState' + -> Text -- ^ 'etStatusMessage' + -> ExportTask +exportTask pDescription_ pExportTaskId_ pExportToS3Task_ pInstanceExportDetails_ pState_ pStatusMessage_ = + ExportTask' + { _etDescription = pDescription_ + , _etExportTaskId = pExportTaskId_ + , _etExportToS3Task = pExportToS3Task_ + , _etInstanceExportDetails = pInstanceExportDetails_ + , _etState = pState_ + , _etStatusMessage = pStatusMessage_ + } + + +-- | A description of the resource being exported. +etDescription :: Lens' ExportTask Text +etDescription = lens _etDescription (\ s a -> s{_etDescription = a}) + +-- | The ID of the export task. +etExportTaskId :: Lens' ExportTask Text +etExportTaskId = lens _etExportTaskId (\ s a -> s{_etExportTaskId = a}) + +-- | Information about the export task. +etExportToS3Task :: Lens' ExportTask ExportToS3Task +etExportToS3Task = lens _etExportToS3Task (\ s a -> s{_etExportToS3Task = a}) + +-- | Information about the instance to export. +etInstanceExportDetails :: Lens' ExportTask InstanceExportDetails +etInstanceExportDetails = lens _etInstanceExportDetails (\ s a -> s{_etInstanceExportDetails = a}) + +-- | The state of the export task. +etState :: Lens' ExportTask ExportTaskState +etState = lens _etState (\ s a -> s{_etState = a}) + +-- | The status message related to the export task. +etStatusMessage :: Lens' ExportTask Text +etStatusMessage = lens _etStatusMessage (\ s a -> s{_etStatusMessage = a}) + +instance FromXML ExportTask where + parseXML x + = ExportTask' <$> + (x .@ "description") <*> (x .@ "exportTaskId") <*> + (x .@ "exportToS3") + <*> (x .@ "instanceExport") + <*> (x .@ "state") + <*> (x .@ "statusMessage") + +instance Hashable ExportTask where + +instance NFData ExportTask where + +-- | Describes the format and location for an instance export task. +-- +-- +-- +-- /See:/ 'exportToS3Task' smart constructor. +data ExportToS3Task = ExportToS3Task' + { _etstS3Key :: !(Maybe Text) + , _etstContainerFormat :: !(Maybe ContainerFormat) + , _etstS3Bucket :: !(Maybe Text) + , _etstDiskImageFormat :: !(Maybe DiskImageFormat) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ExportToS3Task' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'etstS3Key' - The encryption key for your S3 bucket. +-- +-- * 'etstContainerFormat' - The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. +-- +-- * 'etstS3Bucket' - The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . +-- +-- * 'etstDiskImageFormat' - The format for the exported image. +exportToS3Task + :: ExportToS3Task +exportToS3Task = + ExportToS3Task' + { _etstS3Key = Nothing + , _etstContainerFormat = Nothing + , _etstS3Bucket = Nothing + , _etstDiskImageFormat = Nothing + } + + +-- | The encryption key for your S3 bucket. +etstS3Key :: Lens' ExportToS3Task (Maybe Text) +etstS3Key = lens _etstS3Key (\ s a -> s{_etstS3Key = a}) + +-- | The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. +etstContainerFormat :: Lens' ExportToS3Task (Maybe ContainerFormat) +etstContainerFormat = lens _etstContainerFormat (\ s a -> s{_etstContainerFormat = a}) + +-- | The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . +etstS3Bucket :: Lens' ExportToS3Task (Maybe Text) +etstS3Bucket = lens _etstS3Bucket (\ s a -> s{_etstS3Bucket = a}) + +-- | The format for the exported image. +etstDiskImageFormat :: Lens' ExportToS3Task (Maybe DiskImageFormat) +etstDiskImageFormat = lens _etstDiskImageFormat (\ s a -> s{_etstDiskImageFormat = a}) + +instance FromXML ExportToS3Task where + parseXML x + = ExportToS3Task' <$> + (x .@? "s3Key") <*> (x .@? "containerFormat") <*> + (x .@? "s3Bucket") + <*> (x .@? "diskImageFormat") + +instance Hashable ExportToS3Task where + +instance NFData ExportToS3Task where + +-- | Describes an instance export task. +-- +-- +-- +-- /See:/ 'exportToS3TaskSpecification' smart constructor. +data ExportToS3TaskSpecification = ExportToS3TaskSpecification' + { _etstsContainerFormat :: !(Maybe ContainerFormat) + , _etstsS3Prefix :: !(Maybe Text) + , _etstsS3Bucket :: !(Maybe Text) + , _etstsDiskImageFormat :: !(Maybe DiskImageFormat) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ExportToS3TaskSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'etstsContainerFormat' - The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. +-- +-- * 'etstsS3Prefix' - The image is written to a single object in the S3 bucket at the S3 key s3prefix + exportTaskId + '.' + diskImageFormat. +-- +-- * 'etstsS3Bucket' - The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . +-- +-- * 'etstsDiskImageFormat' - The format for the exported image. +exportToS3TaskSpecification + :: ExportToS3TaskSpecification +exportToS3TaskSpecification = + ExportToS3TaskSpecification' + { _etstsContainerFormat = Nothing + , _etstsS3Prefix = Nothing + , _etstsS3Bucket = Nothing + , _etstsDiskImageFormat = Nothing + } + + +-- | The container format used to combine disk images with metadata (such as OVF). If absent, only the disk image is exported. +etstsContainerFormat :: Lens' ExportToS3TaskSpecification (Maybe ContainerFormat) +etstsContainerFormat = lens _etstsContainerFormat (\ s a -> s{_etstsContainerFormat = a}) + +-- | The image is written to a single object in the S3 bucket at the S3 key s3prefix + exportTaskId + '.' + diskImageFormat. +etstsS3Prefix :: Lens' ExportToS3TaskSpecification (Maybe Text) +etstsS3Prefix = lens _etstsS3Prefix (\ s a -> s{_etstsS3Prefix = a}) + +-- | The S3 bucket for the destination image. The destination bucket must exist and grant WRITE and READ_ACP permissions to the AWS account @vm-import-export@amazon.com@ . +etstsS3Bucket :: Lens' ExportToS3TaskSpecification (Maybe Text) +etstsS3Bucket = lens _etstsS3Bucket (\ s a -> s{_etstsS3Bucket = a}) + +-- | The format for the exported image. +etstsDiskImageFormat :: Lens' ExportToS3TaskSpecification (Maybe DiskImageFormat) +etstsDiskImageFormat = lens _etstsDiskImageFormat (\ s a -> s{_etstsDiskImageFormat = a}) + +instance Hashable ExportToS3TaskSpecification where + +instance NFData ExportToS3TaskSpecification where + +instance ToQuery ExportToS3TaskSpecification where + toQuery ExportToS3TaskSpecification'{..} + = mconcat + ["ContainerFormat" =: _etstsContainerFormat, + "S3Prefix" =: _etstsS3Prefix, + "S3Bucket" =: _etstsS3Bucket, + "DiskImageFormat" =: _etstsDiskImageFormat] + +-- | A filter name and value pair that is used to return a more specific list of results from a describe operation. Filters can be used to match a set of resources by specific criteria, such as tags, attributes, or IDs. The filters supported by a describe operation are documented with the describe operation. For example: +-- +-- +-- * 'DescribeAvailabilityZones' +-- +-- * 'DescribeImages' +-- +-- * 'DescribeInstances' +-- +-- * 'DescribeKeyPairs' +-- +-- * 'DescribeSecurityGroups' +-- +-- * 'DescribeSnapshots' +-- +-- * 'DescribeSubnets' +-- +-- * 'DescribeTags' +-- +-- * 'DescribeVolumes' +-- +-- * 'DescribeVpcs' +-- +-- +-- +-- +-- /See:/ 'filter'' smart constructor. +data Filter = Filter' + { _fValues :: !(Maybe [Text]) + , _fName :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Filter' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fValues' - One or more filter values. Filter values are case-sensitive. +-- +-- * 'fName' - The name of the filter. Filter names are case-sensitive. +filter' + :: Text -- ^ 'fName' + -> Filter +filter' pName_ = Filter' {_fValues = Nothing, _fName = pName_} + + +-- | One or more filter values. Filter values are case-sensitive. +fValues :: Lens' Filter [Text] +fValues = lens _fValues (\ s a -> s{_fValues = a}) . _Default . _Coerce + +-- | The name of the filter. Filter names are case-sensitive. +fName :: Lens' Filter Text +fName = lens _fName (\ s a -> s{_fName = a}) + +instance Hashable Filter where + +instance NFData Filter where + +instance ToQuery Filter where + toQuery Filter'{..} + = mconcat + [toQuery (toQueryList "Value" <$> _fValues), + "Name" =: _fName] + +-- | Describes an EC2 Fleet. +-- +-- +-- +-- /See:/ 'fleetData' smart constructor. +data FleetData = FleetData' + { _fdClientToken :: !(Maybe Text) + , _fdTargetCapacitySpecification :: !(Maybe TargetCapacitySpecification) + , _fdSpotOptions :: !(Maybe SpotOptions) + , _fdExcessCapacityTerminationPolicy :: !(Maybe FleetExcessCapacityTerminationPolicy) + , _fdFleetState :: !(Maybe FleetStateCode) + , _fdLaunchTemplateConfigs :: !(Maybe [FleetLaunchTemplateConfig]) + , _fdValidUntil :: !(Maybe ISO8601) + , _fdTerminateInstancesWithExpiration :: !(Maybe Bool) + , _fdFulfilledCapacity :: !(Maybe Double) + , _fdType :: !(Maybe FleetType) + , _fdValidFrom :: !(Maybe ISO8601) + , _fdReplaceUnhealthyInstances :: !(Maybe Bool) + , _fdFulfilledOnDemandCapacity :: !(Maybe Double) + , _fdFleetId :: !(Maybe Text) + , _fdCreateTime :: !(Maybe ISO8601) + , _fdTags :: !(Maybe [Tag]) + , _fdActivityStatus :: !(Maybe FleetActivityStatus) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FleetData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fdClientToken' - Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . Constraints: Maximum 64 ASCII characters +-- +-- * 'fdTargetCapacitySpecification' - The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +-- +-- * 'fdSpotOptions' - The configuration of Spot Instances in an EC2 Fleet. +-- +-- * 'fdExcessCapacityTerminationPolicy' - Indicates whether running instances should be terminated if the target capacity of the EC2 Fleet is decreased below the current size of the EC2 Fleet. +-- +-- * 'fdFleetState' - The state of the EC2 Fleet. +-- +-- * 'fdLaunchTemplateConfigs' - The launch template and overrides. +-- +-- * 'fdValidUntil' - 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 instance requests are placed or able to fulfill the request. The default end date is 7 days from the current date. +-- +-- * 'fdTerminateInstancesWithExpiration' - Indicates whether running instances should be terminated when the EC2 Fleet expires. +-- +-- * 'fdFulfilledCapacity' - The number of units fulfilled by this request compared to the set target capacity. +-- +-- * 'fdType' - The type of request. Indicates whether the EC2 Fleet only @requests@ the target capacity, or also attempts to @maintain@ it. If you request a certain target capacity, EC2 Fleet only places the required requests; it does not attempt to replenish instances if capacity is diminished, and does not submit requests in alternative capacity pools if capacity is unavailable. To maintain a certain target capacity, EC2 Fleet places the required requests to meet this target capacity. It also automatically replenishes any interrupted Spot Instances. Default: @maintain@ . +-- +-- * 'fdValidFrom' - The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. +-- +-- * 'fdReplaceUnhealthyInstances' - Indicates whether EC2 Fleet should replace unhealthy instances. +-- +-- * 'fdFulfilledOnDemandCapacity' - The number of units fulfilled by this request compared to the set target On-Demand capacity. +-- +-- * 'fdFleetId' - The ID of the EC2 Fleet. +-- +-- * 'fdCreateTime' - The creation date and time of the EC2 Fleet. +-- +-- * 'fdTags' - The tags for an EC2 Fleet resource. +-- +-- * 'fdActivityStatus' - The progress of the EC2 Fleet. If there is an error, the status is @error@ . After all requests are placed, the status is @pending_fulfillment@ . If the size of the EC2 Fleet is equal to or greater than its target capacity, the status is @fulfilled@ . If the size of the EC2 Fleet is decreased, the status is @pending_termination@ while instances are terminating. +fleetData + :: FleetData +fleetData = + FleetData' + { _fdClientToken = Nothing + , _fdTargetCapacitySpecification = Nothing + , _fdSpotOptions = Nothing + , _fdExcessCapacityTerminationPolicy = Nothing + , _fdFleetState = Nothing + , _fdLaunchTemplateConfigs = Nothing + , _fdValidUntil = Nothing + , _fdTerminateInstancesWithExpiration = Nothing + , _fdFulfilledCapacity = Nothing + , _fdType = Nothing + , _fdValidFrom = Nothing + , _fdReplaceUnhealthyInstances = Nothing + , _fdFulfilledOnDemandCapacity = Nothing + , _fdFleetId = Nothing + , _fdCreateTime = Nothing + , _fdTags = Nothing + , _fdActivityStatus = Nothing + } + + +-- | Unique, case-sensitive identifier you provide to ensure the idempotency of the request. For more information, see . Constraints: Maximum 64 ASCII characters +fdClientToken :: Lens' FleetData (Maybe Text) +fdClientToken = lens _fdClientToken (\ s a -> s{_fdClientToken = a}) + +-- | The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +fdTargetCapacitySpecification :: Lens' FleetData (Maybe TargetCapacitySpecification) +fdTargetCapacitySpecification = lens _fdTargetCapacitySpecification (\ s a -> s{_fdTargetCapacitySpecification = a}) + +-- | The configuration of Spot Instances in an EC2 Fleet. +fdSpotOptions :: Lens' FleetData (Maybe SpotOptions) +fdSpotOptions = lens _fdSpotOptions (\ s a -> s{_fdSpotOptions = a}) + +-- | Indicates whether running instances should be terminated if the target capacity of the EC2 Fleet is decreased below the current size of the EC2 Fleet. +fdExcessCapacityTerminationPolicy :: Lens' FleetData (Maybe FleetExcessCapacityTerminationPolicy) +fdExcessCapacityTerminationPolicy = lens _fdExcessCapacityTerminationPolicy (\ s a -> s{_fdExcessCapacityTerminationPolicy = a}) + +-- | The state of the EC2 Fleet. +fdFleetState :: Lens' FleetData (Maybe FleetStateCode) +fdFleetState = lens _fdFleetState (\ s a -> s{_fdFleetState = a}) + +-- | The launch template and overrides. +fdLaunchTemplateConfigs :: Lens' FleetData [FleetLaunchTemplateConfig] +fdLaunchTemplateConfigs = lens _fdLaunchTemplateConfigs (\ s a -> s{_fdLaunchTemplateConfigs = a}) . _Default . _Coerce + +-- | 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 instance requests are placed or able to fulfill the request. The default end date is 7 days from the current date. +fdValidUntil :: Lens' FleetData (Maybe UTCTime) +fdValidUntil = lens _fdValidUntil (\ s a -> s{_fdValidUntil = a}) . mapping _Time + +-- | Indicates whether running instances should be terminated when the EC2 Fleet expires. +fdTerminateInstancesWithExpiration :: Lens' FleetData (Maybe Bool) +fdTerminateInstancesWithExpiration = lens _fdTerminateInstancesWithExpiration (\ s a -> s{_fdTerminateInstancesWithExpiration = a}) + +-- | The number of units fulfilled by this request compared to the set target capacity. +fdFulfilledCapacity :: Lens' FleetData (Maybe Double) +fdFulfilledCapacity = lens _fdFulfilledCapacity (\ s a -> s{_fdFulfilledCapacity = a}) + +-- | The type of request. Indicates whether the EC2 Fleet only @requests@ the target capacity, or also attempts to @maintain@ it. If you request a certain target capacity, EC2 Fleet only places the required requests; it does not attempt to replenish instances if capacity is diminished, and does not submit requests in alternative capacity pools if capacity is unavailable. To maintain a certain target capacity, EC2 Fleet places the required requests to meet this target capacity. It also automatically replenishes any interrupted Spot Instances. Default: @maintain@ . +fdType :: Lens' FleetData (Maybe FleetType) +fdType = lens _fdType (\ s a -> s{_fdType = a}) + +-- | The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. +fdValidFrom :: Lens' FleetData (Maybe UTCTime) +fdValidFrom = lens _fdValidFrom (\ s a -> s{_fdValidFrom = a}) . mapping _Time + +-- | Indicates whether EC2 Fleet should replace unhealthy instances. +fdReplaceUnhealthyInstances :: Lens' FleetData (Maybe Bool) +fdReplaceUnhealthyInstances = lens _fdReplaceUnhealthyInstances (\ s a -> s{_fdReplaceUnhealthyInstances = a}) + +-- | The number of units fulfilled by this request compared to the set target On-Demand capacity. +fdFulfilledOnDemandCapacity :: Lens' FleetData (Maybe Double) +fdFulfilledOnDemandCapacity = lens _fdFulfilledOnDemandCapacity (\ s a -> s{_fdFulfilledOnDemandCapacity = a}) + +-- | The ID of the EC2 Fleet. +fdFleetId :: Lens' FleetData (Maybe Text) +fdFleetId = lens _fdFleetId (\ s a -> s{_fdFleetId = a}) + +-- | The creation date and time of the EC2 Fleet. +fdCreateTime :: Lens' FleetData (Maybe UTCTime) +fdCreateTime = lens _fdCreateTime (\ s a -> s{_fdCreateTime = a}) . mapping _Time + +-- | The tags for an EC2 Fleet resource. +fdTags :: Lens' FleetData [Tag] +fdTags = lens _fdTags (\ s a -> s{_fdTags = a}) . _Default . _Coerce + +-- | The progress of the EC2 Fleet. If there is an error, the status is @error@ . After all requests are placed, the status is @pending_fulfillment@ . If the size of the EC2 Fleet is equal to or greater than its target capacity, the status is @fulfilled@ . If the size of the EC2 Fleet is decreased, the status is @pending_termination@ while instances are terminating. +fdActivityStatus :: Lens' FleetData (Maybe FleetActivityStatus) +fdActivityStatus = lens _fdActivityStatus (\ s a -> s{_fdActivityStatus = a}) + +instance FromXML FleetData where + parseXML x + = FleetData' <$> + (x .@? "clientToken") <*> + (x .@? "targetCapacitySpecification") + <*> (x .@? "spotOptions") + <*> (x .@? "excessCapacityTerminationPolicy") + <*> (x .@? "fleetState") + <*> + (x .@? "launchTemplateConfigs" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "validUntil") + <*> (x .@? "terminateInstancesWithExpiration") + <*> (x .@? "fulfilledCapacity") + <*> (x .@? "type") + <*> (x .@? "validFrom") + <*> (x .@? "replaceUnhealthyInstances") + <*> (x .@? "fulfilledOnDemandCapacity") + <*> (x .@? "fleetId") + <*> (x .@? "createTime") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "activityStatus") + +instance Hashable FleetData where + +instance NFData FleetData where + +-- | Describes a launch template and overrides. +-- +-- +-- +-- /See:/ 'fleetLaunchTemplateConfig' smart constructor. +data FleetLaunchTemplateConfig = FleetLaunchTemplateConfig' + { _fltcOverrides :: !(Maybe [FleetLaunchTemplateOverrides]) + , _fltcLaunchTemplateSpecification :: !(Maybe FleetLaunchTemplateSpecification) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FleetLaunchTemplateConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fltcOverrides' - Any parameters that you specify override the same parameters in the launch template. +-- +-- * 'fltcLaunchTemplateSpecification' - The launch template. +fleetLaunchTemplateConfig + :: FleetLaunchTemplateConfig +fleetLaunchTemplateConfig = + FleetLaunchTemplateConfig' + {_fltcOverrides = Nothing, _fltcLaunchTemplateSpecification = Nothing} + + +-- | Any parameters that you specify override the same parameters in the launch template. +fltcOverrides :: Lens' FleetLaunchTemplateConfig [FleetLaunchTemplateOverrides] +fltcOverrides = lens _fltcOverrides (\ s a -> s{_fltcOverrides = a}) . _Default . _Coerce + +-- | The launch template. +fltcLaunchTemplateSpecification :: Lens' FleetLaunchTemplateConfig (Maybe FleetLaunchTemplateSpecification) +fltcLaunchTemplateSpecification = lens _fltcLaunchTemplateSpecification (\ s a -> s{_fltcLaunchTemplateSpecification = a}) + +instance FromXML FleetLaunchTemplateConfig where + parseXML x + = FleetLaunchTemplateConfig' <$> + (x .@? "overrides" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "launchTemplateSpecification") + +instance Hashable FleetLaunchTemplateConfig where + +instance NFData FleetLaunchTemplateConfig where + +-- | Describes a launch template and overrides. +-- +-- +-- +-- /See:/ 'fleetLaunchTemplateConfigRequest' smart constructor. +data FleetLaunchTemplateConfigRequest = FleetLaunchTemplateConfigRequest' + { _fltcrOverrides :: !(Maybe [FleetLaunchTemplateOverridesRequest]) + , _fltcrLaunchTemplateSpecification :: !(Maybe FleetLaunchTemplateSpecificationRequest) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FleetLaunchTemplateConfigRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fltcrOverrides' - Any parameters that you specify override the same parameters in the launch template. +-- +-- * 'fltcrLaunchTemplateSpecification' - The launch template to use. You must specify either the launch template ID or launch template name in the request. +fleetLaunchTemplateConfigRequest + :: FleetLaunchTemplateConfigRequest +fleetLaunchTemplateConfigRequest = + FleetLaunchTemplateConfigRequest' + {_fltcrOverrides = Nothing, _fltcrLaunchTemplateSpecification = Nothing} + + +-- | Any parameters that you specify override the same parameters in the launch template. +fltcrOverrides :: Lens' FleetLaunchTemplateConfigRequest [FleetLaunchTemplateOverridesRequest] +fltcrOverrides = lens _fltcrOverrides (\ s a -> s{_fltcrOverrides = a}) . _Default . _Coerce + +-- | The launch template to use. You must specify either the launch template ID or launch template name in the request. +fltcrLaunchTemplateSpecification :: Lens' FleetLaunchTemplateConfigRequest (Maybe FleetLaunchTemplateSpecificationRequest) +fltcrLaunchTemplateSpecification = lens _fltcrLaunchTemplateSpecification (\ s a -> s{_fltcrLaunchTemplateSpecification = a}) + +instance Hashable FleetLaunchTemplateConfigRequest + where + +instance NFData FleetLaunchTemplateConfigRequest + where + +instance ToQuery FleetLaunchTemplateConfigRequest + where + toQuery FleetLaunchTemplateConfigRequest'{..} + = mconcat + [toQuery + (toQueryList "Overrides" <$> _fltcrOverrides), + "LaunchTemplateSpecification" =: + _fltcrLaunchTemplateSpecification] + +-- | Describes overrides for a launch template. +-- +-- +-- +-- /See:/ 'fleetLaunchTemplateOverrides' smart constructor. +data FleetLaunchTemplateOverrides = FleetLaunchTemplateOverrides' + { _fltoWeightedCapacity :: !(Maybe Double) + , _fltoSubnetId :: !(Maybe Text) + , _fltoInstanceType :: !(Maybe InstanceType) + , _fltoAvailabilityZone :: !(Maybe Text) + , _fltoMaxPrice :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FleetLaunchTemplateOverrides' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fltoWeightedCapacity' - The number of units provided by the specified instance type. +-- +-- * 'fltoSubnetId' - The ID of the subnet in which to launch the instances. +-- +-- * 'fltoInstanceType' - The instance type. +-- +-- * 'fltoAvailabilityZone' - The Availability Zone in which to launch the instances. +-- +-- * 'fltoMaxPrice' - The maximum price per unit hour that you are willing to pay for a Spot Instance. +fleetLaunchTemplateOverrides + :: FleetLaunchTemplateOverrides +fleetLaunchTemplateOverrides = + FleetLaunchTemplateOverrides' + { _fltoWeightedCapacity = Nothing + , _fltoSubnetId = Nothing + , _fltoInstanceType = Nothing + , _fltoAvailabilityZone = Nothing + , _fltoMaxPrice = Nothing + } + + +-- | The number of units provided by the specified instance type. +fltoWeightedCapacity :: Lens' FleetLaunchTemplateOverrides (Maybe Double) +fltoWeightedCapacity = lens _fltoWeightedCapacity (\ s a -> s{_fltoWeightedCapacity = a}) + +-- | The ID of the subnet in which to launch the instances. +fltoSubnetId :: Lens' FleetLaunchTemplateOverrides (Maybe Text) +fltoSubnetId = lens _fltoSubnetId (\ s a -> s{_fltoSubnetId = a}) + +-- | The instance type. +fltoInstanceType :: Lens' FleetLaunchTemplateOverrides (Maybe InstanceType) +fltoInstanceType = lens _fltoInstanceType (\ s a -> s{_fltoInstanceType = a}) + +-- | The Availability Zone in which to launch the instances. +fltoAvailabilityZone :: Lens' FleetLaunchTemplateOverrides (Maybe Text) +fltoAvailabilityZone = lens _fltoAvailabilityZone (\ s a -> s{_fltoAvailabilityZone = a}) + +-- | The maximum price per unit hour that you are willing to pay for a Spot Instance. +fltoMaxPrice :: Lens' FleetLaunchTemplateOverrides (Maybe Text) +fltoMaxPrice = lens _fltoMaxPrice (\ s a -> s{_fltoMaxPrice = a}) + +instance FromXML FleetLaunchTemplateOverrides where + parseXML x + = FleetLaunchTemplateOverrides' <$> + (x .@? "weightedCapacity") <*> (x .@? "subnetId") <*> + (x .@? "instanceType") + <*> (x .@? "availabilityZone") + <*> (x .@? "maxPrice") + +instance Hashable FleetLaunchTemplateOverrides where + +instance NFData FleetLaunchTemplateOverrides where + +-- | Describes overrides for a launch template. +-- +-- +-- +-- /See:/ 'fleetLaunchTemplateOverridesRequest' smart constructor. +data FleetLaunchTemplateOverridesRequest = FleetLaunchTemplateOverridesRequest' + { _fltorWeightedCapacity :: !(Maybe Double) + , _fltorSubnetId :: !(Maybe Text) + , _fltorInstanceType :: !(Maybe InstanceType) + , _fltorAvailabilityZone :: !(Maybe Text) + , _fltorMaxPrice :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FleetLaunchTemplateOverridesRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fltorWeightedCapacity' - The number of units provided by the specified instance type. +-- +-- * 'fltorSubnetId' - The ID of the subnet in which to launch the instances. +-- +-- * 'fltorInstanceType' - The instance type. +-- +-- * 'fltorAvailabilityZone' - The Availability Zone in which to launch the instances. +-- +-- * 'fltorMaxPrice' - The maximum price per unit hour that you are willing to pay for a Spot Instance. +fleetLaunchTemplateOverridesRequest + :: FleetLaunchTemplateOverridesRequest +fleetLaunchTemplateOverridesRequest = + FleetLaunchTemplateOverridesRequest' + { _fltorWeightedCapacity = Nothing + , _fltorSubnetId = Nothing + , _fltorInstanceType = Nothing + , _fltorAvailabilityZone = Nothing + , _fltorMaxPrice = Nothing + } + + +-- | The number of units provided by the specified instance type. +fltorWeightedCapacity :: Lens' FleetLaunchTemplateOverridesRequest (Maybe Double) +fltorWeightedCapacity = lens _fltorWeightedCapacity (\ s a -> s{_fltorWeightedCapacity = a}) + +-- | The ID of the subnet in which to launch the instances. +fltorSubnetId :: Lens' FleetLaunchTemplateOverridesRequest (Maybe Text) +fltorSubnetId = lens _fltorSubnetId (\ s a -> s{_fltorSubnetId = a}) + +-- | The instance type. +fltorInstanceType :: Lens' FleetLaunchTemplateOverridesRequest (Maybe InstanceType) +fltorInstanceType = lens _fltorInstanceType (\ s a -> s{_fltorInstanceType = a}) + +-- | The Availability Zone in which to launch the instances. +fltorAvailabilityZone :: Lens' FleetLaunchTemplateOverridesRequest (Maybe Text) +fltorAvailabilityZone = lens _fltorAvailabilityZone (\ s a -> s{_fltorAvailabilityZone = a}) + +-- | The maximum price per unit hour that you are willing to pay for a Spot Instance. +fltorMaxPrice :: Lens' FleetLaunchTemplateOverridesRequest (Maybe Text) +fltorMaxPrice = lens _fltorMaxPrice (\ s a -> s{_fltorMaxPrice = a}) + +instance Hashable FleetLaunchTemplateOverridesRequest + where + +instance NFData FleetLaunchTemplateOverridesRequest + where + +instance ToQuery FleetLaunchTemplateOverridesRequest + where + toQuery FleetLaunchTemplateOverridesRequest'{..} + = mconcat + ["WeightedCapacity" =: _fltorWeightedCapacity, + "SubnetId" =: _fltorSubnetId, + "InstanceType" =: _fltorInstanceType, + "AvailabilityZone" =: _fltorAvailabilityZone, + "MaxPrice" =: _fltorMaxPrice] + +-- | Describes a launch template. +-- +-- +-- +-- /See:/ 'fleetLaunchTemplateSpecification' smart constructor. +data FleetLaunchTemplateSpecification = FleetLaunchTemplateSpecification' + { _fltsLaunchTemplateName :: !(Maybe Text) + , _fltsLaunchTemplateId :: !(Maybe Text) + , _fltsVersion :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FleetLaunchTemplateSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fltsLaunchTemplateName' - The name of the launch template. You must specify either a template name or a template ID. +-- +-- * 'fltsLaunchTemplateId' - The ID of the launch template. You must specify either a template ID or a template name. +-- +-- * 'fltsVersion' - The version number. By default, the default version of the launch template is used. +fleetLaunchTemplateSpecification + :: FleetLaunchTemplateSpecification +fleetLaunchTemplateSpecification = + FleetLaunchTemplateSpecification' + { _fltsLaunchTemplateName = Nothing + , _fltsLaunchTemplateId = Nothing + , _fltsVersion = Nothing + } + + +-- | The name of the launch template. You must specify either a template name or a template ID. +fltsLaunchTemplateName :: Lens' FleetLaunchTemplateSpecification (Maybe Text) +fltsLaunchTemplateName = lens _fltsLaunchTemplateName (\ s a -> s{_fltsLaunchTemplateName = a}) + +-- | The ID of the launch template. You must specify either a template ID or a template name. +fltsLaunchTemplateId :: Lens' FleetLaunchTemplateSpecification (Maybe Text) +fltsLaunchTemplateId = lens _fltsLaunchTemplateId (\ s a -> s{_fltsLaunchTemplateId = a}) + +-- | The version number. By default, the default version of the launch template is used. +fltsVersion :: Lens' FleetLaunchTemplateSpecification (Maybe Text) +fltsVersion = lens _fltsVersion (\ s a -> s{_fltsVersion = a}) + +instance FromXML FleetLaunchTemplateSpecification + where + parseXML x + = FleetLaunchTemplateSpecification' <$> + (x .@? "launchTemplateName") <*> + (x .@? "launchTemplateId") + <*> (x .@? "version") + +instance Hashable FleetLaunchTemplateSpecification + where + +instance NFData FleetLaunchTemplateSpecification + where + +instance ToQuery FleetLaunchTemplateSpecification + where + toQuery FleetLaunchTemplateSpecification'{..} + = mconcat + ["LaunchTemplateName" =: _fltsLaunchTemplateName, + "LaunchTemplateId" =: _fltsLaunchTemplateId, + "Version" =: _fltsVersion] + +-- | The launch template to use. You must specify either the launch template ID or launch template name in the request. +-- +-- +-- +-- /See:/ 'fleetLaunchTemplateSpecificationRequest' smart constructor. +data FleetLaunchTemplateSpecificationRequest = FleetLaunchTemplateSpecificationRequest' + { _fltsrLaunchTemplateName :: !(Maybe Text) + , _fltsrLaunchTemplateId :: !(Maybe Text) + , _fltsrVersion :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FleetLaunchTemplateSpecificationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fltsrLaunchTemplateName' - The name of the launch template. +-- +-- * 'fltsrLaunchTemplateId' - The ID of the launch template. +-- +-- * 'fltsrVersion' - The version number of the launch template. +fleetLaunchTemplateSpecificationRequest + :: FleetLaunchTemplateSpecificationRequest +fleetLaunchTemplateSpecificationRequest = + FleetLaunchTemplateSpecificationRequest' + { _fltsrLaunchTemplateName = Nothing + , _fltsrLaunchTemplateId = Nothing + , _fltsrVersion = Nothing + } + + +-- | The name of the launch template. +fltsrLaunchTemplateName :: Lens' FleetLaunchTemplateSpecificationRequest (Maybe Text) +fltsrLaunchTemplateName = lens _fltsrLaunchTemplateName (\ s a -> s{_fltsrLaunchTemplateName = a}) + +-- | The ID of the launch template. +fltsrLaunchTemplateId :: Lens' FleetLaunchTemplateSpecificationRequest (Maybe Text) +fltsrLaunchTemplateId = lens _fltsrLaunchTemplateId (\ s a -> s{_fltsrLaunchTemplateId = a}) + +-- | The version number of the launch template. +fltsrVersion :: Lens' FleetLaunchTemplateSpecificationRequest (Maybe Text) +fltsrVersion = lens _fltsrVersion (\ s a -> s{_fltsrVersion = a}) + +instance Hashable + FleetLaunchTemplateSpecificationRequest + where + +instance NFData + FleetLaunchTemplateSpecificationRequest + where + +instance ToQuery + FleetLaunchTemplateSpecificationRequest + where + toQuery FleetLaunchTemplateSpecificationRequest'{..} + = mconcat + ["LaunchTemplateName" =: _fltsrLaunchTemplateName, + "LaunchTemplateId" =: _fltsrLaunchTemplateId, + "Version" =: _fltsrVersion] + +-- | Describes a flow log. +-- +-- +-- +-- /See:/ 'flowLog' smart constructor. +data FlowLog = FlowLog' + { _flCreationTime :: !(Maybe ISO8601) + , _flResourceId :: !(Maybe Text) + , _flFlowLogStatus :: !(Maybe Text) + , _flTrafficType :: !(Maybe TrafficType) + , _flDeliverLogsStatus :: !(Maybe Text) + , _flDeliverLogsErrorMessage :: !(Maybe Text) + , _flLogGroupName :: !(Maybe Text) + , _flDeliverLogsPermissionARN :: !(Maybe Text) + , _flFlowLogId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FlowLog' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'flCreationTime' - The date and time the flow log was created. +-- +-- * 'flResourceId' - The ID of the resource on which the flow log was created. +-- +-- * 'flFlowLogStatus' - The status of the flow log (@ACTIVE@ ). +-- +-- * 'flTrafficType' - The type of traffic captured for the flow log. +-- +-- * 'flDeliverLogsStatus' - The status of the logs delivery (@SUCCESS@ | @FAILED@ ). +-- +-- * 'flDeliverLogsErrorMessage' - Information about the error that occurred. @Rate limited@ indicates that CloudWatch logs throttling has been applied for one or more network interfaces, or that you've reached the limit on the number of CloudWatch Logs log groups that you can create. @Access error@ indicates that the IAM role associated with the flow log does not have sufficient permissions to publish to CloudWatch Logs. @Unknown error@ indicates an internal error. +-- +-- * 'flLogGroupName' - The name of the flow log group. +-- +-- * 'flDeliverLogsPermissionARN' - The ARN of the IAM role that posts logs to CloudWatch Logs. +-- +-- * 'flFlowLogId' - The flow log ID. +flowLog + :: FlowLog +flowLog = + FlowLog' + { _flCreationTime = Nothing + , _flResourceId = Nothing + , _flFlowLogStatus = Nothing + , _flTrafficType = Nothing + , _flDeliverLogsStatus = Nothing + , _flDeliverLogsErrorMessage = Nothing + , _flLogGroupName = Nothing + , _flDeliverLogsPermissionARN = Nothing + , _flFlowLogId = Nothing + } + + +-- | The date and time the flow log was created. +flCreationTime :: Lens' FlowLog (Maybe UTCTime) +flCreationTime = lens _flCreationTime (\ s a -> s{_flCreationTime = a}) . mapping _Time + +-- | The ID of the resource on which the flow log was created. +flResourceId :: Lens' FlowLog (Maybe Text) +flResourceId = lens _flResourceId (\ s a -> s{_flResourceId = a}) + +-- | The status of the flow log (@ACTIVE@ ). +flFlowLogStatus :: Lens' FlowLog (Maybe Text) +flFlowLogStatus = lens _flFlowLogStatus (\ s a -> s{_flFlowLogStatus = a}) + +-- | The type of traffic captured for the flow log. +flTrafficType :: Lens' FlowLog (Maybe TrafficType) +flTrafficType = lens _flTrafficType (\ s a -> s{_flTrafficType = a}) + +-- | The status of the logs delivery (@SUCCESS@ | @FAILED@ ). +flDeliverLogsStatus :: Lens' FlowLog (Maybe Text) +flDeliverLogsStatus = lens _flDeliverLogsStatus (\ s a -> s{_flDeliverLogsStatus = a}) + +-- | Information about the error that occurred. @Rate limited@ indicates that CloudWatch logs throttling has been applied for one or more network interfaces, or that you've reached the limit on the number of CloudWatch Logs log groups that you can create. @Access error@ indicates that the IAM role associated with the flow log does not have sufficient permissions to publish to CloudWatch Logs. @Unknown error@ indicates an internal error. +flDeliverLogsErrorMessage :: Lens' FlowLog (Maybe Text) +flDeliverLogsErrorMessage = lens _flDeliverLogsErrorMessage (\ s a -> s{_flDeliverLogsErrorMessage = a}) + +-- | The name of the flow log group. +flLogGroupName :: Lens' FlowLog (Maybe Text) +flLogGroupName = lens _flLogGroupName (\ s a -> s{_flLogGroupName = a}) + +-- | The ARN of the IAM role that posts logs to CloudWatch Logs. +flDeliverLogsPermissionARN :: Lens' FlowLog (Maybe Text) +flDeliverLogsPermissionARN = lens _flDeliverLogsPermissionARN (\ s a -> s{_flDeliverLogsPermissionARN = a}) + +-- | The flow log ID. +flFlowLogId :: Lens' FlowLog (Maybe Text) +flFlowLogId = lens _flFlowLogId (\ s a -> s{_flFlowLogId = a}) + +instance FromXML FlowLog where + parseXML x + = FlowLog' <$> + (x .@? "creationTime") <*> (x .@? "resourceId") <*> + (x .@? "flowLogStatus") + <*> (x .@? "trafficType") + <*> (x .@? "deliverLogsStatus") + <*> (x .@? "deliverLogsErrorMessage") + <*> (x .@? "logGroupName") + <*> (x .@? "deliverLogsPermissionArn") + <*> (x .@? "flowLogId") + +instance Hashable FlowLog where + +instance NFData FlowLog where + +-- | Describes an Amazon FPGA image (AFI). +-- +-- +-- +-- /See:/ 'fpgaImage' smart constructor. +data FpgaImage = FpgaImage' + { _fiShellVersion :: !(Maybe Text) + , _fiPciId :: !(Maybe PciId) + , _fiState :: !(Maybe FpgaImageState) + , _fiOwnerAlias :: !(Maybe Text) + , _fiFpgaImageId :: !(Maybe Text) + , _fiOwnerId :: !(Maybe Text) + , _fiUpdateTime :: !(Maybe ISO8601) + , _fiName :: !(Maybe Text) + , _fiProductCodes :: !(Maybe [ProductCode]) + , _fiDescription :: !(Maybe Text) + , _fiCreateTime :: !(Maybe ISO8601) + , _fiTags :: !(Maybe [Tag]) + , _fiPublic :: !(Maybe Bool) + , _fiFpgaImageGlobalId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FpgaImage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fiShellVersion' - The version of the AWS Shell that was used to create the bitstream. +-- +-- * 'fiPciId' - Information about the PCI bus. +-- +-- * 'fiState' - Information about the state of the AFI. +-- +-- * 'fiOwnerAlias' - The alias of the AFI owner. Possible values include @self@ , @amazon@ , and @aws-marketplace@ . +-- +-- * 'fiFpgaImageId' - The FPGA image identifier (AFI ID). +-- +-- * 'fiOwnerId' - The AWS account ID of the AFI owner. +-- +-- * 'fiUpdateTime' - The time of the most recent update to the AFI. +-- +-- * 'fiName' - The name of the AFI. +-- +-- * 'fiProductCodes' - The product codes for the AFI. +-- +-- * 'fiDescription' - The description of the AFI. +-- +-- * 'fiCreateTime' - The date and time the AFI was created. +-- +-- * 'fiTags' - Any tags assigned to the AFI. +-- +-- * 'fiPublic' - Indicates whether the AFI is public. +-- +-- * 'fiFpgaImageGlobalId' - The global FPGA image identifier (AGFI ID). +fpgaImage + :: FpgaImage +fpgaImage = + FpgaImage' + { _fiShellVersion = Nothing + , _fiPciId = Nothing + , _fiState = Nothing + , _fiOwnerAlias = Nothing + , _fiFpgaImageId = Nothing + , _fiOwnerId = Nothing + , _fiUpdateTime = Nothing + , _fiName = Nothing + , _fiProductCodes = Nothing + , _fiDescription = Nothing + , _fiCreateTime = Nothing + , _fiTags = Nothing + , _fiPublic = Nothing + , _fiFpgaImageGlobalId = Nothing + } + + +-- | The version of the AWS Shell that was used to create the bitstream. +fiShellVersion :: Lens' FpgaImage (Maybe Text) +fiShellVersion = lens _fiShellVersion (\ s a -> s{_fiShellVersion = a}) + +-- | Information about the PCI bus. +fiPciId :: Lens' FpgaImage (Maybe PciId) +fiPciId = lens _fiPciId (\ s a -> s{_fiPciId = a}) + +-- | Information about the state of the AFI. +fiState :: Lens' FpgaImage (Maybe FpgaImageState) +fiState = lens _fiState (\ s a -> s{_fiState = a}) + +-- | The alias of the AFI owner. Possible values include @self@ , @amazon@ , and @aws-marketplace@ . +fiOwnerAlias :: Lens' FpgaImage (Maybe Text) +fiOwnerAlias = lens _fiOwnerAlias (\ s a -> s{_fiOwnerAlias = a}) + +-- | The FPGA image identifier (AFI ID). +fiFpgaImageId :: Lens' FpgaImage (Maybe Text) +fiFpgaImageId = lens _fiFpgaImageId (\ s a -> s{_fiFpgaImageId = a}) + +-- | The AWS account ID of the AFI owner. +fiOwnerId :: Lens' FpgaImage (Maybe Text) +fiOwnerId = lens _fiOwnerId (\ s a -> s{_fiOwnerId = a}) + +-- | The time of the most recent update to the AFI. +fiUpdateTime :: Lens' FpgaImage (Maybe UTCTime) +fiUpdateTime = lens _fiUpdateTime (\ s a -> s{_fiUpdateTime = a}) . mapping _Time + +-- | The name of the AFI. +fiName :: Lens' FpgaImage (Maybe Text) +fiName = lens _fiName (\ s a -> s{_fiName = a}) + +-- | The product codes for the AFI. +fiProductCodes :: Lens' FpgaImage [ProductCode] +fiProductCodes = lens _fiProductCodes (\ s a -> s{_fiProductCodes = a}) . _Default . _Coerce + +-- | The description of the AFI. +fiDescription :: Lens' FpgaImage (Maybe Text) +fiDescription = lens _fiDescription (\ s a -> s{_fiDescription = a}) + +-- | The date and time the AFI was created. +fiCreateTime :: Lens' FpgaImage (Maybe UTCTime) +fiCreateTime = lens _fiCreateTime (\ s a -> s{_fiCreateTime = a}) . mapping _Time + +-- | Any tags assigned to the AFI. +fiTags :: Lens' FpgaImage [Tag] +fiTags = lens _fiTags (\ s a -> s{_fiTags = a}) . _Default . _Coerce + +-- | Indicates whether the AFI is public. +fiPublic :: Lens' FpgaImage (Maybe Bool) +fiPublic = lens _fiPublic (\ s a -> s{_fiPublic = a}) + +-- | The global FPGA image identifier (AGFI ID). +fiFpgaImageGlobalId :: Lens' FpgaImage (Maybe Text) +fiFpgaImageGlobalId = lens _fiFpgaImageGlobalId (\ s a -> s{_fiFpgaImageGlobalId = a}) + +instance FromXML FpgaImage where + parseXML x + = FpgaImage' <$> + (x .@? "shellVersion") <*> (x .@? "pciId") <*> + (x .@? "state") + <*> (x .@? "ownerAlias") + <*> (x .@? "fpgaImageId") + <*> (x .@? "ownerId") + <*> (x .@? "updateTime") + <*> (x .@? "name") + <*> + (x .@? "productCodes" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "description") + <*> (x .@? "createTime") + <*> + (x .@? "tags" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "public") + <*> (x .@? "fpgaImageGlobalId") + +instance Hashable FpgaImage where + +instance NFData FpgaImage where + +-- | Describes an Amazon FPGA image (AFI) attribute. +-- +-- +-- +-- /See:/ 'fpgaImageAttribute' smart constructor. +data FpgaImageAttribute = FpgaImageAttribute' + { _fiaFpgaImageId :: !(Maybe Text) + , _fiaName :: !(Maybe Text) + , _fiaProductCodes :: !(Maybe [ProductCode]) + , _fiaDescription :: !(Maybe Text) + , _fiaLoadPermissions :: !(Maybe [LoadPermission]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FpgaImageAttribute' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fiaFpgaImageId' - The ID of the AFI. +-- +-- * 'fiaName' - The name of the AFI. +-- +-- * 'fiaProductCodes' - One or more product codes. +-- +-- * 'fiaDescription' - The description of the AFI. +-- +-- * 'fiaLoadPermissions' - One or more load permissions. +fpgaImageAttribute + :: FpgaImageAttribute +fpgaImageAttribute = + FpgaImageAttribute' + { _fiaFpgaImageId = Nothing + , _fiaName = Nothing + , _fiaProductCodes = Nothing + , _fiaDescription = Nothing + , _fiaLoadPermissions = Nothing + } + + +-- | The ID of the AFI. +fiaFpgaImageId :: Lens' FpgaImageAttribute (Maybe Text) +fiaFpgaImageId = lens _fiaFpgaImageId (\ s a -> s{_fiaFpgaImageId = a}) + +-- | The name of the AFI. +fiaName :: Lens' FpgaImageAttribute (Maybe Text) +fiaName = lens _fiaName (\ s a -> s{_fiaName = a}) + +-- | One or more product codes. +fiaProductCodes :: Lens' FpgaImageAttribute [ProductCode] +fiaProductCodes = lens _fiaProductCodes (\ s a -> s{_fiaProductCodes = a}) . _Default . _Coerce + +-- | The description of the AFI. +fiaDescription :: Lens' FpgaImageAttribute (Maybe Text) +fiaDescription = lens _fiaDescription (\ s a -> s{_fiaDescription = a}) + +-- | One or more load permissions. +fiaLoadPermissions :: Lens' FpgaImageAttribute [LoadPermission] +fiaLoadPermissions = lens _fiaLoadPermissions (\ s a -> s{_fiaLoadPermissions = a}) . _Default . _Coerce + +instance FromXML FpgaImageAttribute where + parseXML x + = FpgaImageAttribute' <$> + (x .@? "fpgaImageId") <*> (x .@? "name") <*> + (x .@? "productCodes" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "description") + <*> + (x .@? "loadPermissions" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable FpgaImageAttribute where + +instance NFData FpgaImageAttribute where + +-- | Describes the state of the bitstream generation process for an Amazon FPGA image (AFI). +-- +-- +-- +-- /See:/ 'fpgaImageState' smart constructor. +data FpgaImageState = FpgaImageState' + { _fisCode :: !(Maybe FpgaImageStateCode) + , _fisMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'FpgaImageState' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'fisCode' - The state. The following are the possible values: * @pending@ - AFI bitstream generation is in progress. * @available@ - The AFI is available for use. * @failed@ - AFI bitstream generation failed. * @unavailable@ - The AFI is no longer available for use. +-- +-- * 'fisMessage' - If the state is @failed@ , this is the error message. +fpgaImageState + :: FpgaImageState +fpgaImageState = FpgaImageState' {_fisCode = Nothing, _fisMessage = Nothing} + + +-- | The state. The following are the possible values: * @pending@ - AFI bitstream generation is in progress. * @available@ - The AFI is available for use. * @failed@ - AFI bitstream generation failed. * @unavailable@ - The AFI is no longer available for use. +fisCode :: Lens' FpgaImageState (Maybe FpgaImageStateCode) +fisCode = lens _fisCode (\ s a -> s{_fisCode = a}) + +-- | If the state is @failed@ , this is the error message. +fisMessage :: Lens' FpgaImageState (Maybe Text) +fisMessage = lens _fisMessage (\ s a -> s{_fisMessage = a}) + +instance FromXML FpgaImageState where + parseXML x + = FpgaImageState' <$> + (x .@? "code") <*> (x .@? "message") + +instance Hashable FpgaImageState where + +instance NFData FpgaImageState where + +-- | Describes a security group. +-- +-- +-- +-- /See:/ 'groupIdentifier' smart constructor. +data GroupIdentifier = GroupIdentifier' + { _giGroupId :: !(Maybe Text) + , _giGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'GroupIdentifier' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'giGroupId' - The ID of the security group. +-- +-- * 'giGroupName' - The name of the security group. +groupIdentifier + :: GroupIdentifier +groupIdentifier = + GroupIdentifier' {_giGroupId = Nothing, _giGroupName = Nothing} + + +-- | The ID of the security group. +giGroupId :: Lens' GroupIdentifier (Maybe Text) +giGroupId = lens _giGroupId (\ s a -> s{_giGroupId = a}) + +-- | The name of the security group. +giGroupName :: Lens' GroupIdentifier (Maybe Text) +giGroupName = lens _giGroupName (\ s a -> s{_giGroupName = a}) + +instance FromXML GroupIdentifier where + parseXML x + = GroupIdentifier' <$> + (x .@? "groupId") <*> (x .@? "groupName") + +instance Hashable GroupIdentifier where + +instance NFData GroupIdentifier where + +instance ToQuery GroupIdentifier where + toQuery GroupIdentifier'{..} + = mconcat + ["GroupId" =: _giGroupId, + "GroupName" =: _giGroupName] + +-- | Describes an event in the history of the Spot Fleet request. +-- +-- +-- +-- /See:/ 'historyRecord' smart constructor. +data HistoryRecord = HistoryRecord' + { _hrEventInformation :: !EventInformation + , _hrEventType :: !EventType + , _hrTimestamp :: !ISO8601 + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'HistoryRecord' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hrEventInformation' - Information about the event. +-- +-- * 'hrEventType' - The event type. * @error@ - An error with the Spot Fleet request. * @fleetRequestChange@ - A change in the status or configuration of the Spot Fleet request. * @instanceChange@ - An instance was launched or terminated. * @Information@ - An informational event. +-- +-- * 'hrTimestamp' - The date and time of the event, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +historyRecord + :: EventInformation -- ^ 'hrEventInformation' + -> EventType -- ^ 'hrEventType' + -> UTCTime -- ^ 'hrTimestamp' + -> HistoryRecord +historyRecord pEventInformation_ pEventType_ pTimestamp_ = + HistoryRecord' + { _hrEventInformation = pEventInformation_ + , _hrEventType = pEventType_ + , _hrTimestamp = _Time # pTimestamp_ + } + + +-- | Information about the event. +hrEventInformation :: Lens' HistoryRecord EventInformation +hrEventInformation = lens _hrEventInformation (\ s a -> s{_hrEventInformation = a}) + +-- | The event type. * @error@ - An error with the Spot Fleet request. * @fleetRequestChange@ - A change in the status or configuration of the Spot Fleet request. * @instanceChange@ - An instance was launched or terminated. * @Information@ - An informational event. +hrEventType :: Lens' HistoryRecord EventType +hrEventType = lens _hrEventType (\ s a -> s{_hrEventType = a}) + +-- | The date and time of the event, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +hrTimestamp :: Lens' HistoryRecord UTCTime +hrTimestamp = lens _hrTimestamp (\ s a -> s{_hrTimestamp = a}) . _Time + +instance FromXML HistoryRecord where + parseXML x + = HistoryRecord' <$> + (x .@ "eventInformation") <*> (x .@ "eventType") <*> + (x .@ "timestamp") + +instance Hashable HistoryRecord where + +instance NFData HistoryRecord where + +-- | Describes an event in the history of the EC2 Fleet. +-- +-- +-- +-- /See:/ 'historyRecordEntry' smart constructor. +data HistoryRecordEntry = HistoryRecordEntry' + { _hreEventType :: !(Maybe FleetEventType) + , _hreEventInformation :: !(Maybe EventInformation) + , _hreTimestamp :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'HistoryRecordEntry' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hreEventType' - The event type. +-- +-- * 'hreEventInformation' - Information about the event. +-- +-- * 'hreTimestamp' - The date and time of the event, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +historyRecordEntry + :: HistoryRecordEntry +historyRecordEntry = + HistoryRecordEntry' + { _hreEventType = Nothing + , _hreEventInformation = Nothing + , _hreTimestamp = Nothing + } + + +-- | The event type. +hreEventType :: Lens' HistoryRecordEntry (Maybe FleetEventType) +hreEventType = lens _hreEventType (\ s a -> s{_hreEventType = a}) + +-- | Information about the event. +hreEventInformation :: Lens' HistoryRecordEntry (Maybe EventInformation) +hreEventInformation = lens _hreEventInformation (\ s a -> s{_hreEventInformation = a}) + +-- | The date and time of the event, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +hreTimestamp :: Lens' HistoryRecordEntry (Maybe UTCTime) +hreTimestamp = lens _hreTimestamp (\ s a -> s{_hreTimestamp = a}) . mapping _Time + +instance FromXML HistoryRecordEntry where + parseXML x + = HistoryRecordEntry' <$> + (x .@? "eventType") <*> (x .@? "eventInformation") + <*> (x .@? "timestamp") + +instance Hashable HistoryRecordEntry where + +instance NFData HistoryRecordEntry where + +-- | Describes the properties of the Dedicated Host. +-- +-- +-- +-- /See:/ 'host' smart constructor. +data Host = Host' + { _hReleaseTime :: !(Maybe ISO8601) + , _hState :: !(Maybe AllocationState) + , _hClientToken :: !(Maybe Text) + , _hHostId :: !(Maybe Text) + , _hAvailableCapacity :: !(Maybe AvailableCapacity) + , _hHostReservationId :: !(Maybe Text) + , _hHostProperties :: !(Maybe HostProperties) + , _hAvailabilityZone :: !(Maybe Text) + , _hInstances :: !(Maybe [HostInstance]) + , _hAllocationTime :: !(Maybe ISO8601) + , _hAutoPlacement :: !(Maybe AutoPlacement) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Host' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hReleaseTime' - The time that the Dedicated Host was released. +-- +-- * 'hState' - The Dedicated Host's state. +-- +-- * 'hClientToken' - Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- +-- * 'hHostId' - The ID of the Dedicated Host. +-- +-- * 'hAvailableCapacity' - The number of new instances that can be launched onto the Dedicated Host. +-- +-- * 'hHostReservationId' - The reservation ID of the Dedicated Host. This returns a @null@ response if the Dedicated Host doesn't have an associated reservation. +-- +-- * 'hHostProperties' - The hardware specifications of the Dedicated Host. +-- +-- * 'hAvailabilityZone' - The Availability Zone of the Dedicated Host. +-- +-- * 'hInstances' - The IDs and instance type that are currently running on the Dedicated Host. +-- +-- * 'hAllocationTime' - The time that the Dedicated Host was allocated. +-- +-- * 'hAutoPlacement' - Whether auto-placement is on or off. +host + :: Host +host = + Host' + { _hReleaseTime = Nothing + , _hState = Nothing + , _hClientToken = Nothing + , _hHostId = Nothing + , _hAvailableCapacity = Nothing + , _hHostReservationId = Nothing + , _hHostProperties = Nothing + , _hAvailabilityZone = Nothing + , _hInstances = Nothing + , _hAllocationTime = Nothing + , _hAutoPlacement = Nothing + } + + +-- | The time that the Dedicated Host was released. +hReleaseTime :: Lens' Host (Maybe UTCTime) +hReleaseTime = lens _hReleaseTime (\ s a -> s{_hReleaseTime = a}) . mapping _Time + +-- | The Dedicated Host's state. +hState :: Lens' Host (Maybe AllocationState) +hState = lens _hState (\ s a -> s{_hState = a}) + +-- | Unique, case-sensitive identifier you provide to ensure idempotency of the request. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +hClientToken :: Lens' Host (Maybe Text) +hClientToken = lens _hClientToken (\ s a -> s{_hClientToken = a}) + +-- | The ID of the Dedicated Host. +hHostId :: Lens' Host (Maybe Text) +hHostId = lens _hHostId (\ s a -> s{_hHostId = a}) + +-- | The number of new instances that can be launched onto the Dedicated Host. +hAvailableCapacity :: Lens' Host (Maybe AvailableCapacity) +hAvailableCapacity = lens _hAvailableCapacity (\ s a -> s{_hAvailableCapacity = a}) + +-- | The reservation ID of the Dedicated Host. This returns a @null@ response if the Dedicated Host doesn't have an associated reservation. +hHostReservationId :: Lens' Host (Maybe Text) +hHostReservationId = lens _hHostReservationId (\ s a -> s{_hHostReservationId = a}) + +-- | The hardware specifications of the Dedicated Host. +hHostProperties :: Lens' Host (Maybe HostProperties) +hHostProperties = lens _hHostProperties (\ s a -> s{_hHostProperties = a}) + +-- | The Availability Zone of the Dedicated Host. +hAvailabilityZone :: Lens' Host (Maybe Text) +hAvailabilityZone = lens _hAvailabilityZone (\ s a -> s{_hAvailabilityZone = a}) + +-- | The IDs and instance type that are currently running on the Dedicated Host. +hInstances :: Lens' Host [HostInstance] +hInstances = lens _hInstances (\ s a -> s{_hInstances = a}) . _Default . _Coerce + +-- | The time that the Dedicated Host was allocated. +hAllocationTime :: Lens' Host (Maybe UTCTime) +hAllocationTime = lens _hAllocationTime (\ s a -> s{_hAllocationTime = a}) . mapping _Time + +-- | Whether auto-placement is on or off. +hAutoPlacement :: Lens' Host (Maybe AutoPlacement) +hAutoPlacement = lens _hAutoPlacement (\ s a -> s{_hAutoPlacement = a}) + +instance FromXML Host where + parseXML x + = Host' <$> + (x .@? "releaseTime") <*> (x .@? "state") <*> + (x .@? "clientToken") + <*> (x .@? "hostId") + <*> (x .@? "availableCapacity") + <*> (x .@? "hostReservationId") + <*> (x .@? "hostProperties") + <*> (x .@? "availabilityZone") + <*> + (x .@? "instances" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "allocationTime") + <*> (x .@? "autoPlacement") + +instance Hashable Host where + +instance NFData Host where + +-- | Describes an instance running on a Dedicated Host. +-- +-- +-- +-- /See:/ 'hostInstance' smart constructor. +data HostInstance = HostInstance' + { _hiInstanceId :: !(Maybe Text) + , _hiInstanceType :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'HostInstance' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hiInstanceId' - the IDs of instances that are running on the Dedicated Host. +-- +-- * 'hiInstanceType' - The instance type size (for example, @m3.medium@ ) of the running instance. +hostInstance + :: HostInstance +hostInstance = + HostInstance' {_hiInstanceId = Nothing, _hiInstanceType = Nothing} + + +-- | the IDs of instances that are running on the Dedicated Host. +hiInstanceId :: Lens' HostInstance (Maybe Text) +hiInstanceId = lens _hiInstanceId (\ s a -> s{_hiInstanceId = a}) + +-- | The instance type size (for example, @m3.medium@ ) of the running instance. +hiInstanceType :: Lens' HostInstance (Maybe Text) +hiInstanceType = lens _hiInstanceType (\ s a -> s{_hiInstanceType = a}) + +instance FromXML HostInstance where + parseXML x + = HostInstance' <$> + (x .@? "instanceId") <*> (x .@? "instanceType") + +instance Hashable HostInstance where + +instance NFData HostInstance where + +-- | Details about the Dedicated Host Reservation offering. +-- +-- +-- +-- /See:/ 'hostOffering' smart constructor. +data HostOffering = HostOffering' + { _hoInstanceFamily :: !(Maybe Text) + , _hoCurrencyCode :: !(Maybe CurrencyCodeValues) + , _hoHourlyPrice :: !(Maybe Text) + , _hoUpfrontPrice :: !(Maybe Text) + , _hoOfferingId :: !(Maybe Text) + , _hoDuration :: !(Maybe Int) + , _hoPaymentOption :: !(Maybe PaymentOption) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'HostOffering' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hoInstanceFamily' - The instance family of the offering. +-- +-- * 'hoCurrencyCode' - The currency of the offering. +-- +-- * 'hoHourlyPrice' - The hourly price of the offering. +-- +-- * 'hoUpfrontPrice' - The upfront price of the offering. Does not apply to No Upfront offerings. +-- +-- * 'hoOfferingId' - The ID of the offering. +-- +-- * 'hoDuration' - The duration of the offering (in seconds). +-- +-- * 'hoPaymentOption' - The available payment option. +hostOffering + :: HostOffering +hostOffering = + HostOffering' + { _hoInstanceFamily = Nothing + , _hoCurrencyCode = Nothing + , _hoHourlyPrice = Nothing + , _hoUpfrontPrice = Nothing + , _hoOfferingId = Nothing + , _hoDuration = Nothing + , _hoPaymentOption = Nothing + } + + +-- | The instance family of the offering. +hoInstanceFamily :: Lens' HostOffering (Maybe Text) +hoInstanceFamily = lens _hoInstanceFamily (\ s a -> s{_hoInstanceFamily = a}) + +-- | The currency of the offering. +hoCurrencyCode :: Lens' HostOffering (Maybe CurrencyCodeValues) +hoCurrencyCode = lens _hoCurrencyCode (\ s a -> s{_hoCurrencyCode = a}) + +-- | The hourly price of the offering. +hoHourlyPrice :: Lens' HostOffering (Maybe Text) +hoHourlyPrice = lens _hoHourlyPrice (\ s a -> s{_hoHourlyPrice = a}) + +-- | The upfront price of the offering. Does not apply to No Upfront offerings. +hoUpfrontPrice :: Lens' HostOffering (Maybe Text) +hoUpfrontPrice = lens _hoUpfrontPrice (\ s a -> s{_hoUpfrontPrice = a}) + +-- | The ID of the offering. +hoOfferingId :: Lens' HostOffering (Maybe Text) +hoOfferingId = lens _hoOfferingId (\ s a -> s{_hoOfferingId = a}) + +-- | The duration of the offering (in seconds). +hoDuration :: Lens' HostOffering (Maybe Int) +hoDuration = lens _hoDuration (\ s a -> s{_hoDuration = a}) + +-- | The available payment option. +hoPaymentOption :: Lens' HostOffering (Maybe PaymentOption) +hoPaymentOption = lens _hoPaymentOption (\ s a -> s{_hoPaymentOption = a}) + +instance FromXML HostOffering where + parseXML x + = HostOffering' <$> + (x .@? "instanceFamily") <*> (x .@? "currencyCode") + <*> (x .@? "hourlyPrice") + <*> (x .@? "upfrontPrice") + <*> (x .@? "offeringId") + <*> (x .@? "duration") + <*> (x .@? "paymentOption") + +instance Hashable HostOffering where + +instance NFData HostOffering where + +-- | Describes properties of a Dedicated Host. +-- +-- +-- +-- /See:/ 'hostProperties' smart constructor. +data HostProperties = HostProperties' + { _hpInstanceType :: !(Maybe Text) + , _hpTotalVCPUs :: !(Maybe Int) + , _hpCores :: !(Maybe Int) + , _hpSockets :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'HostProperties' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hpInstanceType' - The instance type size that the Dedicated Host supports (for example, @m3.medium@ ). +-- +-- * 'hpTotalVCPUs' - The number of vCPUs on the Dedicated Host. +-- +-- * 'hpCores' - The number of cores on the Dedicated Host. +-- +-- * 'hpSockets' - The number of sockets on the Dedicated Host. +hostProperties + :: HostProperties +hostProperties = + HostProperties' + { _hpInstanceType = Nothing + , _hpTotalVCPUs = Nothing + , _hpCores = Nothing + , _hpSockets = Nothing + } + + +-- | The instance type size that the Dedicated Host supports (for example, @m3.medium@ ). +hpInstanceType :: Lens' HostProperties (Maybe Text) +hpInstanceType = lens _hpInstanceType (\ s a -> s{_hpInstanceType = a}) + +-- | The number of vCPUs on the Dedicated Host. +hpTotalVCPUs :: Lens' HostProperties (Maybe Int) +hpTotalVCPUs = lens _hpTotalVCPUs (\ s a -> s{_hpTotalVCPUs = a}) + +-- | The number of cores on the Dedicated Host. +hpCores :: Lens' HostProperties (Maybe Int) +hpCores = lens _hpCores (\ s a -> s{_hpCores = a}) + +-- | The number of sockets on the Dedicated Host. +hpSockets :: Lens' HostProperties (Maybe Int) +hpSockets = lens _hpSockets (\ s a -> s{_hpSockets = a}) + +instance FromXML HostProperties where + parseXML x + = HostProperties' <$> + (x .@? "instanceType") <*> (x .@? "totalVCpus") <*> + (x .@? "cores") + <*> (x .@? "sockets") + +instance Hashable HostProperties where + +instance NFData HostProperties where + +-- | Details about the Dedicated Host Reservation and associated Dedicated Hosts. +-- +-- +-- +-- /See:/ 'hostReservation' smart constructor. +data HostReservation = HostReservation' + { _hrState :: !(Maybe ReservationState) + , _hrInstanceFamily :: !(Maybe Text) + , _hrCurrencyCode :: !(Maybe CurrencyCodeValues) + , _hrHostReservationId :: !(Maybe Text) + , _hrStart :: !(Maybe ISO8601) + , _hrHourlyPrice :: !(Maybe Text) + , _hrCount :: !(Maybe Int) + , _hrUpfrontPrice :: !(Maybe Text) + , _hrEnd :: !(Maybe ISO8601) + , _hrHostIdSet :: !(Maybe [Text]) + , _hrOfferingId :: !(Maybe Text) + , _hrDuration :: !(Maybe Int) + , _hrPaymentOption :: !(Maybe PaymentOption) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'HostReservation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'hrState' - The state of the reservation. +-- +-- * 'hrInstanceFamily' - The instance family of the Dedicated Host Reservation. The instance family on the Dedicated Host must be the same in order for it to benefit from the reservation. +-- +-- * 'hrCurrencyCode' - The currency in which the @upfrontPrice@ and @hourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . +-- +-- * 'hrHostReservationId' - The ID of the reservation that specifies the associated Dedicated Hosts. +-- +-- * 'hrStart' - The date and time that the reservation started. +-- +-- * 'hrHourlyPrice' - The hourly price of the reservation. +-- +-- * 'hrCount' - The number of Dedicated Hosts the reservation is associated with. +-- +-- * 'hrUpfrontPrice' - The upfront price of the reservation. +-- +-- * 'hrEnd' - The date and time that the reservation ends. +-- +-- * 'hrHostIdSet' - The IDs of the Dedicated Hosts associated with the reservation. +-- +-- * 'hrOfferingId' - The ID of the reservation. This remains the same regardless of which Dedicated Hosts are associated with it. +-- +-- * 'hrDuration' - The length of the reservation's term, specified in seconds. Can be @31536000 (1 year)@ | @94608000 (3 years)@ . +-- +-- * 'hrPaymentOption' - The payment option selected for this reservation. +hostReservation + :: HostReservation +hostReservation = + HostReservation' + { _hrState = Nothing + , _hrInstanceFamily = Nothing + , _hrCurrencyCode = Nothing + , _hrHostReservationId = Nothing + , _hrStart = Nothing + , _hrHourlyPrice = Nothing + , _hrCount = Nothing + , _hrUpfrontPrice = Nothing + , _hrEnd = Nothing + , _hrHostIdSet = Nothing + , _hrOfferingId = Nothing + , _hrDuration = Nothing + , _hrPaymentOption = Nothing + } + + +-- | The state of the reservation. +hrState :: Lens' HostReservation (Maybe ReservationState) +hrState = lens _hrState (\ s a -> s{_hrState = a}) + +-- | The instance family of the Dedicated Host Reservation. The instance family on the Dedicated Host must be the same in order for it to benefit from the reservation. +hrInstanceFamily :: Lens' HostReservation (Maybe Text) +hrInstanceFamily = lens _hrInstanceFamily (\ s a -> s{_hrInstanceFamily = a}) + +-- | The currency in which the @upfrontPrice@ and @hourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . +hrCurrencyCode :: Lens' HostReservation (Maybe CurrencyCodeValues) +hrCurrencyCode = lens _hrCurrencyCode (\ s a -> s{_hrCurrencyCode = a}) + +-- | The ID of the reservation that specifies the associated Dedicated Hosts. +hrHostReservationId :: Lens' HostReservation (Maybe Text) +hrHostReservationId = lens _hrHostReservationId (\ s a -> s{_hrHostReservationId = a}) + +-- | The date and time that the reservation started. +hrStart :: Lens' HostReservation (Maybe UTCTime) +hrStart = lens _hrStart (\ s a -> s{_hrStart = a}) . mapping _Time + +-- | The hourly price of the reservation. +hrHourlyPrice :: Lens' HostReservation (Maybe Text) +hrHourlyPrice = lens _hrHourlyPrice (\ s a -> s{_hrHourlyPrice = a}) + +-- | The number of Dedicated Hosts the reservation is associated with. +hrCount :: Lens' HostReservation (Maybe Int) +hrCount = lens _hrCount (\ s a -> s{_hrCount = a}) + +-- | The upfront price of the reservation. +hrUpfrontPrice :: Lens' HostReservation (Maybe Text) +hrUpfrontPrice = lens _hrUpfrontPrice (\ s a -> s{_hrUpfrontPrice = a}) + +-- | The date and time that the reservation ends. +hrEnd :: Lens' HostReservation (Maybe UTCTime) +hrEnd = lens _hrEnd (\ s a -> s{_hrEnd = a}) . mapping _Time + +-- | The IDs of the Dedicated Hosts associated with the reservation. +hrHostIdSet :: Lens' HostReservation [Text] +hrHostIdSet = lens _hrHostIdSet (\ s a -> s{_hrHostIdSet = a}) . _Default . _Coerce + +-- | The ID of the reservation. This remains the same regardless of which Dedicated Hosts are associated with it. +hrOfferingId :: Lens' HostReservation (Maybe Text) +hrOfferingId = lens _hrOfferingId (\ s a -> s{_hrOfferingId = a}) + +-- | The length of the reservation's term, specified in seconds. Can be @31536000 (1 year)@ | @94608000 (3 years)@ . +hrDuration :: Lens' HostReservation (Maybe Int) +hrDuration = lens _hrDuration (\ s a -> s{_hrDuration = a}) + +-- | The payment option selected for this reservation. +hrPaymentOption :: Lens' HostReservation (Maybe PaymentOption) +hrPaymentOption = lens _hrPaymentOption (\ s a -> s{_hrPaymentOption = a}) + +instance FromXML HostReservation where + parseXML x + = HostReservation' <$> + (x .@? "state") <*> (x .@? "instanceFamily") <*> + (x .@? "currencyCode") + <*> (x .@? "hostReservationId") + <*> (x .@? "start") + <*> (x .@? "hourlyPrice") + <*> (x .@? "count") + <*> (x .@? "upfrontPrice") + <*> (x .@? "end") + <*> + (x .@? "hostIdSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "offeringId") + <*> (x .@? "duration") + <*> (x .@? "paymentOption") + +instance Hashable HostReservation where + +instance NFData HostReservation where + +-- | Describes an IAM instance profile. +-- +-- +-- +-- /See:/ 'iamInstanceProfile' smart constructor. +data IAMInstanceProfile = IAMInstanceProfile' + { _iapARN :: !(Maybe Text) + , _iapId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IAMInstanceProfile' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iapARN' - The Amazon Resource Name (ARN) of the instance profile. +-- +-- * 'iapId' - The ID of the instance profile. +iamInstanceProfile + :: IAMInstanceProfile +iamInstanceProfile = IAMInstanceProfile' {_iapARN = Nothing, _iapId = Nothing} + + +-- | The Amazon Resource Name (ARN) of the instance profile. +iapARN :: Lens' IAMInstanceProfile (Maybe Text) +iapARN = lens _iapARN (\ s a -> s{_iapARN = a}) + +-- | The ID of the instance profile. +iapId :: Lens' IAMInstanceProfile (Maybe Text) +iapId = lens _iapId (\ s a -> s{_iapId = a}) + +instance FromXML IAMInstanceProfile where + parseXML x + = IAMInstanceProfile' <$> + (x .@? "arn") <*> (x .@? "id") + +instance Hashable IAMInstanceProfile where + +instance NFData IAMInstanceProfile where + +-- | Describes an association between an IAM instance profile and an instance. +-- +-- +-- +-- /See:/ 'iamInstanceProfileAssociation' smart constructor. +data IAMInstanceProfileAssociation = IAMInstanceProfileAssociation' + { _iapaAssociationId :: !(Maybe Text) + , _iapaInstanceId :: !(Maybe Text) + , _iapaState :: !(Maybe IAMInstanceProfileAssociationState) + , _iapaIAMInstanceProfile :: !(Maybe IAMInstanceProfile) + , _iapaTimestamp :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IAMInstanceProfileAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iapaAssociationId' - The ID of the association. +-- +-- * 'iapaInstanceId' - The ID of the instance. +-- +-- * 'iapaState' - The state of the association. +-- +-- * 'iapaIAMInstanceProfile' - The IAM instance profile. +-- +-- * 'iapaTimestamp' - The time the IAM instance profile was associated with the instance. +iamInstanceProfileAssociation + :: IAMInstanceProfileAssociation +iamInstanceProfileAssociation = + IAMInstanceProfileAssociation' + { _iapaAssociationId = Nothing + , _iapaInstanceId = Nothing + , _iapaState = Nothing + , _iapaIAMInstanceProfile = Nothing + , _iapaTimestamp = Nothing + } + + +-- | The ID of the association. +iapaAssociationId :: Lens' IAMInstanceProfileAssociation (Maybe Text) +iapaAssociationId = lens _iapaAssociationId (\ s a -> s{_iapaAssociationId = a}) + +-- | The ID of the instance. +iapaInstanceId :: Lens' IAMInstanceProfileAssociation (Maybe Text) +iapaInstanceId = lens _iapaInstanceId (\ s a -> s{_iapaInstanceId = a}) + +-- | The state of the association. +iapaState :: Lens' IAMInstanceProfileAssociation (Maybe IAMInstanceProfileAssociationState) +iapaState = lens _iapaState (\ s a -> s{_iapaState = a}) + +-- | The IAM instance profile. +iapaIAMInstanceProfile :: Lens' IAMInstanceProfileAssociation (Maybe IAMInstanceProfile) +iapaIAMInstanceProfile = lens _iapaIAMInstanceProfile (\ s a -> s{_iapaIAMInstanceProfile = a}) + +-- | The time the IAM instance profile was associated with the instance. +iapaTimestamp :: Lens' IAMInstanceProfileAssociation (Maybe UTCTime) +iapaTimestamp = lens _iapaTimestamp (\ s a -> s{_iapaTimestamp = a}) . mapping _Time + +instance FromXML IAMInstanceProfileAssociation where + parseXML x + = IAMInstanceProfileAssociation' <$> + (x .@? "associationId") <*> (x .@? "instanceId") <*> + (x .@? "state") + <*> (x .@? "iamInstanceProfile") + <*> (x .@? "timestamp") + +instance Hashable IAMInstanceProfileAssociation where + +instance NFData IAMInstanceProfileAssociation where + +-- | Describes an IAM instance profile. +-- +-- +-- +-- /See:/ 'iamInstanceProfileSpecification' smart constructor. +data IAMInstanceProfileSpecification = IAMInstanceProfileSpecification' + { _iapsARN :: !(Maybe Text) + , _iapsName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IAMInstanceProfileSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iapsARN' - The Amazon Resource Name (ARN) of the instance profile. +-- +-- * 'iapsName' - The name of the instance profile. +iamInstanceProfileSpecification + :: IAMInstanceProfileSpecification +iamInstanceProfileSpecification = + IAMInstanceProfileSpecification' {_iapsARN = Nothing, _iapsName = Nothing} + + +-- | The Amazon Resource Name (ARN) of the instance profile. +iapsARN :: Lens' IAMInstanceProfileSpecification (Maybe Text) +iapsARN = lens _iapsARN (\ s a -> s{_iapsARN = a}) + +-- | The name of the instance profile. +iapsName :: Lens' IAMInstanceProfileSpecification (Maybe Text) +iapsName = lens _iapsName (\ s a -> s{_iapsName = a}) + +instance FromXML IAMInstanceProfileSpecification + where + parseXML x + = IAMInstanceProfileSpecification' <$> + (x .@? "arn") <*> (x .@? "name") + +instance Hashable IAMInstanceProfileSpecification + where + +instance NFData IAMInstanceProfileSpecification where + +instance ToQuery IAMInstanceProfileSpecification + where + toQuery IAMInstanceProfileSpecification'{..} + = mconcat ["Arn" =: _iapsARN, "Name" =: _iapsName] + +-- | Describes the ICMP type and code. +-- +-- +-- +-- /See:/ 'icmpTypeCode' smart constructor. +data ICMPTypeCode = ICMPTypeCode' + { _itcCode :: !(Maybe Int) + , _itcType :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ICMPTypeCode' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'itcCode' - The ICMP code. A value of -1 means all codes for the specified ICMP type. +-- +-- * 'itcType' - The ICMP type. A value of -1 means all types. +icmpTypeCode + :: ICMPTypeCode +icmpTypeCode = ICMPTypeCode' {_itcCode = Nothing, _itcType = Nothing} + + +-- | The ICMP code. A value of -1 means all codes for the specified ICMP type. +itcCode :: Lens' ICMPTypeCode (Maybe Int) +itcCode = lens _itcCode (\ s a -> s{_itcCode = a}) + +-- | The ICMP type. A value of -1 means all types. +itcType :: Lens' ICMPTypeCode (Maybe Int) +itcType = lens _itcType (\ s a -> s{_itcType = a}) + +instance FromXML ICMPTypeCode where + parseXML x + = ICMPTypeCode' <$> (x .@? "code") <*> (x .@? "type") + +instance Hashable ICMPTypeCode where + +instance NFData ICMPTypeCode where + +instance ToQuery ICMPTypeCode where + toQuery ICMPTypeCode'{..} + = mconcat ["Code" =: _itcCode, "Type" =: _itcType] + +-- | Describes a set of permissions for a security group rule. +-- +-- +-- +-- /See:/ 'ipPermission' smart constructor. +data IPPermission = IPPermission' + { _ipFromPort :: !(Maybe Int) + , _ipUserIdGroupPairs :: !(Maybe [UserIdGroupPair]) + , _ipPrefixListIds :: !(Maybe [PrefixListId]) + , _ipToPort :: !(Maybe Int) + , _ipIPv6Ranges :: !(Maybe [IPv6Range]) + , _ipIPRanges :: !(Maybe [IPRange]) + , _ipIPProtocol :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IPPermission' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ipFromPort' - The start of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 type number. A value of @-1@ indicates all ICMP/ICMPv6 types. If you specify all ICMP/ICMPv6 types, you must specify all codes. +-- +-- * 'ipUserIdGroupPairs' - One or more security group and AWS account ID pairs. +-- +-- * 'ipPrefixListIds' - (EC2-VPC only; valid for 'AuthorizeSecurityGroupEgress' , 'RevokeSecurityGroupEgress' and 'DescribeSecurityGroups' only) One or more prefix list IDs for an AWS service. In an 'AuthorizeSecurityGroupEgress' request, this is the AWS service that you want to access through a VPC endpoint from instances associated with the security group. +-- +-- * 'ipToPort' - The end of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 code. A value of @-1@ indicates all ICMP/ICMPv6 codes for the specified ICMP type. If you specify all ICMP/ICMPv6 types, you must specify all codes. +-- +-- * 'ipIPv6Ranges' - [EC2-VPC only] One or more IPv6 ranges. +-- +-- * 'ipIPRanges' - One or more IPv4 ranges. +-- +-- * 'ipIPProtocol' - The IP protocol name (@tcp@ , @udp@ , @icmp@ ) or number (see ). [EC2-VPC only] Use @-1@ to specify all protocols. When authorizing security group rules, specifying @-1@ or a protocol number other than @tcp@ , @udp@ , @icmp@ , or @58@ (ICMPv6) allows traffic on all ports, regardless of any port range you specify. For @tcp@ , @udp@ , and @icmp@ , you must specify a port range. For @58@ (ICMPv6), you can optionally specify a port range; if you don't, traffic for all types and codes is allowed when authorizing rules. +ipPermission + :: Text -- ^ 'ipIPProtocol' + -> IPPermission +ipPermission pIPProtocol_ = + IPPermission' + { _ipFromPort = Nothing + , _ipUserIdGroupPairs = Nothing + , _ipPrefixListIds = Nothing + , _ipToPort = Nothing + , _ipIPv6Ranges = Nothing + , _ipIPRanges = Nothing + , _ipIPProtocol = pIPProtocol_ + } + + +-- | The start of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 type number. A value of @-1@ indicates all ICMP/ICMPv6 types. If you specify all ICMP/ICMPv6 types, you must specify all codes. +ipFromPort :: Lens' IPPermission (Maybe Int) +ipFromPort = lens _ipFromPort (\ s a -> s{_ipFromPort = a}) + +-- | One or more security group and AWS account ID pairs. +ipUserIdGroupPairs :: Lens' IPPermission [UserIdGroupPair] +ipUserIdGroupPairs = lens _ipUserIdGroupPairs (\ s a -> s{_ipUserIdGroupPairs = a}) . _Default . _Coerce + +-- | (EC2-VPC only; valid for 'AuthorizeSecurityGroupEgress' , 'RevokeSecurityGroupEgress' and 'DescribeSecurityGroups' only) One or more prefix list IDs for an AWS service. In an 'AuthorizeSecurityGroupEgress' request, this is the AWS service that you want to access through a VPC endpoint from instances associated with the security group. +ipPrefixListIds :: Lens' IPPermission [PrefixListId] +ipPrefixListIds = lens _ipPrefixListIds (\ s a -> s{_ipPrefixListIds = a}) . _Default . _Coerce + +-- | The end of port range for the TCP and UDP protocols, or an ICMP/ICMPv6 code. A value of @-1@ indicates all ICMP/ICMPv6 codes for the specified ICMP type. If you specify all ICMP/ICMPv6 types, you must specify all codes. +ipToPort :: Lens' IPPermission (Maybe Int) +ipToPort = lens _ipToPort (\ s a -> s{_ipToPort = a}) + +-- | [EC2-VPC only] One or more IPv6 ranges. +ipIPv6Ranges :: Lens' IPPermission [IPv6Range] +ipIPv6Ranges = lens _ipIPv6Ranges (\ s a -> s{_ipIPv6Ranges = a}) . _Default . _Coerce + +-- | One or more IPv4 ranges. +ipIPRanges :: Lens' IPPermission [IPRange] +ipIPRanges = lens _ipIPRanges (\ s a -> s{_ipIPRanges = a}) . _Default . _Coerce + +-- | The IP protocol name (@tcp@ , @udp@ , @icmp@ ) or number (see ). [EC2-VPC only] Use @-1@ to specify all protocols. When authorizing security group rules, specifying @-1@ or a protocol number other than @tcp@ , @udp@ , @icmp@ , or @58@ (ICMPv6) allows traffic on all ports, regardless of any port range you specify. For @tcp@ , @udp@ , and @icmp@ , you must specify a port range. For @58@ (ICMPv6), you can optionally specify a port range; if you don't, traffic for all types and codes is allowed when authorizing rules. +ipIPProtocol :: Lens' IPPermission Text +ipIPProtocol = lens _ipIPProtocol (\ s a -> s{_ipIPProtocol = a}) + +instance FromXML IPPermission where + parseXML x + = IPPermission' <$> + (x .@? "fromPort") <*> + (x .@? "groups" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "prefixListIds" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "toPort") + <*> + (x .@? "ipv6Ranges" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "ipRanges" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "ipProtocol") + +instance Hashable IPPermission where + +instance NFData IPPermission where + +instance ToQuery IPPermission where + toQuery IPPermission'{..} + = mconcat + ["FromPort" =: _ipFromPort, + toQuery + (toQueryList "Groups" <$> _ipUserIdGroupPairs), + toQuery + (toQueryList "PrefixListIds" <$> _ipPrefixListIds), + "ToPort" =: _ipToPort, + toQuery (toQueryList "Ipv6Ranges" <$> _ipIPv6Ranges), + toQuery (toQueryList "IpRanges" <$> _ipIPRanges), + "IpProtocol" =: _ipIPProtocol] + +-- | Describes an IPv4 range. +-- +-- +-- +-- /See:/ 'ipRange' smart constructor. +data IPRange = IPRange' + { _iprDescription :: !(Maybe Text) + , _iprCidrIP :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IPRange' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iprDescription' - A description for the security group rule that references this IPv4 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +-- +-- * 'iprCidrIP' - The IPv4 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv4 address, use the /32 prefix length. +ipRange + :: Text -- ^ 'iprCidrIP' + -> IPRange +ipRange pCidrIP_ = IPRange' {_iprDescription = Nothing, _iprCidrIP = pCidrIP_} + + +-- | A description for the security group rule that references this IPv4 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +iprDescription :: Lens' IPRange (Maybe Text) +iprDescription = lens _iprDescription (\ s a -> s{_iprDescription = a}) + +-- | The IPv4 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv4 address, use the /32 prefix length. +iprCidrIP :: Lens' IPRange Text +iprCidrIP = lens _iprCidrIP (\ s a -> s{_iprCidrIP = a}) + +instance FromXML IPRange where + parseXML x + = IPRange' <$> + (x .@? "description") <*> (x .@ "cidrIp") + +instance Hashable IPRange where + +instance NFData IPRange where + +instance ToQuery IPRange where + toQuery IPRange'{..} + = mconcat + ["Description" =: _iprDescription, + "CidrIp" =: _iprCidrIP] + +-- | Describes an IPv6 CIDR block. +-- +-- +-- +-- /See:/ 'ipv6CidrBlock' smart constructor. +newtype IPv6CidrBlock = IPv6CidrBlock' + { _icbIPv6CidrBlock :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IPv6CidrBlock' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'icbIPv6CidrBlock' - The IPv6 CIDR block. +ipv6CidrBlock + :: IPv6CidrBlock +ipv6CidrBlock = IPv6CidrBlock' {_icbIPv6CidrBlock = Nothing} + + +-- | The IPv6 CIDR block. +icbIPv6CidrBlock :: Lens' IPv6CidrBlock (Maybe Text) +icbIPv6CidrBlock = lens _icbIPv6CidrBlock (\ s a -> s{_icbIPv6CidrBlock = a}) + +instance FromXML IPv6CidrBlock where + parseXML x + = IPv6CidrBlock' <$> (x .@? "ipv6CidrBlock") + +instance Hashable IPv6CidrBlock where + +instance NFData IPv6CidrBlock where + +-- | [EC2-VPC only] Describes an IPv6 range. +-- +-- +-- +-- /See:/ 'ipv6Range' smart constructor. +data IPv6Range = IPv6Range' + { _irCidrIPv6 :: !(Maybe Text) + , _irDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IPv6Range' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'irCidrIPv6' - The IPv6 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv6 address, use the /128 prefix length. +-- +-- * 'irDescription' - A description for the security group rule that references this IPv6 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +ipv6Range + :: IPv6Range +ipv6Range = IPv6Range' {_irCidrIPv6 = Nothing, _irDescription = Nothing} + + +-- | The IPv6 CIDR range. You can either specify a CIDR range or a source security group, not both. To specify a single IPv6 address, use the /128 prefix length. +irCidrIPv6 :: Lens' IPv6Range (Maybe Text) +irCidrIPv6 = lens _irCidrIPv6 (\ s a -> s{_irCidrIPv6 = a}) + +-- | A description for the security group rule that references this IPv6 address range. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +irDescription :: Lens' IPv6Range (Maybe Text) +irDescription = lens _irDescription (\ s a -> s{_irDescription = a}) + +instance FromXML IPv6Range where + parseXML x + = IPv6Range' <$> + (x .@? "cidrIpv6") <*> (x .@? "description") + +instance Hashable IPv6Range where + +instance NFData IPv6Range where + +instance ToQuery IPv6Range where + toQuery IPv6Range'{..} + = mconcat + ["CidrIpv6" =: _irCidrIPv6, + "Description" =: _irDescription] + +-- | Describes the ID format for a resource. +-- +-- +-- +-- /See:/ 'idFormat' smart constructor. +data IdFormat = IdFormat' + { _ifUseLongIds :: !(Maybe Bool) + , _ifDeadline :: !(Maybe ISO8601) + , _ifResource :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'IdFormat' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ifUseLongIds' - Indicates whether longer IDs (17-character IDs) are enabled for the resource. +-- +-- * 'ifDeadline' - The date in UTC at which you are permanently switched over to using longer IDs. If a deadline is not yet available for this resource type, this field is not returned. +-- +-- * 'ifResource' - The type of resource. +idFormat + :: IdFormat +idFormat = + IdFormat' + {_ifUseLongIds = Nothing, _ifDeadline = Nothing, _ifResource = Nothing} + + +-- | Indicates whether longer IDs (17-character IDs) are enabled for the resource. +ifUseLongIds :: Lens' IdFormat (Maybe Bool) +ifUseLongIds = lens _ifUseLongIds (\ s a -> s{_ifUseLongIds = a}) + +-- | The date in UTC at which you are permanently switched over to using longer IDs. If a deadline is not yet available for this resource type, this field is not returned. +ifDeadline :: Lens' IdFormat (Maybe UTCTime) +ifDeadline = lens _ifDeadline (\ s a -> s{_ifDeadline = a}) . mapping _Time + +-- | The type of resource. +ifResource :: Lens' IdFormat (Maybe Text) +ifResource = lens _ifResource (\ s a -> s{_ifResource = a}) + +instance FromXML IdFormat where + parseXML x + = IdFormat' <$> + (x .@? "useLongIds") <*> (x .@? "deadline") <*> + (x .@? "resource") + +instance Hashable IdFormat where + +instance NFData IdFormat where + +-- | Describes an image. +-- +-- +-- +-- /See:/ 'image' smart constructor. +data Image = Image' + { _iPlatform :: !(Maybe PlatformValues) + , _iEnaSupport :: !(Maybe Bool) + , _iImageOwnerAlias :: !(Maybe Text) + , _iRAMDiskId :: !(Maybe Text) + , _iKernelId :: !(Maybe Text) + , _iRootDeviceName :: !(Maybe Text) + , _iSRIOVNetSupport :: !(Maybe Text) + , _iName :: !(Maybe Text) + , _iCreationDate :: !(Maybe Text) + , _iProductCodes :: !(Maybe [ProductCode]) + , _iStateReason :: !(Maybe StateReason) + , _iDescription :: !(Maybe Text) + , _iBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) + , _iTags :: !(Maybe [Tag]) + , _iImageId :: !Text + , _iImageLocation :: !Text + , _iState :: !ImageState + , _iOwnerId :: !Text + , _iPublic :: !Bool + , _iArchitecture :: !ArchitectureValues + , _iImageType :: !ImageTypeValues + , _iRootDeviceType :: !DeviceType + , _iVirtualizationType :: !VirtualizationType + , _iHypervisor :: !HypervisorType + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Image' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iPlatform' - The value is @Windows@ for Windows AMIs; otherwise blank. +-- +-- * 'iEnaSupport' - Specifies whether enhanced networking with ENA is enabled. +-- +-- * 'iImageOwnerAlias' - The AWS account alias (for example, @amazon@ , @self@ ) or the AWS account ID of the AMI owner. +-- +-- * 'iRAMDiskId' - The RAM disk associated with the image, if any. Only applicable for machine images. +-- +-- * 'iKernelId' - The kernel associated with the image, if any. Only applicable for machine images. +-- +-- * 'iRootDeviceName' - The device name of the root device volume (for example, @/dev/sda1@ ). +-- +-- * 'iSRIOVNetSupport' - Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. +-- +-- * 'iName' - The name of the AMI that was provided during image creation. +-- +-- * 'iCreationDate' - The date and time the image was created. +-- +-- * 'iProductCodes' - Any product codes associated with the AMI. +-- +-- * 'iStateReason' - The reason for the state change. +-- +-- * 'iDescription' - The description of the AMI that was provided during image creation. +-- +-- * 'iBlockDeviceMappings' - Any block device mapping entries. +-- +-- * 'iTags' - Any tags assigned to the image. +-- +-- * 'iImageId' - The ID of the AMI. +-- +-- * 'iImageLocation' - The location of the AMI. +-- +-- * 'iState' - The current state of the AMI. If the state is @available@ , the image is successfully registered and can be used to launch an instance. +-- +-- * 'iOwnerId' - The AWS account ID of the image owner. +-- +-- * 'iPublic' - Indicates whether the image has public launch permissions. The value is @true@ if this image has public launch permissions or @false@ if it has only implicit and explicit launch permissions. +-- +-- * 'iArchitecture' - The architecture of the image. +-- +-- * 'iImageType' - The type of image. +-- +-- * 'iRootDeviceType' - The type of root device used by the AMI. The AMI can use an EBS volume or an instance store volume. +-- +-- * 'iVirtualizationType' - The type of virtualization of the AMI. +-- +-- * 'iHypervisor' - The hypervisor type of the image. +image + :: Text -- ^ 'iImageId' + -> Text -- ^ 'iImageLocation' + -> ImageState -- ^ 'iState' + -> Text -- ^ 'iOwnerId' + -> Bool -- ^ 'iPublic' + -> ArchitectureValues -- ^ 'iArchitecture' + -> ImageTypeValues -- ^ 'iImageType' + -> DeviceType -- ^ 'iRootDeviceType' + -> VirtualizationType -- ^ 'iVirtualizationType' + -> HypervisorType -- ^ 'iHypervisor' + -> Image +image pImageId_ pImageLocation_ pState_ pOwnerId_ pPublic_ pArchitecture_ pImageType_ pRootDeviceType_ pVirtualizationType_ pHypervisor_ = + Image' + { _iPlatform = Nothing + , _iEnaSupport = Nothing + , _iImageOwnerAlias = Nothing + , _iRAMDiskId = Nothing + , _iKernelId = Nothing + , _iRootDeviceName = Nothing + , _iSRIOVNetSupport = Nothing + , _iName = Nothing + , _iCreationDate = Nothing + , _iProductCodes = Nothing + , _iStateReason = Nothing + , _iDescription = Nothing + , _iBlockDeviceMappings = Nothing + , _iTags = Nothing + , _iImageId = pImageId_ + , _iImageLocation = pImageLocation_ + , _iState = pState_ + , _iOwnerId = pOwnerId_ + , _iPublic = pPublic_ + , _iArchitecture = pArchitecture_ + , _iImageType = pImageType_ + , _iRootDeviceType = pRootDeviceType_ + , _iVirtualizationType = pVirtualizationType_ + , _iHypervisor = pHypervisor_ + } + + +-- | The value is @Windows@ for Windows AMIs; otherwise blank. +iPlatform :: Lens' Image (Maybe PlatformValues) +iPlatform = lens _iPlatform (\ s a -> s{_iPlatform = a}) + +-- | Specifies whether enhanced networking with ENA is enabled. +iEnaSupport :: Lens' Image (Maybe Bool) +iEnaSupport = lens _iEnaSupport (\ s a -> s{_iEnaSupport = a}) + +-- | The AWS account alias (for example, @amazon@ , @self@ ) or the AWS account ID of the AMI owner. +iImageOwnerAlias :: Lens' Image (Maybe Text) +iImageOwnerAlias = lens _iImageOwnerAlias (\ s a -> s{_iImageOwnerAlias = a}) + +-- | The RAM disk associated with the image, if any. Only applicable for machine images. +iRAMDiskId :: Lens' Image (Maybe Text) +iRAMDiskId = lens _iRAMDiskId (\ s a -> s{_iRAMDiskId = a}) + +-- | The kernel associated with the image, if any. Only applicable for machine images. +iKernelId :: Lens' Image (Maybe Text) +iKernelId = lens _iKernelId (\ s a -> s{_iKernelId = a}) + +-- | The device name of the root device volume (for example, @/dev/sda1@ ). +iRootDeviceName :: Lens' Image (Maybe Text) +iRootDeviceName = lens _iRootDeviceName (\ s a -> s{_iRootDeviceName = a}) + +-- | Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. +iSRIOVNetSupport :: Lens' Image (Maybe Text) +iSRIOVNetSupport = lens _iSRIOVNetSupport (\ s a -> s{_iSRIOVNetSupport = a}) + +-- | The name of the AMI that was provided during image creation. +iName :: Lens' Image (Maybe Text) +iName = lens _iName (\ s a -> s{_iName = a}) + +-- | The date and time the image was created. +iCreationDate :: Lens' Image (Maybe Text) +iCreationDate = lens _iCreationDate (\ s a -> s{_iCreationDate = a}) + +-- | Any product codes associated with the AMI. +iProductCodes :: Lens' Image [ProductCode] +iProductCodes = lens _iProductCodes (\ s a -> s{_iProductCodes = a}) . _Default . _Coerce + +-- | The reason for the state change. +iStateReason :: Lens' Image (Maybe StateReason) +iStateReason = lens _iStateReason (\ s a -> s{_iStateReason = a}) + +-- | The description of the AMI that was provided during image creation. +iDescription :: Lens' Image (Maybe Text) +iDescription = lens _iDescription (\ s a -> s{_iDescription = a}) + +-- | Any block device mapping entries. +iBlockDeviceMappings :: Lens' Image [BlockDeviceMapping] +iBlockDeviceMappings = lens _iBlockDeviceMappings (\ s a -> s{_iBlockDeviceMappings = a}) . _Default . _Coerce + +-- | Any tags assigned to the image. +iTags :: Lens' Image [Tag] +iTags = lens _iTags (\ s a -> s{_iTags = a}) . _Default . _Coerce + +-- | The ID of the AMI. +iImageId :: Lens' Image Text +iImageId = lens _iImageId (\ s a -> s{_iImageId = a}) + +-- | The location of the AMI. +iImageLocation :: Lens' Image Text +iImageLocation = lens _iImageLocation (\ s a -> s{_iImageLocation = a}) + +-- | The current state of the AMI. If the state is @available@ , the image is successfully registered and can be used to launch an instance. +iState :: Lens' Image ImageState +iState = lens _iState (\ s a -> s{_iState = a}) + +-- | The AWS account ID of the image owner. +iOwnerId :: Lens' Image Text +iOwnerId = lens _iOwnerId (\ s a -> s{_iOwnerId = a}) + +-- | Indicates whether the image has public launch permissions. The value is @true@ if this image has public launch permissions or @false@ if it has only implicit and explicit launch permissions. +iPublic :: Lens' Image Bool +iPublic = lens _iPublic (\ s a -> s{_iPublic = a}) + +-- | The architecture of the image. +iArchitecture :: Lens' Image ArchitectureValues +iArchitecture = lens _iArchitecture (\ s a -> s{_iArchitecture = a}) + +-- | The type of image. +iImageType :: Lens' Image ImageTypeValues +iImageType = lens _iImageType (\ s a -> s{_iImageType = a}) + +-- | The type of root device used by the AMI. The AMI can use an EBS volume or an instance store volume. +iRootDeviceType :: Lens' Image DeviceType +iRootDeviceType = lens _iRootDeviceType (\ s a -> s{_iRootDeviceType = a}) + +-- | The type of virtualization of the AMI. +iVirtualizationType :: Lens' Image VirtualizationType +iVirtualizationType = lens _iVirtualizationType (\ s a -> s{_iVirtualizationType = a}) + +-- | The hypervisor type of the image. +iHypervisor :: Lens' Image HypervisorType +iHypervisor = lens _iHypervisor (\ s a -> s{_iHypervisor = a}) + +instance FromXML Image where + parseXML x + = Image' <$> + (x .@? "platform") <*> (x .@? "enaSupport") <*> + (x .@? "imageOwnerAlias") + <*> (x .@? "ramdiskId") + <*> (x .@? "kernelId") + <*> (x .@? "rootDeviceName") + <*> (x .@? "sriovNetSupport") + <*> (x .@? "name") + <*> (x .@? "creationDate") + <*> + (x .@? "productCodes" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "stateReason") + <*> (x .@? "description") + <*> + (x .@? "blockDeviceMapping" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "imageId") + <*> (x .@ "imageLocation") + <*> (x .@ "imageState") + <*> (x .@ "imageOwnerId") + <*> (x .@ "isPublic") + <*> (x .@ "architecture") + <*> (x .@ "imageType") + <*> (x .@ "rootDeviceType") + <*> (x .@ "virtualizationType") + <*> (x .@ "hypervisor") + +instance Hashable Image where + +instance NFData Image where + +-- | Describes the disk container object for an import image task. +-- +-- +-- +-- /See:/ 'imageDiskContainer' smart constructor. +data ImageDiskContainer = ImageDiskContainer' + { _idcFormat :: !(Maybe Text) + , _idcURL :: !(Maybe Text) + , _idcDeviceName :: !(Maybe Text) + , _idcUserBucket :: !(Maybe UserBucket) + , _idcDescription :: !(Maybe Text) + , _idcSnapshotId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ImageDiskContainer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'idcFormat' - The format of the disk image being imported. Valid values: @VHD@ | @VMDK@ | @OVA@ +-- +-- * 'idcURL' - The URL to the Amazon S3-based disk image being imported. The URL can either be a https URL (https://..) or an Amazon S3 URL (s3://..) +-- +-- * 'idcDeviceName' - The block device mapping for the disk. +-- +-- * 'idcUserBucket' - The S3 bucket for the disk image. +-- +-- * 'idcDescription' - The description of the disk image. +-- +-- * 'idcSnapshotId' - The ID of the EBS snapshot to be used for importing the snapshot. +imageDiskContainer + :: ImageDiskContainer +imageDiskContainer = + ImageDiskContainer' + { _idcFormat = Nothing + , _idcURL = Nothing + , _idcDeviceName = Nothing + , _idcUserBucket = Nothing + , _idcDescription = Nothing + , _idcSnapshotId = Nothing + } + + +-- | The format of the disk image being imported. Valid values: @VHD@ | @VMDK@ | @OVA@ +idcFormat :: Lens' ImageDiskContainer (Maybe Text) +idcFormat = lens _idcFormat (\ s a -> s{_idcFormat = a}) + +-- | The URL to the Amazon S3-based disk image being imported. The URL can either be a https URL (https://..) or an Amazon S3 URL (s3://..) +idcURL :: Lens' ImageDiskContainer (Maybe Text) +idcURL = lens _idcURL (\ s a -> s{_idcURL = a}) + +-- | The block device mapping for the disk. +idcDeviceName :: Lens' ImageDiskContainer (Maybe Text) +idcDeviceName = lens _idcDeviceName (\ s a -> s{_idcDeviceName = a}) + +-- | The S3 bucket for the disk image. +idcUserBucket :: Lens' ImageDiskContainer (Maybe UserBucket) +idcUserBucket = lens _idcUserBucket (\ s a -> s{_idcUserBucket = a}) + +-- | The description of the disk image. +idcDescription :: Lens' ImageDiskContainer (Maybe Text) +idcDescription = lens _idcDescription (\ s a -> s{_idcDescription = a}) + +-- | The ID of the EBS snapshot to be used for importing the snapshot. +idcSnapshotId :: Lens' ImageDiskContainer (Maybe Text) +idcSnapshotId = lens _idcSnapshotId (\ s a -> s{_idcSnapshotId = a}) + +instance Hashable ImageDiskContainer where + +instance NFData ImageDiskContainer where + +instance ToQuery ImageDiskContainer where + toQuery ImageDiskContainer'{..} + = mconcat + ["Format" =: _idcFormat, "Url" =: _idcURL, + "DeviceName" =: _idcDeviceName, + "UserBucket" =: _idcUserBucket, + "Description" =: _idcDescription, + "SnapshotId" =: _idcSnapshotId] + +-- | Describes an import image task. +-- +-- +-- +-- /See:/ 'importImageTask' smart constructor. +data ImportImageTask = ImportImageTask' + { _iitStatus :: !(Maybe Text) + , _iitHypervisor :: !(Maybe Text) + , _iitPlatform :: !(Maybe Text) + , _iitProgress :: !(Maybe Text) + , _iitLicenseType :: !(Maybe Text) + , _iitSnapshotDetails :: !(Maybe [SnapshotDetail]) + , _iitStatusMessage :: !(Maybe Text) + , _iitImageId :: !(Maybe Text) + , _iitImportTaskId :: !(Maybe Text) + , _iitArchitecture :: !(Maybe Text) + , _iitDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ImportImageTask' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iitStatus' - A brief status for the import image task. +-- +-- * 'iitHypervisor' - The target hypervisor for the import task. Valid values: @xen@ +-- +-- * 'iitPlatform' - The description string for the import image task. +-- +-- * 'iitProgress' - The percentage of progress of the import image task. +-- +-- * 'iitLicenseType' - The license type of the virtual machine. +-- +-- * 'iitSnapshotDetails' - Information about the snapshots. +-- +-- * 'iitStatusMessage' - A descriptive status message for the import image task. +-- +-- * 'iitImageId' - The ID of the Amazon Machine Image (AMI) of the imported virtual machine. +-- +-- * 'iitImportTaskId' - The ID of the import image task. +-- +-- * 'iitArchitecture' - The architecture of the virtual machine. Valid values: @i386@ | @x86_64@ +-- +-- * 'iitDescription' - A description of the import task. +importImageTask + :: ImportImageTask +importImageTask = + ImportImageTask' + { _iitStatus = Nothing + , _iitHypervisor = Nothing + , _iitPlatform = Nothing + , _iitProgress = Nothing + , _iitLicenseType = Nothing + , _iitSnapshotDetails = Nothing + , _iitStatusMessage = Nothing + , _iitImageId = Nothing + , _iitImportTaskId = Nothing + , _iitArchitecture = Nothing + , _iitDescription = Nothing + } + + +-- | A brief status for the import image task. +iitStatus :: Lens' ImportImageTask (Maybe Text) +iitStatus = lens _iitStatus (\ s a -> s{_iitStatus = a}) + +-- | The target hypervisor for the import task. Valid values: @xen@ +iitHypervisor :: Lens' ImportImageTask (Maybe Text) +iitHypervisor = lens _iitHypervisor (\ s a -> s{_iitHypervisor = a}) + +-- | The description string for the import image task. +iitPlatform :: Lens' ImportImageTask (Maybe Text) +iitPlatform = lens _iitPlatform (\ s a -> s{_iitPlatform = a}) + +-- | The percentage of progress of the import image task. +iitProgress :: Lens' ImportImageTask (Maybe Text) +iitProgress = lens _iitProgress (\ s a -> s{_iitProgress = a}) + +-- | The license type of the virtual machine. +iitLicenseType :: Lens' ImportImageTask (Maybe Text) +iitLicenseType = lens _iitLicenseType (\ s a -> s{_iitLicenseType = a}) + +-- | Information about the snapshots. +iitSnapshotDetails :: Lens' ImportImageTask [SnapshotDetail] +iitSnapshotDetails = lens _iitSnapshotDetails (\ s a -> s{_iitSnapshotDetails = a}) . _Default . _Coerce + +-- | A descriptive status message for the import image task. +iitStatusMessage :: Lens' ImportImageTask (Maybe Text) +iitStatusMessage = lens _iitStatusMessage (\ s a -> s{_iitStatusMessage = a}) + +-- | The ID of the Amazon Machine Image (AMI) of the imported virtual machine. +iitImageId :: Lens' ImportImageTask (Maybe Text) +iitImageId = lens _iitImageId (\ s a -> s{_iitImageId = a}) + +-- | The ID of the import image task. +iitImportTaskId :: Lens' ImportImageTask (Maybe Text) +iitImportTaskId = lens _iitImportTaskId (\ s a -> s{_iitImportTaskId = a}) + +-- | The architecture of the virtual machine. Valid values: @i386@ | @x86_64@ +iitArchitecture :: Lens' ImportImageTask (Maybe Text) +iitArchitecture = lens _iitArchitecture (\ s a -> s{_iitArchitecture = a}) + +-- | A description of the import task. +iitDescription :: Lens' ImportImageTask (Maybe Text) +iitDescription = lens _iitDescription (\ s a -> s{_iitDescription = a}) + +instance FromXML ImportImageTask where + parseXML x + = ImportImageTask' <$> + (x .@? "status") <*> (x .@? "hypervisor") <*> + (x .@? "platform") + <*> (x .@? "progress") + <*> (x .@? "licenseType") + <*> + (x .@? "snapshotDetailSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "statusMessage") + <*> (x .@? "imageId") + <*> (x .@? "importTaskId") + <*> (x .@? "architecture") + <*> (x .@? "description") + +instance Hashable ImportImageTask where + +instance NFData ImportImageTask where + +-- | Describes the launch specification for VM import. +-- +-- +-- +-- /See:/ 'importInstanceLaunchSpecification' smart constructor. +data ImportInstanceLaunchSpecification = ImportInstanceLaunchSpecification' + { _iilsAdditionalInfo :: !(Maybe Text) + , _iilsGroupNames :: !(Maybe [Text]) + , _iilsSubnetId :: !(Maybe Text) + , _iilsInstanceType :: !(Maybe InstanceType) + , _iilsGroupIds :: !(Maybe [Text]) + , _iilsUserData :: !(Maybe UserData) + , _iilsMonitoring :: !(Maybe Bool) + , _iilsPrivateIPAddress :: !(Maybe Text) + , _iilsInstanceInitiatedShutdownBehavior :: !(Maybe ShutdownBehavior) + , _iilsArchitecture :: !(Maybe ArchitectureValues) + , _iilsPlacement :: !(Maybe Placement) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ImportInstanceLaunchSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iilsAdditionalInfo' - Reserved. +-- +-- * 'iilsGroupNames' - One or more security group names. +-- +-- * 'iilsSubnetId' - [EC2-VPC] The ID of the subnet in which to launch the instance. +-- +-- * 'iilsInstanceType' - The instance type. For more information about the instance types that you can import, see in the VM Import/Export User Guide. +-- +-- * 'iilsGroupIds' - One or more security group IDs. +-- +-- * 'iilsUserData' - The Base64-encoded user data to make available to the instance. +-- +-- * 'iilsMonitoring' - Indicates whether monitoring is enabled. +-- +-- * 'iilsPrivateIPAddress' - [EC2-VPC] An available IP address from the IP address range of the subnet. +-- +-- * 'iilsInstanceInitiatedShutdownBehavior' - Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). +-- +-- * 'iilsArchitecture' - The architecture of the instance. +-- +-- * 'iilsPlacement' - The placement information for the instance. +importInstanceLaunchSpecification + :: ImportInstanceLaunchSpecification +importInstanceLaunchSpecification = + ImportInstanceLaunchSpecification' + { _iilsAdditionalInfo = Nothing + , _iilsGroupNames = Nothing + , _iilsSubnetId = Nothing + , _iilsInstanceType = Nothing + , _iilsGroupIds = Nothing + , _iilsUserData = Nothing + , _iilsMonitoring = Nothing + , _iilsPrivateIPAddress = Nothing + , _iilsInstanceInitiatedShutdownBehavior = Nothing + , _iilsArchitecture = Nothing + , _iilsPlacement = Nothing + } + + +-- | Reserved. +iilsAdditionalInfo :: Lens' ImportInstanceLaunchSpecification (Maybe Text) +iilsAdditionalInfo = lens _iilsAdditionalInfo (\ s a -> s{_iilsAdditionalInfo = a}) + +-- | One or more security group names. +iilsGroupNames :: Lens' ImportInstanceLaunchSpecification [Text] +iilsGroupNames = lens _iilsGroupNames (\ s a -> s{_iilsGroupNames = a}) . _Default . _Coerce + +-- | [EC2-VPC] The ID of the subnet in which to launch the instance. +iilsSubnetId :: Lens' ImportInstanceLaunchSpecification (Maybe Text) +iilsSubnetId = lens _iilsSubnetId (\ s a -> s{_iilsSubnetId = a}) + +-- | The instance type. For more information about the instance types that you can import, see in the VM Import/Export User Guide. +iilsInstanceType :: Lens' ImportInstanceLaunchSpecification (Maybe InstanceType) +iilsInstanceType = lens _iilsInstanceType (\ s a -> s{_iilsInstanceType = a}) + +-- | One or more security group IDs. +iilsGroupIds :: Lens' ImportInstanceLaunchSpecification [Text] +iilsGroupIds = lens _iilsGroupIds (\ s a -> s{_iilsGroupIds = a}) . _Default . _Coerce + +-- | The Base64-encoded user data to make available to the instance. +iilsUserData :: Lens' ImportInstanceLaunchSpecification (Maybe UserData) +iilsUserData = lens _iilsUserData (\ s a -> s{_iilsUserData = a}) + +-- | Indicates whether monitoring is enabled. +iilsMonitoring :: Lens' ImportInstanceLaunchSpecification (Maybe Bool) +iilsMonitoring = lens _iilsMonitoring (\ s a -> s{_iilsMonitoring = a}) + +-- | [EC2-VPC] An available IP address from the IP address range of the subnet. +iilsPrivateIPAddress :: Lens' ImportInstanceLaunchSpecification (Maybe Text) +iilsPrivateIPAddress = lens _iilsPrivateIPAddress (\ s a -> s{_iilsPrivateIPAddress = a}) + +-- | Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). +iilsInstanceInitiatedShutdownBehavior :: Lens' ImportInstanceLaunchSpecification (Maybe ShutdownBehavior) +iilsInstanceInitiatedShutdownBehavior = lens _iilsInstanceInitiatedShutdownBehavior (\ s a -> s{_iilsInstanceInitiatedShutdownBehavior = a}) + +-- | The architecture of the instance. +iilsArchitecture :: Lens' ImportInstanceLaunchSpecification (Maybe ArchitectureValues) +iilsArchitecture = lens _iilsArchitecture (\ s a -> s{_iilsArchitecture = a}) + +-- | The placement information for the instance. +iilsPlacement :: Lens' ImportInstanceLaunchSpecification (Maybe Placement) +iilsPlacement = lens _iilsPlacement (\ s a -> s{_iilsPlacement = a}) + +instance Hashable ImportInstanceLaunchSpecification + where + +instance NFData ImportInstanceLaunchSpecification + where + +instance ToQuery ImportInstanceLaunchSpecification + where + toQuery ImportInstanceLaunchSpecification'{..} + = mconcat + ["AdditionalInfo" =: _iilsAdditionalInfo, + toQuery + (toQueryList "GroupName" <$> _iilsGroupNames), + "SubnetId" =: _iilsSubnetId, + "InstanceType" =: _iilsInstanceType, + toQuery (toQueryList "GroupId" <$> _iilsGroupIds), + "UserData" =: _iilsUserData, + "Monitoring" =: _iilsMonitoring, + "PrivateIpAddress" =: _iilsPrivateIPAddress, + "InstanceInitiatedShutdownBehavior" =: + _iilsInstanceInitiatedShutdownBehavior, + "Architecture" =: _iilsArchitecture, + "Placement" =: _iilsPlacement] + +-- | Describes an import instance task. +-- +-- +-- +-- /See:/ 'importInstanceTaskDetails' smart constructor. +data ImportInstanceTaskDetails = ImportInstanceTaskDetails' + { _iitdInstanceId :: !(Maybe Text) + , _iitdPlatform :: !(Maybe PlatformValues) + , _iitdVolumes :: !(Maybe [ImportInstanceVolumeDetailItem]) + , _iitdDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ImportInstanceTaskDetails' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iitdInstanceId' - The ID of the instance. +-- +-- * 'iitdPlatform' - The instance operating system. +-- +-- * 'iitdVolumes' - One or more volumes. +-- +-- * 'iitdDescription' - A description of the task. +importInstanceTaskDetails + :: ImportInstanceTaskDetails +importInstanceTaskDetails = + ImportInstanceTaskDetails' + { _iitdInstanceId = Nothing + , _iitdPlatform = Nothing + , _iitdVolumes = Nothing + , _iitdDescription = Nothing + } + + +-- | The ID of the instance. +iitdInstanceId :: Lens' ImportInstanceTaskDetails (Maybe Text) +iitdInstanceId = lens _iitdInstanceId (\ s a -> s{_iitdInstanceId = a}) + +-- | The instance operating system. +iitdPlatform :: Lens' ImportInstanceTaskDetails (Maybe PlatformValues) +iitdPlatform = lens _iitdPlatform (\ s a -> s{_iitdPlatform = a}) + +-- | One or more volumes. +iitdVolumes :: Lens' ImportInstanceTaskDetails [ImportInstanceVolumeDetailItem] +iitdVolumes = lens _iitdVolumes (\ s a -> s{_iitdVolumes = a}) . _Default . _Coerce + +-- | A description of the task. +iitdDescription :: Lens' ImportInstanceTaskDetails (Maybe Text) +iitdDescription = lens _iitdDescription (\ s a -> s{_iitdDescription = a}) + +instance FromXML ImportInstanceTaskDetails where + parseXML x + = ImportInstanceTaskDetails' <$> + (x .@? "instanceId") <*> (x .@? "platform") <*> + (x .@? "volumes" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "description") + +instance Hashable ImportInstanceTaskDetails where + +instance NFData ImportInstanceTaskDetails where + +-- | Describes an import volume task. +-- +-- +-- +-- /See:/ 'importInstanceVolumeDetailItem' smart constructor. +data ImportInstanceVolumeDetailItem = ImportInstanceVolumeDetailItem' + { _iivdiStatusMessage :: !(Maybe Text) + , _iivdiDescription :: !(Maybe Text) + , _iivdiAvailabilityZone :: !Text + , _iivdiBytesConverted :: !Integer + , _iivdiImage :: !DiskImageDescription + , _iivdiStatus :: !Text + , _iivdiVolume :: !DiskImageVolumeDescription + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ImportInstanceVolumeDetailItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iivdiStatusMessage' - The status information or errors related to the disk image. +-- +-- * 'iivdiDescription' - A description of the task. +-- +-- * 'iivdiAvailabilityZone' - The Availability Zone where the resulting instance will reside. +-- +-- * 'iivdiBytesConverted' - The number of bytes converted so far. +-- +-- * 'iivdiImage' - The image. +-- +-- * 'iivdiStatus' - The status of the import of this particular disk image. +-- +-- * 'iivdiVolume' - The volume. +importInstanceVolumeDetailItem + :: Text -- ^ 'iivdiAvailabilityZone' + -> Integer -- ^ 'iivdiBytesConverted' + -> DiskImageDescription -- ^ 'iivdiImage' + -> Text -- ^ 'iivdiStatus' + -> DiskImageVolumeDescription -- ^ 'iivdiVolume' + -> ImportInstanceVolumeDetailItem +importInstanceVolumeDetailItem pAvailabilityZone_ pBytesConverted_ pImage_ pStatus_ pVolume_ = + ImportInstanceVolumeDetailItem' + { _iivdiStatusMessage = Nothing + , _iivdiDescription = Nothing + , _iivdiAvailabilityZone = pAvailabilityZone_ + , _iivdiBytesConverted = pBytesConverted_ + , _iivdiImage = pImage_ + , _iivdiStatus = pStatus_ + , _iivdiVolume = pVolume_ + } + + +-- | The status information or errors related to the disk image. +iivdiStatusMessage :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) +iivdiStatusMessage = lens _iivdiStatusMessage (\ s a -> s{_iivdiStatusMessage = a}) + +-- | A description of the task. +iivdiDescription :: Lens' ImportInstanceVolumeDetailItem (Maybe Text) +iivdiDescription = lens _iivdiDescription (\ s a -> s{_iivdiDescription = a}) + +-- | The Availability Zone where the resulting instance will reside. +iivdiAvailabilityZone :: Lens' ImportInstanceVolumeDetailItem Text +iivdiAvailabilityZone = lens _iivdiAvailabilityZone (\ s a -> s{_iivdiAvailabilityZone = a}) + +-- | The number of bytes converted so far. +iivdiBytesConverted :: Lens' ImportInstanceVolumeDetailItem Integer +iivdiBytesConverted = lens _iivdiBytesConverted (\ s a -> s{_iivdiBytesConverted = a}) + +-- | The image. +iivdiImage :: Lens' ImportInstanceVolumeDetailItem DiskImageDescription +iivdiImage = lens _iivdiImage (\ s a -> s{_iivdiImage = a}) + +-- | The status of the import of this particular disk image. +iivdiStatus :: Lens' ImportInstanceVolumeDetailItem Text +iivdiStatus = lens _iivdiStatus (\ s a -> s{_iivdiStatus = a}) + +-- | The volume. +iivdiVolume :: Lens' ImportInstanceVolumeDetailItem DiskImageVolumeDescription +iivdiVolume = lens _iivdiVolume (\ s a -> s{_iivdiVolume = a}) + +instance FromXML ImportInstanceVolumeDetailItem where + parseXML x + = ImportInstanceVolumeDetailItem' <$> + (x .@? "statusMessage") <*> (x .@? "description") <*> + (x .@ "availabilityZone") + <*> (x .@ "bytesConverted") + <*> (x .@ "image") + <*> (x .@ "status") + <*> (x .@ "volume") + +instance Hashable ImportInstanceVolumeDetailItem + where + +instance NFData ImportInstanceVolumeDetailItem where + +-- | Describes an import snapshot task. +-- +-- +-- +-- /See:/ 'importSnapshotTask' smart constructor. +data ImportSnapshotTask = ImportSnapshotTask' + { _istSnapshotTaskDetail :: !(Maybe SnapshotTaskDetail) + , _istImportTaskId :: !(Maybe Text) + , _istDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ImportSnapshotTask' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'istSnapshotTaskDetail' - Describes an import snapshot task. +-- +-- * 'istImportTaskId' - The ID of the import snapshot task. +-- +-- * 'istDescription' - A description of the import snapshot task. +importSnapshotTask + :: ImportSnapshotTask +importSnapshotTask = + ImportSnapshotTask' + { _istSnapshotTaskDetail = Nothing + , _istImportTaskId = Nothing + , _istDescription = Nothing + } + + +-- | Describes an import snapshot task. +istSnapshotTaskDetail :: Lens' ImportSnapshotTask (Maybe SnapshotTaskDetail) +istSnapshotTaskDetail = lens _istSnapshotTaskDetail (\ s a -> s{_istSnapshotTaskDetail = a}) + +-- | The ID of the import snapshot task. +istImportTaskId :: Lens' ImportSnapshotTask (Maybe Text) +istImportTaskId = lens _istImportTaskId (\ s a -> s{_istImportTaskId = a}) + +-- | A description of the import snapshot task. +istDescription :: Lens' ImportSnapshotTask (Maybe Text) +istDescription = lens _istDescription (\ s a -> s{_istDescription = a}) + +instance FromXML ImportSnapshotTask where + parseXML x + = ImportSnapshotTask' <$> + (x .@? "snapshotTaskDetail") <*> + (x .@? "importTaskId") + <*> (x .@? "description") + +instance Hashable ImportSnapshotTask where + +instance NFData ImportSnapshotTask where + +-- | Describes an import volume task. +-- +-- +-- +-- /See:/ 'importVolumeTaskDetails' smart constructor. +data ImportVolumeTaskDetails = ImportVolumeTaskDetails' + { _ivtdBytesConverted :: !(Maybe Integer) + , _ivtdImage :: !(Maybe DiskImageDescription) + , _ivtdVolume :: !(Maybe DiskImageVolumeDescription) + , _ivtdAvailabilityZone :: !(Maybe Text) + , _ivtdDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ImportVolumeTaskDetails' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ivtdBytesConverted' - The number of bytes converted so far. +-- +-- * 'ivtdImage' - The image. +-- +-- * 'ivtdVolume' - The volume. +-- +-- * 'ivtdAvailabilityZone' - The Availability Zone where the resulting volume will reside. +-- +-- * 'ivtdDescription' - The description you provided when starting the import volume task. +importVolumeTaskDetails + :: ImportVolumeTaskDetails +importVolumeTaskDetails = + ImportVolumeTaskDetails' + { _ivtdBytesConverted = Nothing + , _ivtdImage = Nothing + , _ivtdVolume = Nothing + , _ivtdAvailabilityZone = Nothing + , _ivtdDescription = Nothing + } + + +-- | The number of bytes converted so far. +ivtdBytesConverted :: Lens' ImportVolumeTaskDetails (Maybe Integer) +ivtdBytesConverted = lens _ivtdBytesConverted (\ s a -> s{_ivtdBytesConverted = a}) + +-- | The image. +ivtdImage :: Lens' ImportVolumeTaskDetails (Maybe DiskImageDescription) +ivtdImage = lens _ivtdImage (\ s a -> s{_ivtdImage = a}) + +-- | The volume. +ivtdVolume :: Lens' ImportVolumeTaskDetails (Maybe DiskImageVolumeDescription) +ivtdVolume = lens _ivtdVolume (\ s a -> s{_ivtdVolume = a}) + +-- | The Availability Zone where the resulting volume will reside. +ivtdAvailabilityZone :: Lens' ImportVolumeTaskDetails (Maybe Text) +ivtdAvailabilityZone = lens _ivtdAvailabilityZone (\ s a -> s{_ivtdAvailabilityZone = a}) + +-- | The description you provided when starting the import volume task. +ivtdDescription :: Lens' ImportVolumeTaskDetails (Maybe Text) +ivtdDescription = lens _ivtdDescription (\ s a -> s{_ivtdDescription = a}) + +instance FromXML ImportVolumeTaskDetails where + parseXML x + = ImportVolumeTaskDetails' <$> + (x .@? "bytesConverted") <*> (x .@? "image") <*> + (x .@? "volume") + <*> (x .@? "availabilityZone") + <*> (x .@? "description") + +instance Hashable ImportVolumeTaskDetails where + +instance NFData ImportVolumeTaskDetails where + +-- | Describes an instance. +-- +-- +-- +-- /See:/ 'instance'' smart constructor. +data Instance = Instance' + { _insPublicDNSName :: !(Maybe Text) + , _insPlatform :: !(Maybe PlatformValues) + , _insSecurityGroups :: !(Maybe [GroupIdentifier]) + , _insClientToken :: !(Maybe Text) + , _insEnaSupport :: !(Maybe Bool) + , _insSourceDestCheck :: !(Maybe Bool) + , _insElasticGpuAssociations :: !(Maybe [ElasticGpuAssociation]) + , _insVPCId :: !(Maybe Text) + , _insKeyName :: !(Maybe Text) + , _insNetworkInterfaces :: !(Maybe [InstanceNetworkInterface]) + , _insRAMDiskId :: !(Maybe Text) + , _insCPUOptions :: !(Maybe CPUOptions) + , _insSubnetId :: !(Maybe Text) + , _insKernelId :: !(Maybe Text) + , _insRootDeviceName :: !(Maybe Text) + , _insSRIOVNetSupport :: !(Maybe Text) + , _insEBSOptimized :: !(Maybe Bool) + , _insStateTransitionReason :: !(Maybe Text) + , _insInstanceLifecycle :: !(Maybe InstanceLifecycleType) + , _insIAMInstanceProfile :: !(Maybe IAMInstanceProfile) + , _insPrivateIPAddress :: !(Maybe Text) + , _insProductCodes :: !(Maybe [ProductCode]) + , _insSpotInstanceRequestId :: !(Maybe Text) + , _insPrivateDNSName :: !(Maybe Text) + , _insStateReason :: !(Maybe StateReason) + , _insBlockDeviceMappings :: !(Maybe [InstanceBlockDeviceMapping]) + , _insPublicIPAddress :: !(Maybe Text) + , _insTags :: !(Maybe [Tag]) + , _insInstanceId :: !Text + , _insImageId :: !Text + , _insAMILaunchIndex :: !Int + , _insInstanceType :: !InstanceType + , _insLaunchTime :: !ISO8601 + , _insPlacement :: !Placement + , _insMonitoring :: !Monitoring + , _insArchitecture :: !ArchitectureValues + , _insRootDeviceType :: !DeviceType + , _insVirtualizationType :: !VirtualizationType + , _insHypervisor :: !HypervisorType + , _insState :: !InstanceState + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Instance' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'insPublicDNSName' - (IPv4 only) The public DNS name assigned to the instance. This name is not available until the instance enters the @running@ state. For EC2-VPC, this name is only available if you've enabled DNS hostnames for your VPC. +-- +-- * 'insPlatform' - The value is @Windows@ for Windows instances; otherwise blank. +-- +-- * 'insSecurityGroups' - One or more security groups for the instance. +-- +-- * 'insClientToken' - The idempotency token you provided when you launched the instance, if applicable. +-- +-- * 'insEnaSupport' - Specifies whether enhanced networking with ENA is enabled. +-- +-- * 'insSourceDestCheck' - Specifies whether to enable an instance launched in a VPC to perform NAT. This controls whether source/destination checking is enabled on the instance. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. The value must be @false@ for the instance to perform NAT. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . +-- +-- * 'insElasticGpuAssociations' - The Elastic GPU associated with the instance. +-- +-- * 'insVPCId' - [EC2-VPC] The ID of the VPC in which the instance is running. +-- +-- * 'insKeyName' - The name of the key pair, if this instance was launched with an associated key pair. +-- +-- * 'insNetworkInterfaces' - [EC2-VPC] One or more network interfaces for the instance. +-- +-- * 'insRAMDiskId' - The RAM disk associated with this instance, if applicable. +-- +-- * 'insCPUOptions' - The CPU options for the instance. +-- +-- * 'insSubnetId' - [EC2-VPC] The ID of the subnet in which the instance is running. +-- +-- * 'insKernelId' - The kernel associated with this instance, if applicable. +-- +-- * 'insRootDeviceName' - The device name of the root device volume (for example, @/dev/sda1@ ). +-- +-- * 'insSRIOVNetSupport' - Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. +-- +-- * 'insEBSOptimized' - Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. +-- +-- * 'insStateTransitionReason' - The reason for the most recent state transition. This might be an empty string. +-- +-- * 'insInstanceLifecycle' - Indicates whether this is a Spot Instance or a Scheduled Instance. +-- +-- * 'insIAMInstanceProfile' - The IAM instance profile associated with the instance, if applicable. +-- +-- * 'insPrivateIPAddress' - The private IPv4 address assigned to the instance. +-- +-- * 'insProductCodes' - The product codes attached to this instance, if applicable. +-- +-- * 'insSpotInstanceRequestId' - If the request is a Spot Instance request, the ID of the request. +-- +-- * 'insPrivateDNSName' - (IPv4 only) The private DNS hostname name assigned to the instance. This DNS hostname can only be used inside the Amazon EC2 network. This name is not available until the instance enters the @running@ state. [EC2-VPC] The Amazon-provided DNS server resolves Amazon-provided private DNS hostnames if you've enabled DNS resolution and DNS hostnames in your VPC. If you are not using the Amazon-provided DNS server in your VPC, your custom domain name servers must resolve the hostname as appropriate. +-- +-- * 'insStateReason' - The reason for the most recent state transition. +-- +-- * 'insBlockDeviceMappings' - Any block device mapping entries for the instance. +-- +-- * 'insPublicIPAddress' - The public IPv4 address assigned to the instance, if applicable. +-- +-- * 'insTags' - Any tags assigned to the instance. +-- +-- * 'insInstanceId' - The ID of the instance. +-- +-- * 'insImageId' - The ID of the AMI used to launch the instance. +-- +-- * 'insAMILaunchIndex' - The AMI launch index, which can be used to find this instance in the launch group. +-- +-- * 'insInstanceType' - The instance type. +-- +-- * 'insLaunchTime' - The time the instance was launched. +-- +-- * 'insPlacement' - The location where the instance launched, if applicable. +-- +-- * 'insMonitoring' - The monitoring for the instance. +-- +-- * 'insArchitecture' - The architecture of the image. +-- +-- * 'insRootDeviceType' - The root device type used by the AMI. The AMI can use an EBS volume or an instance store volume. +-- +-- * 'insVirtualizationType' - The virtualization type of the instance. +-- +-- * 'insHypervisor' - The hypervisor type of the instance. +-- +-- * 'insState' - The current state of the instance. +instance' + :: Text -- ^ 'insInstanceId' + -> Text -- ^ 'insImageId' + -> Int -- ^ 'insAMILaunchIndex' + -> InstanceType -- ^ 'insInstanceType' + -> UTCTime -- ^ 'insLaunchTime' + -> Placement -- ^ 'insPlacement' + -> Monitoring -- ^ 'insMonitoring' + -> ArchitectureValues -- ^ 'insArchitecture' + -> DeviceType -- ^ 'insRootDeviceType' + -> VirtualizationType -- ^ 'insVirtualizationType' + -> HypervisorType -- ^ 'insHypervisor' + -> InstanceState -- ^ 'insState' + -> Instance +instance' pInstanceId_ pImageId_ pAMILaunchIndex_ pInstanceType_ pLaunchTime_ pPlacement_ pMonitoring_ pArchitecture_ pRootDeviceType_ pVirtualizationType_ pHypervisor_ pState_ = + Instance' + { _insPublicDNSName = Nothing + , _insPlatform = Nothing + , _insSecurityGroups = Nothing + , _insClientToken = Nothing + , _insEnaSupport = Nothing + , _insSourceDestCheck = Nothing + , _insElasticGpuAssociations = Nothing + , _insVPCId = Nothing + , _insKeyName = Nothing + , _insNetworkInterfaces = Nothing + , _insRAMDiskId = Nothing + , _insCPUOptions = Nothing + , _insSubnetId = Nothing + , _insKernelId = Nothing + , _insRootDeviceName = Nothing + , _insSRIOVNetSupport = Nothing + , _insEBSOptimized = Nothing + , _insStateTransitionReason = Nothing + , _insInstanceLifecycle = Nothing + , _insIAMInstanceProfile = Nothing + , _insPrivateIPAddress = Nothing + , _insProductCodes = Nothing + , _insSpotInstanceRequestId = Nothing + , _insPrivateDNSName = Nothing + , _insStateReason = Nothing + , _insBlockDeviceMappings = Nothing + , _insPublicIPAddress = Nothing + , _insTags = Nothing + , _insInstanceId = pInstanceId_ + , _insImageId = pImageId_ + , _insAMILaunchIndex = pAMILaunchIndex_ + , _insInstanceType = pInstanceType_ + , _insLaunchTime = _Time # pLaunchTime_ + , _insPlacement = pPlacement_ + , _insMonitoring = pMonitoring_ + , _insArchitecture = pArchitecture_ + , _insRootDeviceType = pRootDeviceType_ + , _insVirtualizationType = pVirtualizationType_ + , _insHypervisor = pHypervisor_ + , _insState = pState_ + } + + +-- | (IPv4 only) The public DNS name assigned to the instance. This name is not available until the instance enters the @running@ state. For EC2-VPC, this name is only available if you've enabled DNS hostnames for your VPC. +insPublicDNSName :: Lens' Instance (Maybe Text) +insPublicDNSName = lens _insPublicDNSName (\ s a -> s{_insPublicDNSName = a}) + +-- | The value is @Windows@ for Windows instances; otherwise blank. +insPlatform :: Lens' Instance (Maybe PlatformValues) +insPlatform = lens _insPlatform (\ s a -> s{_insPlatform = a}) + +-- | One or more security groups for the instance. +insSecurityGroups :: Lens' Instance [GroupIdentifier] +insSecurityGroups = lens _insSecurityGroups (\ s a -> s{_insSecurityGroups = a}) . _Default . _Coerce + +-- | The idempotency token you provided when you launched the instance, if applicable. +insClientToken :: Lens' Instance (Maybe Text) +insClientToken = lens _insClientToken (\ s a -> s{_insClientToken = a}) + +-- | Specifies whether enhanced networking with ENA is enabled. +insEnaSupport :: Lens' Instance (Maybe Bool) +insEnaSupport = lens _insEnaSupport (\ s a -> s{_insEnaSupport = a}) + +-- | Specifies whether to enable an instance launched in a VPC to perform NAT. This controls whether source/destination checking is enabled on the instance. A value of @true@ means that checking is enabled, and @false@ means that checking is disabled. The value must be @false@ for the instance to perform NAT. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . +insSourceDestCheck :: Lens' Instance (Maybe Bool) +insSourceDestCheck = lens _insSourceDestCheck (\ s a -> s{_insSourceDestCheck = a}) + +-- | The Elastic GPU associated with the instance. +insElasticGpuAssociations :: Lens' Instance [ElasticGpuAssociation] +insElasticGpuAssociations = lens _insElasticGpuAssociations (\ s a -> s{_insElasticGpuAssociations = a}) . _Default . _Coerce + +-- | [EC2-VPC] The ID of the VPC in which the instance is running. +insVPCId :: Lens' Instance (Maybe Text) +insVPCId = lens _insVPCId (\ s a -> s{_insVPCId = a}) + +-- | The name of the key pair, if this instance was launched with an associated key pair. +insKeyName :: Lens' Instance (Maybe Text) +insKeyName = lens _insKeyName (\ s a -> s{_insKeyName = a}) + +-- | [EC2-VPC] One or more network interfaces for the instance. +insNetworkInterfaces :: Lens' Instance [InstanceNetworkInterface] +insNetworkInterfaces = lens _insNetworkInterfaces (\ s a -> s{_insNetworkInterfaces = a}) . _Default . _Coerce + +-- | The RAM disk associated with this instance, if applicable. +insRAMDiskId :: Lens' Instance (Maybe Text) +insRAMDiskId = lens _insRAMDiskId (\ s a -> s{_insRAMDiskId = a}) + +-- | The CPU options for the instance. +insCPUOptions :: Lens' Instance (Maybe CPUOptions) +insCPUOptions = lens _insCPUOptions (\ s a -> s{_insCPUOptions = a}) + +-- | [EC2-VPC] The ID of the subnet in which the instance is running. +insSubnetId :: Lens' Instance (Maybe Text) +insSubnetId = lens _insSubnetId (\ s a -> s{_insSubnetId = a}) + +-- | The kernel associated with this instance, if applicable. +insKernelId :: Lens' Instance (Maybe Text) +insKernelId = lens _insKernelId (\ s a -> s{_insKernelId = a}) + +-- | The device name of the root device volume (for example, @/dev/sda1@ ). +insRootDeviceName :: Lens' Instance (Maybe Text) +insRootDeviceName = lens _insRootDeviceName (\ s a -> s{_insRootDeviceName = a}) + +-- | Specifies whether enhanced networking with the Intel 82599 Virtual Function interface is enabled. +insSRIOVNetSupport :: Lens' Instance (Maybe Text) +insSRIOVNetSupport = lens _insSRIOVNetSupport (\ s a -> s{_insSRIOVNetSupport = a}) + +-- | Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. +insEBSOptimized :: Lens' Instance (Maybe Bool) +insEBSOptimized = lens _insEBSOptimized (\ s a -> s{_insEBSOptimized = a}) + +-- | The reason for the most recent state transition. This might be an empty string. +insStateTransitionReason :: Lens' Instance (Maybe Text) +insStateTransitionReason = lens _insStateTransitionReason (\ s a -> s{_insStateTransitionReason = a}) + +-- | Indicates whether this is a Spot Instance or a Scheduled Instance. +insInstanceLifecycle :: Lens' Instance (Maybe InstanceLifecycleType) +insInstanceLifecycle = lens _insInstanceLifecycle (\ s a -> s{_insInstanceLifecycle = a}) + +-- | The IAM instance profile associated with the instance, if applicable. +insIAMInstanceProfile :: Lens' Instance (Maybe IAMInstanceProfile) +insIAMInstanceProfile = lens _insIAMInstanceProfile (\ s a -> s{_insIAMInstanceProfile = a}) + +-- | The private IPv4 address assigned to the instance. +insPrivateIPAddress :: Lens' Instance (Maybe Text) +insPrivateIPAddress = lens _insPrivateIPAddress (\ s a -> s{_insPrivateIPAddress = a}) + +-- | The product codes attached to this instance, if applicable. +insProductCodes :: Lens' Instance [ProductCode] +insProductCodes = lens _insProductCodes (\ s a -> s{_insProductCodes = a}) . _Default . _Coerce + +-- | If the request is a Spot Instance request, the ID of the request. +insSpotInstanceRequestId :: Lens' Instance (Maybe Text) +insSpotInstanceRequestId = lens _insSpotInstanceRequestId (\ s a -> s{_insSpotInstanceRequestId = a}) + +-- | (IPv4 only) The private DNS hostname name assigned to the instance. This DNS hostname can only be used inside the Amazon EC2 network. This name is not available until the instance enters the @running@ state. [EC2-VPC] The Amazon-provided DNS server resolves Amazon-provided private DNS hostnames if you've enabled DNS resolution and DNS hostnames in your VPC. If you are not using the Amazon-provided DNS server in your VPC, your custom domain name servers must resolve the hostname as appropriate. +insPrivateDNSName :: Lens' Instance (Maybe Text) +insPrivateDNSName = lens _insPrivateDNSName (\ s a -> s{_insPrivateDNSName = a}) + +-- | The reason for the most recent state transition. +insStateReason :: Lens' Instance (Maybe StateReason) +insStateReason = lens _insStateReason (\ s a -> s{_insStateReason = a}) + +-- | Any block device mapping entries for the instance. +insBlockDeviceMappings :: Lens' Instance [InstanceBlockDeviceMapping] +insBlockDeviceMappings = lens _insBlockDeviceMappings (\ s a -> s{_insBlockDeviceMappings = a}) . _Default . _Coerce + +-- | The public IPv4 address assigned to the instance, if applicable. +insPublicIPAddress :: Lens' Instance (Maybe Text) +insPublicIPAddress = lens _insPublicIPAddress (\ s a -> s{_insPublicIPAddress = a}) + +-- | Any tags assigned to the instance. +insTags :: Lens' Instance [Tag] +insTags = lens _insTags (\ s a -> s{_insTags = a}) . _Default . _Coerce + +-- | The ID of the instance. +insInstanceId :: Lens' Instance Text +insInstanceId = lens _insInstanceId (\ s a -> s{_insInstanceId = a}) + +-- | The ID of the AMI used to launch the instance. +insImageId :: Lens' Instance Text +insImageId = lens _insImageId (\ s a -> s{_insImageId = a}) + +-- | The AMI launch index, which can be used to find this instance in the launch group. +insAMILaunchIndex :: Lens' Instance Int +insAMILaunchIndex = lens _insAMILaunchIndex (\ s a -> s{_insAMILaunchIndex = a}) + +-- | The instance type. +insInstanceType :: Lens' Instance InstanceType +insInstanceType = lens _insInstanceType (\ s a -> s{_insInstanceType = a}) + +-- | The time the instance was launched. +insLaunchTime :: Lens' Instance UTCTime +insLaunchTime = lens _insLaunchTime (\ s a -> s{_insLaunchTime = a}) . _Time + +-- | The location where the instance launched, if applicable. +insPlacement :: Lens' Instance Placement +insPlacement = lens _insPlacement (\ s a -> s{_insPlacement = a}) + +-- | The monitoring for the instance. +insMonitoring :: Lens' Instance Monitoring +insMonitoring = lens _insMonitoring (\ s a -> s{_insMonitoring = a}) + +-- | The architecture of the image. +insArchitecture :: Lens' Instance ArchitectureValues +insArchitecture = lens _insArchitecture (\ s a -> s{_insArchitecture = a}) + +-- | The root device type used by the AMI. The AMI can use an EBS volume or an instance store volume. +insRootDeviceType :: Lens' Instance DeviceType +insRootDeviceType = lens _insRootDeviceType (\ s a -> s{_insRootDeviceType = a}) + +-- | The virtualization type of the instance. +insVirtualizationType :: Lens' Instance VirtualizationType +insVirtualizationType = lens _insVirtualizationType (\ s a -> s{_insVirtualizationType = a}) + +-- | The hypervisor type of the instance. +insHypervisor :: Lens' Instance HypervisorType +insHypervisor = lens _insHypervisor (\ s a -> s{_insHypervisor = a}) + +-- | The current state of the instance. +insState :: Lens' Instance InstanceState +insState = lens _insState (\ s a -> s{_insState = a}) + +instance FromXML Instance where + parseXML x + = Instance' <$> + (x .@? "dnsName") <*> (x .@? "platform") <*> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "clientToken") + <*> (x .@? "enaSupport") + <*> (x .@? "sourceDestCheck") + <*> + (x .@? "elasticGpuAssociationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpcId") + <*> (x .@? "keyName") + <*> + (x .@? "networkInterfaceSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "ramdiskId") + <*> (x .@? "cpuOptions") + <*> (x .@? "subnetId") + <*> (x .@? "kernelId") + <*> (x .@? "rootDeviceName") + <*> (x .@? "sriovNetSupport") + <*> (x .@? "ebsOptimized") + <*> (x .@? "reason") + <*> (x .@? "instanceLifecycle") + <*> (x .@? "iamInstanceProfile") + <*> (x .@? "privateIpAddress") + <*> + (x .@? "productCodes" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "spotInstanceRequestId") + <*> (x .@? "privateDnsName") + <*> (x .@? "stateReason") + <*> + (x .@? "blockDeviceMapping" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "ipAddress") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "instanceId") + <*> (x .@ "imageId") + <*> (x .@ "amiLaunchIndex") + <*> (x .@ "instanceType") + <*> (x .@ "launchTime") + <*> (x .@ "placement") + <*> (x .@ "monitoring") + <*> (x .@ "architecture") + <*> (x .@ "rootDeviceType") + <*> (x .@ "virtualizationType") + <*> (x .@ "hypervisor") + <*> (x .@ "instanceState") + +instance Hashable Instance where + +instance NFData Instance where + +-- | Describes a block device mapping. +-- +-- +-- +-- /See:/ 'instanceBlockDeviceMapping' smart constructor. +data InstanceBlockDeviceMapping = InstanceBlockDeviceMapping' + { _ibdmEBS :: !(Maybe EBSInstanceBlockDevice) + , _ibdmDeviceName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceBlockDeviceMapping' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ibdmEBS' - Parameters used to automatically set up EBS volumes when the instance is launched. +-- +-- * 'ibdmDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). +instanceBlockDeviceMapping + :: InstanceBlockDeviceMapping +instanceBlockDeviceMapping = + InstanceBlockDeviceMapping' {_ibdmEBS = Nothing, _ibdmDeviceName = Nothing} + + +-- | Parameters used to automatically set up EBS volumes when the instance is launched. +ibdmEBS :: Lens' InstanceBlockDeviceMapping (Maybe EBSInstanceBlockDevice) +ibdmEBS = lens _ibdmEBS (\ s a -> s{_ibdmEBS = a}) + +-- | The device name (for example, @/dev/sdh@ or @xvdh@ ). +ibdmDeviceName :: Lens' InstanceBlockDeviceMapping (Maybe Text) +ibdmDeviceName = lens _ibdmDeviceName (\ s a -> s{_ibdmDeviceName = a}) + +instance FromXML InstanceBlockDeviceMapping where + parseXML x + = InstanceBlockDeviceMapping' <$> + (x .@? "ebs") <*> (x .@? "deviceName") + +instance Hashable InstanceBlockDeviceMapping where + +instance NFData InstanceBlockDeviceMapping where + +-- | Describes a block device mapping entry. +-- +-- +-- +-- /See:/ 'instanceBlockDeviceMappingSpecification' smart constructor. +data InstanceBlockDeviceMappingSpecification = InstanceBlockDeviceMappingSpecification' + { _ibdmsVirtualName :: !(Maybe Text) + , _ibdmsNoDevice :: !(Maybe Text) + , _ibdmsEBS :: !(Maybe EBSInstanceBlockDeviceSpecification) + , _ibdmsDeviceName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceBlockDeviceMappingSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ibdmsVirtualName' - The virtual device name. +-- +-- * 'ibdmsNoDevice' - suppress the specified device included in the block device mapping. +-- +-- * 'ibdmsEBS' - Parameters used to automatically set up EBS volumes when the instance is launched. +-- +-- * 'ibdmsDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). +instanceBlockDeviceMappingSpecification + :: InstanceBlockDeviceMappingSpecification +instanceBlockDeviceMappingSpecification = + InstanceBlockDeviceMappingSpecification' + { _ibdmsVirtualName = Nothing + , _ibdmsNoDevice = Nothing + , _ibdmsEBS = Nothing + , _ibdmsDeviceName = Nothing + } + + +-- | The virtual device name. +ibdmsVirtualName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) +ibdmsVirtualName = lens _ibdmsVirtualName (\ s a -> s{_ibdmsVirtualName = a}) + +-- | suppress the specified device included in the block device mapping. +ibdmsNoDevice :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) +ibdmsNoDevice = lens _ibdmsNoDevice (\ s a -> s{_ibdmsNoDevice = a}) + +-- | Parameters used to automatically set up EBS volumes when the instance is launched. +ibdmsEBS :: Lens' InstanceBlockDeviceMappingSpecification (Maybe EBSInstanceBlockDeviceSpecification) +ibdmsEBS = lens _ibdmsEBS (\ s a -> s{_ibdmsEBS = a}) + +-- | The device name (for example, @/dev/sdh@ or @xvdh@ ). +ibdmsDeviceName :: Lens' InstanceBlockDeviceMappingSpecification (Maybe Text) +ibdmsDeviceName = lens _ibdmsDeviceName (\ s a -> s{_ibdmsDeviceName = a}) + +instance Hashable + InstanceBlockDeviceMappingSpecification + where + +instance NFData + InstanceBlockDeviceMappingSpecification + where + +instance ToQuery + InstanceBlockDeviceMappingSpecification + where + toQuery InstanceBlockDeviceMappingSpecification'{..} + = mconcat + ["VirtualName" =: _ibdmsVirtualName, + "NoDevice" =: _ibdmsNoDevice, "Ebs" =: _ibdmsEBS, + "DeviceName" =: _ibdmsDeviceName] + +-- | Information about the instance type that the Dedicated Host supports. +-- +-- +-- +-- /See:/ 'instanceCapacity' smart constructor. +data InstanceCapacity = InstanceCapacity' + { _icAvailableCapacity :: !(Maybe Int) + , _icInstanceType :: !(Maybe Text) + , _icTotalCapacity :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceCapacity' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'icAvailableCapacity' - The number of instances that can still be launched onto the Dedicated Host. +-- +-- * 'icInstanceType' - The instance type size supported by the Dedicated Host. +-- +-- * 'icTotalCapacity' - The total number of instances that can be launched onto the Dedicated Host. +instanceCapacity + :: InstanceCapacity +instanceCapacity = + InstanceCapacity' + { _icAvailableCapacity = Nothing + , _icInstanceType = Nothing + , _icTotalCapacity = Nothing + } + + +-- | The number of instances that can still be launched onto the Dedicated Host. +icAvailableCapacity :: Lens' InstanceCapacity (Maybe Int) +icAvailableCapacity = lens _icAvailableCapacity (\ s a -> s{_icAvailableCapacity = a}) + +-- | The instance type size supported by the Dedicated Host. +icInstanceType :: Lens' InstanceCapacity (Maybe Text) +icInstanceType = lens _icInstanceType (\ s a -> s{_icInstanceType = a}) + +-- | The total number of instances that can be launched onto the Dedicated Host. +icTotalCapacity :: Lens' InstanceCapacity (Maybe Int) +icTotalCapacity = lens _icTotalCapacity (\ s a -> s{_icTotalCapacity = a}) + +instance FromXML InstanceCapacity where + parseXML x + = InstanceCapacity' <$> + (x .@? "availableCapacity") <*> + (x .@? "instanceType") + <*> (x .@? "totalCapacity") + +instance Hashable InstanceCapacity where + +instance NFData InstanceCapacity where + +-- | Describes a Reserved Instance listing state. +-- +-- +-- +-- /See:/ 'instanceCount' smart constructor. +data InstanceCount = InstanceCount' + { _icState :: !(Maybe ListingState) + , _icInstanceCount :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceCount' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'icState' - The states of the listed Reserved Instances. +-- +-- * 'icInstanceCount' - The number of listed Reserved Instances in the state specified by the @state@ . +instanceCount + :: InstanceCount +instanceCount = InstanceCount' {_icState = Nothing, _icInstanceCount = Nothing} + + +-- | The states of the listed Reserved Instances. +icState :: Lens' InstanceCount (Maybe ListingState) +icState = lens _icState (\ s a -> s{_icState = a}) + +-- | The number of listed Reserved Instances in the state specified by the @state@ . +icInstanceCount :: Lens' InstanceCount (Maybe Int) +icInstanceCount = lens _icInstanceCount (\ s a -> s{_icInstanceCount = a}) + +instance FromXML InstanceCount where + parseXML x + = InstanceCount' <$> + (x .@? "state") <*> (x .@? "instanceCount") + +instance Hashable InstanceCount where + +instance NFData InstanceCount where + +-- | Describes the credit option for CPU usage of a T2 instance. +-- +-- +-- +-- /See:/ 'instanceCreditSpecification' smart constructor. +data InstanceCreditSpecification = InstanceCreditSpecification' + { _icsInstanceId :: !(Maybe Text) + , _icsCPUCredits :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceCreditSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'icsInstanceId' - The ID of the instance. +-- +-- * 'icsCPUCredits' - The credit option for CPU usage of the instance. Valid values are @standard@ and @unlimited@ . +instanceCreditSpecification + :: InstanceCreditSpecification +instanceCreditSpecification = + InstanceCreditSpecification' + {_icsInstanceId = Nothing, _icsCPUCredits = Nothing} + + +-- | The ID of the instance. +icsInstanceId :: Lens' InstanceCreditSpecification (Maybe Text) +icsInstanceId = lens _icsInstanceId (\ s a -> s{_icsInstanceId = a}) + +-- | The credit option for CPU usage of the instance. Valid values are @standard@ and @unlimited@ . +icsCPUCredits :: Lens' InstanceCreditSpecification (Maybe Text) +icsCPUCredits = lens _icsCPUCredits (\ s a -> s{_icsCPUCredits = a}) + +instance FromXML InstanceCreditSpecification where + parseXML x + = InstanceCreditSpecification' <$> + (x .@? "instanceId") <*> (x .@? "cpuCredits") + +instance Hashable InstanceCreditSpecification where + +instance NFData InstanceCreditSpecification where + +-- | Describes the credit option for CPU usage of a T2 instance. +-- +-- +-- +-- /See:/ 'instanceCreditSpecificationRequest' smart constructor. +data InstanceCreditSpecificationRequest = InstanceCreditSpecificationRequest' + { _icsrInstanceId :: !(Maybe Text) + , _icsrCPUCredits :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceCreditSpecificationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'icsrInstanceId' - The ID of the instance. +-- +-- * 'icsrCPUCredits' - The credit option for CPU usage of the instance. Valid values are @standard@ and @unlimited@ . +instanceCreditSpecificationRequest + :: InstanceCreditSpecificationRequest +instanceCreditSpecificationRequest = + InstanceCreditSpecificationRequest' + {_icsrInstanceId = Nothing, _icsrCPUCredits = Nothing} + + +-- | The ID of the instance. +icsrInstanceId :: Lens' InstanceCreditSpecificationRequest (Maybe Text) +icsrInstanceId = lens _icsrInstanceId (\ s a -> s{_icsrInstanceId = a}) + +-- | The credit option for CPU usage of the instance. Valid values are @standard@ and @unlimited@ . +icsrCPUCredits :: Lens' InstanceCreditSpecificationRequest (Maybe Text) +icsrCPUCredits = lens _icsrCPUCredits (\ s a -> s{_icsrCPUCredits = a}) + +instance Hashable InstanceCreditSpecificationRequest + where + +instance NFData InstanceCreditSpecificationRequest + where + +instance ToQuery InstanceCreditSpecificationRequest + where + toQuery InstanceCreditSpecificationRequest'{..} + = mconcat + ["InstanceId" =: _icsrInstanceId, + "CpuCredits" =: _icsrCPUCredits] + +-- | Describes an instance to export. +-- +-- +-- +-- /See:/ 'instanceExportDetails' smart constructor. +data InstanceExportDetails = InstanceExportDetails' + { _iedTargetEnvironment :: !(Maybe ExportEnvironment) + , _iedInstanceId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceExportDetails' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iedTargetEnvironment' - The target virtualization environment. +-- +-- * 'iedInstanceId' - The ID of the resource being exported. +instanceExportDetails + :: InstanceExportDetails +instanceExportDetails = + InstanceExportDetails' + {_iedTargetEnvironment = Nothing, _iedInstanceId = Nothing} + + +-- | The target virtualization environment. +iedTargetEnvironment :: Lens' InstanceExportDetails (Maybe ExportEnvironment) +iedTargetEnvironment = lens _iedTargetEnvironment (\ s a -> s{_iedTargetEnvironment = a}) + +-- | The ID of the resource being exported. +iedInstanceId :: Lens' InstanceExportDetails (Maybe Text) +iedInstanceId = lens _iedInstanceId (\ s a -> s{_iedInstanceId = a}) + +instance FromXML InstanceExportDetails where + parseXML x + = InstanceExportDetails' <$> + (x .@? "targetEnvironment") <*> (x .@? "instanceId") + +instance Hashable InstanceExportDetails where + +instance NFData InstanceExportDetails where + +-- | Describes an IPv6 address. +-- +-- +-- +-- /See:/ 'instanceIPv6Address' smart constructor. +newtype InstanceIPv6Address = InstanceIPv6Address' + { _iiaIPv6Address :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceIPv6Address' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iiaIPv6Address' - The IPv6 address. +instanceIPv6Address + :: InstanceIPv6Address +instanceIPv6Address = InstanceIPv6Address' {_iiaIPv6Address = Nothing} + + +-- | The IPv6 address. +iiaIPv6Address :: Lens' InstanceIPv6Address (Maybe Text) +iiaIPv6Address = lens _iiaIPv6Address (\ s a -> s{_iiaIPv6Address = a}) + +instance FromXML InstanceIPv6Address where + parseXML x + = InstanceIPv6Address' <$> (x .@? "ipv6Address") + +instance Hashable InstanceIPv6Address where + +instance NFData InstanceIPv6Address where + +instance ToQuery InstanceIPv6Address where + toQuery InstanceIPv6Address'{..} + = mconcat ["Ipv6Address" =: _iiaIPv6Address] + +-- | Describes an IPv6 address. +-- +-- +-- +-- /See:/ 'instanceIPv6AddressRequest' smart constructor. +newtype InstanceIPv6AddressRequest = InstanceIPv6AddressRequest' + { _iiarIPv6Address :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceIPv6AddressRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iiarIPv6Address' - The IPv6 address. +instanceIPv6AddressRequest + :: InstanceIPv6AddressRequest +instanceIPv6AddressRequest = + InstanceIPv6AddressRequest' {_iiarIPv6Address = Nothing} + + +-- | The IPv6 address. +iiarIPv6Address :: Lens' InstanceIPv6AddressRequest (Maybe Text) +iiarIPv6Address = lens _iiarIPv6Address (\ s a -> s{_iiarIPv6Address = a}) + +instance Hashable InstanceIPv6AddressRequest where + +instance NFData InstanceIPv6AddressRequest where + +instance ToQuery InstanceIPv6AddressRequest where + toQuery InstanceIPv6AddressRequest'{..} + = mconcat ["Ipv6Address" =: _iiarIPv6Address] + +-- | Describes the market (purchasing) option for the instances. +-- +-- +-- +-- /See:/ 'instanceMarketOptionsRequest' smart constructor. +data InstanceMarketOptionsRequest = InstanceMarketOptionsRequest' + { _imorMarketType :: !(Maybe MarketType) + , _imorSpotOptions :: !(Maybe SpotMarketOptions) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceMarketOptionsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'imorMarketType' - The market type. +-- +-- * 'imorSpotOptions' - The options for Spot Instances. +instanceMarketOptionsRequest + :: InstanceMarketOptionsRequest +instanceMarketOptionsRequest = + InstanceMarketOptionsRequest' + {_imorMarketType = Nothing, _imorSpotOptions = Nothing} + + +-- | The market type. +imorMarketType :: Lens' InstanceMarketOptionsRequest (Maybe MarketType) +imorMarketType = lens _imorMarketType (\ s a -> s{_imorMarketType = a}) + +-- | The options for Spot Instances. +imorSpotOptions :: Lens' InstanceMarketOptionsRequest (Maybe SpotMarketOptions) +imorSpotOptions = lens _imorSpotOptions (\ s a -> s{_imorSpotOptions = a}) + +instance Hashable InstanceMarketOptionsRequest where + +instance NFData InstanceMarketOptionsRequest where + +instance ToQuery InstanceMarketOptionsRequest where + toQuery InstanceMarketOptionsRequest'{..} + = mconcat + ["MarketType" =: _imorMarketType, + "SpotOptions" =: _imorSpotOptions] + +-- | Describes the monitoring of an instance. +-- +-- +-- +-- /See:/ 'instanceMonitoring' smart constructor. +data InstanceMonitoring = InstanceMonitoring' + { _imInstanceId :: !(Maybe Text) + , _imMonitoring :: !(Maybe Monitoring) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceMonitoring' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'imInstanceId' - The ID of the instance. +-- +-- * 'imMonitoring' - The monitoring for the instance. +instanceMonitoring + :: InstanceMonitoring +instanceMonitoring = + InstanceMonitoring' {_imInstanceId = Nothing, _imMonitoring = Nothing} + + +-- | The ID of the instance. +imInstanceId :: Lens' InstanceMonitoring (Maybe Text) +imInstanceId = lens _imInstanceId (\ s a -> s{_imInstanceId = a}) + +-- | The monitoring for the instance. +imMonitoring :: Lens' InstanceMonitoring (Maybe Monitoring) +imMonitoring = lens _imMonitoring (\ s a -> s{_imMonitoring = a}) + +instance FromXML InstanceMonitoring where + parseXML x + = InstanceMonitoring' <$> + (x .@? "instanceId") <*> (x .@? "monitoring") + +instance Hashable InstanceMonitoring where + +instance NFData InstanceMonitoring where + +-- | Describes a network interface. +-- +-- +-- +-- /See:/ 'instanceNetworkInterface' smart constructor. +data InstanceNetworkInterface = InstanceNetworkInterface' + { _iniGroups :: !(Maybe [GroupIdentifier]) + , _iniStatus :: !(Maybe NetworkInterfaceStatus) + , _iniPrivateIPAddresses :: !(Maybe [InstancePrivateIPAddress]) + , _iniSourceDestCheck :: !(Maybe Bool) + , _iniVPCId :: !(Maybe Text) + , _iniNetworkInterfaceId :: !(Maybe Text) + , _iniSubnetId :: !(Maybe Text) + , _iniMACAddress :: !(Maybe Text) + , _iniAttachment :: !(Maybe InstanceNetworkInterfaceAttachment) + , _iniOwnerId :: !(Maybe Text) + , _iniPrivateIPAddress :: !(Maybe Text) + , _iniPrivateDNSName :: !(Maybe Text) + , _iniDescription :: !(Maybe Text) + , _iniAssociation :: !(Maybe InstanceNetworkInterfaceAssociation) + , _iniIPv6Addresses :: !(Maybe [InstanceIPv6Address]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceNetworkInterface' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iniGroups' - One or more security groups. +-- +-- * 'iniStatus' - The status of the network interface. +-- +-- * 'iniPrivateIPAddresses' - One or more private IPv4 addresses associated with the network interface. +-- +-- * 'iniSourceDestCheck' - Indicates whether to validate network traffic to or from this network interface. +-- +-- * 'iniVPCId' - The ID of the VPC. +-- +-- * 'iniNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'iniSubnetId' - The ID of the subnet. +-- +-- * 'iniMACAddress' - The MAC address. +-- +-- * 'iniAttachment' - The network interface attachment. +-- +-- * 'iniOwnerId' - The ID of the AWS account that created the network interface. +-- +-- * 'iniPrivateIPAddress' - The IPv4 address of the network interface within the subnet. +-- +-- * 'iniPrivateDNSName' - The private DNS name. +-- +-- * 'iniDescription' - The description. +-- +-- * 'iniAssociation' - The association information for an Elastic IPv4 associated with the network interface. +-- +-- * 'iniIPv6Addresses' - One or more IPv6 addresses associated with the network interface. +instanceNetworkInterface + :: InstanceNetworkInterface +instanceNetworkInterface = + InstanceNetworkInterface' + { _iniGroups = Nothing + , _iniStatus = Nothing + , _iniPrivateIPAddresses = Nothing + , _iniSourceDestCheck = Nothing + , _iniVPCId = Nothing + , _iniNetworkInterfaceId = Nothing + , _iniSubnetId = Nothing + , _iniMACAddress = Nothing + , _iniAttachment = Nothing + , _iniOwnerId = Nothing + , _iniPrivateIPAddress = Nothing + , _iniPrivateDNSName = Nothing + , _iniDescription = Nothing + , _iniAssociation = Nothing + , _iniIPv6Addresses = Nothing + } + + +-- | One or more security groups. +iniGroups :: Lens' InstanceNetworkInterface [GroupIdentifier] +iniGroups = lens _iniGroups (\ s a -> s{_iniGroups = a}) . _Default . _Coerce + +-- | The status of the network interface. +iniStatus :: Lens' InstanceNetworkInterface (Maybe NetworkInterfaceStatus) +iniStatus = lens _iniStatus (\ s a -> s{_iniStatus = a}) + +-- | One or more private IPv4 addresses associated with the network interface. +iniPrivateIPAddresses :: Lens' InstanceNetworkInterface [InstancePrivateIPAddress] +iniPrivateIPAddresses = lens _iniPrivateIPAddresses (\ s a -> s{_iniPrivateIPAddresses = a}) . _Default . _Coerce + +-- | Indicates whether to validate network traffic to or from this network interface. +iniSourceDestCheck :: Lens' InstanceNetworkInterface (Maybe Bool) +iniSourceDestCheck = lens _iniSourceDestCheck (\ s a -> s{_iniSourceDestCheck = a}) + +-- | The ID of the VPC. +iniVPCId :: Lens' InstanceNetworkInterface (Maybe Text) +iniVPCId = lens _iniVPCId (\ s a -> s{_iniVPCId = a}) + +-- | The ID of the network interface. +iniNetworkInterfaceId :: Lens' InstanceNetworkInterface (Maybe Text) +iniNetworkInterfaceId = lens _iniNetworkInterfaceId (\ s a -> s{_iniNetworkInterfaceId = a}) + +-- | The ID of the subnet. +iniSubnetId :: Lens' InstanceNetworkInterface (Maybe Text) +iniSubnetId = lens _iniSubnetId (\ s a -> s{_iniSubnetId = a}) + +-- | The MAC address. +iniMACAddress :: Lens' InstanceNetworkInterface (Maybe Text) +iniMACAddress = lens _iniMACAddress (\ s a -> s{_iniMACAddress = a}) + +-- | The network interface attachment. +iniAttachment :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAttachment) +iniAttachment = lens _iniAttachment (\ s a -> s{_iniAttachment = a}) + +-- | The ID of the AWS account that created the network interface. +iniOwnerId :: Lens' InstanceNetworkInterface (Maybe Text) +iniOwnerId = lens _iniOwnerId (\ s a -> s{_iniOwnerId = a}) + +-- | The IPv4 address of the network interface within the subnet. +iniPrivateIPAddress :: Lens' InstanceNetworkInterface (Maybe Text) +iniPrivateIPAddress = lens _iniPrivateIPAddress (\ s a -> s{_iniPrivateIPAddress = a}) + +-- | The private DNS name. +iniPrivateDNSName :: Lens' InstanceNetworkInterface (Maybe Text) +iniPrivateDNSName = lens _iniPrivateDNSName (\ s a -> s{_iniPrivateDNSName = a}) + +-- | The description. +iniDescription :: Lens' InstanceNetworkInterface (Maybe Text) +iniDescription = lens _iniDescription (\ s a -> s{_iniDescription = a}) + +-- | The association information for an Elastic IPv4 associated with the network interface. +iniAssociation :: Lens' InstanceNetworkInterface (Maybe InstanceNetworkInterfaceAssociation) +iniAssociation = lens _iniAssociation (\ s a -> s{_iniAssociation = a}) + +-- | One or more IPv6 addresses associated with the network interface. +iniIPv6Addresses :: Lens' InstanceNetworkInterface [InstanceIPv6Address] +iniIPv6Addresses = lens _iniIPv6Addresses (\ s a -> s{_iniIPv6Addresses = a}) . _Default . _Coerce + +instance FromXML InstanceNetworkInterface where + parseXML x + = InstanceNetworkInterface' <$> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "status") + <*> + (x .@? "privateIpAddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "sourceDestCheck") + <*> (x .@? "vpcId") + <*> (x .@? "networkInterfaceId") + <*> (x .@? "subnetId") + <*> (x .@? "macAddress") + <*> (x .@? "attachment") + <*> (x .@? "ownerId") + <*> (x .@? "privateIpAddress") + <*> (x .@? "privateDnsName") + <*> (x .@? "description") + <*> (x .@? "association") + <*> + (x .@? "ipv6AddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable InstanceNetworkInterface where + +instance NFData InstanceNetworkInterface where + +-- | Describes association information for an Elastic IP address (IPv4). +-- +-- +-- +-- /See:/ 'instanceNetworkInterfaceAssociation' smart constructor. +data InstanceNetworkInterfaceAssociation = InstanceNetworkInterfaceAssociation' + { _iniaPublicDNSName :: !(Maybe Text) + , _iniaIPOwnerId :: !(Maybe Text) + , _iniaPublicIP :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceNetworkInterfaceAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iniaPublicDNSName' - The public DNS name. +-- +-- * 'iniaIPOwnerId' - The ID of the owner of the Elastic IP address. +-- +-- * 'iniaPublicIP' - The public IP address or Elastic IP address bound to the network interface. +instanceNetworkInterfaceAssociation + :: InstanceNetworkInterfaceAssociation +instanceNetworkInterfaceAssociation = + InstanceNetworkInterfaceAssociation' + { _iniaPublicDNSName = Nothing + , _iniaIPOwnerId = Nothing + , _iniaPublicIP = Nothing + } + + +-- | The public DNS name. +iniaPublicDNSName :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) +iniaPublicDNSName = lens _iniaPublicDNSName (\ s a -> s{_iniaPublicDNSName = a}) + +-- | The ID of the owner of the Elastic IP address. +iniaIPOwnerId :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) +iniaIPOwnerId = lens _iniaIPOwnerId (\ s a -> s{_iniaIPOwnerId = a}) + +-- | The public IP address or Elastic IP address bound to the network interface. +iniaPublicIP :: Lens' InstanceNetworkInterfaceAssociation (Maybe Text) +iniaPublicIP = lens _iniaPublicIP (\ s a -> s{_iniaPublicIP = a}) + +instance FromXML InstanceNetworkInterfaceAssociation + where + parseXML x + = InstanceNetworkInterfaceAssociation' <$> + (x .@? "publicDnsName") <*> (x .@? "ipOwnerId") <*> + (x .@? "publicIp") + +instance Hashable InstanceNetworkInterfaceAssociation + where + +instance NFData InstanceNetworkInterfaceAssociation + where + +-- | Describes a network interface attachment. +-- +-- +-- +-- /See:/ 'instanceNetworkInterfaceAttachment' smart constructor. +data InstanceNetworkInterfaceAttachment = InstanceNetworkInterfaceAttachment' + { _iniaStatus :: !(Maybe AttachmentStatus) + , _iniaDeleteOnTermination :: !(Maybe Bool) + , _iniaAttachmentId :: !(Maybe Text) + , _iniaAttachTime :: !(Maybe ISO8601) + , _iniaDeviceIndex :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceNetworkInterfaceAttachment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iniaStatus' - The attachment state. +-- +-- * 'iniaDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. +-- +-- * 'iniaAttachmentId' - The ID of the network interface attachment. +-- +-- * 'iniaAttachTime' - The time stamp when the attachment initiated. +-- +-- * 'iniaDeviceIndex' - The index of the device on the instance for the network interface attachment. +instanceNetworkInterfaceAttachment + :: InstanceNetworkInterfaceAttachment +instanceNetworkInterfaceAttachment = + InstanceNetworkInterfaceAttachment' + { _iniaStatus = Nothing + , _iniaDeleteOnTermination = Nothing + , _iniaAttachmentId = Nothing + , _iniaAttachTime = Nothing + , _iniaDeviceIndex = Nothing + } + + +-- | The attachment state. +iniaStatus :: Lens' InstanceNetworkInterfaceAttachment (Maybe AttachmentStatus) +iniaStatus = lens _iniaStatus (\ s a -> s{_iniaStatus = a}) + +-- | Indicates whether the network interface is deleted when the instance is terminated. +iniaDeleteOnTermination :: Lens' InstanceNetworkInterfaceAttachment (Maybe Bool) +iniaDeleteOnTermination = lens _iniaDeleteOnTermination (\ s a -> s{_iniaDeleteOnTermination = a}) + +-- | The ID of the network interface attachment. +iniaAttachmentId :: Lens' InstanceNetworkInterfaceAttachment (Maybe Text) +iniaAttachmentId = lens _iniaAttachmentId (\ s a -> s{_iniaAttachmentId = a}) + +-- | The time stamp when the attachment initiated. +iniaAttachTime :: Lens' InstanceNetworkInterfaceAttachment (Maybe UTCTime) +iniaAttachTime = lens _iniaAttachTime (\ s a -> s{_iniaAttachTime = a}) . mapping _Time + +-- | The index of the device on the instance for the network interface attachment. +iniaDeviceIndex :: Lens' InstanceNetworkInterfaceAttachment (Maybe Int) +iniaDeviceIndex = lens _iniaDeviceIndex (\ s a -> s{_iniaDeviceIndex = a}) + +instance FromXML InstanceNetworkInterfaceAttachment + where + parseXML x + = InstanceNetworkInterfaceAttachment' <$> + (x .@? "status") <*> (x .@? "deleteOnTermination") + <*> (x .@? "attachmentId") + <*> (x .@? "attachTime") + <*> (x .@? "deviceIndex") + +instance Hashable InstanceNetworkInterfaceAttachment + where + +instance NFData InstanceNetworkInterfaceAttachment + where + +-- | Describes a network interface. +-- +-- +-- +-- /See:/ 'instanceNetworkInterfaceSpecification' smart constructor. +data InstanceNetworkInterfaceSpecification = InstanceNetworkInterfaceSpecification' + { _inisGroups :: !(Maybe [Text]) + , _inisPrivateIPAddresses :: !(Maybe [PrivateIPAddressSpecification]) + , _inisDeleteOnTermination :: !(Maybe Bool) + , _inisAssociatePublicIPAddress :: !(Maybe Bool) + , _inisNetworkInterfaceId :: !(Maybe Text) + , _inisSubnetId :: !(Maybe Text) + , _inisIPv6AddressCount :: !(Maybe Int) + , _inisPrivateIPAddress :: !(Maybe Text) + , _inisSecondaryPrivateIPAddressCount :: !(Maybe Int) + , _inisDescription :: !(Maybe Text) + , _inisDeviceIndex :: !(Maybe Int) + , _inisIPv6Addresses :: !(Maybe [InstanceIPv6Address]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceNetworkInterfaceSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'inisGroups' - The IDs of the security groups for the network interface. Applies only if creating a network interface when launching an instance. +-- +-- * 'inisPrivateIPAddresses' - One or more private IPv4 addresses to assign to the network interface. Only one private IPv4 address can be designated as primary. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. +-- +-- * 'inisDeleteOnTermination' - If set to @true@ , the interface is deleted when the instance is terminated. You can specify @true@ only if creating a new network interface when launching an instance. +-- +-- * 'inisAssociatePublicIPAddress' - Indicates whether to assign a public IPv4 address to an instance you launch in a VPC. The public IP address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . +-- +-- * 'inisNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'inisSubnetId' - The ID of the subnet associated with the network string. Applies only if creating a network interface when launching an instance. +-- +-- * 'inisIPv6AddressCount' - A number of IPv6 addresses to assign to the network interface. Amazon EC2 chooses the IPv6 addresses from the range of the subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch. +-- +-- * 'inisPrivateIPAddress' - The private IPv4 address of the network interface. Applies only if creating a network interface when launching an instance. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. +-- +-- * 'inisSecondaryPrivateIPAddressCount' - The number of secondary private IPv4 addresses. You can't specify this option and specify more than one private IP address using the private IP addresses option. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. +-- +-- * 'inisDescription' - The description of the network interface. Applies only if creating a network interface when launching an instance. +-- +-- * 'inisDeviceIndex' - The index of the device on the instance for the network interface attachment. If you are specifying a network interface in a 'RunInstances' request, you must provide the device index. +-- +-- * 'inisIPv6Addresses' - One or more IPv6 addresses to assign to the network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch. +instanceNetworkInterfaceSpecification + :: InstanceNetworkInterfaceSpecification +instanceNetworkInterfaceSpecification = + InstanceNetworkInterfaceSpecification' + { _inisGroups = Nothing + , _inisPrivateIPAddresses = Nothing + , _inisDeleteOnTermination = Nothing + , _inisAssociatePublicIPAddress = Nothing + , _inisNetworkInterfaceId = Nothing + , _inisSubnetId = Nothing + , _inisIPv6AddressCount = Nothing + , _inisPrivateIPAddress = Nothing + , _inisSecondaryPrivateIPAddressCount = Nothing + , _inisDescription = Nothing + , _inisDeviceIndex = Nothing + , _inisIPv6Addresses = Nothing + } + + +-- | The IDs of the security groups for the network interface. Applies only if creating a network interface when launching an instance. +inisGroups :: Lens' InstanceNetworkInterfaceSpecification [Text] +inisGroups = lens _inisGroups (\ s a -> s{_inisGroups = a}) . _Default . _Coerce + +-- | One or more private IPv4 addresses to assign to the network interface. Only one private IPv4 address can be designated as primary. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. +inisPrivateIPAddresses :: Lens' InstanceNetworkInterfaceSpecification [PrivateIPAddressSpecification] +inisPrivateIPAddresses = lens _inisPrivateIPAddresses (\ s a -> s{_inisPrivateIPAddresses = a}) . _Default . _Coerce + +-- | If set to @true@ , the interface is deleted when the instance is terminated. You can specify @true@ only if creating a new network interface when launching an instance. +inisDeleteOnTermination :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool) +inisDeleteOnTermination = lens _inisDeleteOnTermination (\ s a -> s{_inisDeleteOnTermination = a}) + +-- | Indicates whether to assign a public IPv4 address to an instance you launch in a VPC. The public IP address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . +inisAssociatePublicIPAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Bool) +inisAssociatePublicIPAddress = lens _inisAssociatePublicIPAddress (\ s a -> s{_inisAssociatePublicIPAddress = a}) + +-- | The ID of the network interface. +inisNetworkInterfaceId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) +inisNetworkInterfaceId = lens _inisNetworkInterfaceId (\ s a -> s{_inisNetworkInterfaceId = a}) + +-- | The ID of the subnet associated with the network string. Applies only if creating a network interface when launching an instance. +inisSubnetId :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) +inisSubnetId = lens _inisSubnetId (\ s a -> s{_inisSubnetId = a}) + +-- | A number of IPv6 addresses to assign to the network interface. Amazon EC2 chooses the IPv6 addresses from the range of the subnet. You cannot specify this option and the option to assign specific IPv6 addresses in the same request. You can specify this option if you've specified a minimum number of instances to launch. +inisIPv6AddressCount :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) +inisIPv6AddressCount = lens _inisIPv6AddressCount (\ s a -> s{_inisIPv6AddressCount = a}) + +-- | The private IPv4 address of the network interface. Applies only if creating a network interface when launching an instance. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. +inisPrivateIPAddress :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) +inisPrivateIPAddress = lens _inisPrivateIPAddress (\ s a -> s{_inisPrivateIPAddress = a}) + +-- | The number of secondary private IPv4 addresses. You can't specify this option and specify more than one private IP address using the private IP addresses option. You cannot specify this option if you're launching more than one instance in a 'RunInstances' request. +inisSecondaryPrivateIPAddressCount :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) +inisSecondaryPrivateIPAddressCount = lens _inisSecondaryPrivateIPAddressCount (\ s a -> s{_inisSecondaryPrivateIPAddressCount = a}) + +-- | The description of the network interface. Applies only if creating a network interface when launching an instance. +inisDescription :: Lens' InstanceNetworkInterfaceSpecification (Maybe Text) +inisDescription = lens _inisDescription (\ s a -> s{_inisDescription = a}) + +-- | The index of the device on the instance for the network interface attachment. If you are specifying a network interface in a 'RunInstances' request, you must provide the device index. +inisDeviceIndex :: Lens' InstanceNetworkInterfaceSpecification (Maybe Int) +inisDeviceIndex = lens _inisDeviceIndex (\ s a -> s{_inisDeviceIndex = a}) + +-- | One or more IPv6 addresses to assign to the network interface. You cannot specify this option and the option to assign a number of IPv6 addresses in the same request. You cannot specify this option if you've specified a minimum number of instances to launch. +inisIPv6Addresses :: Lens' InstanceNetworkInterfaceSpecification [InstanceIPv6Address] +inisIPv6Addresses = lens _inisIPv6Addresses (\ s a -> s{_inisIPv6Addresses = a}) . _Default . _Coerce + +instance FromXML + InstanceNetworkInterfaceSpecification + where + parseXML x + = InstanceNetworkInterfaceSpecification' <$> + (x .@? "SecurityGroupId" .!@ mempty >>= + may (parseXMLList "SecurityGroupId")) + <*> + (x .@? "privateIpAddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "deleteOnTermination") + <*> (x .@? "associatePublicIpAddress") + <*> (x .@? "networkInterfaceId") + <*> (x .@? "subnetId") + <*> (x .@? "ipv6AddressCount") + <*> (x .@? "privateIpAddress") + <*> (x .@? "secondaryPrivateIpAddressCount") + <*> (x .@? "description") + <*> (x .@? "deviceIndex") + <*> + (x .@? "ipv6AddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable + InstanceNetworkInterfaceSpecification + where + +instance NFData InstanceNetworkInterfaceSpecification + where + +instance ToQuery + InstanceNetworkInterfaceSpecification + where + toQuery InstanceNetworkInterfaceSpecification'{..} + = mconcat + [toQuery + (toQueryList "SecurityGroupId" <$> _inisGroups), + toQuery + (toQueryList "PrivateIpAddresses" <$> + _inisPrivateIPAddresses), + "DeleteOnTermination" =: _inisDeleteOnTermination, + "AssociatePublicIpAddress" =: + _inisAssociatePublicIPAddress, + "NetworkInterfaceId" =: _inisNetworkInterfaceId, + "SubnetId" =: _inisSubnetId, + "Ipv6AddressCount" =: _inisIPv6AddressCount, + "PrivateIpAddress" =: _inisPrivateIPAddress, + "SecondaryPrivateIpAddressCount" =: + _inisSecondaryPrivateIPAddressCount, + "Description" =: _inisDescription, + "DeviceIndex" =: _inisDeviceIndex, + toQuery + (toQueryList "Ipv6Addresses" <$> _inisIPv6Addresses)] + +-- | Describes a private IPv4 address. +-- +-- +-- +-- /See:/ 'instancePrivateIPAddress' smart constructor. +data InstancePrivateIPAddress = InstancePrivateIPAddress' + { _ipiaPrimary :: !(Maybe Bool) + , _ipiaPrivateIPAddress :: !(Maybe Text) + , _ipiaPrivateDNSName :: !(Maybe Text) + , _ipiaAssociation :: !(Maybe InstanceNetworkInterfaceAssociation) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstancePrivateIPAddress' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ipiaPrimary' - Indicates whether this IPv4 address is the primary private IP address of the network interface. +-- +-- * 'ipiaPrivateIPAddress' - The private IPv4 address of the network interface. +-- +-- * 'ipiaPrivateDNSName' - The private IPv4 DNS name. +-- +-- * 'ipiaAssociation' - The association information for an Elastic IP address for the network interface. +instancePrivateIPAddress + :: InstancePrivateIPAddress +instancePrivateIPAddress = + InstancePrivateIPAddress' + { _ipiaPrimary = Nothing + , _ipiaPrivateIPAddress = Nothing + , _ipiaPrivateDNSName = Nothing + , _ipiaAssociation = Nothing + } + + +-- | Indicates whether this IPv4 address is the primary private IP address of the network interface. +ipiaPrimary :: Lens' InstancePrivateIPAddress (Maybe Bool) +ipiaPrimary = lens _ipiaPrimary (\ s a -> s{_ipiaPrimary = a}) + +-- | The private IPv4 address of the network interface. +ipiaPrivateIPAddress :: Lens' InstancePrivateIPAddress (Maybe Text) +ipiaPrivateIPAddress = lens _ipiaPrivateIPAddress (\ s a -> s{_ipiaPrivateIPAddress = a}) + +-- | The private IPv4 DNS name. +ipiaPrivateDNSName :: Lens' InstancePrivateIPAddress (Maybe Text) +ipiaPrivateDNSName = lens _ipiaPrivateDNSName (\ s a -> s{_ipiaPrivateDNSName = a}) + +-- | The association information for an Elastic IP address for the network interface. +ipiaAssociation :: Lens' InstancePrivateIPAddress (Maybe InstanceNetworkInterfaceAssociation) +ipiaAssociation = lens _ipiaAssociation (\ s a -> s{_ipiaAssociation = a}) + +instance FromXML InstancePrivateIPAddress where + parseXML x + = InstancePrivateIPAddress' <$> + (x .@? "primary") <*> (x .@? "privateIpAddress") <*> + (x .@? "privateDnsName") + <*> (x .@? "association") + +instance Hashable InstancePrivateIPAddress where + +instance NFData InstancePrivateIPAddress where + +-- | Describes the current state of an instance. +-- +-- +-- +-- /See:/ 'instanceState' smart constructor. +data InstanceState = InstanceState' + { _isName :: !InstanceStateName + , _isCode :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceState' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'isName' - The current state of the instance. +-- +-- * 'isCode' - The low byte represents the state. The high byte is an opaque internal value and should be ignored. * @0@ : @pending@ * @16@ : @running@ * @32@ : @shutting-down@ * @48@ : @terminated@ * @64@ : @stopping@ * @80@ : @stopped@ +instanceState + :: InstanceStateName -- ^ 'isName' + -> Int -- ^ 'isCode' + -> InstanceState +instanceState pName_ pCode_ = + InstanceState' {_isName = pName_, _isCode = pCode_} + + +-- | The current state of the instance. +isName :: Lens' InstanceState InstanceStateName +isName = lens _isName (\ s a -> s{_isName = a}) + +-- | The low byte represents the state. The high byte is an opaque internal value and should be ignored. * @0@ : @pending@ * @16@ : @running@ * @32@ : @shutting-down@ * @48@ : @terminated@ * @64@ : @stopping@ * @80@ : @stopped@ +isCode :: Lens' InstanceState Int +isCode = lens _isCode (\ s a -> s{_isCode = a}) + +instance FromXML InstanceState where + parseXML x + = InstanceState' <$> (x .@ "name") <*> (x .@ "code") + +instance Hashable InstanceState where + +instance NFData InstanceState where + +-- | Describes an instance state change. +-- +-- +-- +-- /See:/ 'instanceStateChange' smart constructor. +data InstanceStateChange = InstanceStateChange' + { _iscInstanceId :: !(Maybe Text) + , _iscCurrentState :: !(Maybe InstanceState) + , _iscPreviousState :: !(Maybe InstanceState) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceStateChange' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iscInstanceId' - The ID of the instance. +-- +-- * 'iscCurrentState' - The current state of the instance. +-- +-- * 'iscPreviousState' - The previous state of the instance. +instanceStateChange + :: InstanceStateChange +instanceStateChange = + InstanceStateChange' + { _iscInstanceId = Nothing + , _iscCurrentState = Nothing + , _iscPreviousState = Nothing + } + + +-- | The ID of the instance. +iscInstanceId :: Lens' InstanceStateChange (Maybe Text) +iscInstanceId = lens _iscInstanceId (\ s a -> s{_iscInstanceId = a}) + +-- | The current state of the instance. +iscCurrentState :: Lens' InstanceStateChange (Maybe InstanceState) +iscCurrentState = lens _iscCurrentState (\ s a -> s{_iscCurrentState = a}) + +-- | The previous state of the instance. +iscPreviousState :: Lens' InstanceStateChange (Maybe InstanceState) +iscPreviousState = lens _iscPreviousState (\ s a -> s{_iscPreviousState = a}) + +instance FromXML InstanceStateChange where + parseXML x + = InstanceStateChange' <$> + (x .@? "instanceId") <*> (x .@? "currentState") <*> + (x .@? "previousState") + +instance Hashable InstanceStateChange where + +instance NFData InstanceStateChange where + +-- | Describes the status of an instance. +-- +-- +-- +-- /See:/ 'instanceStatus' smart constructor. +data InstanceStatus = InstanceStatus' + { _isInstanceId :: !(Maybe Text) + , _isSystemStatus :: !(Maybe InstanceStatusSummary) + , _isEvents :: !(Maybe [InstanceStatusEvent]) + , _isAvailabilityZone :: !(Maybe Text) + , _isInstanceStatus :: !(Maybe InstanceStatusSummary) + , _isInstanceState :: !(Maybe InstanceState) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceStatus' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'isInstanceId' - The ID of the instance. +-- +-- * 'isSystemStatus' - Reports impaired functionality that stems from issues related to the systems that support an instance, such as hardware failures and network connectivity problems. +-- +-- * 'isEvents' - Any scheduled events associated with the instance. +-- +-- * 'isAvailabilityZone' - The Availability Zone of the instance. +-- +-- * 'isInstanceStatus' - Reports impaired functionality that stems from issues internal to the instance, such as impaired reachability. +-- +-- * 'isInstanceState' - The intended state of the instance. 'DescribeInstanceStatus' requires that an instance be in the @running@ state. +instanceStatus + :: InstanceStatus +instanceStatus = + InstanceStatus' + { _isInstanceId = Nothing + , _isSystemStatus = Nothing + , _isEvents = Nothing + , _isAvailabilityZone = Nothing + , _isInstanceStatus = Nothing + , _isInstanceState = Nothing + } + + +-- | The ID of the instance. +isInstanceId :: Lens' InstanceStatus (Maybe Text) +isInstanceId = lens _isInstanceId (\ s a -> s{_isInstanceId = a}) + +-- | Reports impaired functionality that stems from issues related to the systems that support an instance, such as hardware failures and network connectivity problems. +isSystemStatus :: Lens' InstanceStatus (Maybe InstanceStatusSummary) +isSystemStatus = lens _isSystemStatus (\ s a -> s{_isSystemStatus = a}) + +-- | Any scheduled events associated with the instance. +isEvents :: Lens' InstanceStatus [InstanceStatusEvent] +isEvents = lens _isEvents (\ s a -> s{_isEvents = a}) . _Default . _Coerce + +-- | The Availability Zone of the instance. +isAvailabilityZone :: Lens' InstanceStatus (Maybe Text) +isAvailabilityZone = lens _isAvailabilityZone (\ s a -> s{_isAvailabilityZone = a}) + +-- | Reports impaired functionality that stems from issues internal to the instance, such as impaired reachability. +isInstanceStatus :: Lens' InstanceStatus (Maybe InstanceStatusSummary) +isInstanceStatus = lens _isInstanceStatus (\ s a -> s{_isInstanceStatus = a}) + +-- | The intended state of the instance. 'DescribeInstanceStatus' requires that an instance be in the @running@ state. +isInstanceState :: Lens' InstanceStatus (Maybe InstanceState) +isInstanceState = lens _isInstanceState (\ s a -> s{_isInstanceState = a}) + +instance FromXML InstanceStatus where + parseXML x + = InstanceStatus' <$> + (x .@? "instanceId") <*> (x .@? "systemStatus") <*> + (x .@? "eventsSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "availabilityZone") + <*> (x .@? "instanceStatus") + <*> (x .@? "instanceState") + +instance Hashable InstanceStatus where + +instance NFData InstanceStatus where + +-- | Describes the instance status. +-- +-- +-- +-- /See:/ 'instanceStatusDetails' smart constructor. +data InstanceStatusDetails = InstanceStatusDetails' + { _isdStatus :: !(Maybe StatusType) + , _isdImpairedSince :: !(Maybe ISO8601) + , _isdName :: !(Maybe StatusName) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceStatusDetails' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'isdStatus' - The status. +-- +-- * 'isdImpairedSince' - The time when a status check failed. For an instance that was launched and impaired, this is the time when the instance was launched. +-- +-- * 'isdName' - The type of instance status. +instanceStatusDetails + :: InstanceStatusDetails +instanceStatusDetails = + InstanceStatusDetails' + {_isdStatus = Nothing, _isdImpairedSince = Nothing, _isdName = Nothing} + + +-- | The status. +isdStatus :: Lens' InstanceStatusDetails (Maybe StatusType) +isdStatus = lens _isdStatus (\ s a -> s{_isdStatus = a}) + +-- | The time when a status check failed. For an instance that was launched and impaired, this is the time when the instance was launched. +isdImpairedSince :: Lens' InstanceStatusDetails (Maybe UTCTime) +isdImpairedSince = lens _isdImpairedSince (\ s a -> s{_isdImpairedSince = a}) . mapping _Time + +-- | The type of instance status. +isdName :: Lens' InstanceStatusDetails (Maybe StatusName) +isdName = lens _isdName (\ s a -> s{_isdName = a}) + +instance FromXML InstanceStatusDetails where + parseXML x + = InstanceStatusDetails' <$> + (x .@? "status") <*> (x .@? "impairedSince") <*> + (x .@? "name") + +instance Hashable InstanceStatusDetails where + +instance NFData InstanceStatusDetails where + +-- | Describes a scheduled event for an instance. +-- +-- +-- +-- /See:/ 'instanceStatusEvent' smart constructor. +data InstanceStatusEvent = InstanceStatusEvent' + { _iseNotBefore :: !(Maybe ISO8601) + , _iseCode :: !(Maybe EventCode) + , _iseDescription :: !(Maybe Text) + , _iseNotAfter :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceStatusEvent' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'iseNotBefore' - The earliest scheduled start time for the event. +-- +-- * 'iseCode' - The event code. +-- +-- * 'iseDescription' - A description of the event. After a scheduled event is completed, it can still be described for up to a week. If the event has been completed, this description starts with the following text: [Completed]. +-- +-- * 'iseNotAfter' - The latest scheduled end time for the event. +instanceStatusEvent + :: InstanceStatusEvent +instanceStatusEvent = + InstanceStatusEvent' + { _iseNotBefore = Nothing + , _iseCode = Nothing + , _iseDescription = Nothing + , _iseNotAfter = Nothing + } + + +-- | The earliest scheduled start time for the event. +iseNotBefore :: Lens' InstanceStatusEvent (Maybe UTCTime) +iseNotBefore = lens _iseNotBefore (\ s a -> s{_iseNotBefore = a}) . mapping _Time + +-- | The event code. +iseCode :: Lens' InstanceStatusEvent (Maybe EventCode) +iseCode = lens _iseCode (\ s a -> s{_iseCode = a}) + +-- | A description of the event. After a scheduled event is completed, it can still be described for up to a week. If the event has been completed, this description starts with the following text: [Completed]. +iseDescription :: Lens' InstanceStatusEvent (Maybe Text) +iseDescription = lens _iseDescription (\ s a -> s{_iseDescription = a}) + +-- | The latest scheduled end time for the event. +iseNotAfter :: Lens' InstanceStatusEvent (Maybe UTCTime) +iseNotAfter = lens _iseNotAfter (\ s a -> s{_iseNotAfter = a}) . mapping _Time + +instance FromXML InstanceStatusEvent where + parseXML x + = InstanceStatusEvent' <$> + (x .@? "notBefore") <*> (x .@? "code") <*> + (x .@? "description") + <*> (x .@? "notAfter") + +instance Hashable InstanceStatusEvent where + +instance NFData InstanceStatusEvent where + +-- | Describes the status of an instance. +-- +-- +-- +-- /See:/ 'instanceStatusSummary' smart constructor. +data InstanceStatusSummary = InstanceStatusSummary' + { _issDetails :: !(Maybe [InstanceStatusDetails]) + , _issStatus :: !SummaryStatus + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InstanceStatusSummary' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'issDetails' - The system instance health or application instance health. +-- +-- * 'issStatus' - The status. +instanceStatusSummary + :: SummaryStatus -- ^ 'issStatus' + -> InstanceStatusSummary +instanceStatusSummary pStatus_ = + InstanceStatusSummary' {_issDetails = Nothing, _issStatus = pStatus_} + + +-- | The system instance health or application instance health. +issDetails :: Lens' InstanceStatusSummary [InstanceStatusDetails] +issDetails = lens _issDetails (\ s a -> s{_issDetails = a}) . _Default . _Coerce + +-- | The status. +issStatus :: Lens' InstanceStatusSummary SummaryStatus +issStatus = lens _issStatus (\ s a -> s{_issStatus = a}) + +instance FromXML InstanceStatusSummary where + parseXML x + = InstanceStatusSummary' <$> + (x .@? "details" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "status") + +instance Hashable InstanceStatusSummary where + +instance NFData InstanceStatusSummary where + +-- | Describes an Internet gateway. +-- +-- +-- +-- /See:/ 'internetGateway' smart constructor. +data InternetGateway = InternetGateway' + { _igAttachments :: !(Maybe [InternetGatewayAttachment]) + , _igTags :: !(Maybe [Tag]) + , _igInternetGatewayId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InternetGateway' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'igAttachments' - Any VPCs attached to the Internet gateway. +-- +-- * 'igTags' - Any tags assigned to the Internet gateway. +-- +-- * 'igInternetGatewayId' - The ID of the Internet gateway. +internetGateway + :: Text -- ^ 'igInternetGatewayId' + -> InternetGateway +internetGateway pInternetGatewayId_ = + InternetGateway' + { _igAttachments = Nothing + , _igTags = Nothing + , _igInternetGatewayId = pInternetGatewayId_ + } + + +-- | Any VPCs attached to the Internet gateway. +igAttachments :: Lens' InternetGateway [InternetGatewayAttachment] +igAttachments = lens _igAttachments (\ s a -> s{_igAttachments = a}) . _Default . _Coerce + +-- | Any tags assigned to the Internet gateway. +igTags :: Lens' InternetGateway [Tag] +igTags = lens _igTags (\ s a -> s{_igTags = a}) . _Default . _Coerce + +-- | The ID of the Internet gateway. +igInternetGatewayId :: Lens' InternetGateway Text +igInternetGatewayId = lens _igInternetGatewayId (\ s a -> s{_igInternetGatewayId = a}) + +instance FromXML InternetGateway where + parseXML x + = InternetGateway' <$> + (x .@? "attachmentSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "internetGatewayId") + +instance Hashable InternetGateway where + +instance NFData InternetGateway where + +-- | Describes the attachment of a VPC to an Internet gateway or an egress-only Internet gateway. +-- +-- +-- +-- /See:/ 'internetGatewayAttachment' smart constructor. +data InternetGatewayAttachment = InternetGatewayAttachment' + { _igaState :: !AttachmentStatus + , _igaVPCId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'InternetGatewayAttachment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'igaState' - The current state of the attachment. For an Internet gateway, the state is @available@ when attached to a VPC; otherwise, this value is not returned. +-- +-- * 'igaVPCId' - The ID of the VPC. +internetGatewayAttachment + :: AttachmentStatus -- ^ 'igaState' + -> Text -- ^ 'igaVPCId' + -> InternetGatewayAttachment +internetGatewayAttachment pState_ pVPCId_ = + InternetGatewayAttachment' {_igaState = pState_, _igaVPCId = pVPCId_} + + +-- | The current state of the attachment. For an Internet gateway, the state is @available@ when attached to a VPC; otherwise, this value is not returned. +igaState :: Lens' InternetGatewayAttachment AttachmentStatus +igaState = lens _igaState (\ s a -> s{_igaState = a}) + +-- | The ID of the VPC. +igaVPCId :: Lens' InternetGatewayAttachment Text +igaVPCId = lens _igaVPCId (\ s a -> s{_igaVPCId = a}) + +instance FromXML InternetGatewayAttachment where + parseXML x + = InternetGatewayAttachment' <$> + (x .@ "state") <*> (x .@ "vpcId") + +instance Hashable InternetGatewayAttachment where + +instance NFData InternetGatewayAttachment where + +-- | Describes a key pair. +-- +-- +-- +-- /See:/ 'keyPairInfo' smart constructor. +data KeyPairInfo = KeyPairInfo' + { _kpiKeyFingerprint :: !(Maybe Text) + , _kpiKeyName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'KeyPairInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'kpiKeyFingerprint' - If you used 'CreateKeyPair' to create the key pair, this is the SHA-1 digest of the DER encoded private key. If you used 'ImportKeyPair' to provide AWS the public key, this is the MD5 public key fingerprint as specified in section 4 of RFC4716. +-- +-- * 'kpiKeyName' - The name of the key pair. +keyPairInfo + :: KeyPairInfo +keyPairInfo = KeyPairInfo' {_kpiKeyFingerprint = Nothing, _kpiKeyName = Nothing} + + +-- | If you used 'CreateKeyPair' to create the key pair, this is the SHA-1 digest of the DER encoded private key. If you used 'ImportKeyPair' to provide AWS the public key, this is the MD5 public key fingerprint as specified in section 4 of RFC4716. +kpiKeyFingerprint :: Lens' KeyPairInfo (Maybe Text) +kpiKeyFingerprint = lens _kpiKeyFingerprint (\ s a -> s{_kpiKeyFingerprint = a}) + +-- | The name of the key pair. +kpiKeyName :: Lens' KeyPairInfo (Maybe Text) +kpiKeyName = lens _kpiKeyName (\ s a -> s{_kpiKeyName = a}) + +instance FromXML KeyPairInfo where + parseXML x + = KeyPairInfo' <$> + (x .@? "keyFingerprint") <*> (x .@? "keyName") + +instance Hashable KeyPairInfo where + +instance NFData KeyPairInfo where + +-- | Describes a launch permission. +-- +-- +-- +-- /See:/ 'launchPermission' smart constructor. +data LaunchPermission = LaunchPermission' + { _lGroup :: !(Maybe PermissionGroup) + , _lUserId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchPermission' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lGroup' - The name of the group. +-- +-- * 'lUserId' - The AWS account ID. +launchPermission + :: LaunchPermission +launchPermission = LaunchPermission' {_lGroup = Nothing, _lUserId = Nothing} + + +-- | The name of the group. +lGroup :: Lens' LaunchPermission (Maybe PermissionGroup) +lGroup = lens _lGroup (\ s a -> s{_lGroup = a}) + +-- | The AWS account ID. +lUserId :: Lens' LaunchPermission (Maybe Text) +lUserId = lens _lUserId (\ s a -> s{_lUserId = a}) + +instance FromXML LaunchPermission where + parseXML x + = LaunchPermission' <$> + (x .@? "group") <*> (x .@? "userId") + +instance Hashable LaunchPermission where + +instance NFData LaunchPermission where + +instance ToQuery LaunchPermission where + toQuery LaunchPermission'{..} + = mconcat ["Group" =: _lGroup, "UserId" =: _lUserId] + +-- | Describes a launch permission modification. +-- +-- +-- +-- /See:/ 'launchPermissionModifications' smart constructor. +data LaunchPermissionModifications = LaunchPermissionModifications' + { _lRemove :: !(Maybe [LaunchPermission]) + , _lAdd :: !(Maybe [LaunchPermission]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchPermissionModifications' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lRemove' - The AWS account ID to remove from the list of launch permissions for the AMI. +-- +-- * 'lAdd' - The AWS account ID to add to the list of launch permissions for the AMI. +launchPermissionModifications + :: LaunchPermissionModifications +launchPermissionModifications = + LaunchPermissionModifications' {_lRemove = Nothing, _lAdd = Nothing} + + +-- | The AWS account ID to remove from the list of launch permissions for the AMI. +lRemove :: Lens' LaunchPermissionModifications [LaunchPermission] +lRemove = lens _lRemove (\ s a -> s{_lRemove = a}) . _Default . _Coerce + +-- | The AWS account ID to add to the list of launch permissions for the AMI. +lAdd :: Lens' LaunchPermissionModifications [LaunchPermission] +lAdd = lens _lAdd (\ s a -> s{_lAdd = a}) . _Default . _Coerce + +instance Hashable LaunchPermissionModifications where + +instance NFData LaunchPermissionModifications where + +instance ToQuery LaunchPermissionModifications where + toQuery LaunchPermissionModifications'{..} + = mconcat + [toQuery (toQueryList "Remove" <$> _lRemove), + toQuery (toQueryList "Add" <$> _lAdd)] + +-- | Describes the launch specification for an instance. +-- +-- +-- +-- /See:/ 'launchSpecification' smart constructor. +data LaunchSpecification = LaunchSpecification' + { _lsSecurityGroups :: !(Maybe [GroupIdentifier]) + , _lsKeyName :: !(Maybe Text) + , _lsNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) + , _lsRAMDiskId :: !(Maybe Text) + , _lsSubnetId :: !(Maybe Text) + , _lsKernelId :: !(Maybe Text) + , _lsInstanceType :: !(Maybe InstanceType) + , _lsEBSOptimized :: !(Maybe Bool) + , _lsUserData :: !(Maybe Text) + , _lsMonitoring :: !(Maybe RunInstancesMonitoringEnabled) + , _lsIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) + , _lsImageId :: !(Maybe Text) + , _lsAddressingType :: !(Maybe Text) + , _lsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) + , _lsPlacement :: !(Maybe SpotPlacement) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lsSecurityGroups' - 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. +-- +-- * 'lsKeyName' - The name of the key pair. +-- +-- * 'lsNetworkInterfaces' - One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. +-- +-- * 'lsRAMDiskId' - The ID of the RAM disk. +-- +-- * 'lsSubnetId' - The ID of the subnet in which to launch the instance. +-- +-- * 'lsKernelId' - The ID of the kernel. +-- +-- * 'lsInstanceType' - The instance type. +-- +-- * 'lsEBSOptimized' - Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ +-- +-- * 'lsUserData' - The Base64-encoded user data for the instance. +-- +-- * 'lsMonitoring' - Undocumented member. +-- +-- * 'lsIAMInstanceProfile' - The IAM instance profile. +-- +-- * 'lsImageId' - The ID of the AMI. +-- +-- * 'lsAddressingType' - Deprecated. +-- +-- * 'lsBlockDeviceMappings' - One or more block device mapping entries. +-- +-- * 'lsPlacement' - The placement information for the instance. +launchSpecification + :: LaunchSpecification +launchSpecification = + LaunchSpecification' + { _lsSecurityGroups = Nothing + , _lsKeyName = Nothing + , _lsNetworkInterfaces = Nothing + , _lsRAMDiskId = Nothing + , _lsSubnetId = Nothing + , _lsKernelId = Nothing + , _lsInstanceType = Nothing + , _lsEBSOptimized = Nothing + , _lsUserData = Nothing + , _lsMonitoring = Nothing + , _lsIAMInstanceProfile = Nothing + , _lsImageId = Nothing + , _lsAddressingType = Nothing + , _lsBlockDeviceMappings = Nothing + , _lsPlacement = Nothing + } + + +-- | 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 + +-- | The name of the key pair. +lsKeyName :: Lens' LaunchSpecification (Maybe Text) +lsKeyName = lens _lsKeyName (\ s a -> s{_lsKeyName = a}) + +-- | One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. +lsNetworkInterfaces :: Lens' LaunchSpecification [InstanceNetworkInterfaceSpecification] +lsNetworkInterfaces = lens _lsNetworkInterfaces (\ s a -> s{_lsNetworkInterfaces = a}) . _Default . _Coerce + +-- | The ID of the RAM disk. +lsRAMDiskId :: Lens' LaunchSpecification (Maybe Text) +lsRAMDiskId = lens _lsRAMDiskId (\ s a -> s{_lsRAMDiskId = a}) + +-- | The ID of the subnet in which to launch the instance. +lsSubnetId :: Lens' LaunchSpecification (Maybe Text) +lsSubnetId = lens _lsSubnetId (\ s a -> s{_lsSubnetId = a}) + +-- | The ID of the kernel. +lsKernelId :: Lens' LaunchSpecification (Maybe Text) +lsKernelId = lens _lsKernelId (\ s a -> s{_lsKernelId = a}) + +-- | The instance type. +lsInstanceType :: Lens' LaunchSpecification (Maybe InstanceType) +lsInstanceType = lens _lsInstanceType (\ s a -> s{_lsInstanceType = a}) + +-- | Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ +lsEBSOptimized :: Lens' LaunchSpecification (Maybe Bool) +lsEBSOptimized = lens _lsEBSOptimized (\ s a -> s{_lsEBSOptimized = a}) + +-- | The Base64-encoded user data for the instance. +lsUserData :: Lens' LaunchSpecification (Maybe Text) +lsUserData = lens _lsUserData (\ s a -> s{_lsUserData = a}) + +-- | Undocumented member. +lsMonitoring :: Lens' LaunchSpecification (Maybe RunInstancesMonitoringEnabled) +lsMonitoring = lens _lsMonitoring (\ s a -> s{_lsMonitoring = a}) + +-- | The IAM instance profile. +lsIAMInstanceProfile :: Lens' LaunchSpecification (Maybe IAMInstanceProfileSpecification) +lsIAMInstanceProfile = lens _lsIAMInstanceProfile (\ s a -> s{_lsIAMInstanceProfile = a}) + +-- | The ID of the AMI. +lsImageId :: Lens' LaunchSpecification (Maybe Text) +lsImageId = lens _lsImageId (\ s a -> s{_lsImageId = a}) + +-- | Deprecated. +lsAddressingType :: Lens' LaunchSpecification (Maybe Text) +lsAddressingType = lens _lsAddressingType (\ s a -> s{_lsAddressingType = a}) + +-- | One or more block device mapping entries. +lsBlockDeviceMappings :: Lens' LaunchSpecification [BlockDeviceMapping] +lsBlockDeviceMappings = lens _lsBlockDeviceMappings (\ s a -> s{_lsBlockDeviceMappings = a}) . _Default . _Coerce + +-- | The placement information for the instance. +lsPlacement :: Lens' LaunchSpecification (Maybe SpotPlacement) +lsPlacement = lens _lsPlacement (\ s a -> s{_lsPlacement = a}) + +instance FromXML LaunchSpecification where + parseXML x + = LaunchSpecification' <$> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "keyName") + <*> + (x .@? "networkInterfaceSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "ramdiskId") + <*> (x .@? "subnetId") + <*> (x .@? "kernelId") + <*> (x .@? "instanceType") + <*> (x .@? "ebsOptimized") + <*> (x .@? "userData") + <*> (x .@? "monitoring") + <*> (x .@? "iamInstanceProfile") + <*> (x .@? "imageId") + <*> (x .@? "addressingType") + <*> + (x .@? "blockDeviceMapping" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "placement") + +instance Hashable LaunchSpecification where + +instance NFData LaunchSpecification where + +-- | Describes a launch template. +-- +-- +-- +-- /See:/ 'launchTemplate' smart constructor. +data LaunchTemplate = LaunchTemplate' + { _ltLaunchTemplateName :: !(Maybe Text) + , _ltLatestVersionNumber :: !(Maybe Integer) + , _ltLaunchTemplateId :: !(Maybe Text) + , _ltCreatedBy :: !(Maybe Text) + , _ltDefaultVersionNumber :: !(Maybe Integer) + , _ltCreateTime :: !(Maybe ISO8601) + , _ltTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplate' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltLaunchTemplateName' - The name of the launch template. +-- +-- * 'ltLatestVersionNumber' - The version number of the latest version of the launch template. +-- +-- * 'ltLaunchTemplateId' - The ID of the launch template. +-- +-- * 'ltCreatedBy' - The principal that created the launch template. +-- +-- * 'ltDefaultVersionNumber' - The version number of the default version of the launch template. +-- +-- * 'ltCreateTime' - The time launch template was created. +-- +-- * 'ltTags' - The tags for the launch template. +launchTemplate + :: LaunchTemplate +launchTemplate = + LaunchTemplate' + { _ltLaunchTemplateName = Nothing + , _ltLatestVersionNumber = Nothing + , _ltLaunchTemplateId = Nothing + , _ltCreatedBy = Nothing + , _ltDefaultVersionNumber = Nothing + , _ltCreateTime = Nothing + , _ltTags = Nothing + } + + +-- | The name of the launch template. +ltLaunchTemplateName :: Lens' LaunchTemplate (Maybe Text) +ltLaunchTemplateName = lens _ltLaunchTemplateName (\ s a -> s{_ltLaunchTemplateName = a}) + +-- | The version number of the latest version of the launch template. +ltLatestVersionNumber :: Lens' LaunchTemplate (Maybe Integer) +ltLatestVersionNumber = lens _ltLatestVersionNumber (\ s a -> s{_ltLatestVersionNumber = a}) + +-- | The ID of the launch template. +ltLaunchTemplateId :: Lens' LaunchTemplate (Maybe Text) +ltLaunchTemplateId = lens _ltLaunchTemplateId (\ s a -> s{_ltLaunchTemplateId = a}) + +-- | The principal that created the launch template. +ltCreatedBy :: Lens' LaunchTemplate (Maybe Text) +ltCreatedBy = lens _ltCreatedBy (\ s a -> s{_ltCreatedBy = a}) + +-- | The version number of the default version of the launch template. +ltDefaultVersionNumber :: Lens' LaunchTemplate (Maybe Integer) +ltDefaultVersionNumber = lens _ltDefaultVersionNumber (\ s a -> s{_ltDefaultVersionNumber = a}) + +-- | The time launch template was created. +ltCreateTime :: Lens' LaunchTemplate (Maybe UTCTime) +ltCreateTime = lens _ltCreateTime (\ s a -> s{_ltCreateTime = a}) . mapping _Time + +-- | The tags for the launch template. +ltTags :: Lens' LaunchTemplate [Tag] +ltTags = lens _ltTags (\ s a -> s{_ltTags = a}) . _Default . _Coerce + +instance FromXML LaunchTemplate where + parseXML x + = LaunchTemplate' <$> + (x .@? "launchTemplateName") <*> + (x .@? "latestVersionNumber") + <*> (x .@? "launchTemplateId") + <*> (x .@? "createdBy") + <*> (x .@? "defaultVersionNumber") + <*> (x .@? "createTime") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable LaunchTemplate where + +instance NFData LaunchTemplate where + +-- | Describes a block device mapping. +-- +-- +-- +-- /See:/ 'launchTemplateBlockDeviceMapping' smart constructor. +data LaunchTemplateBlockDeviceMapping = LaunchTemplateBlockDeviceMapping' + { _ltbdmVirtualName :: !(Maybe Text) + , _ltbdmNoDevice :: !(Maybe Text) + , _ltbdmEBS :: !(Maybe LaunchTemplateEBSBlockDevice) + , _ltbdmDeviceName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateBlockDeviceMapping' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltbdmVirtualName' - The virtual device name (ephemeralN). +-- +-- * 'ltbdmNoDevice' - Suppresses the specified device included in the block device mapping of the AMI. +-- +-- * 'ltbdmEBS' - Information about the block device for an EBS volume. +-- +-- * 'ltbdmDeviceName' - The device name. +launchTemplateBlockDeviceMapping + :: LaunchTemplateBlockDeviceMapping +launchTemplateBlockDeviceMapping = + LaunchTemplateBlockDeviceMapping' + { _ltbdmVirtualName = Nothing + , _ltbdmNoDevice = Nothing + , _ltbdmEBS = Nothing + , _ltbdmDeviceName = Nothing + } + + +-- | The virtual device name (ephemeralN). +ltbdmVirtualName :: Lens' LaunchTemplateBlockDeviceMapping (Maybe Text) +ltbdmVirtualName = lens _ltbdmVirtualName (\ s a -> s{_ltbdmVirtualName = a}) + +-- | Suppresses the specified device included in the block device mapping of the AMI. +ltbdmNoDevice :: Lens' LaunchTemplateBlockDeviceMapping (Maybe Text) +ltbdmNoDevice = lens _ltbdmNoDevice (\ s a -> s{_ltbdmNoDevice = a}) + +-- | Information about the block device for an EBS volume. +ltbdmEBS :: Lens' LaunchTemplateBlockDeviceMapping (Maybe LaunchTemplateEBSBlockDevice) +ltbdmEBS = lens _ltbdmEBS (\ s a -> s{_ltbdmEBS = a}) + +-- | The device name. +ltbdmDeviceName :: Lens' LaunchTemplateBlockDeviceMapping (Maybe Text) +ltbdmDeviceName = lens _ltbdmDeviceName (\ s a -> s{_ltbdmDeviceName = a}) + +instance FromXML LaunchTemplateBlockDeviceMapping + where + parseXML x + = LaunchTemplateBlockDeviceMapping' <$> + (x .@? "virtualName") <*> (x .@? "noDevice") <*> + (x .@? "ebs") + <*> (x .@? "deviceName") + +instance Hashable LaunchTemplateBlockDeviceMapping + where + +instance NFData LaunchTemplateBlockDeviceMapping + where + +-- | Describes a block device mapping. +-- +-- +-- +-- /See:/ 'launchTemplateBlockDeviceMappingRequest' smart constructor. +data LaunchTemplateBlockDeviceMappingRequest = LaunchTemplateBlockDeviceMappingRequest' + { _ltbdmrVirtualName :: !(Maybe Text) + , _ltbdmrNoDevice :: !(Maybe Text) + , _ltbdmrEBS :: !(Maybe LaunchTemplateEBSBlockDeviceRequest) + , _ltbdmrDeviceName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateBlockDeviceMappingRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltbdmrVirtualName' - The virtual device name (ephemeralN). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for ephemeral0 and ephemeral1. The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. +-- +-- * 'ltbdmrNoDevice' - Suppresses the specified device included in the block device mapping of the AMI. +-- +-- * 'ltbdmrEBS' - Parameters used to automatically set up EBS volumes when the instance is launched. +-- +-- * 'ltbdmrDeviceName' - The device name (for example, /dev/sdh or xvdh). +launchTemplateBlockDeviceMappingRequest + :: LaunchTemplateBlockDeviceMappingRequest +launchTemplateBlockDeviceMappingRequest = + LaunchTemplateBlockDeviceMappingRequest' + { _ltbdmrVirtualName = Nothing + , _ltbdmrNoDevice = Nothing + , _ltbdmrEBS = Nothing + , _ltbdmrDeviceName = Nothing + } + + +-- | The virtual device name (ephemeralN). Instance store volumes are numbered starting from 0. An instance type with 2 available instance store volumes can specify mappings for ephemeral0 and ephemeral1. The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. +ltbdmrVirtualName :: Lens' LaunchTemplateBlockDeviceMappingRequest (Maybe Text) +ltbdmrVirtualName = lens _ltbdmrVirtualName (\ s a -> s{_ltbdmrVirtualName = a}) + +-- | Suppresses the specified device included in the block device mapping of the AMI. +ltbdmrNoDevice :: Lens' LaunchTemplateBlockDeviceMappingRequest (Maybe Text) +ltbdmrNoDevice = lens _ltbdmrNoDevice (\ s a -> s{_ltbdmrNoDevice = a}) + +-- | Parameters used to automatically set up EBS volumes when the instance is launched. +ltbdmrEBS :: Lens' LaunchTemplateBlockDeviceMappingRequest (Maybe LaunchTemplateEBSBlockDeviceRequest) +ltbdmrEBS = lens _ltbdmrEBS (\ s a -> s{_ltbdmrEBS = a}) + +-- | The device name (for example, /dev/sdh or xvdh). +ltbdmrDeviceName :: Lens' LaunchTemplateBlockDeviceMappingRequest (Maybe Text) +ltbdmrDeviceName = lens _ltbdmrDeviceName (\ s a -> s{_ltbdmrDeviceName = a}) + +instance Hashable + LaunchTemplateBlockDeviceMappingRequest + where + +instance NFData + LaunchTemplateBlockDeviceMappingRequest + where + +instance ToQuery + LaunchTemplateBlockDeviceMappingRequest + where + toQuery LaunchTemplateBlockDeviceMappingRequest'{..} + = mconcat + ["VirtualName" =: _ltbdmrVirtualName, + "NoDevice" =: _ltbdmrNoDevice, "Ebs" =: _ltbdmrEBS, + "DeviceName" =: _ltbdmrDeviceName] + +-- | Describes a launch template and overrides. +-- +-- +-- +-- /See:/ 'launchTemplateConfig' smart constructor. +data LaunchTemplateConfig = LaunchTemplateConfig' + { _ltcOverrides :: !(Maybe [LaunchTemplateOverrides]) + , _ltcLaunchTemplateSpecification :: !(Maybe FleetLaunchTemplateSpecification) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltcOverrides' - Any parameters that you specify override the same parameters in the launch template. +-- +-- * 'ltcLaunchTemplateSpecification' - The launch template. +launchTemplateConfig + :: LaunchTemplateConfig +launchTemplateConfig = + LaunchTemplateConfig' + {_ltcOverrides = Nothing, _ltcLaunchTemplateSpecification = Nothing} + + +-- | Any parameters that you specify override the same parameters in the launch template. +ltcOverrides :: Lens' LaunchTemplateConfig [LaunchTemplateOverrides] +ltcOverrides = lens _ltcOverrides (\ s a -> s{_ltcOverrides = a}) . _Default . _Coerce + +-- | The launch template. +ltcLaunchTemplateSpecification :: Lens' LaunchTemplateConfig (Maybe FleetLaunchTemplateSpecification) +ltcLaunchTemplateSpecification = lens _ltcLaunchTemplateSpecification (\ s a -> s{_ltcLaunchTemplateSpecification = a}) + +instance FromXML LaunchTemplateConfig where + parseXML x + = LaunchTemplateConfig' <$> + (x .@? "overrides" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "launchTemplateSpecification") + +instance Hashable LaunchTemplateConfig where + +instance NFData LaunchTemplateConfig where + +instance ToQuery LaunchTemplateConfig where + toQuery LaunchTemplateConfig'{..} + = mconcat + [toQuery (toQueryList "Overrides" <$> _ltcOverrides), + "LaunchTemplateSpecification" =: + _ltcLaunchTemplateSpecification] + +-- | Describes a block device for an EBS volume. +-- +-- +-- +-- /See:/ 'launchTemplateEBSBlockDevice' smart constructor. +data LaunchTemplateEBSBlockDevice = LaunchTemplateEBSBlockDevice' + { _ltebdDeleteOnTermination :: !(Maybe Bool) + , _ltebdVolumeSize :: !(Maybe Int) + , _ltebdIOPS :: !(Maybe Int) + , _ltebdEncrypted :: !(Maybe Bool) + , _ltebdKMSKeyId :: !(Maybe Text) + , _ltebdVolumeType :: !(Maybe VolumeType) + , _ltebdSnapshotId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateEBSBlockDevice' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltebdDeleteOnTermination' - Indicates whether the EBS volume is deleted on instance termination. +-- +-- * 'ltebdVolumeSize' - The size of the volume, in GiB. +-- +-- * 'ltebdIOPS' - The number of I/O operations per second (IOPS) that the volume supports. +-- +-- * 'ltebdEncrypted' - Indicates whether the EBS volume is encrypted. +-- +-- * 'ltebdKMSKeyId' - The ARN of the AWS Key Management Service (AWS KMS) CMK used for encryption. +-- +-- * 'ltebdVolumeType' - The volume type. +-- +-- * 'ltebdSnapshotId' - The ID of the snapshot. +launchTemplateEBSBlockDevice + :: LaunchTemplateEBSBlockDevice +launchTemplateEBSBlockDevice = + LaunchTemplateEBSBlockDevice' + { _ltebdDeleteOnTermination = Nothing + , _ltebdVolumeSize = Nothing + , _ltebdIOPS = Nothing + , _ltebdEncrypted = Nothing + , _ltebdKMSKeyId = Nothing + , _ltebdVolumeType = Nothing + , _ltebdSnapshotId = Nothing + } + + +-- | Indicates whether the EBS volume is deleted on instance termination. +ltebdDeleteOnTermination :: Lens' LaunchTemplateEBSBlockDevice (Maybe Bool) +ltebdDeleteOnTermination = lens _ltebdDeleteOnTermination (\ s a -> s{_ltebdDeleteOnTermination = a}) + +-- | The size of the volume, in GiB. +ltebdVolumeSize :: Lens' LaunchTemplateEBSBlockDevice (Maybe Int) +ltebdVolumeSize = lens _ltebdVolumeSize (\ s a -> s{_ltebdVolumeSize = a}) + +-- | The number of I/O operations per second (IOPS) that the volume supports. +ltebdIOPS :: Lens' LaunchTemplateEBSBlockDevice (Maybe Int) +ltebdIOPS = lens _ltebdIOPS (\ s a -> s{_ltebdIOPS = a}) + +-- | Indicates whether the EBS volume is encrypted. +ltebdEncrypted :: Lens' LaunchTemplateEBSBlockDevice (Maybe Bool) +ltebdEncrypted = lens _ltebdEncrypted (\ s a -> s{_ltebdEncrypted = a}) + +-- | The ARN of the AWS Key Management Service (AWS KMS) CMK used for encryption. +ltebdKMSKeyId :: Lens' LaunchTemplateEBSBlockDevice (Maybe Text) +ltebdKMSKeyId = lens _ltebdKMSKeyId (\ s a -> s{_ltebdKMSKeyId = a}) + +-- | The volume type. +ltebdVolumeType :: Lens' LaunchTemplateEBSBlockDevice (Maybe VolumeType) +ltebdVolumeType = lens _ltebdVolumeType (\ s a -> s{_ltebdVolumeType = a}) + +-- | The ID of the snapshot. +ltebdSnapshotId :: Lens' LaunchTemplateEBSBlockDevice (Maybe Text) +ltebdSnapshotId = lens _ltebdSnapshotId (\ s a -> s{_ltebdSnapshotId = a}) + +instance FromXML LaunchTemplateEBSBlockDevice where + parseXML x + = LaunchTemplateEBSBlockDevice' <$> + (x .@? "deleteOnTermination") <*> + (x .@? "volumeSize") + <*> (x .@? "iops") + <*> (x .@? "encrypted") + <*> (x .@? "kmsKeyId") + <*> (x .@? "volumeType") + <*> (x .@? "snapshotId") + +instance Hashable LaunchTemplateEBSBlockDevice where + +instance NFData LaunchTemplateEBSBlockDevice where + +-- | The parameters for a block device for an EBS volume. +-- +-- +-- +-- /See:/ 'launchTemplateEBSBlockDeviceRequest' smart constructor. +data LaunchTemplateEBSBlockDeviceRequest = LaunchTemplateEBSBlockDeviceRequest' + { _ltebdrDeleteOnTermination :: !(Maybe Bool) + , _ltebdrVolumeSize :: !(Maybe Int) + , _ltebdrIOPS :: !(Maybe Int) + , _ltebdrEncrypted :: !(Maybe Bool) + , _ltebdrKMSKeyId :: !(Maybe Text) + , _ltebdrVolumeType :: !(Maybe VolumeType) + , _ltebdrSnapshotId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateEBSBlockDeviceRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltebdrDeleteOnTermination' - Indicates whether the EBS volume is deleted on instance termination. +-- +-- * 'ltebdrVolumeSize' - The size of the volume, in GiB. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. +-- +-- * 'ltebdrIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For io1, this represents the number of IOPS that are provisioned for the volume. For gp2, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about General Purpose SSD baseline performance, I/O credits, and bursting, see Amazon EBS Volume Types in the Amazon Elastic Compute Cloud User Guide. Condition: This parameter is required for requests to create io1 volumes; it is not used in requests to create gp2, st1, sc1, or standard volumes. +-- +-- * 'ltebdrEncrypted' - Indicates whether the EBS volume is encrypted. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. If you are creating a volume from a snapshot, you can't specify an encryption value. +-- +-- * 'ltebdrKMSKeyId' - The ARN of the AWS Key Management Service (AWS KMS) CMK used for encryption. +-- +-- * 'ltebdrVolumeType' - The volume type. +-- +-- * 'ltebdrSnapshotId' - The ID of the snapshot. +launchTemplateEBSBlockDeviceRequest + :: LaunchTemplateEBSBlockDeviceRequest +launchTemplateEBSBlockDeviceRequest = + LaunchTemplateEBSBlockDeviceRequest' + { _ltebdrDeleteOnTermination = Nothing + , _ltebdrVolumeSize = Nothing + , _ltebdrIOPS = Nothing + , _ltebdrEncrypted = Nothing + , _ltebdrKMSKeyId = Nothing + , _ltebdrVolumeType = Nothing + , _ltebdrSnapshotId = Nothing + } + + +-- | Indicates whether the EBS volume is deleted on instance termination. +ltebdrDeleteOnTermination :: Lens' LaunchTemplateEBSBlockDeviceRequest (Maybe Bool) +ltebdrDeleteOnTermination = lens _ltebdrDeleteOnTermination (\ s a -> s{_ltebdrDeleteOnTermination = a}) + +-- | The size of the volume, in GiB. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. +ltebdrVolumeSize :: Lens' LaunchTemplateEBSBlockDeviceRequest (Maybe Int) +ltebdrVolumeSize = lens _ltebdrVolumeSize (\ s a -> s{_ltebdrVolumeSize = a}) + +-- | The number of I/O operations per second (IOPS) that the volume supports. For io1, this represents the number of IOPS that are provisioned for the volume. For gp2, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about General Purpose SSD baseline performance, I/O credits, and bursting, see Amazon EBS Volume Types in the Amazon Elastic Compute Cloud User Guide. Condition: This parameter is required for requests to create io1 volumes; it is not used in requests to create gp2, st1, sc1, or standard volumes. +ltebdrIOPS :: Lens' LaunchTemplateEBSBlockDeviceRequest (Maybe Int) +ltebdrIOPS = lens _ltebdrIOPS (\ s a -> s{_ltebdrIOPS = a}) + +-- | Indicates whether the EBS volume is encrypted. Encrypted volumes can only be attached to instances that support Amazon EBS encryption. If you are creating a volume from a snapshot, you can't specify an encryption value. +ltebdrEncrypted :: Lens' LaunchTemplateEBSBlockDeviceRequest (Maybe Bool) +ltebdrEncrypted = lens _ltebdrEncrypted (\ s a -> s{_ltebdrEncrypted = a}) + +-- | The ARN of the AWS Key Management Service (AWS KMS) CMK used for encryption. +ltebdrKMSKeyId :: Lens' LaunchTemplateEBSBlockDeviceRequest (Maybe Text) +ltebdrKMSKeyId = lens _ltebdrKMSKeyId (\ s a -> s{_ltebdrKMSKeyId = a}) + +-- | The volume type. +ltebdrVolumeType :: Lens' LaunchTemplateEBSBlockDeviceRequest (Maybe VolumeType) +ltebdrVolumeType = lens _ltebdrVolumeType (\ s a -> s{_ltebdrVolumeType = a}) + +-- | The ID of the snapshot. +ltebdrSnapshotId :: Lens' LaunchTemplateEBSBlockDeviceRequest (Maybe Text) +ltebdrSnapshotId = lens _ltebdrSnapshotId (\ s a -> s{_ltebdrSnapshotId = a}) + +instance Hashable LaunchTemplateEBSBlockDeviceRequest + where + +instance NFData LaunchTemplateEBSBlockDeviceRequest + where + +instance ToQuery LaunchTemplateEBSBlockDeviceRequest + where + toQuery LaunchTemplateEBSBlockDeviceRequest'{..} + = mconcat + ["DeleteOnTermination" =: _ltebdrDeleteOnTermination, + "VolumeSize" =: _ltebdrVolumeSize, + "Iops" =: _ltebdrIOPS, + "Encrypted" =: _ltebdrEncrypted, + "KmsKeyId" =: _ltebdrKMSKeyId, + "VolumeType" =: _ltebdrVolumeType, + "SnapshotId" =: _ltebdrSnapshotId] + +-- | Describes an IAM instance profile. +-- +-- +-- +-- /See:/ 'launchTemplateIAMInstanceProfileSpecification' smart constructor. +data LaunchTemplateIAMInstanceProfileSpecification = LaunchTemplateIAMInstanceProfileSpecification' + { _ltiapsARN :: !(Maybe Text) + , _ltiapsName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateIAMInstanceProfileSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltiapsARN' - The Amazon Resource Name (ARN) of the instance profile. +-- +-- * 'ltiapsName' - The name of the instance profile. +launchTemplateIAMInstanceProfileSpecification + :: LaunchTemplateIAMInstanceProfileSpecification +launchTemplateIAMInstanceProfileSpecification = + LaunchTemplateIAMInstanceProfileSpecification' + {_ltiapsARN = Nothing, _ltiapsName = Nothing} + + +-- | The Amazon Resource Name (ARN) of the instance profile. +ltiapsARN :: Lens' LaunchTemplateIAMInstanceProfileSpecification (Maybe Text) +ltiapsARN = lens _ltiapsARN (\ s a -> s{_ltiapsARN = a}) + +-- | The name of the instance profile. +ltiapsName :: Lens' LaunchTemplateIAMInstanceProfileSpecification (Maybe Text) +ltiapsName = lens _ltiapsName (\ s a -> s{_ltiapsName = a}) + +instance FromXML + LaunchTemplateIAMInstanceProfileSpecification + where + parseXML x + = LaunchTemplateIAMInstanceProfileSpecification' <$> + (x .@? "arn") <*> (x .@? "name") + +instance Hashable + LaunchTemplateIAMInstanceProfileSpecification + where + +instance NFData + LaunchTemplateIAMInstanceProfileSpecification + where + +-- | An IAM instance profile. +-- +-- +-- +-- /See:/ 'launchTemplateIAMInstanceProfileSpecificationRequest' smart constructor. +data LaunchTemplateIAMInstanceProfileSpecificationRequest = LaunchTemplateIAMInstanceProfileSpecificationRequest' + { _ltiapsrARN :: !(Maybe Text) + , _ltiapsrName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateIAMInstanceProfileSpecificationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltiapsrARN' - The Amazon Resource Name (ARN) of the instance profile. +-- +-- * 'ltiapsrName' - The name of the instance profile. +launchTemplateIAMInstanceProfileSpecificationRequest + :: LaunchTemplateIAMInstanceProfileSpecificationRequest +launchTemplateIAMInstanceProfileSpecificationRequest = + LaunchTemplateIAMInstanceProfileSpecificationRequest' + {_ltiapsrARN = Nothing, _ltiapsrName = Nothing} + + +-- | The Amazon Resource Name (ARN) of the instance profile. +ltiapsrARN :: Lens' LaunchTemplateIAMInstanceProfileSpecificationRequest (Maybe Text) +ltiapsrARN = lens _ltiapsrARN (\ s a -> s{_ltiapsrARN = a}) + +-- | The name of the instance profile. +ltiapsrName :: Lens' LaunchTemplateIAMInstanceProfileSpecificationRequest (Maybe Text) +ltiapsrName = lens _ltiapsrName (\ s a -> s{_ltiapsrName = a}) + +instance Hashable + LaunchTemplateIAMInstanceProfileSpecificationRequest + where + +instance NFData + LaunchTemplateIAMInstanceProfileSpecificationRequest + where + +instance ToQuery + LaunchTemplateIAMInstanceProfileSpecificationRequest + where + toQuery + LaunchTemplateIAMInstanceProfileSpecificationRequest'{..} + = mconcat + ["Arn" =: _ltiapsrARN, "Name" =: _ltiapsrName] + +-- | The market (purchasing) option for the instances. +-- +-- +-- +-- /See:/ 'launchTemplateInstanceMarketOptions' smart constructor. +data LaunchTemplateInstanceMarketOptions = LaunchTemplateInstanceMarketOptions' + { _ltimoMarketType :: !(Maybe MarketType) + , _ltimoSpotOptions :: !(Maybe LaunchTemplateSpotMarketOptions) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateInstanceMarketOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltimoMarketType' - The market type. +-- +-- * 'ltimoSpotOptions' - The options for Spot Instances. +launchTemplateInstanceMarketOptions + :: LaunchTemplateInstanceMarketOptions +launchTemplateInstanceMarketOptions = + LaunchTemplateInstanceMarketOptions' + {_ltimoMarketType = Nothing, _ltimoSpotOptions = Nothing} + + +-- | The market type. +ltimoMarketType :: Lens' LaunchTemplateInstanceMarketOptions (Maybe MarketType) +ltimoMarketType = lens _ltimoMarketType (\ s a -> s{_ltimoMarketType = a}) + +-- | The options for Spot Instances. +ltimoSpotOptions :: Lens' LaunchTemplateInstanceMarketOptions (Maybe LaunchTemplateSpotMarketOptions) +ltimoSpotOptions = lens _ltimoSpotOptions (\ s a -> s{_ltimoSpotOptions = a}) + +instance FromXML LaunchTemplateInstanceMarketOptions + where + parseXML x + = LaunchTemplateInstanceMarketOptions' <$> + (x .@? "marketType") <*> (x .@? "spotOptions") + +instance Hashable LaunchTemplateInstanceMarketOptions + where + +instance NFData LaunchTemplateInstanceMarketOptions + where + +-- | The market (purchasing) option for the instances. +-- +-- +-- +-- /See:/ 'launchTemplateInstanceMarketOptionsRequest' smart constructor. +data LaunchTemplateInstanceMarketOptionsRequest = LaunchTemplateInstanceMarketOptionsRequest' + { _ltimorMarketType :: !(Maybe MarketType) + , _ltimorSpotOptions :: !(Maybe LaunchTemplateSpotMarketOptionsRequest) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateInstanceMarketOptionsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltimorMarketType' - The market type. +-- +-- * 'ltimorSpotOptions' - The options for Spot Instances. +launchTemplateInstanceMarketOptionsRequest + :: LaunchTemplateInstanceMarketOptionsRequest +launchTemplateInstanceMarketOptionsRequest = + LaunchTemplateInstanceMarketOptionsRequest' + {_ltimorMarketType = Nothing, _ltimorSpotOptions = Nothing} + + +-- | The market type. +ltimorMarketType :: Lens' LaunchTemplateInstanceMarketOptionsRequest (Maybe MarketType) +ltimorMarketType = lens _ltimorMarketType (\ s a -> s{_ltimorMarketType = a}) + +-- | The options for Spot Instances. +ltimorSpotOptions :: Lens' LaunchTemplateInstanceMarketOptionsRequest (Maybe LaunchTemplateSpotMarketOptionsRequest) +ltimorSpotOptions = lens _ltimorSpotOptions (\ s a -> s{_ltimorSpotOptions = a}) + +instance Hashable + LaunchTemplateInstanceMarketOptionsRequest + where + +instance NFData + LaunchTemplateInstanceMarketOptionsRequest + where + +instance ToQuery + LaunchTemplateInstanceMarketOptionsRequest + where + toQuery + LaunchTemplateInstanceMarketOptionsRequest'{..} + = mconcat + ["MarketType" =: _ltimorMarketType, + "SpotOptions" =: _ltimorSpotOptions] + +-- | Describes a network interface. +-- +-- +-- +-- /See:/ 'launchTemplateInstanceNetworkInterfaceSpecification' smart constructor. +data LaunchTemplateInstanceNetworkInterfaceSpecification = LaunchTemplateInstanceNetworkInterfaceSpecification' + { _ltinisGroups :: !(Maybe [Text]) + , _ltinisPrivateIPAddresses :: !(Maybe [PrivateIPAddressSpecification]) + , _ltinisDeleteOnTermination :: !(Maybe Bool) + , _ltinisAssociatePublicIPAddress :: !(Maybe Bool) + , _ltinisNetworkInterfaceId :: !(Maybe Text) + , _ltinisSubnetId :: !(Maybe Text) + , _ltinisIPv6AddressCount :: !(Maybe Int) + , _ltinisPrivateIPAddress :: !(Maybe Text) + , _ltinisSecondaryPrivateIPAddressCount :: !(Maybe Int) + , _ltinisDescription :: !(Maybe Text) + , _ltinisDeviceIndex :: !(Maybe Int) + , _ltinisIPv6Addresses :: !(Maybe [InstanceIPv6Address]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateInstanceNetworkInterfaceSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltinisGroups' - The IDs of one or more security groups. +-- +-- * 'ltinisPrivateIPAddresses' - One or more private IPv4 addresses. +-- +-- * 'ltinisDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. +-- +-- * 'ltinisAssociatePublicIPAddress' - Indicates whether to associate a public IPv4 address with eth0 for a new network interface. +-- +-- * 'ltinisNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'ltinisSubnetId' - The ID of the subnet for the network interface. +-- +-- * 'ltinisIPv6AddressCount' - The number of IPv6 addresses for the network interface. +-- +-- * 'ltinisPrivateIPAddress' - The primary private IPv4 address of the network interface. +-- +-- * 'ltinisSecondaryPrivateIPAddressCount' - The number of secondary private IPv4 addresses for the network interface. +-- +-- * 'ltinisDescription' - A description for the network interface. +-- +-- * 'ltinisDeviceIndex' - The device index for the network interface attachment. +-- +-- * 'ltinisIPv6Addresses' - The IPv6 addresses for the network interface. +launchTemplateInstanceNetworkInterfaceSpecification + :: LaunchTemplateInstanceNetworkInterfaceSpecification +launchTemplateInstanceNetworkInterfaceSpecification = + LaunchTemplateInstanceNetworkInterfaceSpecification' + { _ltinisGroups = Nothing + , _ltinisPrivateIPAddresses = Nothing + , _ltinisDeleteOnTermination = Nothing + , _ltinisAssociatePublicIPAddress = Nothing + , _ltinisNetworkInterfaceId = Nothing + , _ltinisSubnetId = Nothing + , _ltinisIPv6AddressCount = Nothing + , _ltinisPrivateIPAddress = Nothing + , _ltinisSecondaryPrivateIPAddressCount = Nothing + , _ltinisDescription = Nothing + , _ltinisDeviceIndex = Nothing + , _ltinisIPv6Addresses = Nothing + } + + +-- | The IDs of one or more security groups. +ltinisGroups :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification [Text] +ltinisGroups = lens _ltinisGroups (\ s a -> s{_ltinisGroups = a}) . _Default . _Coerce + +-- | One or more private IPv4 addresses. +ltinisPrivateIPAddresses :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification [PrivateIPAddressSpecification] +ltinisPrivateIPAddresses = lens _ltinisPrivateIPAddresses (\ s a -> s{_ltinisPrivateIPAddresses = a}) . _Default . _Coerce + +-- | Indicates whether the network interface is deleted when the instance is terminated. +ltinisDeleteOnTermination :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Bool) +ltinisDeleteOnTermination = lens _ltinisDeleteOnTermination (\ s a -> s{_ltinisDeleteOnTermination = a}) + +-- | Indicates whether to associate a public IPv4 address with eth0 for a new network interface. +ltinisAssociatePublicIPAddress :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Bool) +ltinisAssociatePublicIPAddress = lens _ltinisAssociatePublicIPAddress (\ s a -> s{_ltinisAssociatePublicIPAddress = a}) + +-- | The ID of the network interface. +ltinisNetworkInterfaceId :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Text) +ltinisNetworkInterfaceId = lens _ltinisNetworkInterfaceId (\ s a -> s{_ltinisNetworkInterfaceId = a}) + +-- | The ID of the subnet for the network interface. +ltinisSubnetId :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Text) +ltinisSubnetId = lens _ltinisSubnetId (\ s a -> s{_ltinisSubnetId = a}) + +-- | The number of IPv6 addresses for the network interface. +ltinisIPv6AddressCount :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Int) +ltinisIPv6AddressCount = lens _ltinisIPv6AddressCount (\ s a -> s{_ltinisIPv6AddressCount = a}) + +-- | The primary private IPv4 address of the network interface. +ltinisPrivateIPAddress :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Text) +ltinisPrivateIPAddress = lens _ltinisPrivateIPAddress (\ s a -> s{_ltinisPrivateIPAddress = a}) + +-- | The number of secondary private IPv4 addresses for the network interface. +ltinisSecondaryPrivateIPAddressCount :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Int) +ltinisSecondaryPrivateIPAddressCount = lens _ltinisSecondaryPrivateIPAddressCount (\ s a -> s{_ltinisSecondaryPrivateIPAddressCount = a}) + +-- | A description for the network interface. +ltinisDescription :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Text) +ltinisDescription = lens _ltinisDescription (\ s a -> s{_ltinisDescription = a}) + +-- | The device index for the network interface attachment. +ltinisDeviceIndex :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification (Maybe Int) +ltinisDeviceIndex = lens _ltinisDeviceIndex (\ s a -> s{_ltinisDeviceIndex = a}) + +-- | The IPv6 addresses for the network interface. +ltinisIPv6Addresses :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecification [InstanceIPv6Address] +ltinisIPv6Addresses = lens _ltinisIPv6Addresses (\ s a -> s{_ltinisIPv6Addresses = a}) . _Default . _Coerce + +instance FromXML + LaunchTemplateInstanceNetworkInterfaceSpecification + where + parseXML x + = LaunchTemplateInstanceNetworkInterfaceSpecification' + <$> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "groupId")) + <*> + (x .@? "privateIpAddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "deleteOnTermination") + <*> (x .@? "associatePublicIpAddress") + <*> (x .@? "networkInterfaceId") + <*> (x .@? "subnetId") + <*> (x .@? "ipv6AddressCount") + <*> (x .@? "privateIpAddress") + <*> (x .@? "secondaryPrivateIpAddressCount") + <*> (x .@? "description") + <*> (x .@? "deviceIndex") + <*> + (x .@? "ipv6AddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable + LaunchTemplateInstanceNetworkInterfaceSpecification + where + +instance NFData + LaunchTemplateInstanceNetworkInterfaceSpecification + where + +-- | The parameters for a network interface. +-- +-- +-- +-- /See:/ 'launchTemplateInstanceNetworkInterfaceSpecificationRequest' smart constructor. +data LaunchTemplateInstanceNetworkInterfaceSpecificationRequest = LaunchTemplateInstanceNetworkInterfaceSpecificationRequest' + { _ltinisrGroups :: !(Maybe [Text]) + , _ltinisrPrivateIPAddresses :: !(Maybe [PrivateIPAddressSpecification]) + , _ltinisrDeleteOnTermination :: !(Maybe Bool) + , _ltinisrAssociatePublicIPAddress :: !(Maybe Bool) + , _ltinisrNetworkInterfaceId :: !(Maybe Text) + , _ltinisrSubnetId :: !(Maybe Text) + , _ltinisrIPv6AddressCount :: !(Maybe Int) + , _ltinisrPrivateIPAddress :: !(Maybe Text) + , _ltinisrSecondaryPrivateIPAddressCount :: !(Maybe Int) + , _ltinisrDescription :: !(Maybe Text) + , _ltinisrDeviceIndex :: !(Maybe Int) + , _ltinisrIPv6Addresses :: !(Maybe [InstanceIPv6AddressRequest]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateInstanceNetworkInterfaceSpecificationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltinisrGroups' - The IDs of one or more security groups. +-- +-- * 'ltinisrPrivateIPAddresses' - One or more private IPv4 addresses. +-- +-- * 'ltinisrDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. +-- +-- * 'ltinisrAssociatePublicIPAddress' - Associates a public IPv4 address with eth0 for a new network interface. +-- +-- * 'ltinisrNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'ltinisrSubnetId' - The ID of the subnet for the network interface. +-- +-- * 'ltinisrIPv6AddressCount' - The number of IPv6 addresses to assign to a network interface. Amazon EC2 automatically selects the IPv6 addresses from the subnet range. You can't use this option if specifying specific IPv6 addresses. +-- +-- * 'ltinisrPrivateIPAddress' - The primary private IPv4 address of the network interface. +-- +-- * 'ltinisrSecondaryPrivateIPAddressCount' - The number of secondary private IPv4 addresses to assign to a network interface. +-- +-- * 'ltinisrDescription' - A description for the network interface. +-- +-- * 'ltinisrDeviceIndex' - The device index for the network interface attachment. +-- +-- * 'ltinisrIPv6Addresses' - One or more specific IPv6 addresses from the IPv6 CIDR block range of your subnet. You can't use this option if you're specifying a number of IPv6 addresses. +launchTemplateInstanceNetworkInterfaceSpecificationRequest + :: LaunchTemplateInstanceNetworkInterfaceSpecificationRequest +launchTemplateInstanceNetworkInterfaceSpecificationRequest = + LaunchTemplateInstanceNetworkInterfaceSpecificationRequest' + { _ltinisrGroups = Nothing + , _ltinisrPrivateIPAddresses = Nothing + , _ltinisrDeleteOnTermination = Nothing + , _ltinisrAssociatePublicIPAddress = Nothing + , _ltinisrNetworkInterfaceId = Nothing + , _ltinisrSubnetId = Nothing + , _ltinisrIPv6AddressCount = Nothing + , _ltinisrPrivateIPAddress = Nothing + , _ltinisrSecondaryPrivateIPAddressCount = Nothing + , _ltinisrDescription = Nothing + , _ltinisrDeviceIndex = Nothing + , _ltinisrIPv6Addresses = Nothing + } + + +-- | The IDs of one or more security groups. +ltinisrGroups :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest [Text] +ltinisrGroups = lens _ltinisrGroups (\ s a -> s{_ltinisrGroups = a}) . _Default . _Coerce + +-- | One or more private IPv4 addresses. +ltinisrPrivateIPAddresses :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest [PrivateIPAddressSpecification] +ltinisrPrivateIPAddresses = lens _ltinisrPrivateIPAddresses (\ s a -> s{_ltinisrPrivateIPAddresses = a}) . _Default . _Coerce + +-- | Indicates whether the network interface is deleted when the instance is terminated. +ltinisrDeleteOnTermination :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Bool) +ltinisrDeleteOnTermination = lens _ltinisrDeleteOnTermination (\ s a -> s{_ltinisrDeleteOnTermination = a}) + +-- | Associates a public IPv4 address with eth0 for a new network interface. +ltinisrAssociatePublicIPAddress :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Bool) +ltinisrAssociatePublicIPAddress = lens _ltinisrAssociatePublicIPAddress (\ s a -> s{_ltinisrAssociatePublicIPAddress = a}) + +-- | The ID of the network interface. +ltinisrNetworkInterfaceId :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Text) +ltinisrNetworkInterfaceId = lens _ltinisrNetworkInterfaceId (\ s a -> s{_ltinisrNetworkInterfaceId = a}) + +-- | The ID of the subnet for the network interface. +ltinisrSubnetId :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Text) +ltinisrSubnetId = lens _ltinisrSubnetId (\ s a -> s{_ltinisrSubnetId = a}) + +-- | The number of IPv6 addresses to assign to a network interface. Amazon EC2 automatically selects the IPv6 addresses from the subnet range. You can't use this option if specifying specific IPv6 addresses. +ltinisrIPv6AddressCount :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Int) +ltinisrIPv6AddressCount = lens _ltinisrIPv6AddressCount (\ s a -> s{_ltinisrIPv6AddressCount = a}) + +-- | The primary private IPv4 address of the network interface. +ltinisrPrivateIPAddress :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Text) +ltinisrPrivateIPAddress = lens _ltinisrPrivateIPAddress (\ s a -> s{_ltinisrPrivateIPAddress = a}) + +-- | The number of secondary private IPv4 addresses to assign to a network interface. +ltinisrSecondaryPrivateIPAddressCount :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Int) +ltinisrSecondaryPrivateIPAddressCount = lens _ltinisrSecondaryPrivateIPAddressCount (\ s a -> s{_ltinisrSecondaryPrivateIPAddressCount = a}) + +-- | A description for the network interface. +ltinisrDescription :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Text) +ltinisrDescription = lens _ltinisrDescription (\ s a -> s{_ltinisrDescription = a}) + +-- | The device index for the network interface attachment. +ltinisrDeviceIndex :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest (Maybe Int) +ltinisrDeviceIndex = lens _ltinisrDeviceIndex (\ s a -> s{_ltinisrDeviceIndex = a}) + +-- | One or more specific IPv6 addresses from the IPv6 CIDR block range of your subnet. You can't use this option if you're specifying a number of IPv6 addresses. +ltinisrIPv6Addresses :: Lens' LaunchTemplateInstanceNetworkInterfaceSpecificationRequest [InstanceIPv6AddressRequest] +ltinisrIPv6Addresses = lens _ltinisrIPv6Addresses (\ s a -> s{_ltinisrIPv6Addresses = a}) . _Default . _Coerce + +instance Hashable + LaunchTemplateInstanceNetworkInterfaceSpecificationRequest + where + +instance NFData + LaunchTemplateInstanceNetworkInterfaceSpecificationRequest + where + +instance ToQuery + LaunchTemplateInstanceNetworkInterfaceSpecificationRequest + where + toQuery + LaunchTemplateInstanceNetworkInterfaceSpecificationRequest'{..} + = mconcat + [toQuery + (toQueryList "SecurityGroupId" <$> _ltinisrGroups), + toQuery + (toQueryList "PrivateIpAddresses" <$> + _ltinisrPrivateIPAddresses), + "DeleteOnTermination" =: _ltinisrDeleteOnTermination, + "AssociatePublicIpAddress" =: + _ltinisrAssociatePublicIPAddress, + "NetworkInterfaceId" =: _ltinisrNetworkInterfaceId, + "SubnetId" =: _ltinisrSubnetId, + "Ipv6AddressCount" =: _ltinisrIPv6AddressCount, + "PrivateIpAddress" =: _ltinisrPrivateIPAddress, + "SecondaryPrivateIpAddressCount" =: + _ltinisrSecondaryPrivateIPAddressCount, + "Description" =: _ltinisrDescription, + "DeviceIndex" =: _ltinisrDeviceIndex, + toQuery + (toQueryList "Ipv6Addresses" <$> + _ltinisrIPv6Addresses)] + +-- | Describes overrides for a launch template. +-- +-- +-- +-- /See:/ 'launchTemplateOverrides' smart constructor. +data LaunchTemplateOverrides = LaunchTemplateOverrides' + { _ltoSpotPrice :: !(Maybe Text) + , _ltoWeightedCapacity :: !(Maybe Double) + , _ltoSubnetId :: !(Maybe Text) + , _ltoInstanceType :: !(Maybe InstanceType) + , _ltoAvailabilityZone :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateOverrides' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltoSpotPrice' - The maximum price per unit hour that you are willing to pay for a Spot Instance. +-- +-- * 'ltoWeightedCapacity' - The number of units provided by the specified instance type. +-- +-- * 'ltoSubnetId' - The ID of the subnet in which to launch the instances. +-- +-- * 'ltoInstanceType' - The instance type. +-- +-- * 'ltoAvailabilityZone' - The Availability Zone in which to launch the instances. +launchTemplateOverrides + :: LaunchTemplateOverrides +launchTemplateOverrides = + LaunchTemplateOverrides' + { _ltoSpotPrice = Nothing + , _ltoWeightedCapacity = Nothing + , _ltoSubnetId = Nothing + , _ltoInstanceType = Nothing + , _ltoAvailabilityZone = Nothing + } + + +-- | The maximum price per unit hour that you are willing to pay for a Spot Instance. +ltoSpotPrice :: Lens' LaunchTemplateOverrides (Maybe Text) +ltoSpotPrice = lens _ltoSpotPrice (\ s a -> s{_ltoSpotPrice = a}) + +-- | The number of units provided by the specified instance type. +ltoWeightedCapacity :: Lens' LaunchTemplateOverrides (Maybe Double) +ltoWeightedCapacity = lens _ltoWeightedCapacity (\ s a -> s{_ltoWeightedCapacity = a}) + +-- | The ID of the subnet in which to launch the instances. +ltoSubnetId :: Lens' LaunchTemplateOverrides (Maybe Text) +ltoSubnetId = lens _ltoSubnetId (\ s a -> s{_ltoSubnetId = a}) + +-- | The instance type. +ltoInstanceType :: Lens' LaunchTemplateOverrides (Maybe InstanceType) +ltoInstanceType = lens _ltoInstanceType (\ s a -> s{_ltoInstanceType = a}) + +-- | The Availability Zone in which to launch the instances. +ltoAvailabilityZone :: Lens' LaunchTemplateOverrides (Maybe Text) +ltoAvailabilityZone = lens _ltoAvailabilityZone (\ s a -> s{_ltoAvailabilityZone = a}) + +instance FromXML LaunchTemplateOverrides where + parseXML x + = LaunchTemplateOverrides' <$> + (x .@? "spotPrice") <*> (x .@? "weightedCapacity") + <*> (x .@? "subnetId") + <*> (x .@? "instanceType") + <*> (x .@? "availabilityZone") + +instance Hashable LaunchTemplateOverrides where + +instance NFData LaunchTemplateOverrides where + +instance ToQuery LaunchTemplateOverrides where + toQuery LaunchTemplateOverrides'{..} + = mconcat + ["SpotPrice" =: _ltoSpotPrice, + "WeightedCapacity" =: _ltoWeightedCapacity, + "SubnetId" =: _ltoSubnetId, + "InstanceType" =: _ltoInstanceType, + "AvailabilityZone" =: _ltoAvailabilityZone] + +-- | Describes the placement of an instance. +-- +-- +-- +-- /See:/ 'launchTemplatePlacement' smart constructor. +data LaunchTemplatePlacement = LaunchTemplatePlacement' + { _ltpAffinity :: !(Maybe Text) + , _ltpHostId :: !(Maybe Text) + , _ltpSpreadDomain :: !(Maybe Text) + , _ltpAvailabilityZone :: !(Maybe Text) + , _ltpTenancy :: !(Maybe Tenancy) + , _ltpGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplatePlacement' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltpAffinity' - The affinity setting for the instance on the Dedicated Host. +-- +-- * 'ltpHostId' - The ID of the Dedicated Host for the instance. +-- +-- * 'ltpSpreadDomain' - Reserved for future use. +-- +-- * 'ltpAvailabilityZone' - The Availability Zone of the instance. +-- +-- * 'ltpTenancy' - The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. +-- +-- * 'ltpGroupName' - The name of the placement group for the instance. +launchTemplatePlacement + :: LaunchTemplatePlacement +launchTemplatePlacement = + LaunchTemplatePlacement' + { _ltpAffinity = Nothing + , _ltpHostId = Nothing + , _ltpSpreadDomain = Nothing + , _ltpAvailabilityZone = Nothing + , _ltpTenancy = Nothing + , _ltpGroupName = Nothing + } + + +-- | The affinity setting for the instance on the Dedicated Host. +ltpAffinity :: Lens' LaunchTemplatePlacement (Maybe Text) +ltpAffinity = lens _ltpAffinity (\ s a -> s{_ltpAffinity = a}) + +-- | The ID of the Dedicated Host for the instance. +ltpHostId :: Lens' LaunchTemplatePlacement (Maybe Text) +ltpHostId = lens _ltpHostId (\ s a -> s{_ltpHostId = a}) + +-- | Reserved for future use. +ltpSpreadDomain :: Lens' LaunchTemplatePlacement (Maybe Text) +ltpSpreadDomain = lens _ltpSpreadDomain (\ s a -> s{_ltpSpreadDomain = a}) + +-- | The Availability Zone of the instance. +ltpAvailabilityZone :: Lens' LaunchTemplatePlacement (Maybe Text) +ltpAvailabilityZone = lens _ltpAvailabilityZone (\ s a -> s{_ltpAvailabilityZone = a}) + +-- | The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. +ltpTenancy :: Lens' LaunchTemplatePlacement (Maybe Tenancy) +ltpTenancy = lens _ltpTenancy (\ s a -> s{_ltpTenancy = a}) + +-- | The name of the placement group for the instance. +ltpGroupName :: Lens' LaunchTemplatePlacement (Maybe Text) +ltpGroupName = lens _ltpGroupName (\ s a -> s{_ltpGroupName = a}) + +instance FromXML LaunchTemplatePlacement where + parseXML x + = LaunchTemplatePlacement' <$> + (x .@? "affinity") <*> (x .@? "hostId") <*> + (x .@? "spreadDomain") + <*> (x .@? "availabilityZone") + <*> (x .@? "tenancy") + <*> (x .@? "groupName") + +instance Hashable LaunchTemplatePlacement where + +instance NFData LaunchTemplatePlacement where + +-- | The placement for the instance. +-- +-- +-- +-- /See:/ 'launchTemplatePlacementRequest' smart constructor. +data LaunchTemplatePlacementRequest = LaunchTemplatePlacementRequest' + { _ltprAffinity :: !(Maybe Text) + , _ltprHostId :: !(Maybe Text) + , _ltprSpreadDomain :: !(Maybe Text) + , _ltprAvailabilityZone :: !(Maybe Text) + , _ltprTenancy :: !(Maybe Tenancy) + , _ltprGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplatePlacementRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltprAffinity' - The affinity setting for an instance on a Dedicated Host. +-- +-- * 'ltprHostId' - The ID of the Dedicated Host for the instance. +-- +-- * 'ltprSpreadDomain' - Reserved for future use. +-- +-- * 'ltprAvailabilityZone' - The Availability Zone for the instance. +-- +-- * 'ltprTenancy' - The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of dedicated runs on single-tenant hardware. +-- +-- * 'ltprGroupName' - The name of the placement group for the instance. +launchTemplatePlacementRequest + :: LaunchTemplatePlacementRequest +launchTemplatePlacementRequest = + LaunchTemplatePlacementRequest' + { _ltprAffinity = Nothing + , _ltprHostId = Nothing + , _ltprSpreadDomain = Nothing + , _ltprAvailabilityZone = Nothing + , _ltprTenancy = Nothing + , _ltprGroupName = Nothing + } + + +-- | The affinity setting for an instance on a Dedicated Host. +ltprAffinity :: Lens' LaunchTemplatePlacementRequest (Maybe Text) +ltprAffinity = lens _ltprAffinity (\ s a -> s{_ltprAffinity = a}) + +-- | The ID of the Dedicated Host for the instance. +ltprHostId :: Lens' LaunchTemplatePlacementRequest (Maybe Text) +ltprHostId = lens _ltprHostId (\ s a -> s{_ltprHostId = a}) + +-- | Reserved for future use. +ltprSpreadDomain :: Lens' LaunchTemplatePlacementRequest (Maybe Text) +ltprSpreadDomain = lens _ltprSpreadDomain (\ s a -> s{_ltprSpreadDomain = a}) + +-- | The Availability Zone for the instance. +ltprAvailabilityZone :: Lens' LaunchTemplatePlacementRequest (Maybe Text) +ltprAvailabilityZone = lens _ltprAvailabilityZone (\ s a -> s{_ltprAvailabilityZone = a}) + +-- | The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of dedicated runs on single-tenant hardware. +ltprTenancy :: Lens' LaunchTemplatePlacementRequest (Maybe Tenancy) +ltprTenancy = lens _ltprTenancy (\ s a -> s{_ltprTenancy = a}) + +-- | The name of the placement group for the instance. +ltprGroupName :: Lens' LaunchTemplatePlacementRequest (Maybe Text) +ltprGroupName = lens _ltprGroupName (\ s a -> s{_ltprGroupName = a}) + +instance Hashable LaunchTemplatePlacementRequest + where + +instance NFData LaunchTemplatePlacementRequest where + +instance ToQuery LaunchTemplatePlacementRequest where + toQuery LaunchTemplatePlacementRequest'{..} + = mconcat + ["Affinity" =: _ltprAffinity, + "HostId" =: _ltprHostId, + "SpreadDomain" =: _ltprSpreadDomain, + "AvailabilityZone" =: _ltprAvailabilityZone, + "Tenancy" =: _ltprTenancy, + "GroupName" =: _ltprGroupName] + +-- | The launch template to use. You must specify either the launch template ID or launch template name in the request, but not both. +-- +-- +-- +-- /See:/ 'launchTemplateSpecification' smart constructor. +data LaunchTemplateSpecification = LaunchTemplateSpecification' + { _ltsLaunchTemplateName :: !(Maybe Text) + , _ltsLaunchTemplateId :: !(Maybe Text) + , _ltsVersion :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltsLaunchTemplateName' - The name of the launch template. +-- +-- * 'ltsLaunchTemplateId' - The ID of the launch template. +-- +-- * 'ltsVersion' - The version number of the launch template. Default: The default version for the launch template. +launchTemplateSpecification + :: LaunchTemplateSpecification +launchTemplateSpecification = + LaunchTemplateSpecification' + { _ltsLaunchTemplateName = Nothing + , _ltsLaunchTemplateId = Nothing + , _ltsVersion = Nothing + } + + +-- | The name of the launch template. +ltsLaunchTemplateName :: Lens' LaunchTemplateSpecification (Maybe Text) +ltsLaunchTemplateName = lens _ltsLaunchTemplateName (\ s a -> s{_ltsLaunchTemplateName = a}) + +-- | The ID of the launch template. +ltsLaunchTemplateId :: Lens' LaunchTemplateSpecification (Maybe Text) +ltsLaunchTemplateId = lens _ltsLaunchTemplateId (\ s a -> s{_ltsLaunchTemplateId = a}) + +-- | The version number of the launch template. Default: The default version for the launch template. +ltsVersion :: Lens' LaunchTemplateSpecification (Maybe Text) +ltsVersion = lens _ltsVersion (\ s a -> s{_ltsVersion = a}) + +instance Hashable LaunchTemplateSpecification where + +instance NFData LaunchTemplateSpecification where + +instance ToQuery LaunchTemplateSpecification where + toQuery LaunchTemplateSpecification'{..} + = mconcat + ["LaunchTemplateName" =: _ltsLaunchTemplateName, + "LaunchTemplateId" =: _ltsLaunchTemplateId, + "Version" =: _ltsVersion] + +-- | The options for Spot Instances. +-- +-- +-- +-- /See:/ 'launchTemplateSpotMarketOptions' smart constructor. +data LaunchTemplateSpotMarketOptions = LaunchTemplateSpotMarketOptions' + { _ltsmoBlockDurationMinutes :: !(Maybe Int) + , _ltsmoInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) + , _ltsmoValidUntil :: !(Maybe ISO8601) + , _ltsmoSpotInstanceType :: !(Maybe SpotInstanceType) + , _ltsmoMaxPrice :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateSpotMarketOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltsmoBlockDurationMinutes' - The required duration for the Spot Instances (also known as Spot blocks), in minutes. This value must be a multiple of 60 (60, 120, 180, 240, 300, or 360). +-- +-- * 'ltsmoInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. +-- +-- * 'ltsmoValidUntil' - The end date of the request. For 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 and time is reached. +-- +-- * 'ltsmoSpotInstanceType' - The Spot Instance request type. +-- +-- * 'ltsmoMaxPrice' - The maximum hourly price you're willing to pay for the Spot Instances. +launchTemplateSpotMarketOptions + :: LaunchTemplateSpotMarketOptions +launchTemplateSpotMarketOptions = + LaunchTemplateSpotMarketOptions' + { _ltsmoBlockDurationMinutes = Nothing + , _ltsmoInstanceInterruptionBehavior = Nothing + , _ltsmoValidUntil = Nothing + , _ltsmoSpotInstanceType = Nothing + , _ltsmoMaxPrice = Nothing + } + + +-- | The required duration for the Spot Instances (also known as Spot blocks), in minutes. This value must be a multiple of 60 (60, 120, 180, 240, 300, or 360). +ltsmoBlockDurationMinutes :: Lens' LaunchTemplateSpotMarketOptions (Maybe Int) +ltsmoBlockDurationMinutes = lens _ltsmoBlockDurationMinutes (\ s a -> s{_ltsmoBlockDurationMinutes = a}) + +-- | The behavior when a Spot Instance is interrupted. +ltsmoInstanceInterruptionBehavior :: Lens' LaunchTemplateSpotMarketOptions (Maybe InstanceInterruptionBehavior) +ltsmoInstanceInterruptionBehavior = lens _ltsmoInstanceInterruptionBehavior (\ s a -> s{_ltsmoInstanceInterruptionBehavior = a}) + +-- | The end date of the request. For 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 and time is reached. +ltsmoValidUntil :: Lens' LaunchTemplateSpotMarketOptions (Maybe UTCTime) +ltsmoValidUntil = lens _ltsmoValidUntil (\ s a -> s{_ltsmoValidUntil = a}) . mapping _Time + +-- | The Spot Instance request type. +ltsmoSpotInstanceType :: Lens' LaunchTemplateSpotMarketOptions (Maybe SpotInstanceType) +ltsmoSpotInstanceType = lens _ltsmoSpotInstanceType (\ s a -> s{_ltsmoSpotInstanceType = a}) + +-- | The maximum hourly price you're willing to pay for the Spot Instances. +ltsmoMaxPrice :: Lens' LaunchTemplateSpotMarketOptions (Maybe Text) +ltsmoMaxPrice = lens _ltsmoMaxPrice (\ s a -> s{_ltsmoMaxPrice = a}) + +instance FromXML LaunchTemplateSpotMarketOptions + where + parseXML x + = LaunchTemplateSpotMarketOptions' <$> + (x .@? "blockDurationMinutes") <*> + (x .@? "instanceInterruptionBehavior") + <*> (x .@? "validUntil") + <*> (x .@? "spotInstanceType") + <*> (x .@? "maxPrice") + +instance Hashable LaunchTemplateSpotMarketOptions + where + +instance NFData LaunchTemplateSpotMarketOptions where + +-- | The options for Spot Instances. +-- +-- +-- +-- /See:/ 'launchTemplateSpotMarketOptionsRequest' smart constructor. +data LaunchTemplateSpotMarketOptionsRequest = LaunchTemplateSpotMarketOptionsRequest' + { _ltsmorBlockDurationMinutes :: !(Maybe Int) + , _ltsmorInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) + , _ltsmorValidUntil :: !(Maybe ISO8601) + , _ltsmorSpotInstanceType :: !(Maybe SpotInstanceType) + , _ltsmorMaxPrice :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateSpotMarketOptionsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltsmorBlockDurationMinutes' - The required duration for the Spot Instances (also known as Spot blocks), in minutes. This value must be a multiple of 60 (60, 120, 180, 240, 300, or 360). +-- +-- * 'ltsmorInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. The default is @terminate@ . +-- +-- * 'ltsmorValidUntil' - The end date of the request. For 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 and time is reached. The default end date is 7 days from the current date. +-- +-- * 'ltsmorSpotInstanceType' - The Spot Instance request type. +-- +-- * 'ltsmorMaxPrice' - The maximum hourly price you're willing to pay for the Spot Instances. +launchTemplateSpotMarketOptionsRequest + :: LaunchTemplateSpotMarketOptionsRequest +launchTemplateSpotMarketOptionsRequest = + LaunchTemplateSpotMarketOptionsRequest' + { _ltsmorBlockDurationMinutes = Nothing + , _ltsmorInstanceInterruptionBehavior = Nothing + , _ltsmorValidUntil = Nothing + , _ltsmorSpotInstanceType = Nothing + , _ltsmorMaxPrice = Nothing + } + + +-- | The required duration for the Spot Instances (also known as Spot blocks), in minutes. This value must be a multiple of 60 (60, 120, 180, 240, 300, or 360). +ltsmorBlockDurationMinutes :: Lens' LaunchTemplateSpotMarketOptionsRequest (Maybe Int) +ltsmorBlockDurationMinutes = lens _ltsmorBlockDurationMinutes (\ s a -> s{_ltsmorBlockDurationMinutes = a}) + +-- | The behavior when a Spot Instance is interrupted. The default is @terminate@ . +ltsmorInstanceInterruptionBehavior :: Lens' LaunchTemplateSpotMarketOptionsRequest (Maybe InstanceInterruptionBehavior) +ltsmorInstanceInterruptionBehavior = lens _ltsmorInstanceInterruptionBehavior (\ s a -> s{_ltsmorInstanceInterruptionBehavior = a}) + +-- | The end date of the request. For 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 and time is reached. The default end date is 7 days from the current date. +ltsmorValidUntil :: Lens' LaunchTemplateSpotMarketOptionsRequest (Maybe UTCTime) +ltsmorValidUntil = lens _ltsmorValidUntil (\ s a -> s{_ltsmorValidUntil = a}) . mapping _Time + +-- | The Spot Instance request type. +ltsmorSpotInstanceType :: Lens' LaunchTemplateSpotMarketOptionsRequest (Maybe SpotInstanceType) +ltsmorSpotInstanceType = lens _ltsmorSpotInstanceType (\ s a -> s{_ltsmorSpotInstanceType = a}) + +-- | The maximum hourly price you're willing to pay for the Spot Instances. +ltsmorMaxPrice :: Lens' LaunchTemplateSpotMarketOptionsRequest (Maybe Text) +ltsmorMaxPrice = lens _ltsmorMaxPrice (\ s a -> s{_ltsmorMaxPrice = a}) + +instance Hashable + LaunchTemplateSpotMarketOptionsRequest + where + +instance NFData + LaunchTemplateSpotMarketOptionsRequest + where + +instance ToQuery + LaunchTemplateSpotMarketOptionsRequest + where + toQuery LaunchTemplateSpotMarketOptionsRequest'{..} + = mconcat + ["BlockDurationMinutes" =: + _ltsmorBlockDurationMinutes, + "InstanceInterruptionBehavior" =: + _ltsmorInstanceInterruptionBehavior, + "ValidUntil" =: _ltsmorValidUntil, + "SpotInstanceType" =: _ltsmorSpotInstanceType, + "MaxPrice" =: _ltsmorMaxPrice] + +-- | The tag specification for the launch template. +-- +-- +-- +-- /See:/ 'launchTemplateTagSpecification' smart constructor. +data LaunchTemplateTagSpecification = LaunchTemplateTagSpecification' + { _lttsResourceType :: !(Maybe ResourceType) + , _lttsTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateTagSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lttsResourceType' - The type of resource. +-- +-- * 'lttsTags' - The tags for the resource. +launchTemplateTagSpecification + :: LaunchTemplateTagSpecification +launchTemplateTagSpecification = + LaunchTemplateTagSpecification' + {_lttsResourceType = Nothing, _lttsTags = Nothing} + + +-- | The type of resource. +lttsResourceType :: Lens' LaunchTemplateTagSpecification (Maybe ResourceType) +lttsResourceType = lens _lttsResourceType (\ s a -> s{_lttsResourceType = a}) + +-- | The tags for the resource. +lttsTags :: Lens' LaunchTemplateTagSpecification [Tag] +lttsTags = lens _lttsTags (\ s a -> s{_lttsTags = a}) . _Default . _Coerce + +instance FromXML LaunchTemplateTagSpecification where + parseXML x + = LaunchTemplateTagSpecification' <$> + (x .@? "resourceType") <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable LaunchTemplateTagSpecification + where + +instance NFData LaunchTemplateTagSpecification where + +-- | The tags specification for the launch template. +-- +-- +-- +-- /See:/ 'launchTemplateTagSpecificationRequest' smart constructor. +data LaunchTemplateTagSpecificationRequest = LaunchTemplateTagSpecificationRequest' + { _lttsrResourceType :: !(Maybe ResourceType) + , _lttsrTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateTagSpecificationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lttsrResourceType' - The type of resource to tag. Currently, the resource types that support tagging on creation are @instance@ and @volume@ . +-- +-- * 'lttsrTags' - The tags to apply to the resource. +launchTemplateTagSpecificationRequest + :: LaunchTemplateTagSpecificationRequest +launchTemplateTagSpecificationRequest = + LaunchTemplateTagSpecificationRequest' + {_lttsrResourceType = Nothing, _lttsrTags = Nothing} + + +-- | The type of resource to tag. Currently, the resource types that support tagging on creation are @instance@ and @volume@ . +lttsrResourceType :: Lens' LaunchTemplateTagSpecificationRequest (Maybe ResourceType) +lttsrResourceType = lens _lttsrResourceType (\ s a -> s{_lttsrResourceType = a}) + +-- | The tags to apply to the resource. +lttsrTags :: Lens' LaunchTemplateTagSpecificationRequest [Tag] +lttsrTags = lens _lttsrTags (\ s a -> s{_lttsrTags = a}) . _Default . _Coerce + +instance Hashable + LaunchTemplateTagSpecificationRequest + where + +instance NFData LaunchTemplateTagSpecificationRequest + where + +instance ToQuery + LaunchTemplateTagSpecificationRequest + where + toQuery LaunchTemplateTagSpecificationRequest'{..} + = mconcat + ["ResourceType" =: _lttsrResourceType, + toQuery (toQueryList "Tag" <$> _lttsrTags)] + +-- | Describes a launch template version. +-- +-- +-- +-- /See:/ 'launchTemplateVersion' smart constructor. +data LaunchTemplateVersion = LaunchTemplateVersion' + { _ltvLaunchTemplateName :: !(Maybe Text) + , _ltvLaunchTemplateId :: !(Maybe Text) + , _ltvCreatedBy :: !(Maybe Text) + , _ltvDefaultVersion :: !(Maybe Bool) + , _ltvVersionNumber :: !(Maybe Integer) + , _ltvVersionDescription :: !(Maybe Text) + , _ltvLaunchTemplateData :: !(Maybe ResponseLaunchTemplateData) + , _ltvCreateTime :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplateVersion' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltvLaunchTemplateName' - The name of the launch template. +-- +-- * 'ltvLaunchTemplateId' - The ID of the launch template. +-- +-- * 'ltvCreatedBy' - The principal that created the version. +-- +-- * 'ltvDefaultVersion' - Indicates whether the version is the default version. +-- +-- * 'ltvVersionNumber' - The version number. +-- +-- * 'ltvVersionDescription' - The description for the version. +-- +-- * 'ltvLaunchTemplateData' - Information about the launch template. +-- +-- * 'ltvCreateTime' - The time the version was created. +launchTemplateVersion + :: LaunchTemplateVersion +launchTemplateVersion = + LaunchTemplateVersion' + { _ltvLaunchTemplateName = Nothing + , _ltvLaunchTemplateId = Nothing + , _ltvCreatedBy = Nothing + , _ltvDefaultVersion = Nothing + , _ltvVersionNumber = Nothing + , _ltvVersionDescription = Nothing + , _ltvLaunchTemplateData = Nothing + , _ltvCreateTime = Nothing + } + + +-- | The name of the launch template. +ltvLaunchTemplateName :: Lens' LaunchTemplateVersion (Maybe Text) +ltvLaunchTemplateName = lens _ltvLaunchTemplateName (\ s a -> s{_ltvLaunchTemplateName = a}) + +-- | The ID of the launch template. +ltvLaunchTemplateId :: Lens' LaunchTemplateVersion (Maybe Text) +ltvLaunchTemplateId = lens _ltvLaunchTemplateId (\ s a -> s{_ltvLaunchTemplateId = a}) + +-- | The principal that created the version. +ltvCreatedBy :: Lens' LaunchTemplateVersion (Maybe Text) +ltvCreatedBy = lens _ltvCreatedBy (\ s a -> s{_ltvCreatedBy = a}) + +-- | Indicates whether the version is the default version. +ltvDefaultVersion :: Lens' LaunchTemplateVersion (Maybe Bool) +ltvDefaultVersion = lens _ltvDefaultVersion (\ s a -> s{_ltvDefaultVersion = a}) + +-- | The version number. +ltvVersionNumber :: Lens' LaunchTemplateVersion (Maybe Integer) +ltvVersionNumber = lens _ltvVersionNumber (\ s a -> s{_ltvVersionNumber = a}) + +-- | The description for the version. +ltvVersionDescription :: Lens' LaunchTemplateVersion (Maybe Text) +ltvVersionDescription = lens _ltvVersionDescription (\ s a -> s{_ltvVersionDescription = a}) + +-- | Information about the launch template. +ltvLaunchTemplateData :: Lens' LaunchTemplateVersion (Maybe ResponseLaunchTemplateData) +ltvLaunchTemplateData = lens _ltvLaunchTemplateData (\ s a -> s{_ltvLaunchTemplateData = a}) + +-- | The time the version was created. +ltvCreateTime :: Lens' LaunchTemplateVersion (Maybe UTCTime) +ltvCreateTime = lens _ltvCreateTime (\ s a -> s{_ltvCreateTime = a}) . mapping _Time + +instance FromXML LaunchTemplateVersion where + parseXML x + = LaunchTemplateVersion' <$> + (x .@? "launchTemplateName") <*> + (x .@? "launchTemplateId") + <*> (x .@? "createdBy") + <*> (x .@? "defaultVersion") + <*> (x .@? "versionNumber") + <*> (x .@? "versionDescription") + <*> (x .@? "launchTemplateData") + <*> (x .@? "createTime") + +instance Hashable LaunchTemplateVersion where + +instance NFData LaunchTemplateVersion where + +-- | Describes the monitoring for the instance. +-- +-- +-- +-- /See:/ 'launchTemplatesMonitoring' smart constructor. +newtype LaunchTemplatesMonitoring = LaunchTemplatesMonitoring' + { _ltmEnabled :: Maybe Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplatesMonitoring' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltmEnabled' - Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. +launchTemplatesMonitoring + :: LaunchTemplatesMonitoring +launchTemplatesMonitoring = LaunchTemplatesMonitoring' {_ltmEnabled = Nothing} + + +-- | Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. +ltmEnabled :: Lens' LaunchTemplatesMonitoring (Maybe Bool) +ltmEnabled = lens _ltmEnabled (\ s a -> s{_ltmEnabled = a}) + +instance FromXML LaunchTemplatesMonitoring where + parseXML x + = LaunchTemplatesMonitoring' <$> (x .@? "enabled") + +instance Hashable LaunchTemplatesMonitoring where + +instance NFData LaunchTemplatesMonitoring where + +-- | Describes the monitoring for the instance. +-- +-- +-- +-- /See:/ 'launchTemplatesMonitoringRequest' smart constructor. +newtype LaunchTemplatesMonitoringRequest = LaunchTemplatesMonitoringRequest' + { _ltmrEnabled :: Maybe Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LaunchTemplatesMonitoringRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ltmrEnabled' - Specify @true@ to enable detailed monitoring. Otherwise, basic monitoring is enabled. +launchTemplatesMonitoringRequest + :: LaunchTemplatesMonitoringRequest +launchTemplatesMonitoringRequest = + LaunchTemplatesMonitoringRequest' {_ltmrEnabled = Nothing} + + +-- | Specify @true@ to enable detailed monitoring. Otherwise, basic monitoring is enabled. +ltmrEnabled :: Lens' LaunchTemplatesMonitoringRequest (Maybe Bool) +ltmrEnabled = lens _ltmrEnabled (\ s a -> s{_ltmrEnabled = a}) + +instance Hashable LaunchTemplatesMonitoringRequest + where + +instance NFData LaunchTemplatesMonitoringRequest + where + +instance ToQuery LaunchTemplatesMonitoringRequest + where + toQuery LaunchTemplatesMonitoringRequest'{..} + = mconcat ["Enabled" =: _ltmrEnabled] + +-- | Describes the Classic Load Balancers and target groups to attach to a Spot Fleet request. +-- +-- +-- +-- /See:/ 'loadBalancersConfig' smart constructor. +data LoadBalancersConfig = LoadBalancersConfig' + { _lbcClassicLoadBalancersConfig :: !(Maybe ClassicLoadBalancersConfig) + , _lbcTargetGroupsConfig :: !(Maybe TargetGroupsConfig) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LoadBalancersConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lbcClassicLoadBalancersConfig' - The Classic Load Balancers. +-- +-- * 'lbcTargetGroupsConfig' - The target groups. +loadBalancersConfig + :: LoadBalancersConfig +loadBalancersConfig = + LoadBalancersConfig' + {_lbcClassicLoadBalancersConfig = Nothing, _lbcTargetGroupsConfig = Nothing} + + +-- | The Classic Load Balancers. +lbcClassicLoadBalancersConfig :: Lens' LoadBalancersConfig (Maybe ClassicLoadBalancersConfig) +lbcClassicLoadBalancersConfig = lens _lbcClassicLoadBalancersConfig (\ s a -> s{_lbcClassicLoadBalancersConfig = a}) + +-- | The target groups. +lbcTargetGroupsConfig :: Lens' LoadBalancersConfig (Maybe TargetGroupsConfig) +lbcTargetGroupsConfig = lens _lbcTargetGroupsConfig (\ s a -> s{_lbcTargetGroupsConfig = a}) + +instance FromXML LoadBalancersConfig where + parseXML x + = LoadBalancersConfig' <$> + (x .@? "classicLoadBalancersConfig") <*> + (x .@? "targetGroupsConfig") + +instance Hashable LoadBalancersConfig where + +instance NFData LoadBalancersConfig where + +instance ToQuery LoadBalancersConfig where + toQuery LoadBalancersConfig'{..} + = mconcat + ["ClassicLoadBalancersConfig" =: + _lbcClassicLoadBalancersConfig, + "TargetGroupsConfig" =: _lbcTargetGroupsConfig] + +-- | Describes a load permission. +-- +-- +-- +-- /See:/ 'loadPermission' smart constructor. +data LoadPermission = LoadPermission' + { _lpGroup :: !(Maybe PermissionGroup) + , _lpUserId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LoadPermission' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lpGroup' - The name of the group. +-- +-- * 'lpUserId' - The AWS account ID. +loadPermission + :: LoadPermission +loadPermission = LoadPermission' {_lpGroup = Nothing, _lpUserId = Nothing} + + +-- | The name of the group. +lpGroup :: Lens' LoadPermission (Maybe PermissionGroup) +lpGroup = lens _lpGroup (\ s a -> s{_lpGroup = a}) + +-- | The AWS account ID. +lpUserId :: Lens' LoadPermission (Maybe Text) +lpUserId = lens _lpUserId (\ s a -> s{_lpUserId = a}) + +instance FromXML LoadPermission where + parseXML x + = LoadPermission' <$> + (x .@? "group") <*> (x .@? "userId") + +instance Hashable LoadPermission where + +instance NFData LoadPermission where + +-- | Describes modifications to the load permissions of an Amazon FPGA image (AFI). +-- +-- +-- +-- /See:/ 'loadPermissionModifications' smart constructor. +data LoadPermissionModifications = LoadPermissionModifications' + { _lpmRemove :: !(Maybe [LoadPermissionRequest]) + , _lpmAdd :: !(Maybe [LoadPermissionRequest]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LoadPermissionModifications' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lpmRemove' - The load permissions to remove. +-- +-- * 'lpmAdd' - The load permissions to add. +loadPermissionModifications + :: LoadPermissionModifications +loadPermissionModifications = + LoadPermissionModifications' {_lpmRemove = Nothing, _lpmAdd = Nothing} + + +-- | The load permissions to remove. +lpmRemove :: Lens' LoadPermissionModifications [LoadPermissionRequest] +lpmRemove = lens _lpmRemove (\ s a -> s{_lpmRemove = a}) . _Default . _Coerce + +-- | The load permissions to add. +lpmAdd :: Lens' LoadPermissionModifications [LoadPermissionRequest] +lpmAdd = lens _lpmAdd (\ s a -> s{_lpmAdd = a}) . _Default . _Coerce + +instance Hashable LoadPermissionModifications where + +instance NFData LoadPermissionModifications where + +instance ToQuery LoadPermissionModifications where + toQuery LoadPermissionModifications'{..} + = mconcat + [toQuery (toQueryList "Remove" <$> _lpmRemove), + toQuery (toQueryList "Add" <$> _lpmAdd)] + +-- | Describes a load permission. +-- +-- +-- +-- /See:/ 'loadPermissionRequest' smart constructor. +data LoadPermissionRequest = LoadPermissionRequest' + { _lprGroup :: !(Maybe PermissionGroup) + , _lprUserId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'LoadPermissionRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'lprGroup' - The name of the group. +-- +-- * 'lprUserId' - The AWS account ID. +loadPermissionRequest + :: LoadPermissionRequest +loadPermissionRequest = + LoadPermissionRequest' {_lprGroup = Nothing, _lprUserId = Nothing} + + +-- | The name of the group. +lprGroup :: Lens' LoadPermissionRequest (Maybe PermissionGroup) +lprGroup = lens _lprGroup (\ s a -> s{_lprGroup = a}) + +-- | The AWS account ID. +lprUserId :: Lens' LoadPermissionRequest (Maybe Text) +lprUserId = lens _lprUserId (\ s a -> s{_lprUserId = a}) + +instance Hashable LoadPermissionRequest where + +instance NFData LoadPermissionRequest where + +instance ToQuery LoadPermissionRequest where + toQuery LoadPermissionRequest'{..} + = mconcat + ["Group" =: _lprGroup, "UserId" =: _lprUserId] + +-- | Describes the monitoring of an instance. +-- +-- +-- +-- /See:/ 'monitoring' smart constructor. +newtype Monitoring = Monitoring' + { _mState :: Maybe MonitoringState + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Monitoring' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'mState' - Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. +monitoring + :: Monitoring +monitoring = Monitoring' {_mState = Nothing} + + +-- | Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. +mState :: Lens' Monitoring (Maybe MonitoringState) +mState = lens _mState (\ s a -> s{_mState = a}) + +instance FromXML Monitoring where + parseXML x = Monitoring' <$> (x .@? "state") + +instance Hashable Monitoring where + +instance NFData Monitoring where + +-- | Describes the status of a moving Elastic IP address. +-- +-- +-- +-- /See:/ 'movingAddressStatus' smart constructor. +data MovingAddressStatus = MovingAddressStatus' + { _masMoveStatus :: !(Maybe MoveStatus) + , _masPublicIP :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'MovingAddressStatus' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'masMoveStatus' - The status of the Elastic IP address that's being moved to the EC2-VPC platform, or restored to the EC2-Classic platform. +-- +-- * 'masPublicIP' - The Elastic IP address. +movingAddressStatus + :: MovingAddressStatus +movingAddressStatus = + MovingAddressStatus' {_masMoveStatus = Nothing, _masPublicIP = Nothing} + + +-- | The status of the Elastic IP address that's being moved to the EC2-VPC platform, or restored to the EC2-Classic platform. +masMoveStatus :: Lens' MovingAddressStatus (Maybe MoveStatus) +masMoveStatus = lens _masMoveStatus (\ s a -> s{_masMoveStatus = a}) + +-- | The Elastic IP address. +masPublicIP :: Lens' MovingAddressStatus (Maybe Text) +masPublicIP = lens _masPublicIP (\ s a -> s{_masPublicIP = a}) + +instance FromXML MovingAddressStatus where + parseXML x + = MovingAddressStatus' <$> + (x .@? "moveStatus") <*> (x .@? "publicIp") + +instance Hashable MovingAddressStatus where + +instance NFData MovingAddressStatus where + +-- | Describes a NAT gateway. +-- +-- +-- +-- /See:/ 'natGateway' smart constructor. +data NatGateway = NatGateway' + { _ngState :: !(Maybe NatGatewayState) + , _ngFailureCode :: !(Maybe Text) + , _ngVPCId :: !(Maybe Text) + , _ngFailureMessage :: !(Maybe Text) + , _ngNatGatewayId :: !(Maybe Text) + , _ngSubnetId :: !(Maybe Text) + , _ngDeleteTime :: !(Maybe ISO8601) + , _ngProvisionedBandwidth :: !(Maybe ProvisionedBandwidth) + , _ngNatGatewayAddresses :: !(Maybe [NatGatewayAddress]) + , _ngCreateTime :: !(Maybe ISO8601) + , _ngTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NatGateway' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ngState' - The state of the NAT gateway. * @pending@ : The NAT gateway is being created and is not ready to process traffic. * @failed@ : The NAT gateway could not be created. Check the @failureCode@ and @failureMessage@ fields for the reason. * @available@ : The NAT gateway is able to process traffic. This status remains until you delete the NAT gateway, and does not indicate the health of the NAT gateway. * @deleting@ : The NAT gateway is in the process of being terminated and may still be processing traffic. * @deleted@ : The NAT gateway has been terminated and is no longer processing traffic. +-- +-- * 'ngFailureCode' - If the NAT gateway could not be created, specifies the error code for the failure. (@InsufficientFreeAddressesInSubnet@ | @Gateway.NotAttached@ | @InvalidAllocationID.NotFound@ | @Resource.AlreadyAssociated@ | @InternalError@ | @InvalidSubnetID.NotFound@ ) +-- +-- * 'ngVPCId' - The ID of the VPC in which the NAT gateway is located. +-- +-- * 'ngFailureMessage' - If the NAT gateway could not be created, specifies the error message for the failure, that corresponds to the error code. * For InsufficientFreeAddressesInSubnet: "Subnet has insufficient free addresses to create this NAT gateway" * For Gateway.NotAttached: "Network vpc-xxxxxxxx has no Internet gateway attached" * For InvalidAllocationID.NotFound: "Elastic IP address eipalloc-xxxxxxxx could not be associated with this NAT gateway" * For Resource.AlreadyAssociated: "Elastic IP address eipalloc-xxxxxxxx is already associated" * For InternalError: "Network interface eni-xxxxxxxx, created and used internally by this NAT gateway is in an invalid state. Please try again." * For InvalidSubnetID.NotFound: "The specified subnet subnet-xxxxxxxx does not exist or could not be found." +-- +-- * 'ngNatGatewayId' - The ID of the NAT gateway. +-- +-- * 'ngSubnetId' - The ID of the subnet in which the NAT gateway is located. +-- +-- * 'ngDeleteTime' - The date and time the NAT gateway was deleted, if applicable. +-- +-- * 'ngProvisionedBandwidth' - Reserved. If you need to sustain traffic greater than the , contact us through the . +-- +-- * 'ngNatGatewayAddresses' - Information about the IP addresses and network interface associated with the NAT gateway. +-- +-- * 'ngCreateTime' - The date and time the NAT gateway was created. +-- +-- * 'ngTags' - The tags for the NAT gateway. +natGateway + :: NatGateway +natGateway = + NatGateway' + { _ngState = Nothing + , _ngFailureCode = Nothing + , _ngVPCId = Nothing + , _ngFailureMessage = Nothing + , _ngNatGatewayId = Nothing + , _ngSubnetId = Nothing + , _ngDeleteTime = Nothing + , _ngProvisionedBandwidth = Nothing + , _ngNatGatewayAddresses = Nothing + , _ngCreateTime = Nothing + , _ngTags = Nothing + } + + +-- | The state of the NAT gateway. * @pending@ : The NAT gateway is being created and is not ready to process traffic. * @failed@ : The NAT gateway could not be created. Check the @failureCode@ and @failureMessage@ fields for the reason. * @available@ : The NAT gateway is able to process traffic. This status remains until you delete the NAT gateway, and does not indicate the health of the NAT gateway. * @deleting@ : The NAT gateway is in the process of being terminated and may still be processing traffic. * @deleted@ : The NAT gateway has been terminated and is no longer processing traffic. +ngState :: Lens' NatGateway (Maybe NatGatewayState) +ngState = lens _ngState (\ s a -> s{_ngState = a}) + +-- | If the NAT gateway could not be created, specifies the error code for the failure. (@InsufficientFreeAddressesInSubnet@ | @Gateway.NotAttached@ | @InvalidAllocationID.NotFound@ | @Resource.AlreadyAssociated@ | @InternalError@ | @InvalidSubnetID.NotFound@ ) +ngFailureCode :: Lens' NatGateway (Maybe Text) +ngFailureCode = lens _ngFailureCode (\ s a -> s{_ngFailureCode = a}) + +-- | The ID of the VPC in which the NAT gateway is located. +ngVPCId :: Lens' NatGateway (Maybe Text) +ngVPCId = lens _ngVPCId (\ s a -> s{_ngVPCId = a}) + +-- | If the NAT gateway could not be created, specifies the error message for the failure, that corresponds to the error code. * For InsufficientFreeAddressesInSubnet: "Subnet has insufficient free addresses to create this NAT gateway" * For Gateway.NotAttached: "Network vpc-xxxxxxxx has no Internet gateway attached" * For InvalidAllocationID.NotFound: "Elastic IP address eipalloc-xxxxxxxx could not be associated with this NAT gateway" * For Resource.AlreadyAssociated: "Elastic IP address eipalloc-xxxxxxxx is already associated" * For InternalError: "Network interface eni-xxxxxxxx, created and used internally by this NAT gateway is in an invalid state. Please try again." * For InvalidSubnetID.NotFound: "The specified subnet subnet-xxxxxxxx does not exist or could not be found." +ngFailureMessage :: Lens' NatGateway (Maybe Text) +ngFailureMessage = lens _ngFailureMessage (\ s a -> s{_ngFailureMessage = a}) + +-- | The ID of the NAT gateway. +ngNatGatewayId :: Lens' NatGateway (Maybe Text) +ngNatGatewayId = lens _ngNatGatewayId (\ s a -> s{_ngNatGatewayId = a}) + +-- | The ID of the subnet in which the NAT gateway is located. +ngSubnetId :: Lens' NatGateway (Maybe Text) +ngSubnetId = lens _ngSubnetId (\ s a -> s{_ngSubnetId = a}) + +-- | The date and time the NAT gateway was deleted, if applicable. +ngDeleteTime :: Lens' NatGateway (Maybe UTCTime) +ngDeleteTime = lens _ngDeleteTime (\ s a -> s{_ngDeleteTime = a}) . mapping _Time + +-- | Reserved. If you need to sustain traffic greater than the , contact us through the . +ngProvisionedBandwidth :: Lens' NatGateway (Maybe ProvisionedBandwidth) +ngProvisionedBandwidth = lens _ngProvisionedBandwidth (\ s a -> s{_ngProvisionedBandwidth = a}) + +-- | Information about the IP addresses and network interface associated with the NAT gateway. +ngNatGatewayAddresses :: Lens' NatGateway [NatGatewayAddress] +ngNatGatewayAddresses = lens _ngNatGatewayAddresses (\ s a -> s{_ngNatGatewayAddresses = a}) . _Default . _Coerce + +-- | The date and time the NAT gateway was created. +ngCreateTime :: Lens' NatGateway (Maybe UTCTime) +ngCreateTime = lens _ngCreateTime (\ s a -> s{_ngCreateTime = a}) . mapping _Time + +-- | The tags for the NAT gateway. +ngTags :: Lens' NatGateway [Tag] +ngTags = lens _ngTags (\ s a -> s{_ngTags = a}) . _Default . _Coerce + +instance FromXML NatGateway where + parseXML x + = NatGateway' <$> + (x .@? "state") <*> (x .@? "failureCode") <*> + (x .@? "vpcId") + <*> (x .@? "failureMessage") + <*> (x .@? "natGatewayId") + <*> (x .@? "subnetId") + <*> (x .@? "deleteTime") + <*> (x .@? "provisionedBandwidth") + <*> + (x .@? "natGatewayAddressSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "createTime") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable NatGateway where + +instance NFData NatGateway where + +-- | Describes the IP addresses and network interface associated with a NAT gateway. +-- +-- +-- +-- /See:/ 'natGatewayAddress' smart constructor. +data NatGatewayAddress = NatGatewayAddress' + { _ngaPrivateIP :: !(Maybe Text) + , _ngaAllocationId :: !(Maybe Text) + , _ngaNetworkInterfaceId :: !(Maybe Text) + , _ngaPublicIP :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NatGatewayAddress' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ngaPrivateIP' - The private IP address associated with the Elastic IP address. +-- +-- * 'ngaAllocationId' - The allocation ID of the Elastic IP address that's associated with the NAT gateway. +-- +-- * 'ngaNetworkInterfaceId' - The ID of the network interface associated with the NAT gateway. +-- +-- * 'ngaPublicIP' - The Elastic IP address associated with the NAT gateway. +natGatewayAddress + :: NatGatewayAddress +natGatewayAddress = + NatGatewayAddress' + { _ngaPrivateIP = Nothing + , _ngaAllocationId = Nothing + , _ngaNetworkInterfaceId = Nothing + , _ngaPublicIP = Nothing + } + + +-- | The private IP address associated with the Elastic IP address. +ngaPrivateIP :: Lens' NatGatewayAddress (Maybe Text) +ngaPrivateIP = lens _ngaPrivateIP (\ s a -> s{_ngaPrivateIP = a}) + +-- | The allocation ID of the Elastic IP address that's associated with the NAT gateway. +ngaAllocationId :: Lens' NatGatewayAddress (Maybe Text) +ngaAllocationId = lens _ngaAllocationId (\ s a -> s{_ngaAllocationId = a}) + +-- | The ID of the network interface associated with the NAT gateway. +ngaNetworkInterfaceId :: Lens' NatGatewayAddress (Maybe Text) +ngaNetworkInterfaceId = lens _ngaNetworkInterfaceId (\ s a -> s{_ngaNetworkInterfaceId = a}) + +-- | The Elastic IP address associated with the NAT gateway. +ngaPublicIP :: Lens' NatGatewayAddress (Maybe Text) +ngaPublicIP = lens _ngaPublicIP (\ s a -> s{_ngaPublicIP = a}) + +instance FromXML NatGatewayAddress where + parseXML x + = NatGatewayAddress' <$> + (x .@? "privateIp") <*> (x .@? "allocationId") <*> + (x .@? "networkInterfaceId") + <*> (x .@? "publicIp") + +instance Hashable NatGatewayAddress where + +instance NFData NatGatewayAddress where + +-- | Describes a network ACL. +-- +-- +-- +-- /See:/ 'networkACL' smart constructor. +data NetworkACL = NetworkACL' + { _naEntries :: !(Maybe [NetworkACLEntry]) + , _naNetworkACLId :: !(Maybe Text) + , _naVPCId :: !(Maybe Text) + , _naAssociations :: !(Maybe [NetworkACLAssociation]) + , _naTags :: !(Maybe [Tag]) + , _naIsDefault :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkACL' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'naEntries' - One or more entries (rules) in the network ACL. +-- +-- * 'naNetworkACLId' - The ID of the network ACL. +-- +-- * 'naVPCId' - The ID of the VPC for the network ACL. +-- +-- * 'naAssociations' - Any associations between the network ACL and one or more subnets +-- +-- * 'naTags' - Any tags assigned to the network ACL. +-- +-- * 'naIsDefault' - Indicates whether this is the default network ACL for the VPC. +networkACL + :: NetworkACL +networkACL = + NetworkACL' + { _naEntries = Nothing + , _naNetworkACLId = Nothing + , _naVPCId = Nothing + , _naAssociations = Nothing + , _naTags = Nothing + , _naIsDefault = Nothing + } + + +-- | One or more entries (rules) in the network ACL. +naEntries :: Lens' NetworkACL [NetworkACLEntry] +naEntries = lens _naEntries (\ s a -> s{_naEntries = a}) . _Default . _Coerce + +-- | The ID of the network ACL. +naNetworkACLId :: Lens' NetworkACL (Maybe Text) +naNetworkACLId = lens _naNetworkACLId (\ s a -> s{_naNetworkACLId = a}) + +-- | The ID of the VPC for the network ACL. +naVPCId :: Lens' NetworkACL (Maybe Text) +naVPCId = lens _naVPCId (\ s a -> s{_naVPCId = a}) + +-- | Any associations between the network ACL and one or more subnets +naAssociations :: Lens' NetworkACL [NetworkACLAssociation] +naAssociations = lens _naAssociations (\ s a -> s{_naAssociations = a}) . _Default . _Coerce + +-- | Any tags assigned to the network ACL. +naTags :: Lens' NetworkACL [Tag] +naTags = lens _naTags (\ s a -> s{_naTags = a}) . _Default . _Coerce + +-- | Indicates whether this is the default network ACL for the VPC. +naIsDefault :: Lens' NetworkACL (Maybe Bool) +naIsDefault = lens _naIsDefault (\ s a -> s{_naIsDefault = a}) + +instance FromXML NetworkACL where + parseXML x + = NetworkACL' <$> + (x .@? "entrySet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "networkAclId") + <*> (x .@? "vpcId") + <*> + (x .@? "associationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "default") + +instance Hashable NetworkACL where + +instance NFData NetworkACL where + +-- | Describes an association between a network ACL and a subnet. +-- +-- +-- +-- /See:/ 'networkACLAssociation' smart constructor. +data NetworkACLAssociation = NetworkACLAssociation' + { _naaNetworkACLId :: !(Maybe Text) + , _naaSubnetId :: !(Maybe Text) + , _naaNetworkACLAssociationId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkACLAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'naaNetworkACLId' - The ID of the network ACL. +-- +-- * 'naaSubnetId' - The ID of the subnet. +-- +-- * 'naaNetworkACLAssociationId' - The ID of the association between a network ACL and a subnet. +networkACLAssociation + :: NetworkACLAssociation +networkACLAssociation = + NetworkACLAssociation' + { _naaNetworkACLId = Nothing + , _naaSubnetId = Nothing + , _naaNetworkACLAssociationId = Nothing + } + + +-- | The ID of the network ACL. +naaNetworkACLId :: Lens' NetworkACLAssociation (Maybe Text) +naaNetworkACLId = lens _naaNetworkACLId (\ s a -> s{_naaNetworkACLId = a}) + +-- | The ID of the subnet. +naaSubnetId :: Lens' NetworkACLAssociation (Maybe Text) +naaSubnetId = lens _naaSubnetId (\ s a -> s{_naaSubnetId = a}) + +-- | The ID of the association between a network ACL and a subnet. +naaNetworkACLAssociationId :: Lens' NetworkACLAssociation (Maybe Text) +naaNetworkACLAssociationId = lens _naaNetworkACLAssociationId (\ s a -> s{_naaNetworkACLAssociationId = a}) + +instance FromXML NetworkACLAssociation where + parseXML x + = NetworkACLAssociation' <$> + (x .@? "networkAclId") <*> (x .@? "subnetId") <*> + (x .@? "networkAclAssociationId") + +instance Hashable NetworkACLAssociation where + +instance NFData NetworkACLAssociation where + +-- | Describes an entry in a network ACL. +-- +-- +-- +-- /See:/ 'networkACLEntry' smart constructor. +data NetworkACLEntry = NetworkACLEntry' + { _naeIPv6CidrBlock :: !(Maybe Text) + , _naeICMPTypeCode :: !(Maybe ICMPTypeCode) + , _naeRuleNumber :: !(Maybe Int) + , _naeRuleAction :: !(Maybe RuleAction) + , _naeProtocol :: !(Maybe Text) + , _naePortRange :: !(Maybe PortRange) + , _naeCidrBlock :: !(Maybe Text) + , _naeEgress :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkACLEntry' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'naeIPv6CidrBlock' - The IPv6 network range to allow or deny, in CIDR notation. +-- +-- * 'naeICMPTypeCode' - ICMP protocol: The ICMP type and code. +-- +-- * 'naeRuleNumber' - The rule number for the entry. ACL entries are processed in ascending order by rule number. +-- +-- * 'naeRuleAction' - Indicates whether to allow or deny the traffic that matches the rule. +-- +-- * 'naeProtocol' - The protocol. A value of @-1@ means all protocols. +-- +-- * 'naePortRange' - TCP or UDP protocols: The range of ports the rule applies to. +-- +-- * 'naeCidrBlock' - The IPv4 network range to allow or deny, in CIDR notation. +-- +-- * 'naeEgress' - Indicates whether the rule is an egress rule (applied to traffic leaving the subnet). +networkACLEntry + :: NetworkACLEntry +networkACLEntry = + NetworkACLEntry' + { _naeIPv6CidrBlock = Nothing + , _naeICMPTypeCode = Nothing + , _naeRuleNumber = Nothing + , _naeRuleAction = Nothing + , _naeProtocol = Nothing + , _naePortRange = Nothing + , _naeCidrBlock = Nothing + , _naeEgress = Nothing + } + + +-- | The IPv6 network range to allow or deny, in CIDR notation. +naeIPv6CidrBlock :: Lens' NetworkACLEntry (Maybe Text) +naeIPv6CidrBlock = lens _naeIPv6CidrBlock (\ s a -> s{_naeIPv6CidrBlock = a}) + +-- | ICMP protocol: The ICMP type and code. +naeICMPTypeCode :: Lens' NetworkACLEntry (Maybe ICMPTypeCode) +naeICMPTypeCode = lens _naeICMPTypeCode (\ s a -> s{_naeICMPTypeCode = a}) + +-- | The rule number for the entry. ACL entries are processed in ascending order by rule number. +naeRuleNumber :: Lens' NetworkACLEntry (Maybe Int) +naeRuleNumber = lens _naeRuleNumber (\ s a -> s{_naeRuleNumber = a}) + +-- | Indicates whether to allow or deny the traffic that matches the rule. +naeRuleAction :: Lens' NetworkACLEntry (Maybe RuleAction) +naeRuleAction = lens _naeRuleAction (\ s a -> s{_naeRuleAction = a}) + +-- | The protocol. A value of @-1@ means all protocols. +naeProtocol :: Lens' NetworkACLEntry (Maybe Text) +naeProtocol = lens _naeProtocol (\ s a -> s{_naeProtocol = a}) + +-- | TCP or UDP protocols: The range of ports the rule applies to. +naePortRange :: Lens' NetworkACLEntry (Maybe PortRange) +naePortRange = lens _naePortRange (\ s a -> s{_naePortRange = a}) + +-- | The IPv4 network range to allow or deny, in CIDR notation. +naeCidrBlock :: Lens' NetworkACLEntry (Maybe Text) +naeCidrBlock = lens _naeCidrBlock (\ s a -> s{_naeCidrBlock = a}) + +-- | Indicates whether the rule is an egress rule (applied to traffic leaving the subnet). +naeEgress :: Lens' NetworkACLEntry (Maybe Bool) +naeEgress = lens _naeEgress (\ s a -> s{_naeEgress = a}) + +instance FromXML NetworkACLEntry where + parseXML x + = NetworkACLEntry' <$> + (x .@? "ipv6CidrBlock") <*> (x .@? "icmpTypeCode") + <*> (x .@? "ruleNumber") + <*> (x .@? "ruleAction") + <*> (x .@? "protocol") + <*> (x .@? "portRange") + <*> (x .@? "cidrBlock") + <*> (x .@? "egress") + +instance Hashable NetworkACLEntry where + +instance NFData NetworkACLEntry where + +-- | Describes a network interface. +-- +-- +-- +-- /See:/ 'networkInterface' smart constructor. +data NetworkInterface = NetworkInterface' + { _niGroups :: !(Maybe [GroupIdentifier]) + , _niStatus :: !(Maybe NetworkInterfaceStatus) + , _niPrivateIPAddresses :: !(Maybe [NetworkInterfacePrivateIPAddress]) + , _niSourceDestCheck :: !(Maybe Bool) + , _niInterfaceType :: !(Maybe NetworkInterfaceType) + , _niVPCId :: !(Maybe Text) + , _niTagSet :: !(Maybe [Tag]) + , _niRequesterManaged :: !(Maybe Bool) + , _niNetworkInterfaceId :: !(Maybe Text) + , _niSubnetId :: !(Maybe Text) + , _niMACAddress :: !(Maybe Text) + , _niAttachment :: !(Maybe NetworkInterfaceAttachment) + , _niOwnerId :: !(Maybe Text) + , _niAvailabilityZone :: !(Maybe Text) + , _niPrivateIPAddress :: !(Maybe Text) + , _niPrivateDNSName :: !(Maybe Text) + , _niRequesterId :: !(Maybe Text) + , _niDescription :: !(Maybe Text) + , _niAssociation :: !(Maybe NetworkInterfaceAssociation) + , _niIPv6Addresses :: !(Maybe [NetworkInterfaceIPv6Address]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterface' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'niGroups' - Any security groups for the network interface. +-- +-- * 'niStatus' - The status of the network interface. +-- +-- * 'niPrivateIPAddresses' - The private IPv4 addresses associated with the network interface. +-- +-- * 'niSourceDestCheck' - Indicates whether traffic to or from the instance is validated. +-- +-- * 'niInterfaceType' - The type of interface. +-- +-- * 'niVPCId' - The ID of the VPC. +-- +-- * 'niTagSet' - Any tags assigned to the network interface. +-- +-- * 'niRequesterManaged' - Indicates whether the network interface is being managed by AWS. +-- +-- * 'niNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'niSubnetId' - The ID of the subnet. +-- +-- * 'niMACAddress' - The MAC address. +-- +-- * 'niAttachment' - The network interface attachment. +-- +-- * 'niOwnerId' - The AWS account ID of the owner of the network interface. +-- +-- * 'niAvailabilityZone' - The Availability Zone. +-- +-- * 'niPrivateIPAddress' - The IPv4 address of the network interface within the subnet. +-- +-- * 'niPrivateDNSName' - The private DNS name. +-- +-- * 'niRequesterId' - The ID of the entity that launched the instance on your behalf (for example, AWS Management Console or Auto Scaling). +-- +-- * 'niDescription' - A description. +-- +-- * 'niAssociation' - The association information for an Elastic IP address (IPv4) associated with the network interface. +-- +-- * 'niIPv6Addresses' - The IPv6 addresses associated with the network interface. +networkInterface + :: NetworkInterface +networkInterface = + NetworkInterface' + { _niGroups = Nothing + , _niStatus = Nothing + , _niPrivateIPAddresses = Nothing + , _niSourceDestCheck = Nothing + , _niInterfaceType = Nothing + , _niVPCId = Nothing + , _niTagSet = Nothing + , _niRequesterManaged = Nothing + , _niNetworkInterfaceId = Nothing + , _niSubnetId = Nothing + , _niMACAddress = Nothing + , _niAttachment = Nothing + , _niOwnerId = Nothing + , _niAvailabilityZone = Nothing + , _niPrivateIPAddress = Nothing + , _niPrivateDNSName = Nothing + , _niRequesterId = Nothing + , _niDescription = Nothing + , _niAssociation = Nothing + , _niIPv6Addresses = Nothing + } + + +-- | Any security groups for the network interface. +niGroups :: Lens' NetworkInterface [GroupIdentifier] +niGroups = lens _niGroups (\ s a -> s{_niGroups = a}) . _Default . _Coerce + +-- | The status of the network interface. +niStatus :: Lens' NetworkInterface (Maybe NetworkInterfaceStatus) +niStatus = lens _niStatus (\ s a -> s{_niStatus = a}) + +-- | The private IPv4 addresses associated with the network interface. +niPrivateIPAddresses :: Lens' NetworkInterface [NetworkInterfacePrivateIPAddress] +niPrivateIPAddresses = lens _niPrivateIPAddresses (\ s a -> s{_niPrivateIPAddresses = a}) . _Default . _Coerce + +-- | Indicates whether traffic to or from the instance is validated. +niSourceDestCheck :: Lens' NetworkInterface (Maybe Bool) +niSourceDestCheck = lens _niSourceDestCheck (\ s a -> s{_niSourceDestCheck = a}) + +-- | The type of interface. +niInterfaceType :: Lens' NetworkInterface (Maybe NetworkInterfaceType) +niInterfaceType = lens _niInterfaceType (\ s a -> s{_niInterfaceType = a}) + +-- | The ID of the VPC. +niVPCId :: Lens' NetworkInterface (Maybe Text) +niVPCId = lens _niVPCId (\ s a -> s{_niVPCId = a}) + +-- | Any tags assigned to the network interface. +niTagSet :: Lens' NetworkInterface [Tag] +niTagSet = lens _niTagSet (\ s a -> s{_niTagSet = a}) . _Default . _Coerce + +-- | Indicates whether the network interface is being managed by AWS. +niRequesterManaged :: Lens' NetworkInterface (Maybe Bool) +niRequesterManaged = lens _niRequesterManaged (\ s a -> s{_niRequesterManaged = a}) + +-- | The ID of the network interface. +niNetworkInterfaceId :: Lens' NetworkInterface (Maybe Text) +niNetworkInterfaceId = lens _niNetworkInterfaceId (\ s a -> s{_niNetworkInterfaceId = a}) + +-- | The ID of the subnet. +niSubnetId :: Lens' NetworkInterface (Maybe Text) +niSubnetId = lens _niSubnetId (\ s a -> s{_niSubnetId = a}) + +-- | The MAC address. +niMACAddress :: Lens' NetworkInterface (Maybe Text) +niMACAddress = lens _niMACAddress (\ s a -> s{_niMACAddress = a}) + +-- | The network interface attachment. +niAttachment :: Lens' NetworkInterface (Maybe NetworkInterfaceAttachment) +niAttachment = lens _niAttachment (\ s a -> s{_niAttachment = a}) + +-- | The AWS account ID of the owner of the network interface. +niOwnerId :: Lens' NetworkInterface (Maybe Text) +niOwnerId = lens _niOwnerId (\ s a -> s{_niOwnerId = a}) + +-- | The Availability Zone. +niAvailabilityZone :: Lens' NetworkInterface (Maybe Text) +niAvailabilityZone = lens _niAvailabilityZone (\ s a -> s{_niAvailabilityZone = a}) + +-- | The IPv4 address of the network interface within the subnet. +niPrivateIPAddress :: Lens' NetworkInterface (Maybe Text) +niPrivateIPAddress = lens _niPrivateIPAddress (\ s a -> s{_niPrivateIPAddress = a}) + +-- | The private DNS name. +niPrivateDNSName :: Lens' NetworkInterface (Maybe Text) +niPrivateDNSName = lens _niPrivateDNSName (\ s a -> s{_niPrivateDNSName = a}) + +-- | The ID of the entity that launched the instance on your behalf (for example, AWS Management Console or Auto Scaling). +niRequesterId :: Lens' NetworkInterface (Maybe Text) +niRequesterId = lens _niRequesterId (\ s a -> s{_niRequesterId = a}) + +-- | A description. +niDescription :: Lens' NetworkInterface (Maybe Text) +niDescription = lens _niDescription (\ s a -> s{_niDescription = a}) + +-- | The association information for an Elastic IP address (IPv4) associated with the network interface. +niAssociation :: Lens' NetworkInterface (Maybe NetworkInterfaceAssociation) +niAssociation = lens _niAssociation (\ s a -> s{_niAssociation = a}) + +-- | The IPv6 addresses associated with the network interface. +niIPv6Addresses :: Lens' NetworkInterface [NetworkInterfaceIPv6Address] +niIPv6Addresses = lens _niIPv6Addresses (\ s a -> s{_niIPv6Addresses = a}) . _Default . _Coerce + +instance FromXML NetworkInterface where + parseXML x + = NetworkInterface' <$> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "status") + <*> + (x .@? "privateIpAddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "sourceDestCheck") + <*> (x .@? "interfaceType") + <*> (x .@? "vpcId") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "requesterManaged") + <*> (x .@? "networkInterfaceId") + <*> (x .@? "subnetId") + <*> (x .@? "macAddress") + <*> (x .@? "attachment") + <*> (x .@? "ownerId") + <*> (x .@? "availabilityZone") + <*> (x .@? "privateIpAddress") + <*> (x .@? "privateDnsName") + <*> (x .@? "requesterId") + <*> (x .@? "description") + <*> (x .@? "association") + <*> + (x .@? "ipv6AddressesSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable NetworkInterface where + +instance NFData NetworkInterface where + +-- | Describes association information for an Elastic IP address (IPv4 only). +-- +-- +-- +-- /See:/ 'networkInterfaceAssociation' smart constructor. +data NetworkInterfaceAssociation = NetworkInterfaceAssociation' + { _niaAssociationId :: !(Maybe Text) + , _niaPublicDNSName :: !(Maybe Text) + , _niaAllocationId :: !(Maybe Text) + , _niaIPOwnerId :: !(Maybe Text) + , _niaPublicIP :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterfaceAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'niaAssociationId' - The association ID. +-- +-- * 'niaPublicDNSName' - The public DNS name. +-- +-- * 'niaAllocationId' - The allocation ID. +-- +-- * 'niaIPOwnerId' - The ID of the Elastic IP address owner. +-- +-- * 'niaPublicIP' - The address of the Elastic IP address bound to the network interface. +networkInterfaceAssociation + :: NetworkInterfaceAssociation +networkInterfaceAssociation = + NetworkInterfaceAssociation' + { _niaAssociationId = Nothing + , _niaPublicDNSName = Nothing + , _niaAllocationId = Nothing + , _niaIPOwnerId = Nothing + , _niaPublicIP = Nothing + } + + +-- | The association ID. +niaAssociationId :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaAssociationId = lens _niaAssociationId (\ s a -> s{_niaAssociationId = a}) + +-- | The public DNS name. +niaPublicDNSName :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaPublicDNSName = lens _niaPublicDNSName (\ s a -> s{_niaPublicDNSName = a}) + +-- | The allocation ID. +niaAllocationId :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaAllocationId = lens _niaAllocationId (\ s a -> s{_niaAllocationId = a}) + +-- | The ID of the Elastic IP address owner. +niaIPOwnerId :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaIPOwnerId = lens _niaIPOwnerId (\ s a -> s{_niaIPOwnerId = a}) + +-- | The address of the Elastic IP address bound to the network interface. +niaPublicIP :: Lens' NetworkInterfaceAssociation (Maybe Text) +niaPublicIP = lens _niaPublicIP (\ s a -> s{_niaPublicIP = a}) + +instance FromXML NetworkInterfaceAssociation where + parseXML x + = NetworkInterfaceAssociation' <$> + (x .@? "associationId") <*> (x .@? "publicDnsName") + <*> (x .@? "allocationId") + <*> (x .@? "ipOwnerId") + <*> (x .@? "publicIp") + +instance Hashable NetworkInterfaceAssociation where + +instance NFData NetworkInterfaceAssociation where + +-- | Describes a network interface attachment. +-- +-- +-- +-- /See:/ 'networkInterfaceAttachment' smart constructor. +data NetworkInterfaceAttachment = NetworkInterfaceAttachment' + { _niaInstanceId :: !(Maybe Text) + , _niaStatus :: !(Maybe AttachmentStatus) + , _niaDeleteOnTermination :: !(Maybe Bool) + , _niaAttachmentId :: !(Maybe Text) + , _niaInstanceOwnerId :: !(Maybe Text) + , _niaAttachTime :: !(Maybe ISO8601) + , _niaDeviceIndex :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterfaceAttachment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'niaInstanceId' - The ID of the instance. +-- +-- * 'niaStatus' - The attachment state. +-- +-- * 'niaDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. +-- +-- * 'niaAttachmentId' - The ID of the network interface attachment. +-- +-- * 'niaInstanceOwnerId' - The AWS account ID of the owner of the instance. +-- +-- * 'niaAttachTime' - The timestamp indicating when the attachment initiated. +-- +-- * 'niaDeviceIndex' - The device index of the network interface attachment on the instance. +networkInterfaceAttachment + :: NetworkInterfaceAttachment +networkInterfaceAttachment = + NetworkInterfaceAttachment' + { _niaInstanceId = Nothing + , _niaStatus = Nothing + , _niaDeleteOnTermination = Nothing + , _niaAttachmentId = Nothing + , _niaInstanceOwnerId = Nothing + , _niaAttachTime = Nothing + , _niaDeviceIndex = Nothing + } + + +-- | The ID of the instance. +niaInstanceId :: Lens' NetworkInterfaceAttachment (Maybe Text) +niaInstanceId = lens _niaInstanceId (\ s a -> s{_niaInstanceId = a}) + +-- | The attachment state. +niaStatus :: Lens' NetworkInterfaceAttachment (Maybe AttachmentStatus) +niaStatus = lens _niaStatus (\ s a -> s{_niaStatus = a}) + +-- | Indicates whether the network interface is deleted when the instance is terminated. +niaDeleteOnTermination :: Lens' NetworkInterfaceAttachment (Maybe Bool) +niaDeleteOnTermination = lens _niaDeleteOnTermination (\ s a -> s{_niaDeleteOnTermination = a}) + +-- | The ID of the network interface attachment. +niaAttachmentId :: Lens' NetworkInterfaceAttachment (Maybe Text) +niaAttachmentId = lens _niaAttachmentId (\ s a -> s{_niaAttachmentId = a}) + +-- | The AWS account ID of the owner of the instance. +niaInstanceOwnerId :: Lens' NetworkInterfaceAttachment (Maybe Text) +niaInstanceOwnerId = lens _niaInstanceOwnerId (\ s a -> s{_niaInstanceOwnerId = a}) + +-- | The timestamp indicating when the attachment initiated. +niaAttachTime :: Lens' NetworkInterfaceAttachment (Maybe UTCTime) +niaAttachTime = lens _niaAttachTime (\ s a -> s{_niaAttachTime = a}) . mapping _Time + +-- | The device index of the network interface attachment on the instance. +niaDeviceIndex :: Lens' NetworkInterfaceAttachment (Maybe Int) +niaDeviceIndex = lens _niaDeviceIndex (\ s a -> s{_niaDeviceIndex = a}) + +instance FromXML NetworkInterfaceAttachment where + parseXML x + = NetworkInterfaceAttachment' <$> + (x .@? "instanceId") <*> (x .@? "status") <*> + (x .@? "deleteOnTermination") + <*> (x .@? "attachmentId") + <*> (x .@? "instanceOwnerId") + <*> (x .@? "attachTime") + <*> (x .@? "deviceIndex") + +instance Hashable NetworkInterfaceAttachment where + +instance NFData NetworkInterfaceAttachment where + +-- | Describes an attachment change. +-- +-- +-- +-- /See:/ 'networkInterfaceAttachmentChanges' smart constructor. +data NetworkInterfaceAttachmentChanges = NetworkInterfaceAttachmentChanges' + { _niacDeleteOnTermination :: !(Maybe Bool) + , _niacAttachmentId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterfaceAttachmentChanges' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'niacDeleteOnTermination' - Indicates whether the network interface is deleted when the instance is terminated. +-- +-- * 'niacAttachmentId' - The ID of the network interface attachment. +networkInterfaceAttachmentChanges + :: NetworkInterfaceAttachmentChanges +networkInterfaceAttachmentChanges = + NetworkInterfaceAttachmentChanges' + {_niacDeleteOnTermination = Nothing, _niacAttachmentId = Nothing} + + +-- | Indicates whether the network interface is deleted when the instance is terminated. +niacDeleteOnTermination :: Lens' NetworkInterfaceAttachmentChanges (Maybe Bool) +niacDeleteOnTermination = lens _niacDeleteOnTermination (\ s a -> s{_niacDeleteOnTermination = a}) + +-- | The ID of the network interface attachment. +niacAttachmentId :: Lens' NetworkInterfaceAttachmentChanges (Maybe Text) +niacAttachmentId = lens _niacAttachmentId (\ s a -> s{_niacAttachmentId = a}) + +instance Hashable NetworkInterfaceAttachmentChanges + where + +instance NFData NetworkInterfaceAttachmentChanges + where + +instance ToQuery NetworkInterfaceAttachmentChanges + where + toQuery NetworkInterfaceAttachmentChanges'{..} + = mconcat + ["DeleteOnTermination" =: _niacDeleteOnTermination, + "AttachmentId" =: _niacAttachmentId] + +-- | Describes an IPv6 address associated with a network interface. +-- +-- +-- +-- /See:/ 'networkInterfaceIPv6Address' smart constructor. +newtype NetworkInterfaceIPv6Address = NetworkInterfaceIPv6Address' + { _niiaIPv6Address :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterfaceIPv6Address' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'niiaIPv6Address' - The IPv6 address. +networkInterfaceIPv6Address + :: NetworkInterfaceIPv6Address +networkInterfaceIPv6Address = + NetworkInterfaceIPv6Address' {_niiaIPv6Address = Nothing} + + +-- | The IPv6 address. +niiaIPv6Address :: Lens' NetworkInterfaceIPv6Address (Maybe Text) +niiaIPv6Address = lens _niiaIPv6Address (\ s a -> s{_niiaIPv6Address = a}) + +instance FromXML NetworkInterfaceIPv6Address where + parseXML x + = NetworkInterfaceIPv6Address' <$> + (x .@? "ipv6Address") + +instance Hashable NetworkInterfaceIPv6Address where + +instance NFData NetworkInterfaceIPv6Address where + +-- | Describes a permission for a network interface. +-- +-- +-- +-- /See:/ 'networkInterfacePermission' smart constructor. +data NetworkInterfacePermission = NetworkInterfacePermission' + { _nipPermissionState :: !(Maybe NetworkInterfacePermissionState) + , _nipNetworkInterfacePermissionId :: !(Maybe Text) + , _nipNetworkInterfaceId :: !(Maybe Text) + , _nipAWSAccountId :: !(Maybe Text) + , _nipAWSService :: !(Maybe Text) + , _nipPermission :: !(Maybe InterfacePermissionType) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterfacePermission' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'nipPermissionState' - Information about the state of the permission. +-- +-- * 'nipNetworkInterfacePermissionId' - The ID of the network interface permission. +-- +-- * 'nipNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'nipAWSAccountId' - The AWS account ID. +-- +-- * 'nipAWSService' - The AWS service. +-- +-- * 'nipPermission' - The type of permission. +networkInterfacePermission + :: NetworkInterfacePermission +networkInterfacePermission = + NetworkInterfacePermission' + { _nipPermissionState = Nothing + , _nipNetworkInterfacePermissionId = Nothing + , _nipNetworkInterfaceId = Nothing + , _nipAWSAccountId = Nothing + , _nipAWSService = Nothing + , _nipPermission = Nothing + } + + +-- | Information about the state of the permission. +nipPermissionState :: Lens' NetworkInterfacePermission (Maybe NetworkInterfacePermissionState) +nipPermissionState = lens _nipPermissionState (\ s a -> s{_nipPermissionState = a}) + +-- | The ID of the network interface permission. +nipNetworkInterfacePermissionId :: Lens' NetworkInterfacePermission (Maybe Text) +nipNetworkInterfacePermissionId = lens _nipNetworkInterfacePermissionId (\ s a -> s{_nipNetworkInterfacePermissionId = a}) + +-- | The ID of the network interface. +nipNetworkInterfaceId :: Lens' NetworkInterfacePermission (Maybe Text) +nipNetworkInterfaceId = lens _nipNetworkInterfaceId (\ s a -> s{_nipNetworkInterfaceId = a}) + +-- | The AWS account ID. +nipAWSAccountId :: Lens' NetworkInterfacePermission (Maybe Text) +nipAWSAccountId = lens _nipAWSAccountId (\ s a -> s{_nipAWSAccountId = a}) + +-- | The AWS service. +nipAWSService :: Lens' NetworkInterfacePermission (Maybe Text) +nipAWSService = lens _nipAWSService (\ s a -> s{_nipAWSService = a}) + +-- | The type of permission. +nipPermission :: Lens' NetworkInterfacePermission (Maybe InterfacePermissionType) +nipPermission = lens _nipPermission (\ s a -> s{_nipPermission = a}) + +instance FromXML NetworkInterfacePermission where + parseXML x + = NetworkInterfacePermission' <$> + (x .@? "permissionState") <*> + (x .@? "networkInterfacePermissionId") + <*> (x .@? "networkInterfaceId") + <*> (x .@? "awsAccountId") + <*> (x .@? "awsService") + <*> (x .@? "permission") + +instance Hashable NetworkInterfacePermission where + +instance NFData NetworkInterfacePermission where + +-- | Describes the state of a network interface permission. +-- +-- +-- +-- /See:/ 'networkInterfacePermissionState' smart constructor. +data NetworkInterfacePermissionState = NetworkInterfacePermissionState' + { _nipsState :: !(Maybe NetworkInterfacePermissionStateCode) + , _nipsStatusMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterfacePermissionState' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'nipsState' - The state of the permission. +-- +-- * 'nipsStatusMessage' - A status message, if applicable. +networkInterfacePermissionState + :: NetworkInterfacePermissionState +networkInterfacePermissionState = + NetworkInterfacePermissionState' + {_nipsState = Nothing, _nipsStatusMessage = Nothing} + + +-- | The state of the permission. +nipsState :: Lens' NetworkInterfacePermissionState (Maybe NetworkInterfacePermissionStateCode) +nipsState = lens _nipsState (\ s a -> s{_nipsState = a}) + +-- | A status message, if applicable. +nipsStatusMessage :: Lens' NetworkInterfacePermissionState (Maybe Text) +nipsStatusMessage = lens _nipsStatusMessage (\ s a -> s{_nipsStatusMessage = a}) + +instance FromXML NetworkInterfacePermissionState + where + parseXML x + = NetworkInterfacePermissionState' <$> + (x .@? "state") <*> (x .@? "statusMessage") + +instance Hashable NetworkInterfacePermissionState + where + +instance NFData NetworkInterfacePermissionState where + +-- | Describes the private IPv4 address of a network interface. +-- +-- +-- +-- /See:/ 'networkInterfacePrivateIPAddress' smart constructor. +data NetworkInterfacePrivateIPAddress = NetworkInterfacePrivateIPAddress' + { _nipiaPrimary :: !(Maybe Bool) + , _nipiaPrivateIPAddress :: !(Maybe Text) + , _nipiaPrivateDNSName :: !(Maybe Text) + , _nipiaAssociation :: !(Maybe NetworkInterfaceAssociation) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NetworkInterfacePrivateIPAddress' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'nipiaPrimary' - Indicates whether this IPv4 address is the primary private IPv4 address of the network interface. +-- +-- * 'nipiaPrivateIPAddress' - The private IPv4 address. +-- +-- * 'nipiaPrivateDNSName' - The private DNS name. +-- +-- * 'nipiaAssociation' - The association information for an Elastic IP address (IPv4) associated with the network interface. +networkInterfacePrivateIPAddress + :: NetworkInterfacePrivateIPAddress +networkInterfacePrivateIPAddress = + NetworkInterfacePrivateIPAddress' + { _nipiaPrimary = Nothing + , _nipiaPrivateIPAddress = Nothing + , _nipiaPrivateDNSName = Nothing + , _nipiaAssociation = Nothing + } + + +-- | Indicates whether this IPv4 address is the primary private IPv4 address of the network interface. +nipiaPrimary :: Lens' NetworkInterfacePrivateIPAddress (Maybe Bool) +nipiaPrimary = lens _nipiaPrimary (\ s a -> s{_nipiaPrimary = a}) + +-- | The private IPv4 address. +nipiaPrivateIPAddress :: Lens' NetworkInterfacePrivateIPAddress (Maybe Text) +nipiaPrivateIPAddress = lens _nipiaPrivateIPAddress (\ s a -> s{_nipiaPrivateIPAddress = a}) + +-- | The private DNS name. +nipiaPrivateDNSName :: Lens' NetworkInterfacePrivateIPAddress (Maybe Text) +nipiaPrivateDNSName = lens _nipiaPrivateDNSName (\ s a -> s{_nipiaPrivateDNSName = a}) + +-- | The association information for an Elastic IP address (IPv4) associated with the network interface. +nipiaAssociation :: Lens' NetworkInterfacePrivateIPAddress (Maybe NetworkInterfaceAssociation) +nipiaAssociation = lens _nipiaAssociation (\ s a -> s{_nipiaAssociation = a}) + +instance FromXML NetworkInterfacePrivateIPAddress + where + parseXML x + = NetworkInterfacePrivateIPAddress' <$> + (x .@? "primary") <*> (x .@? "privateIpAddress") <*> + (x .@? "privateDnsName") + <*> (x .@? "association") + +instance Hashable NetworkInterfacePrivateIPAddress + where + +instance NFData NetworkInterfacePrivateIPAddress + where + +-- | /See:/ 'newDHCPConfiguration' smart constructor. +data NewDHCPConfiguration = NewDHCPConfiguration' + { _ndcValues :: !(Maybe [Text]) + , _ndcKey :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'NewDHCPConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ndcValues' - Undocumented member. +-- +-- * 'ndcKey' - Undocumented member. +newDHCPConfiguration + :: NewDHCPConfiguration +newDHCPConfiguration = + NewDHCPConfiguration' {_ndcValues = Nothing, _ndcKey = Nothing} + + +-- | Undocumented member. +ndcValues :: Lens' NewDHCPConfiguration [Text] +ndcValues = lens _ndcValues (\ s a -> s{_ndcValues = a}) . _Default . _Coerce + +-- | Undocumented member. +ndcKey :: Lens' NewDHCPConfiguration (Maybe Text) +ndcKey = lens _ndcKey (\ s a -> s{_ndcKey = a}) + +instance Hashable NewDHCPConfiguration where + +instance NFData NewDHCPConfiguration where + +instance ToQuery NewDHCPConfiguration where + toQuery NewDHCPConfiguration'{..} + = mconcat + [toQuery (toQueryList "Value" <$> _ndcValues), + "Key" =: _ndcKey] + +-- | Describes the data that identifies an Amazon FPGA image (AFI) on the PCI bus. +-- +-- +-- +-- /See:/ 'pciId' smart constructor. +data PciId = PciId' + { _piSubsystemId :: !(Maybe Text) + , _piDeviceId :: !(Maybe Text) + , _piSubsystemVendorId :: !(Maybe Text) + , _piVendorId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PciId' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'piSubsystemId' - The ID of the subsystem. +-- +-- * 'piDeviceId' - The ID of the device. +-- +-- * 'piSubsystemVendorId' - The ID of the vendor for the subsystem. +-- +-- * 'piVendorId' - The ID of the vendor. +pciId + :: PciId +pciId = + PciId' + { _piSubsystemId = Nothing + , _piDeviceId = Nothing + , _piSubsystemVendorId = Nothing + , _piVendorId = Nothing + } + + +-- | The ID of the subsystem. +piSubsystemId :: Lens' PciId (Maybe Text) +piSubsystemId = lens _piSubsystemId (\ s a -> s{_piSubsystemId = a}) + +-- | The ID of the device. +piDeviceId :: Lens' PciId (Maybe Text) +piDeviceId = lens _piDeviceId (\ s a -> s{_piDeviceId = a}) + +-- | The ID of the vendor for the subsystem. +piSubsystemVendorId :: Lens' PciId (Maybe Text) +piSubsystemVendorId = lens _piSubsystemVendorId (\ s a -> s{_piSubsystemVendorId = a}) + +-- | The ID of the vendor. +piVendorId :: Lens' PciId (Maybe Text) +piVendorId = lens _piVendorId (\ s a -> s{_piVendorId = a}) + +instance FromXML PciId where + parseXML x + = PciId' <$> + (x .@? "SubsystemId") <*> (x .@? "DeviceId") <*> + (x .@? "SubsystemVendorId") + <*> (x .@? "VendorId") + +instance Hashable PciId where + +instance NFData PciId where + +-- | Describes the VPC peering connection options. +-- +-- +-- +-- /See:/ 'peeringConnectionOptions' smart constructor. +data PeeringConnectionOptions = PeeringConnectionOptions' + { _pcoAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool) + , _pcoAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool) + , _pcoAllowDNSResolutionFromRemoteVPC :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PeeringConnectionOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcoAllowEgressFromLocalVPCToRemoteClassicLink' - If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. +-- +-- * 'pcoAllowEgressFromLocalClassicLinkToRemoteVPC' - If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. +-- +-- * 'pcoAllowDNSResolutionFromRemoteVPC' - If true, the public DNS hostnames of instances in the specified VPC resolve to private IP addresses when queried from instances in the peer VPC. +peeringConnectionOptions + :: PeeringConnectionOptions +peeringConnectionOptions = + PeeringConnectionOptions' + { _pcoAllowEgressFromLocalVPCToRemoteClassicLink = Nothing + , _pcoAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing + , _pcoAllowDNSResolutionFromRemoteVPC = Nothing + } + + +-- | If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. +pcoAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' PeeringConnectionOptions (Maybe Bool) +pcoAllowEgressFromLocalVPCToRemoteClassicLink = lens _pcoAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_pcoAllowEgressFromLocalVPCToRemoteClassicLink = a}) + +-- | If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. +pcoAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' PeeringConnectionOptions (Maybe Bool) +pcoAllowEgressFromLocalClassicLinkToRemoteVPC = lens _pcoAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_pcoAllowEgressFromLocalClassicLinkToRemoteVPC = a}) + +-- | If true, the public DNS hostnames of instances in the specified VPC resolve to private IP addresses when queried from instances in the peer VPC. +pcoAllowDNSResolutionFromRemoteVPC :: Lens' PeeringConnectionOptions (Maybe Bool) +pcoAllowDNSResolutionFromRemoteVPC = lens _pcoAllowDNSResolutionFromRemoteVPC (\ s a -> s{_pcoAllowDNSResolutionFromRemoteVPC = a}) + +instance FromXML PeeringConnectionOptions where + parseXML x + = PeeringConnectionOptions' <$> + (x .@? "allowEgressFromLocalVpcToRemoteClassicLink") + <*> + (x .@? "allowEgressFromLocalClassicLinkToRemoteVpc") + <*> (x .@? "allowDnsResolutionFromRemoteVpc") + +instance Hashable PeeringConnectionOptions where + +instance NFData PeeringConnectionOptions where + +-- | The VPC peering connection options. +-- +-- +-- +-- /See:/ 'peeringConnectionOptionsRequest' smart constructor. +data PeeringConnectionOptionsRequest = PeeringConnectionOptionsRequest' + { _pcorAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool) + , _pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool) + , _pcorAllowDNSResolutionFromRemoteVPC :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PeeringConnectionOptionsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcorAllowEgressFromLocalVPCToRemoteClassicLink' - If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. +-- +-- * 'pcorAllowEgressFromLocalClassicLinkToRemoteVPC' - If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. +-- +-- * 'pcorAllowDNSResolutionFromRemoteVPC' - If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. +peeringConnectionOptionsRequest + :: PeeringConnectionOptionsRequest +peeringConnectionOptionsRequest = + PeeringConnectionOptionsRequest' + { _pcorAllowEgressFromLocalVPCToRemoteClassicLink = Nothing + , _pcorAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing + , _pcorAllowDNSResolutionFromRemoteVPC = Nothing + } + + +-- | If true, enables outbound communication from instances in a local VPC to an EC2-Classic instance that's linked to a peer VPC via ClassicLink. +pcorAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' PeeringConnectionOptionsRequest (Maybe Bool) +pcorAllowEgressFromLocalVPCToRemoteClassicLink = lens _pcorAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_pcorAllowEgressFromLocalVPCToRemoteClassicLink = a}) + +-- | If true, enables outbound communication from an EC2-Classic instance that's linked to a local VPC via ClassicLink to instances in a peer VPC. +pcorAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' PeeringConnectionOptionsRequest (Maybe Bool) +pcorAllowEgressFromLocalClassicLinkToRemoteVPC = lens _pcorAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_pcorAllowEgressFromLocalClassicLinkToRemoteVPC = a}) + +-- | If true, enables a local VPC to resolve public DNS hostnames to private IP addresses when queried from instances in the peer VPC. +pcorAllowDNSResolutionFromRemoteVPC :: Lens' PeeringConnectionOptionsRequest (Maybe Bool) +pcorAllowDNSResolutionFromRemoteVPC = lens _pcorAllowDNSResolutionFromRemoteVPC (\ s a -> s{_pcorAllowDNSResolutionFromRemoteVPC = a}) + +instance Hashable PeeringConnectionOptionsRequest + where + +instance NFData PeeringConnectionOptionsRequest where + +instance ToQuery PeeringConnectionOptionsRequest + where + toQuery PeeringConnectionOptionsRequest'{..} + = mconcat + ["AllowEgressFromLocalVpcToRemoteClassicLink" =: + _pcorAllowEgressFromLocalVPCToRemoteClassicLink, + "AllowEgressFromLocalClassicLinkToRemoteVpc" =: + _pcorAllowEgressFromLocalClassicLinkToRemoteVPC, + "AllowDnsResolutionFromRemoteVpc" =: + _pcorAllowDNSResolutionFromRemoteVPC] + +-- | Describes the placement of an instance. +-- +-- +-- +-- /See:/ 'placement' smart constructor. +data Placement = Placement' + { _pAffinity :: !(Maybe Text) + , _pHostId :: !(Maybe Text) + , _pSpreadDomain :: !(Maybe Text) + , _pAvailabilityZone :: !(Maybe Text) + , _pTenancy :: !(Maybe Tenancy) + , _pGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Placement' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pAffinity' - The affinity setting for the instance on the Dedicated Host. This parameter is not supported for the 'ImportInstance' command. +-- +-- * 'pHostId' - The ID of the Dedicated Host on which the instance resides. This parameter is not supported for the 'ImportInstance' command. +-- +-- * 'pSpreadDomain' - Reserved for future use. +-- +-- * 'pAvailabilityZone' - The Availability Zone of the instance. +-- +-- * 'pTenancy' - The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for the 'ImportInstance' command. +-- +-- * 'pGroupName' - The name of the placement group the instance is in (for cluster compute instances). +placement + :: Placement +placement = + Placement' + { _pAffinity = Nothing + , _pHostId = Nothing + , _pSpreadDomain = Nothing + , _pAvailabilityZone = Nothing + , _pTenancy = Nothing + , _pGroupName = Nothing + } + + +-- | The affinity setting for the instance on the Dedicated Host. This parameter is not supported for the 'ImportInstance' command. +pAffinity :: Lens' Placement (Maybe Text) +pAffinity = lens _pAffinity (\ s a -> s{_pAffinity = a}) + +-- | The ID of the Dedicated Host on which the instance resides. This parameter is not supported for the 'ImportInstance' command. +pHostId :: Lens' Placement (Maybe Text) +pHostId = lens _pHostId (\ s a -> s{_pHostId = a}) + +-- | Reserved for future use. +pSpreadDomain :: Lens' Placement (Maybe Text) +pSpreadDomain = lens _pSpreadDomain (\ s a -> s{_pSpreadDomain = a}) + +-- | The Availability Zone of the instance. +pAvailabilityZone :: Lens' Placement (Maybe Text) +pAvailabilityZone = lens _pAvailabilityZone (\ s a -> s{_pAvailabilityZone = a}) + +-- | The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for the 'ImportInstance' command. +pTenancy :: Lens' Placement (Maybe Tenancy) +pTenancy = lens _pTenancy (\ s a -> s{_pTenancy = a}) + +-- | The name of the placement group the instance is in (for cluster compute instances). +pGroupName :: Lens' Placement (Maybe Text) +pGroupName = lens _pGroupName (\ s a -> s{_pGroupName = a}) + +instance FromXML Placement where + parseXML x + = Placement' <$> + (x .@? "affinity") <*> (x .@? "hostId") <*> + (x .@? "spreadDomain") + <*> (x .@? "availabilityZone") + <*> (x .@? "tenancy") + <*> (x .@? "groupName") + +instance Hashable Placement where + +instance NFData Placement where + +instance ToQuery Placement where + toQuery Placement'{..} + = mconcat + ["Affinity" =: _pAffinity, "HostId" =: _pHostId, + "SpreadDomain" =: _pSpreadDomain, + "AvailabilityZone" =: _pAvailabilityZone, + "Tenancy" =: _pTenancy, "GroupName" =: _pGroupName] + +-- | Describes a placement group. +-- +-- +-- +-- /See:/ 'placementGroup' smart constructor. +data PlacementGroup = PlacementGroup' + { _pgState :: !(Maybe PlacementGroupState) + , _pgStrategy :: !(Maybe PlacementStrategy) + , _pgGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PlacementGroup' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pgState' - The state of the placement group. +-- +-- * 'pgStrategy' - The placement strategy. +-- +-- * 'pgGroupName' - The name of the placement group. +placementGroup + :: PlacementGroup +placementGroup = + PlacementGroup' + {_pgState = Nothing, _pgStrategy = Nothing, _pgGroupName = Nothing} + + +-- | The state of the placement group. +pgState :: Lens' PlacementGroup (Maybe PlacementGroupState) +pgState = lens _pgState (\ s a -> s{_pgState = a}) + +-- | The placement strategy. +pgStrategy :: Lens' PlacementGroup (Maybe PlacementStrategy) +pgStrategy = lens _pgStrategy (\ s a -> s{_pgStrategy = a}) + +-- | The name of the placement group. +pgGroupName :: Lens' PlacementGroup (Maybe Text) +pgGroupName = lens _pgGroupName (\ s a -> s{_pgGroupName = a}) + +instance FromXML PlacementGroup where + parseXML x + = PlacementGroup' <$> + (x .@? "state") <*> (x .@? "strategy") <*> + (x .@? "groupName") + +instance Hashable PlacementGroup where + +instance NFData PlacementGroup where + +-- | Describes a range of ports. +-- +-- +-- +-- /See:/ 'portRange' smart constructor. +data PortRange = PortRange' + { _prTo :: !(Maybe Int) + , _prFrom :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PortRange' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'prTo' - The last port in the range. +-- +-- * 'prFrom' - The first port in the range. +portRange + :: PortRange +portRange = PortRange' {_prTo = Nothing, _prFrom = Nothing} + + +-- | The last port in the range. +prTo :: Lens' PortRange (Maybe Int) +prTo = lens _prTo (\ s a -> s{_prTo = a}) + +-- | The first port in the range. +prFrom :: Lens' PortRange (Maybe Int) +prFrom = lens _prFrom (\ s a -> s{_prFrom = a}) + +instance FromXML PortRange where + parseXML x + = PortRange' <$> (x .@? "to") <*> (x .@? "from") + +instance Hashable PortRange where + +instance NFData PortRange where + +instance ToQuery PortRange where + toQuery PortRange'{..} + = mconcat ["To" =: _prTo, "From" =: _prFrom] + +-- | Describes prefixes for AWS services. +-- +-- +-- +-- /See:/ 'prefixList' smart constructor. +data PrefixList = PrefixList' + { _plCidrs :: !(Maybe [Text]) + , _plPrefixListId :: !(Maybe Text) + , _plPrefixListName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PrefixList' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'plCidrs' - The IP address range of the AWS service. +-- +-- * 'plPrefixListId' - The ID of the prefix. +-- +-- * 'plPrefixListName' - The name of the prefix. +prefixList + :: PrefixList +prefixList = + PrefixList' + {_plCidrs = Nothing, _plPrefixListId = Nothing, _plPrefixListName = Nothing} + + +-- | The IP address range of the AWS service. +plCidrs :: Lens' PrefixList [Text] +plCidrs = lens _plCidrs (\ s a -> s{_plCidrs = a}) . _Default . _Coerce + +-- | The ID of the prefix. +plPrefixListId :: Lens' PrefixList (Maybe Text) +plPrefixListId = lens _plPrefixListId (\ s a -> s{_plPrefixListId = a}) + +-- | The name of the prefix. +plPrefixListName :: Lens' PrefixList (Maybe Text) +plPrefixListName = lens _plPrefixListName (\ s a -> s{_plPrefixListName = a}) + +instance FromXML PrefixList where + parseXML x + = PrefixList' <$> + (x .@? "cidrSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "prefixListId") + <*> (x .@? "prefixListName") + +instance Hashable PrefixList where + +instance NFData PrefixList where + +-- | [EC2-VPC only] The ID of the prefix. +-- +-- +-- +-- /See:/ 'prefixListId' smart constructor. +data PrefixListId = PrefixListId' + { _pliPrefixListId :: !(Maybe Text) + , _pliDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PrefixListId' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pliPrefixListId' - The ID of the prefix. +-- +-- * 'pliDescription' - A description for the security group rule that references this prefix list ID. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +prefixListId + :: PrefixListId +prefixListId = + PrefixListId' {_pliPrefixListId = Nothing, _pliDescription = Nothing} + + +-- | The ID of the prefix. +pliPrefixListId :: Lens' PrefixListId (Maybe Text) +pliPrefixListId = lens _pliPrefixListId (\ s a -> s{_pliPrefixListId = a}) + +-- | A description for the security group rule that references this prefix list ID. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +pliDescription :: Lens' PrefixListId (Maybe Text) +pliDescription = lens _pliDescription (\ s a -> s{_pliDescription = a}) + +instance FromXML PrefixListId where + parseXML x + = PrefixListId' <$> + (x .@? "prefixListId") <*> (x .@? "description") + +instance Hashable PrefixListId where + +instance NFData PrefixListId where + +instance ToQuery PrefixListId where + toQuery PrefixListId'{..} + = mconcat + ["PrefixListId" =: _pliPrefixListId, + "Description" =: _pliDescription] + +-- | Describes the price for a Reserved Instance. +-- +-- +-- +-- /See:/ 'priceSchedule' smart constructor. +data PriceSchedule = PriceSchedule' + { _psCurrencyCode :: !(Maybe CurrencyCodeValues) + , _psTerm :: !(Maybe Integer) + , _psActive :: !(Maybe Bool) + , _psPrice :: !(Maybe Double) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PriceSchedule' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'psCurrencyCode' - The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . +-- +-- * 'psTerm' - The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. +-- +-- * 'psActive' - The current price schedule, as determined by the term remaining for the Reserved Instance in the listing. A specific price schedule is always in effect, but only one price schedule can be active at any time. Take, for example, a Reserved Instance listing that has five months remaining in its term. When you specify price schedules for five months and two months, this means that schedule 1, covering the first three months of the remaining term, will be active during months 5, 4, and 3. Then schedule 2, covering the last two months of the term, will be active for months 2 and 1. +-- +-- * 'psPrice' - The fixed price for the term. +priceSchedule + :: PriceSchedule +priceSchedule = + PriceSchedule' + { _psCurrencyCode = Nothing + , _psTerm = Nothing + , _psActive = Nothing + , _psPrice = Nothing + } + + +-- | The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . +psCurrencyCode :: Lens' PriceSchedule (Maybe CurrencyCodeValues) +psCurrencyCode = lens _psCurrencyCode (\ s a -> s{_psCurrencyCode = a}) + +-- | The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. +psTerm :: Lens' PriceSchedule (Maybe Integer) +psTerm = lens _psTerm (\ s a -> s{_psTerm = a}) + +-- | The current price schedule, as determined by the term remaining for the Reserved Instance in the listing. A specific price schedule is always in effect, but only one price schedule can be active at any time. Take, for example, a Reserved Instance listing that has five months remaining in its term. When you specify price schedules for five months and two months, this means that schedule 1, covering the first three months of the remaining term, will be active during months 5, 4, and 3. Then schedule 2, covering the last two months of the term, will be active for months 2 and 1. +psActive :: Lens' PriceSchedule (Maybe Bool) +psActive = lens _psActive (\ s a -> s{_psActive = a}) + +-- | The fixed price for the term. +psPrice :: Lens' PriceSchedule (Maybe Double) +psPrice = lens _psPrice (\ s a -> s{_psPrice = a}) + +instance FromXML PriceSchedule where + parseXML x + = PriceSchedule' <$> + (x .@? "currencyCode") <*> (x .@? "term") <*> + (x .@? "active") + <*> (x .@? "price") + +instance Hashable PriceSchedule where + +instance NFData PriceSchedule where + +-- | Describes the price for a Reserved Instance. +-- +-- +-- +-- /See:/ 'priceScheduleSpecification' smart constructor. +data PriceScheduleSpecification = PriceScheduleSpecification' + { _pssCurrencyCode :: !(Maybe CurrencyCodeValues) + , _pssTerm :: !(Maybe Integer) + , _pssPrice :: !(Maybe Double) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PriceScheduleSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pssCurrencyCode' - The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . +-- +-- * 'pssTerm' - The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. +-- +-- * 'pssPrice' - The fixed price for the term. +priceScheduleSpecification + :: PriceScheduleSpecification +priceScheduleSpecification = + PriceScheduleSpecification' + {_pssCurrencyCode = Nothing, _pssTerm = Nothing, _pssPrice = Nothing} + + +-- | The currency for transacting the Reserved Instance resale. At this time, the only supported currency is @USD@ . +pssCurrencyCode :: Lens' PriceScheduleSpecification (Maybe CurrencyCodeValues) +pssCurrencyCode = lens _pssCurrencyCode (\ s a -> s{_pssCurrencyCode = a}) + +-- | The number of months remaining in the reservation. For example, 2 is the second to the last month before the capacity reservation expires. +pssTerm :: Lens' PriceScheduleSpecification (Maybe Integer) +pssTerm = lens _pssTerm (\ s a -> s{_pssTerm = a}) + +-- | The fixed price for the term. +pssPrice :: Lens' PriceScheduleSpecification (Maybe Double) +pssPrice = lens _pssPrice (\ s a -> s{_pssPrice = a}) + +instance Hashable PriceScheduleSpecification where + +instance NFData PriceScheduleSpecification where + +instance ToQuery PriceScheduleSpecification where + toQuery PriceScheduleSpecification'{..} + = mconcat + ["CurrencyCode" =: _pssCurrencyCode, + "Term" =: _pssTerm, "Price" =: _pssPrice] + +-- | Describes a Reserved Instance offering. +-- +-- +-- +-- /See:/ 'pricingDetail' smart constructor. +data PricingDetail = PricingDetail' + { _pdCount :: !(Maybe Int) + , _pdPrice :: !(Maybe Double) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PricingDetail' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pdCount' - The number of reservations available for the price. +-- +-- * 'pdPrice' - The price per instance. +pricingDetail + :: PricingDetail +pricingDetail = PricingDetail' {_pdCount = Nothing, _pdPrice = Nothing} + + +-- | The number of reservations available for the price. +pdCount :: Lens' PricingDetail (Maybe Int) +pdCount = lens _pdCount (\ s a -> s{_pdCount = a}) + +-- | The price per instance. +pdPrice :: Lens' PricingDetail (Maybe Double) +pdPrice = lens _pdPrice (\ s a -> s{_pdPrice = a}) + +instance FromXML PricingDetail where + parseXML x + = PricingDetail' <$> + (x .@? "count") <*> (x .@? "price") + +instance Hashable PricingDetail where + +instance NFData PricingDetail where + +-- | PrincipalIdFormat description +-- +-- +-- +-- /See:/ 'principalIdFormat' smart constructor. +data PrincipalIdFormat = PrincipalIdFormat' + { _pifARN :: !(Maybe Text) + , _pifStatuses :: !(Maybe [IdFormat]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PrincipalIdFormat' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pifARN' - PrincipalIdFormatARN description +-- +-- * 'pifStatuses' - PrincipalIdFormatStatuses description +principalIdFormat + :: PrincipalIdFormat +principalIdFormat = + PrincipalIdFormat' {_pifARN = Nothing, _pifStatuses = Nothing} + + +-- | PrincipalIdFormatARN description +pifARN :: Lens' PrincipalIdFormat (Maybe Text) +pifARN = lens _pifARN (\ s a -> s{_pifARN = a}) + +-- | PrincipalIdFormatStatuses description +pifStatuses :: Lens' PrincipalIdFormat [IdFormat] +pifStatuses = lens _pifStatuses (\ s a -> s{_pifStatuses = a}) . _Default . _Coerce + +instance FromXML PrincipalIdFormat where + parseXML x + = PrincipalIdFormat' <$> + (x .@? "arn") <*> + (x .@? "statusSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable PrincipalIdFormat where + +instance NFData PrincipalIdFormat where + +-- | Describes a secondary private IPv4 address for a network interface. +-- +-- +-- +-- /See:/ 'privateIPAddressSpecification' smart constructor. +data PrivateIPAddressSpecification = PrivateIPAddressSpecification' + { _piasPrimary :: !(Maybe Bool) + , _piasPrivateIPAddress :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PrivateIPAddressSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'piasPrimary' - Indicates whether the private IPv4 address is the primary private IPv4 address. Only one IPv4 address can be designated as primary. +-- +-- * 'piasPrivateIPAddress' - The private IPv4 addresses. +privateIPAddressSpecification + :: Text -- ^ 'piasPrivateIPAddress' + -> PrivateIPAddressSpecification +privateIPAddressSpecification pPrivateIPAddress_ = + PrivateIPAddressSpecification' + {_piasPrimary = Nothing, _piasPrivateIPAddress = pPrivateIPAddress_} + + +-- | Indicates whether the private IPv4 address is the primary private IPv4 address. Only one IPv4 address can be designated as primary. +piasPrimary :: Lens' PrivateIPAddressSpecification (Maybe Bool) +piasPrimary = lens _piasPrimary (\ s a -> s{_piasPrimary = a}) + +-- | The private IPv4 addresses. +piasPrivateIPAddress :: Lens' PrivateIPAddressSpecification Text +piasPrivateIPAddress = lens _piasPrivateIPAddress (\ s a -> s{_piasPrivateIPAddress = a}) + +instance FromXML PrivateIPAddressSpecification where + parseXML x + = PrivateIPAddressSpecification' <$> + (x .@? "primary") <*> (x .@ "privateIpAddress") + +instance Hashable PrivateIPAddressSpecification where + +instance NFData PrivateIPAddressSpecification where + +instance ToQuery PrivateIPAddressSpecification where + toQuery PrivateIPAddressSpecification'{..} + = mconcat + ["Primary" =: _piasPrimary, + "PrivateIpAddress" =: _piasPrivateIPAddress] + +-- | Describes a product code. +-- +-- +-- +-- /See:/ 'productCode' smart constructor. +data ProductCode = ProductCode' + { _pcProductCodeType :: !(Maybe ProductCodeValues) + , _pcProductCodeId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProductCode' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pcProductCodeType' - The type of product code. +-- +-- * 'pcProductCodeId' - The product code. +productCode + :: ProductCode +productCode = + ProductCode' {_pcProductCodeType = Nothing, _pcProductCodeId = Nothing} + + +-- | The type of product code. +pcProductCodeType :: Lens' ProductCode (Maybe ProductCodeValues) +pcProductCodeType = lens _pcProductCodeType (\ s a -> s{_pcProductCodeType = a}) + +-- | The product code. +pcProductCodeId :: Lens' ProductCode (Maybe Text) +pcProductCodeId = lens _pcProductCodeId (\ s a -> s{_pcProductCodeId = a}) + +instance FromXML ProductCode where + parseXML x + = ProductCode' <$> + (x .@? "type") <*> (x .@? "productCode") + +instance Hashable ProductCode where + +instance NFData ProductCode where + +-- | Describes a virtual private gateway propagating route. +-- +-- +-- +-- /See:/ 'propagatingVGW' smart constructor. +newtype PropagatingVGW = PropagatingVGW' + { _pvGatewayId :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PropagatingVGW' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pvGatewayId' - The ID of the virtual private gateway (VGW). +propagatingVGW + :: PropagatingVGW +propagatingVGW = PropagatingVGW' {_pvGatewayId = Nothing} + + +-- | The ID of the virtual private gateway (VGW). +pvGatewayId :: Lens' PropagatingVGW (Maybe Text) +pvGatewayId = lens _pvGatewayId (\ s a -> s{_pvGatewayId = a}) + +instance FromXML PropagatingVGW where + parseXML x = PropagatingVGW' <$> (x .@? "gatewayId") + +instance Hashable PropagatingVGW where + +instance NFData PropagatingVGW where + +-- | Reserved. If you need to sustain traffic greater than the , contact us through the . +-- +-- +-- +-- /See:/ 'provisionedBandwidth' smart constructor. +data ProvisionedBandwidth = ProvisionedBandwidth' + { _pbStatus :: !(Maybe Text) + , _pbRequested :: !(Maybe Text) + , _pbProvisioned :: !(Maybe Text) + , _pbRequestTime :: !(Maybe ISO8601) + , _pbProvisionTime :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ProvisionedBandwidth' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pbStatus' - Reserved. If you need to sustain traffic greater than the , contact us through the . +-- +-- * 'pbRequested' - Reserved. If you need to sustain traffic greater than the , contact us through the . +-- +-- * 'pbProvisioned' - Reserved. If you need to sustain traffic greater than the , contact us through the . +-- +-- * 'pbRequestTime' - Reserved. If you need to sustain traffic greater than the , contact us through the . +-- +-- * 'pbProvisionTime' - Reserved. If you need to sustain traffic greater than the , contact us through the . +provisionedBandwidth + :: ProvisionedBandwidth +provisionedBandwidth = + ProvisionedBandwidth' + { _pbStatus = Nothing + , _pbRequested = Nothing + , _pbProvisioned = Nothing + , _pbRequestTime = Nothing + , _pbProvisionTime = Nothing + } + + +-- | Reserved. If you need to sustain traffic greater than the , contact us through the . +pbStatus :: Lens' ProvisionedBandwidth (Maybe Text) +pbStatus = lens _pbStatus (\ s a -> s{_pbStatus = a}) + +-- | Reserved. If you need to sustain traffic greater than the , contact us through the . +pbRequested :: Lens' ProvisionedBandwidth (Maybe Text) +pbRequested = lens _pbRequested (\ s a -> s{_pbRequested = a}) + +-- | Reserved. If you need to sustain traffic greater than the , contact us through the . +pbProvisioned :: Lens' ProvisionedBandwidth (Maybe Text) +pbProvisioned = lens _pbProvisioned (\ s a -> s{_pbProvisioned = a}) + +-- | Reserved. If you need to sustain traffic greater than the , contact us through the . +pbRequestTime :: Lens' ProvisionedBandwidth (Maybe UTCTime) +pbRequestTime = lens _pbRequestTime (\ s a -> s{_pbRequestTime = a}) . mapping _Time + +-- | Reserved. If you need to sustain traffic greater than the , contact us through the . +pbProvisionTime :: Lens' ProvisionedBandwidth (Maybe UTCTime) +pbProvisionTime = lens _pbProvisionTime (\ s a -> s{_pbProvisionTime = a}) . mapping _Time + +instance FromXML ProvisionedBandwidth where + parseXML x + = ProvisionedBandwidth' <$> + (x .@? "status") <*> (x .@? "requested") <*> + (x .@? "provisioned") + <*> (x .@? "requestTime") + <*> (x .@? "provisionTime") + +instance Hashable ProvisionedBandwidth where + +instance NFData ProvisionedBandwidth where + +-- | Describes the result of the purchase. +-- +-- +-- +-- /See:/ 'purchase' smart constructor. +data Purchase = Purchase' + { _pInstanceFamily :: !(Maybe Text) + , _pCurrencyCode :: !(Maybe CurrencyCodeValues) + , _pHostReservationId :: !(Maybe Text) + , _pHourlyPrice :: !(Maybe Text) + , _pUpfrontPrice :: !(Maybe Text) + , _pHostIdSet :: !(Maybe [Text]) + , _pDuration :: !(Maybe Int) + , _pPaymentOption :: !(Maybe PaymentOption) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Purchase' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'pInstanceFamily' - The instance family on the Dedicated Host that the reservation can be associated with. +-- +-- * 'pCurrencyCode' - The currency in which the @UpfrontPrice@ and @HourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . +-- +-- * 'pHostReservationId' - The ID of the reservation. +-- +-- * 'pHourlyPrice' - The hourly price of the reservation per hour. +-- +-- * 'pUpfrontPrice' - The upfront price of the reservation. +-- +-- * 'pHostIdSet' - The IDs of the Dedicated Hosts associated with the reservation. +-- +-- * 'pDuration' - The duration of the reservation's term in seconds. +-- +-- * 'pPaymentOption' - The payment option for the reservation. +purchase + :: Purchase +purchase = + Purchase' + { _pInstanceFamily = Nothing + , _pCurrencyCode = Nothing + , _pHostReservationId = Nothing + , _pHourlyPrice = Nothing + , _pUpfrontPrice = Nothing + , _pHostIdSet = Nothing + , _pDuration = Nothing + , _pPaymentOption = Nothing + } + + +-- | The instance family on the Dedicated Host that the reservation can be associated with. +pInstanceFamily :: Lens' Purchase (Maybe Text) +pInstanceFamily = lens _pInstanceFamily (\ s a -> s{_pInstanceFamily = a}) + +-- | The currency in which the @UpfrontPrice@ and @HourlyPrice@ amounts are specified. At this time, the only supported currency is @USD@ . +pCurrencyCode :: Lens' Purchase (Maybe CurrencyCodeValues) +pCurrencyCode = lens _pCurrencyCode (\ s a -> s{_pCurrencyCode = a}) + +-- | The ID of the reservation. +pHostReservationId :: Lens' Purchase (Maybe Text) +pHostReservationId = lens _pHostReservationId (\ s a -> s{_pHostReservationId = a}) + +-- | The hourly price of the reservation per hour. +pHourlyPrice :: Lens' Purchase (Maybe Text) +pHourlyPrice = lens _pHourlyPrice (\ s a -> s{_pHourlyPrice = a}) + +-- | The upfront price of the reservation. +pUpfrontPrice :: Lens' Purchase (Maybe Text) +pUpfrontPrice = lens _pUpfrontPrice (\ s a -> s{_pUpfrontPrice = a}) + +-- | The IDs of the Dedicated Hosts associated with the reservation. +pHostIdSet :: Lens' Purchase [Text] +pHostIdSet = lens _pHostIdSet (\ s a -> s{_pHostIdSet = a}) . _Default . _Coerce + +-- | The duration of the reservation's term in seconds. +pDuration :: Lens' Purchase (Maybe Int) +pDuration = lens _pDuration (\ s a -> s{_pDuration = a}) + +-- | The payment option for the reservation. +pPaymentOption :: Lens' Purchase (Maybe PaymentOption) +pPaymentOption = lens _pPaymentOption (\ s a -> s{_pPaymentOption = a}) + +instance FromXML Purchase where + parseXML x + = Purchase' <$> + (x .@? "instanceFamily") <*> (x .@? "currencyCode") + <*> (x .@? "hostReservationId") + <*> (x .@? "hourlyPrice") + <*> (x .@? "upfrontPrice") + <*> + (x .@? "hostIdSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "duration") + <*> (x .@? "paymentOption") + +instance Hashable Purchase where + +instance NFData Purchase where + +-- | Describes a request to purchase Scheduled Instances. +-- +-- +-- +-- /See:/ 'purchaseRequest' smart constructor. +data PurchaseRequest = PurchaseRequest' + { _prInstanceCount :: !Int + , _prPurchaseToken :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'PurchaseRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'prInstanceCount' - The number of instances. +-- +-- * 'prPurchaseToken' - The purchase token. +purchaseRequest + :: Int -- ^ 'prInstanceCount' + -> Text -- ^ 'prPurchaseToken' + -> PurchaseRequest +purchaseRequest pInstanceCount_ pPurchaseToken_ = + PurchaseRequest' + {_prInstanceCount = pInstanceCount_, _prPurchaseToken = pPurchaseToken_} + + +-- | The number of instances. +prInstanceCount :: Lens' PurchaseRequest Int +prInstanceCount = lens _prInstanceCount (\ s a -> s{_prInstanceCount = a}) + +-- | The purchase token. +prPurchaseToken :: Lens' PurchaseRequest Text +prPurchaseToken = lens _prPurchaseToken (\ s a -> s{_prPurchaseToken = a}) + +instance Hashable PurchaseRequest where + +instance NFData PurchaseRequest where + +instance ToQuery PurchaseRequest where + toQuery PurchaseRequest'{..} + = mconcat + ["InstanceCount" =: _prInstanceCount, + "PurchaseToken" =: _prPurchaseToken] + +-- | Describes a recurring charge. +-- +-- +-- +-- /See:/ 'recurringCharge' smart constructor. +data RecurringCharge = RecurringCharge' + { _rcAmount :: !(Maybe Double) + , _rcFrequency :: !(Maybe RecurringChargeFrequency) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RecurringCharge' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rcAmount' - The amount of the recurring charge. +-- +-- * 'rcFrequency' - The frequency of the recurring charge. +recurringCharge + :: RecurringCharge +recurringCharge = RecurringCharge' {_rcAmount = Nothing, _rcFrequency = Nothing} + + +-- | The amount of the recurring charge. +rcAmount :: Lens' RecurringCharge (Maybe Double) +rcAmount = lens _rcAmount (\ s a -> s{_rcAmount = a}) + +-- | The frequency of the recurring charge. +rcFrequency :: Lens' RecurringCharge (Maybe RecurringChargeFrequency) +rcFrequency = lens _rcFrequency (\ s a -> s{_rcFrequency = a}) + +instance FromXML RecurringCharge where + parseXML x + = RecurringCharge' <$> + (x .@? "amount") <*> (x .@? "frequency") + +instance Hashable RecurringCharge where + +instance NFData RecurringCharge where + +-- | Describes a region. +-- +-- +-- +-- /See:/ 'regionInfo' smart constructor. +data RegionInfo = RegionInfo' + { _riRegionName :: !(Maybe Text) + , _riEndpoint :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RegionInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'riRegionName' - The name of the region. +-- +-- * 'riEndpoint' - The region service endpoint. +regionInfo + :: RegionInfo +regionInfo = RegionInfo' {_riRegionName = Nothing, _riEndpoint = Nothing} + + +-- | The name of the region. +riRegionName :: Lens' RegionInfo (Maybe Text) +riRegionName = lens _riRegionName (\ s a -> s{_riRegionName = a}) + +-- | The region service endpoint. +riEndpoint :: Lens' RegionInfo (Maybe Text) +riEndpoint = lens _riEndpoint (\ s a -> s{_riEndpoint = a}) + +instance FromXML RegionInfo where + parseXML x + = RegionInfo' <$> + (x .@? "regionName") <*> (x .@? "regionEndpoint") + +instance Hashable RegionInfo where + +instance NFData RegionInfo where + +-- | The information to include in the launch template. +-- +-- +-- +-- /See:/ 'requestLaunchTemplateData' smart constructor. +data RequestLaunchTemplateData = RequestLaunchTemplateData' + { _rltdSecurityGroupIds :: !(Maybe [Text]) + , _rltdSecurityGroups :: !(Maybe [Text]) + , _rltdInstanceMarketOptions :: !(Maybe LaunchTemplateInstanceMarketOptionsRequest) + , _rltdDisableAPITermination :: !(Maybe Bool) + , _rltdKeyName :: !(Maybe Text) + , _rltdNetworkInterfaces :: !(Maybe [LaunchTemplateInstanceNetworkInterfaceSpecificationRequest]) + , _rltdRamDiskId :: !(Maybe Text) + , _rltdKernelId :: !(Maybe Text) + , _rltdElasticGpuSpecifications :: !(Maybe [ElasticGpuSpecification]) + , _rltdInstanceType :: !(Maybe InstanceType) + , _rltdEBSOptimized :: !(Maybe Bool) + , _rltdUserData :: !(Maybe Text) + , _rltdMonitoring :: !(Maybe LaunchTemplatesMonitoringRequest) + , _rltdTagSpecifications :: !(Maybe [LaunchTemplateTagSpecificationRequest]) + , _rltdIAMInstanceProfile :: !(Maybe LaunchTemplateIAMInstanceProfileSpecificationRequest) + , _rltdImageId :: !(Maybe Text) + , _rltdInstanceInitiatedShutdownBehavior :: !(Maybe ShutdownBehavior) + , _rltdCreditSpecification :: !(Maybe CreditSpecificationRequest) + , _rltdBlockDeviceMappings :: !(Maybe [LaunchTemplateBlockDeviceMappingRequest]) + , _rltdPlacement :: !(Maybe LaunchTemplatePlacementRequest) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RequestLaunchTemplateData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rltdSecurityGroupIds' - One or more security group IDs. You can create a security group using 'CreateSecurityGroup' . You cannot specify both a security group ID and security name in the same request. +-- +-- * 'rltdSecurityGroups' - [EC2-Classic, default VPC] One or more security group names. For a nondefault VPC, you must use security group IDs instead. You cannot specify both a security group ID and security name in the same request. +-- +-- * 'rltdInstanceMarketOptions' - The market (purchasing) option for the instances. +-- +-- * 'rltdDisableAPITermination' - If set to @true@ , you can't terminate the instance using the Amazon EC2 console, CLI, or API. To change this attribute to @false@ after launch, use 'ModifyInstanceAttribute' . +-- +-- * 'rltdKeyName' - The name of the key pair. You can create a key pair using 'CreateKeyPair' or 'ImportKeyPair' . /Important:/ If you do not specify a key pair, you can't connect to the instance unless you choose an AMI that is configured to allow users another way to log in. +-- +-- * 'rltdNetworkInterfaces' - One or more network interfaces. +-- +-- * 'rltdRamDiskId' - The ID of the RAM disk. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- +-- * 'rltdKernelId' - The ID of the kernel. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- +-- * 'rltdElasticGpuSpecifications' - An elastic GPU to associate with the instance. +-- +-- * 'rltdInstanceType' - The instance type. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +-- +-- * 'rltdEBSOptimized' - Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal Amazon EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. +-- +-- * 'rltdUserData' - The Base64-encoded user data to make available to the instance. For more information, see (Linux) and (Windows). +-- +-- * 'rltdMonitoring' - The monitoring for the instance. +-- +-- * 'rltdTagSpecifications' - The tags to apply to the resources during launch. You can tag instances and volumes. The specified tags are applied to all instances or volumes that are created during launch. +-- +-- * 'rltdIAMInstanceProfile' - The IAM instance profile. +-- +-- * 'rltdImageId' - The ID of the AMI, which you can get by using 'DescribeImages' . +-- +-- * 'rltdInstanceInitiatedShutdownBehavior' - Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). Default: @stop@ +-- +-- * 'rltdCreditSpecification' - The credit option for CPU usage of the instance. Valid for T2 instances only. +-- +-- * 'rltdBlockDeviceMappings' - The block device mapping. /Important:/ Supplying both a snapshot ID and an encryption value as arguments for block-device mapping results in an error. This is because only blank volumes can be encrypted on start, and these are not created from a snapshot. If a snapshot is the basis for the volume, it contains data by definition and its encryption status cannot be changed using this action. +-- +-- * 'rltdPlacement' - The placement for the instance. +requestLaunchTemplateData + :: RequestLaunchTemplateData +requestLaunchTemplateData = + RequestLaunchTemplateData' + { _rltdSecurityGroupIds = Nothing + , _rltdSecurityGroups = Nothing + , _rltdInstanceMarketOptions = Nothing + , _rltdDisableAPITermination = Nothing + , _rltdKeyName = Nothing + , _rltdNetworkInterfaces = Nothing + , _rltdRamDiskId = Nothing + , _rltdKernelId = Nothing + , _rltdElasticGpuSpecifications = Nothing + , _rltdInstanceType = Nothing + , _rltdEBSOptimized = Nothing + , _rltdUserData = Nothing + , _rltdMonitoring = Nothing + , _rltdTagSpecifications = Nothing + , _rltdIAMInstanceProfile = Nothing + , _rltdImageId = Nothing + , _rltdInstanceInitiatedShutdownBehavior = Nothing + , _rltdCreditSpecification = Nothing + , _rltdBlockDeviceMappings = Nothing + , _rltdPlacement = Nothing + } + + +-- | One or more security group IDs. You can create a security group using 'CreateSecurityGroup' . You cannot specify both a security group ID and security name in the same request. +rltdSecurityGroupIds :: Lens' RequestLaunchTemplateData [Text] +rltdSecurityGroupIds = lens _rltdSecurityGroupIds (\ s a -> s{_rltdSecurityGroupIds = a}) . _Default . _Coerce + +-- | [EC2-Classic, default VPC] One or more security group names. For a nondefault VPC, you must use security group IDs instead. You cannot specify both a security group ID and security name in the same request. +rltdSecurityGroups :: Lens' RequestLaunchTemplateData [Text] +rltdSecurityGroups = lens _rltdSecurityGroups (\ s a -> s{_rltdSecurityGroups = a}) . _Default . _Coerce + +-- | The market (purchasing) option for the instances. +rltdInstanceMarketOptions :: Lens' RequestLaunchTemplateData (Maybe LaunchTemplateInstanceMarketOptionsRequest) +rltdInstanceMarketOptions = lens _rltdInstanceMarketOptions (\ s a -> s{_rltdInstanceMarketOptions = a}) + +-- | If set to @true@ , you can't terminate the instance using the Amazon EC2 console, CLI, or API. To change this attribute to @false@ after launch, use 'ModifyInstanceAttribute' . +rltdDisableAPITermination :: Lens' RequestLaunchTemplateData (Maybe Bool) +rltdDisableAPITermination = lens _rltdDisableAPITermination (\ s a -> s{_rltdDisableAPITermination = a}) + +-- | The name of the key pair. You can create a key pair using 'CreateKeyPair' or 'ImportKeyPair' . /Important:/ If you do not specify a key pair, you can't connect to the instance unless you choose an AMI that is configured to allow users another way to log in. +rltdKeyName :: Lens' RequestLaunchTemplateData (Maybe Text) +rltdKeyName = lens _rltdKeyName (\ s a -> s{_rltdKeyName = a}) + +-- | One or more network interfaces. +rltdNetworkInterfaces :: Lens' RequestLaunchTemplateData [LaunchTemplateInstanceNetworkInterfaceSpecificationRequest] +rltdNetworkInterfaces = lens _rltdNetworkInterfaces (\ s a -> s{_rltdNetworkInterfaces = a}) . _Default . _Coerce + +-- | The ID of the RAM disk. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +rltdRamDiskId :: Lens' RequestLaunchTemplateData (Maybe Text) +rltdRamDiskId = lens _rltdRamDiskId (\ s a -> s{_rltdRamDiskId = a}) + +-- | The ID of the kernel. /Important:/ We recommend that you use PV-GRUB instead of kernels and RAM disks. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +rltdKernelId :: Lens' RequestLaunchTemplateData (Maybe Text) +rltdKernelId = lens _rltdKernelId (\ s a -> s{_rltdKernelId = a}) + +-- | An elastic GPU to associate with the instance. +rltdElasticGpuSpecifications :: Lens' RequestLaunchTemplateData [ElasticGpuSpecification] +rltdElasticGpuSpecifications = lens _rltdElasticGpuSpecifications (\ s a -> s{_rltdElasticGpuSpecifications = a}) . _Default . _Coerce + +-- | The instance type. For more information, see in the /Amazon Elastic Compute Cloud User Guide/ . +rltdInstanceType :: Lens' RequestLaunchTemplateData (Maybe InstanceType) +rltdInstanceType = lens _rltdInstanceType (\ s a -> s{_rltdInstanceType = a}) + +-- | Indicates whether the instance is optimized for Amazon EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal Amazon EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. +rltdEBSOptimized :: Lens' RequestLaunchTemplateData (Maybe Bool) +rltdEBSOptimized = lens _rltdEBSOptimized (\ s a -> s{_rltdEBSOptimized = a}) + +-- | The Base64-encoded user data to make available to the instance. For more information, see (Linux) and (Windows). +rltdUserData :: Lens' RequestLaunchTemplateData (Maybe Text) +rltdUserData = lens _rltdUserData (\ s a -> s{_rltdUserData = a}) + +-- | The monitoring for the instance. +rltdMonitoring :: Lens' RequestLaunchTemplateData (Maybe LaunchTemplatesMonitoringRequest) +rltdMonitoring = lens _rltdMonitoring (\ s a -> s{_rltdMonitoring = a}) + +-- | The tags to apply to the resources during launch. You can tag instances and volumes. The specified tags are applied to all instances or volumes that are created during launch. +rltdTagSpecifications :: Lens' RequestLaunchTemplateData [LaunchTemplateTagSpecificationRequest] +rltdTagSpecifications = lens _rltdTagSpecifications (\ s a -> s{_rltdTagSpecifications = a}) . _Default . _Coerce + +-- | The IAM instance profile. +rltdIAMInstanceProfile :: Lens' RequestLaunchTemplateData (Maybe LaunchTemplateIAMInstanceProfileSpecificationRequest) +rltdIAMInstanceProfile = lens _rltdIAMInstanceProfile (\ s a -> s{_rltdIAMInstanceProfile = a}) + +-- | The ID of the AMI, which you can get by using 'DescribeImages' . +rltdImageId :: Lens' RequestLaunchTemplateData (Maybe Text) +rltdImageId = lens _rltdImageId (\ s a -> s{_rltdImageId = a}) + +-- | Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). Default: @stop@ +rltdInstanceInitiatedShutdownBehavior :: Lens' RequestLaunchTemplateData (Maybe ShutdownBehavior) +rltdInstanceInitiatedShutdownBehavior = lens _rltdInstanceInitiatedShutdownBehavior (\ s a -> s{_rltdInstanceInitiatedShutdownBehavior = a}) + +-- | The credit option for CPU usage of the instance. Valid for T2 instances only. +rltdCreditSpecification :: Lens' RequestLaunchTemplateData (Maybe CreditSpecificationRequest) +rltdCreditSpecification = lens _rltdCreditSpecification (\ s a -> s{_rltdCreditSpecification = a}) + +-- | The block device mapping. /Important:/ Supplying both a snapshot ID and an encryption value as arguments for block-device mapping results in an error. This is because only blank volumes can be encrypted on start, and these are not created from a snapshot. If a snapshot is the basis for the volume, it contains data by definition and its encryption status cannot be changed using this action. +rltdBlockDeviceMappings :: Lens' RequestLaunchTemplateData [LaunchTemplateBlockDeviceMappingRequest] +rltdBlockDeviceMappings = lens _rltdBlockDeviceMappings (\ s a -> s{_rltdBlockDeviceMappings = a}) . _Default . _Coerce + +-- | The placement for the instance. +rltdPlacement :: Lens' RequestLaunchTemplateData (Maybe LaunchTemplatePlacementRequest) +rltdPlacement = lens _rltdPlacement (\ s a -> s{_rltdPlacement = a}) + +instance Hashable RequestLaunchTemplateData where + +instance NFData RequestLaunchTemplateData where + +instance ToQuery RequestLaunchTemplateData where + toQuery RequestLaunchTemplateData'{..} + = mconcat + [toQuery + (toQueryList "SecurityGroupId" <$> + _rltdSecurityGroupIds), + toQuery + (toQueryList "SecurityGroup" <$> + _rltdSecurityGroups), + "InstanceMarketOptions" =: + _rltdInstanceMarketOptions, + "DisableApiTermination" =: + _rltdDisableAPITermination, + "KeyName" =: _rltdKeyName, + toQuery + (toQueryList "NetworkInterface" <$> + _rltdNetworkInterfaces), + "RamDiskId" =: _rltdRamDiskId, + "KernelId" =: _rltdKernelId, + toQuery + (toQueryList "ElasticGpuSpecification" <$> + _rltdElasticGpuSpecifications), + "InstanceType" =: _rltdInstanceType, + "EbsOptimized" =: _rltdEBSOptimized, + "UserData" =: _rltdUserData, + "Monitoring" =: _rltdMonitoring, + toQuery + (toQueryList "TagSpecification" <$> + _rltdTagSpecifications), + "IamInstanceProfile" =: _rltdIAMInstanceProfile, + "ImageId" =: _rltdImageId, + "InstanceInitiatedShutdownBehavior" =: + _rltdInstanceInitiatedShutdownBehavior, + "CreditSpecification" =: _rltdCreditSpecification, + toQuery + (toQueryList "BlockDeviceMapping" <$> + _rltdBlockDeviceMappings), + "Placement" =: _rltdPlacement] + +-- | Describes the launch specification for an instance. +-- +-- +-- +-- /See:/ 'requestSpotLaunchSpecification' smart constructor. +data RequestSpotLaunchSpecification = RequestSpotLaunchSpecification' + { _rslsSecurityGroupIds :: !(Maybe [Text]) + , _rslsSecurityGroups :: !(Maybe [Text]) + , _rslsKeyName :: !(Maybe Text) + , _rslsNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) + , _rslsRAMDiskId :: !(Maybe Text) + , _rslsSubnetId :: !(Maybe Text) + , _rslsKernelId :: !(Maybe Text) + , _rslsInstanceType :: !(Maybe InstanceType) + , _rslsEBSOptimized :: !(Maybe Bool) + , _rslsUserData :: !(Maybe Text) + , _rslsMonitoring :: !(Maybe RunInstancesMonitoringEnabled) + , _rslsIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) + , _rslsImageId :: !(Maybe Text) + , _rslsAddressingType :: !(Maybe Text) + , _rslsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) + , _rslsPlacement :: !(Maybe SpotPlacement) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RequestSpotLaunchSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rslsSecurityGroupIds' - One or more security group IDs. +-- +-- * 'rslsSecurityGroups' - 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. +-- +-- * 'rslsKeyName' - The name of the key pair. +-- +-- * 'rslsNetworkInterfaces' - One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. +-- +-- * 'rslsRAMDiskId' - The ID of the RAM disk. +-- +-- * 'rslsSubnetId' - The ID of the subnet in which to launch the instance. +-- +-- * 'rslsKernelId' - The ID of the kernel. +-- +-- * 'rslsInstanceType' - The instance type. +-- +-- * 'rslsEBSOptimized' - Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ +-- +-- * 'rslsUserData' - The Base64-encoded user data for the instance. +-- +-- * 'rslsMonitoring' - Indicates whether basic or detailed monitoring is enabled for the instance. Default: Disabled +-- +-- * 'rslsIAMInstanceProfile' - The IAM instance profile. +-- +-- * 'rslsImageId' - The ID of the AMI. +-- +-- * 'rslsAddressingType' - Deprecated. +-- +-- * 'rslsBlockDeviceMappings' - One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. +-- +-- * 'rslsPlacement' - The placement information for the instance. +requestSpotLaunchSpecification + :: RequestSpotLaunchSpecification +requestSpotLaunchSpecification = + RequestSpotLaunchSpecification' + { _rslsSecurityGroupIds = Nothing + , _rslsSecurityGroups = Nothing + , _rslsKeyName = Nothing + , _rslsNetworkInterfaces = Nothing + , _rslsRAMDiskId = Nothing + , _rslsSubnetId = Nothing + , _rslsKernelId = Nothing + , _rslsInstanceType = Nothing + , _rslsEBSOptimized = Nothing + , _rslsUserData = Nothing + , _rslsMonitoring = Nothing + , _rslsIAMInstanceProfile = Nothing + , _rslsImageId = Nothing + , _rslsAddressingType = Nothing + , _rslsBlockDeviceMappings = Nothing + , _rslsPlacement = Nothing + } + + +-- | One or more security group IDs. +rslsSecurityGroupIds :: Lens' RequestSpotLaunchSpecification [Text] +rslsSecurityGroupIds = lens _rslsSecurityGroupIds (\ s a -> s{_rslsSecurityGroupIds = a}) . _Default . _Coerce + +-- | 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. +rslsSecurityGroups :: Lens' RequestSpotLaunchSpecification [Text] +rslsSecurityGroups = lens _rslsSecurityGroups (\ s a -> s{_rslsSecurityGroups = a}) . _Default . _Coerce + +-- | The name of the key pair. +rslsKeyName :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsKeyName = lens _rslsKeyName (\ s a -> s{_rslsKeyName = a}) + +-- | One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. +rslsNetworkInterfaces :: Lens' RequestSpotLaunchSpecification [InstanceNetworkInterfaceSpecification] +rslsNetworkInterfaces = lens _rslsNetworkInterfaces (\ s a -> s{_rslsNetworkInterfaces = a}) . _Default . _Coerce + +-- | The ID of the RAM disk. +rslsRAMDiskId :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsRAMDiskId = lens _rslsRAMDiskId (\ s a -> s{_rslsRAMDiskId = a}) + +-- | The ID of the subnet in which to launch the instance. +rslsSubnetId :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsSubnetId = lens _rslsSubnetId (\ s a -> s{_rslsSubnetId = a}) + +-- | The ID of the kernel. +rslsKernelId :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsKernelId = lens _rslsKernelId (\ s a -> s{_rslsKernelId = a}) + +-- | The instance type. +rslsInstanceType :: Lens' RequestSpotLaunchSpecification (Maybe InstanceType) +rslsInstanceType = lens _rslsInstanceType (\ s a -> s{_rslsInstanceType = a}) + +-- | Indicates whether the instance is optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ +rslsEBSOptimized :: Lens' RequestSpotLaunchSpecification (Maybe Bool) +rslsEBSOptimized = lens _rslsEBSOptimized (\ s a -> s{_rslsEBSOptimized = a}) + +-- | The Base64-encoded user data for the instance. +rslsUserData :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsUserData = lens _rslsUserData (\ s a -> s{_rslsUserData = a}) + +-- | Indicates whether basic or detailed monitoring is enabled for the instance. Default: Disabled +rslsMonitoring :: Lens' RequestSpotLaunchSpecification (Maybe RunInstancesMonitoringEnabled) +rslsMonitoring = lens _rslsMonitoring (\ s a -> s{_rslsMonitoring = a}) + +-- | The IAM instance profile. +rslsIAMInstanceProfile :: Lens' RequestSpotLaunchSpecification (Maybe IAMInstanceProfileSpecification) +rslsIAMInstanceProfile = lens _rslsIAMInstanceProfile (\ s a -> s{_rslsIAMInstanceProfile = a}) + +-- | The ID of the AMI. +rslsImageId :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsImageId = lens _rslsImageId (\ s a -> s{_rslsImageId = a}) + +-- | Deprecated. +rslsAddressingType :: Lens' RequestSpotLaunchSpecification (Maybe Text) +rslsAddressingType = lens _rslsAddressingType (\ s a -> s{_rslsAddressingType = a}) + +-- | One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. +rslsBlockDeviceMappings :: Lens' RequestSpotLaunchSpecification [BlockDeviceMapping] +rslsBlockDeviceMappings = lens _rslsBlockDeviceMappings (\ s a -> s{_rslsBlockDeviceMappings = a}) . _Default . _Coerce + +-- | The placement information for the instance. +rslsPlacement :: Lens' RequestSpotLaunchSpecification (Maybe SpotPlacement) +rslsPlacement = lens _rslsPlacement (\ s a -> s{_rslsPlacement = a}) + +instance Hashable RequestSpotLaunchSpecification + where + +instance NFData RequestSpotLaunchSpecification where + +instance ToQuery RequestSpotLaunchSpecification where + toQuery RequestSpotLaunchSpecification'{..} + = mconcat + [toQuery + (toQueryList "SecurityGroupId" <$> + _rslsSecurityGroupIds), + toQuery + (toQueryList "SecurityGroup" <$> + _rslsSecurityGroups), + "KeyName" =: _rslsKeyName, + toQuery + (toQueryList "NetworkInterface" <$> + _rslsNetworkInterfaces), + "RamdiskId" =: _rslsRAMDiskId, + "SubnetId" =: _rslsSubnetId, + "KernelId" =: _rslsKernelId, + "InstanceType" =: _rslsInstanceType, + "EbsOptimized" =: _rslsEBSOptimized, + "UserData" =: _rslsUserData, + "Monitoring" =: _rslsMonitoring, + "IamInstanceProfile" =: _rslsIAMInstanceProfile, + "ImageId" =: _rslsImageId, + "AddressingType" =: _rslsAddressingType, + toQuery + (toQueryList "BlockDeviceMapping" <$> + _rslsBlockDeviceMappings), + "Placement" =: _rslsPlacement] + +-- | Describes a reservation. +-- +-- +-- +-- /See:/ 'reservation' smart constructor. +data Reservation = Reservation' + { _rGroups :: !(Maybe [GroupIdentifier]) + , _rInstances :: !(Maybe [Instance]) + , _rRequesterId :: !(Maybe Text) + , _rReservationId :: !Text + , _rOwnerId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Reservation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rGroups' - [EC2-Classic only] One or more security groups. +-- +-- * 'rInstances' - One or more instances. +-- +-- * 'rRequesterId' - The ID of the requester that launched the instances on your behalf (for example, AWS Management Console or Auto Scaling). +-- +-- * 'rReservationId' - The ID of the reservation. +-- +-- * 'rOwnerId' - The ID of the AWS account that owns the reservation. +reservation + :: Text -- ^ 'rReservationId' + -> Text -- ^ 'rOwnerId' + -> Reservation +reservation pReservationId_ pOwnerId_ = + Reservation' + { _rGroups = Nothing + , _rInstances = Nothing + , _rRequesterId = Nothing + , _rReservationId = pReservationId_ + , _rOwnerId = pOwnerId_ + } + + +-- | [EC2-Classic only] One or more security groups. +rGroups :: Lens' Reservation [GroupIdentifier] +rGroups = lens _rGroups (\ s a -> s{_rGroups = a}) . _Default . _Coerce + +-- | One or more instances. +rInstances :: Lens' Reservation [Instance] +rInstances = lens _rInstances (\ s a -> s{_rInstances = a}) . _Default . _Coerce + +-- | The ID of the requester that launched the instances on your behalf (for example, AWS Management Console or Auto Scaling). +rRequesterId :: Lens' Reservation (Maybe Text) +rRequesterId = lens _rRequesterId (\ s a -> s{_rRequesterId = a}) + +-- | The ID of the reservation. +rReservationId :: Lens' Reservation Text +rReservationId = lens _rReservationId (\ s a -> s{_rReservationId = a}) + +-- | The ID of the AWS account that owns the reservation. +rOwnerId :: Lens' Reservation Text +rOwnerId = lens _rOwnerId (\ s a -> s{_rOwnerId = a}) + +instance FromXML Reservation where + parseXML x + = Reservation' <$> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "instancesSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "requesterId") + <*> (x .@ "reservationId") + <*> (x .@ "ownerId") + +instance Hashable Reservation where + +instance NFData Reservation where + +-- | The cost associated with the Reserved Instance. +-- +-- +-- +-- /See:/ 'reservationValue' smart constructor. +data ReservationValue = ReservationValue' + { _rvHourlyPrice :: !(Maybe Text) + , _rvRemainingTotalValue :: !(Maybe Text) + , _rvRemainingUpfrontValue :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservationValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rvHourlyPrice' - The hourly rate of the reservation. +-- +-- * 'rvRemainingTotalValue' - The balance of the total value (the sum of remainingUpfrontValue + hourlyPrice * number of hours remaining). +-- +-- * 'rvRemainingUpfrontValue' - The remaining upfront cost of the reservation. +reservationValue + :: ReservationValue +reservationValue = + ReservationValue' + { _rvHourlyPrice = Nothing + , _rvRemainingTotalValue = Nothing + , _rvRemainingUpfrontValue = Nothing + } + + +-- | The hourly rate of the reservation. +rvHourlyPrice :: Lens' ReservationValue (Maybe Text) +rvHourlyPrice = lens _rvHourlyPrice (\ s a -> s{_rvHourlyPrice = a}) + +-- | The balance of the total value (the sum of remainingUpfrontValue + hourlyPrice * number of hours remaining). +rvRemainingTotalValue :: Lens' ReservationValue (Maybe Text) +rvRemainingTotalValue = lens _rvRemainingTotalValue (\ s a -> s{_rvRemainingTotalValue = a}) + +-- | The remaining upfront cost of the reservation. +rvRemainingUpfrontValue :: Lens' ReservationValue (Maybe Text) +rvRemainingUpfrontValue = lens _rvRemainingUpfrontValue (\ s a -> s{_rvRemainingUpfrontValue = a}) + +instance FromXML ReservationValue where + parseXML x + = ReservationValue' <$> + (x .@? "hourlyPrice") <*> + (x .@? "remainingTotalValue") + <*> (x .@? "remainingUpfrontValue") + +instance Hashable ReservationValue where + +instance NFData ReservationValue where + +-- | Describes the limit price of a Reserved Instance offering. +-- +-- +-- +-- /See:/ 'reservedInstanceLimitPrice' smart constructor. +data ReservedInstanceLimitPrice = ReservedInstanceLimitPrice' + { _rilpAmount :: !(Maybe Double) + , _rilpCurrencyCode :: !(Maybe CurrencyCodeValues) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstanceLimitPrice' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rilpAmount' - Used for Reserved Instance Marketplace offerings. Specifies the limit price on the total order (instanceCount * price). +-- +-- * 'rilpCurrencyCode' - The currency in which the @limitPrice@ amount is specified. At this time, the only supported currency is @USD@ . +reservedInstanceLimitPrice + :: ReservedInstanceLimitPrice +reservedInstanceLimitPrice = + ReservedInstanceLimitPrice' + {_rilpAmount = Nothing, _rilpCurrencyCode = Nothing} + + +-- | Used for Reserved Instance Marketplace offerings. Specifies the limit price on the total order (instanceCount * price). +rilpAmount :: Lens' ReservedInstanceLimitPrice (Maybe Double) +rilpAmount = lens _rilpAmount (\ s a -> s{_rilpAmount = a}) + +-- | The currency in which the @limitPrice@ amount is specified. At this time, the only supported currency is @USD@ . +rilpCurrencyCode :: Lens' ReservedInstanceLimitPrice (Maybe CurrencyCodeValues) +rilpCurrencyCode = lens _rilpCurrencyCode (\ s a -> s{_rilpCurrencyCode = a}) + +instance Hashable ReservedInstanceLimitPrice where + +instance NFData ReservedInstanceLimitPrice where + +instance ToQuery ReservedInstanceLimitPrice where + toQuery ReservedInstanceLimitPrice'{..} + = mconcat + ["Amount" =: _rilpAmount, + "CurrencyCode" =: _rilpCurrencyCode] + +-- | The total value of the Convertible Reserved Instance. +-- +-- +-- +-- /See:/ 'reservedInstanceReservationValue' smart constructor. +data ReservedInstanceReservationValue = ReservedInstanceReservationValue' + { _rirvReservationValue :: !(Maybe ReservationValue) + , _rirvReservedInstanceId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstanceReservationValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rirvReservationValue' - The total value of the Convertible Reserved Instance that you are exchanging. +-- +-- * 'rirvReservedInstanceId' - The ID of the Convertible Reserved Instance that you are exchanging. +reservedInstanceReservationValue + :: ReservedInstanceReservationValue +reservedInstanceReservationValue = + ReservedInstanceReservationValue' + {_rirvReservationValue = Nothing, _rirvReservedInstanceId = Nothing} + + +-- | The total value of the Convertible Reserved Instance that you are exchanging. +rirvReservationValue :: Lens' ReservedInstanceReservationValue (Maybe ReservationValue) +rirvReservationValue = lens _rirvReservationValue (\ s a -> s{_rirvReservationValue = a}) + +-- | The ID of the Convertible Reserved Instance that you are exchanging. +rirvReservedInstanceId :: Lens' ReservedInstanceReservationValue (Maybe Text) +rirvReservedInstanceId = lens _rirvReservedInstanceId (\ s a -> s{_rirvReservedInstanceId = a}) + +instance FromXML ReservedInstanceReservationValue + where + parseXML x + = ReservedInstanceReservationValue' <$> + (x .@? "reservationValue") <*> + (x .@? "reservedInstanceId") + +instance Hashable ReservedInstanceReservationValue + where + +instance NFData ReservedInstanceReservationValue + where + +-- | Describes a Reserved Instance. +-- +-- +-- +-- /See:/ 'reservedInstances' smart constructor. +data ReservedInstances = ReservedInstances' + { _riState :: !(Maybe ReservedInstanceState) + , _riCurrencyCode :: !(Maybe CurrencyCodeValues) + , _riInstanceCount :: !(Maybe Int) + , _riProductDescription :: !(Maybe RIProductDescription) + , _riStart :: !(Maybe ISO8601) + , _riInstanceType :: !(Maybe InstanceType) + , _riEnd :: !(Maybe ISO8601) + , _riAvailabilityZone :: !(Maybe Text) + , _riScope :: !(Maybe Scope) + , _riRecurringCharges :: !(Maybe [RecurringCharge]) + , _riOfferingType :: !(Maybe OfferingTypeValues) + , _riUsagePrice :: !(Maybe Double) + , _riFixedPrice :: !(Maybe Double) + , _riReservedInstancesId :: !(Maybe Text) + , _riInstanceTenancy :: !(Maybe Tenancy) + , _riOfferingClass :: !(Maybe OfferingClassType) + , _riDuration :: !(Maybe Integer) + , _riTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstances' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'riState' - The state of the Reserved Instance purchase. +-- +-- * 'riCurrencyCode' - The currency of the Reserved Instance. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . +-- +-- * 'riInstanceCount' - The number of reservations purchased. +-- +-- * 'riProductDescription' - The Reserved Instance product platform description. +-- +-- * 'riStart' - The date and time the Reserved Instance started. +-- +-- * 'riInstanceType' - The instance type on which the Reserved Instance can be used. +-- +-- * 'riEnd' - The time when the Reserved Instance expires. +-- +-- * 'riAvailabilityZone' - The Availability Zone in which the Reserved Instance can be used. +-- +-- * 'riScope' - The scope of the Reserved Instance. +-- +-- * 'riRecurringCharges' - The recurring charge tag assigned to the resource. +-- +-- * 'riOfferingType' - The Reserved Instance offering type. +-- +-- * 'riUsagePrice' - The usage price of the Reserved Instance, per hour. +-- +-- * 'riFixedPrice' - The purchase price of the Reserved Instance. +-- +-- * 'riReservedInstancesId' - The ID of the Reserved Instance. +-- +-- * 'riInstanceTenancy' - The tenancy of the instance. +-- +-- * 'riOfferingClass' - The offering class of the Reserved Instance. +-- +-- * 'riDuration' - The duration of the Reserved Instance, in seconds. +-- +-- * 'riTags' - Any tags assigned to the resource. +reservedInstances + :: ReservedInstances +reservedInstances = + ReservedInstances' + { _riState = Nothing + , _riCurrencyCode = Nothing + , _riInstanceCount = Nothing + , _riProductDescription = Nothing + , _riStart = Nothing + , _riInstanceType = Nothing + , _riEnd = Nothing + , _riAvailabilityZone = Nothing + , _riScope = Nothing + , _riRecurringCharges = Nothing + , _riOfferingType = Nothing + , _riUsagePrice = Nothing + , _riFixedPrice = Nothing + , _riReservedInstancesId = Nothing + , _riInstanceTenancy = Nothing + , _riOfferingClass = Nothing + , _riDuration = Nothing + , _riTags = Nothing + } + + +-- | The state of the Reserved Instance purchase. +riState :: Lens' ReservedInstances (Maybe ReservedInstanceState) +riState = lens _riState (\ s a -> s{_riState = a}) + +-- | The currency of the Reserved Instance. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . +riCurrencyCode :: Lens' ReservedInstances (Maybe CurrencyCodeValues) +riCurrencyCode = lens _riCurrencyCode (\ s a -> s{_riCurrencyCode = a}) + +-- | The number of reservations purchased. +riInstanceCount :: Lens' ReservedInstances (Maybe Int) +riInstanceCount = lens _riInstanceCount (\ s a -> s{_riInstanceCount = a}) + +-- | The Reserved Instance product platform description. +riProductDescription :: Lens' ReservedInstances (Maybe RIProductDescription) +riProductDescription = lens _riProductDescription (\ s a -> s{_riProductDescription = a}) + +-- | The date and time the Reserved Instance started. +riStart :: Lens' ReservedInstances (Maybe UTCTime) +riStart = lens _riStart (\ s a -> s{_riStart = a}) . mapping _Time + +-- | The instance type on which the Reserved Instance can be used. +riInstanceType :: Lens' ReservedInstances (Maybe InstanceType) +riInstanceType = lens _riInstanceType (\ s a -> s{_riInstanceType = a}) + +-- | The time when the Reserved Instance expires. +riEnd :: Lens' ReservedInstances (Maybe UTCTime) +riEnd = lens _riEnd (\ s a -> s{_riEnd = a}) . mapping _Time + +-- | The Availability Zone in which the Reserved Instance can be used. +riAvailabilityZone :: Lens' ReservedInstances (Maybe Text) +riAvailabilityZone = lens _riAvailabilityZone (\ s a -> s{_riAvailabilityZone = a}) + +-- | The scope of the Reserved Instance. +riScope :: Lens' ReservedInstances (Maybe Scope) +riScope = lens _riScope (\ s a -> s{_riScope = a}) + +-- | The recurring charge tag assigned to the resource. +riRecurringCharges :: Lens' ReservedInstances [RecurringCharge] +riRecurringCharges = lens _riRecurringCharges (\ s a -> s{_riRecurringCharges = a}) . _Default . _Coerce + +-- | The Reserved Instance offering type. +riOfferingType :: Lens' ReservedInstances (Maybe OfferingTypeValues) +riOfferingType = lens _riOfferingType (\ s a -> s{_riOfferingType = a}) + +-- | The usage price of the Reserved Instance, per hour. +riUsagePrice :: Lens' ReservedInstances (Maybe Double) +riUsagePrice = lens _riUsagePrice (\ s a -> s{_riUsagePrice = a}) + +-- | The purchase price of the Reserved Instance. +riFixedPrice :: Lens' ReservedInstances (Maybe Double) +riFixedPrice = lens _riFixedPrice (\ s a -> s{_riFixedPrice = a}) + +-- | The ID of the Reserved Instance. +riReservedInstancesId :: Lens' ReservedInstances (Maybe Text) +riReservedInstancesId = lens _riReservedInstancesId (\ s a -> s{_riReservedInstancesId = a}) + +-- | The tenancy of the instance. +riInstanceTenancy :: Lens' ReservedInstances (Maybe Tenancy) +riInstanceTenancy = lens _riInstanceTenancy (\ s a -> s{_riInstanceTenancy = a}) + +-- | The offering class of the Reserved Instance. +riOfferingClass :: Lens' ReservedInstances (Maybe OfferingClassType) +riOfferingClass = lens _riOfferingClass (\ s a -> s{_riOfferingClass = a}) + +-- | The duration of the Reserved Instance, in seconds. +riDuration :: Lens' ReservedInstances (Maybe Integer) +riDuration = lens _riDuration (\ s a -> s{_riDuration = a}) + +-- | Any tags assigned to the resource. +riTags :: Lens' ReservedInstances [Tag] +riTags = lens _riTags (\ s a -> s{_riTags = a}) . _Default . _Coerce + +instance FromXML ReservedInstances where + parseXML x + = ReservedInstances' <$> + (x .@? "state") <*> (x .@? "currencyCode") <*> + (x .@? "instanceCount") + <*> (x .@? "productDescription") + <*> (x .@? "start") + <*> (x .@? "instanceType") + <*> (x .@? "end") + <*> (x .@? "availabilityZone") + <*> (x .@? "scope") + <*> + (x .@? "recurringCharges" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "offeringType") + <*> (x .@? "usagePrice") + <*> (x .@? "fixedPrice") + <*> (x .@? "reservedInstancesId") + <*> (x .@? "instanceTenancy") + <*> (x .@? "offeringClass") + <*> (x .@? "duration") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable ReservedInstances where + +instance NFData ReservedInstances where + +-- | Describes the configuration settings for the modified Reserved Instances. +-- +-- +-- +-- /See:/ 'reservedInstancesConfiguration' smart constructor. +data ReservedInstancesConfiguration = ReservedInstancesConfiguration' + { _ricPlatform :: !(Maybe Text) + , _ricInstanceCount :: !(Maybe Int) + , _ricInstanceType :: !(Maybe InstanceType) + , _ricAvailabilityZone :: !(Maybe Text) + , _ricScope :: !(Maybe Scope) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstancesConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ricPlatform' - The network platform of the modified Reserved Instances, which is either EC2-Classic or EC2-VPC. +-- +-- * 'ricInstanceCount' - The number of modified Reserved Instances. +-- +-- * 'ricInstanceType' - The instance type for the modified Reserved Instances. +-- +-- * 'ricAvailabilityZone' - The Availability Zone for the modified Reserved Instances. +-- +-- * 'ricScope' - Whether the Reserved Instance is applied to instances in a region or instances in a specific Availability Zone. +reservedInstancesConfiguration + :: ReservedInstancesConfiguration +reservedInstancesConfiguration = + ReservedInstancesConfiguration' + { _ricPlatform = Nothing + , _ricInstanceCount = Nothing + , _ricInstanceType = Nothing + , _ricAvailabilityZone = Nothing + , _ricScope = Nothing + } + + +-- | The network platform of the modified Reserved Instances, which is either EC2-Classic or EC2-VPC. +ricPlatform :: Lens' ReservedInstancesConfiguration (Maybe Text) +ricPlatform = lens _ricPlatform (\ s a -> s{_ricPlatform = a}) + +-- | The number of modified Reserved Instances. +ricInstanceCount :: Lens' ReservedInstancesConfiguration (Maybe Int) +ricInstanceCount = lens _ricInstanceCount (\ s a -> s{_ricInstanceCount = a}) + +-- | The instance type for the modified Reserved Instances. +ricInstanceType :: Lens' ReservedInstancesConfiguration (Maybe InstanceType) +ricInstanceType = lens _ricInstanceType (\ s a -> s{_ricInstanceType = a}) + +-- | The Availability Zone for the modified Reserved Instances. +ricAvailabilityZone :: Lens' ReservedInstancesConfiguration (Maybe Text) +ricAvailabilityZone = lens _ricAvailabilityZone (\ s a -> s{_ricAvailabilityZone = a}) + +-- | Whether the Reserved Instance is applied to instances in a region or instances in a specific Availability Zone. +ricScope :: Lens' ReservedInstancesConfiguration (Maybe Scope) +ricScope = lens _ricScope (\ s a -> s{_ricScope = a}) + +instance FromXML ReservedInstancesConfiguration where + parseXML x + = ReservedInstancesConfiguration' <$> + (x .@? "platform") <*> (x .@? "instanceCount") <*> + (x .@? "instanceType") + <*> (x .@? "availabilityZone") + <*> (x .@? "scope") + +instance Hashable ReservedInstancesConfiguration + where + +instance NFData ReservedInstancesConfiguration where + +instance ToQuery ReservedInstancesConfiguration where + toQuery ReservedInstancesConfiguration'{..} + = mconcat + ["Platform" =: _ricPlatform, + "InstanceCount" =: _ricInstanceCount, + "InstanceType" =: _ricInstanceType, + "AvailabilityZone" =: _ricAvailabilityZone, + "Scope" =: _ricScope] + +-- | Describes the ID of a Reserved Instance. +-- +-- +-- +-- /See:/ 'reservedInstancesId' smart constructor. +newtype ReservedInstancesId = ReservedInstancesId' + { _riiReservedInstancesId :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstancesId' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'riiReservedInstancesId' - The ID of the Reserved Instance. +reservedInstancesId + :: ReservedInstancesId +reservedInstancesId = ReservedInstancesId' {_riiReservedInstancesId = Nothing} + + +-- | The ID of the Reserved Instance. +riiReservedInstancesId :: Lens' ReservedInstancesId (Maybe Text) +riiReservedInstancesId = lens _riiReservedInstancesId (\ s a -> s{_riiReservedInstancesId = a}) + +instance FromXML ReservedInstancesId where + parseXML x + = ReservedInstancesId' <$> + (x .@? "reservedInstancesId") + +instance Hashable ReservedInstancesId where + +instance NFData ReservedInstancesId where + +-- | Describes a Reserved Instance listing. +-- +-- +-- +-- /See:/ 'reservedInstancesListing' smart constructor. +data ReservedInstancesListing = ReservedInstancesListing' + { _rilStatus :: !(Maybe ListingStatus) + , _rilClientToken :: !(Maybe Text) + , _rilUpdateDate :: !(Maybe ISO8601) + , _rilCreateDate :: !(Maybe ISO8601) + , _rilPriceSchedules :: !(Maybe [PriceSchedule]) + , _rilStatusMessage :: !(Maybe Text) + , _rilReservedInstancesId :: !(Maybe Text) + , _rilTags :: !(Maybe [Tag]) + , _rilInstanceCounts :: !(Maybe [InstanceCount]) + , _rilReservedInstancesListingId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstancesListing' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rilStatus' - The status of the Reserved Instance listing. +-- +-- * 'rilClientToken' - A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . +-- +-- * 'rilUpdateDate' - The last modified timestamp of the listing. +-- +-- * 'rilCreateDate' - The time the listing was created. +-- +-- * 'rilPriceSchedules' - The price of the Reserved Instance listing. +-- +-- * 'rilStatusMessage' - The reason for the current status of the Reserved Instance listing. The response can be blank. +-- +-- * 'rilReservedInstancesId' - The ID of the Reserved Instance. +-- +-- * 'rilTags' - Any tags assigned to the resource. +-- +-- * 'rilInstanceCounts' - The number of instances in this state. +-- +-- * 'rilReservedInstancesListingId' - The ID of the Reserved Instance listing. +reservedInstancesListing + :: ReservedInstancesListing +reservedInstancesListing = + ReservedInstancesListing' + { _rilStatus = Nothing + , _rilClientToken = Nothing + , _rilUpdateDate = Nothing + , _rilCreateDate = Nothing + , _rilPriceSchedules = Nothing + , _rilStatusMessage = Nothing + , _rilReservedInstancesId = Nothing + , _rilTags = Nothing + , _rilInstanceCounts = Nothing + , _rilReservedInstancesListingId = Nothing + } + + +-- | The status of the Reserved Instance listing. +rilStatus :: Lens' ReservedInstancesListing (Maybe ListingStatus) +rilStatus = lens _rilStatus (\ s a -> s{_rilStatus = a}) + +-- | A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . +rilClientToken :: Lens' ReservedInstancesListing (Maybe Text) +rilClientToken = lens _rilClientToken (\ s a -> s{_rilClientToken = a}) + +-- | The last modified timestamp of the listing. +rilUpdateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) +rilUpdateDate = lens _rilUpdateDate (\ s a -> s{_rilUpdateDate = a}) . mapping _Time + +-- | The time the listing was created. +rilCreateDate :: Lens' ReservedInstancesListing (Maybe UTCTime) +rilCreateDate = lens _rilCreateDate (\ s a -> s{_rilCreateDate = a}) . mapping _Time + +-- | The price of the Reserved Instance listing. +rilPriceSchedules :: Lens' ReservedInstancesListing [PriceSchedule] +rilPriceSchedules = lens _rilPriceSchedules (\ s a -> s{_rilPriceSchedules = a}) . _Default . _Coerce + +-- | The reason for the current status of the Reserved Instance listing. The response can be blank. +rilStatusMessage :: Lens' ReservedInstancesListing (Maybe Text) +rilStatusMessage = lens _rilStatusMessage (\ s a -> s{_rilStatusMessage = a}) + +-- | The ID of the Reserved Instance. +rilReservedInstancesId :: Lens' ReservedInstancesListing (Maybe Text) +rilReservedInstancesId = lens _rilReservedInstancesId (\ s a -> s{_rilReservedInstancesId = a}) + +-- | Any tags assigned to the resource. +rilTags :: Lens' ReservedInstancesListing [Tag] +rilTags = lens _rilTags (\ s a -> s{_rilTags = a}) . _Default . _Coerce + +-- | The number of instances in this state. +rilInstanceCounts :: Lens' ReservedInstancesListing [InstanceCount] +rilInstanceCounts = lens _rilInstanceCounts (\ s a -> s{_rilInstanceCounts = a}) . _Default . _Coerce + +-- | The ID of the Reserved Instance listing. +rilReservedInstancesListingId :: Lens' ReservedInstancesListing (Maybe Text) +rilReservedInstancesListingId = lens _rilReservedInstancesListingId (\ s a -> s{_rilReservedInstancesListingId = a}) + +instance FromXML ReservedInstancesListing where + parseXML x + = ReservedInstancesListing' <$> + (x .@? "status") <*> (x .@? "clientToken") <*> + (x .@? "updateDate") + <*> (x .@? "createDate") + <*> + (x .@? "priceSchedules" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "statusMessage") + <*> (x .@? "reservedInstancesId") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "instanceCounts" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "reservedInstancesListingId") + +instance Hashable ReservedInstancesListing where + +instance NFData ReservedInstancesListing where + +-- | Describes a Reserved Instance modification. +-- +-- +-- +-- /See:/ 'reservedInstancesModification' smart constructor. +data ReservedInstancesModification = ReservedInstancesModification' + { _rimModificationResults :: !(Maybe [ReservedInstancesModificationResult]) + , _rimStatus :: !(Maybe Text) + , _rimClientToken :: !(Maybe Text) + , _rimUpdateDate :: !(Maybe ISO8601) + , _rimCreateDate :: !(Maybe ISO8601) + , _rimEffectiveDate :: !(Maybe ISO8601) + , _rimStatusMessage :: !(Maybe Text) + , _rimReservedInstancesModificationId :: !(Maybe Text) + , _rimReservedInstancesIds :: !(Maybe [ReservedInstancesId]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstancesModification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rimModificationResults' - Contains target configurations along with their corresponding new Reserved Instance IDs. +-- +-- * 'rimStatus' - The status of the Reserved Instances modification request. +-- +-- * 'rimClientToken' - A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . +-- +-- * 'rimUpdateDate' - The time when the modification request was last updated. +-- +-- * 'rimCreateDate' - The time when the modification request was created. +-- +-- * 'rimEffectiveDate' - The time for the modification to become effective. +-- +-- * 'rimStatusMessage' - The reason for the status. +-- +-- * 'rimReservedInstancesModificationId' - A unique ID for the Reserved Instance modification. +-- +-- * 'rimReservedInstancesIds' - The IDs of one or more Reserved Instances. +reservedInstancesModification + :: ReservedInstancesModification +reservedInstancesModification = + ReservedInstancesModification' + { _rimModificationResults = Nothing + , _rimStatus = Nothing + , _rimClientToken = Nothing + , _rimUpdateDate = Nothing + , _rimCreateDate = Nothing + , _rimEffectiveDate = Nothing + , _rimStatusMessage = Nothing + , _rimReservedInstancesModificationId = Nothing + , _rimReservedInstancesIds = Nothing + } + + +-- | Contains target configurations along with their corresponding new Reserved Instance IDs. +rimModificationResults :: Lens' ReservedInstancesModification [ReservedInstancesModificationResult] +rimModificationResults = lens _rimModificationResults (\ s a -> s{_rimModificationResults = a}) . _Default . _Coerce + +-- | The status of the Reserved Instances modification request. +rimStatus :: Lens' ReservedInstancesModification (Maybe Text) +rimStatus = lens _rimStatus (\ s a -> s{_rimStatus = a}) + +-- | A unique, case-sensitive key supplied by the client to ensure that the request is idempotent. For more information, see . +rimClientToken :: Lens' ReservedInstancesModification (Maybe Text) +rimClientToken = lens _rimClientToken (\ s a -> s{_rimClientToken = a}) + +-- | The time when the modification request was last updated. +rimUpdateDate :: Lens' ReservedInstancesModification (Maybe UTCTime) +rimUpdateDate = lens _rimUpdateDate (\ s a -> s{_rimUpdateDate = a}) . mapping _Time + +-- | The time when the modification request was created. +rimCreateDate :: Lens' ReservedInstancesModification (Maybe UTCTime) +rimCreateDate = lens _rimCreateDate (\ s a -> s{_rimCreateDate = a}) . mapping _Time + +-- | The time for the modification to become effective. +rimEffectiveDate :: Lens' ReservedInstancesModification (Maybe UTCTime) +rimEffectiveDate = lens _rimEffectiveDate (\ s a -> s{_rimEffectiveDate = a}) . mapping _Time + +-- | The reason for the status. +rimStatusMessage :: Lens' ReservedInstancesModification (Maybe Text) +rimStatusMessage = lens _rimStatusMessage (\ s a -> s{_rimStatusMessage = a}) + +-- | A unique ID for the Reserved Instance modification. +rimReservedInstancesModificationId :: Lens' ReservedInstancesModification (Maybe Text) +rimReservedInstancesModificationId = lens _rimReservedInstancesModificationId (\ s a -> s{_rimReservedInstancesModificationId = a}) + +-- | The IDs of one or more Reserved Instances. +rimReservedInstancesIds :: Lens' ReservedInstancesModification [ReservedInstancesId] +rimReservedInstancesIds = lens _rimReservedInstancesIds (\ s a -> s{_rimReservedInstancesIds = a}) . _Default . _Coerce + +instance FromXML ReservedInstancesModification where + parseXML x + = ReservedInstancesModification' <$> + (x .@? "modificationResultSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "status") + <*> (x .@? "clientToken") + <*> (x .@? "updateDate") + <*> (x .@? "createDate") + <*> (x .@? "effectiveDate") + <*> (x .@? "statusMessage") + <*> (x .@? "reservedInstancesModificationId") + <*> + (x .@? "reservedInstancesSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable ReservedInstancesModification where + +instance NFData ReservedInstancesModification where + +-- | Describes the modification request/s. +-- +-- +-- +-- /See:/ 'reservedInstancesModificationResult' smart constructor. +data ReservedInstancesModificationResult = ReservedInstancesModificationResult' + { _rimrReservedInstancesId :: !(Maybe Text) + , _rimrTargetConfiguration :: !(Maybe ReservedInstancesConfiguration) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstancesModificationResult' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rimrReservedInstancesId' - The ID for the Reserved Instances that were created as part of the modification request. This field is only available when the modification is fulfilled. +-- +-- * 'rimrTargetConfiguration' - The target Reserved Instances configurations supplied as part of the modification request. +reservedInstancesModificationResult + :: ReservedInstancesModificationResult +reservedInstancesModificationResult = + ReservedInstancesModificationResult' + {_rimrReservedInstancesId = Nothing, _rimrTargetConfiguration = Nothing} + + +-- | The ID for the Reserved Instances that were created as part of the modification request. This field is only available when the modification is fulfilled. +rimrReservedInstancesId :: Lens' ReservedInstancesModificationResult (Maybe Text) +rimrReservedInstancesId = lens _rimrReservedInstancesId (\ s a -> s{_rimrReservedInstancesId = a}) + +-- | The target Reserved Instances configurations supplied as part of the modification request. +rimrTargetConfiguration :: Lens' ReservedInstancesModificationResult (Maybe ReservedInstancesConfiguration) +rimrTargetConfiguration = lens _rimrTargetConfiguration (\ s a -> s{_rimrTargetConfiguration = a}) + +instance FromXML ReservedInstancesModificationResult + where + parseXML x + = ReservedInstancesModificationResult' <$> + (x .@? "reservedInstancesId") <*> + (x .@? "targetConfiguration") + +instance Hashable ReservedInstancesModificationResult + where + +instance NFData ReservedInstancesModificationResult + where + +-- | Describes a Reserved Instance offering. +-- +-- +-- +-- /See:/ 'reservedInstancesOffering' smart constructor. +data ReservedInstancesOffering = ReservedInstancesOffering' + { _rioMarketplace :: !(Maybe Bool) + , _rioCurrencyCode :: !(Maybe CurrencyCodeValues) + , _rioProductDescription :: !(Maybe RIProductDescription) + , _rioInstanceType :: !(Maybe InstanceType) + , _rioAvailabilityZone :: !(Maybe Text) + , _rioPricingDetails :: !(Maybe [PricingDetail]) + , _rioScope :: !(Maybe Scope) + , _rioRecurringCharges :: !(Maybe [RecurringCharge]) + , _rioOfferingType :: !(Maybe OfferingTypeValues) + , _rioUsagePrice :: !(Maybe Double) + , _rioFixedPrice :: !(Maybe Double) + , _rioInstanceTenancy :: !(Maybe Tenancy) + , _rioReservedInstancesOfferingId :: !(Maybe Text) + , _rioOfferingClass :: !(Maybe OfferingClassType) + , _rioDuration :: !(Maybe Integer) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ReservedInstancesOffering' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rioMarketplace' - Indicates whether the offering is available through the Reserved Instance Marketplace (resale) or AWS. If it's a Reserved Instance Marketplace offering, this is @true@ . +-- +-- * 'rioCurrencyCode' - The currency of the Reserved Instance offering you are purchasing. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . +-- +-- * 'rioProductDescription' - The Reserved Instance product platform description. +-- +-- * 'rioInstanceType' - The instance type on which the Reserved Instance can be used. +-- +-- * 'rioAvailabilityZone' - The Availability Zone in which the Reserved Instance can be used. +-- +-- * 'rioPricingDetails' - The pricing details of the Reserved Instance offering. +-- +-- * 'rioScope' - Whether the Reserved Instance is applied to instances in a region or an Availability Zone. +-- +-- * 'rioRecurringCharges' - The recurring charge tag assigned to the resource. +-- +-- * 'rioOfferingType' - The Reserved Instance offering type. +-- +-- * 'rioUsagePrice' - The usage price of the Reserved Instance, per hour. +-- +-- * 'rioFixedPrice' - The purchase price of the Reserved Instance. +-- +-- * 'rioInstanceTenancy' - The tenancy of the instance. +-- +-- * 'rioReservedInstancesOfferingId' - The ID of the Reserved Instance offering. This is the offering ID used in 'GetReservedInstancesExchangeQuote' to confirm that an exchange can be made. +-- +-- * 'rioOfferingClass' - If @convertible@ it can be exchanged for Reserved Instances of the same or higher monetary value, with different configurations. If @standard@ , it is not possible to perform an exchange. +-- +-- * 'rioDuration' - The duration of the Reserved Instance, in seconds. +reservedInstancesOffering + :: ReservedInstancesOffering +reservedInstancesOffering = + ReservedInstancesOffering' + { _rioMarketplace = Nothing + , _rioCurrencyCode = Nothing + , _rioProductDescription = Nothing + , _rioInstanceType = Nothing + , _rioAvailabilityZone = Nothing + , _rioPricingDetails = Nothing + , _rioScope = Nothing + , _rioRecurringCharges = Nothing + , _rioOfferingType = Nothing + , _rioUsagePrice = Nothing + , _rioFixedPrice = Nothing + , _rioInstanceTenancy = Nothing + , _rioReservedInstancesOfferingId = Nothing + , _rioOfferingClass = Nothing + , _rioDuration = Nothing + } + + +-- | Indicates whether the offering is available through the Reserved Instance Marketplace (resale) or AWS. If it's a Reserved Instance Marketplace offering, this is @true@ . +rioMarketplace :: Lens' ReservedInstancesOffering (Maybe Bool) +rioMarketplace = lens _rioMarketplace (\ s a -> s{_rioMarketplace = a}) + +-- | The currency of the Reserved Instance offering you are purchasing. It's specified using ISO 4217 standard currency codes. At this time, the only supported currency is @USD@ . +rioCurrencyCode :: Lens' ReservedInstancesOffering (Maybe CurrencyCodeValues) +rioCurrencyCode = lens _rioCurrencyCode (\ s a -> s{_rioCurrencyCode = a}) + +-- | The Reserved Instance product platform description. +rioProductDescription :: Lens' ReservedInstancesOffering (Maybe RIProductDescription) +rioProductDescription = lens _rioProductDescription (\ s a -> s{_rioProductDescription = a}) + +-- | The instance type on which the Reserved Instance can be used. +rioInstanceType :: Lens' ReservedInstancesOffering (Maybe InstanceType) +rioInstanceType = lens _rioInstanceType (\ s a -> s{_rioInstanceType = a}) + +-- | The Availability Zone in which the Reserved Instance can be used. +rioAvailabilityZone :: Lens' ReservedInstancesOffering (Maybe Text) +rioAvailabilityZone = lens _rioAvailabilityZone (\ s a -> s{_rioAvailabilityZone = a}) + +-- | The pricing details of the Reserved Instance offering. +rioPricingDetails :: Lens' ReservedInstancesOffering [PricingDetail] +rioPricingDetails = lens _rioPricingDetails (\ s a -> s{_rioPricingDetails = a}) . _Default . _Coerce + +-- | Whether the Reserved Instance is applied to instances in a region or an Availability Zone. +rioScope :: Lens' ReservedInstancesOffering (Maybe Scope) +rioScope = lens _rioScope (\ s a -> s{_rioScope = a}) + +-- | The recurring charge tag assigned to the resource. +rioRecurringCharges :: Lens' ReservedInstancesOffering [RecurringCharge] +rioRecurringCharges = lens _rioRecurringCharges (\ s a -> s{_rioRecurringCharges = a}) . _Default . _Coerce + +-- | The Reserved Instance offering type. +rioOfferingType :: Lens' ReservedInstancesOffering (Maybe OfferingTypeValues) +rioOfferingType = lens _rioOfferingType (\ s a -> s{_rioOfferingType = a}) + +-- | The usage price of the Reserved Instance, per hour. +rioUsagePrice :: Lens' ReservedInstancesOffering (Maybe Double) +rioUsagePrice = lens _rioUsagePrice (\ s a -> s{_rioUsagePrice = a}) + +-- | The purchase price of the Reserved Instance. +rioFixedPrice :: Lens' ReservedInstancesOffering (Maybe Double) +rioFixedPrice = lens _rioFixedPrice (\ s a -> s{_rioFixedPrice = a}) + +-- | The tenancy of the instance. +rioInstanceTenancy :: Lens' ReservedInstancesOffering (Maybe Tenancy) +rioInstanceTenancy = lens _rioInstanceTenancy (\ s a -> s{_rioInstanceTenancy = a}) + +-- | The ID of the Reserved Instance offering. This is the offering ID used in 'GetReservedInstancesExchangeQuote' to confirm that an exchange can be made. +rioReservedInstancesOfferingId :: Lens' ReservedInstancesOffering (Maybe Text) +rioReservedInstancesOfferingId = lens _rioReservedInstancesOfferingId (\ s a -> s{_rioReservedInstancesOfferingId = a}) + +-- | If @convertible@ it can be exchanged for Reserved Instances of the same or higher monetary value, with different configurations. If @standard@ , it is not possible to perform an exchange. +rioOfferingClass :: Lens' ReservedInstancesOffering (Maybe OfferingClassType) +rioOfferingClass = lens _rioOfferingClass (\ s a -> s{_rioOfferingClass = a}) + +-- | The duration of the Reserved Instance, in seconds. +rioDuration :: Lens' ReservedInstancesOffering (Maybe Integer) +rioDuration = lens _rioDuration (\ s a -> s{_rioDuration = a}) + +instance FromXML ReservedInstancesOffering where + parseXML x + = ReservedInstancesOffering' <$> + (x .@? "marketplace") <*> (x .@? "currencyCode") <*> + (x .@? "productDescription") + <*> (x .@? "instanceType") + <*> (x .@? "availabilityZone") + <*> + (x .@? "pricingDetailsSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "scope") + <*> + (x .@? "recurringCharges" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "offeringType") + <*> (x .@? "usagePrice") + <*> (x .@? "fixedPrice") + <*> (x .@? "instanceTenancy") + <*> (x .@? "reservedInstancesOfferingId") + <*> (x .@? "offeringClass") + <*> (x .@? "duration") + +instance Hashable ReservedInstancesOffering where + +instance NFData ReservedInstancesOffering where + +-- | Describes the error that's returned when you cannot delete a launch template version. +-- +-- +-- +-- /See:/ 'responseError' smart constructor. +data ResponseError = ResponseError' + { _reCode :: !(Maybe LaunchTemplateErrorCode) + , _reMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ResponseError' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'reCode' - The error code. +-- +-- * 'reMessage' - The error message, if applicable. +responseError + :: ResponseError +responseError = ResponseError' {_reCode = Nothing, _reMessage = Nothing} + + +-- | The error code. +reCode :: Lens' ResponseError (Maybe LaunchTemplateErrorCode) +reCode = lens _reCode (\ s a -> s{_reCode = a}) + +-- | The error message, if applicable. +reMessage :: Lens' ResponseError (Maybe Text) +reMessage = lens _reMessage (\ s a -> s{_reMessage = a}) + +instance FromXML ResponseError where + parseXML x + = ResponseError' <$> + (x .@? "code") <*> (x .@? "message") + +instance Hashable ResponseError where + +instance NFData ResponseError where + +-- | The information for a launch template. +-- +-- +-- +-- /See:/ 'responseLaunchTemplateData' smart constructor. +data ResponseLaunchTemplateData = ResponseLaunchTemplateData' + { _rSecurityGroupIds :: !(Maybe [Text]) + , _rSecurityGroups :: !(Maybe [Text]) + , _rInstanceMarketOptions :: !(Maybe LaunchTemplateInstanceMarketOptions) + , _rDisableAPITermination :: !(Maybe Bool) + , _rKeyName :: !(Maybe Text) + , _rNetworkInterfaces :: !(Maybe [LaunchTemplateInstanceNetworkInterfaceSpecification]) + , _rRamDiskId :: !(Maybe Text) + , _rKernelId :: !(Maybe Text) + , _rElasticGpuSpecifications :: !(Maybe [ElasticGpuSpecificationResponse]) + , _rInstanceType :: !(Maybe InstanceType) + , _rEBSOptimized :: !(Maybe Bool) + , _rUserData :: !(Maybe Text) + , _rMonitoring :: !(Maybe LaunchTemplatesMonitoring) + , _rTagSpecifications :: !(Maybe [LaunchTemplateTagSpecification]) + , _rIAMInstanceProfile :: !(Maybe LaunchTemplateIAMInstanceProfileSpecification) + , _rImageId :: !(Maybe Text) + , _rInstanceInitiatedShutdownBehavior :: !(Maybe ShutdownBehavior) + , _rCreditSpecification :: !(Maybe CreditSpecification) + , _rBlockDeviceMappings :: !(Maybe [LaunchTemplateBlockDeviceMapping]) + , _rPlacement :: !(Maybe LaunchTemplatePlacement) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ResponseLaunchTemplateData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rSecurityGroupIds' - The security group IDs. +-- +-- * 'rSecurityGroups' - The security group names. +-- +-- * 'rInstanceMarketOptions' - The market (purchasing) option for the instances. +-- +-- * 'rDisableAPITermination' - If set to @true@ , indicates that the instance cannot be terminated using the Amazon EC2 console, command line tool, or API. +-- +-- * 'rKeyName' - The name of the key pair. +-- +-- * 'rNetworkInterfaces' - The network interfaces. +-- +-- * 'rRamDiskId' - The ID of the RAM disk, if applicable. +-- +-- * 'rKernelId' - The ID of the kernel, if applicable. +-- +-- * 'rElasticGpuSpecifications' - The elastic GPU specification. +-- +-- * 'rInstanceType' - The instance type. +-- +-- * 'rEBSOptimized' - Indicates whether the instance is optimized for Amazon EBS I/O. +-- +-- * 'rUserData' - The user data for the instance. +-- +-- * 'rMonitoring' - The monitoring for the instance. +-- +-- * 'rTagSpecifications' - The tags. +-- +-- * 'rIAMInstanceProfile' - The IAM instance profile. +-- +-- * 'rImageId' - The ID of the AMI that was used to launch the instance. +-- +-- * 'rInstanceInitiatedShutdownBehavior' - Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). +-- +-- * 'rCreditSpecification' - The credit option for CPU usage of the instance. +-- +-- * 'rBlockDeviceMappings' - The block device mappings. +-- +-- * 'rPlacement' - The placement of the instance. +responseLaunchTemplateData + :: ResponseLaunchTemplateData +responseLaunchTemplateData = + ResponseLaunchTemplateData' + { _rSecurityGroupIds = Nothing + , _rSecurityGroups = Nothing + , _rInstanceMarketOptions = Nothing + , _rDisableAPITermination = Nothing + , _rKeyName = Nothing + , _rNetworkInterfaces = Nothing + , _rRamDiskId = Nothing + , _rKernelId = Nothing + , _rElasticGpuSpecifications = Nothing + , _rInstanceType = Nothing + , _rEBSOptimized = Nothing + , _rUserData = Nothing + , _rMonitoring = Nothing + , _rTagSpecifications = Nothing + , _rIAMInstanceProfile = Nothing + , _rImageId = Nothing + , _rInstanceInitiatedShutdownBehavior = Nothing + , _rCreditSpecification = Nothing + , _rBlockDeviceMappings = Nothing + , _rPlacement = Nothing + } + + +-- | The security group IDs. +rSecurityGroupIds :: Lens' ResponseLaunchTemplateData [Text] +rSecurityGroupIds = lens _rSecurityGroupIds (\ s a -> s{_rSecurityGroupIds = a}) . _Default . _Coerce + +-- | The security group names. +rSecurityGroups :: Lens' ResponseLaunchTemplateData [Text] +rSecurityGroups = lens _rSecurityGroups (\ s a -> s{_rSecurityGroups = a}) . _Default . _Coerce + +-- | The market (purchasing) option for the instances. +rInstanceMarketOptions :: Lens' ResponseLaunchTemplateData (Maybe LaunchTemplateInstanceMarketOptions) +rInstanceMarketOptions = lens _rInstanceMarketOptions (\ s a -> s{_rInstanceMarketOptions = a}) + +-- | If set to @true@ , indicates that the instance cannot be terminated using the Amazon EC2 console, command line tool, or API. +rDisableAPITermination :: Lens' ResponseLaunchTemplateData (Maybe Bool) +rDisableAPITermination = lens _rDisableAPITermination (\ s a -> s{_rDisableAPITermination = a}) + +-- | The name of the key pair. +rKeyName :: Lens' ResponseLaunchTemplateData (Maybe Text) +rKeyName = lens _rKeyName (\ s a -> s{_rKeyName = a}) + +-- | The network interfaces. +rNetworkInterfaces :: Lens' ResponseLaunchTemplateData [LaunchTemplateInstanceNetworkInterfaceSpecification] +rNetworkInterfaces = lens _rNetworkInterfaces (\ s a -> s{_rNetworkInterfaces = a}) . _Default . _Coerce + +-- | The ID of the RAM disk, if applicable. +rRamDiskId :: Lens' ResponseLaunchTemplateData (Maybe Text) +rRamDiskId = lens _rRamDiskId (\ s a -> s{_rRamDiskId = a}) + +-- | The ID of the kernel, if applicable. +rKernelId :: Lens' ResponseLaunchTemplateData (Maybe Text) +rKernelId = lens _rKernelId (\ s a -> s{_rKernelId = a}) + +-- | The elastic GPU specification. +rElasticGpuSpecifications :: Lens' ResponseLaunchTemplateData [ElasticGpuSpecificationResponse] +rElasticGpuSpecifications = lens _rElasticGpuSpecifications (\ s a -> s{_rElasticGpuSpecifications = a}) . _Default . _Coerce + +-- | The instance type. +rInstanceType :: Lens' ResponseLaunchTemplateData (Maybe InstanceType) +rInstanceType = lens _rInstanceType (\ s a -> s{_rInstanceType = a}) + +-- | Indicates whether the instance is optimized for Amazon EBS I/O. +rEBSOptimized :: Lens' ResponseLaunchTemplateData (Maybe Bool) +rEBSOptimized = lens _rEBSOptimized (\ s a -> s{_rEBSOptimized = a}) + +-- | The user data for the instance. +rUserData :: Lens' ResponseLaunchTemplateData (Maybe Text) +rUserData = lens _rUserData (\ s a -> s{_rUserData = a}) + +-- | The monitoring for the instance. +rMonitoring :: Lens' ResponseLaunchTemplateData (Maybe LaunchTemplatesMonitoring) +rMonitoring = lens _rMonitoring (\ s a -> s{_rMonitoring = a}) + +-- | The tags. +rTagSpecifications :: Lens' ResponseLaunchTemplateData [LaunchTemplateTagSpecification] +rTagSpecifications = lens _rTagSpecifications (\ s a -> s{_rTagSpecifications = a}) . _Default . _Coerce + +-- | The IAM instance profile. +rIAMInstanceProfile :: Lens' ResponseLaunchTemplateData (Maybe LaunchTemplateIAMInstanceProfileSpecification) +rIAMInstanceProfile = lens _rIAMInstanceProfile (\ s a -> s{_rIAMInstanceProfile = a}) + +-- | The ID of the AMI that was used to launch the instance. +rImageId :: Lens' ResponseLaunchTemplateData (Maybe Text) +rImageId = lens _rImageId (\ s a -> s{_rImageId = a}) + +-- | Indicates whether an instance stops or terminates when you initiate shutdown from the instance (using the operating system command for system shutdown). +rInstanceInitiatedShutdownBehavior :: Lens' ResponseLaunchTemplateData (Maybe ShutdownBehavior) +rInstanceInitiatedShutdownBehavior = lens _rInstanceInitiatedShutdownBehavior (\ s a -> s{_rInstanceInitiatedShutdownBehavior = a}) + +-- | The credit option for CPU usage of the instance. +rCreditSpecification :: Lens' ResponseLaunchTemplateData (Maybe CreditSpecification) +rCreditSpecification = lens _rCreditSpecification (\ s a -> s{_rCreditSpecification = a}) + +-- | The block device mappings. +rBlockDeviceMappings :: Lens' ResponseLaunchTemplateData [LaunchTemplateBlockDeviceMapping] +rBlockDeviceMappings = lens _rBlockDeviceMappings (\ s a -> s{_rBlockDeviceMappings = a}) . _Default . _Coerce + +-- | The placement of the instance. +rPlacement :: Lens' ResponseLaunchTemplateData (Maybe LaunchTemplatePlacement) +rPlacement = lens _rPlacement (\ s a -> s{_rPlacement = a}) + +instance FromXML ResponseLaunchTemplateData where + parseXML x + = ResponseLaunchTemplateData' <$> + (x .@? "securityGroupIdSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "securityGroupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "instanceMarketOptions") + <*> (x .@? "disableApiTermination") + <*> (x .@? "keyName") + <*> + (x .@? "networkInterfaceSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "ramDiskId") + <*> (x .@? "kernelId") + <*> + (x .@? "elasticGpuSpecificationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "instanceType") + <*> (x .@? "ebsOptimized") + <*> (x .@? "userData") + <*> (x .@? "monitoring") + <*> + (x .@? "tagSpecificationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "iamInstanceProfile") + <*> (x .@? "imageId") + <*> (x .@? "instanceInitiatedShutdownBehavior") + <*> (x .@? "creditSpecification") + <*> + (x .@? "blockDeviceMappingSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "placement") + +instance Hashable ResponseLaunchTemplateData where + +instance NFData ResponseLaunchTemplateData where + +-- | Describes a route in a route table. +-- +-- +-- +-- /See:/ 'route' smart constructor. +data Route = Route' + { _rVPCPeeringConnectionId :: !(Maybe Text) + , _rInstanceId :: !(Maybe Text) + , _rOrigin :: !(Maybe RouteOrigin) + , _rState :: !(Maybe RouteState) + , _rEgressOnlyInternetGatewayId :: !(Maybe Text) + , _rDestinationIPv6CidrBlock :: !(Maybe Text) + , _rNatGatewayId :: !(Maybe Text) + , _rNetworkInterfaceId :: !(Maybe Text) + , _rGatewayId :: !(Maybe Text) + , _rInstanceOwnerId :: !(Maybe Text) + , _rDestinationPrefixListId :: !(Maybe Text) + , _rDestinationCidrBlock :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Route' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rVPCPeeringConnectionId' - The ID of the VPC peering connection. +-- +-- * 'rInstanceId' - The ID of a NAT instance in your VPC. +-- +-- * 'rOrigin' - Describes how the route was created. * @CreateRouteTable@ - The route was automatically created when the route table was created. * @CreateRoute@ - The route was manually added to the route table. * @EnableVgwRoutePropagation@ - The route was propagated by route propagation. +-- +-- * 'rState' - The state of the route. The @blackhole@ state indicates that the route's target isn't available (for example, the specified gateway isn't attached to the VPC, or the specified NAT instance has been terminated). +-- +-- * 'rEgressOnlyInternetGatewayId' - The ID of the egress-only Internet gateway. +-- +-- * 'rDestinationIPv6CidrBlock' - The IPv6 CIDR block used for the destination match. +-- +-- * 'rNatGatewayId' - The ID of a NAT gateway. +-- +-- * 'rNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'rGatewayId' - The ID of a gateway attached to your VPC. +-- +-- * 'rInstanceOwnerId' - The AWS account ID of the owner of the instance. +-- +-- * 'rDestinationPrefixListId' - The prefix of the AWS service. +-- +-- * 'rDestinationCidrBlock' - The IPv4 CIDR block used for the destination match. +route + :: Route +route = + Route' + { _rVPCPeeringConnectionId = Nothing + , _rInstanceId = Nothing + , _rOrigin = Nothing + , _rState = Nothing + , _rEgressOnlyInternetGatewayId = Nothing + , _rDestinationIPv6CidrBlock = Nothing + , _rNatGatewayId = Nothing + , _rNetworkInterfaceId = Nothing + , _rGatewayId = Nothing + , _rInstanceOwnerId = Nothing + , _rDestinationPrefixListId = Nothing + , _rDestinationCidrBlock = Nothing + } + + +-- | The ID of the VPC peering connection. +rVPCPeeringConnectionId :: Lens' Route (Maybe Text) +rVPCPeeringConnectionId = lens _rVPCPeeringConnectionId (\ s a -> s{_rVPCPeeringConnectionId = a}) + +-- | The ID of a NAT instance in your VPC. +rInstanceId :: Lens' Route (Maybe Text) +rInstanceId = lens _rInstanceId (\ s a -> s{_rInstanceId = a}) + +-- | Describes how the route was created. * @CreateRouteTable@ - The route was automatically created when the route table was created. * @CreateRoute@ - The route was manually added to the route table. * @EnableVgwRoutePropagation@ - The route was propagated by route propagation. +rOrigin :: Lens' Route (Maybe RouteOrigin) +rOrigin = lens _rOrigin (\ s a -> s{_rOrigin = a}) + +-- | The state of the route. The @blackhole@ state indicates that the route's target isn't available (for example, the specified gateway isn't attached to the VPC, or the specified NAT instance has been terminated). +rState :: Lens' Route (Maybe RouteState) +rState = lens _rState (\ s a -> s{_rState = a}) + +-- | The ID of the egress-only Internet gateway. +rEgressOnlyInternetGatewayId :: Lens' Route (Maybe Text) +rEgressOnlyInternetGatewayId = lens _rEgressOnlyInternetGatewayId (\ s a -> s{_rEgressOnlyInternetGatewayId = a}) + +-- | The IPv6 CIDR block used for the destination match. +rDestinationIPv6CidrBlock :: Lens' Route (Maybe Text) +rDestinationIPv6CidrBlock = lens _rDestinationIPv6CidrBlock (\ s a -> s{_rDestinationIPv6CidrBlock = a}) + +-- | The ID of a NAT gateway. +rNatGatewayId :: Lens' Route (Maybe Text) +rNatGatewayId = lens _rNatGatewayId (\ s a -> s{_rNatGatewayId = a}) + +-- | The ID of the network interface. +rNetworkInterfaceId :: Lens' Route (Maybe Text) +rNetworkInterfaceId = lens _rNetworkInterfaceId (\ s a -> s{_rNetworkInterfaceId = a}) + +-- | The ID of a gateway attached to your VPC. +rGatewayId :: Lens' Route (Maybe Text) +rGatewayId = lens _rGatewayId (\ s a -> s{_rGatewayId = a}) + +-- | The AWS account ID of the owner of the instance. +rInstanceOwnerId :: Lens' Route (Maybe Text) +rInstanceOwnerId = lens _rInstanceOwnerId (\ s a -> s{_rInstanceOwnerId = a}) + +-- | The prefix of the AWS service. +rDestinationPrefixListId :: Lens' Route (Maybe Text) +rDestinationPrefixListId = lens _rDestinationPrefixListId (\ s a -> s{_rDestinationPrefixListId = a}) + +-- | The IPv4 CIDR block used for the destination match. +rDestinationCidrBlock :: Lens' Route (Maybe Text) +rDestinationCidrBlock = lens _rDestinationCidrBlock (\ s a -> s{_rDestinationCidrBlock = a}) + +instance FromXML Route where + parseXML x + = Route' <$> + (x .@? "vpcPeeringConnectionId") <*> + (x .@? "instanceId") + <*> (x .@? "origin") + <*> (x .@? "state") + <*> (x .@? "egressOnlyInternetGatewayId") + <*> (x .@? "destinationIpv6CidrBlock") + <*> (x .@? "natGatewayId") + <*> (x .@? "networkInterfaceId") + <*> (x .@? "gatewayId") + <*> (x .@? "instanceOwnerId") + <*> (x .@? "destinationPrefixListId") + <*> (x .@? "destinationCidrBlock") + +instance Hashable Route where + +instance NFData Route where + +-- | Describes a route table. +-- +-- +-- +-- /See:/ 'routeTable' smart constructor. +data RouteTable = RouteTable' + { _rtRouteTableId :: !(Maybe Text) + , _rtRoutes :: !(Maybe [Route]) + , _rtVPCId :: !(Maybe Text) + , _rtPropagatingVGWs :: !(Maybe [PropagatingVGW]) + , _rtAssociations :: !(Maybe [RouteTableAssociation]) + , _rtTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RouteTable' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rtRouteTableId' - The ID of the route table. +-- +-- * 'rtRoutes' - The routes in the route table. +-- +-- * 'rtVPCId' - The ID of the VPC. +-- +-- * 'rtPropagatingVGWs' - Any virtual private gateway (VGW) propagating routes. +-- +-- * 'rtAssociations' - The associations between the route table and one or more subnets. +-- +-- * 'rtTags' - Any tags assigned to the route table. +routeTable + :: RouteTable +routeTable = + RouteTable' + { _rtRouteTableId = Nothing + , _rtRoutes = Nothing + , _rtVPCId = Nothing + , _rtPropagatingVGWs = Nothing + , _rtAssociations = Nothing + , _rtTags = Nothing + } + + +-- | The ID of the route table. +rtRouteTableId :: Lens' RouteTable (Maybe Text) +rtRouteTableId = lens _rtRouteTableId (\ s a -> s{_rtRouteTableId = a}) + +-- | The routes in the route table. +rtRoutes :: Lens' RouteTable [Route] +rtRoutes = lens _rtRoutes (\ s a -> s{_rtRoutes = a}) . _Default . _Coerce + +-- | The ID of the VPC. +rtVPCId :: Lens' RouteTable (Maybe Text) +rtVPCId = lens _rtVPCId (\ s a -> s{_rtVPCId = a}) + +-- | Any virtual private gateway (VGW) propagating routes. +rtPropagatingVGWs :: Lens' RouteTable [PropagatingVGW] +rtPropagatingVGWs = lens _rtPropagatingVGWs (\ s a -> s{_rtPropagatingVGWs = a}) . _Default . _Coerce + +-- | The associations between the route table and one or more subnets. +rtAssociations :: Lens' RouteTable [RouteTableAssociation] +rtAssociations = lens _rtAssociations (\ s a -> s{_rtAssociations = a}) . _Default . _Coerce + +-- | Any tags assigned to the route table. +rtTags :: Lens' RouteTable [Tag] +rtTags = lens _rtTags (\ s a -> s{_rtTags = a}) . _Default . _Coerce + +instance FromXML RouteTable where + parseXML x + = RouteTable' <$> + (x .@? "routeTableId") <*> + (x .@? "routeSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpcId") + <*> + (x .@? "propagatingVgwSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "associationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable RouteTable where + +instance NFData RouteTable where + +-- | Describes an association between a route table and a subnet. +-- +-- +-- +-- /See:/ 'routeTableAssociation' smart constructor. +data RouteTableAssociation = RouteTableAssociation' + { _rtaRouteTableId :: !(Maybe Text) + , _rtaRouteTableAssociationId :: !(Maybe Text) + , _rtaMain :: !(Maybe Bool) + , _rtaSubnetId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RouteTableAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rtaRouteTableId' - The ID of the route table. +-- +-- * 'rtaRouteTableAssociationId' - The ID of the association between a route table and a subnet. +-- +-- * 'rtaMain' - Indicates whether this is the main route table. +-- +-- * 'rtaSubnetId' - The ID of the subnet. A subnet ID is not returned for an implicit association. +routeTableAssociation + :: RouteTableAssociation +routeTableAssociation = + RouteTableAssociation' + { _rtaRouteTableId = Nothing + , _rtaRouteTableAssociationId = Nothing + , _rtaMain = Nothing + , _rtaSubnetId = Nothing + } + + +-- | The ID of the route table. +rtaRouteTableId :: Lens' RouteTableAssociation (Maybe Text) +rtaRouteTableId = lens _rtaRouteTableId (\ s a -> s{_rtaRouteTableId = a}) + +-- | The ID of the association between a route table and a subnet. +rtaRouteTableAssociationId :: Lens' RouteTableAssociation (Maybe Text) +rtaRouteTableAssociationId = lens _rtaRouteTableAssociationId (\ s a -> s{_rtaRouteTableAssociationId = a}) + +-- | Indicates whether this is the main route table. +rtaMain :: Lens' RouteTableAssociation (Maybe Bool) +rtaMain = lens _rtaMain (\ s a -> s{_rtaMain = a}) + +-- | The ID of the subnet. A subnet ID is not returned for an implicit association. +rtaSubnetId :: Lens' RouteTableAssociation (Maybe Text) +rtaSubnetId = lens _rtaSubnetId (\ s a -> s{_rtaSubnetId = a}) + +instance FromXML RouteTableAssociation where + parseXML x + = RouteTableAssociation' <$> + (x .@? "routeTableId") <*> + (x .@? "routeTableAssociationId") + <*> (x .@? "main") + <*> (x .@? "subnetId") + +instance Hashable RouteTableAssociation where + +instance NFData RouteTableAssociation where + +-- | Describes the monitoring of an instance. +-- +-- +-- +-- /See:/ 'runInstancesMonitoringEnabled' smart constructor. +newtype RunInstancesMonitoringEnabled = RunInstancesMonitoringEnabled' + { _rimeEnabled :: Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'RunInstancesMonitoringEnabled' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'rimeEnabled' - Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. +runInstancesMonitoringEnabled + :: Bool -- ^ 'rimeEnabled' + -> RunInstancesMonitoringEnabled +runInstancesMonitoringEnabled pEnabled_ = + RunInstancesMonitoringEnabled' {_rimeEnabled = pEnabled_} + + +-- | Indicates whether detailed monitoring is enabled. Otherwise, basic monitoring is enabled. +rimeEnabled :: Lens' RunInstancesMonitoringEnabled Bool +rimeEnabled = lens _rimeEnabled (\ s a -> s{_rimeEnabled = a}) + +instance FromXML RunInstancesMonitoringEnabled where + parseXML x + = RunInstancesMonitoringEnabled' <$> (x .@ "enabled") + +instance Hashable RunInstancesMonitoringEnabled where + +instance NFData RunInstancesMonitoringEnabled where + +instance ToQuery RunInstancesMonitoringEnabled where + toQuery RunInstancesMonitoringEnabled'{..} + = mconcat ["Enabled" =: _rimeEnabled] + +-- | Describes the storage parameters for S3 and S3 buckets for an instance store-backed AMI. +-- +-- +-- +-- /See:/ 's3Storage' smart constructor. +data S3Storage = S3Storage' + { _ssPrefix :: !(Maybe Text) + , _ssUploadPolicy :: !(Maybe Base64) + , _ssBucket :: !(Maybe Text) + , _ssUploadPolicySignature :: !(Maybe Text) + , _ssAWSAccessKeyId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'S3Storage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ssPrefix' - The beginning of the file name of the AMI. +-- +-- * 'ssUploadPolicy' - An Amazon S3 upload policy that gives Amazon EC2 permission to upload items into Amazon S3 on your behalf.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. +-- +-- * 'ssBucket' - The bucket in which to store the AMI. You can specify a bucket that you already own or a new bucket that Amazon EC2 creates on your behalf. If you specify a bucket that belongs to someone else, Amazon EC2 returns an error. +-- +-- * 'ssUploadPolicySignature' - The signature of the JSON document. +-- +-- * 'ssAWSAccessKeyId' - The access key ID of the owner of the bucket. Before you specify a value for your access key ID, review and follow the guidance in . +s3Storage + :: S3Storage +s3Storage = + S3Storage' + { _ssPrefix = Nothing + , _ssUploadPolicy = Nothing + , _ssBucket = Nothing + , _ssUploadPolicySignature = Nothing + , _ssAWSAccessKeyId = Nothing + } + + +-- | The beginning of the file name of the AMI. +ssPrefix :: Lens' S3Storage (Maybe Text) +ssPrefix = lens _ssPrefix (\ s a -> s{_ssPrefix = a}) + +-- | An Amazon S3 upload policy that gives Amazon EC2 permission to upload items into Amazon S3 on your behalf.-- /Note:/ This 'Lens' automatically encodes and decodes Base64 data. The underlying isomorphism will encode to Base64 representation during serialisation, and decode from Base64 representation during deserialisation. This 'Lens' accepts and returns only raw unencoded data. +ssUploadPolicy :: Lens' S3Storage (Maybe ByteString) +ssUploadPolicy = lens _ssUploadPolicy (\ s a -> s{_ssUploadPolicy = a}) . mapping _Base64 + +-- | The bucket in which to store the AMI. You can specify a bucket that you already own or a new bucket that Amazon EC2 creates on your behalf. If you specify a bucket that belongs to someone else, Amazon EC2 returns an error. +ssBucket :: Lens' S3Storage (Maybe Text) +ssBucket = lens _ssBucket (\ s a -> s{_ssBucket = a}) + +-- | The signature of the JSON document. +ssUploadPolicySignature :: Lens' S3Storage (Maybe Text) +ssUploadPolicySignature = lens _ssUploadPolicySignature (\ s a -> s{_ssUploadPolicySignature = a}) + +-- | The access key ID of the owner of the bucket. Before you specify a value for your access key ID, review and follow the guidance in . +ssAWSAccessKeyId :: Lens' S3Storage (Maybe Text) +ssAWSAccessKeyId = lens _ssAWSAccessKeyId (\ s a -> s{_ssAWSAccessKeyId = a}) + +instance FromXML S3Storage where + parseXML x + = S3Storage' <$> + (x .@? "prefix") <*> (x .@? "uploadPolicy") <*> + (x .@? "bucket") + <*> (x .@? "uploadPolicySignature") + <*> (x .@? "AWSAccessKeyId") + +instance Hashable S3Storage where + +instance NFData S3Storage where + +instance ToQuery S3Storage where + toQuery S3Storage'{..} + = mconcat + ["Prefix" =: _ssPrefix, + "UploadPolicy" =: _ssUploadPolicy, + "Bucket" =: _ssBucket, + "UploadPolicySignature" =: _ssUploadPolicySignature, + "AWSAccessKeyId" =: _ssAWSAccessKeyId] + +-- | Describes a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstance' smart constructor. +data ScheduledInstance = ScheduledInstance' + { _siPreviousSlotEndTime :: !(Maybe ISO8601) + , _siPlatform :: !(Maybe Text) + , _siTermStartDate :: !(Maybe ISO8601) + , _siInstanceCount :: !(Maybe Int) + , _siScheduledInstanceId :: !(Maybe Text) + , _siHourlyPrice :: !(Maybe Text) + , _siCreateDate :: !(Maybe ISO8601) + , _siSlotDurationInHours :: !(Maybe Int) + , _siTotalScheduledInstanceHours :: !(Maybe Int) + , _siInstanceType :: !(Maybe Text) + , _siRecurrence :: !(Maybe ScheduledInstanceRecurrence) + , _siAvailabilityZone :: !(Maybe Text) + , _siTermEndDate :: !(Maybe ISO8601) + , _siNextSlotStartTime :: !(Maybe ISO8601) + , _siNetworkPlatform :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstance' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'siPreviousSlotEndTime' - The time that the previous schedule ended or will end. +-- +-- * 'siPlatform' - The platform (@Linux/UNIX@ or @Windows@ ). +-- +-- * 'siTermStartDate' - The start date for the Scheduled Instance. +-- +-- * 'siInstanceCount' - The number of instances. +-- +-- * 'siScheduledInstanceId' - The Scheduled Instance ID. +-- +-- * 'siHourlyPrice' - The hourly price for a single instance. +-- +-- * 'siCreateDate' - The date when the Scheduled Instance was purchased. +-- +-- * 'siSlotDurationInHours' - The number of hours in the schedule. +-- +-- * 'siTotalScheduledInstanceHours' - The total number of hours for a single instance for the entire term. +-- +-- * 'siInstanceType' - The instance type. +-- +-- * 'siRecurrence' - The schedule recurrence. +-- +-- * 'siAvailabilityZone' - The Availability Zone. +-- +-- * 'siTermEndDate' - The end date for the Scheduled Instance. +-- +-- * 'siNextSlotStartTime' - The time for the next schedule to start. +-- +-- * 'siNetworkPlatform' - The network platform (@EC2-Classic@ or @EC2-VPC@ ). +scheduledInstance + :: ScheduledInstance +scheduledInstance = + ScheduledInstance' + { _siPreviousSlotEndTime = Nothing + , _siPlatform = Nothing + , _siTermStartDate = Nothing + , _siInstanceCount = Nothing + , _siScheduledInstanceId = Nothing + , _siHourlyPrice = Nothing + , _siCreateDate = Nothing + , _siSlotDurationInHours = Nothing + , _siTotalScheduledInstanceHours = Nothing + , _siInstanceType = Nothing + , _siRecurrence = Nothing + , _siAvailabilityZone = Nothing + , _siTermEndDate = Nothing + , _siNextSlotStartTime = Nothing + , _siNetworkPlatform = Nothing + } + + +-- | The time that the previous schedule ended or will end. +siPreviousSlotEndTime :: Lens' ScheduledInstance (Maybe UTCTime) +siPreviousSlotEndTime = lens _siPreviousSlotEndTime (\ s a -> s{_siPreviousSlotEndTime = a}) . mapping _Time + +-- | The platform (@Linux/UNIX@ or @Windows@ ). +siPlatform :: Lens' ScheduledInstance (Maybe Text) +siPlatform = lens _siPlatform (\ s a -> s{_siPlatform = a}) + +-- | The start date for the Scheduled Instance. +siTermStartDate :: Lens' ScheduledInstance (Maybe UTCTime) +siTermStartDate = lens _siTermStartDate (\ s a -> s{_siTermStartDate = a}) . mapping _Time + +-- | The number of instances. +siInstanceCount :: Lens' ScheduledInstance (Maybe Int) +siInstanceCount = lens _siInstanceCount (\ s a -> s{_siInstanceCount = a}) + +-- | The Scheduled Instance ID. +siScheduledInstanceId :: Lens' ScheduledInstance (Maybe Text) +siScheduledInstanceId = lens _siScheduledInstanceId (\ s a -> s{_siScheduledInstanceId = a}) + +-- | The hourly price for a single instance. +siHourlyPrice :: Lens' ScheduledInstance (Maybe Text) +siHourlyPrice = lens _siHourlyPrice (\ s a -> s{_siHourlyPrice = a}) + +-- | The date when the Scheduled Instance was purchased. +siCreateDate :: Lens' ScheduledInstance (Maybe UTCTime) +siCreateDate = lens _siCreateDate (\ s a -> s{_siCreateDate = a}) . mapping _Time + +-- | The number of hours in the schedule. +siSlotDurationInHours :: Lens' ScheduledInstance (Maybe Int) +siSlotDurationInHours = lens _siSlotDurationInHours (\ s a -> s{_siSlotDurationInHours = a}) + +-- | The total number of hours for a single instance for the entire term. +siTotalScheduledInstanceHours :: Lens' ScheduledInstance (Maybe Int) +siTotalScheduledInstanceHours = lens _siTotalScheduledInstanceHours (\ s a -> s{_siTotalScheduledInstanceHours = a}) + +-- | The instance type. +siInstanceType :: Lens' ScheduledInstance (Maybe Text) +siInstanceType = lens _siInstanceType (\ s a -> s{_siInstanceType = a}) + +-- | The schedule recurrence. +siRecurrence :: Lens' ScheduledInstance (Maybe ScheduledInstanceRecurrence) +siRecurrence = lens _siRecurrence (\ s a -> s{_siRecurrence = a}) + +-- | The Availability Zone. +siAvailabilityZone :: Lens' ScheduledInstance (Maybe Text) +siAvailabilityZone = lens _siAvailabilityZone (\ s a -> s{_siAvailabilityZone = a}) + +-- | The end date for the Scheduled Instance. +siTermEndDate :: Lens' ScheduledInstance (Maybe UTCTime) +siTermEndDate = lens _siTermEndDate (\ s a -> s{_siTermEndDate = a}) . mapping _Time + +-- | The time for the next schedule to start. +siNextSlotStartTime :: Lens' ScheduledInstance (Maybe UTCTime) +siNextSlotStartTime = lens _siNextSlotStartTime (\ s a -> s{_siNextSlotStartTime = a}) . mapping _Time + +-- | The network platform (@EC2-Classic@ or @EC2-VPC@ ). +siNetworkPlatform :: Lens' ScheduledInstance (Maybe Text) +siNetworkPlatform = lens _siNetworkPlatform (\ s a -> s{_siNetworkPlatform = a}) + +instance FromXML ScheduledInstance where + parseXML x + = ScheduledInstance' <$> + (x .@? "previousSlotEndTime") <*> (x .@? "platform") + <*> (x .@? "termStartDate") + <*> (x .@? "instanceCount") + <*> (x .@? "scheduledInstanceId") + <*> (x .@? "hourlyPrice") + <*> (x .@? "createDate") + <*> (x .@? "slotDurationInHours") + <*> (x .@? "totalScheduledInstanceHours") + <*> (x .@? "instanceType") + <*> (x .@? "recurrence") + <*> (x .@? "availabilityZone") + <*> (x .@? "termEndDate") + <*> (x .@? "nextSlotStartTime") + <*> (x .@? "networkPlatform") + +instance Hashable ScheduledInstance where + +instance NFData ScheduledInstance where + +-- | Describes a schedule that is available for your Scheduled Instances. +-- +-- +-- +-- /See:/ 'scheduledInstanceAvailability' smart constructor. +data ScheduledInstanceAvailability = ScheduledInstanceAvailability' + { _siaMaxTermDurationInDays :: !(Maybe Int) + , _siaPlatform :: !(Maybe Text) + , _siaPurchaseToken :: !(Maybe Text) + , _siaHourlyPrice :: !(Maybe Text) + , _siaAvailableInstanceCount :: !(Maybe Int) + , _siaSlotDurationInHours :: !(Maybe Int) + , _siaTotalScheduledInstanceHours :: !(Maybe Int) + , _siaInstanceType :: !(Maybe Text) + , _siaRecurrence :: !(Maybe ScheduledInstanceRecurrence) + , _siaAvailabilityZone :: !(Maybe Text) + , _siaMinTermDurationInDays :: !(Maybe Int) + , _siaFirstSlotStartTime :: !(Maybe ISO8601) + , _siaNetworkPlatform :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstanceAvailability' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'siaMaxTermDurationInDays' - The maximum term. The only possible value is 365 days. +-- +-- * 'siaPlatform' - The platform (@Linux/UNIX@ or @Windows@ ). +-- +-- * 'siaPurchaseToken' - The purchase token. This token expires in two hours. +-- +-- * 'siaHourlyPrice' - The hourly price for a single instance. +-- +-- * 'siaAvailableInstanceCount' - The number of available instances. +-- +-- * 'siaSlotDurationInHours' - The number of hours in the schedule. +-- +-- * 'siaTotalScheduledInstanceHours' - The total number of hours for a single instance for the entire term. +-- +-- * 'siaInstanceType' - The instance type. You can specify one of the C3, C4, M4, or R3 instance types. +-- +-- * 'siaRecurrence' - The schedule recurrence. +-- +-- * 'siaAvailabilityZone' - The Availability Zone. +-- +-- * 'siaMinTermDurationInDays' - The minimum term. The only possible value is 365 days. +-- +-- * 'siaFirstSlotStartTime' - The time period for the first schedule to start. +-- +-- * 'siaNetworkPlatform' - The network platform (@EC2-Classic@ or @EC2-VPC@ ). +scheduledInstanceAvailability + :: ScheduledInstanceAvailability +scheduledInstanceAvailability = + ScheduledInstanceAvailability' + { _siaMaxTermDurationInDays = Nothing + , _siaPlatform = Nothing + , _siaPurchaseToken = Nothing + , _siaHourlyPrice = Nothing + , _siaAvailableInstanceCount = Nothing + , _siaSlotDurationInHours = Nothing + , _siaTotalScheduledInstanceHours = Nothing + , _siaInstanceType = Nothing + , _siaRecurrence = Nothing + , _siaAvailabilityZone = Nothing + , _siaMinTermDurationInDays = Nothing + , _siaFirstSlotStartTime = Nothing + , _siaNetworkPlatform = Nothing + } + + +-- | The maximum term. The only possible value is 365 days. +siaMaxTermDurationInDays :: Lens' ScheduledInstanceAvailability (Maybe Int) +siaMaxTermDurationInDays = lens _siaMaxTermDurationInDays (\ s a -> s{_siaMaxTermDurationInDays = a}) + +-- | The platform (@Linux/UNIX@ or @Windows@ ). +siaPlatform :: Lens' ScheduledInstanceAvailability (Maybe Text) +siaPlatform = lens _siaPlatform (\ s a -> s{_siaPlatform = a}) + +-- | The purchase token. This token expires in two hours. +siaPurchaseToken :: Lens' ScheduledInstanceAvailability (Maybe Text) +siaPurchaseToken = lens _siaPurchaseToken (\ s a -> s{_siaPurchaseToken = a}) + +-- | The hourly price for a single instance. +siaHourlyPrice :: Lens' ScheduledInstanceAvailability (Maybe Text) +siaHourlyPrice = lens _siaHourlyPrice (\ s a -> s{_siaHourlyPrice = a}) + +-- | The number of available instances. +siaAvailableInstanceCount :: Lens' ScheduledInstanceAvailability (Maybe Int) +siaAvailableInstanceCount = lens _siaAvailableInstanceCount (\ s a -> s{_siaAvailableInstanceCount = a}) + +-- | The number of hours in the schedule. +siaSlotDurationInHours :: Lens' ScheduledInstanceAvailability (Maybe Int) +siaSlotDurationInHours = lens _siaSlotDurationInHours (\ s a -> s{_siaSlotDurationInHours = a}) + +-- | The total number of hours for a single instance for the entire term. +siaTotalScheduledInstanceHours :: Lens' ScheduledInstanceAvailability (Maybe Int) +siaTotalScheduledInstanceHours = lens _siaTotalScheduledInstanceHours (\ s a -> s{_siaTotalScheduledInstanceHours = a}) + +-- | The instance type. You can specify one of the C3, C4, M4, or R3 instance types. +siaInstanceType :: Lens' ScheduledInstanceAvailability (Maybe Text) +siaInstanceType = lens _siaInstanceType (\ s a -> s{_siaInstanceType = a}) + +-- | The schedule recurrence. +siaRecurrence :: Lens' ScheduledInstanceAvailability (Maybe ScheduledInstanceRecurrence) +siaRecurrence = lens _siaRecurrence (\ s a -> s{_siaRecurrence = a}) + +-- | The Availability Zone. +siaAvailabilityZone :: Lens' ScheduledInstanceAvailability (Maybe Text) +siaAvailabilityZone = lens _siaAvailabilityZone (\ s a -> s{_siaAvailabilityZone = a}) + +-- | The minimum term. The only possible value is 365 days. +siaMinTermDurationInDays :: Lens' ScheduledInstanceAvailability (Maybe Int) +siaMinTermDurationInDays = lens _siaMinTermDurationInDays (\ s a -> s{_siaMinTermDurationInDays = a}) + +-- | The time period for the first schedule to start. +siaFirstSlotStartTime :: Lens' ScheduledInstanceAvailability (Maybe UTCTime) +siaFirstSlotStartTime = lens _siaFirstSlotStartTime (\ s a -> s{_siaFirstSlotStartTime = a}) . mapping _Time + +-- | The network platform (@EC2-Classic@ or @EC2-VPC@ ). +siaNetworkPlatform :: Lens' ScheduledInstanceAvailability (Maybe Text) +siaNetworkPlatform = lens _siaNetworkPlatform (\ s a -> s{_siaNetworkPlatform = a}) + +instance FromXML ScheduledInstanceAvailability where + parseXML x + = ScheduledInstanceAvailability' <$> + (x .@? "maxTermDurationInDays") <*> + (x .@? "platform") + <*> (x .@? "purchaseToken") + <*> (x .@? "hourlyPrice") + <*> (x .@? "availableInstanceCount") + <*> (x .@? "slotDurationInHours") + <*> (x .@? "totalScheduledInstanceHours") + <*> (x .@? "instanceType") + <*> (x .@? "recurrence") + <*> (x .@? "availabilityZone") + <*> (x .@? "minTermDurationInDays") + <*> (x .@? "firstSlotStartTime") + <*> (x .@? "networkPlatform") + +instance Hashable ScheduledInstanceAvailability where + +instance NFData ScheduledInstanceAvailability where + +-- | Describes the recurring schedule for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstanceRecurrence' smart constructor. +data ScheduledInstanceRecurrence = ScheduledInstanceRecurrence' + { _sirFrequency :: !(Maybe Text) + , _sirOccurrenceRelativeToEnd :: !(Maybe Bool) + , _sirOccurrenceUnit :: !(Maybe Text) + , _sirInterval :: !(Maybe Int) + , _sirOccurrenceDaySet :: !(Maybe [Int]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstanceRecurrence' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sirFrequency' - The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). +-- +-- * 'sirOccurrenceRelativeToEnd' - Indicates whether the occurrence is relative to the end of the specified week or month. +-- +-- * 'sirOccurrenceUnit' - The unit for @occurrenceDaySet@ (@DayOfWeek@ or @DayOfMonth@ ). +-- +-- * 'sirInterval' - The interval quantity. The interval unit depends on the value of @frequency@ . For example, every 2 weeks or every 2 months. +-- +-- * 'sirOccurrenceDaySet' - The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). +scheduledInstanceRecurrence + :: ScheduledInstanceRecurrence +scheduledInstanceRecurrence = + ScheduledInstanceRecurrence' + { _sirFrequency = Nothing + , _sirOccurrenceRelativeToEnd = Nothing + , _sirOccurrenceUnit = Nothing + , _sirInterval = Nothing + , _sirOccurrenceDaySet = Nothing + } + + +-- | The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). +sirFrequency :: Lens' ScheduledInstanceRecurrence (Maybe Text) +sirFrequency = lens _sirFrequency (\ s a -> s{_sirFrequency = a}) + +-- | Indicates whether the occurrence is relative to the end of the specified week or month. +sirOccurrenceRelativeToEnd :: Lens' ScheduledInstanceRecurrence (Maybe Bool) +sirOccurrenceRelativeToEnd = lens _sirOccurrenceRelativeToEnd (\ s a -> s{_sirOccurrenceRelativeToEnd = a}) + +-- | The unit for @occurrenceDaySet@ (@DayOfWeek@ or @DayOfMonth@ ). +sirOccurrenceUnit :: Lens' ScheduledInstanceRecurrence (Maybe Text) +sirOccurrenceUnit = lens _sirOccurrenceUnit (\ s a -> s{_sirOccurrenceUnit = a}) + +-- | The interval quantity. The interval unit depends on the value of @frequency@ . For example, every 2 weeks or every 2 months. +sirInterval :: Lens' ScheduledInstanceRecurrence (Maybe Int) +sirInterval = lens _sirInterval (\ s a -> s{_sirInterval = a}) + +-- | The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). +sirOccurrenceDaySet :: Lens' ScheduledInstanceRecurrence [Int] +sirOccurrenceDaySet = lens _sirOccurrenceDaySet (\ s a -> s{_sirOccurrenceDaySet = a}) . _Default . _Coerce + +instance FromXML ScheduledInstanceRecurrence where + parseXML x + = ScheduledInstanceRecurrence' <$> + (x .@? "frequency") <*> + (x .@? "occurrenceRelativeToEnd") + <*> (x .@? "occurrenceUnit") + <*> (x .@? "interval") + <*> + (x .@? "occurrenceDaySet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable ScheduledInstanceRecurrence where + +instance NFData ScheduledInstanceRecurrence where + +-- | Describes the recurring schedule for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstanceRecurrenceRequest' smart constructor. +data ScheduledInstanceRecurrenceRequest = ScheduledInstanceRecurrenceRequest' + { _sirrFrequency :: !(Maybe Text) + , _sirrOccurrenceRelativeToEnd :: !(Maybe Bool) + , _sirrOccurrenceDays :: !(Maybe [Int]) + , _sirrOccurrenceUnit :: !(Maybe Text) + , _sirrInterval :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstanceRecurrenceRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sirrFrequency' - The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). +-- +-- * 'sirrOccurrenceRelativeToEnd' - Indicates whether the occurrence is relative to the end of the specified week or month. You can't specify this value with a daily schedule. +-- +-- * 'sirrOccurrenceDays' - The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). You can't specify this value with a daily schedule. If the occurrence is relative to the end of the month, you can specify only a single day. +-- +-- * 'sirrOccurrenceUnit' - The unit for @OccurrenceDays@ (@DayOfWeek@ or @DayOfMonth@ ). This value is required for a monthly schedule. You can't specify @DayOfWeek@ with a weekly schedule. You can't specify this value with a daily schedule. +-- +-- * 'sirrInterval' - The interval quantity. The interval unit depends on the value of @Frequency@ . For example, every 2 weeks or every 2 months. +scheduledInstanceRecurrenceRequest + :: ScheduledInstanceRecurrenceRequest +scheduledInstanceRecurrenceRequest = + ScheduledInstanceRecurrenceRequest' + { _sirrFrequency = Nothing + , _sirrOccurrenceRelativeToEnd = Nothing + , _sirrOccurrenceDays = Nothing + , _sirrOccurrenceUnit = Nothing + , _sirrInterval = Nothing + } + + +-- | The frequency (@Daily@ , @Weekly@ , or @Monthly@ ). +sirrFrequency :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Text) +sirrFrequency = lens _sirrFrequency (\ s a -> s{_sirrFrequency = a}) + +-- | Indicates whether the occurrence is relative to the end of the specified week or month. You can't specify this value with a daily schedule. +sirrOccurrenceRelativeToEnd :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Bool) +sirrOccurrenceRelativeToEnd = lens _sirrOccurrenceRelativeToEnd (\ s a -> s{_sirrOccurrenceRelativeToEnd = a}) + +-- | The days. For a monthly schedule, this is one or more days of the month (1-31). For a weekly schedule, this is one or more days of the week (1-7, where 1 is Sunday). You can't specify this value with a daily schedule. If the occurrence is relative to the end of the month, you can specify only a single day. +sirrOccurrenceDays :: Lens' ScheduledInstanceRecurrenceRequest [Int] +sirrOccurrenceDays = lens _sirrOccurrenceDays (\ s a -> s{_sirrOccurrenceDays = a}) . _Default . _Coerce + +-- | The unit for @OccurrenceDays@ (@DayOfWeek@ or @DayOfMonth@ ). This value is required for a monthly schedule. You can't specify @DayOfWeek@ with a weekly schedule. You can't specify this value with a daily schedule. +sirrOccurrenceUnit :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Text) +sirrOccurrenceUnit = lens _sirrOccurrenceUnit (\ s a -> s{_sirrOccurrenceUnit = a}) + +-- | The interval quantity. The interval unit depends on the value of @Frequency@ . For example, every 2 weeks or every 2 months. +sirrInterval :: Lens' ScheduledInstanceRecurrenceRequest (Maybe Int) +sirrInterval = lens _sirrInterval (\ s a -> s{_sirrInterval = a}) + +instance Hashable ScheduledInstanceRecurrenceRequest + where + +instance NFData ScheduledInstanceRecurrenceRequest + where + +instance ToQuery ScheduledInstanceRecurrenceRequest + where + toQuery ScheduledInstanceRecurrenceRequest'{..} + = mconcat + ["Frequency" =: _sirrFrequency, + "OccurrenceRelativeToEnd" =: + _sirrOccurrenceRelativeToEnd, + toQuery + (toQueryList "OccurrenceDay" <$> + _sirrOccurrenceDays), + "OccurrenceUnit" =: _sirrOccurrenceUnit, + "Interval" =: _sirrInterval] + +-- | Describes a block device mapping for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstancesBlockDeviceMapping' smart constructor. +data ScheduledInstancesBlockDeviceMapping = ScheduledInstancesBlockDeviceMapping' + { _sibdmVirtualName :: !(Maybe Text) + , _sibdmNoDevice :: !(Maybe Text) + , _sibdmEBS :: !(Maybe ScheduledInstancesEBS) + , _sibdmDeviceName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesBlockDeviceMapping' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sibdmVirtualName' - The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with two available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ . The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. +-- +-- * 'sibdmNoDevice' - Suppresses the specified device included in the block device mapping of the AMI. +-- +-- * 'sibdmEBS' - Parameters used to set up EBS volumes automatically when the instance is launched. +-- +-- * 'sibdmDeviceName' - The device name (for example, @/dev/sdh@ or @xvdh@ ). +scheduledInstancesBlockDeviceMapping + :: ScheduledInstancesBlockDeviceMapping +scheduledInstancesBlockDeviceMapping = + ScheduledInstancesBlockDeviceMapping' + { _sibdmVirtualName = Nothing + , _sibdmNoDevice = Nothing + , _sibdmEBS = Nothing + , _sibdmDeviceName = Nothing + } + + +-- | The virtual device name (@ephemeral@ N). Instance store volumes are numbered starting from 0. An instance type with two available instance store volumes can specify mappings for @ephemeral0@ and @ephemeral1@ . The number of available instance store volumes depends on the instance type. After you connect to the instance, you must mount the volume. Constraints: For M3 instances, you must specify instance store volumes in the block device mapping for the instance. When you launch an M3 instance, we ignore any instance store volumes specified in the block device mapping for the AMI. +sibdmVirtualName :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe Text) +sibdmVirtualName = lens _sibdmVirtualName (\ s a -> s{_sibdmVirtualName = a}) + +-- | Suppresses the specified device included in the block device mapping of the AMI. +sibdmNoDevice :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe Text) +sibdmNoDevice = lens _sibdmNoDevice (\ s a -> s{_sibdmNoDevice = a}) + +-- | Parameters used to set up EBS volumes automatically when the instance is launched. +sibdmEBS :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe ScheduledInstancesEBS) +sibdmEBS = lens _sibdmEBS (\ s a -> s{_sibdmEBS = a}) + +-- | The device name (for example, @/dev/sdh@ or @xvdh@ ). +sibdmDeviceName :: Lens' ScheduledInstancesBlockDeviceMapping (Maybe Text) +sibdmDeviceName = lens _sibdmDeviceName (\ s a -> s{_sibdmDeviceName = a}) + +instance Hashable + ScheduledInstancesBlockDeviceMapping + where + +instance NFData ScheduledInstancesBlockDeviceMapping + where + +instance ToQuery ScheduledInstancesBlockDeviceMapping + where + toQuery ScheduledInstancesBlockDeviceMapping'{..} + = mconcat + ["VirtualName" =: _sibdmVirtualName, + "NoDevice" =: _sibdmNoDevice, "Ebs" =: _sibdmEBS, + "DeviceName" =: _sibdmDeviceName] + +-- | Describes an EBS volume for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstancesEBS' smart constructor. +data ScheduledInstancesEBS = ScheduledInstancesEBS' + { _sieDeleteOnTermination :: !(Maybe Bool) + , _sieVolumeSize :: !(Maybe Int) + , _sieIOPS :: !(Maybe Int) + , _sieEncrypted :: !(Maybe Bool) + , _sieVolumeType :: !(Maybe Text) + , _sieSnapshotId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesEBS' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sieDeleteOnTermination' - Indicates whether the volume is deleted on instance termination. +-- +-- * 'sieVolumeSize' - The size of the volume, in GiB. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. +-- +-- * 'sieIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For io1 volumes, this represents the number of IOPS that are provisioned for the volume. For @gp2@ volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about @gp2@ baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. +-- +-- * 'sieEncrypted' - Indicates whether the volume is encrypted. You can attached encrypted volumes only to instances that support them. +-- +-- * 'sieVolumeType' - The volume type. @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, Throughput Optimized HDD for @st1@ , Cold HDD for @sc1@ , or @standard@ for Magnetic. Default: @standard@ +-- +-- * 'sieSnapshotId' - The ID of the snapshot. +scheduledInstancesEBS + :: ScheduledInstancesEBS +scheduledInstancesEBS = + ScheduledInstancesEBS' + { _sieDeleteOnTermination = Nothing + , _sieVolumeSize = Nothing + , _sieIOPS = Nothing + , _sieEncrypted = Nothing + , _sieVolumeType = Nothing + , _sieSnapshotId = Nothing + } + + +-- | Indicates whether the volume is deleted on instance termination. +sieDeleteOnTermination :: Lens' ScheduledInstancesEBS (Maybe Bool) +sieDeleteOnTermination = lens _sieDeleteOnTermination (\ s a -> s{_sieDeleteOnTermination = a}) + +-- | The size of the volume, in GiB. Default: If you're creating the volume from a snapshot and don't specify a volume size, the default is the snapshot size. +sieVolumeSize :: Lens' ScheduledInstancesEBS (Maybe Int) +sieVolumeSize = lens _sieVolumeSize (\ s a -> s{_sieVolumeSize = a}) + +-- | The number of I/O operations per second (IOPS) that the volume supports. For io1 volumes, this represents the number of IOPS that are provisioned for the volume. For @gp2@ volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information about @gp2@ baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-20000 IOPS for @io1@ volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. +sieIOPS :: Lens' ScheduledInstancesEBS (Maybe Int) +sieIOPS = lens _sieIOPS (\ s a -> s{_sieIOPS = a}) + +-- | Indicates whether the volume is encrypted. You can attached encrypted volumes only to instances that support them. +sieEncrypted :: Lens' ScheduledInstancesEBS (Maybe Bool) +sieEncrypted = lens _sieEncrypted (\ s a -> s{_sieEncrypted = a}) + +-- | The volume type. @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, Throughput Optimized HDD for @st1@ , Cold HDD for @sc1@ , or @standard@ for Magnetic. Default: @standard@ +sieVolumeType :: Lens' ScheduledInstancesEBS (Maybe Text) +sieVolumeType = lens _sieVolumeType (\ s a -> s{_sieVolumeType = a}) + +-- | The ID of the snapshot. +sieSnapshotId :: Lens' ScheduledInstancesEBS (Maybe Text) +sieSnapshotId = lens _sieSnapshotId (\ s a -> s{_sieSnapshotId = a}) + +instance Hashable ScheduledInstancesEBS where + +instance NFData ScheduledInstancesEBS where + +instance ToQuery ScheduledInstancesEBS where + toQuery ScheduledInstancesEBS'{..} + = mconcat + ["DeleteOnTermination" =: _sieDeleteOnTermination, + "VolumeSize" =: _sieVolumeSize, "Iops" =: _sieIOPS, + "Encrypted" =: _sieEncrypted, + "VolumeType" =: _sieVolumeType, + "SnapshotId" =: _sieSnapshotId] + +-- | Describes an IAM instance profile for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstancesIAMInstanceProfile' smart constructor. +data ScheduledInstancesIAMInstanceProfile = ScheduledInstancesIAMInstanceProfile' + { _siiapARN :: !(Maybe Text) + , _siiapName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesIAMInstanceProfile' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'siiapARN' - The Amazon Resource Name (ARN). +-- +-- * 'siiapName' - The name. +scheduledInstancesIAMInstanceProfile + :: ScheduledInstancesIAMInstanceProfile +scheduledInstancesIAMInstanceProfile = + ScheduledInstancesIAMInstanceProfile' + {_siiapARN = Nothing, _siiapName = Nothing} + + +-- | The Amazon Resource Name (ARN). +siiapARN :: Lens' ScheduledInstancesIAMInstanceProfile (Maybe Text) +siiapARN = lens _siiapARN (\ s a -> s{_siiapARN = a}) + +-- | The name. +siiapName :: Lens' ScheduledInstancesIAMInstanceProfile (Maybe Text) +siiapName = lens _siiapName (\ s a -> s{_siiapName = a}) + +instance Hashable + ScheduledInstancesIAMInstanceProfile + where + +instance NFData ScheduledInstancesIAMInstanceProfile + where + +instance ToQuery ScheduledInstancesIAMInstanceProfile + where + toQuery ScheduledInstancesIAMInstanceProfile'{..} + = mconcat ["Arn" =: _siiapARN, "Name" =: _siiapName] + +-- | Describes an IPv6 address. +-- +-- +-- +-- /See:/ 'scheduledInstancesIPv6Address' smart constructor. +newtype ScheduledInstancesIPv6Address = ScheduledInstancesIPv6Address' + { _siiaIPv6Address :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesIPv6Address' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'siiaIPv6Address' - The IPv6 address. +scheduledInstancesIPv6Address + :: ScheduledInstancesIPv6Address +scheduledInstancesIPv6Address = + ScheduledInstancesIPv6Address' {_siiaIPv6Address = Nothing} + + +-- | The IPv6 address. +siiaIPv6Address :: Lens' ScheduledInstancesIPv6Address (Maybe Text) +siiaIPv6Address = lens _siiaIPv6Address (\ s a -> s{_siiaIPv6Address = a}) + +instance Hashable ScheduledInstancesIPv6Address where + +instance NFData ScheduledInstancesIPv6Address where + +instance ToQuery ScheduledInstancesIPv6Address where + toQuery ScheduledInstancesIPv6Address'{..} + = mconcat ["Ipv6Address" =: _siiaIPv6Address] + +-- | Describes the launch specification for a Scheduled Instance. +-- +-- +-- If you are launching the Scheduled Instance in EC2-VPC, you must specify the ID of the subnet. You can specify the subnet using either @SubnetId@ or @NetworkInterface@ . +-- +-- +-- /See:/ 'scheduledInstancesLaunchSpecification' smart constructor. +data ScheduledInstancesLaunchSpecification = ScheduledInstancesLaunchSpecification' + { _silsSecurityGroupIds :: !(Maybe [Text]) + , _silsKeyName :: !(Maybe Text) + , _silsNetworkInterfaces :: !(Maybe [ScheduledInstancesNetworkInterface]) + , _silsRAMDiskId :: !(Maybe Text) + , _silsSubnetId :: !(Maybe Text) + , _silsKernelId :: !(Maybe Text) + , _silsInstanceType :: !(Maybe Text) + , _silsEBSOptimized :: !(Maybe Bool) + , _silsUserData :: !(Maybe Text) + , _silsMonitoring :: !(Maybe ScheduledInstancesMonitoring) + , _silsIAMInstanceProfile :: !(Maybe ScheduledInstancesIAMInstanceProfile) + , _silsBlockDeviceMappings :: !(Maybe [ScheduledInstancesBlockDeviceMapping]) + , _silsPlacement :: !(Maybe ScheduledInstancesPlacement) + , _silsImageId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesLaunchSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'silsSecurityGroupIds' - The IDs of one or more security groups. +-- +-- * 'silsKeyName' - The name of the key pair. +-- +-- * 'silsNetworkInterfaces' - One or more network interfaces. +-- +-- * 'silsRAMDiskId' - The ID of the RAM disk. +-- +-- * 'silsSubnetId' - The ID of the subnet in which to launch the instances. +-- +-- * 'silsKernelId' - The ID of the kernel. +-- +-- * 'silsInstanceType' - The instance type. +-- +-- * 'silsEBSOptimized' - Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. Default: @false@ +-- +-- * 'silsUserData' - The base64-encoded MIME user data. +-- +-- * 'silsMonitoring' - Enable or disable monitoring for the instances. +-- +-- * 'silsIAMInstanceProfile' - The IAM instance profile. +-- +-- * 'silsBlockDeviceMappings' - One or more block device mapping entries. +-- +-- * 'silsPlacement' - The placement information. +-- +-- * 'silsImageId' - The ID of the Amazon Machine Image (AMI). +scheduledInstancesLaunchSpecification + :: Text -- ^ 'silsImageId' + -> ScheduledInstancesLaunchSpecification +scheduledInstancesLaunchSpecification pImageId_ = + ScheduledInstancesLaunchSpecification' + { _silsSecurityGroupIds = Nothing + , _silsKeyName = Nothing + , _silsNetworkInterfaces = Nothing + , _silsRAMDiskId = Nothing + , _silsSubnetId = Nothing + , _silsKernelId = Nothing + , _silsInstanceType = Nothing + , _silsEBSOptimized = Nothing + , _silsUserData = Nothing + , _silsMonitoring = Nothing + , _silsIAMInstanceProfile = Nothing + , _silsBlockDeviceMappings = Nothing + , _silsPlacement = Nothing + , _silsImageId = pImageId_ + } + + +-- | The IDs of one or more security groups. +silsSecurityGroupIds :: Lens' ScheduledInstancesLaunchSpecification [Text] +silsSecurityGroupIds = lens _silsSecurityGroupIds (\ s a -> s{_silsSecurityGroupIds = a}) . _Default . _Coerce + +-- | The name of the key pair. +silsKeyName :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) +silsKeyName = lens _silsKeyName (\ s a -> s{_silsKeyName = a}) + +-- | One or more network interfaces. +silsNetworkInterfaces :: Lens' ScheduledInstancesLaunchSpecification [ScheduledInstancesNetworkInterface] +silsNetworkInterfaces = lens _silsNetworkInterfaces (\ s a -> s{_silsNetworkInterfaces = a}) . _Default . _Coerce + +-- | The ID of the RAM disk. +silsRAMDiskId :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) +silsRAMDiskId = lens _silsRAMDiskId (\ s a -> s{_silsRAMDiskId = a}) + +-- | The ID of the subnet in which to launch the instances. +silsSubnetId :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) +silsSubnetId = lens _silsSubnetId (\ s a -> s{_silsSubnetId = a}) + +-- | The ID of the kernel. +silsKernelId :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) +silsKernelId = lens _silsKernelId (\ s a -> s{_silsKernelId = a}) + +-- | The instance type. +silsInstanceType :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) +silsInstanceType = lens _silsInstanceType (\ s a -> s{_silsInstanceType = a}) + +-- | Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS-optimized instance. Default: @false@ +silsEBSOptimized :: Lens' ScheduledInstancesLaunchSpecification (Maybe Bool) +silsEBSOptimized = lens _silsEBSOptimized (\ s a -> s{_silsEBSOptimized = a}) + +-- | The base64-encoded MIME user data. +silsUserData :: Lens' ScheduledInstancesLaunchSpecification (Maybe Text) +silsUserData = lens _silsUserData (\ s a -> s{_silsUserData = a}) + +-- | Enable or disable monitoring for the instances. +silsMonitoring :: Lens' ScheduledInstancesLaunchSpecification (Maybe ScheduledInstancesMonitoring) +silsMonitoring = lens _silsMonitoring (\ s a -> s{_silsMonitoring = a}) + +-- | The IAM instance profile. +silsIAMInstanceProfile :: Lens' ScheduledInstancesLaunchSpecification (Maybe ScheduledInstancesIAMInstanceProfile) +silsIAMInstanceProfile = lens _silsIAMInstanceProfile (\ s a -> s{_silsIAMInstanceProfile = a}) + +-- | One or more block device mapping entries. +silsBlockDeviceMappings :: Lens' ScheduledInstancesLaunchSpecification [ScheduledInstancesBlockDeviceMapping] +silsBlockDeviceMappings = lens _silsBlockDeviceMappings (\ s a -> s{_silsBlockDeviceMappings = a}) . _Default . _Coerce + +-- | The placement information. +silsPlacement :: Lens' ScheduledInstancesLaunchSpecification (Maybe ScheduledInstancesPlacement) +silsPlacement = lens _silsPlacement (\ s a -> s{_silsPlacement = a}) + +-- | The ID of the Amazon Machine Image (AMI). +silsImageId :: Lens' ScheduledInstancesLaunchSpecification Text +silsImageId = lens _silsImageId (\ s a -> s{_silsImageId = a}) + +instance Hashable + ScheduledInstancesLaunchSpecification + where + +instance NFData ScheduledInstancesLaunchSpecification + where + +instance ToQuery + ScheduledInstancesLaunchSpecification + where + toQuery ScheduledInstancesLaunchSpecification'{..} + = mconcat + [toQuery + (toQueryList "SecurityGroupId" <$> + _silsSecurityGroupIds), + "KeyName" =: _silsKeyName, + toQuery + (toQueryList "NetworkInterface" <$> + _silsNetworkInterfaces), + "RamdiskId" =: _silsRAMDiskId, + "SubnetId" =: _silsSubnetId, + "KernelId" =: _silsKernelId, + "InstanceType" =: _silsInstanceType, + "EbsOptimized" =: _silsEBSOptimized, + "UserData" =: _silsUserData, + "Monitoring" =: _silsMonitoring, + "IamInstanceProfile" =: _silsIAMInstanceProfile, + toQuery + (toQueryList "BlockDeviceMapping" <$> + _silsBlockDeviceMappings), + "Placement" =: _silsPlacement, + "ImageId" =: _silsImageId] + +-- | Describes whether monitoring is enabled for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstancesMonitoring' smart constructor. +newtype ScheduledInstancesMonitoring = ScheduledInstancesMonitoring' + { _simEnabled :: Maybe Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesMonitoring' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'simEnabled' - Indicates whether monitoring is enabled. +scheduledInstancesMonitoring + :: ScheduledInstancesMonitoring +scheduledInstancesMonitoring = + ScheduledInstancesMonitoring' {_simEnabled = Nothing} + + +-- | Indicates whether monitoring is enabled. +simEnabled :: Lens' ScheduledInstancesMonitoring (Maybe Bool) +simEnabled = lens _simEnabled (\ s a -> s{_simEnabled = a}) + +instance Hashable ScheduledInstancesMonitoring where + +instance NFData ScheduledInstancesMonitoring where + +instance ToQuery ScheduledInstancesMonitoring where + toQuery ScheduledInstancesMonitoring'{..} + = mconcat ["Enabled" =: _simEnabled] + +-- | Describes a network interface for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstancesNetworkInterface' smart constructor. +data ScheduledInstancesNetworkInterface = ScheduledInstancesNetworkInterface' + { _siniGroups :: !(Maybe [Text]) + , _siniDeleteOnTermination :: !(Maybe Bool) + , _siniAssociatePublicIPAddress :: !(Maybe Bool) + , _siniPrivateIPAddressConfigs :: !(Maybe [ScheduledInstancesPrivateIPAddressConfig]) + , _siniNetworkInterfaceId :: !(Maybe Text) + , _siniSubnetId :: !(Maybe Text) + , _siniIPv6AddressCount :: !(Maybe Int) + , _siniPrivateIPAddress :: !(Maybe Text) + , _siniSecondaryPrivateIPAddressCount :: !(Maybe Int) + , _siniDescription :: !(Maybe Text) + , _siniDeviceIndex :: !(Maybe Int) + , _siniIPv6Addresses :: !(Maybe [ScheduledInstancesIPv6Address]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesNetworkInterface' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'siniGroups' - The IDs of one or more security groups. +-- +-- * 'siniDeleteOnTermination' - Indicates whether to delete the interface when the instance is terminated. +-- +-- * 'siniAssociatePublicIPAddress' - Indicates whether to assign a public IPv4 address to instances launched in a VPC. The public IPv4 address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . +-- +-- * 'siniPrivateIPAddressConfigs' - The private IPv4 addresses. +-- +-- * 'siniNetworkInterfaceId' - The ID of the network interface. +-- +-- * 'siniSubnetId' - The ID of the subnet. +-- +-- * 'siniIPv6AddressCount' - The number of IPv6 addresses to assign to the network interface. The IPv6 addresses are automatically selected from the subnet range. +-- +-- * 'siniPrivateIPAddress' - The IPv4 address of the network interface within the subnet. +-- +-- * 'siniSecondaryPrivateIPAddressCount' - The number of secondary private IPv4 addresses. +-- +-- * 'siniDescription' - The description. +-- +-- * 'siniDeviceIndex' - The index of the device for the network interface attachment. +-- +-- * 'siniIPv6Addresses' - One or more specific IPv6 addresses from the subnet range. +scheduledInstancesNetworkInterface + :: ScheduledInstancesNetworkInterface +scheduledInstancesNetworkInterface = + ScheduledInstancesNetworkInterface' + { _siniGroups = Nothing + , _siniDeleteOnTermination = Nothing + , _siniAssociatePublicIPAddress = Nothing + , _siniPrivateIPAddressConfigs = Nothing + , _siniNetworkInterfaceId = Nothing + , _siniSubnetId = Nothing + , _siniIPv6AddressCount = Nothing + , _siniPrivateIPAddress = Nothing + , _siniSecondaryPrivateIPAddressCount = Nothing + , _siniDescription = Nothing + , _siniDeviceIndex = Nothing + , _siniIPv6Addresses = Nothing + } + + +-- | The IDs of one or more security groups. +siniGroups :: Lens' ScheduledInstancesNetworkInterface [Text] +siniGroups = lens _siniGroups (\ s a -> s{_siniGroups = a}) . _Default . _Coerce + +-- | Indicates whether to delete the interface when the instance is terminated. +siniDeleteOnTermination :: Lens' ScheduledInstancesNetworkInterface (Maybe Bool) +siniDeleteOnTermination = lens _siniDeleteOnTermination (\ s a -> s{_siniDeleteOnTermination = a}) + +-- | Indicates whether to assign a public IPv4 address to instances launched in a VPC. The public IPv4 address can only be assigned to a network interface for eth0, and can only be assigned to a new network interface, not an existing one. You cannot specify more than one network interface in the request. If launching into a default subnet, the default value is @true@ . +siniAssociatePublicIPAddress :: Lens' ScheduledInstancesNetworkInterface (Maybe Bool) +siniAssociatePublicIPAddress = lens _siniAssociatePublicIPAddress (\ s a -> s{_siniAssociatePublicIPAddress = a}) + +-- | The private IPv4 addresses. +siniPrivateIPAddressConfigs :: Lens' ScheduledInstancesNetworkInterface [ScheduledInstancesPrivateIPAddressConfig] +siniPrivateIPAddressConfigs = lens _siniPrivateIPAddressConfigs (\ s a -> s{_siniPrivateIPAddressConfigs = a}) . _Default . _Coerce + +-- | The ID of the network interface. +siniNetworkInterfaceId :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) +siniNetworkInterfaceId = lens _siniNetworkInterfaceId (\ s a -> s{_siniNetworkInterfaceId = a}) + +-- | The ID of the subnet. +siniSubnetId :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) +siniSubnetId = lens _siniSubnetId (\ s a -> s{_siniSubnetId = a}) + +-- | The number of IPv6 addresses to assign to the network interface. The IPv6 addresses are automatically selected from the subnet range. +siniIPv6AddressCount :: Lens' ScheduledInstancesNetworkInterface (Maybe Int) +siniIPv6AddressCount = lens _siniIPv6AddressCount (\ s a -> s{_siniIPv6AddressCount = a}) + +-- | The IPv4 address of the network interface within the subnet. +siniPrivateIPAddress :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) +siniPrivateIPAddress = lens _siniPrivateIPAddress (\ s a -> s{_siniPrivateIPAddress = a}) + +-- | The number of secondary private IPv4 addresses. +siniSecondaryPrivateIPAddressCount :: Lens' ScheduledInstancesNetworkInterface (Maybe Int) +siniSecondaryPrivateIPAddressCount = lens _siniSecondaryPrivateIPAddressCount (\ s a -> s{_siniSecondaryPrivateIPAddressCount = a}) + +-- | The description. +siniDescription :: Lens' ScheduledInstancesNetworkInterface (Maybe Text) +siniDescription = lens _siniDescription (\ s a -> s{_siniDescription = a}) + +-- | The index of the device for the network interface attachment. +siniDeviceIndex :: Lens' ScheduledInstancesNetworkInterface (Maybe Int) +siniDeviceIndex = lens _siniDeviceIndex (\ s a -> s{_siniDeviceIndex = a}) + +-- | One or more specific IPv6 addresses from the subnet range. +siniIPv6Addresses :: Lens' ScheduledInstancesNetworkInterface [ScheduledInstancesIPv6Address] +siniIPv6Addresses = lens _siniIPv6Addresses (\ s a -> s{_siniIPv6Addresses = a}) . _Default . _Coerce + +instance Hashable ScheduledInstancesNetworkInterface + where + +instance NFData ScheduledInstancesNetworkInterface + where + +instance ToQuery ScheduledInstancesNetworkInterface + where + toQuery ScheduledInstancesNetworkInterface'{..} + = mconcat + [toQuery (toQueryList "Group" <$> _siniGroups), + "DeleteOnTermination" =: _siniDeleteOnTermination, + "AssociatePublicIpAddress" =: + _siniAssociatePublicIPAddress, + toQuery + (toQueryList "PrivateIpAddressConfig" <$> + _siniPrivateIPAddressConfigs), + "NetworkInterfaceId" =: _siniNetworkInterfaceId, + "SubnetId" =: _siniSubnetId, + "Ipv6AddressCount" =: _siniIPv6AddressCount, + "PrivateIpAddress" =: _siniPrivateIPAddress, + "SecondaryPrivateIpAddressCount" =: + _siniSecondaryPrivateIPAddressCount, + "Description" =: _siniDescription, + "DeviceIndex" =: _siniDeviceIndex, + toQuery + (toQueryList "Ipv6Address" <$> _siniIPv6Addresses)] + +-- | Describes the placement for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstancesPlacement' smart constructor. +data ScheduledInstancesPlacement = ScheduledInstancesPlacement' + { _sipAvailabilityZone :: !(Maybe Text) + , _sipGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesPlacement' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sipAvailabilityZone' - The Availability Zone. +-- +-- * 'sipGroupName' - The name of the placement group. +scheduledInstancesPlacement + :: ScheduledInstancesPlacement +scheduledInstancesPlacement = + ScheduledInstancesPlacement' + {_sipAvailabilityZone = Nothing, _sipGroupName = Nothing} + + +-- | The Availability Zone. +sipAvailabilityZone :: Lens' ScheduledInstancesPlacement (Maybe Text) +sipAvailabilityZone = lens _sipAvailabilityZone (\ s a -> s{_sipAvailabilityZone = a}) + +-- | The name of the placement group. +sipGroupName :: Lens' ScheduledInstancesPlacement (Maybe Text) +sipGroupName = lens _sipGroupName (\ s a -> s{_sipGroupName = a}) + +instance Hashable ScheduledInstancesPlacement where + +instance NFData ScheduledInstancesPlacement where + +instance ToQuery ScheduledInstancesPlacement where + toQuery ScheduledInstancesPlacement'{..} + = mconcat + ["AvailabilityZone" =: _sipAvailabilityZone, + "GroupName" =: _sipGroupName] + +-- | Describes a private IPv4 address for a Scheduled Instance. +-- +-- +-- +-- /See:/ 'scheduledInstancesPrivateIPAddressConfig' smart constructor. +data ScheduledInstancesPrivateIPAddressConfig = ScheduledInstancesPrivateIPAddressConfig' + { _sipiacPrimary :: !(Maybe Bool) + , _sipiacPrivateIPAddress :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ScheduledInstancesPrivateIPAddressConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sipiacPrimary' - Indicates whether this is a primary IPv4 address. Otherwise, this is a secondary IPv4 address. +-- +-- * 'sipiacPrivateIPAddress' - The IPv4 address. +scheduledInstancesPrivateIPAddressConfig + :: ScheduledInstancesPrivateIPAddressConfig +scheduledInstancesPrivateIPAddressConfig = + ScheduledInstancesPrivateIPAddressConfig' + {_sipiacPrimary = Nothing, _sipiacPrivateIPAddress = Nothing} + + +-- | Indicates whether this is a primary IPv4 address. Otherwise, this is a secondary IPv4 address. +sipiacPrimary :: Lens' ScheduledInstancesPrivateIPAddressConfig (Maybe Bool) +sipiacPrimary = lens _sipiacPrimary (\ s a -> s{_sipiacPrimary = a}) + +-- | The IPv4 address. +sipiacPrivateIPAddress :: Lens' ScheduledInstancesPrivateIPAddressConfig (Maybe Text) +sipiacPrivateIPAddress = lens _sipiacPrivateIPAddress (\ s a -> s{_sipiacPrivateIPAddress = a}) + +instance Hashable + ScheduledInstancesPrivateIPAddressConfig + where + +instance NFData + ScheduledInstancesPrivateIPAddressConfig + where + +instance ToQuery + ScheduledInstancesPrivateIPAddressConfig + where + toQuery ScheduledInstancesPrivateIPAddressConfig'{..} + = mconcat + ["Primary" =: _sipiacPrimary, + "PrivateIpAddress" =: _sipiacPrivateIPAddress] + +-- | Describes a security group +-- +-- +-- +-- /See:/ 'securityGroup' smart constructor. +data SecurityGroup = SecurityGroup' + { _sgVPCId :: !(Maybe Text) + , _sgIPPermissions :: !(Maybe [IPPermission]) + , _sgIPPermissionsEgress :: !(Maybe [IPPermission]) + , _sgTags :: !(Maybe [Tag]) + , _sgOwnerId :: !Text + , _sgGroupId :: !Text + , _sgGroupName :: !Text + , _sgDescription :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SecurityGroup' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sgVPCId' - [EC2-VPC] The ID of the VPC for the security group. +-- +-- * 'sgIPPermissions' - One or more inbound rules associated with the security group. +-- +-- * 'sgIPPermissionsEgress' - [EC2-VPC] One or more outbound rules associated with the security group. +-- +-- * 'sgTags' - Any tags assigned to the security group. +-- +-- * 'sgOwnerId' - The AWS account ID of the owner of the security group. +-- +-- * 'sgGroupId' - The ID of the security group. +-- +-- * 'sgGroupName' - The name of the security group. +-- +-- * 'sgDescription' - A description of the security group. +securityGroup + :: Text -- ^ 'sgOwnerId' + -> Text -- ^ 'sgGroupId' + -> Text -- ^ 'sgGroupName' + -> Text -- ^ 'sgDescription' + -> SecurityGroup +securityGroup pOwnerId_ pGroupId_ pGroupName_ pDescription_ = + SecurityGroup' + { _sgVPCId = Nothing + , _sgIPPermissions = Nothing + , _sgIPPermissionsEgress = Nothing + , _sgTags = Nothing + , _sgOwnerId = pOwnerId_ + , _sgGroupId = pGroupId_ + , _sgGroupName = pGroupName_ + , _sgDescription = pDescription_ + } + + +-- | [EC2-VPC] The ID of the VPC for the security group. +sgVPCId :: Lens' SecurityGroup (Maybe Text) +sgVPCId = lens _sgVPCId (\ s a -> s{_sgVPCId = a}) + +-- | One or more inbound rules associated with the security group. +sgIPPermissions :: Lens' SecurityGroup [IPPermission] +sgIPPermissions = lens _sgIPPermissions (\ s a -> s{_sgIPPermissions = a}) . _Default . _Coerce + +-- | [EC2-VPC] One or more outbound rules associated with the security group. +sgIPPermissionsEgress :: Lens' SecurityGroup [IPPermission] +sgIPPermissionsEgress = lens _sgIPPermissionsEgress (\ s a -> s{_sgIPPermissionsEgress = a}) . _Default . _Coerce + +-- | Any tags assigned to the security group. +sgTags :: Lens' SecurityGroup [Tag] +sgTags = lens _sgTags (\ s a -> s{_sgTags = a}) . _Default . _Coerce + +-- | The AWS account ID of the owner of the security group. +sgOwnerId :: Lens' SecurityGroup Text +sgOwnerId = lens _sgOwnerId (\ s a -> s{_sgOwnerId = a}) + +-- | The ID of the security group. +sgGroupId :: Lens' SecurityGroup Text +sgGroupId = lens _sgGroupId (\ s a -> s{_sgGroupId = a}) + +-- | The name of the security group. +sgGroupName :: Lens' SecurityGroup Text +sgGroupName = lens _sgGroupName (\ s a -> s{_sgGroupName = a}) + +-- | A description of the security group. +sgDescription :: Lens' SecurityGroup Text +sgDescription = lens _sgDescription (\ s a -> s{_sgDescription = a}) + +instance FromXML SecurityGroup where + parseXML x + = SecurityGroup' <$> + (x .@? "vpcId") <*> + (x .@? "ipPermissions" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "ipPermissionsEgress" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "ownerId") + <*> (x .@ "groupId") + <*> (x .@ "groupName") + <*> (x .@ "groupDescription") + +instance Hashable SecurityGroup where + +instance NFData SecurityGroup where + +-- | Describes a security group. +-- +-- +-- +-- /See:/ 'securityGroupIdentifier' smart constructor. +data SecurityGroupIdentifier = SecurityGroupIdentifier' + { _sgiGroupId :: !(Maybe Text) + , _sgiGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SecurityGroupIdentifier' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sgiGroupId' - The ID of the security group. +-- +-- * 'sgiGroupName' - The name of the security group. +securityGroupIdentifier + :: SecurityGroupIdentifier +securityGroupIdentifier = + SecurityGroupIdentifier' {_sgiGroupId = Nothing, _sgiGroupName = Nothing} + + +-- | The ID of the security group. +sgiGroupId :: Lens' SecurityGroupIdentifier (Maybe Text) +sgiGroupId = lens _sgiGroupId (\ s a -> s{_sgiGroupId = a}) + +-- | The name of the security group. +sgiGroupName :: Lens' SecurityGroupIdentifier (Maybe Text) +sgiGroupName = lens _sgiGroupName (\ s a -> s{_sgiGroupName = a}) + +instance FromXML SecurityGroupIdentifier where + parseXML x + = SecurityGroupIdentifier' <$> + (x .@? "groupId") <*> (x .@? "groupName") + +instance Hashable SecurityGroupIdentifier where + +instance NFData SecurityGroupIdentifier where + +-- | Describes a VPC with a security group that references your security group. +-- +-- +-- +-- /See:/ 'securityGroupReference' smart constructor. +data SecurityGroupReference = SecurityGroupReference' + { _sgrVPCPeeringConnectionId :: !(Maybe Text) + , _sgrGroupId :: !Text + , _sgrReferencingVPCId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SecurityGroupReference' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sgrVPCPeeringConnectionId' - The ID of the VPC peering connection. +-- +-- * 'sgrGroupId' - The ID of your security group. +-- +-- * 'sgrReferencingVPCId' - The ID of the VPC with the referencing security group. +securityGroupReference + :: Text -- ^ 'sgrGroupId' + -> Text -- ^ 'sgrReferencingVPCId' + -> SecurityGroupReference +securityGroupReference pGroupId_ pReferencingVPCId_ = + SecurityGroupReference' + { _sgrVPCPeeringConnectionId = Nothing + , _sgrGroupId = pGroupId_ + , _sgrReferencingVPCId = pReferencingVPCId_ + } + + +-- | The ID of the VPC peering connection. +sgrVPCPeeringConnectionId :: Lens' SecurityGroupReference (Maybe Text) +sgrVPCPeeringConnectionId = lens _sgrVPCPeeringConnectionId (\ s a -> s{_sgrVPCPeeringConnectionId = a}) + +-- | The ID of your security group. +sgrGroupId :: Lens' SecurityGroupReference Text +sgrGroupId = lens _sgrGroupId (\ s a -> s{_sgrGroupId = a}) + +-- | The ID of the VPC with the referencing security group. +sgrReferencingVPCId :: Lens' SecurityGroupReference Text +sgrReferencingVPCId = lens _sgrReferencingVPCId (\ s a -> s{_sgrReferencingVPCId = a}) + +instance FromXML SecurityGroupReference where + parseXML x + = SecurityGroupReference' <$> + (x .@? "vpcPeeringConnectionId") <*> (x .@ "groupId") + <*> (x .@ "referencingVpcId") + +instance Hashable SecurityGroupReference where + +instance NFData SecurityGroupReference where + +-- | Describes a service configuration for a VPC endpoint service. +-- +-- +-- +-- /See:/ 'serviceConfiguration' smart constructor. +data ServiceConfiguration = ServiceConfiguration' + { _scNetworkLoadBalancerARNs :: !(Maybe [Text]) + , _scBaseEndpointDNSNames :: !(Maybe [Text]) + , _scAvailabilityZones :: !(Maybe [Text]) + , _scServiceName :: !(Maybe Text) + , _scServiceState :: !(Maybe ServiceState) + , _scServiceType :: !(Maybe [ServiceTypeDetail]) + , _scAcceptanceRequired :: !(Maybe Bool) + , _scServiceId :: !(Maybe Text) + , _scPrivateDNSName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ServiceConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'scNetworkLoadBalancerARNs' - The Amazon Resource Names (ARNs) of the Network Load Balancers for the service. +-- +-- * 'scBaseEndpointDNSNames' - The DNS names for the service. +-- +-- * 'scAvailabilityZones' - In the Availability Zones in which the service is available. +-- +-- * 'scServiceName' - The name of the service. +-- +-- * 'scServiceState' - The service state. +-- +-- * 'scServiceType' - The type of service. +-- +-- * 'scAcceptanceRequired' - Indicates whether requests from other AWS accounts to create an endpoint to the service must first be accepted. +-- +-- * 'scServiceId' - The ID of the service. +-- +-- * 'scPrivateDNSName' - The private DNS name for the service. +serviceConfiguration + :: ServiceConfiguration +serviceConfiguration = + ServiceConfiguration' + { _scNetworkLoadBalancerARNs = Nothing + , _scBaseEndpointDNSNames = Nothing + , _scAvailabilityZones = Nothing + , _scServiceName = Nothing + , _scServiceState = Nothing + , _scServiceType = Nothing + , _scAcceptanceRequired = Nothing + , _scServiceId = Nothing + , _scPrivateDNSName = Nothing + } + + +-- | The Amazon Resource Names (ARNs) of the Network Load Balancers for the service. +scNetworkLoadBalancerARNs :: Lens' ServiceConfiguration [Text] +scNetworkLoadBalancerARNs = lens _scNetworkLoadBalancerARNs (\ s a -> s{_scNetworkLoadBalancerARNs = a}) . _Default . _Coerce + +-- | The DNS names for the service. +scBaseEndpointDNSNames :: Lens' ServiceConfiguration [Text] +scBaseEndpointDNSNames = lens _scBaseEndpointDNSNames (\ s a -> s{_scBaseEndpointDNSNames = a}) . _Default . _Coerce + +-- | In the Availability Zones in which the service is available. +scAvailabilityZones :: Lens' ServiceConfiguration [Text] +scAvailabilityZones = lens _scAvailabilityZones (\ s a -> s{_scAvailabilityZones = a}) . _Default . _Coerce + +-- | The name of the service. +scServiceName :: Lens' ServiceConfiguration (Maybe Text) +scServiceName = lens _scServiceName (\ s a -> s{_scServiceName = a}) + +-- | The service state. +scServiceState :: Lens' ServiceConfiguration (Maybe ServiceState) +scServiceState = lens _scServiceState (\ s a -> s{_scServiceState = a}) + +-- | The type of service. +scServiceType :: Lens' ServiceConfiguration [ServiceTypeDetail] +scServiceType = lens _scServiceType (\ s a -> s{_scServiceType = a}) . _Default . _Coerce + +-- | Indicates whether requests from other AWS accounts to create an endpoint to the service must first be accepted. +scAcceptanceRequired :: Lens' ServiceConfiguration (Maybe Bool) +scAcceptanceRequired = lens _scAcceptanceRequired (\ s a -> s{_scAcceptanceRequired = a}) + +-- | The ID of the service. +scServiceId :: Lens' ServiceConfiguration (Maybe Text) +scServiceId = lens _scServiceId (\ s a -> s{_scServiceId = a}) + +-- | The private DNS name for the service. +scPrivateDNSName :: Lens' ServiceConfiguration (Maybe Text) +scPrivateDNSName = lens _scPrivateDNSName (\ s a -> s{_scPrivateDNSName = a}) + +instance FromXML ServiceConfiguration where + parseXML x + = ServiceConfiguration' <$> + (x .@? "networkLoadBalancerArnSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "baseEndpointDnsNameSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "availabilityZoneSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "serviceName") + <*> (x .@? "serviceState") + <*> + (x .@? "serviceType" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "acceptanceRequired") + <*> (x .@? "serviceId") + <*> (x .@? "privateDnsName") + +instance Hashable ServiceConfiguration where + +instance NFData ServiceConfiguration where + +-- | Describes a VPC endpoint service. +-- +-- +-- +-- /See:/ 'serviceDetail' smart constructor. +data ServiceDetail = ServiceDetail' + { _sdVPCEndpointPolicySupported :: !(Maybe Bool) + , _sdBaseEndpointDNSNames :: !(Maybe [Text]) + , _sdOwner :: !(Maybe Text) + , _sdAvailabilityZones :: !(Maybe [Text]) + , _sdServiceName :: !(Maybe Text) + , _sdServiceType :: !(Maybe [ServiceTypeDetail]) + , _sdAcceptanceRequired :: !(Maybe Bool) + , _sdPrivateDNSName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ServiceDetail' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdVPCEndpointPolicySupported' - Indicates whether the service supports endpoint policies. +-- +-- * 'sdBaseEndpointDNSNames' - The DNS names for the service. +-- +-- * 'sdOwner' - The AWS account ID of the service owner. +-- +-- * 'sdAvailabilityZones' - The Availability Zones in which the service is available. +-- +-- * 'sdServiceName' - The Amazon Resource Name (ARN) of the service. +-- +-- * 'sdServiceType' - The type of service. +-- +-- * 'sdAcceptanceRequired' - Indicates whether VPC endpoint connection requests to the service must be accepted by the service owner. +-- +-- * 'sdPrivateDNSName' - The private DNS name for the service. +serviceDetail + :: ServiceDetail +serviceDetail = + ServiceDetail' + { _sdVPCEndpointPolicySupported = Nothing + , _sdBaseEndpointDNSNames = Nothing + , _sdOwner = Nothing + , _sdAvailabilityZones = Nothing + , _sdServiceName = Nothing + , _sdServiceType = Nothing + , _sdAcceptanceRequired = Nothing + , _sdPrivateDNSName = Nothing + } + + +-- | Indicates whether the service supports endpoint policies. +sdVPCEndpointPolicySupported :: Lens' ServiceDetail (Maybe Bool) +sdVPCEndpointPolicySupported = lens _sdVPCEndpointPolicySupported (\ s a -> s{_sdVPCEndpointPolicySupported = a}) + +-- | The DNS names for the service. +sdBaseEndpointDNSNames :: Lens' ServiceDetail [Text] +sdBaseEndpointDNSNames = lens _sdBaseEndpointDNSNames (\ s a -> s{_sdBaseEndpointDNSNames = a}) . _Default . _Coerce + +-- | The AWS account ID of the service owner. +sdOwner :: Lens' ServiceDetail (Maybe Text) +sdOwner = lens _sdOwner (\ s a -> s{_sdOwner = a}) + +-- | The Availability Zones in which the service is available. +sdAvailabilityZones :: Lens' ServiceDetail [Text] +sdAvailabilityZones = lens _sdAvailabilityZones (\ s a -> s{_sdAvailabilityZones = a}) . _Default . _Coerce + +-- | The Amazon Resource Name (ARN) of the service. +sdServiceName :: Lens' ServiceDetail (Maybe Text) +sdServiceName = lens _sdServiceName (\ s a -> s{_sdServiceName = a}) + +-- | The type of service. +sdServiceType :: Lens' ServiceDetail [ServiceTypeDetail] +sdServiceType = lens _sdServiceType (\ s a -> s{_sdServiceType = a}) . _Default . _Coerce + +-- | Indicates whether VPC endpoint connection requests to the service must be accepted by the service owner. +sdAcceptanceRequired :: Lens' ServiceDetail (Maybe Bool) +sdAcceptanceRequired = lens _sdAcceptanceRequired (\ s a -> s{_sdAcceptanceRequired = a}) + +-- | The private DNS name for the service. +sdPrivateDNSName :: Lens' ServiceDetail (Maybe Text) +sdPrivateDNSName = lens _sdPrivateDNSName (\ s a -> s{_sdPrivateDNSName = a}) + +instance FromXML ServiceDetail where + parseXML x + = ServiceDetail' <$> + (x .@? "vpcEndpointPolicySupported") <*> + (x .@? "baseEndpointDnsNameSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "owner") + <*> + (x .@? "availabilityZoneSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "serviceName") + <*> + (x .@? "serviceType" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "acceptanceRequired") + <*> (x .@? "privateDnsName") + +instance Hashable ServiceDetail where + +instance NFData ServiceDetail where + +-- | Describes the type of service for a VPC endpoint. +-- +-- +-- +-- /See:/ 'serviceTypeDetail' smart constructor. +newtype ServiceTypeDetail = ServiceTypeDetail' + { _stdServiceType :: Maybe ServiceType + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'ServiceTypeDetail' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'stdServiceType' - The type of service. +serviceTypeDetail + :: ServiceTypeDetail +serviceTypeDetail = ServiceTypeDetail' {_stdServiceType = Nothing} + + +-- | The type of service. +stdServiceType :: Lens' ServiceTypeDetail (Maybe ServiceType) +stdServiceType = lens _stdServiceType (\ s a -> s{_stdServiceType = a}) + +instance FromXML ServiceTypeDetail where + parseXML x + = ServiceTypeDetail' <$> (x .@? "serviceType") + +instance Hashable ServiceTypeDetail where + +instance NFData ServiceTypeDetail where + +-- | Describes the time period for a Scheduled Instance to start its first schedule. The time period must span less than one day. +-- +-- +-- +-- /See:/ 'slotDateTimeRangeRequest' smart constructor. +data SlotDateTimeRangeRequest = SlotDateTimeRangeRequest' + { _sdtrrEarliestTime :: !ISO8601 + , _sdtrrLatestTime :: !ISO8601 + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SlotDateTimeRangeRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdtrrEarliestTime' - The earliest date and time, in UTC, for the Scheduled Instance to start. +-- +-- * 'sdtrrLatestTime' - The latest date and time, in UTC, for the Scheduled Instance to start. This value must be later than or equal to the earliest date and at most three months in the future. +slotDateTimeRangeRequest + :: UTCTime -- ^ 'sdtrrEarliestTime' + -> UTCTime -- ^ 'sdtrrLatestTime' + -> SlotDateTimeRangeRequest +slotDateTimeRangeRequest pEarliestTime_ pLatestTime_ = + SlotDateTimeRangeRequest' + { _sdtrrEarliestTime = _Time # pEarliestTime_ + , _sdtrrLatestTime = _Time # pLatestTime_ + } + + +-- | The earliest date and time, in UTC, for the Scheduled Instance to start. +sdtrrEarliestTime :: Lens' SlotDateTimeRangeRequest UTCTime +sdtrrEarliestTime = lens _sdtrrEarliestTime (\ s a -> s{_sdtrrEarliestTime = a}) . _Time + +-- | The latest date and time, in UTC, for the Scheduled Instance to start. This value must be later than or equal to the earliest date and at most three months in the future. +sdtrrLatestTime :: Lens' SlotDateTimeRangeRequest UTCTime +sdtrrLatestTime = lens _sdtrrLatestTime (\ s a -> s{_sdtrrLatestTime = a}) . _Time + +instance Hashable SlotDateTimeRangeRequest where + +instance NFData SlotDateTimeRangeRequest where + +instance ToQuery SlotDateTimeRangeRequest where + toQuery SlotDateTimeRangeRequest'{..} + = mconcat + ["EarliestTime" =: _sdtrrEarliestTime, + "LatestTime" =: _sdtrrLatestTime] + +-- | Describes the time period for a Scheduled Instance to start its first schedule. +-- +-- +-- +-- /See:/ 'slotStartTimeRangeRequest' smart constructor. +data SlotStartTimeRangeRequest = SlotStartTimeRangeRequest' + { _sstrrLatestTime :: !(Maybe ISO8601) + , _sstrrEarliestTime :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SlotStartTimeRangeRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sstrrLatestTime' - The latest date and time, in UTC, for the Scheduled Instance to start. +-- +-- * 'sstrrEarliestTime' - The earliest date and time, in UTC, for the Scheduled Instance to start. +slotStartTimeRangeRequest + :: SlotStartTimeRangeRequest +slotStartTimeRangeRequest = + SlotStartTimeRangeRequest' + {_sstrrLatestTime = Nothing, _sstrrEarliestTime = Nothing} + + +-- | The latest date and time, in UTC, for the Scheduled Instance to start. +sstrrLatestTime :: Lens' SlotStartTimeRangeRequest (Maybe UTCTime) +sstrrLatestTime = lens _sstrrLatestTime (\ s a -> s{_sstrrLatestTime = a}) . mapping _Time + +-- | The earliest date and time, in UTC, for the Scheduled Instance to start. +sstrrEarliestTime :: Lens' SlotStartTimeRangeRequest (Maybe UTCTime) +sstrrEarliestTime = lens _sstrrEarliestTime (\ s a -> s{_sstrrEarliestTime = a}) . mapping _Time + +instance Hashable SlotStartTimeRangeRequest where + +instance NFData SlotStartTimeRangeRequest where + +instance ToQuery SlotStartTimeRangeRequest where + toQuery SlotStartTimeRangeRequest'{..} + = mconcat + ["LatestTime" =: _sstrrLatestTime, + "EarliestTime" =: _sstrrEarliestTime] + +-- | Describes a snapshot. +-- +-- +-- +-- /See:/ 'snapshot' smart constructor. +data Snapshot = Snapshot' + { _sStateMessage :: !(Maybe Text) + , _sOwnerAlias :: !(Maybe Text) + , _sDataEncryptionKeyId :: !(Maybe Text) + , _sKMSKeyId :: !(Maybe Text) + , _sTags :: !(Maybe [Tag]) + , _sSnapshotId :: !Text + , _sOwnerId :: !Text + , _sVolumeId :: !Text + , _sVolumeSize :: !Int + , _sDescription :: !Text + , _sStartTime :: !ISO8601 + , _sProgress :: !Text + , _sState :: !SnapshotState + , _sEncrypted :: !Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Snapshot' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sStateMessage' - Encrypted Amazon EBS snapshots are copied asynchronously. If a snapshot copy operation fails (for example, if the proper AWS Key Management Service (AWS KMS) permissions are not obtained) this field displays error state details to help you diagnose why the error occurred. This parameter is only returned by the 'DescribeSnapshots' API operation. +-- +-- * 'sOwnerAlias' - Value from an Amazon-maintained list (@amazon@ | @aws-marketplace@ | @microsoft@ ) of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. +-- +-- * 'sDataEncryptionKeyId' - The data encryption key identifier for the snapshot. This value is a unique identifier that corresponds to the data encryption key that was used to encrypt the original volume or snapshot copy. Because data encryption keys are inherited by volumes created from snapshots, and vice versa, if snapshots share the same data encryption key identifier, then they belong to the same volume/snapshot lineage. This parameter is only returned by the 'DescribeSnapshots' API operation. +-- +-- * 'sKMSKeyId' - The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the parent volume. +-- +-- * 'sTags' - Any tags assigned to the snapshot. +-- +-- * 'sSnapshotId' - The ID of the snapshot. Each snapshot receives a unique identifier when it is created. +-- +-- * 'sOwnerId' - The AWS account ID of the EBS snapshot owner. +-- +-- * 'sVolumeId' - The ID of the volume that was used to create the snapshot. Snapshots created by the 'CopySnapshot' action have an arbitrary volume ID that should not be used for any purpose. +-- +-- * 'sVolumeSize' - The size of the volume, in GiB. +-- +-- * 'sDescription' - The description for the snapshot. +-- +-- * 'sStartTime' - The time stamp when the snapshot was initiated. +-- +-- * 'sProgress' - The progress of the snapshot, as a percentage. +-- +-- * 'sState' - The snapshot state. +-- +-- * 'sEncrypted' - Indicates whether the snapshot is encrypted. +snapshot + :: Text -- ^ 'sSnapshotId' + -> Text -- ^ 'sOwnerId' + -> Text -- ^ 'sVolumeId' + -> Int -- ^ 'sVolumeSize' + -> Text -- ^ 'sDescription' + -> UTCTime -- ^ 'sStartTime' + -> Text -- ^ 'sProgress' + -> SnapshotState -- ^ 'sState' + -> Bool -- ^ 'sEncrypted' + -> Snapshot +snapshot pSnapshotId_ pOwnerId_ pVolumeId_ pVolumeSize_ pDescription_ pStartTime_ pProgress_ pState_ pEncrypted_ = + Snapshot' + { _sStateMessage = Nothing + , _sOwnerAlias = Nothing + , _sDataEncryptionKeyId = Nothing + , _sKMSKeyId = Nothing + , _sTags = Nothing + , _sSnapshotId = pSnapshotId_ + , _sOwnerId = pOwnerId_ + , _sVolumeId = pVolumeId_ + , _sVolumeSize = pVolumeSize_ + , _sDescription = pDescription_ + , _sStartTime = _Time # pStartTime_ + , _sProgress = pProgress_ + , _sState = pState_ + , _sEncrypted = pEncrypted_ + } + + +-- | Encrypted Amazon EBS snapshots are copied asynchronously. If a snapshot copy operation fails (for example, if the proper AWS Key Management Service (AWS KMS) permissions are not obtained) this field displays error state details to help you diagnose why the error occurred. This parameter is only returned by the 'DescribeSnapshots' API operation. +sStateMessage :: Lens' Snapshot (Maybe Text) +sStateMessage = lens _sStateMessage (\ s a -> s{_sStateMessage = a}) + +-- | Value from an Amazon-maintained list (@amazon@ | @aws-marketplace@ | @microsoft@ ) of snapshot owners. Not to be confused with the user-configured AWS account alias, which is set from the IAM console. +sOwnerAlias :: Lens' Snapshot (Maybe Text) +sOwnerAlias = lens _sOwnerAlias (\ s a -> s{_sOwnerAlias = a}) + +-- | The data encryption key identifier for the snapshot. This value is a unique identifier that corresponds to the data encryption key that was used to encrypt the original volume or snapshot copy. Because data encryption keys are inherited by volumes created from snapshots, and vice versa, if snapshots share the same data encryption key identifier, then they belong to the same volume/snapshot lineage. This parameter is only returned by the 'DescribeSnapshots' API operation. +sDataEncryptionKeyId :: Lens' Snapshot (Maybe Text) +sDataEncryptionKeyId = lens _sDataEncryptionKeyId (\ s a -> s{_sDataEncryptionKeyId = a}) + +-- | The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the parent volume. +sKMSKeyId :: Lens' Snapshot (Maybe Text) +sKMSKeyId = lens _sKMSKeyId (\ s a -> s{_sKMSKeyId = a}) + +-- | Any tags assigned to the snapshot. +sTags :: Lens' Snapshot [Tag] +sTags = lens _sTags (\ s a -> s{_sTags = a}) . _Default . _Coerce + +-- | The ID of the snapshot. Each snapshot receives a unique identifier when it is created. +sSnapshotId :: Lens' Snapshot Text +sSnapshotId = lens _sSnapshotId (\ s a -> s{_sSnapshotId = a}) + +-- | The AWS account ID of the EBS snapshot owner. +sOwnerId :: Lens' Snapshot Text +sOwnerId = lens _sOwnerId (\ s a -> s{_sOwnerId = a}) + +-- | The ID of the volume that was used to create the snapshot. Snapshots created by the 'CopySnapshot' action have an arbitrary volume ID that should not be used for any purpose. +sVolumeId :: Lens' Snapshot Text +sVolumeId = lens _sVolumeId (\ s a -> s{_sVolumeId = a}) + +-- | The size of the volume, in GiB. +sVolumeSize :: Lens' Snapshot Int +sVolumeSize = lens _sVolumeSize (\ s a -> s{_sVolumeSize = a}) + +-- | The description for the snapshot. +sDescription :: Lens' Snapshot Text +sDescription = lens _sDescription (\ s a -> s{_sDescription = a}) + +-- | The time stamp when the snapshot was initiated. +sStartTime :: Lens' Snapshot UTCTime +sStartTime = lens _sStartTime (\ s a -> s{_sStartTime = a}) . _Time + +-- | The progress of the snapshot, as a percentage. +sProgress :: Lens' Snapshot Text +sProgress = lens _sProgress (\ s a -> s{_sProgress = a}) + +-- | The snapshot state. +sState :: Lens' Snapshot SnapshotState +sState = lens _sState (\ s a -> s{_sState = a}) + +-- | Indicates whether the snapshot is encrypted. +sEncrypted :: Lens' Snapshot Bool +sEncrypted = lens _sEncrypted (\ s a -> s{_sEncrypted = a}) + +instance FromXML Snapshot where + parseXML x + = Snapshot' <$> + (x .@? "statusMessage") <*> (x .@? "ownerAlias") <*> + (x .@? "dataEncryptionKeyId") + <*> (x .@? "kmsKeyId") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "snapshotId") + <*> (x .@ "ownerId") + <*> (x .@ "volumeId") + <*> (x .@ "volumeSize") + <*> (x .@ "description") + <*> (x .@ "startTime") + <*> (x .@ "progress") + <*> (x .@ "status") + <*> (x .@ "encrypted") + +instance Hashable Snapshot where + +instance NFData Snapshot where + +-- | Describes the snapshot created from the imported disk. +-- +-- +-- +-- /See:/ 'snapshotDetail' smart constructor. +data SnapshotDetail = SnapshotDetail' + { _sdStatus :: !(Maybe Text) + , _sdProgress :: !(Maybe Text) + , _sdFormat :: !(Maybe Text) + , _sdURL :: !(Maybe Text) + , _sdDeviceName :: !(Maybe Text) + , _sdStatusMessage :: !(Maybe Text) + , _sdUserBucket :: !(Maybe UserBucketDetails) + , _sdDiskImageSize :: !(Maybe Double) + , _sdDescription :: !(Maybe Text) + , _sdSnapshotId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SnapshotDetail' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdStatus' - A brief status of the snapshot creation. +-- +-- * 'sdProgress' - The percentage of progress for the task. +-- +-- * 'sdFormat' - The format of the disk image from which the snapshot is created. +-- +-- * 'sdURL' - The URL used to access the disk image. +-- +-- * 'sdDeviceName' - The block device mapping for the snapshot. +-- +-- * 'sdStatusMessage' - A detailed status message for the snapshot creation. +-- +-- * 'sdUserBucket' - The S3 bucket for the disk image. +-- +-- * 'sdDiskImageSize' - The size of the disk in the snapshot, in GiB. +-- +-- * 'sdDescription' - A description for the snapshot. +-- +-- * 'sdSnapshotId' - The snapshot ID of the disk being imported. +snapshotDetail + :: SnapshotDetail +snapshotDetail = + SnapshotDetail' + { _sdStatus = Nothing + , _sdProgress = Nothing + , _sdFormat = Nothing + , _sdURL = Nothing + , _sdDeviceName = Nothing + , _sdStatusMessage = Nothing + , _sdUserBucket = Nothing + , _sdDiskImageSize = Nothing + , _sdDescription = Nothing + , _sdSnapshotId = Nothing + } + + +-- | A brief status of the snapshot creation. +sdStatus :: Lens' SnapshotDetail (Maybe Text) +sdStatus = lens _sdStatus (\ s a -> s{_sdStatus = a}) + +-- | The percentage of progress for the task. +sdProgress :: Lens' SnapshotDetail (Maybe Text) +sdProgress = lens _sdProgress (\ s a -> s{_sdProgress = a}) + +-- | The format of the disk image from which the snapshot is created. +sdFormat :: Lens' SnapshotDetail (Maybe Text) +sdFormat = lens _sdFormat (\ s a -> s{_sdFormat = a}) + +-- | The URL used to access the disk image. +sdURL :: Lens' SnapshotDetail (Maybe Text) +sdURL = lens _sdURL (\ s a -> s{_sdURL = a}) + +-- | The block device mapping for the snapshot. +sdDeviceName :: Lens' SnapshotDetail (Maybe Text) +sdDeviceName = lens _sdDeviceName (\ s a -> s{_sdDeviceName = a}) + +-- | A detailed status message for the snapshot creation. +sdStatusMessage :: Lens' SnapshotDetail (Maybe Text) +sdStatusMessage = lens _sdStatusMessage (\ s a -> s{_sdStatusMessage = a}) + +-- | The S3 bucket for the disk image. +sdUserBucket :: Lens' SnapshotDetail (Maybe UserBucketDetails) +sdUserBucket = lens _sdUserBucket (\ s a -> s{_sdUserBucket = a}) + +-- | The size of the disk in the snapshot, in GiB. +sdDiskImageSize :: Lens' SnapshotDetail (Maybe Double) +sdDiskImageSize = lens _sdDiskImageSize (\ s a -> s{_sdDiskImageSize = a}) + +-- | A description for the snapshot. +sdDescription :: Lens' SnapshotDetail (Maybe Text) +sdDescription = lens _sdDescription (\ s a -> s{_sdDescription = a}) + +-- | The snapshot ID of the disk being imported. +sdSnapshotId :: Lens' SnapshotDetail (Maybe Text) +sdSnapshotId = lens _sdSnapshotId (\ s a -> s{_sdSnapshotId = a}) + +instance FromXML SnapshotDetail where + parseXML x + = SnapshotDetail' <$> + (x .@? "status") <*> (x .@? "progress") <*> + (x .@? "format") + <*> (x .@? "url") + <*> (x .@? "deviceName") + <*> (x .@? "statusMessage") + <*> (x .@? "userBucket") + <*> (x .@? "diskImageSize") + <*> (x .@? "description") + <*> (x .@? "snapshotId") + +instance Hashable SnapshotDetail where + +instance NFData SnapshotDetail where + +-- | The disk container object for the import snapshot request. +-- +-- +-- +-- /See:/ 'snapshotDiskContainer' smart constructor. +data SnapshotDiskContainer = SnapshotDiskContainer' + { _sdcFormat :: !(Maybe Text) + , _sdcURL :: !(Maybe Text) + , _sdcUserBucket :: !(Maybe UserBucket) + , _sdcDescription :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SnapshotDiskContainer' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdcFormat' - The format of the disk image being imported. Valid values: @VHD@ | @VMDK@ | @OVA@ +-- +-- * 'sdcURL' - The URL to the Amazon S3-based disk image being imported. It can either be a https URL (https://..) or an Amazon S3 URL (s3://..). +-- +-- * 'sdcUserBucket' - The S3 bucket for the disk image. +-- +-- * 'sdcDescription' - The description of the disk image being imported. +snapshotDiskContainer + :: SnapshotDiskContainer +snapshotDiskContainer = + SnapshotDiskContainer' + { _sdcFormat = Nothing + , _sdcURL = Nothing + , _sdcUserBucket = Nothing + , _sdcDescription = Nothing + } + + +-- | The format of the disk image being imported. Valid values: @VHD@ | @VMDK@ | @OVA@ +sdcFormat :: Lens' SnapshotDiskContainer (Maybe Text) +sdcFormat = lens _sdcFormat (\ s a -> s{_sdcFormat = a}) + +-- | The URL to the Amazon S3-based disk image being imported. It can either be a https URL (https://..) or an Amazon S3 URL (s3://..). +sdcURL :: Lens' SnapshotDiskContainer (Maybe Text) +sdcURL = lens _sdcURL (\ s a -> s{_sdcURL = a}) + +-- | The S3 bucket for the disk image. +sdcUserBucket :: Lens' SnapshotDiskContainer (Maybe UserBucket) +sdcUserBucket = lens _sdcUserBucket (\ s a -> s{_sdcUserBucket = a}) + +-- | The description of the disk image being imported. +sdcDescription :: Lens' SnapshotDiskContainer (Maybe Text) +sdcDescription = lens _sdcDescription (\ s a -> s{_sdcDescription = a}) + +instance Hashable SnapshotDiskContainer where + +instance NFData SnapshotDiskContainer where + +instance ToQuery SnapshotDiskContainer where + toQuery SnapshotDiskContainer'{..} + = mconcat + ["Format" =: _sdcFormat, "Url" =: _sdcURL, + "UserBucket" =: _sdcUserBucket, + "Description" =: _sdcDescription] + +-- | Details about the import snapshot task. +-- +-- +-- +-- /See:/ 'snapshotTaskDetail' smart constructor. +data SnapshotTaskDetail = SnapshotTaskDetail' + { _stdStatus :: !(Maybe Text) + , _stdProgress :: !(Maybe Text) + , _stdFormat :: !(Maybe Text) + , _stdURL :: !(Maybe Text) + , _stdStatusMessage :: !(Maybe Text) + , _stdUserBucket :: !(Maybe UserBucketDetails) + , _stdDiskImageSize :: !(Maybe Double) + , _stdDescription :: !(Maybe Text) + , _stdSnapshotId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SnapshotTaskDetail' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'stdStatus' - A brief status for the import snapshot task. +-- +-- * 'stdProgress' - The percentage of completion for the import snapshot task. +-- +-- * 'stdFormat' - The format of the disk image from which the snapshot is created. +-- +-- * 'stdURL' - The URL of the disk image from which the snapshot is created. +-- +-- * 'stdStatusMessage' - A detailed status message for the import snapshot task. +-- +-- * 'stdUserBucket' - The S3 bucket for the disk image. +-- +-- * 'stdDiskImageSize' - The size of the disk in the snapshot, in GiB. +-- +-- * 'stdDescription' - The description of the snapshot. +-- +-- * 'stdSnapshotId' - The snapshot ID of the disk being imported. +snapshotTaskDetail + :: SnapshotTaskDetail +snapshotTaskDetail = + SnapshotTaskDetail' + { _stdStatus = Nothing + , _stdProgress = Nothing + , _stdFormat = Nothing + , _stdURL = Nothing + , _stdStatusMessage = Nothing + , _stdUserBucket = Nothing + , _stdDiskImageSize = Nothing + , _stdDescription = Nothing + , _stdSnapshotId = Nothing + } + + +-- | A brief status for the import snapshot task. +stdStatus :: Lens' SnapshotTaskDetail (Maybe Text) +stdStatus = lens _stdStatus (\ s a -> s{_stdStatus = a}) + +-- | The percentage of completion for the import snapshot task. +stdProgress :: Lens' SnapshotTaskDetail (Maybe Text) +stdProgress = lens _stdProgress (\ s a -> s{_stdProgress = a}) + +-- | The format of the disk image from which the snapshot is created. +stdFormat :: Lens' SnapshotTaskDetail (Maybe Text) +stdFormat = lens _stdFormat (\ s a -> s{_stdFormat = a}) + +-- | The URL of the disk image from which the snapshot is created. +stdURL :: Lens' SnapshotTaskDetail (Maybe Text) +stdURL = lens _stdURL (\ s a -> s{_stdURL = a}) + +-- | A detailed status message for the import snapshot task. +stdStatusMessage :: Lens' SnapshotTaskDetail (Maybe Text) +stdStatusMessage = lens _stdStatusMessage (\ s a -> s{_stdStatusMessage = a}) + +-- | The S3 bucket for the disk image. +stdUserBucket :: Lens' SnapshotTaskDetail (Maybe UserBucketDetails) +stdUserBucket = lens _stdUserBucket (\ s a -> s{_stdUserBucket = a}) + +-- | The size of the disk in the snapshot, in GiB. +stdDiskImageSize :: Lens' SnapshotTaskDetail (Maybe Double) +stdDiskImageSize = lens _stdDiskImageSize (\ s a -> s{_stdDiskImageSize = a}) + +-- | The description of the snapshot. +stdDescription :: Lens' SnapshotTaskDetail (Maybe Text) +stdDescription = lens _stdDescription (\ s a -> s{_stdDescription = a}) + +-- | The snapshot ID of the disk being imported. +stdSnapshotId :: Lens' SnapshotTaskDetail (Maybe Text) +stdSnapshotId = lens _stdSnapshotId (\ s a -> s{_stdSnapshotId = a}) + +instance FromXML SnapshotTaskDetail where + parseXML x + = SnapshotTaskDetail' <$> + (x .@? "status") <*> (x .@? "progress") <*> + (x .@? "format") + <*> (x .@? "url") + <*> (x .@? "statusMessage") + <*> (x .@? "userBucket") + <*> (x .@? "diskImageSize") + <*> (x .@? "description") + <*> (x .@? "snapshotId") + +instance Hashable SnapshotTaskDetail where + +instance NFData SnapshotTaskDetail where + +-- | Describes the data feed for a Spot Instance. +-- +-- +-- +-- /See:/ 'spotDatafeedSubscription' smart constructor. +data SpotDatafeedSubscription = SpotDatafeedSubscription' + { _sdsState :: !(Maybe DatafeedSubscriptionState) + , _sdsPrefix :: !(Maybe Text) + , _sdsBucket :: !(Maybe Text) + , _sdsOwnerId :: !(Maybe Text) + , _sdsFault :: !(Maybe SpotInstanceStateFault) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotDatafeedSubscription' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sdsState' - The state of the Spot Instance data feed subscription. +-- +-- * 'sdsPrefix' - The prefix that is prepended to data feed files. +-- +-- * 'sdsBucket' - The Amazon S3 bucket where the Spot Instance data feed is located. +-- +-- * 'sdsOwnerId' - The AWS account ID of the account. +-- +-- * 'sdsFault' - The fault codes for the Spot Instance request, if any. +spotDatafeedSubscription + :: SpotDatafeedSubscription +spotDatafeedSubscription = + SpotDatafeedSubscription' + { _sdsState = Nothing + , _sdsPrefix = Nothing + , _sdsBucket = Nothing + , _sdsOwnerId = Nothing + , _sdsFault = Nothing + } + + +-- | The state of the Spot Instance data feed subscription. +sdsState :: Lens' SpotDatafeedSubscription (Maybe DatafeedSubscriptionState) +sdsState = lens _sdsState (\ s a -> s{_sdsState = a}) + +-- | The prefix that is prepended to data feed files. +sdsPrefix :: Lens' SpotDatafeedSubscription (Maybe Text) +sdsPrefix = lens _sdsPrefix (\ s a -> s{_sdsPrefix = a}) + +-- | The Amazon S3 bucket where the Spot Instance data feed is located. +sdsBucket :: Lens' SpotDatafeedSubscription (Maybe Text) +sdsBucket = lens _sdsBucket (\ s a -> s{_sdsBucket = a}) + +-- | The AWS account ID of the account. +sdsOwnerId :: Lens' SpotDatafeedSubscription (Maybe Text) +sdsOwnerId = lens _sdsOwnerId (\ s a -> s{_sdsOwnerId = a}) + +-- | The fault codes for the Spot Instance request, if any. +sdsFault :: Lens' SpotDatafeedSubscription (Maybe SpotInstanceStateFault) +sdsFault = lens _sdsFault (\ s a -> s{_sdsFault = a}) + +instance FromXML SpotDatafeedSubscription where + parseXML x + = SpotDatafeedSubscription' <$> + (x .@? "state") <*> (x .@? "prefix") <*> + (x .@? "bucket") + <*> (x .@? "ownerId") + <*> (x .@? "fault") + +instance Hashable SpotDatafeedSubscription where + +instance NFData SpotDatafeedSubscription where + +-- | Describes the launch specification for one or more Spot Instances. +-- +-- +-- +-- /See:/ 'spotFleetLaunchSpecification' smart constructor. +data SpotFleetLaunchSpecification = SpotFleetLaunchSpecification' + { _sflsSecurityGroups :: !(Maybe [GroupIdentifier]) + , _sflsSpotPrice :: !(Maybe Text) + , _sflsWeightedCapacity :: !(Maybe Double) + , _sflsKeyName :: !(Maybe Text) + , _sflsNetworkInterfaces :: !(Maybe [InstanceNetworkInterfaceSpecification]) + , _sflsRAMDiskId :: !(Maybe Text) + , _sflsSubnetId :: !(Maybe Text) + , _sflsKernelId :: !(Maybe Text) + , _sflsInstanceType :: !(Maybe InstanceType) + , _sflsEBSOptimized :: !(Maybe Bool) + , _sflsUserData :: !(Maybe Text) + , _sflsMonitoring :: !(Maybe SpotFleetMonitoring) + , _sflsTagSpecifications :: !(Maybe [SpotFleetTagSpecification]) + , _sflsIAMInstanceProfile :: !(Maybe IAMInstanceProfileSpecification) + , _sflsImageId :: !(Maybe Text) + , _sflsAddressingType :: !(Maybe Text) + , _sflsBlockDeviceMappings :: !(Maybe [BlockDeviceMapping]) + , _sflsPlacement :: !(Maybe SpotPlacement) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotFleetLaunchSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sflsSecurityGroups' - 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. +-- +-- * 'sflsSpotPrice' - The maximum price per unit hour that you are willing to pay for a Spot Instance. If this value is not specified, the default is the Spot price specified for the fleet. To determine the Spot price per unit hour, divide the Spot price by the value of @WeightedCapacity@ . +-- +-- * 'sflsWeightedCapacity' - The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms (instances or a performance characteristic such as vCPUs, memory, or I/O). If the target capacity divided by this value is not a whole number, we round the number of instances to the next whole number. If this value is not specified, the default is 1. +-- +-- * 'sflsKeyName' - The name of the key pair. +-- +-- * 'sflsNetworkInterfaces' - One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. +-- +-- * 'sflsRAMDiskId' - The ID of the RAM disk. +-- +-- * 'sflsSubnetId' - The ID of the subnet in which to launch the instances. To specify multiple subnets, separate them using commas; for example, "subnet-a61dafcf, subnet-65ea5f08". +-- +-- * 'sflsKernelId' - The ID of the kernel. +-- +-- * 'sflsInstanceType' - The instance type. +-- +-- * 'sflsEBSOptimized' - Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ +-- +-- * 'sflsUserData' - The Base64-encoded user data to make available to the instances. +-- +-- * 'sflsMonitoring' - Enable or disable monitoring for the instances. +-- +-- * 'sflsTagSpecifications' - The tags to apply during creation. +-- +-- * 'sflsIAMInstanceProfile' - The IAM instance profile. +-- +-- * 'sflsImageId' - The ID of the AMI. +-- +-- * 'sflsAddressingType' - Deprecated. +-- +-- * 'sflsBlockDeviceMappings' - One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. +-- +-- * 'sflsPlacement' - The placement information. +spotFleetLaunchSpecification + :: SpotFleetLaunchSpecification +spotFleetLaunchSpecification = + SpotFleetLaunchSpecification' + { _sflsSecurityGroups = Nothing + , _sflsSpotPrice = Nothing + , _sflsWeightedCapacity = Nothing + , _sflsKeyName = Nothing + , _sflsNetworkInterfaces = Nothing + , _sflsRAMDiskId = Nothing + , _sflsSubnetId = Nothing + , _sflsKernelId = Nothing + , _sflsInstanceType = Nothing + , _sflsEBSOptimized = Nothing + , _sflsUserData = Nothing + , _sflsMonitoring = Nothing + , _sflsTagSpecifications = Nothing + , _sflsIAMInstanceProfile = Nothing + , _sflsImageId = Nothing + , _sflsAddressingType = Nothing + , _sflsBlockDeviceMappings = Nothing + , _sflsPlacement = Nothing + } + + +-- | 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 + +-- | The maximum price per unit hour that you are willing to pay for a Spot Instance. If this value is not specified, the default is the Spot price specified for the fleet. To determine the Spot price per unit hour, divide the Spot price by the value of @WeightedCapacity@ . +sflsSpotPrice :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsSpotPrice = lens _sflsSpotPrice (\ s a -> s{_sflsSpotPrice = a}) + +-- | The number of units provided by the specified instance type. These are the same units that you chose to set the target capacity in terms (instances or a performance characteristic such as vCPUs, memory, or I/O). If the target capacity divided by this value is not a whole number, we round the number of instances to the next whole number. If this value is not specified, the default is 1. +sflsWeightedCapacity :: Lens' SpotFleetLaunchSpecification (Maybe Double) +sflsWeightedCapacity = lens _sflsWeightedCapacity (\ s a -> s{_sflsWeightedCapacity = a}) + +-- | The name of the key pair. +sflsKeyName :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsKeyName = lens _sflsKeyName (\ s a -> s{_sflsKeyName = a}) + +-- | One or more network interfaces. If you specify a network interface, you must specify subnet IDs and security group IDs using the network interface. +sflsNetworkInterfaces :: Lens' SpotFleetLaunchSpecification [InstanceNetworkInterfaceSpecification] +sflsNetworkInterfaces = lens _sflsNetworkInterfaces (\ s a -> s{_sflsNetworkInterfaces = a}) . _Default . _Coerce + +-- | The ID of the RAM disk. +sflsRAMDiskId :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsRAMDiskId = lens _sflsRAMDiskId (\ s a -> s{_sflsRAMDiskId = a}) + +-- | The ID of the subnet in which to launch the instances. To specify multiple subnets, separate them using commas; for example, "subnet-a61dafcf, subnet-65ea5f08". +sflsSubnetId :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsSubnetId = lens _sflsSubnetId (\ s a -> s{_sflsSubnetId = a}) + +-- | The ID of the kernel. +sflsKernelId :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsKernelId = lens _sflsKernelId (\ s a -> s{_sflsKernelId = a}) + +-- | The instance type. +sflsInstanceType :: Lens' SpotFleetLaunchSpecification (Maybe InstanceType) +sflsInstanceType = lens _sflsInstanceType (\ s a -> s{_sflsInstanceType = a}) + +-- | Indicates whether the instances are optimized for EBS I/O. This optimization provides dedicated throughput to Amazon EBS and an optimized configuration stack to provide optimal EBS I/O performance. This optimization isn't available with all instance types. Additional usage charges apply when using an EBS Optimized instance. Default: @false@ +sflsEBSOptimized :: Lens' SpotFleetLaunchSpecification (Maybe Bool) +sflsEBSOptimized = lens _sflsEBSOptimized (\ s a -> s{_sflsEBSOptimized = a}) + +-- | The Base64-encoded user data to make available to the instances. +sflsUserData :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsUserData = lens _sflsUserData (\ s a -> s{_sflsUserData = a}) + +-- | Enable or disable monitoring for the instances. +sflsMonitoring :: Lens' SpotFleetLaunchSpecification (Maybe SpotFleetMonitoring) +sflsMonitoring = lens _sflsMonitoring (\ s a -> s{_sflsMonitoring = a}) + +-- | The tags to apply during creation. +sflsTagSpecifications :: Lens' SpotFleetLaunchSpecification [SpotFleetTagSpecification] +sflsTagSpecifications = lens _sflsTagSpecifications (\ s a -> s{_sflsTagSpecifications = a}) . _Default . _Coerce + +-- | The IAM instance profile. +sflsIAMInstanceProfile :: Lens' SpotFleetLaunchSpecification (Maybe IAMInstanceProfileSpecification) +sflsIAMInstanceProfile = lens _sflsIAMInstanceProfile (\ s a -> s{_sflsIAMInstanceProfile = a}) + +-- | The ID of the AMI. +sflsImageId :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsImageId = lens _sflsImageId (\ s a -> s{_sflsImageId = a}) + +-- | Deprecated. +sflsAddressingType :: Lens' SpotFleetLaunchSpecification (Maybe Text) +sflsAddressingType = lens _sflsAddressingType (\ s a -> s{_sflsAddressingType = a}) + +-- | One or more block device mapping entries. You can't specify both a snapshot ID and an encryption value. This is because only blank volumes can be encrypted on creation. If a snapshot is the basis for a volume, it is not blank and its encryption status is used for the volume encryption status. +sflsBlockDeviceMappings :: Lens' SpotFleetLaunchSpecification [BlockDeviceMapping] +sflsBlockDeviceMappings = lens _sflsBlockDeviceMappings (\ s a -> s{_sflsBlockDeviceMappings = a}) . _Default . _Coerce + +-- | The placement information. +sflsPlacement :: Lens' SpotFleetLaunchSpecification (Maybe SpotPlacement) +sflsPlacement = lens _sflsPlacement (\ s a -> s{_sflsPlacement = a}) + +instance FromXML SpotFleetLaunchSpecification where + parseXML x + = SpotFleetLaunchSpecification' <$> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "spotPrice") + <*> (x .@? "weightedCapacity") + <*> (x .@? "keyName") + <*> + (x .@? "networkInterfaceSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "ramdiskId") + <*> (x .@? "subnetId") + <*> (x .@? "kernelId") + <*> (x .@? "instanceType") + <*> (x .@? "ebsOptimized") + <*> (x .@? "userData") + <*> (x .@? "monitoring") + <*> + (x .@? "tagSpecificationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "iamInstanceProfile") + <*> (x .@? "imageId") + <*> (x .@? "addressingType") + <*> + (x .@? "blockDeviceMapping" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "placement") + +instance Hashable SpotFleetLaunchSpecification where + +instance NFData SpotFleetLaunchSpecification where + +instance ToQuery SpotFleetLaunchSpecification where + toQuery SpotFleetLaunchSpecification'{..} + = mconcat + [toQuery + (toQueryList "GroupSet" <$> _sflsSecurityGroups), + "SpotPrice" =: _sflsSpotPrice, + "WeightedCapacity" =: _sflsWeightedCapacity, + "KeyName" =: _sflsKeyName, + toQuery + (toQueryList "NetworkInterfaceSet" <$> + _sflsNetworkInterfaces), + "RamdiskId" =: _sflsRAMDiskId, + "SubnetId" =: _sflsSubnetId, + "KernelId" =: _sflsKernelId, + "InstanceType" =: _sflsInstanceType, + "EbsOptimized" =: _sflsEBSOptimized, + "UserData" =: _sflsUserData, + "Monitoring" =: _sflsMonitoring, + toQuery + (toQueryList "TagSpecificationSet" <$> + _sflsTagSpecifications), + "IamInstanceProfile" =: _sflsIAMInstanceProfile, + "ImageId" =: _sflsImageId, + "AddressingType" =: _sflsAddressingType, + toQuery + (toQueryList "BlockDeviceMapping" <$> + _sflsBlockDeviceMappings), + "Placement" =: _sflsPlacement] + +-- | Describes whether monitoring is enabled. +-- +-- +-- +-- /See:/ 'spotFleetMonitoring' smart constructor. +newtype SpotFleetMonitoring = SpotFleetMonitoring' + { _sfmEnabled :: Maybe Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotFleetMonitoring' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sfmEnabled' - Enables monitoring for the instance. Default: @false@ +spotFleetMonitoring + :: SpotFleetMonitoring +spotFleetMonitoring = SpotFleetMonitoring' {_sfmEnabled = Nothing} + + +-- | Enables monitoring for the instance. Default: @false@ +sfmEnabled :: Lens' SpotFleetMonitoring (Maybe Bool) +sfmEnabled = lens _sfmEnabled (\ s a -> s{_sfmEnabled = a}) + +instance FromXML SpotFleetMonitoring where + parseXML x + = SpotFleetMonitoring' <$> (x .@? "enabled") + +instance Hashable SpotFleetMonitoring where + +instance NFData SpotFleetMonitoring where + +instance ToQuery SpotFleetMonitoring where + toQuery SpotFleetMonitoring'{..} + = mconcat ["Enabled" =: _sfmEnabled] + +-- | Describes a Spot Fleet request. +-- +-- +-- +-- /See:/ 'spotFleetRequestConfig' smart constructor. +data SpotFleetRequestConfig = SpotFleetRequestConfig' + { _sfrcActivityStatus :: !(Maybe ActivityStatus) + , _sfrcCreateTime :: !ISO8601 + , _sfrcSpotFleetRequestConfig :: !SpotFleetRequestConfigData + , _sfrcSpotFleetRequestId :: !Text + , _sfrcSpotFleetRequestState :: !BatchState + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotFleetRequestConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sfrcActivityStatus' - The progress of the Spot Fleet request. If there is an error, the status is @error@ . After all requests are placed, the status is @pending_fulfillment@ . If the size of the fleet is equal to or greater than its target capacity, the status is @fulfilled@ . If the size of the fleet is decreased, the status is @pending_termination@ while Spot Instances are terminating. +-- +-- * 'sfrcCreateTime' - The creation date and time of the request. +-- +-- * 'sfrcSpotFleetRequestConfig' - The configuration of the Spot Fleet request. +-- +-- * 'sfrcSpotFleetRequestId' - The ID of the Spot Fleet request. +-- +-- * 'sfrcSpotFleetRequestState' - The state of the Spot Fleet request. +spotFleetRequestConfig + :: UTCTime -- ^ 'sfrcCreateTime' + -> SpotFleetRequestConfigData -- ^ 'sfrcSpotFleetRequestConfig' + -> Text -- ^ 'sfrcSpotFleetRequestId' + -> BatchState -- ^ 'sfrcSpotFleetRequestState' + -> SpotFleetRequestConfig +spotFleetRequestConfig pCreateTime_ pSpotFleetRequestConfig_ pSpotFleetRequestId_ pSpotFleetRequestState_ = + SpotFleetRequestConfig' + { _sfrcActivityStatus = Nothing + , _sfrcCreateTime = _Time # pCreateTime_ + , _sfrcSpotFleetRequestConfig = pSpotFleetRequestConfig_ + , _sfrcSpotFleetRequestId = pSpotFleetRequestId_ + , _sfrcSpotFleetRequestState = pSpotFleetRequestState_ + } + + +-- | The progress of the Spot Fleet request. If there is an error, the status is @error@ . After all requests are placed, the status is @pending_fulfillment@ . If the size of the fleet is equal to or greater than its target capacity, the status is @fulfilled@ . If the size of the fleet is decreased, the status is @pending_termination@ while Spot Instances are terminating. +sfrcActivityStatus :: Lens' SpotFleetRequestConfig (Maybe ActivityStatus) +sfrcActivityStatus = lens _sfrcActivityStatus (\ s a -> s{_sfrcActivityStatus = a}) + +-- | The creation date and time of the request. +sfrcCreateTime :: Lens' SpotFleetRequestConfig UTCTime +sfrcCreateTime = lens _sfrcCreateTime (\ s a -> s{_sfrcCreateTime = a}) . _Time + +-- | The configuration of the Spot Fleet request. +sfrcSpotFleetRequestConfig :: Lens' SpotFleetRequestConfig SpotFleetRequestConfigData +sfrcSpotFleetRequestConfig = lens _sfrcSpotFleetRequestConfig (\ s a -> s{_sfrcSpotFleetRequestConfig = a}) + +-- | The ID of the Spot Fleet request. +sfrcSpotFleetRequestId :: Lens' SpotFleetRequestConfig Text +sfrcSpotFleetRequestId = lens _sfrcSpotFleetRequestId (\ s a -> s{_sfrcSpotFleetRequestId = a}) + +-- | The state of the Spot Fleet request. +sfrcSpotFleetRequestState :: Lens' SpotFleetRequestConfig BatchState +sfrcSpotFleetRequestState = lens _sfrcSpotFleetRequestState (\ s a -> s{_sfrcSpotFleetRequestState = a}) + +instance FromXML SpotFleetRequestConfig where + parseXML x + = SpotFleetRequestConfig' <$> + (x .@? "activityStatus") <*> (x .@ "createTime") <*> + (x .@ "spotFleetRequestConfig") + <*> (x .@ "spotFleetRequestId") + <*> (x .@ "spotFleetRequestState") + +instance Hashable SpotFleetRequestConfig where + +instance NFData SpotFleetRequestConfig where + +-- | Describes the configuration of a Spot Fleet request. +-- +-- +-- +-- /See:/ 'spotFleetRequestConfigData' smart constructor. +data SpotFleetRequestConfigData = SpotFleetRequestConfigData' + { _sfrcdClientToken :: !(Maybe Text) + , _sfrcdInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) + , _sfrcdSpotPrice :: !(Maybe Text) + , _sfrcdLoadBalancersConfig :: !(Maybe LoadBalancersConfig) + , _sfrcdExcessCapacityTerminationPolicy :: !(Maybe ExcessCapacityTerminationPolicy) + , _sfrcdOnDemandTargetCapacity :: !(Maybe Int) + , _sfrcdLaunchTemplateConfigs :: !(Maybe [LaunchTemplateConfig]) + , _sfrcdValidUntil :: !(Maybe ISO8601) + , _sfrcdTerminateInstancesWithExpiration :: !(Maybe Bool) + , _sfrcdFulfilledCapacity :: !(Maybe Double) + , _sfrcdType :: !(Maybe FleetType) + , _sfrcdValidFrom :: !(Maybe ISO8601) + , _sfrcdReplaceUnhealthyInstances :: !(Maybe Bool) + , _sfrcdLaunchSpecifications :: !(Maybe [SpotFleetLaunchSpecification]) + , _sfrcdOnDemandFulfilledCapacity :: !(Maybe Double) + , _sfrcdAllocationStrategy :: !(Maybe AllocationStrategy) + , _sfrcdIAMFleetRole :: !Text + , _sfrcdTargetCapacity :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotFleetRequestConfigData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sfrcdClientToken' - A unique, case-sensitive identifier that you provide to ensure the idempotency of your listings. This helps to avoid duplicate listings. For more information, see . +-- +-- * 'sfrcdInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. The default is @terminate@ . +-- +-- * 'sfrcdSpotPrice' - The maximum price per unit hour that you are willing to pay for a Spot Instance. The default is the On-Demand price. +-- +-- * 'sfrcdLoadBalancersConfig' - One or more Classic Load Balancers and target groups to attach to the Spot Fleet request. Spot Fleet registers the running Spot Instances with the specified Classic Load Balancers and target groups. With Network Load Balancers, Spot Fleet cannot register instances that have the following instance types: C1, CC1, CC2, CG1, CG2, CR1, CS1, G1, G2, HI1, HS1, M1, M2, M3, and T1. +-- +-- * 'sfrcdExcessCapacityTerminationPolicy' - 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. +-- +-- * 'sfrcdOnDemandTargetCapacity' - The number of On-Demand units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +-- +-- * 'sfrcdLaunchTemplateConfigs' - The launch template and overrides. +-- +-- * 'sfrcdValidUntil' - 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 able to fulfill the request. The default end date is 7 days from the current date. +-- +-- * 'sfrcdTerminateInstancesWithExpiration' - Indicates whether running Spot Instances should be terminated when the Spot Fleet request expires. +-- +-- * 'sfrcdFulfilledCapacity' - The number of units fulfilled by this request compared to the set target capacity. +-- +-- * 'sfrcdType' - The type of request. Indicates whether the Spot Fleet only requests the target capacity or also attempts to maintain it. When this value is @request@ , the Spot Fleet only places the required requests. It does not attempt to replenish Spot Instances if capacity is diminished, nor does it submit requests in alternative Spot pools if capacity is not available. To maintain a certain target capacity, the Spot Fleet places the required requests to meet capacity and automatically replenishes any interrupted instances. Default: @maintain@ . +-- +-- * 'sfrcdValidFrom' - The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. +-- +-- * 'sfrcdReplaceUnhealthyInstances' - Indicates whether Spot Fleet should replace unhealthy instances. +-- +-- * 'sfrcdLaunchSpecifications' - The launch specifications for the Spot Fleet request. +-- +-- * 'sfrcdOnDemandFulfilledCapacity' - The number of On-Demand units fulfilled by this request compared to the set target On-Demand capacity. +-- +-- * 'sfrcdAllocationStrategy' - Indicates how to allocate the target capacity across the Spot pools specified by the Spot Fleet request. The default is @lowestPrice@ . +-- +-- * 'sfrcdIAMFleetRole' - Grants the Spot Fleet permission to terminate Spot Instances on your behalf when you cancel its Spot Fleet request using 'CancelSpotFleetRequests' or when the Spot Fleet request expires, if you set @terminateInstancesWithExpiration@ . +-- +-- * 'sfrcdTargetCapacity' - The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +spotFleetRequestConfigData + :: Text -- ^ 'sfrcdIAMFleetRole' + -> Int -- ^ 'sfrcdTargetCapacity' + -> SpotFleetRequestConfigData +spotFleetRequestConfigData pIAMFleetRole_ pTargetCapacity_ = + SpotFleetRequestConfigData' + { _sfrcdClientToken = Nothing + , _sfrcdInstanceInterruptionBehavior = Nothing + , _sfrcdSpotPrice = Nothing + , _sfrcdLoadBalancersConfig = Nothing + , _sfrcdExcessCapacityTerminationPolicy = Nothing + , _sfrcdOnDemandTargetCapacity = Nothing + , _sfrcdLaunchTemplateConfigs = Nothing + , _sfrcdValidUntil = Nothing + , _sfrcdTerminateInstancesWithExpiration = Nothing + , _sfrcdFulfilledCapacity = Nothing + , _sfrcdType = Nothing + , _sfrcdValidFrom = Nothing + , _sfrcdReplaceUnhealthyInstances = Nothing + , _sfrcdLaunchSpecifications = Nothing + , _sfrcdOnDemandFulfilledCapacity = Nothing + , _sfrcdAllocationStrategy = Nothing + , _sfrcdIAMFleetRole = pIAMFleetRole_ + , _sfrcdTargetCapacity = pTargetCapacity_ + } + + +-- | A unique, case-sensitive identifier that you provide to ensure the idempotency of your listings. This helps to avoid duplicate listings. For more information, see . +sfrcdClientToken :: Lens' SpotFleetRequestConfigData (Maybe Text) +sfrcdClientToken = lens _sfrcdClientToken (\ s a -> s{_sfrcdClientToken = a}) + +-- | The behavior when a Spot Instance is interrupted. The default is @terminate@ . +sfrcdInstanceInterruptionBehavior :: Lens' SpotFleetRequestConfigData (Maybe InstanceInterruptionBehavior) +sfrcdInstanceInterruptionBehavior = lens _sfrcdInstanceInterruptionBehavior (\ s a -> s{_sfrcdInstanceInterruptionBehavior = a}) + +-- | The maximum price per unit hour that you are willing to pay for a Spot Instance. The default is the On-Demand price. +sfrcdSpotPrice :: Lens' SpotFleetRequestConfigData (Maybe Text) +sfrcdSpotPrice = lens _sfrcdSpotPrice (\ s a -> s{_sfrcdSpotPrice = a}) + +-- | One or more Classic Load Balancers and target groups to attach to the Spot Fleet request. Spot Fleet registers the running Spot Instances with the specified Classic Load Balancers and target groups. With Network Load Balancers, Spot Fleet cannot register instances that have the following instance types: C1, CC1, CC2, CG1, CG2, CR1, CS1, G1, G2, HI1, HS1, M1, M2, M3, and T1. +sfrcdLoadBalancersConfig :: Lens' SpotFleetRequestConfigData (Maybe LoadBalancersConfig) +sfrcdLoadBalancersConfig = lens _sfrcdLoadBalancersConfig (\ s a -> s{_sfrcdLoadBalancersConfig = 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 number of On-Demand units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +sfrcdOnDemandTargetCapacity :: Lens' SpotFleetRequestConfigData (Maybe Int) +sfrcdOnDemandTargetCapacity = lens _sfrcdOnDemandTargetCapacity (\ s a -> s{_sfrcdOnDemandTargetCapacity = a}) + +-- | The launch template and overrides. +sfrcdLaunchTemplateConfigs :: Lens' SpotFleetRequestConfigData [LaunchTemplateConfig] +sfrcdLaunchTemplateConfigs = lens _sfrcdLaunchTemplateConfigs (\ s a -> s{_sfrcdLaunchTemplateConfigs = a}) . _Default . _Coerce + +-- | 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 able to fulfill the request. The default end date is 7 days from the current date. +sfrcdValidUntil :: Lens' SpotFleetRequestConfigData (Maybe UTCTime) +sfrcdValidUntil = lens _sfrcdValidUntil (\ s a -> s{_sfrcdValidUntil = a}) . mapping _Time + +-- | Indicates whether running Spot Instances should be terminated when the Spot Fleet request expires. +sfrcdTerminateInstancesWithExpiration :: Lens' SpotFleetRequestConfigData (Maybe Bool) +sfrcdTerminateInstancesWithExpiration = lens _sfrcdTerminateInstancesWithExpiration (\ s a -> s{_sfrcdTerminateInstancesWithExpiration = a}) + +-- | The number of units fulfilled by this request compared to the set target capacity. +sfrcdFulfilledCapacity :: Lens' SpotFleetRequestConfigData (Maybe Double) +sfrcdFulfilledCapacity = lens _sfrcdFulfilledCapacity (\ s a -> s{_sfrcdFulfilledCapacity = a}) + +-- | The type of request. Indicates whether the Spot Fleet only requests the target capacity or also attempts to maintain it. When this value is @request@ , the Spot Fleet only places the required requests. It does not attempt to replenish Spot Instances if capacity is diminished, nor does it submit requests in alternative Spot pools if capacity is not available. To maintain a certain target capacity, the Spot Fleet places the required requests to meet capacity and automatically replenishes any interrupted instances. Default: @maintain@ . +sfrcdType :: Lens' SpotFleetRequestConfigData (Maybe FleetType) +sfrcdType = lens _sfrcdType (\ s a -> s{_sfrcdType = a}) + +-- | The start date and time of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The default is to start fulfilling the request immediately. +sfrcdValidFrom :: Lens' SpotFleetRequestConfigData (Maybe UTCTime) +sfrcdValidFrom = lens _sfrcdValidFrom (\ s a -> s{_sfrcdValidFrom = a}) . mapping _Time + +-- | Indicates whether Spot Fleet should replace unhealthy instances. +sfrcdReplaceUnhealthyInstances :: Lens' SpotFleetRequestConfigData (Maybe Bool) +sfrcdReplaceUnhealthyInstances = lens _sfrcdReplaceUnhealthyInstances (\ s a -> s{_sfrcdReplaceUnhealthyInstances = a}) + +-- | The launch specifications for the Spot Fleet request. +sfrcdLaunchSpecifications :: Lens' SpotFleetRequestConfigData [SpotFleetLaunchSpecification] +sfrcdLaunchSpecifications = lens _sfrcdLaunchSpecifications (\ s a -> s{_sfrcdLaunchSpecifications = a}) . _Default . _Coerce + +-- | The number of On-Demand units fulfilled by this request compared to the set target On-Demand capacity. +sfrcdOnDemandFulfilledCapacity :: Lens' SpotFleetRequestConfigData (Maybe Double) +sfrcdOnDemandFulfilledCapacity = lens _sfrcdOnDemandFulfilledCapacity (\ s a -> s{_sfrcdOnDemandFulfilledCapacity = a}) + +-- | 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}) + +-- | Grants the Spot Fleet permission to terminate Spot Instances on your behalf when you cancel its Spot Fleet request using 'CancelSpotFleetRequests' or when the Spot Fleet request expires, if you set @terminateInstancesWithExpiration@ . +sfrcdIAMFleetRole :: Lens' SpotFleetRequestConfigData Text +sfrcdIAMFleetRole = lens _sfrcdIAMFleetRole (\ s a -> s{_sfrcdIAMFleetRole = a}) + +-- | The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +sfrcdTargetCapacity :: Lens' SpotFleetRequestConfigData Int +sfrcdTargetCapacity = lens _sfrcdTargetCapacity (\ s a -> s{_sfrcdTargetCapacity = a}) + +instance FromXML SpotFleetRequestConfigData where + parseXML x + = SpotFleetRequestConfigData' <$> + (x .@? "clientToken") <*> + (x .@? "instanceInterruptionBehavior") + <*> (x .@? "spotPrice") + <*> (x .@? "loadBalancersConfig") + <*> (x .@? "excessCapacityTerminationPolicy") + <*> (x .@? "onDemandTargetCapacity") + <*> + (x .@? "launchTemplateConfigs" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "validUntil") + <*> (x .@? "terminateInstancesWithExpiration") + <*> (x .@? "fulfilledCapacity") + <*> (x .@? "type") + <*> (x .@? "validFrom") + <*> (x .@? "replaceUnhealthyInstances") + <*> + (x .@? "launchSpecifications" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "onDemandFulfilledCapacity") + <*> (x .@? "allocationStrategy") + <*> (x .@ "iamFleetRole") + <*> (x .@ "targetCapacity") + +instance Hashable SpotFleetRequestConfigData where + +instance NFData SpotFleetRequestConfigData where + +instance ToQuery SpotFleetRequestConfigData where + toQuery SpotFleetRequestConfigData'{..} + = mconcat + ["ClientToken" =: _sfrcdClientToken, + "InstanceInterruptionBehavior" =: + _sfrcdInstanceInterruptionBehavior, + "SpotPrice" =: _sfrcdSpotPrice, + "LoadBalancersConfig" =: _sfrcdLoadBalancersConfig, + "ExcessCapacityTerminationPolicy" =: + _sfrcdExcessCapacityTerminationPolicy, + "OnDemandTargetCapacity" =: + _sfrcdOnDemandTargetCapacity, + toQuery + (toQueryList "LaunchTemplateConfigs" <$> + _sfrcdLaunchTemplateConfigs), + "ValidUntil" =: _sfrcdValidUntil, + "TerminateInstancesWithExpiration" =: + _sfrcdTerminateInstancesWithExpiration, + "FulfilledCapacity" =: _sfrcdFulfilledCapacity, + "Type" =: _sfrcdType, "ValidFrom" =: _sfrcdValidFrom, + "ReplaceUnhealthyInstances" =: + _sfrcdReplaceUnhealthyInstances, + toQuery + (toQueryList "LaunchSpecifications" <$> + _sfrcdLaunchSpecifications), + "OnDemandFulfilledCapacity" =: + _sfrcdOnDemandFulfilledCapacity, + "AllocationStrategy" =: _sfrcdAllocationStrategy, + "IamFleetRole" =: _sfrcdIAMFleetRole, + "TargetCapacity" =: _sfrcdTargetCapacity] + +-- | The tags for a Spot Fleet resource. +-- +-- +-- +-- /See:/ 'spotFleetTagSpecification' smart constructor. +data SpotFleetTagSpecification = SpotFleetTagSpecification' + { _sftsResourceType :: !(Maybe ResourceType) + , _sftsTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotFleetTagSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sftsResourceType' - The type of resource. Currently, the only resource type that is supported is @instance@ . +-- +-- * 'sftsTags' - The tags. +spotFleetTagSpecification + :: SpotFleetTagSpecification +spotFleetTagSpecification = + SpotFleetTagSpecification' {_sftsResourceType = Nothing, _sftsTags = Nothing} + + +-- | The type of resource. Currently, the only resource type that is supported is @instance@ . +sftsResourceType :: Lens' SpotFleetTagSpecification (Maybe ResourceType) +sftsResourceType = lens _sftsResourceType (\ s a -> s{_sftsResourceType = a}) + +-- | The tags. +sftsTags :: Lens' SpotFleetTagSpecification [Tag] +sftsTags = lens _sftsTags (\ s a -> s{_sftsTags = a}) . _Default . _Coerce + +instance FromXML SpotFleetTagSpecification where + parseXML x + = SpotFleetTagSpecification' <$> + (x .@? "resourceType") <*> + (x .@? "tag" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable SpotFleetTagSpecification where + +instance NFData SpotFleetTagSpecification where + +instance ToQuery SpotFleetTagSpecification where + toQuery SpotFleetTagSpecification'{..} + = mconcat + ["ResourceType" =: _sftsResourceType, + toQuery (toQueryList "Tag" <$> _sftsTags)] + +-- | 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) + , _sirInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) + , _sirProductDescription :: !(Maybe RIProductDescription) + , _sirSpotPrice :: !(Maybe Text) + , _sirLaunchSpecification :: !(Maybe LaunchSpecification) + , _sirAvailabilityZoneGroup :: !(Maybe Text) + , _sirLaunchedAvailabilityZone :: !(Maybe Text) + , _sirValidUntil :: !(Maybe ISO8601) + , _sirLaunchGroup :: !(Maybe Text) + , _sirFault :: !(Maybe SpotInstanceStateFault) + , _sirSpotInstanceRequestId :: !(Maybe Text) + , _sirType :: !(Maybe SpotInstanceType) + , _sirValidFrom :: !(Maybe ISO8601) + , _sirCreateTime :: !(Maybe ISO8601) + , _sirTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotInstanceRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sirInstanceId' - The instance ID, if an instance has been launched to fulfill the Spot Instance request. +-- +-- * 'sirStatus' - The status code and status message describing the Spot Instance request. +-- +-- * 'sirState' - The state of the Spot Instance request. Spot status information helps track your Spot Instance requests. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . +-- +-- * 'sirActualBlockHourlyPrice' - If you specified a duration and your Spot Instance request was fulfilled, this is the fixed hourly price in effect for the Spot Instance while it runs. +-- +-- * 'sirBlockDurationMinutes' - The duration for the Spot Instance, in minutes. +-- +-- * 'sirInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. +-- +-- * 'sirProductDescription' - The product description associated with the Spot Instance. +-- +-- * 'sirSpotPrice' - The maximum price per hour that you are willing to pay for a Spot Instance. +-- +-- * 'sirLaunchSpecification' - Additional information for launching instances. +-- +-- * 'sirAvailabilityZoneGroup' - The Availability Zone group. If you specify the same Availability Zone group for all Spot Instance requests, all Spot Instances are launched in the same Availability Zone. +-- +-- * 'sirLaunchedAvailabilityZone' - The Availability Zone in which the request is launched. +-- +-- * 'sirValidUntil' - 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, 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. The default end date is 7 days from the current date. +-- +-- * 'sirLaunchGroup' - The instance launch group. Launch groups are Spot Instances that launch together and terminate together. +-- +-- * 'sirFault' - The fault codes for the Spot Instance request, if any. +-- +-- * 'sirSpotInstanceRequestId' - The ID of the Spot Instance request. +-- +-- * 'sirType' - The Spot Instance request type. +-- +-- * 'sirValidFrom' - The start date of the request, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). The request becomes active at this date and time. +-- +-- * 'sirCreateTime' - The date and time when the Spot Instance request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +-- +-- * 'sirTags' - Any tags assigned to the resource. +spotInstanceRequest + :: SpotInstanceRequest +spotInstanceRequest = + SpotInstanceRequest' + { _sirInstanceId = Nothing + , _sirStatus = Nothing + , _sirState = Nothing + , _sirActualBlockHourlyPrice = Nothing + , _sirBlockDurationMinutes = Nothing + , _sirInstanceInterruptionBehavior = Nothing + , _sirProductDescription = Nothing + , _sirSpotPrice = Nothing + , _sirLaunchSpecification = Nothing + , _sirAvailabilityZoneGroup = Nothing + , _sirLaunchedAvailabilityZone = Nothing + , _sirValidUntil = Nothing + , _sirLaunchGroup = Nothing + , _sirFault = Nothing + , _sirSpotInstanceRequestId = Nothing + , _sirType = Nothing + , _sirValidFrom = Nothing + , _sirCreateTime = Nothing + , _sirTags = Nothing + } + + +-- | The instance ID, if an instance has been launched to fulfill the Spot Instance request. +sirInstanceId :: Lens' SpotInstanceRequest (Maybe Text) +sirInstanceId = lens _sirInstanceId (\ s a -> s{_sirInstanceId = a}) + +-- | The status code and status message describing the Spot Instance request. +sirStatus :: Lens' SpotInstanceRequest (Maybe SpotInstanceStatus) +sirStatus = lens _sirStatus (\ s a -> s{_sirStatus = a}) + +-- | The state of the Spot Instance request. Spot status information helps track your Spot Instance requests. For more information, see in the /Amazon EC2 User Guide for Linux Instances/ . +sirState :: Lens' SpotInstanceRequest (Maybe SpotInstanceState) +sirState = lens _sirState (\ s a -> s{_sirState = a}) + +-- | If you specified a duration and your Spot Instance 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 duration for the Spot Instance, in minutes. +sirBlockDurationMinutes :: Lens' SpotInstanceRequest (Maybe Int) +sirBlockDurationMinutes = lens _sirBlockDurationMinutes (\ s a -> s{_sirBlockDurationMinutes = a}) + +-- | The behavior when a Spot Instance is interrupted. +sirInstanceInterruptionBehavior :: Lens' SpotInstanceRequest (Maybe InstanceInterruptionBehavior) +sirInstanceInterruptionBehavior = lens _sirInstanceInterruptionBehavior (\ s a -> s{_sirInstanceInterruptionBehavior = a}) + +-- | The product description associated with the Spot Instance. +sirProductDescription :: Lens' SpotInstanceRequest (Maybe RIProductDescription) +sirProductDescription = lens _sirProductDescription (\ s a -> s{_sirProductDescription = a}) + +-- | The maximum price per hour that you are willing to pay for a Spot Instance. +sirSpotPrice :: Lens' SpotInstanceRequest (Maybe Text) +sirSpotPrice = lens _sirSpotPrice (\ s a -> s{_sirSpotPrice = a}) + +-- | Additional information for launching instances. +sirLaunchSpecification :: Lens' SpotInstanceRequest (Maybe LaunchSpecification) +sirLaunchSpecification = lens _sirLaunchSpecification (\ s a -> s{_sirLaunchSpecification = a}) + +-- | The Availability Zone group. If you specify the same Availability Zone group for all Spot Instance requests, all Spot Instances are launched in the same Availability Zone. +sirAvailabilityZoneGroup :: Lens' SpotInstanceRequest (Maybe Text) +sirAvailabilityZoneGroup = lens _sirAvailabilityZoneGroup (\ s a -> s{_sirAvailabilityZoneGroup = a}) + +-- | The Availability Zone in which the request is launched. +sirLaunchedAvailabilityZone :: Lens' SpotInstanceRequest (Maybe Text) +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, 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. The default end date is 7 days from the current date. +sirValidUntil :: Lens' SpotInstanceRequest (Maybe UTCTime) +sirValidUntil = lens _sirValidUntil (\ s a -> s{_sirValidUntil = a}) . mapping _Time + +-- | The instance launch group. Launch groups are Spot Instances that launch together and terminate together. +sirLaunchGroup :: Lens' SpotInstanceRequest (Maybe Text) +sirLaunchGroup = lens _sirLaunchGroup (\ s a -> s{_sirLaunchGroup = a}) + +-- | The fault codes for the Spot Instance request, if any. +sirFault :: Lens' SpotInstanceRequest (Maybe SpotInstanceStateFault) +sirFault = lens _sirFault (\ s a -> s{_sirFault = a}) + +-- | The ID of the Spot Instance request. +sirSpotInstanceRequestId :: Lens' SpotInstanceRequest (Maybe Text) +sirSpotInstanceRequestId = lens _sirSpotInstanceRequestId (\ s a -> s{_sirSpotInstanceRequestId = a}) + +-- | The Spot Instance request type. +sirType :: Lens' SpotInstanceRequest (Maybe SpotInstanceType) +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). The request becomes active at this date and time. +sirValidFrom :: Lens' SpotInstanceRequest (Maybe UTCTime) +sirValidFrom = lens _sirValidFrom (\ s a -> s{_sirValidFrom = a}) . mapping _Time + +-- | The date and time when the Spot Instance request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +sirCreateTime :: Lens' SpotInstanceRequest (Maybe UTCTime) +sirCreateTime = lens _sirCreateTime (\ s a -> s{_sirCreateTime = a}) . mapping _Time + +-- | Any tags assigned to the resource. +sirTags :: Lens' SpotInstanceRequest [Tag] +sirTags = lens _sirTags (\ s a -> s{_sirTags = a}) . _Default . _Coerce + +instance FromXML SpotInstanceRequest where + parseXML x + = SpotInstanceRequest' <$> + (x .@? "instanceId") <*> (x .@? "status") <*> + (x .@? "state") + <*> (x .@? "actualBlockHourlyPrice") + <*> (x .@? "blockDurationMinutes") + <*> (x .@? "instanceInterruptionBehavior") + <*> (x .@? "productDescription") + <*> (x .@? "spotPrice") + <*> (x .@? "launchSpecification") + <*> (x .@? "availabilityZoneGroup") + <*> (x .@? "launchedAvailabilityZone") + <*> (x .@? "validUntil") + <*> (x .@? "launchGroup") + <*> (x .@? "fault") + <*> (x .@? "spotInstanceRequestId") + <*> (x .@? "type") + <*> (x .@? "validFrom") + <*> (x .@? "createTime") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable SpotInstanceRequest where + +instance NFData SpotInstanceRequest where + +-- | Describes a Spot Instance state change. +-- +-- +-- +-- /See:/ 'spotInstanceStateFault' smart constructor. +data SpotInstanceStateFault = SpotInstanceStateFault' + { _sisfCode :: !(Maybe Text) + , _sisfMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotInstanceStateFault' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sisfCode' - The reason code for the Spot Instance state change. +-- +-- * 'sisfMessage' - The message for the Spot Instance state change. +spotInstanceStateFault + :: SpotInstanceStateFault +spotInstanceStateFault = + SpotInstanceStateFault' {_sisfCode = Nothing, _sisfMessage = Nothing} + + +-- | The reason code for the Spot Instance state change. +sisfCode :: Lens' SpotInstanceStateFault (Maybe Text) +sisfCode = lens _sisfCode (\ s a -> s{_sisfCode = a}) + +-- | The message for the Spot Instance state change. +sisfMessage :: Lens' SpotInstanceStateFault (Maybe Text) +sisfMessage = lens _sisfMessage (\ s a -> s{_sisfMessage = a}) + +instance FromXML SpotInstanceStateFault where + parseXML x + = SpotInstanceStateFault' <$> + (x .@? "code") <*> (x .@? "message") + +instance Hashable SpotInstanceStateFault where + +instance NFData SpotInstanceStateFault where + +-- | Describes the status of a Spot Instance request. +-- +-- +-- +-- /See:/ 'spotInstanceStatus' smart constructor. +data SpotInstanceStatus = SpotInstanceStatus' + { _sisUpdateTime :: !(Maybe ISO8601) + , _sisCode :: !(Maybe Text) + , _sisMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotInstanceStatus' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sisUpdateTime' - The date and time of the most recent status update, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +-- +-- * 'sisCode' - The status code. For a list of status codes, see in the /Amazon EC2 User Guide for Linux Instances/ . +-- +-- * 'sisMessage' - The description for the status code. +spotInstanceStatus + :: SpotInstanceStatus +spotInstanceStatus = + SpotInstanceStatus' + {_sisUpdateTime = Nothing, _sisCode = Nothing, _sisMessage = Nothing} + + +-- | The date and time of the most recent status update, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +sisUpdateTime :: Lens' SpotInstanceStatus (Maybe UTCTime) +sisUpdateTime = lens _sisUpdateTime (\ s a -> s{_sisUpdateTime = a}) . mapping _Time + +-- | The status code. For a list of status codes, see in the /Amazon EC2 User Guide for Linux Instances/ . +sisCode :: Lens' SpotInstanceStatus (Maybe Text) +sisCode = lens _sisCode (\ s a -> s{_sisCode = a}) + +-- | The description for the status code. +sisMessage :: Lens' SpotInstanceStatus (Maybe Text) +sisMessage = lens _sisMessage (\ s a -> s{_sisMessage = a}) + +instance FromXML SpotInstanceStatus where + parseXML x + = SpotInstanceStatus' <$> + (x .@? "updateTime") <*> (x .@? "code") <*> + (x .@? "message") + +instance Hashable SpotInstanceStatus where + +instance NFData SpotInstanceStatus where + +-- | The options for Spot Instances. +-- +-- +-- +-- /See:/ 'spotMarketOptions' smart constructor. +data SpotMarketOptions = SpotMarketOptions' + { _smoBlockDurationMinutes :: !(Maybe Int) + , _smoInstanceInterruptionBehavior :: !(Maybe InstanceInterruptionBehavior) + , _smoValidUntil :: !(Maybe ISO8601) + , _smoSpotInstanceType :: !(Maybe SpotInstanceType) + , _smoMaxPrice :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotMarketOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'smoBlockDurationMinutes' - The required duration for the Spot Instances (also known as Spot blocks), in minutes. This value must be a multiple of 60 (60, 120, 180, 240, 300, or 360). +-- +-- * 'smoInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. The default is @terminate@ . +-- +-- * 'smoValidUntil' - The end date of the request. For 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 and time is reached. The default end date is 7 days from the current date. +-- +-- * 'smoSpotInstanceType' - The Spot Instance request type. +-- +-- * 'smoMaxPrice' - The maximum hourly price you're willing to pay for the Spot Instances. The default is the On-Demand price. +spotMarketOptions + :: SpotMarketOptions +spotMarketOptions = + SpotMarketOptions' + { _smoBlockDurationMinutes = Nothing + , _smoInstanceInterruptionBehavior = Nothing + , _smoValidUntil = Nothing + , _smoSpotInstanceType = Nothing + , _smoMaxPrice = Nothing + } + + +-- | The required duration for the Spot Instances (also known as Spot blocks), in minutes. This value must be a multiple of 60 (60, 120, 180, 240, 300, or 360). +smoBlockDurationMinutes :: Lens' SpotMarketOptions (Maybe Int) +smoBlockDurationMinutes = lens _smoBlockDurationMinutes (\ s a -> s{_smoBlockDurationMinutes = a}) + +-- | The behavior when a Spot Instance is interrupted. The default is @terminate@ . +smoInstanceInterruptionBehavior :: Lens' SpotMarketOptions (Maybe InstanceInterruptionBehavior) +smoInstanceInterruptionBehavior = lens _smoInstanceInterruptionBehavior (\ s a -> s{_smoInstanceInterruptionBehavior = a}) + +-- | The end date of the request. For 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 and time is reached. The default end date is 7 days from the current date. +smoValidUntil :: Lens' SpotMarketOptions (Maybe UTCTime) +smoValidUntil = lens _smoValidUntil (\ s a -> s{_smoValidUntil = a}) . mapping _Time + +-- | The Spot Instance request type. +smoSpotInstanceType :: Lens' SpotMarketOptions (Maybe SpotInstanceType) +smoSpotInstanceType = lens _smoSpotInstanceType (\ s a -> s{_smoSpotInstanceType = a}) + +-- | The maximum hourly price you're willing to pay for the Spot Instances. The default is the On-Demand price. +smoMaxPrice :: Lens' SpotMarketOptions (Maybe Text) +smoMaxPrice = lens _smoMaxPrice (\ s a -> s{_smoMaxPrice = a}) + +instance Hashable SpotMarketOptions where + +instance NFData SpotMarketOptions where + +instance ToQuery SpotMarketOptions where + toQuery SpotMarketOptions'{..} + = mconcat + ["BlockDurationMinutes" =: _smoBlockDurationMinutes, + "InstanceInterruptionBehavior" =: + _smoInstanceInterruptionBehavior, + "ValidUntil" =: _smoValidUntil, + "SpotInstanceType" =: _smoSpotInstanceType, + "MaxPrice" =: _smoMaxPrice] + +-- | Describes the configuration of Spot Instances in an EC2 Fleet. +-- +-- +-- +-- /See:/ 'spotOptions' smart constructor. +data SpotOptions = SpotOptions' + { _soInstanceInterruptionBehavior :: !(Maybe SpotInstanceInterruptionBehavior) + , _soAllocationStrategy :: !(Maybe SpotAllocationStrategy) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'soInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. The default is @terminate@ . +-- +-- * 'soAllocationStrategy' - Indicates how to allocate the target capacity across the Spot pools specified by the Spot Fleet request. The default is @lowestPrice@ . +spotOptions + :: SpotOptions +spotOptions = + SpotOptions' + {_soInstanceInterruptionBehavior = Nothing, _soAllocationStrategy = Nothing} + + +-- | The behavior when a Spot Instance is interrupted. The default is @terminate@ . +soInstanceInterruptionBehavior :: Lens' SpotOptions (Maybe SpotInstanceInterruptionBehavior) +soInstanceInterruptionBehavior = lens _soInstanceInterruptionBehavior (\ s a -> s{_soInstanceInterruptionBehavior = a}) + +-- | Indicates how to allocate the target capacity across the Spot pools specified by the Spot Fleet request. The default is @lowestPrice@ . +soAllocationStrategy :: Lens' SpotOptions (Maybe SpotAllocationStrategy) +soAllocationStrategy = lens _soAllocationStrategy (\ s a -> s{_soAllocationStrategy = a}) + +instance FromXML SpotOptions where + parseXML x + = SpotOptions' <$> + (x .@? "instanceInterruptionBehavior") <*> + (x .@? "allocationStrategy") + +instance Hashable SpotOptions where + +instance NFData SpotOptions where + +-- | Describes the configuration of Spot Instances in an EC2 Fleet request. +-- +-- +-- +-- /See:/ 'spotOptionsRequest' smart constructor. +data SpotOptionsRequest = SpotOptionsRequest' + { _sorInstanceInterruptionBehavior :: !(Maybe SpotInstanceInterruptionBehavior) + , _sorAllocationStrategy :: !(Maybe SpotAllocationStrategy) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotOptionsRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sorInstanceInterruptionBehavior' - The behavior when a Spot Instance is interrupted. The default is @terminate@ . +-- +-- * 'sorAllocationStrategy' - Indicates how to allocate the target capacity across the Spot pools specified by the Spot Fleet request. The default is @lowestPrice@ . +spotOptionsRequest + :: SpotOptionsRequest +spotOptionsRequest = + SpotOptionsRequest' + { _sorInstanceInterruptionBehavior = Nothing + , _sorAllocationStrategy = Nothing + } + + +-- | The behavior when a Spot Instance is interrupted. The default is @terminate@ . +sorInstanceInterruptionBehavior :: Lens' SpotOptionsRequest (Maybe SpotInstanceInterruptionBehavior) +sorInstanceInterruptionBehavior = lens _sorInstanceInterruptionBehavior (\ s a -> s{_sorInstanceInterruptionBehavior = a}) + +-- | Indicates how to allocate the target capacity across the Spot pools specified by the Spot Fleet request. The default is @lowestPrice@ . +sorAllocationStrategy :: Lens' SpotOptionsRequest (Maybe SpotAllocationStrategy) +sorAllocationStrategy = lens _sorAllocationStrategy (\ s a -> s{_sorAllocationStrategy = a}) + +instance Hashable SpotOptionsRequest where + +instance NFData SpotOptionsRequest where + +instance ToQuery SpotOptionsRequest where + toQuery SpotOptionsRequest'{..} + = mconcat + ["InstanceInterruptionBehavior" =: + _sorInstanceInterruptionBehavior, + "AllocationStrategy" =: _sorAllocationStrategy] + +-- | Describes Spot Instance placement. +-- +-- +-- +-- /See:/ 'spotPlacement' smart constructor. +data SpotPlacement = SpotPlacement' + { _spAvailabilityZone :: !(Maybe Text) + , _spTenancy :: !(Maybe Tenancy) + , _spGroupName :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotPlacement' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'spAvailabilityZone' - The Availability Zone. [Spot Fleet only] To specify multiple Availability Zones, separate them using commas; for example, "us-west-2a, us-west-2b". +-- +-- * 'spTenancy' - The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for Spot Instances. +-- +-- * 'spGroupName' - The name of the placement group. +spotPlacement + :: SpotPlacement +spotPlacement = + SpotPlacement' + { _spAvailabilityZone = Nothing + , _spTenancy = Nothing + , _spGroupName = Nothing + } + + +-- | The Availability Zone. [Spot Fleet only] To specify multiple Availability Zones, separate them using commas; for example, "us-west-2a, us-west-2b". +spAvailabilityZone :: Lens' SpotPlacement (Maybe Text) +spAvailabilityZone = lens _spAvailabilityZone (\ s a -> s{_spAvailabilityZone = a}) + +-- | The tenancy of the instance (if the instance is running in a VPC). An instance with a tenancy of @dedicated@ runs on single-tenant hardware. The @host@ tenancy is not supported for Spot Instances. +spTenancy :: Lens' SpotPlacement (Maybe Tenancy) +spTenancy = lens _spTenancy (\ s a -> s{_spTenancy = a}) + +-- | The name of the placement group. +spGroupName :: Lens' SpotPlacement (Maybe Text) +spGroupName = lens _spGroupName (\ s a -> s{_spGroupName = a}) + +instance FromXML SpotPlacement where + parseXML x + = SpotPlacement' <$> + (x .@? "availabilityZone") <*> (x .@? "tenancy") <*> + (x .@? "groupName") + +instance Hashable SpotPlacement where + +instance NFData SpotPlacement where + +instance ToQuery SpotPlacement where + toQuery SpotPlacement'{..} + = mconcat + ["AvailabilityZone" =: _spAvailabilityZone, + "Tenancy" =: _spTenancy, "GroupName" =: _spGroupName] + +-- | Describes the maximum price per hour that you are willing to pay for a Spot Instance. +-- +-- +-- +-- /See:/ 'spotPrice' smart constructor. +data SpotPrice = SpotPrice' + { _sProductDescription :: !(Maybe RIProductDescription) + , _sSpotPrice :: !(Maybe Text) + , _sInstanceType :: !(Maybe InstanceType) + , _sAvailabilityZone :: !(Maybe Text) + , _sTimestamp :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SpotPrice' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sProductDescription' - A general description of the AMI. +-- +-- * 'sSpotPrice' - The maximum price per hour that you are willing to pay for a Spot Instance. +-- +-- * 'sInstanceType' - The instance type. +-- +-- * 'sAvailabilityZone' - The Availability Zone. +-- +-- * 'sTimestamp' - The date and time the request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +spotPrice + :: SpotPrice +spotPrice = + SpotPrice' + { _sProductDescription = Nothing + , _sSpotPrice = Nothing + , _sInstanceType = Nothing + , _sAvailabilityZone = Nothing + , _sTimestamp = Nothing + } + + +-- | A general description of the AMI. +sProductDescription :: Lens' SpotPrice (Maybe RIProductDescription) +sProductDescription = lens _sProductDescription (\ s a -> s{_sProductDescription = a}) + +-- | The maximum price per hour that you are willing to pay for a Spot Instance. +sSpotPrice :: Lens' SpotPrice (Maybe Text) +sSpotPrice = lens _sSpotPrice (\ s a -> s{_sSpotPrice = a}) + +-- | The instance type. +sInstanceType :: Lens' SpotPrice (Maybe InstanceType) +sInstanceType = lens _sInstanceType (\ s a -> s{_sInstanceType = a}) + +-- | The Availability Zone. +sAvailabilityZone :: Lens' SpotPrice (Maybe Text) +sAvailabilityZone = lens _sAvailabilityZone (\ s a -> s{_sAvailabilityZone = a}) + +-- | The date and time the request was created, in UTC format (for example, /YYYY/ -/MM/ -/DD/ T/HH/ :/MM/ :/SS/ Z). +sTimestamp :: Lens' SpotPrice (Maybe UTCTime) +sTimestamp = lens _sTimestamp (\ s a -> s{_sTimestamp = a}) . mapping _Time + +instance FromXML SpotPrice where + parseXML x + = SpotPrice' <$> + (x .@? "productDescription") <*> (x .@? "spotPrice") + <*> (x .@? "instanceType") + <*> (x .@? "availabilityZone") + <*> (x .@? "timestamp") + +instance Hashable SpotPrice where + +instance NFData SpotPrice where + +-- | Describes a stale rule in a security group. +-- +-- +-- +-- /See:/ 'staleIPPermission' smart constructor. +data StaleIPPermission = StaleIPPermission' + { _sipFromPort :: !(Maybe Int) + , _sipUserIdGroupPairs :: !(Maybe [UserIdGroupPair]) + , _sipPrefixListIds :: !(Maybe [Text]) + , _sipIPProtocol :: !(Maybe Text) + , _sipToPort :: !(Maybe Int) + , _sipIPRanges :: !(Maybe [Text]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'StaleIPPermission' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sipFromPort' - The start of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. +-- +-- * 'sipUserIdGroupPairs' - One or more security group pairs. Returns the ID of the referenced security group and VPC, and the ID and status of the VPC peering connection. +-- +-- * 'sipPrefixListIds' - One or more prefix list IDs for an AWS service. Not applicable for stale security group rules. +-- +-- * 'sipIPProtocol' - The IP protocol name (for @tcp@ , @udp@ , and @icmp@ ) or number (see . +-- +-- * 'sipToPort' - The end of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. +-- +-- * 'sipIPRanges' - One or more IP ranges. Not applicable for stale security group rules. +staleIPPermission + :: StaleIPPermission +staleIPPermission = + StaleIPPermission' + { _sipFromPort = Nothing + , _sipUserIdGroupPairs = Nothing + , _sipPrefixListIds = Nothing + , _sipIPProtocol = Nothing + , _sipToPort = Nothing + , _sipIPRanges = Nothing + } + + +-- | The start of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. +sipFromPort :: Lens' StaleIPPermission (Maybe Int) +sipFromPort = lens _sipFromPort (\ s a -> s{_sipFromPort = a}) + +-- | One or more security group pairs. Returns the ID of the referenced security group and VPC, and the ID and status of the VPC peering connection. +sipUserIdGroupPairs :: Lens' StaleIPPermission [UserIdGroupPair] +sipUserIdGroupPairs = lens _sipUserIdGroupPairs (\ s a -> s{_sipUserIdGroupPairs = a}) . _Default . _Coerce + +-- | One or more prefix list IDs for an AWS service. Not applicable for stale security group rules. +sipPrefixListIds :: Lens' StaleIPPermission [Text] +sipPrefixListIds = lens _sipPrefixListIds (\ s a -> s{_sipPrefixListIds = a}) . _Default . _Coerce + +-- | The IP protocol name (for @tcp@ , @udp@ , and @icmp@ ) or number (see . +sipIPProtocol :: Lens' StaleIPPermission (Maybe Text) +sipIPProtocol = lens _sipIPProtocol (\ s a -> s{_sipIPProtocol = a}) + +-- | The end of the port range for the TCP and UDP protocols, or an ICMP type number. A value of @-1@ indicates all ICMP types. +sipToPort :: Lens' StaleIPPermission (Maybe Int) +sipToPort = lens _sipToPort (\ s a -> s{_sipToPort = a}) + +-- | One or more IP ranges. Not applicable for stale security group rules. +sipIPRanges :: Lens' StaleIPPermission [Text] +sipIPRanges = lens _sipIPRanges (\ s a -> s{_sipIPRanges = a}) . _Default . _Coerce + +instance FromXML StaleIPPermission where + parseXML x + = StaleIPPermission' <$> + (x .@? "fromPort") <*> + (x .@? "groups" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "prefixListIds" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "ipProtocol") + <*> (x .@? "toPort") + <*> + (x .@? "ipRanges" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable StaleIPPermission where + +instance NFData StaleIPPermission where + +-- | Describes a stale security group (a security group that contains stale rules). +-- +-- +-- +-- /See:/ 'staleSecurityGroup' smart constructor. +data StaleSecurityGroup = StaleSecurityGroup' + { _ssgVPCId :: !(Maybe Text) + , _ssgGroupName :: !(Maybe Text) + , _ssgStaleIPPermissionsEgress :: !(Maybe [StaleIPPermission]) + , _ssgStaleIPPermissions :: !(Maybe [StaleIPPermission]) + , _ssgDescription :: !(Maybe Text) + , _ssgGroupId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'StaleSecurityGroup' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ssgVPCId' - The ID of the VPC for the security group. +-- +-- * 'ssgGroupName' - The name of the security group. +-- +-- * 'ssgStaleIPPermissionsEgress' - Information about the stale outbound rules in the security group. +-- +-- * 'ssgStaleIPPermissions' - Information about the stale inbound rules in the security group. +-- +-- * 'ssgDescription' - The description of the security group. +-- +-- * 'ssgGroupId' - The ID of the security group. +staleSecurityGroup + :: Text -- ^ 'ssgGroupId' + -> StaleSecurityGroup +staleSecurityGroup pGroupId_ = + StaleSecurityGroup' + { _ssgVPCId = Nothing + , _ssgGroupName = Nothing + , _ssgStaleIPPermissionsEgress = Nothing + , _ssgStaleIPPermissions = Nothing + , _ssgDescription = Nothing + , _ssgGroupId = pGroupId_ + } + + +-- | The ID of the VPC for the security group. +ssgVPCId :: Lens' StaleSecurityGroup (Maybe Text) +ssgVPCId = lens _ssgVPCId (\ s a -> s{_ssgVPCId = a}) + +-- | The name of the security group. +ssgGroupName :: Lens' StaleSecurityGroup (Maybe Text) +ssgGroupName = lens _ssgGroupName (\ s a -> s{_ssgGroupName = a}) + +-- | Information about the stale outbound rules in the security group. +ssgStaleIPPermissionsEgress :: Lens' StaleSecurityGroup [StaleIPPermission] +ssgStaleIPPermissionsEgress = lens _ssgStaleIPPermissionsEgress (\ s a -> s{_ssgStaleIPPermissionsEgress = a}) . _Default . _Coerce + +-- | Information about the stale inbound rules in the security group. +ssgStaleIPPermissions :: Lens' StaleSecurityGroup [StaleIPPermission] +ssgStaleIPPermissions = lens _ssgStaleIPPermissions (\ s a -> s{_ssgStaleIPPermissions = a}) . _Default . _Coerce + +-- | The description of the security group. +ssgDescription :: Lens' StaleSecurityGroup (Maybe Text) +ssgDescription = lens _ssgDescription (\ s a -> s{_ssgDescription = a}) + +-- | The ID of the security group. +ssgGroupId :: Lens' StaleSecurityGroup Text +ssgGroupId = lens _ssgGroupId (\ s a -> s{_ssgGroupId = a}) + +instance FromXML StaleSecurityGroup where + parseXML x + = StaleSecurityGroup' <$> + (x .@? "vpcId") <*> (x .@? "groupName") <*> + (x .@? "staleIpPermissionsEgress" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "staleIpPermissions" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "description") + <*> (x .@ "groupId") + +instance Hashable StaleSecurityGroup where + +instance NFData StaleSecurityGroup where + +-- | Describes a state change. +-- +-- +-- +-- /See:/ 'stateReason' smart constructor. +data StateReason = StateReason' + { _srCode :: !(Maybe Text) + , _srMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'StateReason' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'srCode' - The reason code for the state change. +-- +-- * 'srMessage' - The message for the state change. * @Server.InsufficientInstanceCapacity@ : There was insufficient instance capacity to satisfy the launch request. * @Server.InternalError@ : An internal error occurred during instance launch, resulting in termination. * @Server.ScheduledStop@ : The instance was stopped due to a scheduled retirement. * @Server.SpotInstanceTermination@ : A Spot Instance was terminated due to an increase in the Spot price. * @Client.InternalError@ : A client error caused the instance to terminate on launch. * @Client.InstanceInitiatedShutdown@ : The instance was shut down using the @shutdown -h@ command from the instance. * @Client.InstanceTerminated@ : The instance was terminated or rebooted during AMI creation. * @Client.UserInitiatedShutdown@ : The instance was shut down using the Amazon EC2 API. * @Client.VolumeLimitExceeded@ : The limit on the number of EBS volumes or total storage was exceeded. Decrease usage or request an increase in your limits. * @Client.InvalidSnapshot.NotFound@ : The specified snapshot was not found. +stateReason + :: StateReason +stateReason = StateReason' {_srCode = Nothing, _srMessage = Nothing} + + +-- | The reason code for the state change. +srCode :: Lens' StateReason (Maybe Text) +srCode = lens _srCode (\ s a -> s{_srCode = a}) + +-- | The message for the state change. * @Server.InsufficientInstanceCapacity@ : There was insufficient instance capacity to satisfy the launch request. * @Server.InternalError@ : An internal error occurred during instance launch, resulting in termination. * @Server.ScheduledStop@ : The instance was stopped due to a scheduled retirement. * @Server.SpotInstanceTermination@ : A Spot Instance was terminated due to an increase in the Spot price. * @Client.InternalError@ : A client error caused the instance to terminate on launch. * @Client.InstanceInitiatedShutdown@ : The instance was shut down using the @shutdown -h@ command from the instance. * @Client.InstanceTerminated@ : The instance was terminated or rebooted during AMI creation. * @Client.UserInitiatedShutdown@ : The instance was shut down using the Amazon EC2 API. * @Client.VolumeLimitExceeded@ : The limit on the number of EBS volumes or total storage was exceeded. Decrease usage or request an increase in your limits. * @Client.InvalidSnapshot.NotFound@ : The specified snapshot was not found. +srMessage :: Lens' StateReason (Maybe Text) +srMessage = lens _srMessage (\ s a -> s{_srMessage = a}) + +instance FromXML StateReason where + parseXML x + = StateReason' <$> + (x .@? "code") <*> (x .@? "message") + +instance Hashable StateReason where + +instance NFData StateReason where + +-- | Describes the storage location for an instance store-backed AMI. +-- +-- +-- +-- /See:/ 'storage' smart constructor. +newtype Storage = Storage' + { _sS3 :: Maybe S3Storage + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Storage' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sS3' - An Amazon S3 storage location. +storage + :: Storage +storage = Storage' {_sS3 = Nothing} + + +-- | An Amazon S3 storage location. +sS3 :: Lens' Storage (Maybe S3Storage) +sS3 = lens _sS3 (\ s a -> s{_sS3 = a}) + +instance FromXML Storage where + parseXML x = Storage' <$> (x .@? "S3") + +instance Hashable Storage where + +instance NFData Storage where + +instance ToQuery Storage where + toQuery Storage'{..} = mconcat ["S3" =: _sS3] + +-- | Describes a storage location in Amazon S3. +-- +-- +-- +-- /See:/ 'storageLocation' smart constructor. +data StorageLocation = StorageLocation' + { _slBucket :: !(Maybe Text) + , _slKey :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'StorageLocation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'slBucket' - The name of the S3 bucket. +-- +-- * 'slKey' - The key. +storageLocation + :: StorageLocation +storageLocation = StorageLocation' {_slBucket = Nothing, _slKey = Nothing} + + +-- | The name of the S3 bucket. +slBucket :: Lens' StorageLocation (Maybe Text) +slBucket = lens _slBucket (\ s a -> s{_slBucket = a}) + +-- | The key. +slKey :: Lens' StorageLocation (Maybe Text) +slKey = lens _slKey (\ s a -> s{_slKey = a}) + +instance Hashable StorageLocation where + +instance NFData StorageLocation where + +instance ToQuery StorageLocation where + toQuery StorageLocation'{..} + = mconcat ["Bucket" =: _slBucket, "Key" =: _slKey] + +-- | Describes a subnet. +-- +-- +-- +-- /See:/ 'subnet' smart constructor. +data Subnet = Subnet' + { _subIPv6CidrBlockAssociationSet :: !(Maybe [SubnetIPv6CidrBlockAssociation]) + , _subAssignIPv6AddressOnCreation :: !(Maybe Bool) + , _subMapPublicIPOnLaunch :: !(Maybe Bool) + , _subDefaultForAz :: !(Maybe Bool) + , _subTags :: !(Maybe [Tag]) + , _subAvailabilityZone :: !Text + , _subAvailableIPAddressCount :: !Int + , _subCidrBlock :: !Text + , _subState :: !SubnetState + , _subSubnetId :: !Text + , _subVPCId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Subnet' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'subIPv6CidrBlockAssociationSet' - Information about the IPv6 CIDR blocks associated with the subnet. +-- +-- * 'subAssignIPv6AddressOnCreation' - Indicates whether a network interface created in this subnet (including a network interface created by 'RunInstances' ) receives an IPv6 address. +-- +-- * 'subMapPublicIPOnLaunch' - Indicates whether instances launched in this subnet receive a public IPv4 address. +-- +-- * 'subDefaultForAz' - Indicates whether this is the default subnet for the Availability Zone. +-- +-- * 'subTags' - Any tags assigned to the subnet. +-- +-- * 'subAvailabilityZone' - The Availability Zone of the subnet. +-- +-- * 'subAvailableIPAddressCount' - The number of unused private IPv4 addresses in the subnet. Note that the IPv4 addresses for any stopped instances are considered unavailable. +-- +-- * 'subCidrBlock' - The IPv4 CIDR block assigned to the subnet. +-- +-- * 'subState' - The current state of the subnet. +-- +-- * 'subSubnetId' - The ID of the subnet. +-- +-- * 'subVPCId' - The ID of the VPC the subnet is in. +subnet + :: Text -- ^ 'subAvailabilityZone' + -> Int -- ^ 'subAvailableIPAddressCount' + -> Text -- ^ 'subCidrBlock' + -> SubnetState -- ^ 'subState' + -> Text -- ^ 'subSubnetId' + -> Text -- ^ 'subVPCId' + -> Subnet +subnet pAvailabilityZone_ pAvailableIPAddressCount_ pCidrBlock_ pState_ pSubnetId_ pVPCId_ = + Subnet' + { _subIPv6CidrBlockAssociationSet = Nothing + , _subAssignIPv6AddressOnCreation = Nothing + , _subMapPublicIPOnLaunch = Nothing + , _subDefaultForAz = Nothing + , _subTags = Nothing + , _subAvailabilityZone = pAvailabilityZone_ + , _subAvailableIPAddressCount = pAvailableIPAddressCount_ + , _subCidrBlock = pCidrBlock_ + , _subState = pState_ + , _subSubnetId = pSubnetId_ + , _subVPCId = pVPCId_ + } + + +-- | Information about the IPv6 CIDR blocks associated with the subnet. +subIPv6CidrBlockAssociationSet :: Lens' Subnet [SubnetIPv6CidrBlockAssociation] +subIPv6CidrBlockAssociationSet = lens _subIPv6CidrBlockAssociationSet (\ s a -> s{_subIPv6CidrBlockAssociationSet = a}) . _Default . _Coerce + +-- | Indicates whether a network interface created in this subnet (including a network interface created by 'RunInstances' ) receives an IPv6 address. +subAssignIPv6AddressOnCreation :: Lens' Subnet (Maybe Bool) +subAssignIPv6AddressOnCreation = lens _subAssignIPv6AddressOnCreation (\ s a -> s{_subAssignIPv6AddressOnCreation = a}) + +-- | Indicates whether instances launched in this subnet receive a public IPv4 address. +subMapPublicIPOnLaunch :: Lens' Subnet (Maybe Bool) +subMapPublicIPOnLaunch = lens _subMapPublicIPOnLaunch (\ s a -> s{_subMapPublicIPOnLaunch = a}) + +-- | Indicates whether this is the default subnet for the Availability Zone. +subDefaultForAz :: Lens' Subnet (Maybe Bool) +subDefaultForAz = lens _subDefaultForAz (\ s a -> s{_subDefaultForAz = a}) + +-- | Any tags assigned to the subnet. +subTags :: Lens' Subnet [Tag] +subTags = lens _subTags (\ s a -> s{_subTags = a}) . _Default . _Coerce + +-- | The Availability Zone of the subnet. +subAvailabilityZone :: Lens' Subnet Text +subAvailabilityZone = lens _subAvailabilityZone (\ s a -> s{_subAvailabilityZone = a}) + +-- | The number of unused private IPv4 addresses in the subnet. Note that the IPv4 addresses for any stopped instances are considered unavailable. +subAvailableIPAddressCount :: Lens' Subnet Int +subAvailableIPAddressCount = lens _subAvailableIPAddressCount (\ s a -> s{_subAvailableIPAddressCount = a}) + +-- | The IPv4 CIDR block assigned to the subnet. +subCidrBlock :: Lens' Subnet Text +subCidrBlock = lens _subCidrBlock (\ s a -> s{_subCidrBlock = a}) + +-- | The current state of the subnet. +subState :: Lens' Subnet SubnetState +subState = lens _subState (\ s a -> s{_subState = a}) + +-- | The ID of the subnet. +subSubnetId :: Lens' Subnet Text +subSubnetId = lens _subSubnetId (\ s a -> s{_subSubnetId = a}) + +-- | The ID of the VPC the subnet is in. +subVPCId :: Lens' Subnet Text +subVPCId = lens _subVPCId (\ s a -> s{_subVPCId = a}) + +instance FromXML Subnet where + parseXML x + = Subnet' <$> + (x .@? "ipv6CidrBlockAssociationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "assignIpv6AddressOnCreation") + <*> (x .@? "mapPublicIpOnLaunch") + <*> (x .@? "defaultForAz") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "availabilityZone") + <*> (x .@ "availableIpAddressCount") + <*> (x .@ "cidrBlock") + <*> (x .@ "state") + <*> (x .@ "subnetId") + <*> (x .@ "vpcId") + +instance Hashable Subnet where + +instance NFData Subnet where + +-- | Describes the state of a CIDR block. +-- +-- +-- +-- /See:/ 'subnetCidrBlockState' smart constructor. +data SubnetCidrBlockState = SubnetCidrBlockState' + { _scbsState :: !(Maybe SubnetCidrBlockStateCode) + , _scbsStatusMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SubnetCidrBlockState' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'scbsState' - The state of a CIDR block. +-- +-- * 'scbsStatusMessage' - A message about the status of the CIDR block, if applicable. +subnetCidrBlockState + :: SubnetCidrBlockState +subnetCidrBlockState = + SubnetCidrBlockState' {_scbsState = Nothing, _scbsStatusMessage = Nothing} + + +-- | The state of a CIDR block. +scbsState :: Lens' SubnetCidrBlockState (Maybe SubnetCidrBlockStateCode) +scbsState = lens _scbsState (\ s a -> s{_scbsState = a}) + +-- | A message about the status of the CIDR block, if applicable. +scbsStatusMessage :: Lens' SubnetCidrBlockState (Maybe Text) +scbsStatusMessage = lens _scbsStatusMessage (\ s a -> s{_scbsStatusMessage = a}) + +instance FromXML SubnetCidrBlockState where + parseXML x + = SubnetCidrBlockState' <$> + (x .@? "state") <*> (x .@? "statusMessage") + +instance Hashable SubnetCidrBlockState where + +instance NFData SubnetCidrBlockState where + +-- | Describes an IPv6 CIDR block associated with a subnet. +-- +-- +-- +-- /See:/ 'subnetIPv6CidrBlockAssociation' smart constructor. +data SubnetIPv6CidrBlockAssociation = SubnetIPv6CidrBlockAssociation' + { _sicbaAssociationId :: !(Maybe Text) + , _sicbaIPv6CidrBlock :: !(Maybe Text) + , _sicbaIPv6CidrBlockState :: !(Maybe SubnetCidrBlockState) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SubnetIPv6CidrBlockAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sicbaAssociationId' - The association ID for the CIDR block. +-- +-- * 'sicbaIPv6CidrBlock' - The IPv6 CIDR block. +-- +-- * 'sicbaIPv6CidrBlockState' - Information about the state of the CIDR block. +subnetIPv6CidrBlockAssociation + :: SubnetIPv6CidrBlockAssociation +subnetIPv6CidrBlockAssociation = + SubnetIPv6CidrBlockAssociation' + { _sicbaAssociationId = Nothing + , _sicbaIPv6CidrBlock = Nothing + , _sicbaIPv6CidrBlockState = Nothing + } + + +-- | The association ID for the CIDR block. +sicbaAssociationId :: Lens' SubnetIPv6CidrBlockAssociation (Maybe Text) +sicbaAssociationId = lens _sicbaAssociationId (\ s a -> s{_sicbaAssociationId = a}) + +-- | The IPv6 CIDR block. +sicbaIPv6CidrBlock :: Lens' SubnetIPv6CidrBlockAssociation (Maybe Text) +sicbaIPv6CidrBlock = lens _sicbaIPv6CidrBlock (\ s a -> s{_sicbaIPv6CidrBlock = a}) + +-- | Information about the state of the CIDR block. +sicbaIPv6CidrBlockState :: Lens' SubnetIPv6CidrBlockAssociation (Maybe SubnetCidrBlockState) +sicbaIPv6CidrBlockState = lens _sicbaIPv6CidrBlockState (\ s a -> s{_sicbaIPv6CidrBlockState = a}) + +instance FromXML SubnetIPv6CidrBlockAssociation where + parseXML x + = SubnetIPv6CidrBlockAssociation' <$> + (x .@? "associationId") <*> (x .@? "ipv6CidrBlock") + <*> (x .@? "ipv6CidrBlockState") + +instance Hashable SubnetIPv6CidrBlockAssociation + where + +instance NFData SubnetIPv6CidrBlockAssociation where + +-- | Describes the T2 instance whose credit option for CPU usage was successfully modified. +-- +-- +-- +-- /See:/ 'successfulInstanceCreditSpecificationItem' smart constructor. +newtype SuccessfulInstanceCreditSpecificationItem = SuccessfulInstanceCreditSpecificationItem' + { _sicsiInstanceId :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'SuccessfulInstanceCreditSpecificationItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'sicsiInstanceId' - The ID of the instance. +successfulInstanceCreditSpecificationItem + :: SuccessfulInstanceCreditSpecificationItem +successfulInstanceCreditSpecificationItem = + SuccessfulInstanceCreditSpecificationItem' {_sicsiInstanceId = Nothing} + + +-- | The ID of the instance. +sicsiInstanceId :: Lens' SuccessfulInstanceCreditSpecificationItem (Maybe Text) +sicsiInstanceId = lens _sicsiInstanceId (\ s a -> s{_sicsiInstanceId = a}) + +instance FromXML + SuccessfulInstanceCreditSpecificationItem + where + parseXML x + = SuccessfulInstanceCreditSpecificationItem' <$> + (x .@? "instanceId") + +instance Hashable + SuccessfulInstanceCreditSpecificationItem + where + +instance NFData + SuccessfulInstanceCreditSpecificationItem + where + +-- | Describes a tag. +-- +-- +-- +-- /See:/ 'tag' smart constructor. +data Tag = Tag' + { _tagKey :: !Text + , _tagValue :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Tag' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tagKey' - The key of the tag. Constraints: Tag keys are case-sensitive and accept a maximum of 127 Unicode characters. May not begin with @aws:@ +-- +-- * 'tagValue' - The value of the tag. Constraints: Tag values are case-sensitive and accept a maximum of 255 Unicode characters. +tag + :: Text -- ^ 'tagKey' + -> Text -- ^ 'tagValue' + -> Tag +tag pKey_ pValue_ = Tag' {_tagKey = pKey_, _tagValue = pValue_} + + +-- | The key of the tag. Constraints: Tag keys are case-sensitive and accept a maximum of 127 Unicode characters. May not begin with @aws:@ +tagKey :: Lens' Tag Text +tagKey = lens _tagKey (\ s a -> s{_tagKey = a}) + +-- | The value of the tag. Constraints: Tag values are case-sensitive and accept a maximum of 255 Unicode characters. +tagValue :: Lens' Tag Text +tagValue = lens _tagValue (\ s a -> s{_tagValue = a}) + +instance FromXML Tag where + parseXML x = Tag' <$> (x .@ "key") <*> (x .@ "value") + +instance Hashable Tag where + +instance NFData Tag where + +instance ToQuery Tag where + toQuery Tag'{..} + = mconcat ["Key" =: _tagKey, "Value" =: _tagValue] + +-- | Describes a tag. +-- +-- +-- +-- /See:/ 'tagDescription' smart constructor. +data TagDescription = TagDescription' + { _tdResourceId :: !Text + , _tdResourceType :: !ResourceType + , _tdKey :: !Text + , _tdValue :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TagDescription' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tdResourceId' - The ID of the resource. For example, @ami-1a2b3c4d@ . +-- +-- * 'tdResourceType' - The resource type. +-- +-- * 'tdKey' - The tag key. +-- +-- * 'tdValue' - The tag value. +tagDescription + :: Text -- ^ 'tdResourceId' + -> ResourceType -- ^ 'tdResourceType' + -> Text -- ^ 'tdKey' + -> Text -- ^ 'tdValue' + -> TagDescription +tagDescription pResourceId_ pResourceType_ pKey_ pValue_ = + TagDescription' + { _tdResourceId = pResourceId_ + , _tdResourceType = pResourceType_ + , _tdKey = pKey_ + , _tdValue = pValue_ + } + + +-- | The ID of the resource. For example, @ami-1a2b3c4d@ . +tdResourceId :: Lens' TagDescription Text +tdResourceId = lens _tdResourceId (\ s a -> s{_tdResourceId = a}) + +-- | The resource type. +tdResourceType :: Lens' TagDescription ResourceType +tdResourceType = lens _tdResourceType (\ s a -> s{_tdResourceType = a}) + +-- | The tag key. +tdKey :: Lens' TagDescription Text +tdKey = lens _tdKey (\ s a -> s{_tdKey = a}) + +-- | The tag value. +tdValue :: Lens' TagDescription Text +tdValue = lens _tdValue (\ s a -> s{_tdValue = a}) + +instance FromXML TagDescription where + parseXML x + = TagDescription' <$> + (x .@ "resourceId") <*> (x .@ "resourceType") <*> + (x .@ "key") + <*> (x .@ "value") + +instance Hashable TagDescription where + +instance NFData TagDescription where + +-- | The tags to apply to a resource when the resource is being created. +-- +-- +-- +-- /See:/ 'tagSpecification' smart constructor. +data TagSpecification = TagSpecification' + { _tsResourceType :: !(Maybe ResourceType) + , _tsTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TagSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tsResourceType' - The type of resource to tag. Currently, the resource types that support tagging on creation are @instance@ and @volume@ . +-- +-- * 'tsTags' - The tags to apply to the resource. +tagSpecification + :: TagSpecification +tagSpecification = + TagSpecification' {_tsResourceType = Nothing, _tsTags = Nothing} + + +-- | The type of resource to tag. Currently, the resource types that support tagging on creation are @instance@ and @volume@ . +tsResourceType :: Lens' TagSpecification (Maybe ResourceType) +tsResourceType = lens _tsResourceType (\ s a -> s{_tsResourceType = a}) + +-- | The tags to apply to the resource. +tsTags :: Lens' TagSpecification [Tag] +tsTags = lens _tsTags (\ s a -> s{_tsTags = a}) . _Default . _Coerce + +instance Hashable TagSpecification where + +instance NFData TagSpecification where + +instance ToQuery TagSpecification where + toQuery TagSpecification'{..} + = mconcat + ["ResourceType" =: _tsResourceType, + toQuery (toQueryList "Tag" <$> _tsTags)] + +-- | The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +-- +-- +-- +-- /See:/ 'targetCapacitySpecification' smart constructor. +data TargetCapacitySpecification = TargetCapacitySpecification' + { _tcsOnDemandTargetCapacity :: !(Maybe Int) + , _tcsDefaultTargetCapacityType :: !(Maybe DefaultTargetCapacityType) + , _tcsTotalTargetCapacity :: !(Maybe Int) + , _tcsSpotTargetCapacity :: !(Maybe Int) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TargetCapacitySpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tcsOnDemandTargetCapacity' - The number of On-Demand units to request. +-- +-- * 'tcsDefaultTargetCapacityType' - The default @TotalTargetCapacity@ , which is either @Spot@ or @On-Demand@ . +-- +-- * 'tcsTotalTargetCapacity' - The number of units to request, filled using @DefaultTargetCapacityType@ . +-- +-- * 'tcsSpotTargetCapacity' - The maximum number of Spot units to launch. +targetCapacitySpecification + :: TargetCapacitySpecification +targetCapacitySpecification = + TargetCapacitySpecification' + { _tcsOnDemandTargetCapacity = Nothing + , _tcsDefaultTargetCapacityType = Nothing + , _tcsTotalTargetCapacity = Nothing + , _tcsSpotTargetCapacity = Nothing + } + + +-- | The number of On-Demand units to request. +tcsOnDemandTargetCapacity :: Lens' TargetCapacitySpecification (Maybe Int) +tcsOnDemandTargetCapacity = lens _tcsOnDemandTargetCapacity (\ s a -> s{_tcsOnDemandTargetCapacity = a}) + +-- | The default @TotalTargetCapacity@ , which is either @Spot@ or @On-Demand@ . +tcsDefaultTargetCapacityType :: Lens' TargetCapacitySpecification (Maybe DefaultTargetCapacityType) +tcsDefaultTargetCapacityType = lens _tcsDefaultTargetCapacityType (\ s a -> s{_tcsDefaultTargetCapacityType = a}) + +-- | The number of units to request, filled using @DefaultTargetCapacityType@ . +tcsTotalTargetCapacity :: Lens' TargetCapacitySpecification (Maybe Int) +tcsTotalTargetCapacity = lens _tcsTotalTargetCapacity (\ s a -> s{_tcsTotalTargetCapacity = a}) + +-- | The maximum number of Spot units to launch. +tcsSpotTargetCapacity :: Lens' TargetCapacitySpecification (Maybe Int) +tcsSpotTargetCapacity = lens _tcsSpotTargetCapacity (\ s a -> s{_tcsSpotTargetCapacity = a}) + +instance FromXML TargetCapacitySpecification where + parseXML x + = TargetCapacitySpecification' <$> + (x .@? "onDemandTargetCapacity") <*> + (x .@? "defaultTargetCapacityType") + <*> (x .@? "totalTargetCapacity") + <*> (x .@? "spotTargetCapacity") + +instance Hashable TargetCapacitySpecification where + +instance NFData TargetCapacitySpecification where + +-- | The number of units to request. You can choose to set the target capacity in terms of instances or a performance characteristic that is important to your application workload, such as vCPUs, memory, or I/O. If the request type is @maintain@ , you can specify a target capacity of 0 and add capacity later. +-- +-- +-- +-- /See:/ 'targetCapacitySpecificationRequest' smart constructor. +data TargetCapacitySpecificationRequest = TargetCapacitySpecificationRequest' + { _tcsrOnDemandTargetCapacity :: !(Maybe Int) + , _tcsrDefaultTargetCapacityType :: !(Maybe DefaultTargetCapacityType) + , _tcsrSpotTargetCapacity :: !(Maybe Int) + , _tcsrTotalTargetCapacity :: !Int + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TargetCapacitySpecificationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tcsrOnDemandTargetCapacity' - The number of On-Demand units to request. +-- +-- * 'tcsrDefaultTargetCapacityType' - The default @TotalTargetCapacity@ , which is either @Spot@ or @On-Demand@ . +-- +-- * 'tcsrSpotTargetCapacity' - The number of Spot units to request. +-- +-- * 'tcsrTotalTargetCapacity' - The number of units to request, filled using @DefaultTargetCapacityType@ . +targetCapacitySpecificationRequest + :: Int -- ^ 'tcsrTotalTargetCapacity' + -> TargetCapacitySpecificationRequest +targetCapacitySpecificationRequest pTotalTargetCapacity_ = + TargetCapacitySpecificationRequest' + { _tcsrOnDemandTargetCapacity = Nothing + , _tcsrDefaultTargetCapacityType = Nothing + , _tcsrSpotTargetCapacity = Nothing + , _tcsrTotalTargetCapacity = pTotalTargetCapacity_ + } + + +-- | The number of On-Demand units to request. +tcsrOnDemandTargetCapacity :: Lens' TargetCapacitySpecificationRequest (Maybe Int) +tcsrOnDemandTargetCapacity = lens _tcsrOnDemandTargetCapacity (\ s a -> s{_tcsrOnDemandTargetCapacity = a}) + +-- | The default @TotalTargetCapacity@ , which is either @Spot@ or @On-Demand@ . +tcsrDefaultTargetCapacityType :: Lens' TargetCapacitySpecificationRequest (Maybe DefaultTargetCapacityType) +tcsrDefaultTargetCapacityType = lens _tcsrDefaultTargetCapacityType (\ s a -> s{_tcsrDefaultTargetCapacityType = a}) + +-- | The number of Spot units to request. +tcsrSpotTargetCapacity :: Lens' TargetCapacitySpecificationRequest (Maybe Int) +tcsrSpotTargetCapacity = lens _tcsrSpotTargetCapacity (\ s a -> s{_tcsrSpotTargetCapacity = a}) + +-- | The number of units to request, filled using @DefaultTargetCapacityType@ . +tcsrTotalTargetCapacity :: Lens' TargetCapacitySpecificationRequest Int +tcsrTotalTargetCapacity = lens _tcsrTotalTargetCapacity (\ s a -> s{_tcsrTotalTargetCapacity = a}) + +instance Hashable TargetCapacitySpecificationRequest + where + +instance NFData TargetCapacitySpecificationRequest + where + +instance ToQuery TargetCapacitySpecificationRequest + where + toQuery TargetCapacitySpecificationRequest'{..} + = mconcat + ["OnDemandTargetCapacity" =: + _tcsrOnDemandTargetCapacity, + "DefaultTargetCapacityType" =: + _tcsrDefaultTargetCapacityType, + "SpotTargetCapacity" =: _tcsrSpotTargetCapacity, + "TotalTargetCapacity" =: _tcsrTotalTargetCapacity] + +-- | Information about the Convertible Reserved Instance offering. +-- +-- +-- +-- /See:/ 'targetConfiguration' smart constructor. +data TargetConfiguration = TargetConfiguration' + { _tcInstanceCount :: !(Maybe Int) + , _tcOfferingId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TargetConfiguration' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tcInstanceCount' - The number of instances the Convertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request +-- +-- * 'tcOfferingId' - The ID of the Convertible Reserved Instance offering. +targetConfiguration + :: TargetConfiguration +targetConfiguration = + TargetConfiguration' {_tcInstanceCount = Nothing, _tcOfferingId = Nothing} + + +-- | The number of instances the Convertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request +tcInstanceCount :: Lens' TargetConfiguration (Maybe Int) +tcInstanceCount = lens _tcInstanceCount (\ s a -> s{_tcInstanceCount = a}) + +-- | The ID of the Convertible Reserved Instance offering. +tcOfferingId :: Lens' TargetConfiguration (Maybe Text) +tcOfferingId = lens _tcOfferingId (\ s a -> s{_tcOfferingId = a}) + +instance FromXML TargetConfiguration where + parseXML x + = TargetConfiguration' <$> + (x .@? "instanceCount") <*> (x .@? "offeringId") + +instance Hashable TargetConfiguration where + +instance NFData TargetConfiguration where + +-- | Details about the target configuration. +-- +-- +-- +-- /See:/ 'targetConfigurationRequest' smart constructor. +data TargetConfigurationRequest = TargetConfigurationRequest' + { _tcrInstanceCount :: !(Maybe Int) + , _tcrOfferingId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TargetConfigurationRequest' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tcrInstanceCount' - The number of instances the Covertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request +-- +-- * 'tcrOfferingId' - The Convertible Reserved Instance offering ID. +targetConfigurationRequest + :: Text -- ^ 'tcrOfferingId' + -> TargetConfigurationRequest +targetConfigurationRequest pOfferingId_ = + TargetConfigurationRequest' + {_tcrInstanceCount = Nothing, _tcrOfferingId = pOfferingId_} + + +-- | The number of instances the Covertible Reserved Instance offering can be applied to. This parameter is reserved and cannot be specified in a request +tcrInstanceCount :: Lens' TargetConfigurationRequest (Maybe Int) +tcrInstanceCount = lens _tcrInstanceCount (\ s a -> s{_tcrInstanceCount = a}) + +-- | The Convertible Reserved Instance offering ID. +tcrOfferingId :: Lens' TargetConfigurationRequest Text +tcrOfferingId = lens _tcrOfferingId (\ s a -> s{_tcrOfferingId = a}) + +instance Hashable TargetConfigurationRequest where + +instance NFData TargetConfigurationRequest where + +instance ToQuery TargetConfigurationRequest where + toQuery TargetConfigurationRequest'{..} + = mconcat + ["InstanceCount" =: _tcrInstanceCount, + "OfferingId" =: _tcrOfferingId] + +-- | Describes a load balancer target group. +-- +-- +-- +-- /See:/ 'targetGroup' smart constructor. +newtype TargetGroup = TargetGroup' + { _tgARN :: Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TargetGroup' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tgARN' - The Amazon Resource Name (ARN) of the target group. +targetGroup + :: Text -- ^ 'tgARN' + -> TargetGroup +targetGroup pARN_ = TargetGroup' {_tgARN = pARN_} + + +-- | The Amazon Resource Name (ARN) of the target group. +tgARN :: Lens' TargetGroup Text +tgARN = lens _tgARN (\ s a -> s{_tgARN = a}) + +instance FromXML TargetGroup where + parseXML x = TargetGroup' <$> (x .@ "arn") + +instance Hashable TargetGroup where + +instance NFData TargetGroup where + +instance ToQuery TargetGroup where + toQuery TargetGroup'{..} = mconcat ["Arn" =: _tgARN] + +-- | Describes the target groups to attach to a Spot Fleet. Spot Fleet registers the running Spot Instances with these target groups. +-- +-- +-- +-- /See:/ 'targetGroupsConfig' smart constructor. +newtype TargetGroupsConfig = TargetGroupsConfig' + { _tgcTargetGroups :: List1 TargetGroup + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TargetGroupsConfig' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'tgcTargetGroups' - One or more target groups. +targetGroupsConfig + :: NonEmpty TargetGroup -- ^ 'tgcTargetGroups' + -> TargetGroupsConfig +targetGroupsConfig pTargetGroups_ = + TargetGroupsConfig' {_tgcTargetGroups = _List1 # pTargetGroups_} + + +-- | One or more target groups. +tgcTargetGroups :: Lens' TargetGroupsConfig (NonEmpty TargetGroup) +tgcTargetGroups = lens _tgcTargetGroups (\ s a -> s{_tgcTargetGroups = a}) . _List1 + +instance FromXML TargetGroupsConfig where + parseXML x + = TargetGroupsConfig' <$> + (x .@? "targetGroups" .!@ mempty >>= + parseXMLList1 "item") + +instance Hashable TargetGroupsConfig where + +instance NFData TargetGroupsConfig where + +instance ToQuery TargetGroupsConfig where + toQuery TargetGroupsConfig'{..} + = mconcat + [toQueryList "TargetGroups" _tgcTargetGroups] + +-- | The total value of the new Convertible Reserved Instances. +-- +-- +-- +-- /See:/ 'targetReservationValue' smart constructor. +data TargetReservationValue = TargetReservationValue' + { _trvReservationValue :: !(Maybe ReservationValue) + , _trvTargetConfiguration :: !(Maybe TargetConfiguration) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'TargetReservationValue' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'trvReservationValue' - The total value of the Convertible Reserved Instances that make up the exchange. This is the sum of the list value, remaining upfront price, and additional upfront cost of the exchange. +-- +-- * 'trvTargetConfiguration' - The configuration of the Convertible Reserved Instances that make up the exchange. +targetReservationValue + :: TargetReservationValue +targetReservationValue = + TargetReservationValue' + {_trvReservationValue = Nothing, _trvTargetConfiguration = Nothing} + + +-- | The total value of the Convertible Reserved Instances that make up the exchange. This is the sum of the list value, remaining upfront price, and additional upfront cost of the exchange. +trvReservationValue :: Lens' TargetReservationValue (Maybe ReservationValue) +trvReservationValue = lens _trvReservationValue (\ s a -> s{_trvReservationValue = a}) + +-- | The configuration of the Convertible Reserved Instances that make up the exchange. +trvTargetConfiguration :: Lens' TargetReservationValue (Maybe TargetConfiguration) +trvTargetConfiguration = lens _trvTargetConfiguration (\ s a -> s{_trvTargetConfiguration = a}) + +instance FromXML TargetReservationValue where + parseXML x + = TargetReservationValue' <$> + (x .@? "reservationValue") <*> + (x .@? "targetConfiguration") + +instance Hashable TargetReservationValue where + +instance NFData TargetReservationValue where + +-- | Describes the T2 instance whose credit option for CPU usage was not modified. +-- +-- +-- +-- /See:/ 'unsuccessfulInstanceCreditSpecificationItem' smart constructor. +data UnsuccessfulInstanceCreditSpecificationItem = UnsuccessfulInstanceCreditSpecificationItem' + { _uicsiInstanceId :: !(Maybe Text) + , _uicsiError :: !(Maybe UnsuccessfulInstanceCreditSpecificationItemError) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UnsuccessfulInstanceCreditSpecificationItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'uicsiInstanceId' - The ID of the instance. +-- +-- * 'uicsiError' - The applicable error for the T2 instance whose credit option for CPU usage was not modified. +unsuccessfulInstanceCreditSpecificationItem + :: UnsuccessfulInstanceCreditSpecificationItem +unsuccessfulInstanceCreditSpecificationItem = + UnsuccessfulInstanceCreditSpecificationItem' + {_uicsiInstanceId = Nothing, _uicsiError = Nothing} + + +-- | The ID of the instance. +uicsiInstanceId :: Lens' UnsuccessfulInstanceCreditSpecificationItem (Maybe Text) +uicsiInstanceId = lens _uicsiInstanceId (\ s a -> s{_uicsiInstanceId = a}) + +-- | The applicable error for the T2 instance whose credit option for CPU usage was not modified. +uicsiError :: Lens' UnsuccessfulInstanceCreditSpecificationItem (Maybe UnsuccessfulInstanceCreditSpecificationItemError) +uicsiError = lens _uicsiError (\ s a -> s{_uicsiError = a}) + +instance FromXML + UnsuccessfulInstanceCreditSpecificationItem + where + parseXML x + = UnsuccessfulInstanceCreditSpecificationItem' <$> + (x .@? "instanceId") <*> (x .@? "error") + +instance Hashable + UnsuccessfulInstanceCreditSpecificationItem + where + +instance NFData + UnsuccessfulInstanceCreditSpecificationItem + where + +-- | Information about the error for the T2 instance whose credit option for CPU usage was not modified. +-- +-- +-- +-- /See:/ 'unsuccessfulInstanceCreditSpecificationItemError' smart constructor. +data UnsuccessfulInstanceCreditSpecificationItemError = UnsuccessfulInstanceCreditSpecificationItemError' + { _uicsieCode :: !(Maybe UnsuccessfulInstanceCreditSpecificationErrorCode) + , _uicsieMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UnsuccessfulInstanceCreditSpecificationItemError' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'uicsieCode' - The error code. +-- +-- * 'uicsieMessage' - The applicable error message. +unsuccessfulInstanceCreditSpecificationItemError + :: UnsuccessfulInstanceCreditSpecificationItemError +unsuccessfulInstanceCreditSpecificationItemError = + UnsuccessfulInstanceCreditSpecificationItemError' + {_uicsieCode = Nothing, _uicsieMessage = Nothing} + + +-- | The error code. +uicsieCode :: Lens' UnsuccessfulInstanceCreditSpecificationItemError (Maybe UnsuccessfulInstanceCreditSpecificationErrorCode) +uicsieCode = lens _uicsieCode (\ s a -> s{_uicsieCode = a}) + +-- | The applicable error message. +uicsieMessage :: Lens' UnsuccessfulInstanceCreditSpecificationItemError (Maybe Text) +uicsieMessage = lens _uicsieMessage (\ s a -> s{_uicsieMessage = a}) + +instance FromXML + UnsuccessfulInstanceCreditSpecificationItemError + where + parseXML x + = UnsuccessfulInstanceCreditSpecificationItemError' + <$> (x .@? "code") <*> (x .@? "message") + +instance Hashable + UnsuccessfulInstanceCreditSpecificationItemError + where + +instance NFData + UnsuccessfulInstanceCreditSpecificationItemError + where + +-- | Information about items that were not successfully processed in a batch call. +-- +-- +-- +-- /See:/ 'unsuccessfulItem' smart constructor. +data UnsuccessfulItem = UnsuccessfulItem' + { _uiResourceId :: !(Maybe Text) + , _uiError :: !UnsuccessfulItemError + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UnsuccessfulItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'uiResourceId' - The ID of the resource. +-- +-- * 'uiError' - Information about the error. +unsuccessfulItem + :: UnsuccessfulItemError -- ^ 'uiError' + -> UnsuccessfulItem +unsuccessfulItem pError_ = + UnsuccessfulItem' {_uiResourceId = Nothing, _uiError = pError_} + + +-- | The ID of the resource. +uiResourceId :: Lens' UnsuccessfulItem (Maybe Text) +uiResourceId = lens _uiResourceId (\ s a -> s{_uiResourceId = a}) + +-- | Information about the error. +uiError :: Lens' UnsuccessfulItem UnsuccessfulItemError +uiError = lens _uiError (\ s a -> s{_uiError = a}) + +instance FromXML UnsuccessfulItem where + parseXML x + = UnsuccessfulItem' <$> + (x .@? "resourceId") <*> (x .@ "error") + +instance Hashable UnsuccessfulItem where + +instance NFData UnsuccessfulItem where + +-- | Information about the error that occurred. For more information about errors, see . +-- +-- +-- +-- /See:/ 'unsuccessfulItemError' smart constructor. +data UnsuccessfulItemError = UnsuccessfulItemError' + { _uieCode :: !Text + , _uieMessage :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UnsuccessfulItemError' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'uieCode' - The error code. +-- +-- * 'uieMessage' - The error message accompanying the error code. +unsuccessfulItemError + :: Text -- ^ 'uieCode' + -> Text -- ^ 'uieMessage' + -> UnsuccessfulItemError +unsuccessfulItemError pCode_ pMessage_ = + UnsuccessfulItemError' {_uieCode = pCode_, _uieMessage = pMessage_} + + +-- | The error code. +uieCode :: Lens' UnsuccessfulItemError Text +uieCode = lens _uieCode (\ s a -> s{_uieCode = a}) + +-- | The error message accompanying the error code. +uieMessage :: Lens' UnsuccessfulItemError Text +uieMessage = lens _uieMessage (\ s a -> s{_uieMessage = a}) + +instance FromXML UnsuccessfulItemError where + parseXML x + = UnsuccessfulItemError' <$> + (x .@ "code") <*> (x .@ "message") + +instance Hashable UnsuccessfulItemError where + +instance NFData UnsuccessfulItemError where + +-- | Describes the S3 bucket for the disk image. +-- +-- +-- +-- /See:/ 'userBucket' smart constructor. +data UserBucket = UserBucket' + { _ubS3Key :: !(Maybe Text) + , _ubS3Bucket :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UserBucket' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ubS3Key' - The file name of the disk image. +-- +-- * 'ubS3Bucket' - The name of the S3 bucket where the disk image is located. +userBucket + :: UserBucket +userBucket = UserBucket' {_ubS3Key = Nothing, _ubS3Bucket = Nothing} + + +-- | The file name of the disk image. +ubS3Key :: Lens' UserBucket (Maybe Text) +ubS3Key = lens _ubS3Key (\ s a -> s{_ubS3Key = a}) + +-- | The name of the S3 bucket where the disk image is located. +ubS3Bucket :: Lens' UserBucket (Maybe Text) +ubS3Bucket = lens _ubS3Bucket (\ s a -> s{_ubS3Bucket = a}) + +instance Hashable UserBucket where + +instance NFData UserBucket where + +instance ToQuery UserBucket where + toQuery UserBucket'{..} + = mconcat + ["S3Key" =: _ubS3Key, "S3Bucket" =: _ubS3Bucket] + +-- | Describes the S3 bucket for the disk image. +-- +-- +-- +-- /See:/ 'userBucketDetails' smart constructor. +data UserBucketDetails = UserBucketDetails' + { _ubdS3Key :: !(Maybe Text) + , _ubdS3Bucket :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UserBucketDetails' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'ubdS3Key' - The file name of the disk image. +-- +-- * 'ubdS3Bucket' - The S3 bucket from which the disk image was created. +userBucketDetails + :: UserBucketDetails +userBucketDetails = + UserBucketDetails' {_ubdS3Key = Nothing, _ubdS3Bucket = Nothing} + + +-- | The file name of the disk image. +ubdS3Key :: Lens' UserBucketDetails (Maybe Text) +ubdS3Key = lens _ubdS3Key (\ s a -> s{_ubdS3Key = a}) + +-- | The S3 bucket from which the disk image was created. +ubdS3Bucket :: Lens' UserBucketDetails (Maybe Text) +ubdS3Bucket = lens _ubdS3Bucket (\ s a -> s{_ubdS3Bucket = a}) + +instance FromXML UserBucketDetails where + parseXML x + = UserBucketDetails' <$> + (x .@? "s3Key") <*> (x .@? "s3Bucket") + +instance Hashable UserBucketDetails where + +instance NFData UserBucketDetails where + +-- | Describes the user data for an instance. +-- +-- +-- +-- /See:/ 'userData' smart constructor. +newtype UserData = UserData' + { _udData :: Maybe Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UserData' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'udData' - The user data. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. +userData + :: UserData +userData = UserData' {_udData = Nothing} + + +-- | The user data. If you are using an AWS SDK or command line tool, Base64-encoding is performed for you, and you can load the text from a file. Otherwise, you must provide Base64-encoded text. +udData :: Lens' UserData (Maybe Text) +udData = lens _udData (\ s a -> s{_udData = a}) + +instance Hashable UserData where + +instance NFData UserData where + +instance ToQuery UserData where + toQuery UserData'{..} = mconcat ["Data" =: _udData] + +-- | Describes a security group and AWS account ID pair. +-- +-- +-- +-- /See:/ 'userIdGroupPair' smart constructor. +data UserIdGroupPair = UserIdGroupPair' + { _uigpVPCPeeringConnectionId :: !(Maybe Text) + , _uigpVPCId :: !(Maybe Text) + , _uigpUserId :: !(Maybe Text) + , _uigpGroupId :: !(Maybe Text) + , _uigpGroupName :: !(Maybe Text) + , _uigpDescription :: !(Maybe Text) + , _uigpPeeringStatus :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'UserIdGroupPair' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'uigpVPCPeeringConnectionId' - The ID of the VPC peering connection, if applicable. +-- +-- * 'uigpVPCId' - The ID of the VPC for the referenced security group, if applicable. +-- +-- * 'uigpUserId' - The ID of an AWS account. For a referenced security group in another VPC, the account ID of the referenced security group is returned in the response. If the referenced security group is deleted, this value is not returned. [EC2-Classic] Required when adding or removing rules that reference a security group in another AWS account. +-- +-- * 'uigpGroupId' - The ID of the security group. +-- +-- * 'uigpGroupName' - The name of the security group. In a request, use this parameter for a security group in EC2-Classic or a default VPC only. For a security group in a nondefault VPC, use the security group ID. For a referenced security group in another VPC, this value is not returned if the referenced security group is deleted. +-- +-- * 'uigpDescription' - A description for the security group rule that references this user ID group pair. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +-- +-- * 'uigpPeeringStatus' - The status of a VPC peering connection, if applicable. +userIdGroupPair + :: UserIdGroupPair +userIdGroupPair = + UserIdGroupPair' + { _uigpVPCPeeringConnectionId = Nothing + , _uigpVPCId = Nothing + , _uigpUserId = Nothing + , _uigpGroupId = Nothing + , _uigpGroupName = Nothing + , _uigpDescription = Nothing + , _uigpPeeringStatus = Nothing + } + + +-- | The ID of the VPC peering connection, if applicable. +uigpVPCPeeringConnectionId :: Lens' UserIdGroupPair (Maybe Text) +uigpVPCPeeringConnectionId = lens _uigpVPCPeeringConnectionId (\ s a -> s{_uigpVPCPeeringConnectionId = a}) + +-- | The ID of the VPC for the referenced security group, if applicable. +uigpVPCId :: Lens' UserIdGroupPair (Maybe Text) +uigpVPCId = lens _uigpVPCId (\ s a -> s{_uigpVPCId = a}) + +-- | The ID of an AWS account. For a referenced security group in another VPC, the account ID of the referenced security group is returned in the response. If the referenced security group is deleted, this value is not returned. [EC2-Classic] Required when adding or removing rules that reference a security group in another AWS account. +uigpUserId :: Lens' UserIdGroupPair (Maybe Text) +uigpUserId = lens _uigpUserId (\ s a -> s{_uigpUserId = a}) + +-- | The ID of the security group. +uigpGroupId :: Lens' UserIdGroupPair (Maybe Text) +uigpGroupId = lens _uigpGroupId (\ s a -> s{_uigpGroupId = a}) + +-- | The name of the security group. In a request, use this parameter for a security group in EC2-Classic or a default VPC only. For a security group in a nondefault VPC, use the security group ID. For a referenced security group in another VPC, this value is not returned if the referenced security group is deleted. +uigpGroupName :: Lens' UserIdGroupPair (Maybe Text) +uigpGroupName = lens _uigpGroupName (\ s a -> s{_uigpGroupName = a}) + +-- | A description for the security group rule that references this user ID group pair. Constraints: Up to 255 characters in length. Allowed characters are a-z, A-Z, 0-9, spaces, and ._-:/()#,@[]+=;{}!$* +uigpDescription :: Lens' UserIdGroupPair (Maybe Text) +uigpDescription = lens _uigpDescription (\ s a -> s{_uigpDescription = a}) + +-- | The status of a VPC peering connection, if applicable. +uigpPeeringStatus :: Lens' UserIdGroupPair (Maybe Text) +uigpPeeringStatus = lens _uigpPeeringStatus (\ s a -> s{_uigpPeeringStatus = a}) + +instance FromXML UserIdGroupPair where + parseXML x + = UserIdGroupPair' <$> + (x .@? "vpcPeeringConnectionId") <*> (x .@? "vpcId") + <*> (x .@? "userId") + <*> (x .@? "groupId") + <*> (x .@? "groupName") + <*> (x .@? "description") + <*> (x .@? "peeringStatus") + +instance Hashable UserIdGroupPair where + +instance NFData UserIdGroupPair where + +instance ToQuery UserIdGroupPair where + toQuery UserIdGroupPair'{..} + = mconcat + ["VpcPeeringConnectionId" =: + _uigpVPCPeeringConnectionId, + "VpcId" =: _uigpVPCId, "UserId" =: _uigpUserId, + "GroupId" =: _uigpGroupId, + "GroupName" =: _uigpGroupName, + "Description" =: _uigpDescription, + "PeeringStatus" =: _uigpPeeringStatus] + +-- | Describes telemetry for a VPN tunnel. +-- +-- +-- +-- /See:/ 'vgwTelemetry' smart constructor. +data VGWTelemetry = VGWTelemetry' + { _vtStatus :: !(Maybe TelemetryStatus) + , _vtOutsideIPAddress :: !(Maybe Text) + , _vtLastStatusChange :: !(Maybe ISO8601) + , _vtAcceptedRouteCount :: !(Maybe Int) + , _vtStatusMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VGWTelemetry' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vtStatus' - The status of the VPN tunnel. +-- +-- * 'vtOutsideIPAddress' - The Internet-routable IP address of the virtual private gateway's outside interface. +-- +-- * 'vtLastStatusChange' - The date and time of the last change in status. +-- +-- * 'vtAcceptedRouteCount' - The number of accepted routes. +-- +-- * 'vtStatusMessage' - If an error occurs, a description of the error. +vgwTelemetry + :: VGWTelemetry +vgwTelemetry = + VGWTelemetry' + { _vtStatus = Nothing + , _vtOutsideIPAddress = Nothing + , _vtLastStatusChange = Nothing + , _vtAcceptedRouteCount = Nothing + , _vtStatusMessage = Nothing + } + + +-- | The status of the VPN tunnel. +vtStatus :: Lens' VGWTelemetry (Maybe TelemetryStatus) +vtStatus = lens _vtStatus (\ s a -> s{_vtStatus = a}) + +-- | The Internet-routable IP address of the virtual private gateway's outside interface. +vtOutsideIPAddress :: Lens' VGWTelemetry (Maybe Text) +vtOutsideIPAddress = lens _vtOutsideIPAddress (\ s a -> s{_vtOutsideIPAddress = a}) + +-- | The date and time of the last change in status. +vtLastStatusChange :: Lens' VGWTelemetry (Maybe UTCTime) +vtLastStatusChange = lens _vtLastStatusChange (\ s a -> s{_vtLastStatusChange = a}) . mapping _Time + +-- | The number of accepted routes. +vtAcceptedRouteCount :: Lens' VGWTelemetry (Maybe Int) +vtAcceptedRouteCount = lens _vtAcceptedRouteCount (\ s a -> s{_vtAcceptedRouteCount = a}) + +-- | If an error occurs, a description of the error. +vtStatusMessage :: Lens' VGWTelemetry (Maybe Text) +vtStatusMessage = lens _vtStatusMessage (\ s a -> s{_vtStatusMessage = a}) + +instance FromXML VGWTelemetry where + parseXML x + = VGWTelemetry' <$> + (x .@? "status") <*> (x .@? "outsideIpAddress") <*> + (x .@? "lastStatusChange") + <*> (x .@? "acceptedRouteCount") + <*> (x .@? "statusMessage") + +instance Hashable VGWTelemetry where + +instance NFData VGWTelemetry where + +-- | Describes a VPC. +-- +-- +-- +-- /See:/ 'vpc' smart constructor. +data VPC = VPC' + { _vpcIPv6CidrBlockAssociationSet :: !(Maybe [VPCIPv6CidrBlockAssociation]) + , _vpcCidrBlockAssociationSet :: !(Maybe [VPCCidrBlockAssociation]) + , _vpcTags :: !(Maybe [Tag]) + , _vpcIsDefault :: !(Maybe Bool) + , _vpcCidrBlock :: !Text + , _vpcDHCPOptionsId :: !Text + , _vpcInstanceTenancy :: !Tenancy + , _vpcState :: !VPCState + , _vpcVPCId :: !Text + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPC' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vpcIPv6CidrBlockAssociationSet' - Information about the IPv6 CIDR blocks associated with the VPC. +-- +-- * 'vpcCidrBlockAssociationSet' - Information about the IPv4 CIDR blocks associated with the VPC. +-- +-- * 'vpcTags' - Any tags assigned to the VPC. +-- +-- * 'vpcIsDefault' - Indicates whether the VPC is the default VPC. +-- +-- * 'vpcCidrBlock' - The primary IPv4 CIDR block for the VPC. +-- +-- * 'vpcDHCPOptionsId' - The ID of the set of DHCP options you've associated with the VPC (or @default@ if the default options are associated with the VPC). +-- +-- * 'vpcInstanceTenancy' - The allowed tenancy of instances launched into the VPC. +-- +-- * 'vpcState' - The current state of the VPC. +-- +-- * 'vpcVPCId' - The ID of the VPC. +vpc + :: Text -- ^ 'vpcCidrBlock' + -> Text -- ^ 'vpcDHCPOptionsId' + -> Tenancy -- ^ 'vpcInstanceTenancy' + -> VPCState -- ^ 'vpcState' + -> Text -- ^ 'vpcVPCId' + -> VPC +vpc pCidrBlock_ pDHCPOptionsId_ pInstanceTenancy_ pState_ pVPCId_ = + VPC' + { _vpcIPv6CidrBlockAssociationSet = Nothing + , _vpcCidrBlockAssociationSet = Nothing + , _vpcTags = Nothing + , _vpcIsDefault = Nothing + , _vpcCidrBlock = pCidrBlock_ + , _vpcDHCPOptionsId = pDHCPOptionsId_ + , _vpcInstanceTenancy = pInstanceTenancy_ + , _vpcState = pState_ + , _vpcVPCId = pVPCId_ + } + + +-- | Information about the IPv6 CIDR blocks associated with the VPC. +vpcIPv6CidrBlockAssociationSet :: Lens' VPC [VPCIPv6CidrBlockAssociation] +vpcIPv6CidrBlockAssociationSet = lens _vpcIPv6CidrBlockAssociationSet (\ s a -> s{_vpcIPv6CidrBlockAssociationSet = a}) . _Default . _Coerce + +-- | Information about the IPv4 CIDR blocks associated with the VPC. +vpcCidrBlockAssociationSet :: Lens' VPC [VPCCidrBlockAssociation] +vpcCidrBlockAssociationSet = lens _vpcCidrBlockAssociationSet (\ s a -> s{_vpcCidrBlockAssociationSet = a}) . _Default . _Coerce + +-- | Any tags assigned to the VPC. +vpcTags :: Lens' VPC [Tag] +vpcTags = lens _vpcTags (\ s a -> s{_vpcTags = a}) . _Default . _Coerce + +-- | Indicates whether the VPC is the default VPC. +vpcIsDefault :: Lens' VPC (Maybe Bool) +vpcIsDefault = lens _vpcIsDefault (\ s a -> s{_vpcIsDefault = a}) + +-- | The primary IPv4 CIDR block for the VPC. +vpcCidrBlock :: Lens' VPC Text +vpcCidrBlock = lens _vpcCidrBlock (\ s a -> s{_vpcCidrBlock = a}) + +-- | The ID of the set of DHCP options you've associated with the VPC (or @default@ if the default options are associated with the VPC). +vpcDHCPOptionsId :: Lens' VPC Text +vpcDHCPOptionsId = lens _vpcDHCPOptionsId (\ s a -> s{_vpcDHCPOptionsId = a}) + +-- | The allowed tenancy of instances launched into the VPC. +vpcInstanceTenancy :: Lens' VPC Tenancy +vpcInstanceTenancy = lens _vpcInstanceTenancy (\ s a -> s{_vpcInstanceTenancy = a}) + +-- | The current state of the VPC. +vpcState :: Lens' VPC VPCState +vpcState = lens _vpcState (\ s a -> s{_vpcState = a}) + +-- | The ID of the VPC. +vpcVPCId :: Lens' VPC Text +vpcVPCId = lens _vpcVPCId (\ s a -> s{_vpcVPCId = a}) + +instance FromXML VPC where + parseXML x + = VPC' <$> + (x .@? "ipv6CidrBlockAssociationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "cidrBlockAssociationSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "isDefault") + <*> (x .@ "cidrBlock") + <*> (x .@ "dhcpOptionsId") + <*> (x .@ "instanceTenancy") + <*> (x .@ "state") + <*> (x .@ "vpcId") + +instance Hashable VPC where + +instance NFData VPC where + +-- | Describes an attachment between a virtual private gateway and a VPC. +-- +-- +-- +-- /See:/ 'vpcAttachment' smart constructor. +data VPCAttachment = VPCAttachment' + { _vaState :: !(Maybe AttachmentStatus) + , _vaVPCId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCAttachment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vaState' - The current state of the attachment. +-- +-- * 'vaVPCId' - The ID of the VPC. +vpcAttachment + :: VPCAttachment +vpcAttachment = VPCAttachment' {_vaState = Nothing, _vaVPCId = Nothing} + + +-- | The current state of the attachment. +vaState :: Lens' VPCAttachment (Maybe AttachmentStatus) +vaState = lens _vaState (\ s a -> s{_vaState = a}) + +-- | The ID of the VPC. +vaVPCId :: Lens' VPCAttachment (Maybe Text) +vaVPCId = lens _vaVPCId (\ s a -> s{_vaVPCId = a}) + +instance FromXML VPCAttachment where + parseXML x + = VPCAttachment' <$> + (x .@? "state") <*> (x .@? "vpcId") + +instance Hashable VPCAttachment where + +instance NFData VPCAttachment where + +-- | Describes an IPv4 CIDR block associated with a VPC. +-- +-- +-- +-- /See:/ 'vpcCidrBlockAssociation' smart constructor. +data VPCCidrBlockAssociation = VPCCidrBlockAssociation' + { _vcbaAssociationId :: !(Maybe Text) + , _vcbaCidrBlockState :: !(Maybe VPCCidrBlockState) + , _vcbaCidrBlock :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCCidrBlockAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vcbaAssociationId' - The association ID for the IPv4 CIDR block. +-- +-- * 'vcbaCidrBlockState' - Information about the state of the CIDR block. +-- +-- * 'vcbaCidrBlock' - The IPv4 CIDR block. +vpcCidrBlockAssociation + :: VPCCidrBlockAssociation +vpcCidrBlockAssociation = + VPCCidrBlockAssociation' + { _vcbaAssociationId = Nothing + , _vcbaCidrBlockState = Nothing + , _vcbaCidrBlock = Nothing + } + + +-- | The association ID for the IPv4 CIDR block. +vcbaAssociationId :: Lens' VPCCidrBlockAssociation (Maybe Text) +vcbaAssociationId = lens _vcbaAssociationId (\ s a -> s{_vcbaAssociationId = a}) + +-- | Information about the state of the CIDR block. +vcbaCidrBlockState :: Lens' VPCCidrBlockAssociation (Maybe VPCCidrBlockState) +vcbaCidrBlockState = lens _vcbaCidrBlockState (\ s a -> s{_vcbaCidrBlockState = a}) + +-- | The IPv4 CIDR block. +vcbaCidrBlock :: Lens' VPCCidrBlockAssociation (Maybe Text) +vcbaCidrBlock = lens _vcbaCidrBlock (\ s a -> s{_vcbaCidrBlock = a}) + +instance FromXML VPCCidrBlockAssociation where + parseXML x + = VPCCidrBlockAssociation' <$> + (x .@? "associationId") <*> (x .@? "cidrBlockState") + <*> (x .@? "cidrBlock") + +instance Hashable VPCCidrBlockAssociation where + +instance NFData VPCCidrBlockAssociation where + +-- | Describes the state of a CIDR block. +-- +-- +-- +-- /See:/ 'vpcCidrBlockState' smart constructor. +data VPCCidrBlockState = VPCCidrBlockState' + { _vcbsState :: !(Maybe VPCCidrBlockStateCode) + , _vcbsStatusMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCCidrBlockState' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vcbsState' - The state of the CIDR block. +-- +-- * 'vcbsStatusMessage' - A message about the status of the CIDR block, if applicable. +vpcCidrBlockState + :: VPCCidrBlockState +vpcCidrBlockState = + VPCCidrBlockState' {_vcbsState = Nothing, _vcbsStatusMessage = Nothing} + + +-- | The state of the CIDR block. +vcbsState :: Lens' VPCCidrBlockState (Maybe VPCCidrBlockStateCode) +vcbsState = lens _vcbsState (\ s a -> s{_vcbsState = a}) + +-- | A message about the status of the CIDR block, if applicable. +vcbsStatusMessage :: Lens' VPCCidrBlockState (Maybe Text) +vcbsStatusMessage = lens _vcbsStatusMessage (\ s a -> s{_vcbsStatusMessage = a}) + +instance FromXML VPCCidrBlockState where + parseXML x + = VPCCidrBlockState' <$> + (x .@? "state") <*> (x .@? "statusMessage") + +instance Hashable VPCCidrBlockState where + +instance NFData VPCCidrBlockState where + +-- | Describes whether a VPC is enabled for ClassicLink. +-- +-- +-- +-- /See:/ 'vpcClassicLink' smart constructor. +data VPCClassicLink = VPCClassicLink' + { _vclVPCId :: !(Maybe Text) + , _vclTags :: !(Maybe [Tag]) + , _vclClassicLinkEnabled :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCClassicLink' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vclVPCId' - The ID of the VPC. +-- +-- * 'vclTags' - Any tags assigned to the VPC. +-- +-- * 'vclClassicLinkEnabled' - Indicates whether the VPC is enabled for ClassicLink. +vpcClassicLink + :: VPCClassicLink +vpcClassicLink = + VPCClassicLink' + {_vclVPCId = Nothing, _vclTags = Nothing, _vclClassicLinkEnabled = Nothing} + + +-- | The ID of the VPC. +vclVPCId :: Lens' VPCClassicLink (Maybe Text) +vclVPCId = lens _vclVPCId (\ s a -> s{_vclVPCId = a}) + +-- | Any tags assigned to the VPC. +vclTags :: Lens' VPCClassicLink [Tag] +vclTags = lens _vclTags (\ s a -> s{_vclTags = a}) . _Default . _Coerce + +-- | Indicates whether the VPC is enabled for ClassicLink. +vclClassicLinkEnabled :: Lens' VPCClassicLink (Maybe Bool) +vclClassicLinkEnabled = lens _vclClassicLinkEnabled (\ s a -> s{_vclClassicLinkEnabled = a}) + +instance FromXML VPCClassicLink where + parseXML x + = VPCClassicLink' <$> + (x .@? "vpcId") <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "classicLinkEnabled") + +instance Hashable VPCClassicLink where + +instance NFData VPCClassicLink where + +-- | Describes a VPC endpoint. +-- +-- +-- +-- /See:/ 'vpcEndpoint' smart constructor. +data VPCEndpoint = VPCEndpoint' + { _veGroups :: !(Maybe [SecurityGroupIdentifier]) + , _veState :: !(Maybe State) + , _vePolicyDocument :: !(Maybe Text) + , _veSubnetIds :: !(Maybe [Text]) + , _veNetworkInterfaceIds :: !(Maybe [Text]) + , _veVPCId :: !(Maybe Text) + , _veDNSEntries :: !(Maybe [DNSEntry]) + , _veVPCEndpointType :: !(Maybe VPCEndpointType) + , _vePrivateDNSEnabled :: !(Maybe Bool) + , _veCreationTimestamp :: !(Maybe ISO8601) + , _veServiceName :: !(Maybe Text) + , _veVPCEndpointId :: !(Maybe Text) + , _veRouteTableIds :: !(Maybe [Text]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCEndpoint' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'veGroups' - (Interface endpoint) Information about the security groups associated with the network interface. +-- +-- * 'veState' - The state of the VPC endpoint. +-- +-- * 'vePolicyDocument' - The policy document associated with the endpoint, if applicable. +-- +-- * 'veSubnetIds' - (Interface endpoint) One or more subnets in which the endpoint is located. +-- +-- * 'veNetworkInterfaceIds' - (Interface endpoint) One or more network interfaces for the endpoint. +-- +-- * 'veVPCId' - The ID of the VPC to which the endpoint is associated. +-- +-- * 'veDNSEntries' - (Interface endpoint) The DNS entries for the endpoint. +-- +-- * 'veVPCEndpointType' - The type of endpoint. +-- +-- * 'vePrivateDNSEnabled' - (Interface endpoint) Indicates whether the VPC is associated with a private hosted zone. +-- +-- * 'veCreationTimestamp' - The date and time the VPC endpoint was created. +-- +-- * 'veServiceName' - The name of the service to which the endpoint is associated. +-- +-- * 'veVPCEndpointId' - The ID of the VPC endpoint. +-- +-- * 'veRouteTableIds' - (Gateway endpoint) One or more route tables associated with the endpoint. +vpcEndpoint + :: VPCEndpoint +vpcEndpoint = + VPCEndpoint' + { _veGroups = Nothing + , _veState = Nothing + , _vePolicyDocument = Nothing + , _veSubnetIds = Nothing + , _veNetworkInterfaceIds = Nothing + , _veVPCId = Nothing + , _veDNSEntries = Nothing + , _veVPCEndpointType = Nothing + , _vePrivateDNSEnabled = Nothing + , _veCreationTimestamp = Nothing + , _veServiceName = Nothing + , _veVPCEndpointId = Nothing + , _veRouteTableIds = Nothing + } + + +-- | (Interface endpoint) Information about the security groups associated with the network interface. +veGroups :: Lens' VPCEndpoint [SecurityGroupIdentifier] +veGroups = lens _veGroups (\ s a -> s{_veGroups = a}) . _Default . _Coerce + +-- | The state of the VPC endpoint. +veState :: Lens' VPCEndpoint (Maybe State) +veState = lens _veState (\ s a -> s{_veState = a}) + +-- | The policy document associated with the endpoint, if applicable. +vePolicyDocument :: Lens' VPCEndpoint (Maybe Text) +vePolicyDocument = lens _vePolicyDocument (\ s a -> s{_vePolicyDocument = a}) + +-- | (Interface endpoint) One or more subnets in which the endpoint is located. +veSubnetIds :: Lens' VPCEndpoint [Text] +veSubnetIds = lens _veSubnetIds (\ s a -> s{_veSubnetIds = a}) . _Default . _Coerce + +-- | (Interface endpoint) One or more network interfaces for the endpoint. +veNetworkInterfaceIds :: Lens' VPCEndpoint [Text] +veNetworkInterfaceIds = lens _veNetworkInterfaceIds (\ s a -> s{_veNetworkInterfaceIds = a}) . _Default . _Coerce + +-- | The ID of the VPC to which the endpoint is associated. +veVPCId :: Lens' VPCEndpoint (Maybe Text) +veVPCId = lens _veVPCId (\ s a -> s{_veVPCId = a}) + +-- | (Interface endpoint) The DNS entries for the endpoint. +veDNSEntries :: Lens' VPCEndpoint [DNSEntry] +veDNSEntries = lens _veDNSEntries (\ s a -> s{_veDNSEntries = a}) . _Default . _Coerce + +-- | The type of endpoint. +veVPCEndpointType :: Lens' VPCEndpoint (Maybe VPCEndpointType) +veVPCEndpointType = lens _veVPCEndpointType (\ s a -> s{_veVPCEndpointType = a}) + +-- | (Interface endpoint) Indicates whether the VPC is associated with a private hosted zone. +vePrivateDNSEnabled :: Lens' VPCEndpoint (Maybe Bool) +vePrivateDNSEnabled = lens _vePrivateDNSEnabled (\ s a -> s{_vePrivateDNSEnabled = a}) + +-- | The date and time the VPC endpoint was created. +veCreationTimestamp :: Lens' VPCEndpoint (Maybe UTCTime) +veCreationTimestamp = lens _veCreationTimestamp (\ s a -> s{_veCreationTimestamp = a}) . mapping _Time + +-- | The name of the service to which the endpoint is associated. +veServiceName :: Lens' VPCEndpoint (Maybe Text) +veServiceName = lens _veServiceName (\ s a -> s{_veServiceName = a}) + +-- | The ID of the VPC endpoint. +veVPCEndpointId :: Lens' VPCEndpoint (Maybe Text) +veVPCEndpointId = lens _veVPCEndpointId (\ s a -> s{_veVPCEndpointId = a}) + +-- | (Gateway endpoint) One or more route tables associated with the endpoint. +veRouteTableIds :: Lens' VPCEndpoint [Text] +veRouteTableIds = lens _veRouteTableIds (\ s a -> s{_veRouteTableIds = a}) . _Default . _Coerce + +instance FromXML VPCEndpoint where + parseXML x + = VPCEndpoint' <$> + (x .@? "groupSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "state") + <*> (x .@? "policyDocument") + <*> + (x .@? "subnetIdSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "networkInterfaceIdSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpcId") + <*> + (x .@? "dnsEntrySet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpcEndpointType") + <*> (x .@? "privateDnsEnabled") + <*> (x .@? "creationTimestamp") + <*> (x .@? "serviceName") + <*> (x .@? "vpcEndpointId") + <*> + (x .@? "routeTableIdSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable VPCEndpoint where + +instance NFData VPCEndpoint where + +-- | Describes a VPC endpoint connection to a service. +-- +-- +-- +-- /See:/ 'vpcEndpointConnection' smart constructor. +data VPCEndpointConnection = VPCEndpointConnection' + { _vecVPCEndpointOwner :: !(Maybe Text) + , _vecVPCEndpointState :: !(Maybe State) + , _vecCreationTimestamp :: !(Maybe ISO8601) + , _vecServiceId :: !(Maybe Text) + , _vecVPCEndpointId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCEndpointConnection' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vecVPCEndpointOwner' - The AWS account ID of the owner of the VPC endpoint. +-- +-- * 'vecVPCEndpointState' - The state of the VPC endpoint. +-- +-- * 'vecCreationTimestamp' - The date and time the VPC endpoint was created. +-- +-- * 'vecServiceId' - The ID of the service to which the endpoint is connected. +-- +-- * 'vecVPCEndpointId' - The ID of the VPC endpoint. +vpcEndpointConnection + :: VPCEndpointConnection +vpcEndpointConnection = + VPCEndpointConnection' + { _vecVPCEndpointOwner = Nothing + , _vecVPCEndpointState = Nothing + , _vecCreationTimestamp = Nothing + , _vecServiceId = Nothing + , _vecVPCEndpointId = Nothing + } + + +-- | The AWS account ID of the owner of the VPC endpoint. +vecVPCEndpointOwner :: Lens' VPCEndpointConnection (Maybe Text) +vecVPCEndpointOwner = lens _vecVPCEndpointOwner (\ s a -> s{_vecVPCEndpointOwner = a}) + +-- | The state of the VPC endpoint. +vecVPCEndpointState :: Lens' VPCEndpointConnection (Maybe State) +vecVPCEndpointState = lens _vecVPCEndpointState (\ s a -> s{_vecVPCEndpointState = a}) + +-- | The date and time the VPC endpoint was created. +vecCreationTimestamp :: Lens' VPCEndpointConnection (Maybe UTCTime) +vecCreationTimestamp = lens _vecCreationTimestamp (\ s a -> s{_vecCreationTimestamp = a}) . mapping _Time + +-- | The ID of the service to which the endpoint is connected. +vecServiceId :: Lens' VPCEndpointConnection (Maybe Text) +vecServiceId = lens _vecServiceId (\ s a -> s{_vecServiceId = a}) + +-- | The ID of the VPC endpoint. +vecVPCEndpointId :: Lens' VPCEndpointConnection (Maybe Text) +vecVPCEndpointId = lens _vecVPCEndpointId (\ s a -> s{_vecVPCEndpointId = a}) + +instance FromXML VPCEndpointConnection where + parseXML x + = VPCEndpointConnection' <$> + (x .@? "vpcEndpointOwner") <*> + (x .@? "vpcEndpointState") + <*> (x .@? "creationTimestamp") + <*> (x .@? "serviceId") + <*> (x .@? "vpcEndpointId") + +instance Hashable VPCEndpointConnection where + +instance NFData VPCEndpointConnection where + +-- | Describes an IPv6 CIDR block associated with a VPC. +-- +-- +-- +-- /See:/ 'vpcIPv6CidrBlockAssociation' smart constructor. +data VPCIPv6CidrBlockAssociation = VPCIPv6CidrBlockAssociation' + { _vicbaAssociationId :: !(Maybe Text) + , _vicbaIPv6CidrBlock :: !(Maybe Text) + , _vicbaIPv6CidrBlockState :: !(Maybe VPCCidrBlockState) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCIPv6CidrBlockAssociation' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vicbaAssociationId' - The association ID for the IPv6 CIDR block. +-- +-- * 'vicbaIPv6CidrBlock' - The IPv6 CIDR block. +-- +-- * 'vicbaIPv6CidrBlockState' - Information about the state of the CIDR block. +vpcIPv6CidrBlockAssociation + :: VPCIPv6CidrBlockAssociation +vpcIPv6CidrBlockAssociation = + VPCIPv6CidrBlockAssociation' + { _vicbaAssociationId = Nothing + , _vicbaIPv6CidrBlock = Nothing + , _vicbaIPv6CidrBlockState = Nothing + } + + +-- | The association ID for the IPv6 CIDR block. +vicbaAssociationId :: Lens' VPCIPv6CidrBlockAssociation (Maybe Text) +vicbaAssociationId = lens _vicbaAssociationId (\ s a -> s{_vicbaAssociationId = a}) + +-- | The IPv6 CIDR block. +vicbaIPv6CidrBlock :: Lens' VPCIPv6CidrBlockAssociation (Maybe Text) +vicbaIPv6CidrBlock = lens _vicbaIPv6CidrBlock (\ s a -> s{_vicbaIPv6CidrBlock = a}) + +-- | Information about the state of the CIDR block. +vicbaIPv6CidrBlockState :: Lens' VPCIPv6CidrBlockAssociation (Maybe VPCCidrBlockState) +vicbaIPv6CidrBlockState = lens _vicbaIPv6CidrBlockState (\ s a -> s{_vicbaIPv6CidrBlockState = a}) + +instance FromXML VPCIPv6CidrBlockAssociation where + parseXML x + = VPCIPv6CidrBlockAssociation' <$> + (x .@? "associationId") <*> (x .@? "ipv6CidrBlock") + <*> (x .@? "ipv6CidrBlockState") + +instance Hashable VPCIPv6CidrBlockAssociation where + +instance NFData VPCIPv6CidrBlockAssociation where + +-- | Describes a VPC peering connection. +-- +-- +-- +-- /See:/ 'vpcPeeringConnection' smart constructor. +data VPCPeeringConnection = VPCPeeringConnection' + { _vpcpcVPCPeeringConnectionId :: !(Maybe Text) + , _vpcpcStatus :: !(Maybe VPCPeeringConnectionStateReason) + , _vpcpcAccepterVPCInfo :: !(Maybe VPCPeeringConnectionVPCInfo) + , _vpcpcRequesterVPCInfo :: !(Maybe VPCPeeringConnectionVPCInfo) + , _vpcpcExpirationTime :: !(Maybe ISO8601) + , _vpcpcTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCPeeringConnection' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vpcpcVPCPeeringConnectionId' - The ID of the VPC peering connection. +-- +-- * 'vpcpcStatus' - The status of the VPC peering connection. +-- +-- * 'vpcpcAccepterVPCInfo' - Information about the accepter VPC. CIDR block information is only returned when describing an active VPC peering connection. +-- +-- * 'vpcpcRequesterVPCInfo' - Information about the requester VPC. CIDR block information is only returned when describing an active VPC peering connection. +-- +-- * 'vpcpcExpirationTime' - The time that an unaccepted VPC peering connection will expire. +-- +-- * 'vpcpcTags' - Any tags assigned to the resource. +vpcPeeringConnection + :: VPCPeeringConnection +vpcPeeringConnection = + VPCPeeringConnection' + { _vpcpcVPCPeeringConnectionId = Nothing + , _vpcpcStatus = Nothing + , _vpcpcAccepterVPCInfo = Nothing + , _vpcpcRequesterVPCInfo = Nothing + , _vpcpcExpirationTime = Nothing + , _vpcpcTags = Nothing + } + + +-- | The ID of the VPC peering connection. +vpcpcVPCPeeringConnectionId :: Lens' VPCPeeringConnection (Maybe Text) +vpcpcVPCPeeringConnectionId = lens _vpcpcVPCPeeringConnectionId (\ s a -> s{_vpcpcVPCPeeringConnectionId = a}) + +-- | The status of the VPC peering connection. +vpcpcStatus :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionStateReason) +vpcpcStatus = lens _vpcpcStatus (\ s a -> s{_vpcpcStatus = a}) + +-- | Information about the accepter VPC. CIDR block information is only returned when describing an active VPC peering connection. +vpcpcAccepterVPCInfo :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionVPCInfo) +vpcpcAccepterVPCInfo = lens _vpcpcAccepterVPCInfo (\ s a -> s{_vpcpcAccepterVPCInfo = a}) + +-- | Information about the requester VPC. CIDR block information is only returned when describing an active VPC peering connection. +vpcpcRequesterVPCInfo :: Lens' VPCPeeringConnection (Maybe VPCPeeringConnectionVPCInfo) +vpcpcRequesterVPCInfo = lens _vpcpcRequesterVPCInfo (\ s a -> s{_vpcpcRequesterVPCInfo = a}) + +-- | The time that an unaccepted VPC peering connection will expire. +vpcpcExpirationTime :: Lens' VPCPeeringConnection (Maybe UTCTime) +vpcpcExpirationTime = lens _vpcpcExpirationTime (\ s a -> s{_vpcpcExpirationTime = a}) . mapping _Time + +-- | Any tags assigned to the resource. +vpcpcTags :: Lens' VPCPeeringConnection [Tag] +vpcpcTags = lens _vpcpcTags (\ s a -> s{_vpcpcTags = a}) . _Default . _Coerce + +instance FromXML VPCPeeringConnection where + parseXML x + = VPCPeeringConnection' <$> + (x .@? "vpcPeeringConnectionId") <*> (x .@? "status") + <*> (x .@? "accepterVpcInfo") + <*> (x .@? "requesterVpcInfo") + <*> (x .@? "expirationTime") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable VPCPeeringConnection where + +instance NFData VPCPeeringConnection where + +-- | Describes the VPC peering connection options. +-- +-- +-- +-- /See:/ 'vpcPeeringConnectionOptionsDescription' smart constructor. +data VPCPeeringConnectionOptionsDescription = VPCPeeringConnectionOptionsDescription' + { _vpcodAllowEgressFromLocalVPCToRemoteClassicLink :: !(Maybe Bool) + , _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC :: !(Maybe Bool) + , _vpcodAllowDNSResolutionFromRemoteVPC :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCPeeringConnectionOptionsDescription' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vpcodAllowEgressFromLocalVPCToRemoteClassicLink' - Indicates whether a local VPC can communicate with a ClassicLink connection in the peer VPC over the VPC peering connection. +-- +-- * 'vpcodAllowEgressFromLocalClassicLinkToRemoteVPC' - Indicates whether a local ClassicLink connection can communicate with the peer VPC over the VPC peering connection. +-- +-- * 'vpcodAllowDNSResolutionFromRemoteVPC' - Indicates whether a local VPC can resolve public DNS hostnames to private IP addresses when queried from instances in a peer VPC. +vpcPeeringConnectionOptionsDescription + :: VPCPeeringConnectionOptionsDescription +vpcPeeringConnectionOptionsDescription = + VPCPeeringConnectionOptionsDescription' + { _vpcodAllowEgressFromLocalVPCToRemoteClassicLink = Nothing + , _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = Nothing + , _vpcodAllowDNSResolutionFromRemoteVPC = Nothing + } + + +-- | Indicates whether a local VPC can communicate with a ClassicLink connection in the peer VPC over the VPC peering connection. +vpcodAllowEgressFromLocalVPCToRemoteClassicLink :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool) +vpcodAllowEgressFromLocalVPCToRemoteClassicLink = lens _vpcodAllowEgressFromLocalVPCToRemoteClassicLink (\ s a -> s{_vpcodAllowEgressFromLocalVPCToRemoteClassicLink = a}) + +-- | Indicates whether a local ClassicLink connection can communicate with the peer VPC over the VPC peering connection. +vpcodAllowEgressFromLocalClassicLinkToRemoteVPC :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool) +vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = lens _vpcodAllowEgressFromLocalClassicLinkToRemoteVPC (\ s a -> s{_vpcodAllowEgressFromLocalClassicLinkToRemoteVPC = a}) + +-- | Indicates whether a local VPC can resolve public DNS hostnames to private IP addresses when queried from instances in a peer VPC. +vpcodAllowDNSResolutionFromRemoteVPC :: Lens' VPCPeeringConnectionOptionsDescription (Maybe Bool) +vpcodAllowDNSResolutionFromRemoteVPC = lens _vpcodAllowDNSResolutionFromRemoteVPC (\ s a -> s{_vpcodAllowDNSResolutionFromRemoteVPC = a}) + +instance FromXML + VPCPeeringConnectionOptionsDescription + where + parseXML x + = VPCPeeringConnectionOptionsDescription' <$> + (x .@? "allowEgressFromLocalVpcToRemoteClassicLink") + <*> + (x .@? "allowEgressFromLocalClassicLinkToRemoteVpc") + <*> (x .@? "allowDnsResolutionFromRemoteVpc") + +instance Hashable + VPCPeeringConnectionOptionsDescription + where + +instance NFData + VPCPeeringConnectionOptionsDescription + where + +-- | Describes the status of a VPC peering connection. +-- +-- +-- +-- /See:/ 'vpcPeeringConnectionStateReason' smart constructor. +data VPCPeeringConnectionStateReason = VPCPeeringConnectionStateReason' + { _vpcsrCode :: !(Maybe VPCPeeringConnectionStateReasonCode) + , _vpcsrMessage :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCPeeringConnectionStateReason' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vpcsrCode' - The status of the VPC peering connection. +-- +-- * 'vpcsrMessage' - A message that provides more information about the status, if applicable. +vpcPeeringConnectionStateReason + :: VPCPeeringConnectionStateReason +vpcPeeringConnectionStateReason = + VPCPeeringConnectionStateReason' + {_vpcsrCode = Nothing, _vpcsrMessage = Nothing} + + +-- | The status of the VPC peering connection. +vpcsrCode :: Lens' VPCPeeringConnectionStateReason (Maybe VPCPeeringConnectionStateReasonCode) +vpcsrCode = lens _vpcsrCode (\ s a -> s{_vpcsrCode = a}) + +-- | A message that provides more information about the status, if applicable. +vpcsrMessage :: Lens' VPCPeeringConnectionStateReason (Maybe Text) +vpcsrMessage = lens _vpcsrMessage (\ s a -> s{_vpcsrMessage = a}) + +instance FromXML VPCPeeringConnectionStateReason + where + parseXML x + = VPCPeeringConnectionStateReason' <$> + (x .@? "code") <*> (x .@? "message") + +instance Hashable VPCPeeringConnectionStateReason + where + +instance NFData VPCPeeringConnectionStateReason where + +-- | Describes a VPC in a VPC peering connection. +-- +-- +-- +-- /See:/ 'vpcPeeringConnectionVPCInfo' smart constructor. +data VPCPeeringConnectionVPCInfo = VPCPeeringConnectionVPCInfo' + { _vpcviCidrBlockSet :: !(Maybe [CidrBlock]) + , _vpcviVPCId :: !(Maybe Text) + , _vpcviOwnerId :: !(Maybe Text) + , _vpcviPeeringOptions :: !(Maybe VPCPeeringConnectionOptionsDescription) + , _vpcviCidrBlock :: !(Maybe Text) + , _vpcviRegion :: !(Maybe Text) + , _vpcviIPv6CidrBlockSet :: !(Maybe [IPv6CidrBlock]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPCPeeringConnectionVPCInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vpcviCidrBlockSet' - Information about the IPv4 CIDR blocks for the VPC. +-- +-- * 'vpcviVPCId' - The ID of the VPC. +-- +-- * 'vpcviOwnerId' - The AWS account ID of the VPC owner. +-- +-- * 'vpcviPeeringOptions' - Information about the VPC peering connection options for the accepter or requester VPC. +-- +-- * 'vpcviCidrBlock' - The IPv4 CIDR block for the VPC. +-- +-- * 'vpcviRegion' - The region in which the VPC is located. +-- +-- * 'vpcviIPv6CidrBlockSet' - The IPv6 CIDR block for the VPC. +vpcPeeringConnectionVPCInfo + :: VPCPeeringConnectionVPCInfo +vpcPeeringConnectionVPCInfo = + VPCPeeringConnectionVPCInfo' + { _vpcviCidrBlockSet = Nothing + , _vpcviVPCId = Nothing + , _vpcviOwnerId = Nothing + , _vpcviPeeringOptions = Nothing + , _vpcviCidrBlock = Nothing + , _vpcviRegion = Nothing + , _vpcviIPv6CidrBlockSet = Nothing + } + + +-- | Information about the IPv4 CIDR blocks for the VPC. +vpcviCidrBlockSet :: Lens' VPCPeeringConnectionVPCInfo [CidrBlock] +vpcviCidrBlockSet = lens _vpcviCidrBlockSet (\ s a -> s{_vpcviCidrBlockSet = a}) . _Default . _Coerce + +-- | The ID of the VPC. +vpcviVPCId :: Lens' VPCPeeringConnectionVPCInfo (Maybe Text) +vpcviVPCId = lens _vpcviVPCId (\ s a -> s{_vpcviVPCId = a}) + +-- | The AWS account ID of the VPC owner. +vpcviOwnerId :: Lens' VPCPeeringConnectionVPCInfo (Maybe Text) +vpcviOwnerId = lens _vpcviOwnerId (\ s a -> s{_vpcviOwnerId = a}) + +-- | Information about the VPC peering connection options for the accepter or requester VPC. +vpcviPeeringOptions :: Lens' VPCPeeringConnectionVPCInfo (Maybe VPCPeeringConnectionOptionsDescription) +vpcviPeeringOptions = lens _vpcviPeeringOptions (\ s a -> s{_vpcviPeeringOptions = a}) + +-- | The IPv4 CIDR block for the VPC. +vpcviCidrBlock :: Lens' VPCPeeringConnectionVPCInfo (Maybe Text) +vpcviCidrBlock = lens _vpcviCidrBlock (\ s a -> s{_vpcviCidrBlock = a}) + +-- | The region in which the VPC is located. +vpcviRegion :: Lens' VPCPeeringConnectionVPCInfo (Maybe Text) +vpcviRegion = lens _vpcviRegion (\ s a -> s{_vpcviRegion = a}) + +-- | The IPv6 CIDR block for the VPC. +vpcviIPv6CidrBlockSet :: Lens' VPCPeeringConnectionVPCInfo [IPv6CidrBlock] +vpcviIPv6CidrBlockSet = lens _vpcviIPv6CidrBlockSet (\ s a -> s{_vpcviIPv6CidrBlockSet = a}) . _Default . _Coerce + +instance FromXML VPCPeeringConnectionVPCInfo where + parseXML x + = VPCPeeringConnectionVPCInfo' <$> + (x .@? "cidrBlockSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpcId") + <*> (x .@? "ownerId") + <*> (x .@? "peeringOptions") + <*> (x .@? "cidrBlock") + <*> (x .@? "region") + <*> + (x .@? "ipv6CidrBlockSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable VPCPeeringConnectionVPCInfo where + +instance NFData VPCPeeringConnectionVPCInfo where + +-- | Describes a VPN connection. +-- +-- +-- +-- /See:/ 'vpnConnection' smart constructor. +data VPNConnection = VPNConnection' + { _vcCustomerGatewayConfiguration :: !(Maybe Text) + , _vcRoutes :: !(Maybe [VPNStaticRoute]) + , _vcVPNGatewayId :: !(Maybe Text) + , _vcCategory :: !(Maybe Text) + , _vcOptions :: !(Maybe VPNConnectionOptions) + , _vcTags :: !(Maybe [Tag]) + , _vcVGWTelemetry :: !(Maybe [VGWTelemetry]) + , _vcVPNConnectionId :: !Text + , _vcCustomerGatewayId :: !Text + , _vcState :: !VPNState + , _vcType :: !GatewayType + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPNConnection' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vcCustomerGatewayConfiguration' - The configuration information for the VPN connection's customer gateway (in the native XML format). This element is always present in the 'CreateVpnConnection' response; however, it's present in the 'DescribeVpnConnections' response only if the VPN connection is in the @pending@ or @available@ state. +-- +-- * 'vcRoutes' - The static routes associated with the VPN connection. +-- +-- * 'vcVPNGatewayId' - The ID of the virtual private gateway at the AWS side of the VPN connection. +-- +-- * 'vcCategory' - The category of the VPN connection. A value of @VPN@ indicates an AWS VPN connection. A value of @VPN-Classic@ indicates an AWS Classic VPN connection. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . +-- +-- * 'vcOptions' - The VPN connection options. +-- +-- * 'vcTags' - Any tags assigned to the VPN connection. +-- +-- * 'vcVGWTelemetry' - Information about the VPN tunnel. +-- +-- * 'vcVPNConnectionId' - The ID of the VPN connection. +-- +-- * 'vcCustomerGatewayId' - The ID of the customer gateway at your end of the VPN connection. +-- +-- * 'vcState' - The current state of the VPN connection. +-- +-- * 'vcType' - The type of VPN connection. +vpnConnection + :: Text -- ^ 'vcVPNConnectionId' + -> Text -- ^ 'vcCustomerGatewayId' + -> VPNState -- ^ 'vcState' + -> GatewayType -- ^ 'vcType' + -> VPNConnection +vpnConnection pVPNConnectionId_ pCustomerGatewayId_ pState_ pType_ = + VPNConnection' + { _vcCustomerGatewayConfiguration = Nothing + , _vcRoutes = Nothing + , _vcVPNGatewayId = Nothing + , _vcCategory = Nothing + , _vcOptions = Nothing + , _vcTags = Nothing + , _vcVGWTelemetry = Nothing + , _vcVPNConnectionId = pVPNConnectionId_ + , _vcCustomerGatewayId = pCustomerGatewayId_ + , _vcState = pState_ + , _vcType = pType_ + } + + +-- | The configuration information for the VPN connection's customer gateway (in the native XML format). This element is always present in the 'CreateVpnConnection' response; however, it's present in the 'DescribeVpnConnections' response only if the VPN connection is in the @pending@ or @available@ state. +vcCustomerGatewayConfiguration :: Lens' VPNConnection (Maybe Text) +vcCustomerGatewayConfiguration = lens _vcCustomerGatewayConfiguration (\ s a -> s{_vcCustomerGatewayConfiguration = a}) + +-- | The static routes associated with the VPN connection. +vcRoutes :: Lens' VPNConnection [VPNStaticRoute] +vcRoutes = lens _vcRoutes (\ s a -> s{_vcRoutes = a}) . _Default . _Coerce + +-- | The ID of the virtual private gateway at the AWS side of the VPN connection. +vcVPNGatewayId :: Lens' VPNConnection (Maybe Text) +vcVPNGatewayId = lens _vcVPNGatewayId (\ s a -> s{_vcVPNGatewayId = a}) + +-- | The category of the VPN connection. A value of @VPN@ indicates an AWS VPN connection. A value of @VPN-Classic@ indicates an AWS Classic VPN connection. For more information, see in the /Amazon Virtual Private Cloud User Guide/ . +vcCategory :: Lens' VPNConnection (Maybe Text) +vcCategory = lens _vcCategory (\ s a -> s{_vcCategory = a}) + +-- | The VPN connection options. +vcOptions :: Lens' VPNConnection (Maybe VPNConnectionOptions) +vcOptions = lens _vcOptions (\ s a -> s{_vcOptions = a}) + +-- | Any tags assigned to the VPN connection. +vcTags :: Lens' VPNConnection [Tag] +vcTags = lens _vcTags (\ s a -> s{_vcTags = a}) . _Default . _Coerce + +-- | Information about the VPN tunnel. +vcVGWTelemetry :: Lens' VPNConnection [VGWTelemetry] +vcVGWTelemetry = lens _vcVGWTelemetry (\ s a -> s{_vcVGWTelemetry = a}) . _Default . _Coerce + +-- | The ID of the VPN connection. +vcVPNConnectionId :: Lens' VPNConnection Text +vcVPNConnectionId = lens _vcVPNConnectionId (\ s a -> s{_vcVPNConnectionId = a}) + +-- | The ID of the customer gateway at your end of the VPN connection. +vcCustomerGatewayId :: Lens' VPNConnection Text +vcCustomerGatewayId = lens _vcCustomerGatewayId (\ s a -> s{_vcCustomerGatewayId = a}) + +-- | The current state of the VPN connection. +vcState :: Lens' VPNConnection VPNState +vcState = lens _vcState (\ s a -> s{_vcState = a}) + +-- | The type of VPN connection. +vcType :: Lens' VPNConnection GatewayType +vcType = lens _vcType (\ s a -> s{_vcType = a}) + +instance FromXML VPNConnection where + parseXML x + = VPNConnection' <$> + (x .@? "customerGatewayConfiguration") <*> + (x .@? "routes" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpnGatewayId") + <*> (x .@? "category") + <*> (x .@? "options") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> + (x .@? "vgwTelemetry" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "vpnConnectionId") + <*> (x .@ "customerGatewayId") + <*> (x .@ "state") + <*> (x .@ "type") + +instance Hashable VPNConnection where + +instance NFData VPNConnection where + +-- | Describes VPN connection options. +-- +-- +-- +-- /See:/ 'vpnConnectionOptions' smart constructor. +newtype VPNConnectionOptions = VPNConnectionOptions' + { _vcoStaticRoutesOnly :: Maybe Bool + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPNConnectionOptions' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vcoStaticRoutesOnly' - Indicates whether the VPN connection uses static routes only. Static routes must be used for devices that don't support BGP. +vpnConnectionOptions + :: VPNConnectionOptions +vpnConnectionOptions = VPNConnectionOptions' {_vcoStaticRoutesOnly = Nothing} + + +-- | Indicates whether the VPN connection uses static routes only. Static routes must be used for devices that don't support BGP. +vcoStaticRoutesOnly :: Lens' VPNConnectionOptions (Maybe Bool) +vcoStaticRoutesOnly = lens _vcoStaticRoutesOnly (\ s a -> s{_vcoStaticRoutesOnly = a}) + +instance FromXML VPNConnectionOptions where + parseXML x + = VPNConnectionOptions' <$> + (x .@? "staticRoutesOnly") + +instance Hashable VPNConnectionOptions where + +instance NFData VPNConnectionOptions where + +-- | Describes VPN connection options. +-- +-- +-- +-- /See:/ 'vpnConnectionOptionsSpecification' smart constructor. +data VPNConnectionOptionsSpecification = VPNConnectionOptionsSpecification' + { _vcosTunnelOptions :: !(Maybe [VPNTunnelOptionsSpecification]) + , _vcosStaticRoutesOnly :: !(Maybe Bool) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPNConnectionOptionsSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vcosTunnelOptions' - The tunnel options for the VPN connection. +-- +-- * 'vcosStaticRoutesOnly' - Indicate whether the VPN connection uses static routes only. If you are creating a VPN connection for a device that does not support BGP, you must specify @true@ . Use 'CreateVpnConnectionRoute' to create a static route. Default: @false@ +vpnConnectionOptionsSpecification + :: VPNConnectionOptionsSpecification +vpnConnectionOptionsSpecification = + VPNConnectionOptionsSpecification' + {_vcosTunnelOptions = Nothing, _vcosStaticRoutesOnly = Nothing} + + +-- | The tunnel options for the VPN connection. +vcosTunnelOptions :: Lens' VPNConnectionOptionsSpecification [VPNTunnelOptionsSpecification] +vcosTunnelOptions = lens _vcosTunnelOptions (\ s a -> s{_vcosTunnelOptions = a}) . _Default . _Coerce + +-- | Indicate whether the VPN connection uses static routes only. If you are creating a VPN connection for a device that does not support BGP, you must specify @true@ . Use 'CreateVpnConnectionRoute' to create a static route. Default: @false@ +vcosStaticRoutesOnly :: Lens' VPNConnectionOptionsSpecification (Maybe Bool) +vcosStaticRoutesOnly = lens _vcosStaticRoutesOnly (\ s a -> s{_vcosStaticRoutesOnly = a}) + +instance Hashable VPNConnectionOptionsSpecification + where + +instance NFData VPNConnectionOptionsSpecification + where + +instance ToQuery VPNConnectionOptionsSpecification + where + toQuery VPNConnectionOptionsSpecification'{..} + = mconcat + [toQuery + (toQueryList "TunnelOptions" <$> _vcosTunnelOptions), + "StaticRoutesOnly" =: _vcosStaticRoutesOnly] + +-- | Describes a virtual private gateway. +-- +-- +-- +-- /See:/ 'vpnGateway' smart constructor. +data VPNGateway = VPNGateway' + { _vgState :: !(Maybe VPNState) + , _vgVPCAttachments :: !(Maybe [VPCAttachment]) + , _vgVPNGatewayId :: !(Maybe Text) + , _vgAmazonSideASN :: !(Maybe Integer) + , _vgAvailabilityZone :: !(Maybe Text) + , _vgType :: !(Maybe GatewayType) + , _vgTags :: !(Maybe [Tag]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPNGateway' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vgState' - The current state of the virtual private gateway. +-- +-- * 'vgVPCAttachments' - Any VPCs attached to the virtual private gateway. +-- +-- * 'vgVPNGatewayId' - The ID of the virtual private gateway. +-- +-- * 'vgAmazonSideASN' - The private Autonomous System Number (ASN) for the Amazon side of a BGP session. +-- +-- * 'vgAvailabilityZone' - The Availability Zone where the virtual private gateway was created, if applicable. This field may be empty or not returned. +-- +-- * 'vgType' - The type of VPN connection the virtual private gateway supports. +-- +-- * 'vgTags' - Any tags assigned to the virtual private gateway. +vpnGateway + :: VPNGateway +vpnGateway = + VPNGateway' + { _vgState = Nothing + , _vgVPCAttachments = Nothing + , _vgVPNGatewayId = Nothing + , _vgAmazonSideASN = Nothing + , _vgAvailabilityZone = Nothing + , _vgType = Nothing + , _vgTags = Nothing + } + + +-- | The current state of the virtual private gateway. +vgState :: Lens' VPNGateway (Maybe VPNState) +vgState = lens _vgState (\ s a -> s{_vgState = a}) + +-- | Any VPCs attached to the virtual private gateway. +vgVPCAttachments :: Lens' VPNGateway [VPCAttachment] +vgVPCAttachments = lens _vgVPCAttachments (\ s a -> s{_vgVPCAttachments = a}) . _Default . _Coerce + +-- | The ID of the virtual private gateway. +vgVPNGatewayId :: Lens' VPNGateway (Maybe Text) +vgVPNGatewayId = lens _vgVPNGatewayId (\ s a -> s{_vgVPNGatewayId = a}) + +-- | The private Autonomous System Number (ASN) for the Amazon side of a BGP session. +vgAmazonSideASN :: Lens' VPNGateway (Maybe Integer) +vgAmazonSideASN = lens _vgAmazonSideASN (\ s a -> s{_vgAmazonSideASN = a}) + +-- | The Availability Zone where the virtual private gateway was created, if applicable. This field may be empty or not returned. +vgAvailabilityZone :: Lens' VPNGateway (Maybe Text) +vgAvailabilityZone = lens _vgAvailabilityZone (\ s a -> s{_vgAvailabilityZone = a}) + +-- | The type of VPN connection the virtual private gateway supports. +vgType :: Lens' VPNGateway (Maybe GatewayType) +vgType = lens _vgType (\ s a -> s{_vgType = a}) + +-- | Any tags assigned to the virtual private gateway. +vgTags :: Lens' VPNGateway [Tag] +vgTags = lens _vgTags (\ s a -> s{_vgTags = a}) . _Default . _Coerce + +instance FromXML VPNGateway where + parseXML x + = VPNGateway' <$> + (x .@? "state") <*> + (x .@? "attachments" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "vpnGatewayId") + <*> (x .@? "amazonSideAsn") + <*> (x .@? "availabilityZone") + <*> (x .@? "type") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable VPNGateway where + +instance NFData VPNGateway where + +-- | Describes a static route for a VPN connection. +-- +-- +-- +-- /See:/ 'vpnStaticRoute' smart constructor. +data VPNStaticRoute = VPNStaticRoute' + { _vsrState :: !(Maybe VPNState) + , _vsrSource :: !(Maybe VPNStaticRouteSource) + , _vsrDestinationCidrBlock :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPNStaticRoute' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vsrState' - The current state of the static route. +-- +-- * 'vsrSource' - Indicates how the routes were provided. +-- +-- * 'vsrDestinationCidrBlock' - The CIDR block associated with the local subnet of the customer data center. +vpnStaticRoute + :: VPNStaticRoute +vpnStaticRoute = + VPNStaticRoute' + { _vsrState = Nothing + , _vsrSource = Nothing + , _vsrDestinationCidrBlock = Nothing + } + + +-- | The current state of the static route. +vsrState :: Lens' VPNStaticRoute (Maybe VPNState) +vsrState = lens _vsrState (\ s a -> s{_vsrState = a}) + +-- | Indicates how the routes were provided. +vsrSource :: Lens' VPNStaticRoute (Maybe VPNStaticRouteSource) +vsrSource = lens _vsrSource (\ s a -> s{_vsrSource = a}) + +-- | The CIDR block associated with the local subnet of the customer data center. +vsrDestinationCidrBlock :: Lens' VPNStaticRoute (Maybe Text) +vsrDestinationCidrBlock = lens _vsrDestinationCidrBlock (\ s a -> s{_vsrDestinationCidrBlock = a}) + +instance FromXML VPNStaticRoute where + parseXML x + = VPNStaticRoute' <$> + (x .@? "state") <*> (x .@? "source") <*> + (x .@? "destinationCidrBlock") + +instance Hashable VPNStaticRoute where + +instance NFData VPNStaticRoute where + +-- | The tunnel options for a VPN connection. +-- +-- +-- +-- /See:/ 'vpnTunnelOptionsSpecification' smart constructor. +data VPNTunnelOptionsSpecification = VPNTunnelOptionsSpecification' + { _vtosTunnelInsideCidr :: !(Maybe Text) + , _vtosPreSharedKey :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VPNTunnelOptionsSpecification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vtosTunnelInsideCidr' - The range of inside IP addresses for the tunnel. Any specified CIDR blocks must be unique across all VPN connections that use the same virtual private gateway. Constraints: A size /30 CIDR block from the @169.254.0.0/16@ range. The following CIDR blocks are reserved and cannot be used: * @169.254.0.0/30@ * @169.254.1.0/30@ * @169.254.2.0/30@ * @169.254.3.0/30@ * @169.254.4.0/30@ * @169.254.5.0/30@ * @169.254.169.252/30@ +-- +-- * 'vtosPreSharedKey' - The pre-shared key (PSK) to establish initial authentication between the virtual private gateway and customer gateway. Constraints: Allowed characters are alphanumeric characters and ._. Must be between 8 and 64 characters in length and cannot start with zero (0). +vpnTunnelOptionsSpecification + :: VPNTunnelOptionsSpecification +vpnTunnelOptionsSpecification = + VPNTunnelOptionsSpecification' + {_vtosTunnelInsideCidr = Nothing, _vtosPreSharedKey = Nothing} + + +-- | The range of inside IP addresses for the tunnel. Any specified CIDR blocks must be unique across all VPN connections that use the same virtual private gateway. Constraints: A size /30 CIDR block from the @169.254.0.0/16@ range. The following CIDR blocks are reserved and cannot be used: * @169.254.0.0/30@ * @169.254.1.0/30@ * @169.254.2.0/30@ * @169.254.3.0/30@ * @169.254.4.0/30@ * @169.254.5.0/30@ * @169.254.169.252/30@ +vtosTunnelInsideCidr :: Lens' VPNTunnelOptionsSpecification (Maybe Text) +vtosTunnelInsideCidr = lens _vtosTunnelInsideCidr (\ s a -> s{_vtosTunnelInsideCidr = a}) + +-- | The pre-shared key (PSK) to establish initial authentication between the virtual private gateway and customer gateway. Constraints: Allowed characters are alphanumeric characters and ._. Must be between 8 and 64 characters in length and cannot start with zero (0). +vtosPreSharedKey :: Lens' VPNTunnelOptionsSpecification (Maybe Text) +vtosPreSharedKey = lens _vtosPreSharedKey (\ s a -> s{_vtosPreSharedKey = a}) + +instance Hashable VPNTunnelOptionsSpecification where + +instance NFData VPNTunnelOptionsSpecification where + +instance ToQuery VPNTunnelOptionsSpecification where + toQuery VPNTunnelOptionsSpecification'{..} + = mconcat + ["TunnelInsideCidr" =: _vtosTunnelInsideCidr, + "PreSharedKey" =: _vtosPreSharedKey] + +-- | Describes a volume. +-- +-- +-- +-- /See:/ 'volume' smart constructor. +data Volume = Volume' + { _vAttachments :: !(Maybe [VolumeAttachment]) + , _vIOPS :: !(Maybe Int) + , _vKMSKeyId :: !(Maybe Text) + , _vTags :: !(Maybe [Tag]) + , _vAvailabilityZone :: !Text + , _vCreateTime :: !ISO8601 + , _vEncrypted :: !Bool + , _vSize :: !Int + , _vSnapshotId :: !Text + , _vState :: !VolumeState + , _vVolumeId :: !Text + , _vVolumeType :: !VolumeType + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'Volume' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vAttachments' - Information about the volume attachments. +-- +-- * 'vIOPS' - The number of I/O operations per second (IOPS) that the volume supports. For Provisioned IOPS SSD volumes, this represents the number of IOPS that are provisioned for the volume. For General Purpose SSD volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information on General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-32000 IOPS for io1 volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. +-- +-- * 'vKMSKeyId' - The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the volume. +-- +-- * 'vTags' - Any tags assigned to the volume. +-- +-- * 'vAvailabilityZone' - The Availability Zone for the volume. +-- +-- * 'vCreateTime' - The time stamp when volume creation was initiated. +-- +-- * 'vEncrypted' - Indicates whether the volume will be encrypted. +-- +-- * 'vSize' - The size of the volume, in GiBs. +-- +-- * 'vSnapshotId' - The snapshot from which the volume was created, if applicable. +-- +-- * 'vState' - The volume state. +-- +-- * 'vVolumeId' - The ID of the volume. +-- +-- * 'vVolumeType' - The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. +volume + :: Text -- ^ 'vAvailabilityZone' + -> UTCTime -- ^ 'vCreateTime' + -> Bool -- ^ 'vEncrypted' + -> Int -- ^ 'vSize' + -> Text -- ^ 'vSnapshotId' + -> VolumeState -- ^ 'vState' + -> Text -- ^ 'vVolumeId' + -> VolumeType -- ^ 'vVolumeType' + -> Volume +volume pAvailabilityZone_ pCreateTime_ pEncrypted_ pSize_ pSnapshotId_ pState_ pVolumeId_ pVolumeType_ = + Volume' + { _vAttachments = Nothing + , _vIOPS = Nothing + , _vKMSKeyId = Nothing + , _vTags = Nothing + , _vAvailabilityZone = pAvailabilityZone_ + , _vCreateTime = _Time # pCreateTime_ + , _vEncrypted = pEncrypted_ + , _vSize = pSize_ + , _vSnapshotId = pSnapshotId_ + , _vState = pState_ + , _vVolumeId = pVolumeId_ + , _vVolumeType = pVolumeType_ + } + + +-- | Information about the volume attachments. +vAttachments :: Lens' Volume [VolumeAttachment] +vAttachments = lens _vAttachments (\ s a -> s{_vAttachments = a}) . _Default . _Coerce + +-- | The number of I/O operations per second (IOPS) that the volume supports. For Provisioned IOPS SSD volumes, this represents the number of IOPS that are provisioned for the volume. For General Purpose SSD volumes, this represents the baseline performance of the volume and the rate at which the volume accumulates I/O credits for bursting. For more information on General Purpose SSD baseline performance, I/O credits, and bursting, see in the /Amazon Elastic Compute Cloud User Guide/ . Constraint: Range is 100-32000 IOPS for io1 volumes and 100-10000 IOPS for @gp2@ volumes. Condition: This parameter is required for requests to create @io1@ volumes; it is not used in requests to create @gp2@ , @st1@ , @sc1@ , or @standard@ volumes. +vIOPS :: Lens' Volume (Maybe Int) +vIOPS = lens _vIOPS (\ s a -> s{_vIOPS = a}) + +-- | The full ARN of the AWS Key Management Service (AWS KMS) customer master key (CMK) that was used to protect the volume encryption key for the volume. +vKMSKeyId :: Lens' Volume (Maybe Text) +vKMSKeyId = lens _vKMSKeyId (\ s a -> s{_vKMSKeyId = a}) + +-- | Any tags assigned to the volume. +vTags :: Lens' Volume [Tag] +vTags = lens _vTags (\ s a -> s{_vTags = a}) . _Default . _Coerce + +-- | The Availability Zone for the volume. +vAvailabilityZone :: Lens' Volume Text +vAvailabilityZone = lens _vAvailabilityZone (\ s a -> s{_vAvailabilityZone = a}) + +-- | The time stamp when volume creation was initiated. +vCreateTime :: Lens' Volume UTCTime +vCreateTime = lens _vCreateTime (\ s a -> s{_vCreateTime = a}) . _Time + +-- | Indicates whether the volume will be encrypted. +vEncrypted :: Lens' Volume Bool +vEncrypted = lens _vEncrypted (\ s a -> s{_vEncrypted = a}) + +-- | The size of the volume, in GiBs. +vSize :: Lens' Volume Int +vSize = lens _vSize (\ s a -> s{_vSize = a}) + +-- | The snapshot from which the volume was created, if applicable. +vSnapshotId :: Lens' Volume Text +vSnapshotId = lens _vSnapshotId (\ s a -> s{_vSnapshotId = a}) + +-- | The volume state. +vState :: Lens' Volume VolumeState +vState = lens _vState (\ s a -> s{_vState = a}) + +-- | The ID of the volume. +vVolumeId :: Lens' Volume Text +vVolumeId = lens _vVolumeId (\ s a -> s{_vVolumeId = a}) + +-- | The volume type. This can be @gp2@ for General Purpose SSD, @io1@ for Provisioned IOPS SSD, @st1@ for Throughput Optimized HDD, @sc1@ for Cold HDD, or @standard@ for Magnetic volumes. +vVolumeType :: Lens' Volume VolumeType +vVolumeType = lens _vVolumeType (\ s a -> s{_vVolumeType = a}) + +instance FromXML Volume where + parseXML x + = Volume' <$> + (x .@? "attachmentSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@? "iops") + <*> (x .@? "kmsKeyId") + <*> + (x .@? "tagSet" .!@ mempty >>= + may (parseXMLList "item")) + <*> (x .@ "availabilityZone") + <*> (x .@ "createTime") + <*> (x .@ "encrypted") + <*> (x .@ "size") + <*> (x .@ "snapshotId") + <*> (x .@ "status") + <*> (x .@ "volumeId") + <*> (x .@ "volumeType") + +instance Hashable Volume where + +instance NFData Volume where + +-- | Describes volume attachment details. +-- +-- +-- +-- /See:/ 'volumeAttachment' smart constructor. +data VolumeAttachment = VolumeAttachment' + { _volInstanceId :: !(Maybe Text) + , _volDeleteOnTermination :: !(Maybe Bool) + , _volState :: !(Maybe VolumeAttachmentState) + , _volDevice :: !(Maybe Text) + , _volVolumeId :: !(Maybe Text) + , _volAttachTime :: !(Maybe ISO8601) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeAttachment' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'volInstanceId' - The ID of the instance. +-- +-- * 'volDeleteOnTermination' - Indicates whether the EBS volume is deleted on instance termination. +-- +-- * 'volState' - The attachment state of the volume. +-- +-- * 'volDevice' - The device name. +-- +-- * 'volVolumeId' - The ID of the volume. +-- +-- * 'volAttachTime' - The time stamp when the attachment initiated. +volumeAttachment + :: VolumeAttachment +volumeAttachment = + VolumeAttachment' + { _volInstanceId = Nothing + , _volDeleteOnTermination = Nothing + , _volState = Nothing + , _volDevice = Nothing + , _volVolumeId = Nothing + , _volAttachTime = Nothing + } + + +-- | The ID of the instance. +volInstanceId :: Lens' VolumeAttachment (Maybe Text) +volInstanceId = lens _volInstanceId (\ s a -> s{_volInstanceId = a}) + +-- | Indicates whether the EBS volume is deleted on instance termination. +volDeleteOnTermination :: Lens' VolumeAttachment (Maybe Bool) +volDeleteOnTermination = lens _volDeleteOnTermination (\ s a -> s{_volDeleteOnTermination = a}) + +-- | The attachment state of the volume. +volState :: Lens' VolumeAttachment (Maybe VolumeAttachmentState) +volState = lens _volState (\ s a -> s{_volState = a}) + +-- | The device name. +volDevice :: Lens' VolumeAttachment (Maybe Text) +volDevice = lens _volDevice (\ s a -> s{_volDevice = a}) + +-- | The ID of the volume. +volVolumeId :: Lens' VolumeAttachment (Maybe Text) +volVolumeId = lens _volVolumeId (\ s a -> s{_volVolumeId = a}) + +-- | The time stamp when the attachment initiated. +volAttachTime :: Lens' VolumeAttachment (Maybe UTCTime) +volAttachTime = lens _volAttachTime (\ s a -> s{_volAttachTime = a}) . mapping _Time + +instance FromXML VolumeAttachment where + parseXML x + = VolumeAttachment' <$> + (x .@? "instanceId") <*> + (x .@? "deleteOnTermination") + <*> (x .@? "status") + <*> (x .@? "device") + <*> (x .@? "volumeId") + <*> (x .@? "attachTime") + +instance Hashable VolumeAttachment where + +instance NFData VolumeAttachment where + +-- | Describes an EBS volume. +-- +-- +-- +-- /See:/ 'volumeDetail' smart constructor. +newtype VolumeDetail = VolumeDetail' + { _vdSize :: Integer + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeDetail' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vdSize' - The size of the volume, in GiB. +volumeDetail + :: Integer -- ^ 'vdSize' + -> VolumeDetail +volumeDetail pSize_ = VolumeDetail' {_vdSize = pSize_} + + +-- | The size of the volume, in GiB. +vdSize :: Lens' VolumeDetail Integer +vdSize = lens _vdSize (\ s a -> s{_vdSize = a}) + +instance Hashable VolumeDetail where + +instance NFData VolumeDetail where + +instance ToQuery VolumeDetail where + toQuery VolumeDetail'{..} + = mconcat ["Size" =: _vdSize] + +-- | Describes the modification status of an EBS volume. +-- +-- +-- If the volume has never been modified, some element values will be null. +-- +-- +-- /See:/ 'volumeModification' smart constructor. +data VolumeModification = VolumeModification' + { _vmProgress :: !(Maybe Integer) + , _vmStartTime :: !(Maybe ISO8601) + , _vmModificationState :: !(Maybe VolumeModificationState) + , _vmTargetVolumeType :: !(Maybe VolumeType) + , _vmOriginalVolumeType :: !(Maybe VolumeType) + , _vmTargetSize :: !(Maybe Int) + , _vmTargetIOPS :: !(Maybe Int) + , _vmOriginalSize :: !(Maybe Int) + , _vmOriginalIOPS :: !(Maybe Int) + , _vmStatusMessage :: !(Maybe Text) + , _vmEndTime :: !(Maybe ISO8601) + , _vmVolumeId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeModification' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vmProgress' - Modification progress from 0 to 100%. +-- +-- * 'vmStartTime' - Modification start time +-- +-- * 'vmModificationState' - Current state of modification. Modification state is null for unmodified volumes. +-- +-- * 'vmTargetVolumeType' - Target EBS volume type of the volume being modified. +-- +-- * 'vmOriginalVolumeType' - Original EBS volume type of the volume being modified. +-- +-- * 'vmTargetSize' - Target size of the volume being modified. +-- +-- * 'vmTargetIOPS' - Target IOPS rate of the volume being modified. +-- +-- * 'vmOriginalSize' - Original size of the volume being modified. +-- +-- * 'vmOriginalIOPS' - Original IOPS rate of the volume being modified. +-- +-- * 'vmStatusMessage' - Generic status message on modification progress or failure. +-- +-- * 'vmEndTime' - Modification completion or failure time. +-- +-- * 'vmVolumeId' - ID of the volume being modified. +volumeModification + :: VolumeModification +volumeModification = + VolumeModification' + { _vmProgress = Nothing + , _vmStartTime = Nothing + , _vmModificationState = Nothing + , _vmTargetVolumeType = Nothing + , _vmOriginalVolumeType = Nothing + , _vmTargetSize = Nothing + , _vmTargetIOPS = Nothing + , _vmOriginalSize = Nothing + , _vmOriginalIOPS = Nothing + , _vmStatusMessage = Nothing + , _vmEndTime = Nothing + , _vmVolumeId = Nothing + } + + +-- | Modification progress from 0 to 100%. +vmProgress :: Lens' VolumeModification (Maybe Integer) +vmProgress = lens _vmProgress (\ s a -> s{_vmProgress = a}) + +-- | Modification start time +vmStartTime :: Lens' VolumeModification (Maybe UTCTime) +vmStartTime = lens _vmStartTime (\ s a -> s{_vmStartTime = a}) . mapping _Time + +-- | Current state of modification. Modification state is null for unmodified volumes. +vmModificationState :: Lens' VolumeModification (Maybe VolumeModificationState) +vmModificationState = lens _vmModificationState (\ s a -> s{_vmModificationState = a}) + +-- | Target EBS volume type of the volume being modified. +vmTargetVolumeType :: Lens' VolumeModification (Maybe VolumeType) +vmTargetVolumeType = lens _vmTargetVolumeType (\ s a -> s{_vmTargetVolumeType = a}) + +-- | Original EBS volume type of the volume being modified. +vmOriginalVolumeType :: Lens' VolumeModification (Maybe VolumeType) +vmOriginalVolumeType = lens _vmOriginalVolumeType (\ s a -> s{_vmOriginalVolumeType = a}) + +-- | Target size of the volume being modified. +vmTargetSize :: Lens' VolumeModification (Maybe Int) +vmTargetSize = lens _vmTargetSize (\ s a -> s{_vmTargetSize = a}) + +-- | Target IOPS rate of the volume being modified. +vmTargetIOPS :: Lens' VolumeModification (Maybe Int) +vmTargetIOPS = lens _vmTargetIOPS (\ s a -> s{_vmTargetIOPS = a}) + +-- | Original size of the volume being modified. +vmOriginalSize :: Lens' VolumeModification (Maybe Int) +vmOriginalSize = lens _vmOriginalSize (\ s a -> s{_vmOriginalSize = a}) + +-- | Original IOPS rate of the volume being modified. +vmOriginalIOPS :: Lens' VolumeModification (Maybe Int) +vmOriginalIOPS = lens _vmOriginalIOPS (\ s a -> s{_vmOriginalIOPS = a}) + +-- | Generic status message on modification progress or failure. +vmStatusMessage :: Lens' VolumeModification (Maybe Text) +vmStatusMessage = lens _vmStatusMessage (\ s a -> s{_vmStatusMessage = a}) + +-- | Modification completion or failure time. +vmEndTime :: Lens' VolumeModification (Maybe UTCTime) +vmEndTime = lens _vmEndTime (\ s a -> s{_vmEndTime = a}) . mapping _Time + +-- | ID of the volume being modified. +vmVolumeId :: Lens' VolumeModification (Maybe Text) +vmVolumeId = lens _vmVolumeId (\ s a -> s{_vmVolumeId = a}) + +instance FromXML VolumeModification where + parseXML x + = VolumeModification' <$> + (x .@? "progress") <*> (x .@? "startTime") <*> + (x .@? "modificationState") + <*> (x .@? "targetVolumeType") + <*> (x .@? "originalVolumeType") + <*> (x .@? "targetSize") + <*> (x .@? "targetIops") + <*> (x .@? "originalSize") + <*> (x .@? "originalIops") + <*> (x .@? "statusMessage") + <*> (x .@? "endTime") + <*> (x .@? "volumeId") + +instance Hashable VolumeModification where + +instance NFData VolumeModification where + +-- | Describes a volume status operation code. +-- +-- +-- +-- /See:/ 'volumeStatusAction' smart constructor. +data VolumeStatusAction = VolumeStatusAction' + { _vsaEventType :: !(Maybe Text) + , _vsaCode :: !(Maybe Text) + , _vsaDescription :: !(Maybe Text) + , _vsaEventId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeStatusAction' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vsaEventType' - The event type associated with this operation. +-- +-- * 'vsaCode' - The code identifying the operation, for example, @enable-volume-io@ . +-- +-- * 'vsaDescription' - A description of the operation. +-- +-- * 'vsaEventId' - The ID of the event associated with this operation. +volumeStatusAction + :: VolumeStatusAction +volumeStatusAction = + VolumeStatusAction' + { _vsaEventType = Nothing + , _vsaCode = Nothing + , _vsaDescription = Nothing + , _vsaEventId = Nothing + } + + +-- | The event type associated with this operation. +vsaEventType :: Lens' VolumeStatusAction (Maybe Text) +vsaEventType = lens _vsaEventType (\ s a -> s{_vsaEventType = a}) + +-- | The code identifying the operation, for example, @enable-volume-io@ . +vsaCode :: Lens' VolumeStatusAction (Maybe Text) +vsaCode = lens _vsaCode (\ s a -> s{_vsaCode = a}) + +-- | A description of the operation. +vsaDescription :: Lens' VolumeStatusAction (Maybe Text) +vsaDescription = lens _vsaDescription (\ s a -> s{_vsaDescription = a}) + +-- | The ID of the event associated with this operation. +vsaEventId :: Lens' VolumeStatusAction (Maybe Text) +vsaEventId = lens _vsaEventId (\ s a -> s{_vsaEventId = a}) + +instance FromXML VolumeStatusAction where + parseXML x + = VolumeStatusAction' <$> + (x .@? "eventType") <*> (x .@? "code") <*> + (x .@? "description") + <*> (x .@? "eventId") + +instance Hashable VolumeStatusAction where + +instance NFData VolumeStatusAction where + +-- | Describes a volume status. +-- +-- +-- +-- /See:/ 'volumeStatusDetails' smart constructor. +data VolumeStatusDetails = VolumeStatusDetails' + { _vsdStatus :: !(Maybe Text) + , _vsdName :: !(Maybe VolumeStatusName) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeStatusDetails' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vsdStatus' - The intended status of the volume status. +-- +-- * 'vsdName' - The name of the volume status. +volumeStatusDetails + :: VolumeStatusDetails +volumeStatusDetails = + VolumeStatusDetails' {_vsdStatus = Nothing, _vsdName = Nothing} + + +-- | The intended status of the volume status. +vsdStatus :: Lens' VolumeStatusDetails (Maybe Text) +vsdStatus = lens _vsdStatus (\ s a -> s{_vsdStatus = a}) + +-- | The name of the volume status. +vsdName :: Lens' VolumeStatusDetails (Maybe VolumeStatusName) +vsdName = lens _vsdName (\ s a -> s{_vsdName = a}) + +instance FromXML VolumeStatusDetails where + parseXML x + = VolumeStatusDetails' <$> + (x .@? "status") <*> (x .@? "name") + +instance Hashable VolumeStatusDetails where + +instance NFData VolumeStatusDetails where + +-- | Describes a volume status event. +-- +-- +-- +-- /See:/ 'volumeStatusEvent' smart constructor. +data VolumeStatusEvent = VolumeStatusEvent' + { _vseNotBefore :: !(Maybe ISO8601) + , _vseEventType :: !(Maybe Text) + , _vseDescription :: !(Maybe Text) + , _vseNotAfter :: !(Maybe ISO8601) + , _vseEventId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeStatusEvent' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vseNotBefore' - The earliest start time of the event. +-- +-- * 'vseEventType' - The type of this event. +-- +-- * 'vseDescription' - A description of the event. +-- +-- * 'vseNotAfter' - The latest end time of the event. +-- +-- * 'vseEventId' - The ID of this event. +volumeStatusEvent + :: VolumeStatusEvent +volumeStatusEvent = + VolumeStatusEvent' + { _vseNotBefore = Nothing + , _vseEventType = Nothing + , _vseDescription = Nothing + , _vseNotAfter = Nothing + , _vseEventId = Nothing + } + + +-- | The earliest start time of the event. +vseNotBefore :: Lens' VolumeStatusEvent (Maybe UTCTime) +vseNotBefore = lens _vseNotBefore (\ s a -> s{_vseNotBefore = a}) . mapping _Time + +-- | The type of this event. +vseEventType :: Lens' VolumeStatusEvent (Maybe Text) +vseEventType = lens _vseEventType (\ s a -> s{_vseEventType = a}) + +-- | A description of the event. +vseDescription :: Lens' VolumeStatusEvent (Maybe Text) +vseDescription = lens _vseDescription (\ s a -> s{_vseDescription = a}) + +-- | The latest end time of the event. +vseNotAfter :: Lens' VolumeStatusEvent (Maybe UTCTime) +vseNotAfter = lens _vseNotAfter (\ s a -> s{_vseNotAfter = a}) . mapping _Time + +-- | The ID of this event. +vseEventId :: Lens' VolumeStatusEvent (Maybe Text) +vseEventId = lens _vseEventId (\ s a -> s{_vseEventId = a}) + +instance FromXML VolumeStatusEvent where + parseXML x + = VolumeStatusEvent' <$> + (x .@? "notBefore") <*> (x .@? "eventType") <*> + (x .@? "description") + <*> (x .@? "notAfter") + <*> (x .@? "eventId") + +instance Hashable VolumeStatusEvent where + +instance NFData VolumeStatusEvent where + +-- | Describes the status of a volume. +-- +-- +-- +-- /See:/ 'volumeStatusInfo' smart constructor. +data VolumeStatusInfo = VolumeStatusInfo' + { _vsiStatus :: !(Maybe VolumeStatusInfoStatus) + , _vsiDetails :: !(Maybe [VolumeStatusDetails]) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeStatusInfo' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vsiStatus' - The status of the volume. +-- +-- * 'vsiDetails' - The details of the volume status. +volumeStatusInfo + :: VolumeStatusInfo +volumeStatusInfo = + VolumeStatusInfo' {_vsiStatus = Nothing, _vsiDetails = Nothing} + + +-- | The status of the volume. +vsiStatus :: Lens' VolumeStatusInfo (Maybe VolumeStatusInfoStatus) +vsiStatus = lens _vsiStatus (\ s a -> s{_vsiStatus = a}) + +-- | The details of the volume status. +vsiDetails :: Lens' VolumeStatusInfo [VolumeStatusDetails] +vsiDetails = lens _vsiDetails (\ s a -> s{_vsiDetails = a}) . _Default . _Coerce + +instance FromXML VolumeStatusInfo where + parseXML x + = VolumeStatusInfo' <$> + (x .@? "status") <*> + (x .@? "details" .!@ mempty >>= + may (parseXMLList "item")) + +instance Hashable VolumeStatusInfo where + +instance NFData VolumeStatusInfo where + +-- | Describes the volume status. +-- +-- +-- +-- /See:/ 'volumeStatusItem' smart constructor. +data VolumeStatusItem = VolumeStatusItem' + { _vsiVolumeStatus :: !(Maybe VolumeStatusInfo) + , _vsiActions :: !(Maybe [VolumeStatusAction]) + , _vsiEvents :: !(Maybe [VolumeStatusEvent]) + , _vsiAvailabilityZone :: !(Maybe Text) + , _vsiVolumeId :: !(Maybe Text) + } deriving (Eq, Read, Show, Data, Typeable, Generic) + + +-- | Creates a value of 'VolumeStatusItem' with the minimum fields required to make a request. +-- +-- Use one of the following lenses to modify other fields as desired: +-- +-- * 'vsiVolumeStatus' - The volume status. +-- +-- * 'vsiActions' - The details of the operation. +-- +-- * 'vsiEvents' - A list of events associated with the volume. +-- +-- * 'vsiAvailabilityZone' - The Availability Zone of the volume. +-- +-- * 'vsiVolumeId' - The volume ID. +volumeStatusItem + :: VolumeStatusItem +volumeStatusItem = + VolumeStatusItem' + { _vsiVolumeStatus = Nothing + , _vsiActions = Nothing + , _vsiEvents = Nothing + , _vsiAvailabilityZone = Nothing + , _vsiVolumeId = Nothing + } + + +-- | The volume status. +vsiVolumeStatus :: Lens' VolumeStatusItem (Maybe VolumeStatusInfo) +vsiVolumeStatus = lens _vsiVolumeStatus (\ s a -> s{_vsiVolumeStatus = a}) + +-- | The details of the operation. +vsiActions :: Lens' VolumeStatusItem [VolumeStatusAction] +vsiActions = lens _vsiActions (\ s a -> s{_vsiActions = a}) . _Default . _Coerce + +-- | A list of events associated with the volume. +vsiEvents :: Lens' VolumeStatusItem [VolumeStatusEvent] +vsiEvents = lens _vsiEvents (\ s a -> s{_vsiEvents = a}) . _Default . _Coerce + +-- | The Availability Zone of the volume. +vsiAvailabilityZone :: Lens' VolumeStatusItem (Maybe Text) +vsiAvailabilityZone = lens _vsiAvailabilityZone (\ s a -> s{_vsiAvailabilityZone = a}) + +-- | The volume ID. +vsiVolumeId :: Lens' VolumeStatusItem (Maybe Text) +vsiVolumeId = lens _vsiVolumeId (\ s a -> s{_vsiVolumeId = a}) instance FromXML VolumeStatusItem where parseXML x 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 @@ -9,7 +9,7 @@ -- | -- Module : Network.AWS.EC2.Types.Sum --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -45,28 +45,28 @@ instance ToHeader AccountAttributeName data ActivityStatus - = Error' - | Fulfilled - | PendingFulfillment - | PendingTermination + = ASError' + | ASFulfilled + | ASPendingFulfillment + | ASPendingTermination deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) instance FromText ActivityStatus where parser = takeLowerText >>= \case - "error" -> pure Error' - "fulfilled" -> pure Fulfilled - "pending_fulfillment" -> pure PendingFulfillment - "pending_termination" -> pure PendingTermination + "error" -> pure ASError' + "fulfilled" -> pure ASFulfilled + "pending_fulfillment" -> pure ASPendingFulfillment + "pending_termination" -> pure ASPendingTermination e -> fromTextError $ "Failure parsing ActivityStatus from value: '" <> e <> "'. Accepted values: error, fulfilled, pending_fulfillment, pending_termination" instance ToText ActivityStatus where toText = \case - Error' -> "error" - Fulfilled -> "fulfilled" - PendingFulfillment -> "pending_fulfillment" - PendingTermination -> "pending_termination" + ASError' -> "error" + ASFulfilled -> "fulfilled" + ASPendingFulfillment -> "pending_fulfillment" + ASPendingTermination -> "pending_termination" instance Hashable ActivityStatus instance NFData ActivityStatus @@ -168,22 +168,22 @@ parseXML = parseXMLText "AllocationState" data AllocationStrategy - = Diversified - | LowestPrice + = ASDiversified + | ASLowestPrice deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) instance FromText AllocationStrategy where parser = takeLowerText >>= \case - "diversified" -> pure Diversified - "lowestprice" -> pure LowestPrice + "diversified" -> pure ASDiversified + "lowestprice" -> pure ASLowestPrice e -> fromTextError $ "Failure parsing AllocationStrategy from value: '" <> e <> "'. Accepted values: diversified, lowestprice" instance ToText AllocationStrategy where toText = \case - Diversified -> "diversified" - LowestPrice -> "lowestPrice" + ASDiversified -> "diversified" + ASLowestPrice -> "lowestPrice" instance Hashable AllocationStrategy instance NFData AllocationStrategy @@ -405,28 +405,28 @@ parseXML = parseXMLText "BundleTaskState" data CancelBatchErrorCode - = FleetRequestIdDoesNotExist - | FleetRequestIdMalformed - | FleetRequestNotInCancellableState - | UnexpectedError + = CBECFleetRequestIdDoesNotExist + | CBECFleetRequestIdMalformed + | CBECFleetRequestNotInCancellableState + | CBECUnexpectedError deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) instance FromText CancelBatchErrorCode where parser = takeLowerText >>= \case - "fleetrequestiddoesnotexist" -> pure FleetRequestIdDoesNotExist - "fleetrequestidmalformed" -> pure FleetRequestIdMalformed - "fleetrequestnotincancellablestate" -> pure FleetRequestNotInCancellableState - "unexpectederror" -> pure UnexpectedError + "fleetrequestiddoesnotexist" -> pure CBECFleetRequestIdDoesNotExist + "fleetrequestidmalformed" -> pure CBECFleetRequestIdMalformed + "fleetrequestnotincancellablestate" -> pure CBECFleetRequestNotInCancellableState + "unexpectederror" -> pure CBECUnexpectedError e -> fromTextError $ "Failure parsing CancelBatchErrorCode from value: '" <> e <> "'. Accepted values: fleetrequestiddoesnotexist, fleetrequestidmalformed, fleetrequestnotincancellablestate, unexpectederror" instance ToText CancelBatchErrorCode where toText = \case - FleetRequestIdDoesNotExist -> "fleetRequestIdDoesNotExist" - FleetRequestIdMalformed -> "fleetRequestIdMalformed" - FleetRequestNotInCancellableState -> "fleetRequestNotInCancellableState" - UnexpectedError -> "unexpectedError" + CBECFleetRequestIdDoesNotExist -> "fleetRequestIdDoesNotExist" + CBECFleetRequestIdMalformed -> "fleetRequestIdMalformed" + CBECFleetRequestNotInCancellableState -> "fleetRequestNotInCancellableState" + CBECUnexpectedError -> "unexpectedError" instance Hashable CancelBatchErrorCode instance NFData CancelBatchErrorCode @@ -473,6 +473,57 @@ instance FromXML CancelSpotInstanceRequestState where parseXML = parseXMLText "CancelSpotInstanceRequestState" +data ConnectionNotificationState + = Disabled + | Enabled + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText ConnectionNotificationState where + parser = takeLowerText >>= \case + "disabled" -> pure Disabled + "enabled" -> pure Enabled + e -> fromTextError $ "Failure parsing ConnectionNotificationState from value: '" <> e + <> "'. Accepted values: disabled, enabled" + +instance ToText ConnectionNotificationState where + toText = \case + Disabled -> "Disabled" + Enabled -> "Enabled" + +instance Hashable ConnectionNotificationState +instance NFData ConnectionNotificationState +instance ToByteString ConnectionNotificationState +instance ToQuery ConnectionNotificationState +instance ToHeader ConnectionNotificationState + +instance FromXML ConnectionNotificationState where + parseXML = parseXMLText "ConnectionNotificationState" + +data ConnectionNotificationType = + Topic + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText ConnectionNotificationType where + parser = takeLowerText >>= \case + "topic" -> pure Topic + e -> fromTextError $ "Failure parsing ConnectionNotificationType from value: '" <> e + <> "'. Accepted values: topic" + +instance ToText ConnectionNotificationType where + toText = \case + Topic -> "Topic" + +instance Hashable ConnectionNotificationType +instance NFData ConnectionNotificationType +instance ToByteString ConnectionNotificationType +instance ToQuery ConnectionNotificationType +instance ToHeader ConnectionNotificationType + +instance FromXML ConnectionNotificationType where + parseXML = parseXMLText "ConnectionNotificationType" + data ContainerFormat = Ova deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) @@ -581,6 +632,66 @@ instance FromXML DatafeedSubscriptionState where parseXML = parseXMLText "DatafeedSubscriptionState" +data DefaultTargetCapacityType + = DTCTOnDemand + | DTCTSpot + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText DefaultTargetCapacityType where + parser = takeLowerText >>= \case + "on-demand" -> pure DTCTOnDemand + "spot" -> pure DTCTSpot + e -> fromTextError $ "Failure parsing DefaultTargetCapacityType from value: '" <> e + <> "'. Accepted values: on-demand, spot" + +instance ToText DefaultTargetCapacityType where + toText = \case + DTCTOnDemand -> "on-demand" + DTCTSpot -> "spot" + +instance Hashable DefaultTargetCapacityType +instance NFData DefaultTargetCapacityType +instance ToByteString DefaultTargetCapacityType +instance ToQuery DefaultTargetCapacityType +instance ToHeader DefaultTargetCapacityType + +instance FromXML DefaultTargetCapacityType where + parseXML = parseXMLText "DefaultTargetCapacityType" + +data DeleteFleetErrorCode + = DFECFleetIdDoesNotExist + | DFECFleetIdMalformed + | DFECFleetNotInDeletableState + | DFECUnexpectedError + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText DeleteFleetErrorCode where + parser = takeLowerText >>= \case + "fleetiddoesnotexist" -> pure DFECFleetIdDoesNotExist + "fleetidmalformed" -> pure DFECFleetIdMalformed + "fleetnotindeletablestate" -> pure DFECFleetNotInDeletableState + "unexpectederror" -> pure DFECUnexpectedError + e -> fromTextError $ "Failure parsing DeleteFleetErrorCode from value: '" <> e + <> "'. Accepted values: fleetiddoesnotexist, fleetidmalformed, fleetnotindeletablestate, unexpectederror" + +instance ToText DeleteFleetErrorCode where + toText = \case + DFECFleetIdDoesNotExist -> "fleetIdDoesNotExist" + DFECFleetIdMalformed -> "fleetIdMalformed" + DFECFleetNotInDeletableState -> "fleetNotInDeletableState" + DFECUnexpectedError -> "unexpectedError" + +instance Hashable DeleteFleetErrorCode +instance NFData DeleteFleetErrorCode +instance ToByteString DeleteFleetErrorCode +instance ToQuery DeleteFleetErrorCode +instance ToHeader DeleteFleetErrorCode + +instance FromXML DeleteFleetErrorCode where + parseXML = parseXMLText "DeleteFleetErrorCode" + data DeviceType = EBS | InstanceStore @@ -872,6 +983,138 @@ instance FromXML ExportTaskState where parseXML = parseXMLText "ExportTaskState" +data FleetActivityStatus + = Error' + | Fulfilled + | PendingFulfillment + | PendingTermination + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText FleetActivityStatus where + parser = takeLowerText >>= \case + "error" -> pure Error' + "fulfilled" -> pure Fulfilled + "pending-fulfillment" -> pure PendingFulfillment + "pending-termination" -> pure PendingTermination + e -> fromTextError $ "Failure parsing FleetActivityStatus from value: '" <> e + <> "'. Accepted values: error, fulfilled, pending-fulfillment, pending-termination" + +instance ToText FleetActivityStatus where + toText = \case + Error' -> "error" + Fulfilled -> "fulfilled" + PendingFulfillment -> "pending-fulfillment" + PendingTermination -> "pending-termination" + +instance Hashable FleetActivityStatus +instance NFData FleetActivityStatus +instance ToByteString FleetActivityStatus +instance ToQuery FleetActivityStatus +instance ToHeader FleetActivityStatus + +instance FromXML FleetActivityStatus where + parseXML = parseXMLText "FleetActivityStatus" + +data FleetEventType + = FETFleetChange + | FETInstanceChange + | FETServiceError + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText FleetEventType where + parser = takeLowerText >>= \case + "fleet-change" -> pure FETFleetChange + "instance-change" -> pure FETInstanceChange + "service-error" -> pure FETServiceError + e -> fromTextError $ "Failure parsing FleetEventType from value: '" <> e + <> "'. Accepted values: fleet-change, instance-change, service-error" + +instance ToText FleetEventType where + toText = \case + FETFleetChange -> "fleet-change" + FETInstanceChange -> "instance-change" + FETServiceError -> "service-error" + +instance Hashable FleetEventType +instance NFData FleetEventType +instance ToByteString FleetEventType +instance ToQuery FleetEventType +instance ToHeader FleetEventType + +instance FromXML FleetEventType where + parseXML = parseXMLText "FleetEventType" + +data FleetExcessCapacityTerminationPolicy + = NoTermination + | Termination + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText FleetExcessCapacityTerminationPolicy where + parser = takeLowerText >>= \case + "no-termination" -> pure NoTermination + "termination" -> pure Termination + e -> fromTextError $ "Failure parsing FleetExcessCapacityTerminationPolicy from value: '" <> e + <> "'. Accepted values: no-termination, termination" + +instance ToText FleetExcessCapacityTerminationPolicy where + toText = \case + NoTermination -> "no-termination" + Termination -> "termination" + +instance Hashable FleetExcessCapacityTerminationPolicy +instance NFData FleetExcessCapacityTerminationPolicy +instance ToByteString FleetExcessCapacityTerminationPolicy +instance ToQuery FleetExcessCapacityTerminationPolicy +instance ToHeader FleetExcessCapacityTerminationPolicy + +instance FromXML FleetExcessCapacityTerminationPolicy where + parseXML = parseXMLText "FleetExcessCapacityTerminationPolicy" + +data FleetStateCode + = FSCActive + | FSCDeleted + | FSCDeletedRunning + | FSCDeletedTerminating + | FSCFailed + | FSCModifying + | FSCSubmitted + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText FleetStateCode where + parser = takeLowerText >>= \case + "active" -> pure FSCActive + "deleted" -> pure FSCDeleted + "deleted-running" -> pure FSCDeletedRunning + "deleted-terminating" -> pure FSCDeletedTerminating + "failed" -> pure FSCFailed + "modifying" -> pure FSCModifying + "submitted" -> pure FSCSubmitted + e -> fromTextError $ "Failure parsing FleetStateCode from value: '" <> e + <> "'. Accepted values: active, deleted, deleted-running, deleted-terminating, failed, modifying, submitted" + +instance ToText FleetStateCode where + toText = \case + FSCActive -> "active" + FSCDeleted -> "deleted" + FSCDeletedRunning -> "deleted-running" + FSCDeletedTerminating -> "deleted-terminating" + FSCFailed -> "failed" + FSCModifying -> "modifying" + FSCSubmitted -> "submitted" + +instance Hashable FleetStateCode +instance NFData FleetStateCode +instance ToByteString FleetStateCode +instance ToQuery FleetStateCode +instance ToHeader FleetStateCode + +instance FromXML FleetStateCode where + parseXML = parseXMLText "FleetStateCode" + data FleetType = FTMaintain | FTRequest @@ -1296,22 +1539,25 @@ parseXML = parseXMLText "InstanceHealthStatus" data InstanceInterruptionBehavior - = IIBStop - | IIBTerminate + = Hibernate + | Stop + | Terminate deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) instance FromText InstanceInterruptionBehavior where parser = takeLowerText >>= \case - "stop" -> pure IIBStop - "terminate" -> pure IIBTerminate + "hibernate" -> pure Hibernate + "stop" -> pure Stop + "terminate" -> pure Terminate e -> fromTextError $ "Failure parsing InstanceInterruptionBehavior from value: '" <> e - <> "'. Accepted values: stop, terminate" + <> "'. Accepted values: hibernate, stop, terminate" instance ToText InstanceInterruptionBehavior where toText = \case - IIBStop -> "stop" - IIBTerminate -> "terminate" + Hibernate -> "hibernate" + Stop -> "stop" + Terminate -> "terminate" instance Hashable InstanceInterruptionBehavior instance NFData InstanceInterruptionBehavior @@ -1323,22 +1569,22 @@ parseXML = parseXMLText "InstanceInterruptionBehavior" data InstanceLifecycleType - = Scheduled - | Spot + = ILTScheduled + | ILTSpot deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) instance FromText InstanceLifecycleType where parser = takeLowerText >>= \case - "scheduled" -> pure Scheduled - "spot" -> pure Spot + "scheduled" -> pure ILTScheduled + "spot" -> pure ILTSpot e -> fromTextError $ "Failure parsing InstanceLifecycleType from value: '" <> e <> "'. Accepted values: scheduled, spot" instance ToText InstanceLifecycleType where toText = \case - Scheduled -> "scheduled" - Spot -> "spot" + ILTScheduled -> "scheduled" + ILTSpot -> "spot" instance Hashable InstanceLifecycleType instance NFData InstanceLifecycleType @@ -1422,6 +1668,10 @@ | G3_16XLarge | G3_4XLarge | G3_8XLarge + | H1_16XLarge + | H1_2XLarge + | H1_4XLarge + | H1_8XLarge | HI1_4XLarge | HS1_8XLarge | I2_2XLarge @@ -1451,6 +1701,12 @@ | M4_4XLarge | M4_Large | M4_XLarge + | M5_12XLarge + | M5_24XLarge + | M5_2XLarge + | M5_4XLarge + | M5_Large + | M5_XLarge | P2_16XLarge | P2_8XLarge | P2_XLarge @@ -1478,7 +1734,12 @@ | T2_XLarge | X1_16XLarge | X1_32XLarge + | X1e_16XLarge + | X1e_2XLarge | X1e_32XLarge + | X1e_4XLarge + | X1e_8XLarge + | X1e_XLarge deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) @@ -1517,6 +1778,10 @@ "g3.16xlarge" -> pure G3_16XLarge "g3.4xlarge" -> pure G3_4XLarge "g3.8xlarge" -> pure G3_8XLarge + "h1.16xlarge" -> pure H1_16XLarge + "h1.2xlarge" -> pure H1_2XLarge + "h1.4xlarge" -> pure H1_4XLarge + "h1.8xlarge" -> pure H1_8XLarge "hi1.4xlarge" -> pure HI1_4XLarge "hs1.8xlarge" -> pure HS1_8XLarge "i2.2xlarge" -> pure I2_2XLarge @@ -1546,6 +1811,12 @@ "m4.4xlarge" -> pure M4_4XLarge "m4.large" -> pure M4_Large "m4.xlarge" -> pure M4_XLarge + "m5.12xlarge" -> pure M5_12XLarge + "m5.24xlarge" -> pure M5_24XLarge + "m5.2xlarge" -> pure M5_2XLarge + "m5.4xlarge" -> pure M5_4XLarge + "m5.large" -> pure M5_Large + "m5.xlarge" -> pure M5_XLarge "p2.16xlarge" -> pure P2_16XLarge "p2.8xlarge" -> pure P2_8XLarge "p2.xlarge" -> pure P2_XLarge @@ -1573,9 +1844,14 @@ "t2.xlarge" -> pure T2_XLarge "x1.16xlarge" -> pure X1_16XLarge "x1.32xlarge" -> pure X1_32XLarge + "x1e.16xlarge" -> pure X1e_16XLarge + "x1e.2xlarge" -> pure X1e_2XLarge "x1e.32xlarge" -> pure X1e_32XLarge + "x1e.4xlarge" -> pure X1e_4XLarge + "x1e.8xlarge" -> pure X1e_8XLarge + "x1e.xlarge" -> pure X1e_XLarge e -> fromTextError $ "Failure parsing InstanceType from value: '" <> e - <> "'. Accepted values: c1.medium, c1.xlarge, c3.2xlarge, c3.4xlarge, c3.8xlarge, c3.large, c3.xlarge, c4.2xlarge, c4.4xlarge, c4.8xlarge, c4.large, c4.xlarge, c5.18xlarge, c5.2xlarge, c5.4xlarge, c5.9xlarge, c5.large, c5.xlarge, cc1.4xlarge, cc2.8xlarge, cg1.4xlarge, cr1.8xlarge, d2.2xlarge, d2.4xlarge, d2.8xlarge, d2.xlarge, f1.16xlarge, f1.2xlarge, g2.2xlarge, g2.8xlarge, g3.16xlarge, g3.4xlarge, g3.8xlarge, hi1.4xlarge, hs1.8xlarge, i2.2xlarge, i2.4xlarge, i2.8xlarge, i2.xlarge, i3.16xlarge, i3.2xlarge, i3.4xlarge, i3.8xlarge, i3.large, i3.xlarge, m1.large, m1.medium, m1.small, m1.xlarge, m2.2xlarge, m2.4xlarge, m2.xlarge, m3.2xlarge, m3.large, m3.medium, m3.xlarge, m4.10xlarge, m4.16xlarge, m4.2xlarge, m4.4xlarge, m4.large, m4.xlarge, p2.16xlarge, p2.8xlarge, p2.xlarge, p3.16xlarge, p3.2xlarge, p3.8xlarge, r3.2xlarge, r3.4xlarge, r3.8xlarge, r3.large, r3.xlarge, r4.16xlarge, r4.2xlarge, r4.4xlarge, r4.8xlarge, r4.large, r4.xlarge, t1.micro, t2.2xlarge, t2.large, t2.medium, t2.micro, t2.nano, t2.small, t2.xlarge, x1.16xlarge, x1.32xlarge, x1e.32xlarge" + <> "'. Accepted values: c1.medium, c1.xlarge, c3.2xlarge, c3.4xlarge, c3.8xlarge, c3.large, c3.xlarge, c4.2xlarge, c4.4xlarge, c4.8xlarge, c4.large, c4.xlarge, c5.18xlarge, c5.2xlarge, c5.4xlarge, c5.9xlarge, c5.large, c5.xlarge, cc1.4xlarge, cc2.8xlarge, cg1.4xlarge, cr1.8xlarge, d2.2xlarge, d2.4xlarge, d2.8xlarge, d2.xlarge, f1.16xlarge, f1.2xlarge, g2.2xlarge, g2.8xlarge, g3.16xlarge, g3.4xlarge, g3.8xlarge, h1.16xlarge, h1.2xlarge, h1.4xlarge, h1.8xlarge, hi1.4xlarge, hs1.8xlarge, i2.2xlarge, i2.4xlarge, i2.8xlarge, i2.xlarge, i3.16xlarge, i3.2xlarge, i3.4xlarge, i3.8xlarge, i3.large, i3.xlarge, m1.large, m1.medium, m1.small, m1.xlarge, m2.2xlarge, m2.4xlarge, m2.xlarge, m3.2xlarge, m3.large, m3.medium, m3.xlarge, m4.10xlarge, m4.16xlarge, m4.2xlarge, m4.4xlarge, m4.large, m4.xlarge, m5.12xlarge, m5.24xlarge, m5.2xlarge, m5.4xlarge, m5.large, m5.xlarge, p2.16xlarge, p2.8xlarge, p2.xlarge, p3.16xlarge, p3.2xlarge, p3.8xlarge, r3.2xlarge, r3.4xlarge, r3.8xlarge, r3.large, r3.xlarge, r4.16xlarge, r4.2xlarge, r4.4xlarge, r4.8xlarge, r4.large, r4.xlarge, t1.micro, t2.2xlarge, t2.large, t2.medium, t2.micro, t2.nano, t2.small, t2.xlarge, x1.16xlarge, x1.32xlarge, x1e.16xlarge, x1e.2xlarge, x1e.32xlarge, x1e.4xlarge, x1e.8xlarge, x1e.xlarge" instance ToText InstanceType where toText = \case @@ -1612,6 +1888,10 @@ G3_16XLarge -> "g3.16xlarge" G3_4XLarge -> "g3.4xlarge" G3_8XLarge -> "g3.8xlarge" + H1_16XLarge -> "h1.16xlarge" + H1_2XLarge -> "h1.2xlarge" + H1_4XLarge -> "h1.4xlarge" + H1_8XLarge -> "h1.8xlarge" HI1_4XLarge -> "hi1.4xlarge" HS1_8XLarge -> "hs1.8xlarge" I2_2XLarge -> "i2.2xlarge" @@ -1641,6 +1921,12 @@ M4_4XLarge -> "m4.4xlarge" M4_Large -> "m4.large" M4_XLarge -> "m4.xlarge" + M5_12XLarge -> "m5.12xlarge" + M5_24XLarge -> "m5.24xlarge" + M5_2XLarge -> "m5.2xlarge" + M5_4XLarge -> "m5.4xlarge" + M5_Large -> "m5.large" + M5_XLarge -> "m5.xlarge" P2_16XLarge -> "p2.16xlarge" P2_8XLarge -> "p2.8xlarge" P2_XLarge -> "p2.xlarge" @@ -1668,7 +1954,12 @@ T2_XLarge -> "t2.xlarge" X1_16XLarge -> "x1.16xlarge" X1_32XLarge -> "x1.32xlarge" + X1e_16XLarge -> "x1e.16xlarge" + X1e_2XLarge -> "x1e.2xlarge" X1e_32XLarge -> "x1e.32xlarge" + X1e_4XLarge -> "x1e.4xlarge" + X1e_8XLarge -> "x1e.8xlarge" + X1e_XLarge -> "x1e.xlarge" instance Hashable InstanceType instance NFData InstanceType @@ -1706,6 +1997,45 @@ instance FromXML InterfacePermissionType where parseXML = parseXMLText "InterfacePermissionType" +data LaunchTemplateErrorCode + = LaunchTemplateIdDoesNotExist + | LaunchTemplateIdMalformed + | LaunchTemplateNameDoesNotExist + | LaunchTemplateNameMalformed + | LaunchTemplateVersionDoesNotExist + | UnexpectedError + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText LaunchTemplateErrorCode where + parser = takeLowerText >>= \case + "launchtemplateiddoesnotexist" -> pure LaunchTemplateIdDoesNotExist + "launchtemplateidmalformed" -> pure LaunchTemplateIdMalformed + "launchtemplatenamedoesnotexist" -> pure LaunchTemplateNameDoesNotExist + "launchtemplatenamemalformed" -> pure LaunchTemplateNameMalformed + "launchtemplateversiondoesnotexist" -> pure LaunchTemplateVersionDoesNotExist + "unexpectederror" -> pure UnexpectedError + e -> fromTextError $ "Failure parsing LaunchTemplateErrorCode from value: '" <> e + <> "'. Accepted values: launchtemplateiddoesnotexist, launchtemplateidmalformed, launchtemplatenamedoesnotexist, launchtemplatenamemalformed, launchtemplateversiondoesnotexist, unexpectederror" + +instance ToText LaunchTemplateErrorCode where + toText = \case + LaunchTemplateIdDoesNotExist -> "launchTemplateIdDoesNotExist" + LaunchTemplateIdMalformed -> "launchTemplateIdMalformed" + LaunchTemplateNameDoesNotExist -> "launchTemplateNameDoesNotExist" + LaunchTemplateNameMalformed -> "launchTemplateNameMalformed" + LaunchTemplateVersionDoesNotExist -> "launchTemplateVersionDoesNotExist" + UnexpectedError -> "unexpectedError" + +instance Hashable LaunchTemplateErrorCode +instance NFData LaunchTemplateErrorCode +instance ToByteString LaunchTemplateErrorCode +instance ToQuery LaunchTemplateErrorCode +instance ToHeader LaunchTemplateErrorCode + +instance FromXML LaunchTemplateErrorCode where + parseXML = parseXMLText "LaunchTemplateErrorCode" + data ListingState = LAvailable | LCancelled @@ -1772,6 +2102,30 @@ instance FromXML ListingStatus where parseXML = parseXMLText "ListingStatus" +data MarketType = + Spot + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText MarketType where + parser = takeLowerText >>= \case + "spot" -> pure Spot + e -> fromTextError $ "Failure parsing MarketType from value: '" <> e + <> "'. Accepted values: spot" + +instance ToText MarketType where + toText = \case + Spot -> "spot" + +instance Hashable MarketType +instance NFData MarketType +instance ToByteString MarketType +instance ToQuery MarketType +instance ToHeader MarketType + +instance FromXML MarketType where + parseXML = parseXMLText "MarketType" + data MonitoringState = MSDisabled | MSDisabling @@ -1932,7 +2286,8 @@ parseXML = parseXMLText "NetworkInterfacePermissionStateCode" data NetworkInterfaceStatus - = NISAttaching + = NISAssociated + | NISAttaching | NISAvailable | NISDetaching | NISInUse @@ -1941,15 +2296,17 @@ instance FromText NetworkInterfaceStatus where parser = takeLowerText >>= \case + "associated" -> pure NISAssociated "attaching" -> pure NISAttaching "available" -> pure NISAvailable "detaching" -> pure NISDetaching "in-use" -> pure NISInUse e -> fromTextError $ "Failure parsing NetworkInterfaceStatus from value: '" <> e - <> "'. Accepted values: attaching, available, detaching, in-use" + <> "'. Accepted values: associated, attaching, available, detaching, in-use" instance ToText NetworkInterfaceStatus where toText = \case + NISAssociated -> "associated" NISAttaching -> "attaching" NISAvailable -> "available" NISDetaching -> "detaching" @@ -2168,20 +2525,23 @@ instance FromXML PlacementGroupState where parseXML = parseXMLText "PlacementGroupState" -data PlacementStrategy = - Cluster +data PlacementStrategy + = Cluster + | Spread deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) instance FromText PlacementStrategy where parser = takeLowerText >>= \case "cluster" -> pure Cluster + "spread" -> pure Spread e -> fromTextError $ "Failure parsing PlacementStrategy from value: '" <> e - <> "'. Accepted values: cluster" + <> "'. Accepted values: cluster, spread" instance ToText PlacementStrategy where toText = \case Cluster -> "cluster" + Spread -> "spread" instance Hashable PlacementStrategy instance NFData PlacementStrategy @@ -2216,6 +2576,45 @@ instance FromXML PlatformValues where parseXML = parseXMLText "PlatformValues" +data PrincipalType + = PTAccount + | PTAll + | PTOrganizationUnit + | PTRole + | PTService + | PTUser + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText PrincipalType where + parser = takeLowerText >>= \case + "account" -> pure PTAccount + "all" -> pure PTAll + "organizationunit" -> pure PTOrganizationUnit + "role" -> pure PTRole + "service" -> pure PTService + "user" -> pure PTUser + e -> fromTextError $ "Failure parsing PrincipalType from value: '" <> e + <> "'. Accepted values: account, all, organizationunit, role, service, user" + +instance ToText PrincipalType where + toText = \case + PTAccount -> "Account" + PTAll -> "All" + PTOrganizationUnit -> "OrganizationUnit" + PTRole -> "Role" + PTService -> "Service" + PTUser -> "User" + +instance Hashable PrincipalType +instance NFData PrincipalType +instance ToByteString PrincipalType +instance ToQuery PrincipalType +instance ToHeader PrincipalType + +instance FromXML PrincipalType where + parseXML = parseXMLText "PrincipalType" + data ProductCodeValues = Devpay | Marketplace @@ -2660,6 +3059,42 @@ instance FromXML Scope where parseXML = parseXMLText "Scope" +data ServiceState + = SerAvailable + | SerDeleted + | SerDeleting + | SerFailed + | SerPending + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText ServiceState where + parser = takeLowerText >>= \case + "available" -> pure SerAvailable + "deleted" -> pure SerDeleted + "deleting" -> pure SerDeleting + "failed" -> pure SerFailed + "pending" -> pure SerPending + e -> fromTextError $ "Failure parsing ServiceState from value: '" <> e + <> "'. Accepted values: available, deleted, deleting, failed, pending" + +instance ToText ServiceState where + toText = \case + SerAvailable -> "Available" + SerDeleted -> "Deleted" + SerDeleting -> "Deleting" + SerFailed -> "Failed" + SerPending -> "Pending" + +instance Hashable ServiceState +instance NFData ServiceState +instance ToByteString ServiceState +instance ToQuery ServiceState +instance ToHeader ServiceState + +instance FromXML ServiceState where + parseXML = parseXMLText "ServiceState" + data ServiceType = Gateway | Interface @@ -2688,22 +3123,22 @@ parseXML = parseXMLText "ServiceType" data ShutdownBehavior - = Stop - | Terminate + = SBStop + | SBTerminate deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) instance FromText ShutdownBehavior where parser = takeLowerText >>= \case - "stop" -> pure Stop - "terminate" -> pure Terminate + "stop" -> pure SBStop + "terminate" -> pure SBTerminate e -> fromTextError $ "Failure parsing ShutdownBehavior from value: '" <> e <> "'. Accepted values: stop, terminate" instance ToText ShutdownBehavior where toText = \case - Stop -> "stop" - Terminate -> "terminate" + SBStop -> "stop" + SBTerminate -> "terminate" instance Hashable ShutdownBehavior instance NFData ShutdownBehavior @@ -2711,6 +3146,9 @@ instance ToQuery ShutdownBehavior instance ToHeader ShutdownBehavior +instance FromXML ShutdownBehavior where + parseXML = parseXMLText "ShutdownBehavior" + data SnapshotAttributeName = SANCreateVolumePermission | SANProductCodes @@ -2765,6 +3203,63 @@ instance FromXML SnapshotState where parseXML = parseXMLText "SnapshotState" +data SpotAllocationStrategy + = Diversified + | LowestPrice + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText SpotAllocationStrategy where + parser = takeLowerText >>= \case + "diversified" -> pure Diversified + "lowest-price" -> pure LowestPrice + e -> fromTextError $ "Failure parsing SpotAllocationStrategy from value: '" <> e + <> "'. Accepted values: diversified, lowest-price" + +instance ToText SpotAllocationStrategy where + toText = \case + Diversified -> "diversified" + LowestPrice -> "lowest-price" + +instance Hashable SpotAllocationStrategy +instance NFData SpotAllocationStrategy +instance ToByteString SpotAllocationStrategy +instance ToQuery SpotAllocationStrategy +instance ToHeader SpotAllocationStrategy + +instance FromXML SpotAllocationStrategy where + parseXML = parseXMLText "SpotAllocationStrategy" + +data SpotInstanceInterruptionBehavior + = SIIBHibernate + | SIIBStop + | SIIBTerminate + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText SpotInstanceInterruptionBehavior where + parser = takeLowerText >>= \case + "hibernate" -> pure SIIBHibernate + "stop" -> pure SIIBStop + "terminate" -> pure SIIBTerminate + e -> fromTextError $ "Failure parsing SpotInstanceInterruptionBehavior from value: '" <> e + <> "'. Accepted values: hibernate, stop, terminate" + +instance ToText SpotInstanceInterruptionBehavior where + toText = \case + SIIBHibernate -> "hibernate" + SIIBStop -> "stop" + SIIBTerminate -> "terminate" + +instance Hashable SpotInstanceInterruptionBehavior +instance NFData SpotInstanceInterruptionBehavior +instance ToByteString SpotInstanceInterruptionBehavior +instance ToQuery SpotInstanceInterruptionBehavior +instance ToHeader SpotInstanceInterruptionBehavior + +instance FromXML SpotInstanceInterruptionBehavior where + parseXML = parseXMLText "SpotInstanceInterruptionBehavior" + data SpotInstanceState = SISActive | SISCancelled @@ -3118,6 +3613,39 @@ instance FromXML TrafficType where parseXML = parseXMLText "TrafficType" + +data UnsuccessfulInstanceCreditSpecificationErrorCode + = IncorrectInstanceState + | InstanceCreditSpecification_NotSupported + | InvalidInstanceId_Malformed + | InvalidInstanceId_NotFound + deriving (Eq, Ord, Read, Show, Enum, Bounded, Data, Typeable, Generic) + + +instance FromText UnsuccessfulInstanceCreditSpecificationErrorCode where + parser = takeLowerText >>= \case + "incorrectinstancestate" -> pure IncorrectInstanceState + "instancecreditspecification.notsupported" -> pure InstanceCreditSpecification_NotSupported + "invalidinstanceid.malformed" -> pure InvalidInstanceId_Malformed + "invalidinstanceid.notfound" -> pure InvalidInstanceId_NotFound + e -> fromTextError $ "Failure parsing UnsuccessfulInstanceCreditSpecificationErrorCode from value: '" <> e + <> "'. Accepted values: incorrectinstancestate, instancecreditspecification.notsupported, invalidinstanceid.malformed, invalidinstanceid.notfound" + +instance ToText UnsuccessfulInstanceCreditSpecificationErrorCode where + toText = \case + IncorrectInstanceState -> "IncorrectInstanceState" + InstanceCreditSpecification_NotSupported -> "InstanceCreditSpecification.NotSupported" + InvalidInstanceId_Malformed -> "InvalidInstanceID.Malformed" + InvalidInstanceId_NotFound -> "InvalidInstanceID.NotFound" + +instance Hashable UnsuccessfulInstanceCreditSpecificationErrorCode +instance NFData UnsuccessfulInstanceCreditSpecificationErrorCode +instance ToByteString UnsuccessfulInstanceCreditSpecificationErrorCode +instance ToQuery UnsuccessfulInstanceCreditSpecificationErrorCode +instance ToHeader UnsuccessfulInstanceCreditSpecificationErrorCode + +instance FromXML UnsuccessfulInstanceCreditSpecificationErrorCode where + parseXML = parseXMLText "UnsuccessfulInstanceCreditSpecificationErrorCode" data VPCAttributeName = EnableDNSHostnames diff --git a/gen/Network/AWS/EC2/UnassignIPv6Addresses.hs b/gen/Network/AWS/EC2/UnassignIPv6Addresses.hs --- a/gen/Network/AWS/EC2/UnassignIPv6Addresses.hs +++ b/gen/Network/AWS/EC2/UnassignIPv6Addresses.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.UnassignIPv6Addresses --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,16 +65,16 @@ -> UnassignIPv6Addresses unassignIPv6Addresses pNetworkInterfaceId_ = UnassignIPv6Addresses' - {_uiaIPv6Addresses = mempty, _uiaNetworkInterfaceId = pNetworkInterfaceId_} + {_uiaIPv6Addresses = mempty, _uiaNetworkInterfaceId = pNetworkInterfaceId_} -- | The IPv6 addresses to unassign from the network interface. uiaIPv6Addresses :: Lens' UnassignIPv6Addresses [Text] -uiaIPv6Addresses = lens _uiaIPv6Addresses (\ s a -> s{_uiaIPv6Addresses = a}) . _Coerce; +uiaIPv6Addresses = lens _uiaIPv6Addresses (\ s a -> s{_uiaIPv6Addresses = a}) . _Coerce -- | The ID of the network interface. uiaNetworkInterfaceId :: Lens' UnassignIPv6Addresses Text -uiaNetworkInterfaceId = lens _uiaNetworkInterfaceId (\ s a -> s{_uiaNetworkInterfaceId = a}); +uiaNetworkInterfaceId = lens _uiaNetworkInterfaceId (\ s a -> s{_uiaNetworkInterfaceId = a}) instance AWSRequest UnassignIPv6Addresses where type Rs UnassignIPv6Addresses = @@ -129,22 +129,22 @@ -> UnassignIPv6AddressesResponse unassignIPv6AddressesResponse pResponseStatus_ = UnassignIPv6AddressesResponse' - { _uiarsNetworkInterfaceId = Nothing - , _uiarsUnassignedIPv6Addresses = Nothing - , _uiarsResponseStatus = pResponseStatus_ - } + { _uiarsNetworkInterfaceId = Nothing + , _uiarsUnassignedIPv6Addresses = Nothing + , _uiarsResponseStatus = pResponseStatus_ + } -- | The ID of the network interface. uiarsNetworkInterfaceId :: Lens' UnassignIPv6AddressesResponse (Maybe Text) -uiarsNetworkInterfaceId = lens _uiarsNetworkInterfaceId (\ s a -> s{_uiarsNetworkInterfaceId = a}); +uiarsNetworkInterfaceId = lens _uiarsNetworkInterfaceId (\ s a -> s{_uiarsNetworkInterfaceId = a}) -- | The IPv6 addresses that have been unassigned from the network interface. uiarsUnassignedIPv6Addresses :: Lens' UnassignIPv6AddressesResponse [Text] -uiarsUnassignedIPv6Addresses = lens _uiarsUnassignedIPv6Addresses (\ s a -> s{_uiarsUnassignedIPv6Addresses = a}) . _Default . _Coerce; +uiarsUnassignedIPv6Addresses = lens _uiarsUnassignedIPv6Addresses (\ s a -> s{_uiarsUnassignedIPv6Addresses = a}) . _Default . _Coerce -- | -- | The response status code. uiarsResponseStatus :: Lens' UnassignIPv6AddressesResponse Int -uiarsResponseStatus = lens _uiarsResponseStatus (\ s a -> s{_uiarsResponseStatus = a}); +uiarsResponseStatus = lens _uiarsResponseStatus (\ s a -> s{_uiarsResponseStatus = a}) instance NFData UnassignIPv6AddressesResponse where 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.UnassignPrivateIPAddresses --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -65,18 +65,18 @@ -> UnassignPrivateIPAddresses unassignPrivateIPAddresses pNetworkInterfaceId_ = UnassignPrivateIPAddresses' - { _upiaNetworkInterfaceId = pNetworkInterfaceId_ - , _upiaPrivateIPAddresses = mempty - } + { _upiaNetworkInterfaceId = pNetworkInterfaceId_ + , _upiaPrivateIPAddresses = mempty + } -- | The ID of the network interface. upiaNetworkInterfaceId :: Lens' UnassignPrivateIPAddresses Text -upiaNetworkInterfaceId = lens _upiaNetworkInterfaceId (\ s a -> s{_upiaNetworkInterfaceId = a}); +upiaNetworkInterfaceId = lens _upiaNetworkInterfaceId (\ s a -> s{_upiaNetworkInterfaceId = a}) -- | The secondary private IP addresses to unassign from the network interface. You can specify this option multiple times to unassign more than one IP address. upiaPrivateIPAddresses :: Lens' UnassignPrivateIPAddresses [Text] -upiaPrivateIPAddresses = lens _upiaPrivateIPAddresses (\ s a -> s{_upiaPrivateIPAddresses = a}) . _Coerce; +upiaPrivateIPAddresses = lens _upiaPrivateIPAddresses (\ s a -> s{_upiaPrivateIPAddresses = a}) . _Coerce instance AWSRequest UnassignPrivateIPAddresses where type Rs UnassignPrivateIPAddresses = 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 @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.UnmonitorInstances --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -71,11 +71,11 @@ -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . uiDryRun :: Lens' UnmonitorInstances (Maybe Bool) -uiDryRun = lens _uiDryRun (\ s a -> s{_uiDryRun = a}); +uiDryRun = lens _uiDryRun (\ s a -> s{_uiDryRun = a}) -- | One or more instance IDs. uiInstanceIds :: Lens' UnmonitorInstances [Text] -uiInstanceIds = lens _uiInstanceIds (\ s a -> s{_uiInstanceIds = a}) . _Coerce; +uiInstanceIds = lens _uiInstanceIds (\ s a -> s{_uiInstanceIds = a}) . _Coerce instance AWSRequest UnmonitorInstances where type Rs UnmonitorInstances = @@ -130,15 +130,15 @@ -> UnmonitorInstancesResponse unmonitorInstancesResponse pResponseStatus_ = UnmonitorInstancesResponse' - {_uirsInstanceMonitorings = Nothing, _uirsResponseStatus = pResponseStatus_} + {_uirsInstanceMonitorings = Nothing, _uirsResponseStatus = pResponseStatus_} -- | The monitoring information. uirsInstanceMonitorings :: Lens' UnmonitorInstancesResponse [InstanceMonitoring] -uirsInstanceMonitorings = lens _uirsInstanceMonitorings (\ s a -> s{_uirsInstanceMonitorings = a}) . _Default . _Coerce; +uirsInstanceMonitorings = lens _uirsInstanceMonitorings (\ s a -> s{_uirsInstanceMonitorings = a}) . _Default . _Coerce -- | -- | The response status code. uirsResponseStatus :: Lens' UnmonitorInstancesResponse Int -uirsResponseStatus = lens _uirsResponseStatus (\ s a -> s{_uirsResponseStatus = a}); +uirsResponseStatus = lens _uirsResponseStatus (\ s a -> s{_uirsResponseStatus = a}) instance NFData UnmonitorInstancesResponse where diff --git a/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsEgress.hs b/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsEgress.hs --- a/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsEgress.hs +++ b/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsEgress.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.UpdateSecurityGroupRuleDescriptionsEgress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,28 +77,28 @@ :: UpdateSecurityGroupRuleDescriptionsEgress updateSecurityGroupRuleDescriptionsEgress = UpdateSecurityGroupRuleDescriptionsEgress' - { _usgrdeGroupId = Nothing - , _usgrdeGroupName = Nothing - , _usgrdeDryRun = Nothing - , _usgrdeIPPermissions = mempty - } + { _usgrdeGroupId = Nothing + , _usgrdeGroupName = Nothing + , _usgrdeDryRun = Nothing + , _usgrdeIPPermissions = mempty + } -- | The ID of the security group. You must specify either the security group ID or the security group name in the request. For security groups in a nondefault VPC, you must specify the security group ID. usgrdeGroupId :: Lens' UpdateSecurityGroupRuleDescriptionsEgress (Maybe Text) -usgrdeGroupId = lens _usgrdeGroupId (\ s a -> s{_usgrdeGroupId = a}); +usgrdeGroupId = lens _usgrdeGroupId (\ s a -> s{_usgrdeGroupId = a}) -- | [Default VPC] The name of the security group. You must specify either the security group ID or the security group name in the request. usgrdeGroupName :: Lens' UpdateSecurityGroupRuleDescriptionsEgress (Maybe Text) -usgrdeGroupName = lens _usgrdeGroupName (\ s a -> s{_usgrdeGroupName = a}); +usgrdeGroupName = lens _usgrdeGroupName (\ s a -> s{_usgrdeGroupName = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . usgrdeDryRun :: Lens' UpdateSecurityGroupRuleDescriptionsEgress (Maybe Bool) -usgrdeDryRun = lens _usgrdeDryRun (\ s a -> s{_usgrdeDryRun = a}); +usgrdeDryRun = lens _usgrdeDryRun (\ s a -> s{_usgrdeDryRun = a}) -- | The IP permissions for the security group rule. usgrdeIPPermissions :: Lens' UpdateSecurityGroupRuleDescriptionsEgress [IPPermission] -usgrdeIPPermissions = lens _usgrdeIPPermissions (\ s a -> s{_usgrdeIPPermissions = a}) . _Coerce; +usgrdeIPPermissions = lens _usgrdeIPPermissions (\ s a -> s{_usgrdeIPPermissions = a}) . _Coerce instance AWSRequest UpdateSecurityGroupRuleDescriptionsEgress @@ -168,16 +168,16 @@ -> UpdateSecurityGroupRuleDescriptionsEgressResponse updateSecurityGroupRuleDescriptionsEgressResponse pResponseStatus_ = UpdateSecurityGroupRuleDescriptionsEgressResponse' - {_usgrdersReturn = Nothing, _usgrdersResponseStatus = pResponseStatus_} + {_usgrdersReturn = Nothing, _usgrdersResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, returns an error. usgrdersReturn :: Lens' UpdateSecurityGroupRuleDescriptionsEgressResponse (Maybe Bool) -usgrdersReturn = lens _usgrdersReturn (\ s a -> s{_usgrdersReturn = a}); +usgrdersReturn = lens _usgrdersReturn (\ s a -> s{_usgrdersReturn = a}) -- | -- | The response status code. usgrdersResponseStatus :: Lens' UpdateSecurityGroupRuleDescriptionsEgressResponse Int -usgrdersResponseStatus = lens _usgrdersResponseStatus (\ s a -> s{_usgrdersResponseStatus = a}); +usgrdersResponseStatus = lens _usgrdersResponseStatus (\ s a -> s{_usgrdersResponseStatus = a}) instance NFData UpdateSecurityGroupRuleDescriptionsEgressResponse diff --git a/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsIngress.hs b/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsIngress.hs --- a/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsIngress.hs +++ b/gen/Network/AWS/EC2/UpdateSecurityGroupRuleDescriptionsIngress.hs @@ -12,7 +12,7 @@ -- | -- Module : Network.AWS.EC2.UpdateSecurityGroupRuleDescriptionsIngress --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -77,28 +77,28 @@ :: UpdateSecurityGroupRuleDescriptionsIngress updateSecurityGroupRuleDescriptionsIngress = UpdateSecurityGroupRuleDescriptionsIngress' - { _usgrdiGroupId = Nothing - , _usgrdiGroupName = Nothing - , _usgrdiDryRun = Nothing - , _usgrdiIPPermissions = mempty - } + { _usgrdiGroupId = Nothing + , _usgrdiGroupName = Nothing + , _usgrdiDryRun = Nothing + , _usgrdiIPPermissions = mempty + } -- | The ID of the security group. You must specify either the security group ID or the security group name in the request. For security groups in a nondefault VPC, you must specify the security group ID. usgrdiGroupId :: Lens' UpdateSecurityGroupRuleDescriptionsIngress (Maybe Text) -usgrdiGroupId = lens _usgrdiGroupId (\ s a -> s{_usgrdiGroupId = a}); +usgrdiGroupId = lens _usgrdiGroupId (\ s a -> s{_usgrdiGroupId = a}) -- | [EC2-Classic, default VPC] The name of the security group. You must specify either the security group ID or the security group name in the request. usgrdiGroupName :: Lens' UpdateSecurityGroupRuleDescriptionsIngress (Maybe Text) -usgrdiGroupName = lens _usgrdiGroupName (\ s a -> s{_usgrdiGroupName = a}); +usgrdiGroupName = lens _usgrdiGroupName (\ s a -> s{_usgrdiGroupName = a}) -- | Checks whether you have the required permissions for the action, without actually making the request, and provides an error response. If you have the required permissions, the error response is @DryRunOperation@ . Otherwise, it is @UnauthorizedOperation@ . usgrdiDryRun :: Lens' UpdateSecurityGroupRuleDescriptionsIngress (Maybe Bool) -usgrdiDryRun = lens _usgrdiDryRun (\ s a -> s{_usgrdiDryRun = a}); +usgrdiDryRun = lens _usgrdiDryRun (\ s a -> s{_usgrdiDryRun = a}) -- | The IP permissions for the security group rule. usgrdiIPPermissions :: Lens' UpdateSecurityGroupRuleDescriptionsIngress [IPPermission] -usgrdiIPPermissions = lens _usgrdiIPPermissions (\ s a -> s{_usgrdiIPPermissions = a}) . _Coerce; +usgrdiIPPermissions = lens _usgrdiIPPermissions (\ s a -> s{_usgrdiIPPermissions = a}) . _Coerce instance AWSRequest UpdateSecurityGroupRuleDescriptionsIngress @@ -168,16 +168,16 @@ -> UpdateSecurityGroupRuleDescriptionsIngressResponse updateSecurityGroupRuleDescriptionsIngressResponse pResponseStatus_ = UpdateSecurityGroupRuleDescriptionsIngressResponse' - {_usgrdirsReturn = Nothing, _usgrdirsResponseStatus = pResponseStatus_} + {_usgrdirsReturn = Nothing, _usgrdirsResponseStatus = pResponseStatus_} -- | Returns @true@ if the request succeeds; otherwise, returns an error. usgrdirsReturn :: Lens' UpdateSecurityGroupRuleDescriptionsIngressResponse (Maybe Bool) -usgrdirsReturn = lens _usgrdirsReturn (\ s a -> s{_usgrdirsReturn = a}); +usgrdirsReturn = lens _usgrdirsReturn (\ s a -> s{_usgrdirsReturn = a}) -- | -- | The response status code. usgrdirsResponseStatus :: Lens' UpdateSecurityGroupRuleDescriptionsIngressResponse Int -usgrdirsResponseStatus = lens _usgrdirsResponseStatus (\ s a -> s{_usgrdirsResponseStatus = a}); +usgrdirsResponseStatus = lens _usgrdirsResponseStatus (\ s a -> s{_usgrdirsResponseStatus = a}) instance NFData UpdateSecurityGroupRuleDescriptionsIngressResponse diff --git a/gen/Network/AWS/EC2/Waiters.hs b/gen/Network/AWS/EC2/Waiters.hs --- a/gen/Network/AWS/EC2/Waiters.hs +++ b/gen/Network/AWS/EC2/Waiters.hs @@ -7,7 +7,7 @@ -- | -- Module : Network.AWS.EC2.Waiters --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -38,6 +38,7 @@ import Network.AWS.EC2.DescribeVolumes import Network.AWS.EC2.DescribeVolumes import Network.AWS.EC2.DescribeVPCPeeringConnections +import Network.AWS.EC2.DescribeVPCPeeringConnections import Network.AWS.EC2.DescribeVPCs import Network.AWS.EC2.DescribeVPCs import Network.AWS.EC2.DescribeVPNConnections @@ -52,559 +53,588 @@ instanceTerminated :: Wait DescribeInstances instanceTerminated = Wait - { _waitName = "InstanceTerminated" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "terminated" - AcceptSuccess - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchAny - "pending" - AcceptFailure - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchAny - "stopping" - AcceptFailure - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - ] - } + { _waitName = "InstanceTerminated" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "terminated" + AcceptSuccess + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchAny + "pending" + AcceptFailure + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchAny + "stopping" + AcceptFailure + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeVolumes' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. volumeInUse :: Wait DescribeVolumes volumeInUse = Wait - { _waitName = "VolumeInUse" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "in-use" - AcceptSuccess - (folding (concatOf dvvrsVolumes) . vState . to toTextCI) - , matchAny - "deleted" - AcceptFailure - (folding (concatOf dvvrsVolumes) . vState . to toTextCI) - ] - } + { _waitName = "VolumeInUse" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "in-use" + AcceptSuccess + (folding (concatOf dvvrsVolumes) . vState . to toTextCI) + , matchAny + "deleted" + AcceptFailure + (folding (concatOf dvvrsVolumes) . vState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeNatGateways' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. natGatewayAvailable :: Wait DescribeNatGateways natGatewayAvailable = Wait - { _waitName = "NatGatewayAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) - , matchAny - "failed" - AcceptFailure - (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) - , matchAny - "deleting" - AcceptFailure - (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) - , matchAny - "deleted" - AcceptFailure - (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) - , matchError "NatGatewayNotFound" AcceptRetry - ] - } + { _waitName = "NatGatewayAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) + , matchAny + "failed" + AcceptFailure + (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) + , matchAny + "deleting" + AcceptFailure + (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) + , matchAny + "deleted" + AcceptFailure + (folding (concatOf dngrsNatGateways) . ngState . _Just . to toTextCI) + , matchError "NatGatewayNotFound" AcceptRetry + ] + } -- | Polls 'Network.AWS.EC2.DescribeSubnets' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. subnetAvailable :: Wait DescribeSubnets subnetAvailable = Wait - { _waitName = "SubnetAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf dsrsSubnets) . subState . to toTextCI) - ] - } + { _waitName = "SubnetAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf dsrsSubnets) . subState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeNetworkInterfaces' every 20 seconds until a successful state is reached. An error is returned after 10 failed checks. networkInterfaceAvailable :: Wait DescribeNetworkInterfaces networkInterfaceAvailable = Wait - { _waitName = "NetworkInterfaceAvailable" - , _waitAttempts = 10 - , _waitDelay = 20 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf dnirsNetworkInterfaces) . - niStatus . _Just . to toTextCI) - , matchError "InvalidNetworkInterfaceID.NotFound" AcceptFailure - ] - } + { _waitName = "NetworkInterfaceAvailable" + , _waitAttempts = 10 + , _waitDelay = 20 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf dnirsNetworkInterfaces) . + niStatus . _Just . to toTextCI) + , matchError "InvalidNetworkInterfaceID.NotFound" AcceptFailure + ] + } -- | Polls 'Network.AWS.EC2.DescribeInstanceStatus' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. systemStatusOK :: Wait DescribeInstanceStatus systemStatusOK = Wait - { _waitName = "SystemStatusOk" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "ok" - AcceptSuccess - (folding (concatOf disrsInstanceStatuses) . - isSystemStatus . _Just . issStatus . to toTextCI) - ] - } + { _waitName = "SystemStatusOk" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "ok" + AcceptSuccess + (folding (concatOf disrsInstanceStatuses) . + isSystemStatus . _Just . issStatus . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeCustomerGateways' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. customerGatewayAvailable :: Wait DescribeCustomerGateways customerGatewayAvailable = Wait - { _waitName = "CustomerGatewayAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf dcgrsCustomerGateways) . cgState . to toTextCI) - , matchAny - "deleted" - AcceptFailure - (folding (concatOf dcgrsCustomerGateways) . cgState . to toTextCI) - , matchAny - "deleting" - AcceptFailure - (folding (concatOf dcgrsCustomerGateways) . cgState . to toTextCI) - ] - } + { _waitName = "CustomerGatewayAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf dcgrsCustomerGateways) . cgState . to toTextCI) + , matchAny + "deleted" + AcceptFailure + (folding (concatOf dcgrsCustomerGateways) . cgState . to toTextCI) + , matchAny + "deleting" + AcceptFailure + (folding (concatOf dcgrsCustomerGateways) . cgState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeConversionTasks' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. conversionTaskCompleted :: Wait DescribeConversionTasks conversionTaskCompleted = Wait - { _waitName = "ConversionTaskCompleted" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "completed" - AcceptSuccess - (folding (concatOf dctrsConversionTasks) . ctState . to toTextCI) - , matchAny - "cancelled" - AcceptFailure - (folding (concatOf dctrsConversionTasks) . ctState . to toTextCI) - , matchAny - "cancelling" - AcceptFailure - (folding (concatOf dctrsConversionTasks) . ctState . to toTextCI) - ] - } + { _waitName = "ConversionTaskCompleted" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "completed" + AcceptSuccess + (folding (concatOf dctrsConversionTasks) . + ctState . _Just . to toTextCI) + , matchAny + "cancelled" + AcceptFailure + (folding (concatOf dctrsConversionTasks) . + ctState . _Just . to toTextCI) + , matchAny + "cancelling" + AcceptFailure + (folding (concatOf dctrsConversionTasks) . + ctState . _Just . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeInstances' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. instanceStopped :: Wait DescribeInstances instanceStopped = Wait - { _waitName = "InstanceStopped" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "stopped" - AcceptSuccess - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchAny - "pending" - AcceptFailure - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchAny - "terminated" - AcceptFailure - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - ] - } + { _waitName = "InstanceStopped" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "stopped" + AcceptSuccess + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchAny + "pending" + AcceptFailure + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchAny + "terminated" + AcceptFailure + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeConversionTasks' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. conversionTaskDeleted :: Wait DescribeConversionTasks conversionTaskDeleted = Wait - { _waitName = "ConversionTaskDeleted" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "deleted" - AcceptSuccess - (folding (concatOf dctrsConversionTasks) . ctState . to toTextCI) - ] - } + { _waitName = "ConversionTaskDeleted" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "deleted" + AcceptSuccess + (folding (concatOf dctrsConversionTasks) . + ctState . _Just . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.GetPasswordData' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. passwordDataAvailable :: Wait GetPasswordData passwordDataAvailable = Wait - { _waitName = "PasswordDataAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [matchAll True AcceptSuccess (nonEmptyText gpdrsPasswordData)] - } + { _waitName = "PasswordDataAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [matchAll True AcceptSuccess (nonEmptyText gpdrsPasswordData)] + } -- | Polls 'Network.AWS.EC2.DescribeInstances' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. instanceRunning :: Wait DescribeInstances instanceRunning = Wait - { _waitName = "InstanceRunning" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "running" - AcceptSuccess - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchAny - "shutting-down" - AcceptFailure - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchAny - "terminated" - AcceptFailure - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchAny - "stopping" - AcceptFailure - (folding (concatOf dirsReservations) . - folding (concatOf rInstances) . insState . isName . to toTextCI) - , matchError "InvalidInstanceID.NotFound" AcceptRetry - ] - } + { _waitName = "InstanceRunning" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "running" + AcceptSuccess + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchAny + "shutting-down" + AcceptFailure + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchAny + "terminated" + AcceptFailure + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchAny + "stopping" + AcceptFailure + (folding (concatOf dirsReservations) . + folding (concatOf rInstances) . insState . isName . to toTextCI) + , matchError "InvalidInstanceID.NotFound" AcceptRetry + ] + } -- | Polls 'Network.AWS.EC2.DescribeSpotInstanceRequests' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. spotInstanceRequestFulfilled :: Wait DescribeSpotInstanceRequests spotInstanceRequestFulfilled = Wait - { _waitName = "SpotInstanceRequestFulfilled" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "fulfilled" - AcceptSuccess - (folding (concatOf dsirrsSpotInstanceRequests) . - sirStatus . _Just . sisCode . _Just . to toTextCI) - , matchAny - "schedule-expired" - AcceptFailure - (folding (concatOf dsirrsSpotInstanceRequests) . - sirStatus . _Just . sisCode . _Just . to toTextCI) - , matchAny - "canceled-before-fulfillment" - AcceptFailure - (folding (concatOf dsirrsSpotInstanceRequests) . - sirStatus . _Just . sisCode . _Just . to toTextCI) - , matchAny - "bad-parameters" - AcceptFailure - (folding (concatOf dsirrsSpotInstanceRequests) . - sirStatus . _Just . sisCode . _Just . to toTextCI) - , matchAny - "system-error" - AcceptFailure - (folding (concatOf dsirrsSpotInstanceRequests) . - sirStatus . _Just . sisCode . _Just . to toTextCI) - ] - } + { _waitName = "SpotInstanceRequestFulfilled" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "fulfilled" + AcceptSuccess + (folding (concatOf dsirrsSpotInstanceRequests) . + sirStatus . _Just . sisCode . _Just . to toTextCI) + , matchAll + "request-canceled-and-instance-running" + AcceptSuccess + (folding (concatOf dsirrsSpotInstanceRequests) . + sirStatus . _Just . sisCode . _Just . to toTextCI) + , matchAny + "schedule-expired" + AcceptFailure + (folding (concatOf dsirrsSpotInstanceRequests) . + sirStatus . _Just . sisCode . _Just . to toTextCI) + , matchAny + "canceled-before-fulfillment" + AcceptFailure + (folding (concatOf dsirrsSpotInstanceRequests) . + sirStatus . _Just . sisCode . _Just . to toTextCI) + , matchAny + "bad-parameters" + AcceptFailure + (folding (concatOf dsirrsSpotInstanceRequests) . + sirStatus . _Just . sisCode . _Just . to toTextCI) + , matchAny + "system-error" + AcceptFailure + (folding (concatOf dsirrsSpotInstanceRequests) . + sirStatus . _Just . sisCode . _Just . to toTextCI) + , matchError "InvalidSpotInstanceRequestID.NotFound" AcceptRetry + ] + } -- | Polls 'Network.AWS.EC2.DescribeVPCs' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. vpcAvailable :: Wait DescribeVPCs vpcAvailable = Wait - { _waitName = "VpcAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf dvrsVPCs) . vpcState . to toTextCI) - ] - } + { _waitName = "VpcAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf dvrsVPCs) . vpcState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeExportTasks' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. exportTaskCompleted :: Wait DescribeExportTasks exportTaskCompleted = Wait - { _waitName = "ExportTaskCompleted" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "completed" - AcceptSuccess - (folding (concatOf detrsExportTasks) . etState . to toTextCI) - ] - } + { _waitName = "ExportTaskCompleted" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "completed" + AcceptSuccess + (folding (concatOf detrsExportTasks) . etState . to toTextCI) + ] + } +-- | Polls 'Network.AWS.EC2.DescribeVPCPeeringConnections' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. +vpcPeeringConnectionDeleted :: Wait DescribeVPCPeeringConnections +vpcPeeringConnectionDeleted = + Wait + { _waitName = "VpcPeeringConnectionDeleted" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "deleted" + AcceptSuccess + (folding (concatOf dvpcpcrsVPCPeeringConnections) . + vpcpcStatus . _Just . vpcsrCode . _Just . to toTextCI) + , matchError "InvalidVpcPeeringConnectionID.NotFound" AcceptSuccess + ] + } + + -- | Polls 'Network.AWS.EC2.DescribeVPNConnections' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. vpnConnectionAvailable :: Wait DescribeVPNConnections vpnConnectionAvailable = Wait - { _waitName = "VpnConnectionAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) - , matchAny - "deleting" - AcceptFailure - (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) - , matchAny - "deleted" - AcceptFailure - (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) - ] - } + { _waitName = "VpnConnectionAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) + , matchAny + "deleting" + AcceptFailure + (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) + , matchAny + "deleted" + AcceptFailure + (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeExportTasks' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. exportTaskCancelled :: Wait DescribeExportTasks exportTaskCancelled = Wait - { _waitName = "ExportTaskCancelled" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "cancelled" - AcceptSuccess - (folding (concatOf detrsExportTasks) . etState . to toTextCI) - ] - } + { _waitName = "ExportTaskCancelled" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "cancelled" + AcceptSuccess + (folding (concatOf detrsExportTasks) . etState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeVolumes' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. volumeDeleted :: Wait DescribeVolumes volumeDeleted = Wait - { _waitName = "VolumeDeleted" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "deleted" - AcceptSuccess - (folding (concatOf dvvrsVolumes) . vState . to toTextCI) - , matchError "InvalidVolume.NotFound" AcceptSuccess - ] - } + { _waitName = "VolumeDeleted" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "deleted" + AcceptSuccess + (folding (concatOf dvvrsVolumes) . vState . to toTextCI) + , matchError "InvalidVolume.NotFound" AcceptSuccess + ] + } -- | Polls 'Network.AWS.EC2.DescribeVPCs' every 1 seconds until a successful state is reached. An error is returned after 5 failed checks. vpcExists :: Wait DescribeVPCs vpcExists = Wait - { _waitName = "VpcExists" - , _waitAttempts = 5 - , _waitDelay = 1 - , _waitAcceptors = - [ matchStatus 200 AcceptSuccess - , matchError "InvalidVpcID.NotFound" AcceptRetry - ] - } + { _waitName = "VpcExists" + , _waitAttempts = 5 + , _waitDelay = 1 + , _waitAcceptors = + [ matchStatus 200 AcceptSuccess + , matchError "InvalidVpcID.NotFound" AcceptRetry + ] + } -- | Polls 'Network.AWS.EC2.DescribeBundleTasks' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. bundleTaskComplete :: Wait DescribeBundleTasks bundleTaskComplete = Wait - { _waitName = "BundleTaskComplete" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "complete" - AcceptSuccess - (folding (concatOf dbtrsBundleTasks) . btState . to toTextCI) - , matchAny - "failed" - AcceptFailure - (folding (concatOf dbtrsBundleTasks) . btState . to toTextCI) - ] - } + { _waitName = "BundleTaskComplete" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "complete" + AcceptSuccess + (folding (concatOf dbtrsBundleTasks) . btState . to toTextCI) + , matchAny + "failed" + AcceptFailure + (folding (concatOf dbtrsBundleTasks) . btState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeVPNConnections' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. vpnConnectionDeleted :: Wait DescribeVPNConnections vpnConnectionDeleted = Wait - { _waitName = "VpnConnectionDeleted" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "deleted" - AcceptSuccess - (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) - , matchAny - "pending" - AcceptFailure - (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) - ] - } + { _waitName = "VpnConnectionDeleted" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "deleted" + AcceptSuccess + (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) + , matchAny + "pending" + AcceptFailure + (folding (concatOf dvcrsVPNConnections) . vcState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeConversionTasks' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. conversionTaskCancelled :: Wait DescribeConversionTasks conversionTaskCancelled = Wait - { _waitName = "ConversionTaskCancelled" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "cancelled" - AcceptSuccess - (folding (concatOf dctrsConversionTasks) . ctState . to toTextCI) - ] - } + { _waitName = "ConversionTaskCancelled" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "cancelled" + AcceptSuccess + (folding (concatOf dctrsConversionTasks) . + ctState . _Just . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeImages' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. imageAvailable :: Wait DescribeImages imageAvailable = Wait - { _waitName = "ImageAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf diirsImages) . iState . to toTextCI) - , matchAny - "deregistered" - AcceptFailure - (folding (concatOf diirsImages) . iState . to toTextCI) - ] - } + { _waitName = "ImageAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf diirsImages) . iState . to toTextCI) + , matchAny + "deregistered" + AcceptFailure + (folding (concatOf diirsImages) . iState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeVPCPeeringConnections' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. vpcPeeringConnectionExists :: Wait DescribeVPCPeeringConnections vpcPeeringConnectionExists = Wait - { _waitName = "VpcPeeringConnectionExists" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchStatus 200 AcceptSuccess - , matchError "InvalidVpcPeeringConnectionID.NotFound" AcceptRetry - ] - } + { _waitName = "VpcPeeringConnectionExists" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchStatus 200 AcceptSuccess + , matchError "InvalidVpcPeeringConnectionID.NotFound" AcceptRetry + ] + } -- | Polls 'Network.AWS.EC2.DescribeSnapshots' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. snapshotCompleted :: Wait DescribeSnapshots snapshotCompleted = Wait - { _waitName = "SnapshotCompleted" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "completed" - AcceptSuccess - (folding (concatOf dssrsSnapshots) . sState . to toTextCI) - ] - } + { _waitName = "SnapshotCompleted" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "completed" + AcceptSuccess + (folding (concatOf dssrsSnapshots) . sState . to toTextCI) + ] + } -- | Polls 'Network.AWS.EC2.DescribeInstances' every 5 seconds until a successful state is reached. An error is returned after 40 failed checks. instanceExists :: Wait DescribeInstances instanceExists = Wait - { _waitName = "InstanceExists" - , _waitAttempts = 40 - , _waitDelay = 5 - , _waitAcceptors = - [ matchStatus 200 AcceptSuccess - , matchError "InvalidInstanceIDNotFound" AcceptRetry - ] - } + { _waitName = "InstanceExists" + , _waitAttempts = 40 + , _waitDelay = 5 + , _waitAcceptors = + [ matchStatus 200 AcceptSuccess + , matchError "InvalidInstanceIDNotFound" AcceptRetry + ] + } -- | Polls 'Network.AWS.EC2.DescribeInstanceStatus' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. instanceStatusOK :: Wait DescribeInstanceStatus instanceStatusOK = Wait - { _waitName = "InstanceStatusOk" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "ok" - AcceptSuccess - (folding (concatOf disrsInstanceStatuses) . - isInstanceStatus . _Just . issStatus . to toTextCI) - , matchError "InvalidInstanceID.NotFound" AcceptRetry - ] - } + { _waitName = "InstanceStatusOk" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "ok" + AcceptSuccess + (folding (concatOf disrsInstanceStatuses) . + isInstanceStatus . _Just . issStatus . to toTextCI) + , matchError "InvalidInstanceID.NotFound" AcceptRetry + ] + } -- | Polls 'Network.AWS.EC2.DescribeVolumes' every 15 seconds until a successful state is reached. An error is returned after 40 failed checks. volumeAvailable :: Wait DescribeVolumes volumeAvailable = Wait - { _waitName = "VolumeAvailable" - , _waitAttempts = 40 - , _waitDelay = 15 - , _waitAcceptors = - [ matchAll - "available" - AcceptSuccess - (folding (concatOf dvvrsVolumes) . vState . to toTextCI) - , matchAny - "deleted" - AcceptFailure - (folding (concatOf dvvrsVolumes) . vState . to toTextCI) - ] - } + { _waitName = "VolumeAvailable" + , _waitAttempts = 40 + , _waitDelay = 15 + , _waitAcceptors = + [ matchAll + "available" + AcceptSuccess + (folding (concatOf dvvrsVolumes) . vState . to toTextCI) + , matchAny + "deleted" + AcceptFailure + (folding (concatOf dvvrsVolumes) . vState . to toTextCI) + ] + } diff --git a/src/Network/AWS/EC2/Internal.hs b/src/Network/AWS/EC2/Internal.hs --- a/src/Network/AWS/EC2/Internal.hs +++ b/src/Network/AWS/EC2/Internal.hs @@ -5,7 +5,7 @@ -- | -- Module : Network.AWS.EC2.Internal --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : experimental diff --git a/test/Main.hs b/test/Main.hs --- a/test/Main.hs +++ b/test/Main.hs @@ -2,7 +2,7 @@ -- | -- Module : Main --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated diff --git a/test/Test/AWS/EC2.hs b/test/Test/AWS/EC2.hs --- a/test/Test/AWS/EC2.hs +++ b/test/Test/AWS/EC2.hs @@ -3,7 +3,7 @@ -- | -- Module : Test.AWS.EC2 --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : experimental diff --git a/test/Test/AWS/EC2/Internal.hs b/test/Test/AWS/EC2/Internal.hs --- a/test/Test/AWS/EC2/Internal.hs +++ b/test/Test/AWS/EC2/Internal.hs @@ -2,7 +2,7 @@ {-# OPTIONS_GHC -fno-warn-unused-imports #-} -- Module : Test.AWS.EC2.Internal --- Copyright : (c) 2013-2016 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : This Source Code Form is subject to the terms of -- the Mozilla Public License, v. 2.0. -- A copy of the MPL can be found in the LICENSE file or 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 @@ -5,7 +5,7 @@ -- | -- Module : Test.AWS.Gen.EC2 --- Copyright : (c) 2013-2017 Brendan Hay +-- Copyright : (c) 2013-2018 Brendan Hay -- License : Mozilla Public License, v. 2.0. -- Maintainer : Brendan Hay -- Stability : auto-generated @@ -37,6 +37,12 @@ -- , requestCreateNetworkInterfacePermission $ -- createNetworkInterfacePermission -- +-- , requestDeleteLaunchTemplate $ +-- deleteLaunchTemplate +-- +-- , requestRejectVPCEndpointConnections $ +-- rejectVPCEndpointConnections +-- -- , requestCreateVPNGateway $ -- createVPNGateway -- @@ -49,6 +55,9 @@ -- , requestDescribeSecurityGroupReferences $ -- describeSecurityGroupReferences -- +-- , requestDeleteFleets $ +-- deleteFleets +-- -- , requestDescribeTags $ -- describeTags -- @@ -79,6 +88,9 @@ -- , requestDetachVolume $ -- detachVolume -- +-- , requestDescribeInstanceCreditSpecifications $ +-- describeInstanceCreditSpecifications +-- -- , requestCancelBundleTask $ -- cancelBundleTask -- @@ -103,6 +115,9 @@ -- , requestDeregisterImage $ -- deregisterImage -- +-- , requestDeleteVPCEndpointConnectionNotifications $ +-- deleteVPCEndpointConnectionNotifications +-- -- , requestModifyNetworkInterfaceAttribute $ -- modifyNetworkInterfaceAttribute -- @@ -142,12 +157,21 @@ -- , requestStopInstances $ -- stopInstances -- +-- , requestModifyLaunchTemplate $ +-- modifyLaunchTemplate +-- +-- , requestModifyVPCEndpointConnectionNotification $ +-- modifyVPCEndpointConnectionNotification +-- -- , requestDescribeInternetGateways $ -- describeInternetGateways -- -- , requestDisableVPCClassicLink $ -- disableVPCClassicLink -- +-- , requestDeleteLaunchTemplateVersions $ +-- deleteLaunchTemplateVersions +-- -- , requestBundleInstance $ -- bundleInstance -- @@ -238,6 +262,9 @@ -- , requestCreateCustomerGateway $ -- createCustomerGateway -- +-- , requestDescribeFleets $ +-- describeFleets +-- -- , requestDeleteSecurityGroup $ -- deleteSecurityGroup -- @@ -253,6 +280,9 @@ -- , requestDescribeFlowLogs $ -- describeFlowLogs -- +-- , requestDescribeVPCEndpointConnectionNotifications $ +-- describeVPCEndpointConnectionNotifications +-- -- , requestRunInstances $ -- runInstances -- @@ -271,6 +301,9 @@ -- , requestDescribeConversionTasks $ -- describeConversionTasks -- +-- , requestCreateLaunchTemplateVersion $ +-- createLaunchTemplateVersion +-- -- , requestDisableVPCClassicLinkDNSSupport $ -- disableVPCClassicLinkDNSSupport -- @@ -280,6 +313,12 @@ -- , requestCreateFpgaImage $ -- createFpgaImage -- +-- , requestAcceptVPCEndpointConnections $ +-- acceptVPCEndpointConnections +-- +-- , requestGetLaunchTemplateData $ +-- getLaunchTemplateData +-- -- , requestAllocateAddress $ -- allocateAddress -- @@ -328,6 +367,9 @@ -- , requestRegisterImage $ -- registerImage -- +-- , requestModifyFleet $ +-- modifyFleet +-- -- , requestRevokeSecurityGroupIngress $ -- revokeSecurityGroupIngress -- @@ -340,6 +382,9 @@ -- , requestEnableVPCClassicLinkDNSSupport $ -- enableVPCClassicLinkDNSSupport -- +-- , requestDescribeVPCEndpointConnections $ +-- describeVPCEndpointConnections +-- -- , requestModifyReservedInstances $ -- modifyReservedInstances -- @@ -358,9 +403,27 @@ -- , requestMoveAddressToVPC $ -- moveAddressToVPC -- +-- , requestDescribeFleetInstances $ +-- describeFleetInstances +-- +-- , requestDescribeLaunchTemplateVersions $ +-- describeLaunchTemplateVersions +-- +-- , requestModifyInstanceCreditSpecification $ +-- modifyInstanceCreditSpecification +-- +-- , requestDescribePrincipalIdFormat $ +-- describePrincipalIdFormat +-- -- , requestDeleteNetworkACL $ -- deleteNetworkACL -- +-- , requestCreateLaunchTemplate $ +-- createLaunchTemplate +-- +-- , requestCreateVPCEndpointConnectionNotification $ +-- createVPCEndpointConnectionNotification +-- -- , requestDeleteNetworkInterfacePermission $ -- deleteNetworkInterfacePermission -- @@ -469,6 +532,9 @@ -- , requestCancelExportTask $ -- cancelExportTask -- +-- , requestCreateVPCEndpointServiceConfiguration $ +-- createVPCEndpointServiceConfiguration +-- -- , requestCreateDefaultVPC $ -- createDefaultVPC -- @@ -487,6 +553,9 @@ -- , requestCreatePlacementGroup $ -- createPlacementGroup -- +-- , requestDescribeAggregateIdFormat $ +-- describeAggregateIdFormat +-- -- , requestDescribeSnapshots $ -- describeSnapshots -- @@ -514,6 +583,9 @@ -- , requestCreateVPNConnection $ -- createVPNConnection -- +-- , requestCreateFleet $ +-- createFleet +-- -- , requestDeleteNatGateway $ -- deleteNatGateway -- @@ -553,6 +625,9 @@ -- , requestCreateRoute $ -- createRoute -- +-- , requestDescribeVPCEndpointServiceConfigurations $ +-- describeVPCEndpointServiceConfigurations +-- -- , requestDeleteSnapshot $ -- deleteSnapshot -- @@ -619,6 +694,9 @@ -- , requestAttachVPNGateway $ -- attachVPNGateway -- +-- , requestModifyVPCEndpointServicePermissions $ +-- modifyVPCEndpointServicePermissions +-- -- , requestCreateDHCPOptions $ -- createDHCPOptions -- @@ -634,6 +712,9 @@ -- , requestRebootInstances $ -- rebootInstances -- +-- , requestModifyVPCEndpointServiceConfiguration $ +-- modifyVPCEndpointServiceConfiguration +-- -- , requestUnassignIPv6Addresses $ -- unassignIPv6Addresses -- @@ -658,6 +739,9 @@ -- , requestDescribeKeyPairs $ -- describeKeyPairs -- +-- , requestDescribeLaunchTemplates $ +-- describeLaunchTemplates +-- -- , requestCreateVPNConnectionRoute $ -- createVPNConnectionRoute -- @@ -700,6 +784,9 @@ -- , requestDescribeNetworkInterfacePermissions $ -- describeNetworkInterfacePermissions -- +-- , requestDescribeVPCEndpointServicePermissions $ +-- describeVPCEndpointServicePermissions +-- -- , requestDeleteDHCPOptions $ -- deleteDHCPOptions -- @@ -736,6 +823,9 @@ -- , requestModifyVPCAttribute $ -- modifyVPCAttribute -- +-- , requestDescribeFleetHistory $ +-- describeFleetHistory +-- -- , requestDescribeImages $ -- describeImages -- @@ -754,6 +844,9 @@ -- , requestDeleteVolume $ -- deleteVolume -- +-- , requestDeleteVPCEndpointServiceConfigurations $ +-- deleteVPCEndpointServiceConfigurations +-- -- , requestDescribeSpotFleetInstances $ -- describeSpotFleetInstances -- @@ -769,6 +862,12 @@ -- , responseCreateNetworkInterfacePermission $ -- createNetworkInterfacePermissionResponse -- +-- , responseDeleteLaunchTemplate $ +-- deleteLaunchTemplateResponse +-- +-- , responseRejectVPCEndpointConnections $ +-- rejectVPCEndpointConnectionsResponse +-- -- , responseCreateVPNGateway $ -- createVPNGatewayResponse -- @@ -781,6 +880,9 @@ -- , responseDescribeSecurityGroupReferences $ -- describeSecurityGroupReferencesResponse -- +-- , responseDeleteFleets $ +-- deleteFleetsResponse +-- -- , responseDescribeTags $ -- describeTagsResponse -- @@ -811,6 +913,9 @@ -- , responseDetachVolume $ -- volumeAttachment -- +-- , responseDescribeInstanceCreditSpecifications $ +-- describeInstanceCreditSpecificationsResponse +-- -- , responseCancelBundleTask $ -- cancelBundleTaskResponse -- @@ -835,6 +940,9 @@ -- , responseDeregisterImage $ -- deregisterImageResponse -- +-- , responseDeleteVPCEndpointConnectionNotifications $ +-- deleteVPCEndpointConnectionNotificationsResponse +-- -- , responseModifyNetworkInterfaceAttribute $ -- modifyNetworkInterfaceAttributeResponse -- @@ -874,12 +982,21 @@ -- , responseStopInstances $ -- stopInstancesResponse -- +-- , responseModifyLaunchTemplate $ +-- modifyLaunchTemplateResponse +-- +-- , responseModifyVPCEndpointConnectionNotification $ +-- modifyVPCEndpointConnectionNotificationResponse +-- -- , responseDescribeInternetGateways $ -- describeInternetGatewaysResponse -- -- , responseDisableVPCClassicLink $ -- disableVPCClassicLinkResponse -- +-- , responseDeleteLaunchTemplateVersions $ +-- deleteLaunchTemplateVersionsResponse +-- -- , responseBundleInstance $ -- bundleInstanceResponse -- @@ -970,6 +1087,9 @@ -- , responseCreateCustomerGateway $ -- createCustomerGatewayResponse -- +-- , responseDescribeFleets $ +-- describeFleetsResponse +-- -- , responseDeleteSecurityGroup $ -- deleteSecurityGroupResponse -- @@ -985,6 +1105,9 @@ -- , responseDescribeFlowLogs $ -- describeFlowLogsResponse -- +-- , responseDescribeVPCEndpointConnectionNotifications $ +-- describeVPCEndpointConnectionNotificationsResponse +-- -- , responseRunInstances $ -- reservation -- @@ -1003,6 +1126,9 @@ -- , responseDescribeConversionTasks $ -- describeConversionTasksResponse -- +-- , responseCreateLaunchTemplateVersion $ +-- createLaunchTemplateVersionResponse +-- -- , responseDisableVPCClassicLinkDNSSupport $ -- disableVPCClassicLinkDNSSupportResponse -- @@ -1012,6 +1138,12 @@ -- , responseCreateFpgaImage $ -- createFpgaImageResponse -- +-- , responseAcceptVPCEndpointConnections $ +-- acceptVPCEndpointConnectionsResponse +-- +-- , responseGetLaunchTemplateData $ +-- getLaunchTemplateDataResponse +-- -- , responseAllocateAddress $ -- allocateAddressResponse -- @@ -1060,6 +1192,9 @@ -- , responseRegisterImage $ -- registerImageResponse -- +-- , responseModifyFleet $ +-- modifyFleetResponse +-- -- , responseRevokeSecurityGroupIngress $ -- revokeSecurityGroupIngressResponse -- @@ -1072,6 +1207,9 @@ -- , responseEnableVPCClassicLinkDNSSupport $ -- enableVPCClassicLinkDNSSupportResponse -- +-- , responseDescribeVPCEndpointConnections $ +-- describeVPCEndpointConnectionsResponse +-- -- , responseModifyReservedInstances $ -- modifyReservedInstancesResponse -- @@ -1090,9 +1228,27 @@ -- , responseMoveAddressToVPC $ -- moveAddressToVPCResponse -- +-- , responseDescribeFleetInstances $ +-- describeFleetInstancesResponse +-- +-- , responseDescribeLaunchTemplateVersions $ +-- describeLaunchTemplateVersionsResponse +-- +-- , responseModifyInstanceCreditSpecification $ +-- modifyInstanceCreditSpecificationResponse +-- +-- , responseDescribePrincipalIdFormat $ +-- describePrincipalIdFormatResponse +-- -- , responseDeleteNetworkACL $ -- deleteNetworkACLResponse -- +-- , responseCreateLaunchTemplate $ +-- createLaunchTemplateResponse +-- +-- , responseCreateVPCEndpointConnectionNotification $ +-- createVPCEndpointConnectionNotificationResponse +-- -- , responseDeleteNetworkInterfacePermission $ -- deleteNetworkInterfacePermissionResponse -- @@ -1201,6 +1357,9 @@ -- , responseCancelExportTask $ -- cancelExportTaskResponse -- +-- , responseCreateVPCEndpointServiceConfiguration $ +-- createVPCEndpointServiceConfigurationResponse +-- -- , responseCreateDefaultVPC $ -- createDefaultVPCResponse -- @@ -1219,6 +1378,9 @@ -- , responseCreatePlacementGroup $ -- createPlacementGroupResponse -- +-- , responseDescribeAggregateIdFormat $ +-- describeAggregateIdFormatResponse +-- -- , responseDescribeSnapshots $ -- describeSnapshotsResponse -- @@ -1246,6 +1408,9 @@ -- , responseCreateVPNConnection $ -- createVPNConnectionResponse -- +-- , responseCreateFleet $ +-- createFleetResponse +-- -- , responseDeleteNatGateway $ -- deleteNatGatewayResponse -- @@ -1285,6 +1450,9 @@ -- , responseCreateRoute $ -- createRouteResponse -- +-- , responseDescribeVPCEndpointServiceConfigurations $ +-- describeVPCEndpointServiceConfigurationsResponse +-- -- , responseDeleteSnapshot $ -- deleteSnapshotResponse -- @@ -1351,6 +1519,9 @@ -- , responseAttachVPNGateway $ -- attachVPNGatewayResponse -- +-- , responseModifyVPCEndpointServicePermissions $ +-- modifyVPCEndpointServicePermissionsResponse +-- -- , responseCreateDHCPOptions $ -- createDHCPOptionsResponse -- @@ -1366,6 +1537,9 @@ -- , responseRebootInstances $ -- rebootInstancesResponse -- +-- , responseModifyVPCEndpointServiceConfiguration $ +-- modifyVPCEndpointServiceConfigurationResponse +-- -- , responseUnassignIPv6Addresses $ -- unassignIPv6AddressesResponse -- @@ -1390,6 +1564,9 @@ -- , responseDescribeKeyPairs $ -- describeKeyPairsResponse -- +-- , responseDescribeLaunchTemplates $ +-- describeLaunchTemplatesResponse +-- -- , responseCreateVPNConnectionRoute $ -- createVPNConnectionRouteResponse -- @@ -1432,6 +1609,9 @@ -- , responseDescribeNetworkInterfacePermissions $ -- describeNetworkInterfacePermissionsResponse -- +-- , responseDescribeVPCEndpointServicePermissions $ +-- describeVPCEndpointServicePermissionsResponse +-- -- , responseDeleteDHCPOptions $ -- deleteDHCPOptionsResponse -- @@ -1468,6 +1648,9 @@ -- , responseModifyVPCAttribute $ -- modifyVPCAttributeResponse -- +-- , responseDescribeFleetHistory $ +-- describeFleetHistoryResponse +-- -- , responseDescribeImages $ -- describeImagesResponse -- @@ -1486,6 +1669,9 @@ -- , responseDeleteVolume $ -- deleteVolumeResponse -- +-- , responseDeleteVPCEndpointServiceConfigurations $ +-- deleteVPCEndpointServiceConfigurationsResponse +-- -- , responseDescribeSpotFleetInstances $ -- describeSpotFleetInstancesResponse -- @@ -1509,6 +1695,16 @@ "CreateNetworkInterfacePermission" "fixture/CreateNetworkInterfacePermission.yaml" +requestDeleteLaunchTemplate :: DeleteLaunchTemplate -> TestTree +requestDeleteLaunchTemplate = req + "DeleteLaunchTemplate" + "fixture/DeleteLaunchTemplate.yaml" + +requestRejectVPCEndpointConnections :: RejectVPCEndpointConnections -> TestTree +requestRejectVPCEndpointConnections = req + "RejectVPCEndpointConnections" + "fixture/RejectVPCEndpointConnections.yaml" + requestCreateVPNGateway :: CreateVPNGateway -> TestTree requestCreateVPNGateway = req "CreateVPNGateway" @@ -1529,6 +1725,11 @@ "DescribeSecurityGroupReferences" "fixture/DescribeSecurityGroupReferences.yaml" +requestDeleteFleets :: DeleteFleets -> TestTree +requestDeleteFleets = req + "DeleteFleets" + "fixture/DeleteFleets.yaml" + requestDescribeTags :: DescribeTags -> TestTree requestDescribeTags = req "DescribeTags" @@ -1579,6 +1780,11 @@ "DetachVolume" "fixture/DetachVolume.yaml" +requestDescribeInstanceCreditSpecifications :: DescribeInstanceCreditSpecifications -> TestTree +requestDescribeInstanceCreditSpecifications = req + "DescribeInstanceCreditSpecifications" + "fixture/DescribeInstanceCreditSpecifications.yaml" + requestCancelBundleTask :: CancelBundleTask -> TestTree requestCancelBundleTask = req "CancelBundleTask" @@ -1619,6 +1825,11 @@ "DeregisterImage" "fixture/DeregisterImage.yaml" +requestDeleteVPCEndpointConnectionNotifications :: DeleteVPCEndpointConnectionNotifications -> TestTree +requestDeleteVPCEndpointConnectionNotifications = req + "DeleteVPCEndpointConnectionNotifications" + "fixture/DeleteVPCEndpointConnectionNotifications.yaml" + requestModifyNetworkInterfaceAttribute :: ModifyNetworkInterfaceAttribute -> TestTree requestModifyNetworkInterfaceAttribute = req "ModifyNetworkInterfaceAttribute" @@ -1684,6 +1895,16 @@ "StopInstances" "fixture/StopInstances.yaml" +requestModifyLaunchTemplate :: ModifyLaunchTemplate -> TestTree +requestModifyLaunchTemplate = req + "ModifyLaunchTemplate" + "fixture/ModifyLaunchTemplate.yaml" + +requestModifyVPCEndpointConnectionNotification :: ModifyVPCEndpointConnectionNotification -> TestTree +requestModifyVPCEndpointConnectionNotification = req + "ModifyVPCEndpointConnectionNotification" + "fixture/ModifyVPCEndpointConnectionNotification.yaml" + requestDescribeInternetGateways :: DescribeInternetGateways -> TestTree requestDescribeInternetGateways = req "DescribeInternetGateways" @@ -1694,6 +1915,11 @@ "DisableVPCClassicLink" "fixture/DisableVPCClassicLink.yaml" +requestDeleteLaunchTemplateVersions :: DeleteLaunchTemplateVersions -> TestTree +requestDeleteLaunchTemplateVersions = req + "DeleteLaunchTemplateVersions" + "fixture/DeleteLaunchTemplateVersions.yaml" + requestBundleInstance :: BundleInstance -> TestTree requestBundleInstance = req "BundleInstance" @@ -1844,6 +2070,11 @@ "CreateCustomerGateway" "fixture/CreateCustomerGateway.yaml" +requestDescribeFleets :: DescribeFleets -> TestTree +requestDescribeFleets = req + "DescribeFleets" + "fixture/DescribeFleets.yaml" + requestDeleteSecurityGroup :: DeleteSecurityGroup -> TestTree requestDeleteSecurityGroup = req "DeleteSecurityGroup" @@ -1869,6 +2100,11 @@ "DescribeFlowLogs" "fixture/DescribeFlowLogs.yaml" +requestDescribeVPCEndpointConnectionNotifications :: DescribeVPCEndpointConnectionNotifications -> TestTree +requestDescribeVPCEndpointConnectionNotifications = req + "DescribeVPCEndpointConnectionNotifications" + "fixture/DescribeVPCEndpointConnectionNotifications.yaml" + requestRunInstances :: RunInstances -> TestTree requestRunInstances = req "RunInstances" @@ -1899,6 +2135,11 @@ "DescribeConversionTasks" "fixture/DescribeConversionTasks.yaml" +requestCreateLaunchTemplateVersion :: CreateLaunchTemplateVersion -> TestTree +requestCreateLaunchTemplateVersion = req + "CreateLaunchTemplateVersion" + "fixture/CreateLaunchTemplateVersion.yaml" + requestDisableVPCClassicLinkDNSSupport :: DisableVPCClassicLinkDNSSupport -> TestTree requestDisableVPCClassicLinkDNSSupport = req "DisableVPCClassicLinkDNSSupport" @@ -1914,6 +2155,16 @@ "CreateFpgaImage" "fixture/CreateFpgaImage.yaml" +requestAcceptVPCEndpointConnections :: AcceptVPCEndpointConnections -> TestTree +requestAcceptVPCEndpointConnections = req + "AcceptVPCEndpointConnections" + "fixture/AcceptVPCEndpointConnections.yaml" + +requestGetLaunchTemplateData :: GetLaunchTemplateData -> TestTree +requestGetLaunchTemplateData = req + "GetLaunchTemplateData" + "fixture/GetLaunchTemplateData.yaml" + requestAllocateAddress :: AllocateAddress -> TestTree requestAllocateAddress = req "AllocateAddress" @@ -1994,6 +2245,11 @@ "RegisterImage" "fixture/RegisterImage.yaml" +requestModifyFleet :: ModifyFleet -> TestTree +requestModifyFleet = req + "ModifyFleet" + "fixture/ModifyFleet.yaml" + requestRevokeSecurityGroupIngress :: RevokeSecurityGroupIngress -> TestTree requestRevokeSecurityGroupIngress = req "RevokeSecurityGroupIngress" @@ -2014,6 +2270,11 @@ "EnableVPCClassicLinkDNSSupport" "fixture/EnableVPCClassicLinkDNSSupport.yaml" +requestDescribeVPCEndpointConnections :: DescribeVPCEndpointConnections -> TestTree +requestDescribeVPCEndpointConnections = req + "DescribeVPCEndpointConnections" + "fixture/DescribeVPCEndpointConnections.yaml" + requestModifyReservedInstances :: ModifyReservedInstances -> TestTree requestModifyReservedInstances = req "ModifyReservedInstances" @@ -2044,11 +2305,41 @@ "MoveAddressToVPC" "fixture/MoveAddressToVPC.yaml" +requestDescribeFleetInstances :: DescribeFleetInstances -> TestTree +requestDescribeFleetInstances = req + "DescribeFleetInstances" + "fixture/DescribeFleetInstances.yaml" + +requestDescribeLaunchTemplateVersions :: DescribeLaunchTemplateVersions -> TestTree +requestDescribeLaunchTemplateVersions = req + "DescribeLaunchTemplateVersions" + "fixture/DescribeLaunchTemplateVersions.yaml" + +requestModifyInstanceCreditSpecification :: ModifyInstanceCreditSpecification -> TestTree +requestModifyInstanceCreditSpecification = req + "ModifyInstanceCreditSpecification" + "fixture/ModifyInstanceCreditSpecification.yaml" + +requestDescribePrincipalIdFormat :: DescribePrincipalIdFormat -> TestTree +requestDescribePrincipalIdFormat = req + "DescribePrincipalIdFormat" + "fixture/DescribePrincipalIdFormat.yaml" + requestDeleteNetworkACL :: DeleteNetworkACL -> TestTree requestDeleteNetworkACL = req "DeleteNetworkACL" "fixture/DeleteNetworkACL.yaml" +requestCreateLaunchTemplate :: CreateLaunchTemplate -> TestTree +requestCreateLaunchTemplate = req + "CreateLaunchTemplate" + "fixture/CreateLaunchTemplate.yaml" + +requestCreateVPCEndpointConnectionNotification :: CreateVPCEndpointConnectionNotification -> TestTree +requestCreateVPCEndpointConnectionNotification = req + "CreateVPCEndpointConnectionNotification" + "fixture/CreateVPCEndpointConnectionNotification.yaml" + requestDeleteNetworkInterfacePermission :: DeleteNetworkInterfacePermission -> TestTree requestDeleteNetworkInterfacePermission = req "DeleteNetworkInterfacePermission" @@ -2229,6 +2520,11 @@ "CancelExportTask" "fixture/CancelExportTask.yaml" +requestCreateVPCEndpointServiceConfiguration :: CreateVPCEndpointServiceConfiguration -> TestTree +requestCreateVPCEndpointServiceConfiguration = req + "CreateVPCEndpointServiceConfiguration" + "fixture/CreateVPCEndpointServiceConfiguration.yaml" + requestCreateDefaultVPC :: CreateDefaultVPC -> TestTree requestCreateDefaultVPC = req "CreateDefaultVPC" @@ -2259,6 +2555,11 @@ "CreatePlacementGroup" "fixture/CreatePlacementGroup.yaml" +requestDescribeAggregateIdFormat :: DescribeAggregateIdFormat -> TestTree +requestDescribeAggregateIdFormat = req + "DescribeAggregateIdFormat" + "fixture/DescribeAggregateIdFormat.yaml" + requestDescribeSnapshots :: DescribeSnapshots -> TestTree requestDescribeSnapshots = req "DescribeSnapshots" @@ -2304,6 +2605,11 @@ "CreateVPNConnection" "fixture/CreateVPNConnection.yaml" +requestCreateFleet :: CreateFleet -> TestTree +requestCreateFleet = req + "CreateFleet" + "fixture/CreateFleet.yaml" + requestDeleteNatGateway :: DeleteNatGateway -> TestTree requestDeleteNatGateway = req "DeleteNatGateway" @@ -2369,6 +2675,11 @@ "CreateRoute" "fixture/CreateRoute.yaml" +requestDescribeVPCEndpointServiceConfigurations :: DescribeVPCEndpointServiceConfigurations -> TestTree +requestDescribeVPCEndpointServiceConfigurations = req + "DescribeVPCEndpointServiceConfigurations" + "fixture/DescribeVPCEndpointServiceConfigurations.yaml" + requestDeleteSnapshot :: DeleteSnapshot -> TestTree requestDeleteSnapshot = req "DeleteSnapshot" @@ -2479,6 +2790,11 @@ "AttachVPNGateway" "fixture/AttachVPNGateway.yaml" +requestModifyVPCEndpointServicePermissions :: ModifyVPCEndpointServicePermissions -> TestTree +requestModifyVPCEndpointServicePermissions = req + "ModifyVPCEndpointServicePermissions" + "fixture/ModifyVPCEndpointServicePermissions.yaml" + requestCreateDHCPOptions :: CreateDHCPOptions -> TestTree requestCreateDHCPOptions = req "CreateDHCPOptions" @@ -2504,6 +2820,11 @@ "RebootInstances" "fixture/RebootInstances.yaml" +requestModifyVPCEndpointServiceConfiguration :: ModifyVPCEndpointServiceConfiguration -> TestTree +requestModifyVPCEndpointServiceConfiguration = req + "ModifyVPCEndpointServiceConfiguration" + "fixture/ModifyVPCEndpointServiceConfiguration.yaml" + requestUnassignIPv6Addresses :: UnassignIPv6Addresses -> TestTree requestUnassignIPv6Addresses = req "UnassignIPv6Addresses" @@ -2544,6 +2865,11 @@ "DescribeKeyPairs" "fixture/DescribeKeyPairs.yaml" +requestDescribeLaunchTemplates :: DescribeLaunchTemplates -> TestTree +requestDescribeLaunchTemplates = req + "DescribeLaunchTemplates" + "fixture/DescribeLaunchTemplates.yaml" + requestCreateVPNConnectionRoute :: CreateVPNConnectionRoute -> TestTree requestCreateVPNConnectionRoute = req "CreateVPNConnectionRoute" @@ -2614,6 +2940,11 @@ "DescribeNetworkInterfacePermissions" "fixture/DescribeNetworkInterfacePermissions.yaml" +requestDescribeVPCEndpointServicePermissions :: DescribeVPCEndpointServicePermissions -> TestTree +requestDescribeVPCEndpointServicePermissions = req + "DescribeVPCEndpointServicePermissions" + "fixture/DescribeVPCEndpointServicePermissions.yaml" + requestDeleteDHCPOptions :: DeleteDHCPOptions -> TestTree requestDeleteDHCPOptions = req "DeleteDHCPOptions" @@ -2674,6 +3005,11 @@ "ModifyVPCAttribute" "fixture/ModifyVPCAttribute.yaml" +requestDescribeFleetHistory :: DescribeFleetHistory -> TestTree +requestDescribeFleetHistory = req + "DescribeFleetHistory" + "fixture/DescribeFleetHistory.yaml" + requestDescribeImages :: DescribeImages -> TestTree requestDescribeImages = req "DescribeImages" @@ -2704,6 +3040,11 @@ "DeleteVolume" "fixture/DeleteVolume.yaml" +requestDeleteVPCEndpointServiceConfigurations :: DeleteVPCEndpointServiceConfigurations -> TestTree +requestDeleteVPCEndpointServiceConfigurations = req + "DeleteVPCEndpointServiceConfigurations" + "fixture/DeleteVPCEndpointServiceConfigurations.yaml" + requestDescribeSpotFleetInstances :: DescribeSpotFleetInstances -> TestTree requestDescribeSpotFleetInstances = req "DescribeSpotFleetInstances" @@ -2732,6 +3073,20 @@ ec2 (Proxy :: Proxy CreateNetworkInterfacePermission) +responseDeleteLaunchTemplate :: DeleteLaunchTemplateResponse -> TestTree +responseDeleteLaunchTemplate = res + "DeleteLaunchTemplateResponse" + "fixture/DeleteLaunchTemplateResponse.proto" + ec2 + (Proxy :: Proxy DeleteLaunchTemplate) + +responseRejectVPCEndpointConnections :: RejectVPCEndpointConnectionsResponse -> TestTree +responseRejectVPCEndpointConnections = res + "RejectVPCEndpointConnectionsResponse" + "fixture/RejectVPCEndpointConnectionsResponse.proto" + ec2 + (Proxy :: Proxy RejectVPCEndpointConnections) + responseCreateVPNGateway :: CreateVPNGatewayResponse -> TestTree responseCreateVPNGateway = res "CreateVPNGatewayResponse" @@ -2760,6 +3115,13 @@ ec2 (Proxy :: Proxy DescribeSecurityGroupReferences) +responseDeleteFleets :: DeleteFleetsResponse -> TestTree +responseDeleteFleets = res + "DeleteFleetsResponse" + "fixture/DeleteFleetsResponse.proto" + ec2 + (Proxy :: Proxy DeleteFleets) + responseDescribeTags :: DescribeTagsResponse -> TestTree responseDescribeTags = res "DescribeTagsResponse" @@ -2830,6 +3192,13 @@ ec2 (Proxy :: Proxy DetachVolume) +responseDescribeInstanceCreditSpecifications :: DescribeInstanceCreditSpecificationsResponse -> TestTree +responseDescribeInstanceCreditSpecifications = res + "DescribeInstanceCreditSpecificationsResponse" + "fixture/DescribeInstanceCreditSpecificationsResponse.proto" + ec2 + (Proxy :: Proxy DescribeInstanceCreditSpecifications) + responseCancelBundleTask :: CancelBundleTaskResponse -> TestTree responseCancelBundleTask = res "CancelBundleTaskResponse" @@ -2886,6 +3255,13 @@ ec2 (Proxy :: Proxy DeregisterImage) +responseDeleteVPCEndpointConnectionNotifications :: DeleteVPCEndpointConnectionNotificationsResponse -> TestTree +responseDeleteVPCEndpointConnectionNotifications = res + "DeleteVPCEndpointConnectionNotificationsResponse" + "fixture/DeleteVPCEndpointConnectionNotificationsResponse.proto" + ec2 + (Proxy :: Proxy DeleteVPCEndpointConnectionNotifications) + responseModifyNetworkInterfaceAttribute :: ModifyNetworkInterfaceAttributeResponse -> TestTree responseModifyNetworkInterfaceAttribute = res "ModifyNetworkInterfaceAttributeResponse" @@ -2977,6 +3353,20 @@ ec2 (Proxy :: Proxy StopInstances) +responseModifyLaunchTemplate :: ModifyLaunchTemplateResponse -> TestTree +responseModifyLaunchTemplate = res + "ModifyLaunchTemplateResponse" + "fixture/ModifyLaunchTemplateResponse.proto" + ec2 + (Proxy :: Proxy ModifyLaunchTemplate) + +responseModifyVPCEndpointConnectionNotification :: ModifyVPCEndpointConnectionNotificationResponse -> TestTree +responseModifyVPCEndpointConnectionNotification = res + "ModifyVPCEndpointConnectionNotificationResponse" + "fixture/ModifyVPCEndpointConnectionNotificationResponse.proto" + ec2 + (Proxy :: Proxy ModifyVPCEndpointConnectionNotification) + responseDescribeInternetGateways :: DescribeInternetGatewaysResponse -> TestTree responseDescribeInternetGateways = res "DescribeInternetGatewaysResponse" @@ -2991,6 +3381,13 @@ ec2 (Proxy :: Proxy DisableVPCClassicLink) +responseDeleteLaunchTemplateVersions :: DeleteLaunchTemplateVersionsResponse -> TestTree +responseDeleteLaunchTemplateVersions = res + "DeleteLaunchTemplateVersionsResponse" + "fixture/DeleteLaunchTemplateVersionsResponse.proto" + ec2 + (Proxy :: Proxy DeleteLaunchTemplateVersions) + responseBundleInstance :: BundleInstanceResponse -> TestTree responseBundleInstance = res "BundleInstanceResponse" @@ -3201,6 +3598,13 @@ ec2 (Proxy :: Proxy CreateCustomerGateway) +responseDescribeFleets :: DescribeFleetsResponse -> TestTree +responseDescribeFleets = res + "DescribeFleetsResponse" + "fixture/DescribeFleetsResponse.proto" + ec2 + (Proxy :: Proxy DescribeFleets) + responseDeleteSecurityGroup :: DeleteSecurityGroupResponse -> TestTree responseDeleteSecurityGroup = res "DeleteSecurityGroupResponse" @@ -3236,6 +3640,13 @@ ec2 (Proxy :: Proxy DescribeFlowLogs) +responseDescribeVPCEndpointConnectionNotifications :: DescribeVPCEndpointConnectionNotificationsResponse -> TestTree +responseDescribeVPCEndpointConnectionNotifications = res + "DescribeVPCEndpointConnectionNotificationsResponse" + "fixture/DescribeVPCEndpointConnectionNotificationsResponse.proto" + ec2 + (Proxy :: Proxy DescribeVPCEndpointConnectionNotifications) + responseRunInstances :: Reservation -> TestTree responseRunInstances = res "RunInstancesResponse" @@ -3278,6 +3689,13 @@ ec2 (Proxy :: Proxy DescribeConversionTasks) +responseCreateLaunchTemplateVersion :: CreateLaunchTemplateVersionResponse -> TestTree +responseCreateLaunchTemplateVersion = res + "CreateLaunchTemplateVersionResponse" + "fixture/CreateLaunchTemplateVersionResponse.proto" + ec2 + (Proxy :: Proxy CreateLaunchTemplateVersion) + responseDisableVPCClassicLinkDNSSupport :: DisableVPCClassicLinkDNSSupportResponse -> TestTree responseDisableVPCClassicLinkDNSSupport = res "DisableVPCClassicLinkDNSSupportResponse" @@ -3299,6 +3717,20 @@ ec2 (Proxy :: Proxy CreateFpgaImage) +responseAcceptVPCEndpointConnections :: AcceptVPCEndpointConnectionsResponse -> TestTree +responseAcceptVPCEndpointConnections = res + "AcceptVPCEndpointConnectionsResponse" + "fixture/AcceptVPCEndpointConnectionsResponse.proto" + ec2 + (Proxy :: Proxy AcceptVPCEndpointConnections) + +responseGetLaunchTemplateData :: GetLaunchTemplateDataResponse -> TestTree +responseGetLaunchTemplateData = res + "GetLaunchTemplateDataResponse" + "fixture/GetLaunchTemplateDataResponse.proto" + ec2 + (Proxy :: Proxy GetLaunchTemplateData) + responseAllocateAddress :: AllocateAddressResponse -> TestTree responseAllocateAddress = res "AllocateAddressResponse" @@ -3411,6 +3843,13 @@ ec2 (Proxy :: Proxy RegisterImage) +responseModifyFleet :: ModifyFleetResponse -> TestTree +responseModifyFleet = res + "ModifyFleetResponse" + "fixture/ModifyFleetResponse.proto" + ec2 + (Proxy :: Proxy ModifyFleet) + responseRevokeSecurityGroupIngress :: RevokeSecurityGroupIngressResponse -> TestTree responseRevokeSecurityGroupIngress = res "RevokeSecurityGroupIngressResponse" @@ -3439,6 +3878,13 @@ ec2 (Proxy :: Proxy EnableVPCClassicLinkDNSSupport) +responseDescribeVPCEndpointConnections :: DescribeVPCEndpointConnectionsResponse -> TestTree +responseDescribeVPCEndpointConnections = res + "DescribeVPCEndpointConnectionsResponse" + "fixture/DescribeVPCEndpointConnectionsResponse.proto" + ec2 + (Proxy :: Proxy DescribeVPCEndpointConnections) + responseModifyReservedInstances :: ModifyReservedInstancesResponse -> TestTree responseModifyReservedInstances = res "ModifyReservedInstancesResponse" @@ -3481,6 +3927,34 @@ ec2 (Proxy :: Proxy MoveAddressToVPC) +responseDescribeFleetInstances :: DescribeFleetInstancesResponse -> TestTree +responseDescribeFleetInstances = res + "DescribeFleetInstancesResponse" + "fixture/DescribeFleetInstancesResponse.proto" + ec2 + (Proxy :: Proxy DescribeFleetInstances) + +responseDescribeLaunchTemplateVersions :: DescribeLaunchTemplateVersionsResponse -> TestTree +responseDescribeLaunchTemplateVersions = res + "DescribeLaunchTemplateVersionsResponse" + "fixture/DescribeLaunchTemplateVersionsResponse.proto" + ec2 + (Proxy :: Proxy DescribeLaunchTemplateVersions) + +responseModifyInstanceCreditSpecification :: ModifyInstanceCreditSpecificationResponse -> TestTree +responseModifyInstanceCreditSpecification = res + "ModifyInstanceCreditSpecificationResponse" + "fixture/ModifyInstanceCreditSpecificationResponse.proto" + ec2 + (Proxy :: Proxy ModifyInstanceCreditSpecification) + +responseDescribePrincipalIdFormat :: DescribePrincipalIdFormatResponse -> TestTree +responseDescribePrincipalIdFormat = res + "DescribePrincipalIdFormatResponse" + "fixture/DescribePrincipalIdFormatResponse.proto" + ec2 + (Proxy :: Proxy DescribePrincipalIdFormat) + responseDeleteNetworkACL :: DeleteNetworkACLResponse -> TestTree responseDeleteNetworkACL = res "DeleteNetworkACLResponse" @@ -3488,6 +3962,20 @@ ec2 (Proxy :: Proxy DeleteNetworkACL) +responseCreateLaunchTemplate :: CreateLaunchTemplateResponse -> TestTree +responseCreateLaunchTemplate = res + "CreateLaunchTemplateResponse" + "fixture/CreateLaunchTemplateResponse.proto" + ec2 + (Proxy :: Proxy CreateLaunchTemplate) + +responseCreateVPCEndpointConnectionNotification :: CreateVPCEndpointConnectionNotificationResponse -> TestTree +responseCreateVPCEndpointConnectionNotification = res + "CreateVPCEndpointConnectionNotificationResponse" + "fixture/CreateVPCEndpointConnectionNotificationResponse.proto" + ec2 + (Proxy :: Proxy CreateVPCEndpointConnectionNotification) + responseDeleteNetworkInterfacePermission :: DeleteNetworkInterfacePermissionResponse -> TestTree responseDeleteNetworkInterfacePermission = res "DeleteNetworkInterfacePermissionResponse" @@ -3740,6 +4228,13 @@ ec2 (Proxy :: Proxy CancelExportTask) +responseCreateVPCEndpointServiceConfiguration :: CreateVPCEndpointServiceConfigurationResponse -> TestTree +responseCreateVPCEndpointServiceConfiguration = res + "CreateVPCEndpointServiceConfigurationResponse" + "fixture/CreateVPCEndpointServiceConfigurationResponse.proto" + ec2 + (Proxy :: Proxy CreateVPCEndpointServiceConfiguration) + responseCreateDefaultVPC :: CreateDefaultVPCResponse -> TestTree responseCreateDefaultVPC = res "CreateDefaultVPCResponse" @@ -3782,6 +4277,13 @@ ec2 (Proxy :: Proxy CreatePlacementGroup) +responseDescribeAggregateIdFormat :: DescribeAggregateIdFormatResponse -> TestTree +responseDescribeAggregateIdFormat = res + "DescribeAggregateIdFormatResponse" + "fixture/DescribeAggregateIdFormatResponse.proto" + ec2 + (Proxy :: Proxy DescribeAggregateIdFormat) + responseDescribeSnapshots :: DescribeSnapshotsResponse -> TestTree responseDescribeSnapshots = res "DescribeSnapshotsResponse" @@ -3845,6 +4347,13 @@ ec2 (Proxy :: Proxy CreateVPNConnection) +responseCreateFleet :: CreateFleetResponse -> TestTree +responseCreateFleet = res + "CreateFleetResponse" + "fixture/CreateFleetResponse.proto" + ec2 + (Proxy :: Proxy CreateFleet) + responseDeleteNatGateway :: DeleteNatGatewayResponse -> TestTree responseDeleteNatGateway = res "DeleteNatGatewayResponse" @@ -3936,6 +4445,13 @@ ec2 (Proxy :: Proxy CreateRoute) +responseDescribeVPCEndpointServiceConfigurations :: DescribeVPCEndpointServiceConfigurationsResponse -> TestTree +responseDescribeVPCEndpointServiceConfigurations = res + "DescribeVPCEndpointServiceConfigurationsResponse" + "fixture/DescribeVPCEndpointServiceConfigurationsResponse.proto" + ec2 + (Proxy :: Proxy DescribeVPCEndpointServiceConfigurations) + responseDeleteSnapshot :: DeleteSnapshotResponse -> TestTree responseDeleteSnapshot = res "DeleteSnapshotResponse" @@ -4090,6 +4606,13 @@ ec2 (Proxy :: Proxy AttachVPNGateway) +responseModifyVPCEndpointServicePermissions :: ModifyVPCEndpointServicePermissionsResponse -> TestTree +responseModifyVPCEndpointServicePermissions = res + "ModifyVPCEndpointServicePermissionsResponse" + "fixture/ModifyVPCEndpointServicePermissionsResponse.proto" + ec2 + (Proxy :: Proxy ModifyVPCEndpointServicePermissions) + responseCreateDHCPOptions :: CreateDHCPOptionsResponse -> TestTree responseCreateDHCPOptions = res "CreateDHCPOptionsResponse" @@ -4125,6 +4648,13 @@ ec2 (Proxy :: Proxy RebootInstances) +responseModifyVPCEndpointServiceConfiguration :: ModifyVPCEndpointServiceConfigurationResponse -> TestTree +responseModifyVPCEndpointServiceConfiguration = res + "ModifyVPCEndpointServiceConfigurationResponse" + "fixture/ModifyVPCEndpointServiceConfigurationResponse.proto" + ec2 + (Proxy :: Proxy ModifyVPCEndpointServiceConfiguration) + responseUnassignIPv6Addresses :: UnassignIPv6AddressesResponse -> TestTree responseUnassignIPv6Addresses = res "UnassignIPv6AddressesResponse" @@ -4181,6 +4711,13 @@ ec2 (Proxy :: Proxy DescribeKeyPairs) +responseDescribeLaunchTemplates :: DescribeLaunchTemplatesResponse -> TestTree +responseDescribeLaunchTemplates = res + "DescribeLaunchTemplatesResponse" + "fixture/DescribeLaunchTemplatesResponse.proto" + ec2 + (Proxy :: Proxy DescribeLaunchTemplates) + responseCreateVPNConnectionRoute :: CreateVPNConnectionRouteResponse -> TestTree responseCreateVPNConnectionRoute = res "CreateVPNConnectionRouteResponse" @@ -4279,6 +4816,13 @@ ec2 (Proxy :: Proxy DescribeNetworkInterfacePermissions) +responseDescribeVPCEndpointServicePermissions :: DescribeVPCEndpointServicePermissionsResponse -> TestTree +responseDescribeVPCEndpointServicePermissions = res + "DescribeVPCEndpointServicePermissionsResponse" + "fixture/DescribeVPCEndpointServicePermissionsResponse.proto" + ec2 + (Proxy :: Proxy DescribeVPCEndpointServicePermissions) + responseDeleteDHCPOptions :: DeleteDHCPOptionsResponse -> TestTree responseDeleteDHCPOptions = res "DeleteDHCPOptionsResponse" @@ -4363,6 +4907,13 @@ ec2 (Proxy :: Proxy ModifyVPCAttribute) +responseDescribeFleetHistory :: DescribeFleetHistoryResponse -> TestTree +responseDescribeFleetHistory = res + "DescribeFleetHistoryResponse" + "fixture/DescribeFleetHistoryResponse.proto" + ec2 + (Proxy :: Proxy DescribeFleetHistory) + responseDescribeImages :: DescribeImagesResponse -> TestTree responseDescribeImages = res "DescribeImagesResponse" @@ -4404,6 +4955,13 @@ "fixture/DeleteVolumeResponse.proto" ec2 (Proxy :: Proxy DeleteVolume) + +responseDeleteVPCEndpointServiceConfigurations :: DeleteVPCEndpointServiceConfigurationsResponse -> TestTree +responseDeleteVPCEndpointServiceConfigurations = res + "DeleteVPCEndpointServiceConfigurationsResponse" + "fixture/DeleteVPCEndpointServiceConfigurationsResponse.proto" + ec2 + (Proxy :: Proxy DeleteVPCEndpointServiceConfigurations) responseDescribeSpotFleetInstances :: DescribeSpotFleetInstancesResponse -> TestTree responseDescribeSpotFleetInstances = res